Status Word
The DPS STATUS-WORD has to be defined in the Working Storage section of programs using the DPS functionality. For more information on the STATUS-WORD see the original DPS2200 documentation.
/
* THIS STRUCTURE DEFINES THE SCREEN HANDLER STATUS WORD:
* ******************************************************
*
*
01 STATUS-WORD.
05 STATUS-INDICATOR PIC X(1) VALUE SPACE.
88 STATUS-OK VALUE SPACE.
88 STATUS-FATAL VALUE 'F'.
88 STATUS-WARNING VALUE 'W'.
05 STATUS-FUNCTION PIC 1(9) VALUE 0.
05 STATUS-CODE PIC 9(5) COMP VALUE 0.
*
* THIS STRUCTURE DEFINES THE SCREEN HANDLER STATUS WORD:
* ******************************************************
*
*
01 STATUS-WORD.
05 STATUS-INDICATOR PIC X(1) VALUE SPACE.
88 STATUS-OK VALUE SPACE.
88 STATUS-FATAL VALUE 'F'.
88 STATUS-WARNING VALUE 'W'.
05 STATUS-FUNCTION PIC 1(9) VALUE 0.
05 STATUS-CODE PIC 9(5) COMP VALUE 0.
*
Easiest is to put the code shown above in a COBOL copy and copy it into the Working Storage section of the program.