Code 88-level clauses in your data structures.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.
Syntax:
88 dataname VALUE 'value1' [THRU 'value2']
... 'value3' [THRU 'value4']
... 'value5' [THRU 'value6']
.
.
... 'valueN' [THRU 'valueN']
Syntax Rules:
- An 88-level variable needs the same or deeper indentation as the data name it refers to.
- You can code the VALUE clause either:
- On the same line as
dataname if it fits entirely on that line
- On its own line and continue it on subsequent lines with the continuation symbol
Parameter:
|
value
|
88-level value; do not enclose numeric values in single quotation marks.
|
Example 1: Data Structure Editor format
-LINE- ------- Data Structure Editor --------
000001 WRK1-FIELD-1 X5
000002 88 OPEN-VAL
000003 ... V 'OPEN' 'BEGIN'
000004 ... 'START'
000005 88 OPEN-FLAG
000006 ... VALUE 'ON'
000007 ... 'YES'
Example 2: Generated COBOL code
01 WRK1-FIELD-1 PIC X(5).
88 OPEN-VAL VALUE 'OPEN' 'BEGIN'
'START'.
88 OPEN-FLAG VALUE 'ON'
'YES'.
Example 3: Data Structure Editor format
-LINE- ------- Data Structure Editor --------
000009 WRK1-FIELD-2 X(04)
000010 88 SUB-LVL1
000011 ... V 'ABCD' 'EFGH'
000012 ... 'FFFF' THRU 'MMMM'
000013 ... 'PPPP' THRU 'ZZZZ'
000014 88 SUB-LVL2
000015 ... V LOW-VALUES
Example 4: Generated COBOL code
01 WRK1-FIELD-2 PIC X(04).
88 SUB-LVL1 VALUE 'ABCD' 'EFGH'
'FFFF' THRU 'MMMM'
'PPPP' THRU 'ZZZZ'.
88 SUB-LVL2 VALUE LOW-VALUES.
Example 5: Data Structure Editor format
-LINE- ------- Data Structure Editor --------
000016 WRK1-FIELD-3 H
000017 88 SUB-LVL3
000018 ... V -1000 +1000
000019 ... -900 THRU -700
000020 ... +500 THRU +800
Example 6: Generated COBOL code
01 WRK1-FIELD-3 PIC S9(4) COMP.
88 SUB-LVL3 VALUE -1000 +1000
-900 THRU -700
+500 THRU +800.
