Locate the following RDMLX source code in the WAM Tutorial chm file supplied with this workshop and use it to create iiiUsingCSS used in Step 1 of this exercise.
Use the following RDMLX source code to create iiiUsingCSS in Step 1 of this exercise.
Def_List Name(#emplist) Fields(#empno (#givename *out) (#surname *out) (#Address1 *out) (#postcode *out) (#phonehme *out) (#salary *out)) Type(*Working)Define Field(#hidesave) Type(*char) Length(1)Define Field(#hidedel) Type(*char) Length(1)Define Field(#hidenew) Type(*char) Length(1)Define Field(#hidesrch) Type(*char) Length(1)Define Field(#empnow) Reffld(#empno)Web_Map For(*both) Fields((#stdrentry *hidden) (#empnow *hidden))WebRoutine Name(Begin)Web_Map For(*output) Fields(#surname)#hidedel #hidesave #hidesrch := YEndroutineWebRoutine Name(empgrid) Desc('Employee Grid')Web_Map For(*input) Fields(#surname)Web_Map For(*output) Fields((#emplist *private))#hidedel #hidesave := YExecute Subroutine(bldlist)EndroutineWebRoutine Name(emplist) Desc('Employee List')Web_Map For(*input) Fields(#surname) Web_Map For(*output) Fields(#emplist)#hidedel #hidesave := YExecute Subroutine(bldlist)EndroutineSubroutine Name(bldlist)Clr_List Named(#emplist)Select Fields(#emplist) From_File(pslmst2) With_Key(#surname) Generic(*yes)Add_Entry To_List(#emplist)EndselectEndroutine