[ |../../index.htm#lansa/wamtut01_0855.htm]
You are here:

Step 1. Create a new WAM

WAM070 - Hiding Techniques
1.  Create a new WAM:
     Name:  iiiHideTech
     Description: Hiding Techniques
     Layout Weblet: iiilay01
2.  In this step, you will add the RDMLX code to demonstrate different hiding techniques.
     Use the DEFINE command to define the following work fields.

 |
3.  Create a WebRoutine named HideMain with a description of 'Hiding Techniques'.
WebRoutine Name(HideMain) Desc('Hiding Techniques') Endroutine  
4.  Add a WEB_MAP for *both. Include the fields you have just created as well as STDRENTRY. Define all as hidden fields as follows:
Web_Map For(*BOTH) Fields((#CLASSHIDE *HIDDEN) (#HIDEIF *HIDDEN) (#XSLIF *HIDDEN) (#STDRENTRY *HIDDEN))  
5.  Add a CASE loop based on STDRENTRY for three different values A, B and C.
     Note: Classes are case sensitive (#CLASSHIDE := 'hidden'). 'hidden' must be lower case.
     Your code should look like the following:
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  
     The complete WAM source code can be found in WAM 070. Appendix
6.  Compile your WAM
[ |../../index.htm#lansa/wamtut01_0855.htm]