Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AIBMRG1

Package: IBM DDPS Record Consolidation

Routine: AIBMRG1


Information

AIBMRG1 ;RPMS/CMB/TJF ;GENERIC GLOBAL MERGE MULTIPLE REEL ROUTINE [ 02/01/89 9:13 AM ]

Source Information

Source file <AIBMRG1.m>

Call Graph

Call Graph Total: 1

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

Caller Graph

Caller Graph Total: 1

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All