Routine: AIBCVT1

Information

AIBCVT1 ;IHS/DDPS/DFM-IBM STAT RECORDS NODE PROCESSING [ 09/23/88 11:52 AM ]

Source file <AIBCVT1.m>

Package	Total	Call Graph
IBM DDPS Record Consolidation	4	(FACFOOT,FACHEAD)^AIBCVT2 (,WRITET)^AIBCVT3 FIELDS^AIBCVT5 ERRMSP^AIBCVT6

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	AIBCVT

Name	Comments	DBIA/ICR reference
RETURN	;RETURN TO CALLING ROUTINE
EOD	;RECORD COMPLETE
PROCESS	;READ FACILITY HEADER RECORD
EOJ	;END OF GLOBAL PROCESSING
CKTEMP	;CHECK IF SECONDARY FILE IS BEING CREATED
ERROR	;ERROR PROCESSING ROUTINE
NODERR	;PROCESS NODE ERROR
WRITE	;PERFORM WRITE ROUTINE
READREC	;PROCESS INITIAL NODE FOR FACILITY
ABEND	;ABNORMAL END OR PROCESSING
FACFOUND	;FACILITY HEADER RECORD FOUND
GOODNODE	;PROCESS FIELDS IN NODE
NEXTFAC	;WRITE FACILITY FOOTINGS, GO GET NEXT FACILITY
READNODE	;PROCESS NEXT NODE
OVERFLOW	;MORE THAT 250 CHARACTER RECORD - OVERFLOW IN AIBOT(1)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ERROR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FACFOUND+2

Name	Field # of Occurrence
>> AIBA	EOJ+1, ABEND+1
>> AIBC	READNODE+2*, GOODNODE+2
>> AIBC(	READNODE+2, READNODE+5
>> AIBC(0	READNODE+4, READNODE+5*, GOODNODE+4
>> AIBCK	READNODE+2*, READNODE+3, NODERR+1
>> AIBCN1	READREC+1, READNODE+2, READNODE+4, READNODE+5, GOODNODE+4
>> AIBCTE	ERROR+1*
>> AIBCTI	GOODNODE+3*
>> AIBCTO	EOD+1*
>> AIBER	GOODNODE+1, GOODNODE+2, NODERR+1, ERROR+1
>> AIBFBD	FACFOUND+2*
>> AIBFCD	FACFOUND+1*
>> AIBFCT	FACFOUND+3*
>> AIBFED	FACFOUND+2*
>> AIBFNR	FACFOUND+1*
>> AIBFSQ	FACFOUND+1*
>> AIBGBFT	PROCESS+2, READNODE+1, READNODE+2
>> AIBGBLT	PROCESS+1
>> AIBI	GOODNODE+2*
>> AIBIN	PROCESS+2, FACFOUND+1, FACFOUND+2, FACFOUND+3, READNODE+2, ERROR+2
>> AIBMSG	PROCESS+3, NODERR+1, ERROR+2*
>> AIBNK	READNODE+2*, READNODE+3, READNODE+5, GOODNODE+3, NODERR+1
>> AIBOT	EOD+3, EOD+4, OVERFLOW+1*, OVERFLOW+3
>> AIBOT(1	OVERFLOW+2, OVERFLOW+3
>> AIBRLN	EOD+2, EOD+3, EOD+4, OVERFLOW+2, OVERFLOW+3
>> AIBTMP	CKTEMP+1
>> AIBZ	PROCESS+1*, FACFOUND+1
>> AIBZZ	PROCESS+2, READNODE+1
U	FACFOUND+1, FACFOUND+2, FACFOUND+3, READNODE+2, READNODE+5
>> Y	FACFOUND+2*