Routine: AIBCVT4

Information

AIBCVT4 ;IHS/DDPS/DFM-IBM STAT RECORDS INITIALIZE [ 01/28/89 1:05 PM ]

Package	Total	Call Graph
IBM DDPS Record Consolidation	1	OPCANCL^AIBCVT6
Kernel	1	^%ZIS
VA Fileman	1	^%DT

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	AIBCVT

Name	Comments	DBIA/ICR reference
GLOBOK	;GLOBAL WAS FOUND
CKGLOB	;CHECK IF GLOBAL EXISTS
RDTYPE	;GET TYPE FROM OPERATOR
SELPRINT	;SELECT PRINTER TO USE
INIT	;HOUSEKEEPING INITIALIZE FIELDS ROUTINE
CKTYPE	;CHECK TYPE OF FILE TO WRITE - keytap=TAPE, ibmjob=RJE CARDS
RETURN	;RETURN TO CALLING ROUTINE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Choose Filetype to Generate :" Line Location: RDTYPE+1
Function Call: WRITE	Prompt: !," K - Keytape" Line Location: RDTYPE+2
Function Call: WRITE	Prompt: !," I - Ibmjob" Line Location: RDTYPE+3
Function Call: WRITE	Prompt: !," ^ - Abort run" Line Location: RDTYPE+4
Function Call: WRITE	Prompt: ! Line Location: CKGLOB+3
Routine Call	%ZIS Line Location: SELPRINT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	INIT+6

Name	Field # of Occurrence
>> %DT	INIT+8*
>> %IS("A"	SELPRINT+2*
>> %IS("B"	SELPRINT+2*
>> AIB2ND	INIT+5*
>> AIBA	INIT+4, CKTYPE+3, CKGLOB+5, GLOBOK+4
>> AIBAGI	INIT+2*
>> AIBAGO	INIT+2*
>> AIBCDV	INIT+1*, RDTYPE+1, CKGLOB+3
>> AIBCRG1	INIT+2*
>> AIBCT2	INIT+1*
>> AIBCTB	INIT+1*
>> AIBCTE	INIT+1*
>> AIBCTH	INIT+1*
>> AIBCTI	INIT+1*
>> AIBCTJ	INIT+1*
>> AIBCTO	INIT+1*
>> AIBCTW	INIT+1*
>> AIBDIR	CKGLOB+2*
>> AIBDSH	INIT+7*
>> AIBFILE	CKTYPE+1, CKTYPE+2, CKTYPE+3, RDTYPE+5, RDTYPE+6, RDTYPE+7
>> AIBFSQ	INIT+3*
>> AIBG	INIT+4*
>> AIBGBFT	GLOBOK+1*
>> AIBGBL	CKGLOB+1*, CKGLOB+4, CKGLOB+5, GLOBOK+1
>> AIBGBLP	INIT+14, INIT+15*, CKGLOB+1
>> AIBGBLT	GLOBOK+1*, GLOBOK+2, GLOBOK+3, GLOBOK+5
>> AIBGCT2	INIT+3*
>> AIBGCTB	INIT+3*
>> AIBGCTE	INIT+3*
>> AIBGCTI	INIT+3*
>> AIBGCTO	INIT+3*
>> AIBH1	INIT+9*
>> AIBH2	INIT+4, INIT+9
>> AIBH3	INIT+10*
>> AIBH4	INIT+12*
>> AIBH5	INIT+11*
>> AIBIN	GLOBOK+5*
>> AIBMSG	INIT+4, CKGLOB+5, GLOBOK+4*
>> AIBOS	INIT+6*, CKTYPE+1
>> AIBOT	INIT+4*
>> AIBOT(1	INIT+4*
>> AIBPDV	SELPRINT+1, SELPRINT+2*
>> AIBRLN	INIT+2*
>> AIBSEQ	INIT+5*
>> AIBT2	INIT+5*
>> AIBTC	INIT+5*
>> AIBTDV	INIT+4*
>> AIBTZ	CKGLOB+1*
>> AIBTZ(0	CKGLOB+1*
>> AIBYMD	INIT+8*, INIT+10
>> AIBZ	CKGLOB+1, GLOBOK+1, GLOBOK+2, GLOBOK+3, GLOBOK+4
>> AIBZ(0	CKGLOB+1*
>> AIBZRS	INIT+7*
>> AIBZZ	CKGLOB+1*
DTIME	INIT+13*, INIT+15, RDTYPE+5
IO	SELPRINT+2
>> IOP	SELPRINT+1*
U	INIT+7*, CKGLOB+1
>> WARN	INIT+7*
>> X	INIT+8*
>> Y	INIT+8
>> YES	INIT+7*