Batch program · 649 linesCBTRN03C
How it is started
- Transactions
- none
- JCL steps
- TRANREPT.STEP10R EXEC PGM=CBTRN03C
- Called by
- no callers in workspace
What it calls
| CALL | CEE3ABD | CBTRN03C.cbl:630 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| TRANSACT-FILE | TRANFILE | SEQUENTIAL | INPUT | AWS.M2.CARDDEMO.TRANSACT.DALY(+1) TRANREPT.STEP10R | CBTRN03C.cbl:29 |
| XREF-FILE | CARDXREF | INDEXED / RANDOM key FD-XREF-CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS TRANREPT.STEP10R | CBTRN03C.cbl:33 |
| TRANTYPE-FILE | TRANTYPE | INDEXED / RANDOM key FD-TRAN-TYPE | INPUT | AWS.M2.CARDDEMO.TRANTYPE.VSAM.KSDS TRANREPT.STEP10R | CBTRN03C.cbl:39 |
| TRANCATG-FILE | TRANCATG | INDEXED / RANDOM key FD-TRAN-CAT-KEY | INPUT | AWS.M2.CARDDEMO.TRANCATG.VSAM.KSDS TRANREPT.STEP10R | CBTRN03C.cbl:45 |
| REPORT-FILE | TRANREPT | SEQUENTIAL | OUTPUT | AWS.M2.CARDDEMO.TRANREPT(+1) TRANREPT.STEP10R | CBTRN03C.cbl:51 |
| DATE-PARMS-FILE | DATEPARM | SEQUENTIAL | INPUT | AWS.M2.CARDDEMO.DATEPARM TRANREPT.STEP10R | CBTRN03C.cbl:55 |
Paragraphs (26)
- 0550-DATEPARM-READ 16 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1000-TRANFILE-GET-NEXT 17 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1100-WRITE-TRANSACTION-REPORT 11 stmts↳1120-WRITE-HEADERS, 1110-WRITE-PAGE-TOTALS, 1120-WRITE-DETAIL
- 1110-WRITE-PAGE-TOTALS 10 stmts↳1111-WRITE-REPORT-REC
- 1120-WRITE-ACCOUNT-TOTALS 9 stmts↳1111-WRITE-REPORT-REC
- 1110-WRITE-GRAND-TOTALS 4 stmts↳1111-WRITE-REPORT-REC
- 1120-WRITE-HEADERS 13 stmts↳1111-WRITE-REPORT-REC
- 1111-WRITE-REPORT-REC 11 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1120-WRITE-DETAIL 13 stmts↳1111-WRITE-REPORT-REC
- 0000-TRANFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0100-REPTFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0200-CARDXREF-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0300-TRANTYPE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0400-TRANCATG-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0500-DATEPARM-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1500-A-LOOKUP-XREF 6 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1500-B-LOOKUP-TRANTYPE 6 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1500-C-LOOKUP-TRANCATG 6 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9000-TRANFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9100-REPTFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9200-CARDXREF-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9300-TRANTYPE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9400-TRANCATG-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9500-DATEPARM-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9999-ABEND-PROGRAM 4 stmts
- 9910-DISPLAY-IO-STATUS 10 stmts