Batch program · IMS · 366 linesDBUNLDGS
How it is started
- Transactions
- none
- JCL steps
- UNLDGSAM.STEP01 PARM='DLI,DBUNLDGS,DLIGSAMP,,,,,,,,,,,N' (IMS region type DLI, PSB DLIGSAMP)
- Called by
- no callers in workspace
- USING
- PAUTBPCB, PASFLPCB, PADFLPCB
What it calls
| CALL | CBLTDLI | DBUNLDGS.CBL:222–225 +3 |
Paragraphs (15)
- MAIN-PARA 5 stmts↳1000-INITIALIZE, 2000-FIND-NEXT-AUTH-SUMMARY, 4000-FILE-CLOSE
- 1000-INITIALIZE 6 stmts
- 1000-EXIT 1 stmts
- 2000-FIND-NEXT-AUTH-SUMMARY 20 stmts↳3100-INSERT-PARENT-SEG-GSAM, 3000-FIND-NEXT-AUTH-DTL, 9999-ABEND
- 2000-EXIT 1 stmts
- 3000-FIND-NEXT-AUTH-DTL 15 stmts↳3200-INSERT-CHILD-SEG-GSAM, 9999-ABEND
- 3000-EXIT 1 stmts
- 3100-INSERT-PARENT-SEG-GSAM 5 stmts↳9999-ABEND
- 3100-EXIT 1 stmts
- 3200-INSERT-CHILD-SEG-GSAM 5 stmts↳9999-ABEND
- 3200-EXIT 1 stmts
- 4000-FILE-CLOSE 1 stmts
- 4000-EXIT 1 stmts
- 9999-ABEND 3 stmts
- 9999-EXIT 1 stmts