Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-87
Clauses in Message Description Entry
01 WS-ATM-Record.
05 WS-Bit-Map.
10 WS-Bit-1 PIC 9(1) COMP.
10 WS-Bit-2 PIC 9(1) COMP.
10 WS-Bit-3 PIC 9(1) COMP.
01 WS-Savings-Acct.
05 WS-Savings-Length PIC 9(2) COMP.
05 WS-Savings-Data PIC X(1)
OCCURS 1 TO 15 TIMES
DEPENDING ON
WS-Savings-Length.
01 WS-Checking-Acct.
05 WS-Checking-Length PIC 9(2) COMP.
05 WS-Checking-Data PIC X(1)
OCCURS 1 TO 15 TIMES
DEPENDING ON
WS-Checking-Length.
01 WS-Credit-Card.
05 WS-Creditc-Length PIC 9(2) COMP.
05 WS-Creditc-Data PIC X(1)
OCCURS 1 TO 15 TIMES
DEPENDING ON
WS-Creditc-Length.
01 WS-Field-Status-Items.
05 WS-Field-Status-Savings.
10 FS-Shadow-Savings PIC 9(4) COMP.
10 FS-Error-Savings PIC 9(4) COMP.
05 WS-Field-Status-Checking.
10 FS-Shadow-Checking PIC 9(4) COMP.
10 FS-Error-Checking PIC 9(4) COMP.
05 WS-Field-Status-Credit-Card.
10 FS-Shadow-Credit-Card PIC 9(4) COMP.
10 FS-Error-Credit-Card PIC 9(4) COMP.
MESSAGE SECTION.
01 MS-Input-Output-Record.
MESSAGE FORMAT IS DELIMITED
FIELD-DELIMITER IS OFF.
05 MS-Record-Length PIC X(100)
USING WS-Record
RESULTING COUNT IS
WS-Record-Length.
01 MS-ATM-Record
MESSAGE FORMAT IS DELIMITED
FIELD-DELIMITER IS OFF.
05 MS-Bit-Map.
10 MS-Bit1-Savings PIC 1(1)
USING WS-Bit-1.
10 MS-Bit2-Checking PIC 1(1)
USING WS-Bit-2.