Page History
...
- Create a new WAM:
Name: iiiHideTech
Description: Hiding Techniques
Layout Weblet: iiilay01
...
- In this step, you will add the RDMLX code to demonstrate different hiding techniques.
...
- Use the DEFINE command to define the following work fields.
Field
Type
Length
Default Value
CLASSHIDE
*char
10
*blanks
HIDEIF
*char
10
*blanks
XSLIF
*char
10
*blanks
...
- Create a WebRoutine named HideMain with a description of 'Hiding Techniques'.
...
WebRoutine Name(HideMain)
...
Desc('
...
Hiding Techniques')
...
Endroutine
- 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))
...
...
- Add a CASE loop based on STDRENTRY for three different values A, B and C.
...
Note 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)
The complete WAM source code can be found in WAM 070. Appendix.
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
...
- Compile your WAM