Batch program · 652 linesCBACT04C
How it is started
- Transactions
- none
- JCL steps
- INTCALC.STEP15 EXEC PGM=CBACT04C
- Called by
- no callers in workspace
- USING
- EXTERNAL-PARMS
What it calls
| CALL | CEE3ABD | CBACT04C.cbl:632 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| TCATBAL-FILE | TCATBALF | INDEXED / SEQUENTIAL key FD-TRAN-CAT-KEY | INPUT | AWS.M2.CARDDEMO.TCATBALF.VSAM.KSDS INTCALC.STEP15 | CBACT04C.cbl:28 |
| XREF-FILE | XREFFILE | INDEXED / RANDOM key FD-XREF-CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS INTCALC.STEP15 | CBACT04C.cbl:34 |
| ACCOUNT-FILE | ACCTFILE | INDEXED / RANDOM key FD-ACCT-ID | I-O | AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS INTCALC.STEP15 | CBACT04C.cbl:41 |
| DISCGRP-FILE | DISCGRP | INDEXED / RANDOM key FD-DISCGRP-KEY | INPUT | AWS.M2.CARDDEMO.DISCGRP.VSAM.KSDS INTCALC.STEP15 | CBACT04C.cbl:47 |
| TRANSACT-FILE | TRANSACT | SEQUENTIAL / SEQUENTIAL | OUTPUT | AWS.M2.CARDDEMO.SYSTRAN(+1) INTCALC.STEP15 | CBACT04C.cbl:53 |
Paragraphs (22)
- 0000-TCATBALF-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0100-XREFFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0200-DISCGRP-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0300-ACCTFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0400-TRANFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1000-TCATBALF-GET-NEXT 15 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1050-UPDATE-ACCOUNT 14 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1100-GET-ACCT-DATA 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1110-GET-XREF-DATA 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1200-GET-INTEREST-RATE 16 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM, 1200-A-GET-DEFAULT-INT-RATE
- 1200-A-GET-DEFAULT-INT-RATE 11 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1300-COMPUTE-INTEREST 4 stmts↳1300-B-WRITE-TX
- 1300-B-WRITE-TX 26 stmts↳Z-GET-DB2-FORMAT-TIMESTAMP, 9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 1400-COMPUTE-FEES 1 stmts
- 9000-TCATBALF-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9100-XREFFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9200-DISCGRP-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9300-ACCTFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9400-TRANFILE-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