WAM100 Appendix

LANSA WAM

WAM100. Appendix

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