Routine: AIBMRG

Information

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

Source file <AIBMRG.m>

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

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	AIBTCFLM

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

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

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

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*