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(*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 := *BLANKSEndifWhen Value_Is(= B)If Cond(#HIDEIF = *BLANKS)#HIDEIF := 'HIDE' Else#HIDEIF := *BLANKSEndifWhen Value_Is(= C)If Cond(#XSLIF = *BLANKS)#XSLIF := 'HIDE'Else#XSLIF := *BLANKSEndif Endcase Endroutine End_Com