Page History
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 := 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