Page History
To create iiiHideTech used in Step 1 of this exercise, locate the following code in the WAM Tutorial chm file supplied with this workshop and copy and paste it into the editor.
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
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