Batch program · 731 linesCBTRN02C
How it is started
- Transactions
- none
- JCL steps
- POSTTRAN.STEP15 EXEC PGM=CBTRN02C
- Called by
- no callers in workspace
What it calls
| CALL | CEE3ABD | CBTRN02C.cbl:711 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| DALYTRAN-FILE | DALYTRAN | SEQUENTIAL / SEQUENTIAL | INPUT | AWS.M2.CARDDEMO.DALYTRAN.PS POSTTRAN.STEP15 | CBTRN02C.cbl:29 |
| TRANSACT-FILE | TRANFILE | INDEXED / RANDOM key FD-TRANS-ID | OUTPUT | AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS POSTTRAN.STEP15 | CBTRN02C.cbl:34 |
| XREF-FILE | XREFFILE | INDEXED / RANDOM key FD-XREF-CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS POSTTRAN.STEP15 | CBTRN02C.cbl:40 |
| DALYREJS-FILE | DALYREJS | SEQUENTIAL / SEQUENTIAL | OUTPUT | AWS.M2.CARDDEMO.DALYREJS(+1) POSTTRAN.STEP15 | CBTRN02C.cbl:46 |
| ACCOUNT-FILE | ACCTFILE | INDEXED / RANDOM key FD-ACCT-ID | I-O | AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS POSTTRAN.STEP15 | CBTRN02C.cbl:51 |
| TCATBAL-FILE | TCATBALF | INDEXED / RANDOM key FD-TRAN-CAT-KEY | I-O | AWS.M2.CARDDEMO.TCATBALF.VSAM.KSDS POSTTRAN.STEP15 | CBTRN02C.cbl:57 |
Paragraphs (26)
- 0000-DALYTRAN-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0100-TRANFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0200-XREFFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0300-DALYREJS-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0400-ACCTFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0500-TCATBALF-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1000-DALYTRAN-GET-NEXT 15 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1500-VALIDATE-TRAN 5 stmts↳1500-A-LOOKUP-XREF, 1500-B-LOOKUP-ACCT
- 1500-A-LOOKUP-XREF 6 stmts
- 1500-B-LOOKUP-ACCT 14 stmts
- 2000-POST-TRANSACTION 18 stmts↳Z-GET-DB2-FORMAT-TIMESTAMP, 2700-UPDATE-TCATBAL, 2800-UPDATE-ACCOUNT-REC, 2900-WRITE-TRANSACTION-FILE
- 2500-WRITE-REJECT-REC 14 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 2700-UPDATE-TCATBAL 20 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM, 2700-A-CREATE-TCATBAL-REC, 2700-B-UPDATE-TCATBAL-REC
- 2700-A-CREATE-TCATBAL-REC 15 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 2700-B-UPDATE-TCATBAL-REC 11 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 2800-UPDATE-ACCOUNT-REC 8 stmts
- 2900-WRITE-TRANSACTION-FILE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9000-DALYTRAN-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9100-TRANFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9200-XREFFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9300-DALYREJS-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9400-ACCTFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9500-TCATBALF-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- Z-GET-DB2-FORMAT-TIMESTAMP 12 stmts
- 9999-ABEND-PROGRAM 4 stmts
- 9910-DISPLAY-IO-STATUS 10 stmts