Batch program · IMS · 386 linesCBPAUP0C
How it is started
- Transactions
- none
- JCL steps
- CBPAUP0J.STEP01 PARM='BMP,CBPAUP0C,PSBPAUTB' (IMS region type BMP, PSB PSBPAUTB)
- Called by
- no callers in workspace
- USING
- IO-PCB-MASK, PGM-PCB-MASK
What it calls
No calls.
Paragraphs (17)
- MAIN-PARA 25 stmts↳1000-INITIALIZE, 2000-FIND-NEXT-AUTH-SUMMARY, 3000-FIND-NEXT-AUTH-DTL, 4000-CHECK-IF-EXPIRED, 5000-DELETE-AUTH-DTL, 6000-DELETE-AUTH-SUMMARY, 9000-TAKE-CHECKPOINT
- 1000-INITIALIZE 17 stmts
- 1000-EXIT 1 stmts
- 2000-FIND-NEXT-AUTH-SUMMARY 15 stmts↳9999-ABEND
- 2000-EXIT 1 stmts
- 3000-FIND-NEXT-AUTH-DTL 15 stmts↳9999-ABEND
- 3000-EXIT 1 stmts
- 4000-CHECK-IF-EXPIRED 10 stmts
- 4000-EXIT 1 stmts
- 5000-DELETE-AUTH-DTL 8 stmts↳9999-ABEND
- 5000-EXIT 1 stmts
- 6000-DELETE-AUTH-SUMMARY 8 stmts↳9999-ABEND
- 6000-EXIT 1 stmts
- 9000-TAKE-CHECKPOINT 8 stmts↳9999-ABEND
- 9000-EXIT 1 stmts
- 9999-ABEND 3 stmts
- 9999-EXIT 1 stmts