WAM 070. Appendix

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