Info Buffer
The DPS INFO-BUFFER has to be defined in the Working Storage section of programs using the DPS functionality. For more information on the INFO-BUFFER see the original DPS2200 documentation.
/
* THIS STRUCTURE DEFINES THE INFO BUFFER FILLED AT INITIALIZATION TIME
* ********************************************************************
*
*
01 INFO-BUFFER.
05 INFO-SHORT-TERMID PIC 9(4) VALUE 0.
05 INFO-SCREEN-NUMBER PIC 9(4) VALUE 0.
05 INFO-PROGRAM-ID PIC X(6) VALUE SPACES.
05 INFO-FUNCTION-KEY PIC 9(2) COMP VALUE 0.
05 INFO-CONVERSATION PIC X(1) VALUE SPACE.
05 INFO-DEMAND PIC X(1) VALUE SPACE.
05 INFO-PASSOFF PIC X(1) VALUE SPACE.
05 INFO-TEST PIC X(1) VALUE SPACE.
05 INFO-FRAME PIC X(1) VALUE SPACE.
05 INFO-BELL PIC X(1) VALUE SPACE.
05 INFO-ROWS PIC 9(2) COMP VALUE ZERO.
05 INFO-COLUMNS PIC 9(2) COMP VALUE ZERO.
05 INFO-OUTPUT-TYPE PIC 9(2) COMP VALUE ZERO.
05 INFO-USERID PIC X(12) VALUE SPACES.
05 INFO-SCREEN-LEVEL PIC 9(5) COMP VALUE ZERO.
05 INFO-FIELD-LEVEL PIC 9(5) COMP VALUE ZERO.
05 INFO-TERMINAL-TYPE PIC X(8) VALUE SPACES.
05 INFO-PREVIOUS-PROGRAM-ID PIC X(6) VALUE SPACES.
05 INFO-BREAK PIC X(1) VALUE SPACE.
05 INFO-SESSION PIC X(1) VALUE SPACE.
05 INFO-MCB PIC X(1) VALUE SPACE.
05 INFO-INPUT-TYPE PIC 9(2) COMP VALUE 0.
88 NO-INPUT-MSG VALUE 0.
88 NETWORK-INPUT-MSG VALUE 1.
88 FUNCTION-KEY-MSG VALUE 2.
88 MSG-WAIT-KEY-MSG VALUE 3.
88 AUXILIARY-THRU-MSG VALUE 10.
88 AUXILIARY-DLE8-MSG VALUE 11.
88 AUXILIARY-ERROR1-MSG VALUE 12.
88 AUXILIARY-ERROR2-MSG VALUE 13.
88 AUXILIARY-NO-STATUS-MSG VALUE 14.
88 AUXILIARY-N0-ERROR-MSG VALUE 15.
88 AUXILIARY-POWER-ON-MSG VALUE 16.
88 SESSION-OPEN-REQ-OK-MSG VALUE 30.
88 SESSION-CLOSE-REQ-OK-MSG VALUE 31.
88 SESSION-CLOSED-BY-PEER-MSG VALUE 38.
88 SESSION-ABORTED-MSG VALUE 39.
88 PASSOFF-MSG VALUE 40.
88 DELIVERY-NOTIFICATION-MSG VALUE 41.
88 MCB-BREAK-NOTIFICATION-MSG VALUE 42.
88 ERROR-NOTIFICATION-MSG VALUE 43.
88 SESSION-CLOSE-REJECT VALUE 44.
88 SESSION-OPEN-REJECT VALUE 45.
88 CHECKPOINT-MSG VALUE 80.
88 NETWORK-OUTPUT-MSG VALUE 90.
88 TIMER-MSG VALUE 91.
88 UNDEFINED-MSG VALUE 99.
05 FILLER PIC X(1) VALUE SPACES.
05 INFO-INPUT-CCS PIC 9(2) COMP VALUE 0.
05 INFO-SCREEN-FILE PIC X(12) VALUE SPACES.
05 INFO-TERMID PIC 9(10) COMP VALUE 0.
05 INFO-SESSION-ID PIC 9(5) COMP VALUE 0.
05 INFO-APPLICATION-NBR PIC 9(2) COMP VALUE 0.
05 FILLER PIC X(17) VALUE SPACES.
05 INFO-USER-AREA PIC X(24) VALUE SPACES.
*
* THIS STRUCTURE DEFINES THE INFO BUFFER FILLED AT INITIALIZATION TIME
* ********************************************************************
*
*
01 INFO-BUFFER.
05 INFO-SHORT-TERMID PIC 9(4) VALUE 0.
05 INFO-SCREEN-NUMBER PIC 9(4) VALUE 0.
05 INFO-PROGRAM-ID PIC X(6) VALUE SPACES.
05 INFO-FUNCTION-KEY PIC 9(2) COMP VALUE 0.
05 INFO-CONVERSATION PIC X(1) VALUE SPACE.
05 INFO-DEMAND PIC X(1) VALUE SPACE.
05 INFO-PASSOFF PIC X(1) VALUE SPACE.
05 INFO-TEST PIC X(1) VALUE SPACE.
05 INFO-FRAME PIC X(1) VALUE SPACE.
05 INFO-BELL PIC X(1) VALUE SPACE.
05 INFO-ROWS PIC 9(2) COMP VALUE ZERO.
05 INFO-COLUMNS PIC 9(2) COMP VALUE ZERO.
05 INFO-OUTPUT-TYPE PIC 9(2) COMP VALUE ZERO.
05 INFO-USERID PIC X(12) VALUE SPACES.
05 INFO-SCREEN-LEVEL PIC 9(5) COMP VALUE ZERO.
05 INFO-FIELD-LEVEL PIC 9(5) COMP VALUE ZERO.
05 INFO-TERMINAL-TYPE PIC X(8) VALUE SPACES.
05 INFO-PREVIOUS-PROGRAM-ID PIC X(6) VALUE SPACES.
05 INFO-BREAK PIC X(1) VALUE SPACE.
05 INFO-SESSION PIC X(1) VALUE SPACE.
05 INFO-MCB PIC X(1) VALUE SPACE.
05 INFO-INPUT-TYPE PIC 9(2) COMP VALUE 0.
88 NO-INPUT-MSG VALUE 0.
88 NETWORK-INPUT-MSG VALUE 1.
88 FUNCTION-KEY-MSG VALUE 2.
88 MSG-WAIT-KEY-MSG VALUE 3.
88 AUXILIARY-THRU-MSG VALUE 10.
88 AUXILIARY-DLE8-MSG VALUE 11.
88 AUXILIARY-ERROR1-MSG VALUE 12.
88 AUXILIARY-ERROR2-MSG VALUE 13.
88 AUXILIARY-NO-STATUS-MSG VALUE 14.
88 AUXILIARY-N0-ERROR-MSG VALUE 15.
88 AUXILIARY-POWER-ON-MSG VALUE 16.
88 SESSION-OPEN-REQ-OK-MSG VALUE 30.
88 SESSION-CLOSE-REQ-OK-MSG VALUE 31.
88 SESSION-CLOSED-BY-PEER-MSG VALUE 38.
88 SESSION-ABORTED-MSG VALUE 39.
88 PASSOFF-MSG VALUE 40.
88 DELIVERY-NOTIFICATION-MSG VALUE 41.
88 MCB-BREAK-NOTIFICATION-MSG VALUE 42.
88 ERROR-NOTIFICATION-MSG VALUE 43.
88 SESSION-CLOSE-REJECT VALUE 44.
88 SESSION-OPEN-REJECT VALUE 45.
88 CHECKPOINT-MSG VALUE 80.
88 NETWORK-OUTPUT-MSG VALUE 90.
88 TIMER-MSG VALUE 91.
88 UNDEFINED-MSG VALUE 99.
05 FILLER PIC X(1) VALUE SPACES.
05 INFO-INPUT-CCS PIC 9(2) COMP VALUE 0.
05 INFO-SCREEN-FILE PIC X(12) VALUE SPACES.
05 INFO-TERMID PIC 9(10) COMP VALUE 0.
05 INFO-SESSION-ID PIC 9(5) COMP VALUE 0.
05 INFO-APPLICATION-NBR PIC 9(2) COMP VALUE 0.
05 FILLER PIC X(17) VALUE SPACES.
05 INFO-USER-AREA PIC X(24) VALUE SPACES.
*
Easiest is to put the code shown above in a COBOL copy and copy it into the Working Storage section of the program.