88

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.