Batch program · IMS · 369 linesPAUDBLOD

Entry points

How it is started

Transactions: none
JCL steps: LOADPADB.STEP01 PARM='BMP,PAUDBLOD,PSBPAUTB' (IMS region type BMP, PSB PSBPAUTB)
Called by: no callers in workspace
USING: IO-PCB-MASK, PAUTBPCB

CALL · XCTL · LINK

CALL

CBLTDLI

FILE-CONTROL

File	DD	Organization	Opened	Bound by JCL to	Declared
INFILE1	INFILE1	SEQUENTIAL / SEQUENTIAL	INPUT	AWS.M2.CARDDEMO.PAUTDB.ROOT.FILEO LOADPADB.STEP01	PAUDBLOD.CBL:26
INFILE2	INFILE2	SEQUENTIAL / SEQUENTIAL	INPUT	AWS.M2.CARDDEMO.PAUTDB.CHILD.FILEO LOADPADB.STEP01	PAUDBLOD.CBL:32

PERFORM graph

MAIN-PARA 7 stmts
↳1000-INITIALIZE, 2000-READ-ROOT-SEG-FILE, 3000-READ-CHILD-SEG-FILE, 4000-FILE-CLOSE
1000-INITIALIZE 15 stmts
↳9999-ABEND
1000-EXIT 1 stmts
2000-READ-ROOT-SEG-FILE 7 stmts
↳2100-INSERT-ROOT-SEG
2000-EXIT 1 stmts
2100-INSERT-ROOT-SEG 10 stmts
↳9999-ABEND
2100-EXIT 1 stmts
3000-READ-CHILD-SEG-FILE 9 stmts
↳3100-INSERT-CHILD-SEG
3000-EXIT 1 stmts
3100-INSERT-CHILD-SEG 11 stmts
↳3200-INSERT-IMS-CALL, 9999-ABEND
3100-EXIT 1 stmts
3200-INSERT-IMS-CALL 9 stmts
↳9999-ABEND
3200-EXIT 1 stmts
4000-FILE-CLOSE 9 stmts
4000-EXIT 1 stmts
9999-ABEND 3 stmts
9999-EXIT 1 stmts

COPY