Batch program · 430 linesCBACT01C

Entry points

How it is started

CALL · XCTL · LINK

CALL	COBDATFT asm	CBACT01C.cbl:231
CALL	CEE3ABD	CBACT01C.cbl:410

FILE-CONTROL

File	DD	Organization	Opened	Bound by JCL to	Declared
ACCTFILE-FILE	ACCTFILE	INDEXED / SEQUENTIAL key FD-ACCT-ID	INPUT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS READACCT.STEP05	CBACT01C.cbl:29
OUT-FILE	OUTFILE	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.ACCTDATA.PSCOMP READACCT.STEP05	CBACT01C.cbl:35
ARRY-FILE	ARRYFILE	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.ACCTDATA.ARRYPS READACCT.STEP05	CBACT01C.cbl:40
VBRC-FILE	VBRCFILE	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.ACCTDATA.VBPS READACCT.STEP05	CBACT01C.cbl:45

PERFORM graph

1000-ACCTFILE-GET-NEXT 25 stmts
↳1100-DISPLAY-ACCT-RECORD, 1300-POPUL-ACCT-RECORD, 1350-WRITE-ACCT-RECORD, 1400-POPUL-ARRAY-RECORD, 1450-WRITE-ARRY-RECORD, 1500-POPUL-VBRC-RECORD, 1550-WRITE-VB1-RECORD, 1575-WRITE-VB2-RECORD, 9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1100-DISPLAY-ACCT-RECORD 13 stmts
1300-POPUL-ACCT-RECORD 17 stmts
1350-WRITE-ACCT-RECORD 7 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1400-POPUL-ARRAY-RECORD 8 stmts
1450-WRITE-ARRY-RECORD 7 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1500-POPUL-VBRC-RECORD 8 stmts
1550-WRITE-VB1-RECORD 9 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1575-WRITE-VB2-RECORD 9 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0000-ACCTFILE-OPEN 12 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
2000-OUTFILE-OPEN 12 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
3000-ARRFILE-OPEN 12 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
4000-VBRFILE-OPEN 12 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9000-ACCTFILE-CLOSE 12 stmts
↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9999-ABEND-PROGRAM 4 stmts
9910-DISPLAY-IO-STATUS 10 stmts

COPY