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 := Y Endroutine WebRoutine Name(empgrid) Desc('Employee Grid') Web_Map For(*input) Fields(#surname) Web_Map For(*output) Fields((#emplist *private)) #hidedel #hidesave := Y Execute Subroutine(bldlist) Endroutine WebRoutine Name(emplist) Desc('Employee List') Web_Map For(*input) Fields(#surname) Web_Map For(*output) Fields(#emplist) #hidedel #hidesave := Y Execute Subroutine(bldlist) Endroutine Subroutine Name(bldlist) Clr_List Named(#emplist) Select Fields(#emplist) From_File(pslmst2) With_Key(#surname) Generic(*yes) Add_Entry To_List(#emplist) Endselect Endroutine