Batch program · 178 linesCBACT02C
How it is started
- Transactions
- none
- JCL steps
- READCARD.STEP05 EXEC PGM=CBACT02C
- Called by
- no callers in workspace
What it calls
| CALL | CEE3ABD | CBACT02C.cbl:158 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| CARDFILE-FILE | CARDFILE | INDEXED / SEQUENTIAL key FD-CARD-NUM | INPUT | AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS READCARD.STEP05 | CBACT02C.cbl:29 |
Paragraphs (5)
- 1000-CARDFILE-GET-NEXT 15 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 0000-CARDFILE-OPEN 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9000-CARDFILE-CLOSE 12 stmts↳9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
- 9999-ABEND-PROGRAM 4 stmts
- 9910-DISPLAY-IO-STATUS 10 stmts