Batch program · 924 linesCBSTM03A
How it is started
- Transactions
- none
- JCL steps
- CREASTMT.STEP040 EXEC PGM=CBSTM03A
- Called by
- no callers in workspace
What it calls
| CALL | CBSTM03B | CBSTM03A.CBL:351 +12 |
| CALL | CEE3ABD | CBSTM03A.CBL:923 |
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| STMT-FILE | STMTFILE | SEQUENTIAL | OUTPUT | AWS.M2.CARDDEMO.STATEMNT.PS CREASTMT.STEP040 | CBSTM03A.CBL:39 |
| HTML-FILE | HTMLFILE | SEQUENTIAL | OUTPUT | AWS.M2.CARDDEMO.STATEMNT.HTML CREASTMT.STEP040 | CBSTM03A.CBL:40 |
Paragraphs (25)
- 0000-START 17 stmts↳8100-FILE-OPEN, 8500-READTRNX-READ, 9999-GOBACK
- 1000-MAINLINE 15 stmts↳1000-XREFFILE-GET-NEXT, 2000-CUSTFILE-GET, 3000-ACCTFILE-GET, 5000-CREATE-STATEMENT, 4000-TRNXFILE-GET, 9100-TRNXFILE-CLOSE, 9200-XREFFILE-CLOSE, 9300-CUSTFILE-CLOSE, 9400-ACCTFILE-CLOSE
- 9999-GOBACK 1 stmts
- 1000-XREFFILE-GET-NEXT 16 stmts↳9999-ABEND-PROGRAM
- 2000-CUSTFILE-GET 17 stmts↳9999-ABEND-PROGRAM
- 3000-ACCTFILE-GET 17 stmts↳9999-ABEND-PROGRAM
- 4000-TRNXFILE-GET 30 stmts↳6000-WRITE-TRANS
- 5000-CREATE-STATEMENT 27 stmts↳5100-WRITE-HTML-HEADER, 5200-WRITE-HTML-NMADBS
- 5100-WRITE-HTML-HEADER 44 stmts
- 5100-EXIT 1 stmts
- 5200-WRITE-HTML-NMADBS 76 stmts
- 5200-EXIT 1 stmts
- 6000-WRITE-TRANS 30 stmts
- 8100-FILE-OPEN 1 stmts↳8100-TRNXFILE-OPEN
- 8100-TRNXFILE-OPEN 24 stmts↳9999-ABEND-PROGRAM, 0000-START
- 8200-XREFFILE-OPEN 12 stmts↳9999-ABEND-PROGRAM, 0000-START
- 8300-CUSTFILE-OPEN 12 stmts↳9999-ABEND-PROGRAM, 0000-START
- 8400-ACCTFILE-OPEN 11 stmts↳9999-ABEND-PROGRAM, 1000-MAINLINE
- 8500-READTRNX-READ 23 stmts↳8500-READTRNX-READ, 8599-EXIT, 9999-ABEND-PROGRAM
- 8599-EXIT 4 stmts↳0000-START
- 9100-TRNXFILE-CLOSE 10 stmts↳9999-ABEND-PROGRAM
- 9200-XREFFILE-CLOSE 10 stmts↳9999-ABEND-PROGRAM
- 9300-CUSTFILE-CLOSE 10 stmts↳9999-ABEND-PROGRAM
- 9400-ACCTFILE-CLOSE 10 stmts↳9999-ABEND-PROGRAM
- 9999-ABEND-PROGRAM 2 stmts