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