Page History
Use the following RDMLX source code to create iiiHideTech in Step 1 of this exercise.
Replace the Layoutweblet() keyword with your common layout name.
...
Function Options(*DIRECT)
Begin_
...
Com Role(*
...
EXTENDS #PRIM_WAM)
...
Layoutweblet('iiilay01')
...
WebRoutine Name(HideMain)
Web_
...
Map For(*BOTH)
...
Fields((
...
#CLASSHIDE *HIDDEN)
...
(
...
#HIDEIF *HIDDEN)
...
(
...
#XSLIF *HIDDEN)
...
(
...
#STDRENTRY *HIDDEN))
...
Define Field(#CLASSHIDE)
...
Type(*char)
...
Length(10)
...
Define Field(#HIDEIF)
...
Type(*char)
...
Length(10)
...
Define Field(#XSLIF)
...
Type(*char)
...
Length(10)
...
Case Of_Field(#STDRENTRY)
...
When Value_Is(=
...
A)
If Cond(#CLASSHIDE = *BLANKS)
#CLASSHIDE := 'hidden'
Else
#CLASSHIDE := *BLANKS
Endif
When Value_Is(= B)
If Cond(#HIDEIF = *BLANKS)
#HIDEIF := 'HIDE'
Else
#HIDEIF := *BLANKS
Endif
When Value_Is(= C)
If Cond(#XSLIF = *BLANKS)
#XSLIF := 'HIDE'
Else
#XSLIF := *BLANKS
Endif
Endcase
Endroutine
End_Com