Batch program · 494 linesCBTRN01C

Entry points

How it is started

CALL · XCTL · LINK

CALL

CEE3ABD

FILE-CONTROL

File	DD	Organization	Opened	Declared
DALYTRAN-FILE	DALYTRAN	SEQUENTIAL / SEQUENTIAL	INPUT	CBTRN01C.cbl:29
CUSTOMER-FILE	CUSTFILE	INDEXED / RANDOM key FD-CUST-ID	INPUT	CBTRN01C.cbl:34
XREF-FILE	XREFFILE	INDEXED / RANDOM key FD-XREF-CARD-NUM	INPUT	CBTRN01C.cbl:40
CARD-FILE	CARDFILE	INDEXED / RANDOM key FD-CARD-NUM	INPUT	CBTRN01C.cbl:46
ACCOUNT-FILE	ACCTFILE	INDEXED / RANDOM key FD-ACCT-ID	INPUT	CBTRN01C.cbl:52
TRANSACT-FILE	TRANFILE	INDEXED / RANDOM key FD-TRANS-ID	INPUT	CBTRN01C.cbl:58

PERFORM graph

MAIN-PARA 30 stmts
↳0000-DALYTRAN-OPEN, 0100-CUSTFILE-OPEN, 0200-XREFFILE-OPEN, 0300-CARDFILE-OPEN, 0400-ACCTFILE-OPEN, 0500-TRANFILE-OPEN, 1000-DALYTRAN-GET-NEXT, 2000-LOOKUP-XREF, 3000-READ-ACCOUNT, 9000-DALYTRAN-CLOSE, 9100-CUSTFILE-CLOSE, 9200-XREFFILE-CLOSE, 9300-CARDFILE-CLOSE, 9400-ACCTFILE-CLOSE, 9500-TRANFILE-CLOSE
1000-DALYTRAN-GET-NEXT 15 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
2000-LOOKUP-XREF 8 stmts
3000-READ-ACCOUNT 5 stmts
0000-DALYTRAN-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
0100-CUSTFILE-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
0200-XREFFILE-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
0300-CARDFILE-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
0400-ACCTFILE-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
0500-TRANFILE-OPEN 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9000-DALYTRAN-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9100-CUSTFILE-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9200-XREFFILE-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9300-CARDFILE-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9400-ACCTFILE-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
9500-TRANFILE-CLOSE 12 stmts
↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
Z-ABEND-PROGRAM 4 stmts
Z-DISPLAY-IO-STATUS 10 stmts

COPY