Routine: AIBCVT2

Package	Total	Call Graph
IBM DDPS Record Consolidation	1	DATIME^AIBCVT6

Package	Total	Caller Graph
IBM DDPS Record Consolidation	2	AIBCVT AIBCVT1

Name	Comments	DBIA/ICR reference
RETURN	;RETURN TO CALLING PROGRAM
WREJCT	;WRITE REJECTED COUNT
GTOTS	;GRAND TOTALS
WTOTAL	;WRITE TOTAL RECORD COUNT ; I AIBFILE="ibmjob" G WRJETOT
FACFOOT	;FACILITY FOOTING LINES
CKBAL	;CHECK IF TOTALS BALANCE
FACHEAD	;PRINT NEXT FACILITY HEADINGS
WRJETOT	;WRITE TOTAL CARDS CREATED
CKDELMRG	;CHECK REGISTRATION DELETE MERGE PRESENT
EOJ	;END OF JOB PROCESSING
ZEROUT	;RESET FACILITY COUNTERS
CKLAST	;IF REGISTRATION CHECK IF DONE
TAPE	;TAPE TO BE CREATED
BAL	;BALANCE LOGIC
GBLHEAD	;PROCESS GLOBAL HEADINGS

Name	Field # of Occurrence
DATIME^AIBCVT6	GBLHEAD+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: #,?20,AIBCNM_" CONVERSION RUNNING",! Line Location: GBLHEAD+4
Function Call: WRITE	Prompt: !,"Global Beginning Date ",AIBGBD Line Location: GBLHEAD+5
Function Call: WRITE	Prompt: !,"Global Ending Date ",AIBGED Line Location: GBLHEAD+6
Function Call: WRITE	Prompt: !,"Global Header Record Count ",AIBGCTH Line Location: GBLHEAD+7
Function Call: WRITE	Prompt: !!,"Processing Begun ",AIBDT," ",AIBTI,! Line Location: GBLHEAD+8
Function Call: WRITE	Prompt: #!!!,?10,AIBMSG Line Location: FACHEAD+2
Function Call: WRITE	Prompt: !!,AIBMSG," ",! Line Location: FACHEAD+3
Function Call: WRITE	Prompt: !,"Facility Data Beginning Date ",AIBFBD Line Location: FACHEAD+4
Function Call: WRITE	Prompt: !,"Facility Data Ending Date ",AIBFED Line Location: FACHEAD+5
Function Call: WRITE	Prompt: !,"Facility Header Record Count ",AIBFCT,! Line Location: FACHEAD+6
Function Call: WRITE	Prompt: !,"Facility Records Created ",AIBCTO+AIBCTB,! Line Location: FACFOOT+1
Function Call: WRITE	Prompt: "Facility RJE Data Records Created ",AIBCTW-AIBCTH,! Line Location: FACFOOT+2
Function Call: WRITE	Prompt: !!!,"Facility Records Read ",AIBCTI+AIBCTE+AIBCT2 Line Location: FACFOOT+3
Function Call: WRITE	Prompt: !,"Facility Records Written To ",AIBTGBL,"GLOB ",AIBCT2 Line Location: FACFOOT+6
Function Call: WRITE	Prompt: !,"Facility Records Rejected ",AIBCTE Line Location: WREJCT+1
Function Call: WRITE	Prompt: !,"Facility REG DEL/MRG Batch Header Records Created ",AIBCTB Line Location: WREJCT+3
Function Call: WRITE	Prompt: !,"Facility Records Written ",AIBCTO+AIBCTB Line Location: WTOTAL+2
Function Call: WRITE	Prompt: !,"Facility RJE Data Records Created ",AIBCTW-AIBCTH Line Location: WRJETOT+1
Function Call: WRITE	Prompt: !!,"Facility Counts Balanced" Line Location: CKBAL+2
Function Call: WRITE	Prompt: !!,"******** Facility Counts Don't Balance ********" Line Location: CKBAL+4
Function Call: WRITE	Prompt: !," Facility Header Count = ",AIBFCT Line Location: CKBAL+5
Function Call: WRITE	Prompt: !," Input Count = ",AIBCTI Line Location: CKBAL+6
Function Call: WRITE	Prompt: !,$S(AIBDIF>0:" Over by ",1:" Short by "),AIBDIF Line Location: CKBAL+7
Function Call: WRITE	Prompt: #,?20,AIBCNM_" CONVERSION TOTALS",! Line Location: EOJ+1
Function Call: WRITE	Prompt: !,"Global Total Records Written ",AIBGCTO+AIBGCTB Line Location: EOJ+2
Function Call: WRITE	Prompt: !!!,"Total Records Read ",AIBGCTI Line Location: EOJ+6
Function Call: WRITE	Prompt: !,"Total Records Rejected ",AIBGCTE Line Location: EOJ+7
Function Call: WRITE	Prompt: !,"Total Records Written to ",AIBTGBL,"GLOB ",AIBGCT2 Line Location: EOJ+9
Function Call: WRITE	Prompt: !,"Facility REG DEL/MRG Batch Header Records Created ",AIBGCTB Line Location: CKDELMRG+2
Function Call: WRITE	Prompt: !,"Total RJE Data Record Count ",AIBCTW Line Location: GTOTS+2
Function Call: WRITE	Prompt: !,"Total RJE JCL Record Count ",AIBCTJ Line Location: GTOTS+3
Function Call: WRITE	Prompt: !,"Total RJE Records to Transmit ",AIBCTW+AIBCTJ Line Location: GTOTS+4
Function Call: WRITE	Prompt: !,"Total Records Written ",AIBGCTO+AIBGCTB Line Location: GTOTS+5
Function Call: WRITE	Prompt: !,"Total Records Written ",AIBGCTO+AIBGCTB Line Location: TAPE+1
Function Call: WRITE	Prompt: !!,"***** Keytape Volume Serial Number To Create ",AIBV," *****" Line Location: TAPE+2
Function Call: WRITE	Prompt: !!,"Global Counts Balanced" Line Location: BAL+1
Function Call: WRITE	Prompt: !!,"******** Global Counts Out of Balance ********" Line Location: BAL+3
Function Call: WRITE	Prompt: !," Global Header Count = ",AIBGCTH Line Location: BAL+4
Function Call: WRITE	Prompt: !," Input Count = ",AIBGCTI Line Location: BAL+5
Function Call: WRITE	Prompt: !,$S(AIBDIF<0:" Over by ",1:" Short by "),AIBDIF Line Location: BAL+6
Function Call: WRITE	Prompt: #,?17,"REGISTRATION CONVERSION LOGBOOK DATA",! Line Location: CKLAST+3
Function Call: WRITE	Prompt: !!,"TOTAL TO USE TO BALANCE TO INPUT ",AIBAGI Line Location: CKLAST+4
Function Call: WRITE	Prompt: !,"TOTAL RECORDS TO BE ENTERED INTO PCIS LOGBOOK ",AIBAGO Line Location: CKLAST+5

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

Name	Line Occurrences
BAL	GTOTS+6
CKBAL	WTOTAL+4
CKDELMRG	EOJ+8, EOJ+12
CKLAST	BAL+1
GTOTS	CKDELMRG+1
RETURN	GBLHEAD+8, FACHEAD+7, ZEROUT+1, CKLAST+2
TAPE	GTOTS+1
WREJCT	FACFOOT+5
WTOTAL	WREJCT+2
ZEROUT	CKBAL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AIBAGI	EOJ+5, CKLAST+4, CKLAST+6
>> AIBAGO	EOJ+3, CKLAST+5, CKLAST+6
>> AIBCDV	FACHEAD+3, FACFOOT+1, EOJ+2
>> AIBCNM	GBLHEAD+4, FACHEAD+1, EOJ+1
>> AIBCRG1	EOJ+4, CKLAST+1
>> AIBCT2	FACFOOT+3, FACFOOT+6, FACFOOT+7, CKBAL+1, ZEROUT+1*
>> AIBCTB	FACFOOT+1, WREJCT+2, WREJCT+3, WREJCT+4*, WTOTAL+2
>> AIBCTE	FACFOOT+3, WREJCT+1, CKBAL+1, ZEROUT+1*
>> AIBCTH	FACFOOT+2, WRJETOT+1, WRJETOT+2*
>> AIBCTI	FACFOOT+3, FACFOOT+4, CKBAL+1, CKBAL+2, CKBAL+3, CKBAL+6, ZEROUT+1
>> AIBCTJ	GTOTS+3, GTOTS+4
>> AIBCTO	FACFOOT+1, WTOTAL+2, WTOTAL+3*
>> AIBCTW	FACFOOT+2, WRJETOT+1, WRJETOT+2, GTOTS+2, GTOTS+4
AIBDIF	CKBAL+3, CKBAL+7!, BAL+2, BAL+6!
>> AIBDT	GBLHEAD+8
>> AIBFBD	FACHEAD+4
>> AIBFCD	FACHEAD+1
>> AIBFCT	FACHEAD+6, CKBAL+2, CKBAL+3, CKBAL+5
>> AIBFED	FACHEAD+5
>> AIBFILE	FACFOOT+2, GTOTS+1
>> AIBFNR	FACHEAD+1
>> AIBGBD	GBLHEAD+2*, GBLHEAD+5
>> AIBGBLP	CKLAST+2
>> AIBGCT2	FACFOOT+7, EOJ+5, EOJ+9, EOJ+11, CKLAST+1
>> AIBGCTB	WREJCT+4, EOJ+2, EOJ+3, CKDELMRG+1, CKDELMRG+2, GTOTS+5, TAPE+1, CKLAST+1
>> AIBGCTE	WREJCT+1, EOJ+4, EOJ+7, CKLAST+1
>> AIBGCTH	GBLHEAD+1*, GBLHEAD+7, BAL+1, BAL+2, BAL+4
>> AIBGCTI	FACFOOT+4, EOJ+4, EOJ+5, EOJ+6, BAL+1, BAL+2, BAL+5, CKLAST+1
>> AIBGCTO	WTOTAL+3, EOJ+2, EOJ+3, GTOTS+5, TAPE+1, CKLAST+1
>> AIBGED	GBLHEAD+3*, GBLHEAD+6
>> AIBIN	GBLHEAD+1, GBLHEAD+2, GBLHEAD+3
>> AIBMSG	FACHEAD+1, FACHEAD+2, FACHEAD+3
>> AIBPDV	GBLHEAD+4, FACHEAD+2, FACHEAD+3, FACFOOT+3, EOJ+1, EOJ+2, CKLAST+3
>> AIBTGBL	FACFOOT+5, FACFOOT+6, EOJ+8, EOJ+9
>> AIBTGFT	EOJ+13*
>> AIBTGLT	EOJ+11*
>> AIBTI	GBLHEAD+8
>> AIBTZ	EOJ+10*
>> AIBTZ(0	EOJ+10*, EOJ+12, EOJ+13
>> AIBV	TAPE+2
>> AIBZ	EOJ+11, EOJ+13
>> AIBZ(0	EOJ+13
>> AIBZZ	EOJ+11*
U	GBLHEAD+1, GBLHEAD+2, GBLHEAD+3, EOJ+11, EOJ+13
>> Y	GBLHEAD+2, GBLHEAD+3

Customize PDF page

Package: IBM DDPS Record Consolidation

Routine: AIBCVT2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: