Batch program · DB2 · 237 linesCOBTUPDT
How it is started
- Transactions
- none
- JCL steps
- MNTTRDB2.STEP1 SYSTSIN RUN PROGRAM in in-stream app/app-transaction-type-db2/jcl/MNTTRDB2.jcl:29-30
- Called by
- no callers in workspace
What it calls
No calls.
Files
| File | DD | Organization | Opened | Bound by JCL to | Declared |
|---|---|---|---|---|---|
| TR-RECORD | INPFILE | SEQUENTIAL / SEQUENTIAL | INPUT | INPFILE MNTTRDB2.STEP1 | COBTUPDT.cbl:31 |
Embedded SQL
| INSERT | CARDDEMO.TRANSACTION_TYPE | 10031-INSERT-DB | COBTUPDT.cbl:137–148 |
| UPDATE | CARDDEMO.TRANSACTION_TYPE | 10032-UPDATE-DB | COBTUPDT.cbl:171–175 |
| DELETE | CARDDEMO.TRANSACTION_TYPE | 10033-DELETE-DB | COBTUPDT.cbl:201–204 |
| DECLARE TABLE | CARDDEMO.TRANSACTION_TYPE | (DATA DIVISION) | DCLTRTYP.dcl:28–31 via COBTUPDT.cbl:54 |
Paragraphs (9)
- 0001-OPEN-FILES 5 stmts
- 1001-READ-NEXT-RECORDS 7 stmts↳1002-READ-RECORDS, 1003-TREAT-RECORD, 2001-CLOSE-STOP
- 1002-READ-RECORDS 5 stmts
- 1003-TREAT-RECORD 16 stmts↳10031-INSERT-DB, 10032-UPDATE-DB, 10033-DELETE-DB, 9999-ABEND
- 10031-INSERT-DB 9 stmts↳9999-ABEND
- 10032-UPDATE-DB 12 stmts↳9999-ABEND
- 10033-DELETE-DB 12 stmts↳9999-ABEND
- 9999-ABEND 3 stmts
- 2001-CLOSE-STOP 2 stmts
Copybooks (2)
SQLCA (system)DCLTRTYP