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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AIBMRG

Package: IBM DDPS Record Consolidation

Routine: AIBMRG


Information

AIBMRG ;RPMS/CMB/TJF ;GENERIC IBM DATA GLOBAL MERGE ROUTINE [ 02/01/89 8:29 AM ]

Source Information

Source file <AIBMRG.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IBM DDPS Record Consolidation 2 (ABEND,OPCANCL)^AIBCVT6  (FACSET,FACTSET,INIT,KILLVAR,NEXTFILE,UPDATE,ZERSET)^AIBMRG1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IBM DDPS Record Consolidation 1 AIBTCFLM  

Entry Points

Name Comments DBIA/ICR reference
RTVFCZN ;RETREIVE FACILITY DATA FROM ZEROTH FACILITY NODE IN MERGE GLOBAL
RETURN ;RETURN TO CALLING PROGRAM
FILERROR ;ERROR IN FILE FORMAT - ABEND AFTER MESSAGE
READ ;READ NEXT RECORD NODE DATA FROM INPUT FILE
CKPCCEOF ;END OF FILE LOGIC FOR PCC FLAT FILE
PCCMSG ;SET SWITCH FOR PCC LOGIC AND DISPLAY MESSAGE
PCCGBLNM ;INITIALIZE GLOBAL PREFIX NAME FOR PCC
NEXTVOL ;PROCESS NEXT VOLUME OF FILE
ENDFILE ;END OF FILE PROCESSING
NOMRG ;DISALLOW MULTIPLE MERGE FOR A FACILITY
INITINDR ;INITIALIZE INDIRECTION VARIABLES
BEGIN ;ENTRY POINT FOR FRONT END TELECOMMUNICATIONS PROGRAM AIBTCFLM
NEXTGBL ;PROCESS NEXT FILE
SKIPSUBD ;SKIP SUBSCRIPTS FOR DATA RECORDS - PCC FLAT FILE
START ;BEGIN MERGING FILE
OPCANCL ;ABEND BECAUSE OPERATOR CANCLED JOB
SETPCCID ;SET NODE ID PIECE FOR PCC
SKIPSUBZ ;SKIP READ OF ZEROTH NODE SUBSCRIPT DATA - PCC FLAT FILE
QUIT ;
RTVGTZN ;RETREVE VARIABLES FROM GRAND TOTAL ZEROTH NODE IN MERGE GLOBAL
INTRO ;INITIALIZATION LOGIC
BLDNODE ;PLACE DATA IN MERGE GLOBAL RECORD NODE
READCMT ;READ COMMENT FROM SAVED GLOBAL FILE
ABEND ;ABNORMAL END OF JOB

External References

Name Field # of Occurrence
ABEND^AIBCVT6 ABEND+1
OPCANCL^AIBCVT6 OPCANCL+1
FACSET^AIBMRG1 RTVFCZN+1
FACTSET^AIBMRG1 INITINDR+1
INIT^AIBMRG1 BEGIN+1
KILLVAR^AIBMRG1 ABEND+1, OPCANCL+1
NEXTFILE^AIBMRG1 SKIPSUBZ+2, SKIPSUBD+2
UPDATE^AIBMRG1 ENDFILE+1
ZERSET^AIBMRG1 RTVGTZN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"GENERIC MERGE FILE TO GLOBAL PROGRAM FOR IBM RECORDS"
  • Line Location: INTRO+2
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBTIME
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"Begin merging Patient Care Component records"
  • Line Location: PCCMSG+2
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBCMT
  • Line Location: READCMT+1
Function Call: WRITE
  • Prompt: !!,"Global saved at ",AIBTIME,".",!,"Header comment is : ",AIBCMT,!
  • Line Location: READCMT+3
Function Call: WRITE
  • Prompt: !!,"Begin Merging of Global: "
  • Line Location: START+1
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBGN
  • Line Location: NEXTVOL+2
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBGV
  • Line Location: SKIPSUBZ+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: SKIPSUBZ+8
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBGN
  • Line Location: READ+2
Function Call: READ
  • Timeout: DTIME
  • Variable: AIBGV
  • Line Location: SKIPSUBD+1
Function Call: WRITE
  • Prompt: !," ... Global Merged"
  • Line Location: SKIPSUBD+4
Function Call: WRITE
  • Prompt: AIBLK,AIBRC
  • Line Location: BLDNODE+6

Label References

Name Line Occurrences
ABEND BEGIN+1, RTVGTZN+1, RTVFCZN+1, NOMRG+1
BEGIN ENDFILE+4
BLDNODE RTVFCZN+5, SKIPSUBD+6
CKPCCEOF SKIPSUBD+1
ENDFILE SKIPSUBZ+3, SKIPSUBD+3, SKIPSUBD+5, CKPCCEOF+1
FILERROR BEGIN+2, READCMT+1, NEXTVOL+2, SKIPSUBZ+1, SKIPSUBZ+3, SKIPSUBZ+8, READ+2, SKIPSUBD+1, SKIPSUBD+2
INITINDR SKIPSUBZ+6
NEXTGBL SKIPSUBZ+3, SKIPSUBZ+7, SKIPSUBZ+9, SKIPSUBD+4, SKIPSUBD+5
NEXTVOL SKIPSUBZ+2, SKIPSUBZ+4
NOMRG RTVFCZN+2
OPCANCL BEGIN+1
PCCGBLNM PCCMSG+3, SKIPSUBZ+1
PCCMSG BEGIN+3
QUIT ENDFILE+2, ENDFILE+4, ABEND+1, OPCANCL+1
READ SKIPSUBD+2, BLDNODE+4, BLDNODE+5, BLDNODE+6
READCMT BEGIN+4
RETURN QUIT+1
RTVGTZN INITINDR+2
SETPCCID CKPCCEOF+1
SKIPSUBD READ+1
SKIPSUBZ NEXTVOL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AIBA BEGIN+1, RTVGTZN+1, RTVFCZN+1, ENDFILE+3*, ENDFILE+4*
>> AIBCDV PCCMSG+2, READCMT+2, START+1, SKIPSUBD+4, BLDNODE+5
>> AIBCMT READCMT+1*, READCMT+3
>> AIBCT RTVFCZN+3*, BLDNODE+3*
>> AIBDEV BEGIN+2, READCMT+1, NEXTVOL+1, READ+1
>> AIBFFN INTRO+1*, ENDFILE+2
>> AIBGBLD BLDNODE+2
>> AIBGBLN INITINDR+2, INITINDR+3
>> AIBGN NEXTVOL+2*, SKIPSUBZ+2, SKIPSUBZ+3, SKIPSUBZ+4, SKIPSUBZ+5, READ+2*, SKIPSUBD+2, SKIPSUBD+3, SKIPSUBD+4, SKIPSUBD+5
>> AIBGNL SKIPSUBZ+5*, PCCGBLNM+1*
>> AIBGNN SKIPSUBZ+5*, PCCGBLNM+1*
AIBGSEL NEXTGBL+1!, SKIPSUBZ+4*, SKIPSUBZ+5*, PCCGBLNM+1*, RTVFCZN+2, BLDNODE+1
>> AIBGV PCCMSG+3*, SKIPSUBZ+1*, SKIPSUBZ+6, SKIPSUBD+1*, CKPCCEOF+1, SETPCCID+1*, BLDNODE+1*, BLDNODE+2, BLDNODE+3
>> AIBLK BLDNODE+6*
>> AIBMSG NOMRG+1*, FILERROR+1*
>> AIBNC RTVFCZN+4*, RTVFCZN+5*, BLDNODE+3*
AIBOS SKIPSUBZ+7, QUIT+1!
>> AIBPARMS BEGIN+1
>> AIBPCC PCCMSG+1*, NEXTVOL+1, SKIPSUBZ+1, RTVFCZN+5, READ+1, SKIPSUBD+1
>> AIBPSV BEGIN+1*
>> AIBRC RTVFCZN+4*, RTVFCZN+5*, BLDNODE+3*, BLDNODE+5, BLDNODE+6
>> AIBRM BLDNODE+5*
>> AIBS RTVFCZN+2, RTVFCZN+3
>> AIBSEQ READCMT+2*
>> AIBTIME BEGIN+2*, BEGIN+3, PCCMSG+3, READCMT+1, READCMT+3
>> AIBTONL BEGIN+2, READCMT+1, NEXTVOL+2, SKIPSUBZ+1, READ+2, SKIPSUBD+1
>> AIBZN RTVGTZN+2*
DTIME INTRO+1*, BEGIN+2, READCMT+1, NEXTVOL+2, SKIPSUBZ+1, SKIPSUBZ+8, READ+2, SKIPSUBD+1, ENDFILE+3
>> QUIT SKIPSUBZ+2, SKIPSUBD+2
U SETPCCID+1, BLDNODE+1
>> X SKIPSUBZ+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All