Batch program · 178 linesCBCUS01C
How it is started
- Transactions
- none
- JCL steps
- READCUST.STEP05 EXEC PGM=CBCUS01C
- Called by
- no callers in workspace
What it calls
| CALL | CEE3ABD | CBCUS01C.cbl:158 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| CUSTFILE-FILE | CUSTFILE | INDEXED / SEQUENTIAL key FD-CUST-ID | INPUT | AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS READCUST.STEP05 | CBCUS01C.cbl:29 |
Paragraphs (5)
- 1000-CUSTFILE-GET-NEXT 16 stmts↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
- 0000-CUSTFILE-OPEN 12 stmts↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
- 9000-CUSTFILE-CLOSE 12 stmts↳Z-DISPLAY-IO-STATUS, Z-ABEND-PROGRAM
- Z-ABEND-PROGRAM 4 stmts
- Z-DISPLAY-IO-STATUS 10 stmts