HP 3000 Manuals

HP SYSTEM DICTIONARY XL COBOL DEFINITION EXTRACTOR Reference Manual

IMAGE Subsystem Standard Parameters 

If you request the IMAGE standard parameters to be generated, the status
array, the eight IMAGE intrinsic modes, and the intrinsic data item
list declarations are generated into the specified module in the
WORKING-STORAGE SECTION as shown below:

     000100
     000200 01  STATUSS.
     000300     05  C-WORD             PIC S9(4) COMP.
     000400     05  STAT2              PIC S9(4) COMP.
     000500     05  STAT3-4            PIC S9(9) COMP.
     000600     05  STAT5-6            PIC S9(9) COMP.
     000700     05  STAT7-8            PIC S9(9) COMP.
     000800     05  STAT9-10           PIC S9(9) COMP.
     000900
     001000
     001100 01  EMPTY-LIST             PIC X(2) VALUE "; ".
     001200 01  ALL-ITEMS              PIC X(2) VALUE "@;".
     001300 01  PREVIOUS-LIST          PIC X(2) VALUE "*;".
     001400
     001500
     001600 01  MODE1                  PIC 9999 COMP VALUE 1.
     001700 01  MODE2                  PIC 9999 COMP VALUE 2.
     001800 01  MODE3                  PIC 9999 COMP VALUE 3.
     001900 01  MODE4                  PIC 9999 COMP VALUE 4.
     002000 01  MODE5                  PIC 9999 COMP VALUE 5.
     002100 01  MODE6                  PIC 9999 COMP VALUE 6.
     002200 01  MODE7                  PIC 9999 COMP VALUE 7.
     002300 01  MODE8                  PIC 9999 COMP VALUE 8.

MPE/iX 5.0 Documentation