Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 273
The Dictionary DICTCDE Utility
Examples of Generated Code
001700 01 MODE6 PIC 9999 COMP VALUE 6.
001800 01 MODE7 PIC 9999 COMP VALUE 7.
001900 01 MODE8 PIC 9999 COMP VALUE 8.
The VPLUS standard parameters include the VPLUS COMAREA definition and a
character string which identifies the terminal. (The terminal ID is used for passing to
VOPENTERM.) The VPLUS parameters are generated to the WORKING-STORAGE
record as follows:
001800
001900 01 COMAREA.
002000 05 COM-STATUS PIC S9(4) COMP VALUE 0.
002100 05 COM-LANGUAGE PIC S9(4) COMP VALUE 0.
002200 05 COM-COMAREALEN PIC S9(4) COMP VALUE 60.
002300 05 FILLER PIC S9(4) COMP VALUE 0.
002400 05 COM-MODE PIC S9(4) COMP VALUE 0.
002500 05 COM-LASTKEY PIC S9(4) COMP VALUE 0.
002600 05 COM-NUMERRS PIC S9(4) COMP VALUE 0.
002700 05 FILLER PIC S9(4) COMP VALUE 0.
002800 05 FILLER PIC S9(4) COMP VALUE 0.
002900 05 FILLER PIC S9(4) COMP VALUE 0.
003000 05 COM-CFNAME PIC X(15) VALUE SPACES.
003100 05 FILLER PIC X(1) VALUE SPACES.
003200 05 COM-NFNAME PIC X(15) VALUE SPACES.
003300 05 FILLER PIC X(1) VALUE SPACES.
003400 05 COM-REPEATOPT PIC S9(4) COMP VALUE 0.
003500 05 COM-NFOPT PIC S9(4) COMP VALUE 0.
003600 05 FILLER PIC S9(4) COMP VALUE 0.
003700 05 COM-DBUFLEN PIC S9(4) COMP VALUE 0.
003800 05 FILLER PIC S9(4) COMP VALUE 0.
003900 05 FILLER PIC S9(4) COMP VALUE 0.
004000 05 COM-DELETEFLAG PIC S9(4) COMP VALUE 0.
004100 05 COM-SHOWCONTROL PIC S9(4) COMP VALUE 0.
004200 05 FILLER PIC S9(4) COMP VALUE 0.
004300 05 FILLER PIC S9(4) COMP VALUE 0.
004400 05 FILLER PIC S9(4) COMP VALUE 0.
004500 05 FILLER PIC S9(4) COMP VALUE 0.
004600 05 FILLER PIC S9(4) COMP VALUE 0.
004700 05 FILLER PIC S9(4) COMP VALUE 0.
004800 05 FILLER PIC S9(4) COMP VALUE 0.