Batch program · 582 linesCBEXPORT
How it is started
- Transactions
- none
- JCL steps
- CBEXPORT.STEP02 EXEC PGM=CBEXPORT
- Called by
- no callers in workspace
What it calls
| CALL | CEE3ABD | CBEXPORT.cbl:579 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| CUSTOMER-INPUT | CUSTFILE | INDEXED / SEQUENTIAL key CUST-ID | INPUT | AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS CBEXPORT.STEP02 | CBEXPORT.cbl:35 |
| ACCOUNT-INPUT | ACCTFILE | INDEXED / SEQUENTIAL key ACCT-ID | INPUT | AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS CBEXPORT.STEP02 | CBEXPORT.cbl:41 |
| XREF-INPUT | XREFFILE | INDEXED / SEQUENTIAL key XREF-CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS CBEXPORT.STEP02 | CBEXPORT.cbl:47 |
| TRANSACTION-INPUT | TRANSACT | INDEXED / SEQUENTIAL key TRAN-ID | INPUT | AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS CBEXPORT.STEP02 | CBEXPORT.cbl:53 |
| CARD-INPUT | CARDFILE | INDEXED / SEQUENTIAL key CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS CBEXPORT.STEP02 | CBEXPORT.cbl:59 |
| EXPORT-OUTPUT | EXPFILE | INDEXED / SEQUENTIAL key EXPORT-SEQUENCE-NUM | OUTPUT | AWS.M2.CARDDEMO.EXPORT.DATA CBEXPORT.STEP02 | CBEXPORT.cbl:65 |
Paragraphs (21)
- 0000-MAIN-PROCESSING 8 stmts↳1000-INITIALIZE, 2000-EXPORT-CUSTOMERS, 3000-EXPORT-ACCOUNTS, 4000-EXPORT-XREFS, 5000-EXPORT-TRANSACTIONS, 5500-EXPORT-CARDS, 6000-FINALIZE
- 1000-INITIALIZE 5 stmts↳1050-GENERATE-TIMESTAMP, 1100-OPEN-FILES
- 1050-GENERATE-TIMESTAMP 5 stmts
- 1100-OPEN-FILES 24 stmts↳9999-ABEND-PROGRAM
- 2000-EXPORT-CUSTOMERS 6 stmts↳2100-READ-CUSTOMER-RECORD, 2200-CREATE-CUSTOMER-EXP-REC
- 2100-READ-CUSTOMER-RECORD 4 stmts↳9999-ABEND-PROGRAM
- 2200-CREATE-CUSTOMER-EXP-REC 31 stmts↳9999-ABEND-PROGRAM
- 3000-EXPORT-ACCOUNTS 6 stmts↳3100-READ-ACCOUNT-RECORD, 3200-CREATE-ACCOUNT-EXP-REC
- 3100-READ-ACCOUNT-RECORD 4 stmts↳9999-ABEND-PROGRAM
- 3200-CREATE-ACCOUNT-EXP-REC 25 stmts↳9999-ABEND-PROGRAM
- 4000-EXPORT-XREFS 6 stmts↳4100-READ-XREF-RECORD, 4200-CREATE-XREF-EXPORT-RECORD
- 4100-READ-XREF-RECORD 4 stmts↳9999-ABEND-PROGRAM
- 4200-CREATE-XREF-EXPORT-RECORD 16 stmts↳9999-ABEND-PROGRAM
- 5000-EXPORT-TRANSACTIONS 6 stmts↳5100-READ-TRANSACTION-RECORD, 5200-CREATE-TRAN-EXP-REC
- 5100-READ-TRANSACTION-RECORD 4 stmts↳9999-ABEND-PROGRAM
- 5200-CREATE-TRAN-EXP-REC 26 stmts↳9999-ABEND-PROGRAM
- 5500-EXPORT-CARDS 6 stmts↳5600-READ-CARD-RECORD, 5700-CREATE-CARD-EXPORT-RECORD
- 5600-READ-CARD-RECORD 4 stmts↳9999-ABEND-PROGRAM
- 5700-CREATE-CARD-EXPORT-RECORD 19 stmts↳9999-ABEND-PROGRAM
- 6000-FINALIZE 13 stmts
- 9999-ABEND-PROGRAM 2 stmts