Batch program · 487 linesCBIMPORT

Entry points

How it is started

CALL · XCTL · LINK

CALL

CEE3ABD

FILE-CONTROL

File	DD	Organization	Opened	Bound by JCL to	Declared
EXPORT-INPUT	EXPFILE	INDEXED / SEQUENTIAL key EXPORT-SEQUENCE-NUM	INPUT	AWS.M2.CARDDEMO.EXPORT.DATA CBIMPORT.STEP01	CBIMPORT.cbl:37
CUSTOMER-OUTPUT	CUSTOUT	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.CUSTDATA.IMPORT CBIMPORT.STEP01	CBIMPORT.cbl:43
ACCOUNT-OUTPUT	ACCTOUT	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.ACCTDATA.IMPORT CBIMPORT.STEP01	CBIMPORT.cbl:48
XREF-OUTPUT	XREFOUT	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.CARDXREF.IMPORT CBIMPORT.STEP01	CBIMPORT.cbl:53
TRANSACTION-OUTPUT	TRNXOUT	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.TRANSACT.IMPORT CBIMPORT.STEP01	CBIMPORT.cbl:58
CARD-OUTPUT	CARDOUT	SEQUENTIAL / SEQUENTIAL	OUTPUT		CBIMPORT.cbl:63
ERROR-OUTPUT	ERROUT	SEQUENTIAL / SEQUENTIAL	OUTPUT	AWS.M2.CARDDEMO.IMPORT.ERRORS CBIMPORT.STEP01	CBIMPORT.cbl:68

PERFORM graph

0000-MAIN-PROCESSING 5 stmts
↳1000-INITIALIZE, 2000-PROCESS-EXPORT-FILE, 3000-VALIDATE-IMPORT, 4000-FINALIZE
1000-INITIALIZE 14 stmts
↳1100-OPEN-FILES
1100-OPEN-FILES 28 stmts
↳9999-ABEND-PROGRAM
2000-PROCESS-EXPORT-FILE 5 stmts
↳2100-READ-EXPORT-RECORD, 2200-PROCESS-RECORD-BY-TYPE
2100-READ-EXPORT-RECORD 4 stmts
↳9999-ABEND-PROGRAM
2200-PROCESS-RECORD-BY-TYPE 13 stmts
↳2300-PROCESS-CUSTOMER-RECORD, 2400-PROCESS-ACCOUNT-RECORD, 2500-PROCESS-XREF-RECORD, 2600-PROCESS-TRAN-RECORD, 2650-PROCESS-CARD-RECORD, 2700-PROCESS-UNKNOWN-RECORD
2300-PROCESS-CUSTOMER-RECORD 24 stmts
↳9999-ABEND-PROGRAM
2400-PROCESS-ACCOUNT-RECORD 18 stmts
↳9999-ABEND-PROGRAM
2500-PROCESS-XREF-RECORD 9 stmts
↳9999-ABEND-PROGRAM
2600-PROCESS-TRAN-RECORD 19 stmts
↳9999-ABEND-PROGRAM
2650-PROCESS-CARD-RECORD 12 stmts
↳9999-ABEND-PROGRAM
2700-PROCESS-UNKNOWN-RECORD 6 stmts
↳2750-WRITE-ERROR
2750-WRITE-ERROR 4 stmts
3000-VALIDATE-IMPORT 2 stmts
4000-FINALIZE 16 stmts
9999-ABEND-PROGRAM 2 stmts

COPY