Routine: AIBMRG1

Package	Total	Call Graph
IBM DDPS Record Consolidation	1	(CLOSE,IN,OPEN)^AIBSDEV

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	AIBMRG

Entry Points

Name	Comments	DBIA/ICR reference
RETURN	;RETURN TO CALLING ROUTINE
ZERSET	;
FACSET	;
NEXTFILE	;
SEQNO
KILLVAR	;KILL LOCAL VARIABLES
UPDATE	;BALANCE CHECK
BLDPCC	;BUILD PCC FACILITY ZEROTH NODE DATA
COMPUTE	;UPDATE ZEROTH NODES IN MERGE GLOBAL
NEXTFIL1
INIT	;INITIALIZE FIELDS
PCCFACL	;FIND FACILITY LOCATION FOR PCC
GETFCDAT	;GET FACILITY DATA FROM INPUT FILE
CKMLOG	;CHECK MERGE LOG FILE
NXTSEQ	;RETRY ACCESS OF FILE
FACTSET	;SETUP FACILITY TAPE HEADER VALUES

External References

Name	Field # of Occurrence
CLOSE^AIBSDEV	NEXTFIL1+2, UPDATE+1
IN^AIBSDEV	INIT+6
OPEN^AIBSDEV	NEXTFIL1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sequence #",AIBSEQ," restored",! Line Location: NEXTFILE+1
Function Call: READ	Timeout: DTIME Variable: AIBXX Line Location: NEXTFILE+2
Function Call: WRITE	Prompt: !,"Please put sequence #",AIBSEQ+1," into the drive and" Line Location: SEQNO+0
Function Call: READ	Prompt: "Press <RETURN> when ready" Formatting: ! Timeout: DTIME Variable: AIBXX Line Location: NEXTFIL1+0
Function Call: WRITE	Prompt: !!,"Press <RETURN> to continue restoring from sequence #",AIBSEQ,!,"or abort the restore by entering 'control C'" Line Location: NEXTFIL1+1
Function Call: READ	Timeout: DTIME Variable: AIBXX Line Location: NEXTFIL1+3
Function Call: WRITE	Prompt: !!,"Cannot access ",AIBFN,", please correct" Line Location: NEXTFIL1+5
Function Call: WRITE	Prompt: !!,"Out of sequence, this file is #",AIBXX,", please correct" Line Location: NEXTFIL1+7
Function Call: WRITE	Prompt: !!,"Cannot access ",AIBFN,", please correct" Line Location: NXTSEQ+1
Function Call: WRITE	Prompt: AIBGSEL,! Line Location: FACTSET+1
Function Call: WRITE	Prompt: !!,"# Records Merged and Tape Count Not Equal" Line Location: UPDATE+3
Function Call: WRITE	Prompt: !,"Tape count was ",AIBFCT Line Location: UPDATE+4
Function Call: WRITE	Prompt: !!,"Merge Complete"," ",AIBRC Line Location: COMPUTE+11
Function Call: WRITE	Prompt: " Records Merged ",AIBNC," Nodes Merged" Line Location: COMPUTE+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	INIT+3
^AUTTLOC - [#9999999.06]	PCCFACL+3
^AUTTLOC("C"	PCCFACL+1

Label References

Name	Line Occurrences
BLDPCC	PCCFACL+2
CKMLOG	ZERSET+6
COMPUTE	UPDATE+2
GETFCDAT	FACTSET+7
NEXTFIL1	NEXTFIL1, NEXTFIL1+1, NEXTFIL1+5, NEXTFIL1+7, NXTSEQ+2
NXTSEQ	NEXTFIL1+3
PCCFACL	FACTSET+6
RETURN	INIT+7, NEXTFILE+2, NEXTFIL1+8, GETFCDAT+10, CKMLOG+2, FACSET+6
SEQNO	NEXTFILE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	KILLVAR+8!
%MT	KILLVAR+8!
AIB	KILLVAR+8!
AIBA	INIT+2*, KILLVAR+1!
AIBANS	KILLVAR+8!
AIBCDV	INIT+3*, NEXTFILE+1, NEXTFILE+2, SEQNO, NEXTFIL1+4, NXTSEQ+1, FACTSET+1, UPDATE+3, COMPUTE+10, KILLVAR+1!
AIBCMT	KILLVAR+8!
AIBCT	COMPUTE+9, KILLVAR+1!
>> AIBDEV	NEXTFILE+2, NEXTFIL1+3, UPDATE+1
AIBFBD	INIT+5!, FACSET+1*, COMPUTE+6, KILLVAR+2!
AIBFCT	GETFCDAT+7*, UPDATE+2, UPDATE+4, KILLVAR+2!
AIBFD	INIT+2!, FACTSET+7, BLDPCC+1, GETFCDAT+1, GETFCDAT+2, GETFCDAT+3, GETFCDAT+4, GETFCDAT+5, GETFCDAT+6, GETFCDAT+7 , GETFCDAT+8, GETFCDAT+9, ZERSET+7, ZERSET+8, ZERSET+11, KILLVAR+2!
AIBFED	INIT+5!, FACSET+2*, COMPUTE+7, KILLVAR+2!
AIBFN	NEXTFIL1+5, NXTSEQ+1, KILLVAR+8!
AIBFNM	FACSET+5*, KILLVAR+2!
AIBFRD	GETFCDAT+3*, KILLVAR+3!
AIBFTB	GETFCDAT+4*, COMPUTE+1, COMPUTE+6, KILLVAR+3!
AIBFTC	GETFCDAT+8*, KILLVAR+3!
AIBFTD	GETFCDAT+9*, KILLVAR+3!
AIBFTE	GETFCDAT+5*, COMPUTE+2, COMPUTE+7, KILLVAR+3!
AIBFTL	GETFCDAT+1*, COMPUTE+5, KILLVAR+3!
AIBFTN	GETFCDAT+2*, KILLVAR+3!
AIBFTR	INIT+5!, FACSET+3*, COMPUTE+8, KILLVAR+3!
AIBFTT	GETFCDAT+6*, KILLVAR+3!
AIBGBL	INIT+2!, FACTSET+2*, FACTSET+3, FACTSET+4, FACTSET+5, KILLVAR+4!
AIBGBLD	FACTSET+5*, KILLVAR+4!
AIBGBLF	FACTSET+4, ZERSET+6, ZERSET+7, ZERSET+8, ZERSET+9, ZERSET+10, ZERSET+11, FACSET+1, FACSET+2, FACSET+3 , FACSET+4, FACSET+5, COMPUTE+6, COMPUTE+7, COMPUTE+8, COMPUTE+9, KILLVAR+4!
AIBGBLN	FACTSET+3, ZERSET+1, ZERSET+2, ZERSET+3, ZERSET+4, ZERSET+5, COMPUTE+1, COMPUTE+2, COMPUTE+3, COMPUTE+4* , COMPUTE+5*, KILLVAR+4!
>> AIBGBLP	FACTSET+2*
AIBGN	KILLVAR+8!
AIBGNL	KILLVAR+8!
AIBGNN	KILLVAR+8!
AIBGSEL	FACTSET+1, FACTSET+2, KILLVAR+8!
AIBGV	FACTSET+7, PCCFACL+1, KILLVAR+8!
AIBLK	KILLVAR+4!
AIBMSG	INIT+2*, KILLVAR+4!
AIBNC	COMPUTE+12, KILLVAR+5!
>> AIBOS	INIT+3, INIT+4
AIBPARMS	NEXTFIL1+2*, KILLVAR+8!
AIBPCC	INIT+1*, FACTSET+6, UPDATE+2, KILLVAR+5!
AIBPSV	NEXTFIL1+2, KILLVAR+5!
AIBR	KILLVAR+5!
AIBRC	UPDATE+2, COMPUTE+4, COMPUTE+8, COMPUTE+11, KILLVAR+5!
AIBRM	KILLVAR+5!
AIBS	INIT+5!, FACSET+4*, KILLVAR+5!
AIBSBP	KILLVAR+9!
AIBSEL	KILLVAR+9!
AIBSEQ	INIT+2, NEXTFILE+1, SEQNO, SEQNO+1, NEXTFIL1+1, NEXTFIL1+7, KILLVAR+9!
AIBSIZE	KILLVAR+9!
AIBT	KILLVAR+9!
AIBT2	KILLVAR+5!
AIBTDV	KILLVAR+5!
AIBTIME	KILLVAR+8!
AIBTONL	KILLVAR+5!
AIBV	KILLVAR+5!
AIBW	PCCFACL+1*, BLDPCC+1, KILLVAR+6!
AIBX	PCCFACL+1*, PCCFACL+2, PCCFACL+3, KILLVAR+6!
AIBXX	NEXTFILE+2, NEXTFIL1, NEXTFIL1+1, NEXTFIL1+3, NEXTFIL1+6, NEXTFIL1+7, KILLVAR+9!
AIBY	PCCFACL+1, PCCFACL+3, BLDPCC+1, KILLVAR+6!
AIBZB	ZERSET+1*, COMPUTE+1, KILLVAR+6!
AIBZE	ZERSET+2*, COMPUTE+2, KILLVAR+6!
AIBZF	ZERSET+5*, KILLVAR+6!
AIBZN	ZERSET+3*, COMPUTE+3, KILLVAR+6!
AIBZR	ZERSET+4*, COMPUTE+4, KILLVAR+6!
DTIME	NEXTFILE+2, NEXTFIL1, NEXTFIL1+3
>> IN	NEXTFIL1+2*
IO	KILLVAR+7!
IO(0	INIT+3*
QUIT	NEXTFILE+2, NEXTFIL1+8, KILLVAR+7!
U	INIT+1*, FACTSET+2, PCCFACL+3, BLDPCC+1
X	INIT+2!, KILLVAR+7!
Y	KILLVAR+7!

Customize PDF page

Package: IBM DDPS Record Consolidation

Routine: AIBMRG1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: