SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-14
COBOL Definitions
03 FILLER PIC X(22)
VALUE "0000 ".
03 FILLER PIC X(22)
VALUE "0001Not SEND".
03 FILLER PIC X(22)
VALUE "0002Not SEND or
RCV.".
03 FILLER PIC X(22)
VALUE "9999Unknown Reply".
02 PROGRAM-STATE-DETAIL-TABR REDEFINES PROGRAM-STATE-DETAIL-
TABLE.
03 PROGRAM-STATE-DETAIL-INFO OCCURS 4 TIMES.
04 PROGM-STATE-MESSAGE-NUMBER PIC 9999.
04 PROGM-STATE-MESSAGE-TEXT PIC X(18).
?SECTION DT-NAME-TAB,TANDEM
01 DT-NAME-TAB.
02 DT-NAME-TABLE.
03 FILLER PIC X(18)
VALUE "Data".
03 FILLER PIC X(18)
VALUE "Data-Complete".
03 FILLER PIC X(18)
VALUE "Data-Incomplete".
03 FILLER PIC X(18)
VALUE "Send".
03 FILLER PIC X(18)
VALUE "Confirm".
03 FILLER PIC X(18)
VALUE "Confirm-Send".
03 FILLER PIC X(18)
VALUE "Confirm-Deallocate".
02 DT-NAME-TABR REDEFINES DT-NAME-TABLE.
03 DT-NAME-LIST PIC X(18)
OCCURS 7 TIMES.
?SECTION ACTIVATE-SESS-REQ-PARMS,TANDEM
01 ACTIVATE-SESS-REQ-PARMS.
02 AS-PARTNER-LUNAME PIC X(8).
02 AS-MODENAME PIC X(8).
?SECTION ACTIVATE-SESS-REQ,TANDEM
01 ACTIVATE-SESS-REQ.
02 AS-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
02 AS-PARAMETERS.
03 AS-PARTNER-LUNAME PIC X(8).
03 AS-MODENAME PIC X(8).
?SECTION ACTIVATE-SESS-REP,TANDEM
01 ACTIVATE-SESS-REP.
02 ASR-HEADER.
03 REP-UOW-ID PIC X(2).
03 REP-VERB-CODE PIC 9(4) COMP.
03 REP-RETURN-CODE PIC S9(4) COMP.
03 REP-RETURN-CODE-DETAIL PIC S9(4) COMP.
?SECTION ALLOCATE-REQ-PARMS,TANDEM