[ 
|../../index.htm#lansa/wamengt1_0035.htm]
You are here:
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
[ |../../index.htm#lansa/wamengt1_0035.htm]