Routine: DIOU

Information

DIOU ;SFISC/TKW-GENERIC FILEMAN CODE GENERATION UTILITIES ;03:57 PM 5 Dec 2001 [ 12/09/2003 4:33 PM ]

Source file <DIOU.m>

Package	Total	Call Graph
VA Fileman	2	%XY^%RCR $$QUOTE^DILIBF

Package	Total	Caller Graph
VA Fileman	11	DICA1 DIEF DIEFW DIEV DIEVS DIO1 DIOS DIP DIP1 DIP12 DIVR1

Name	Field # of Occurrence
%XY^%RCR	V2+3
$$QUOTE^DILIBF	GLRF+2, GLRF+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(	BIJ+1, BIJ+3, GREF+1, GLRF+1, GLRF+4, GLRF+6, GET+2, DTYP+2, D2, D2+4 , V2
^DI(	D2+2
^DIC - [#1]	X, CAL+1

Name	Field # of Occurrence
%	BIJ+1~, BIJ+3, GREF+1~, GREF+2, GLRF~, GLRF+3, GLRF+4, GLRF+5, GLRF+6, GET+2~* , GET+14, CAL, D2~, D2+1*, D2+2, D2+3, D2+4, D2+5, D2+11, P! , V2+4!
%(1	GLRF+6, D2+1, S
%(2	GET+2, GET+14, P, Y, Y+1, V2+1*, V2+3
%(3	Y*
%(4	D2+1, D2+8
%X	D2~, V2+3*
%Y	D2~, V2+3*
>> DCC	X+1
DIFLAG	GET~, GET+13
DITYP	D2~, D2+1, D2+2, D2+3, D2+6*, D2+7, D2+8, D2+9, D2+11, P , V, S, QD
DN	GET+3~, GET+7, GET+8, GET+9*, GET+12
E	GET+3~, GET+7, GET+8, GET+9, GET+10, GET+11, GET+12, CAL, CAL+1
F	BIJ~, BIJ+3, GREF~, GREF+1, GREF+2, GLRF~, GLRF+1, GLRF+4, GLRF+6, GET~ , GET+2, GET+4, GET+5, CAL+1, DTYP~, DTYP+2, D2, P, V2
I	BIJ~, GREF~, GLRF+1~, GET+3~, D2~, D2+2, P, S, Y+1, V2 , V2+2
I(	BIJ+3, X, GREF+1, GREF+2, GLRF+2, GLRF+6
J	BIJ~, X, X+1, GREF~, GREF+2, GLRF+1~, GLRF+3, GET+3~, D2~, V2+2 , V2+3, V2+4!
J("T"	V2+3!
J(0	BIJ+1*, GREF+1, GLRF+2, GLRF+6
K	GLRF+1~, GLRF+2*
L	GLRF+1~, GLRF+2*
P	GET+3~, GET+4*, GET+5, GET+6, GET+8, GET+9, GET+10
P(1	GET+5
S	BIJ~, BIJ+1, BIJ+3, X, GLRF~, GLRF+1, GLRF+4, GLRF+6, GET~, GET+2 , GET+4, CAL+1, DTYP~, DTYP+2, D2, P, V2
U	BIJ+3, GLRF+4, GLRF+6, GET+14, CAL, D2+1, D2+4, V2
X	BIJ+1~, BIJ+2, BIJ+3, GLRF~, GLRF+2, GLRF+3, GLRF+5, GET~, GET+5, GET+12 , GET+14, CAL+1, CAL+2, D2~, V, S, V2*, V2+1, V2+3
X(1	S*
Y	BIJ+1~, BIJ+3, GREF+1~, GLRF+1~, GLRF+2, GET~, GET+2!, GET+4, GET+5, GET+11! , GET+12, GET+14, CAL, CAL+1, CAL+2, DTYP~, DTYP+1!, DTYP+2, D2+4, D2+5 , D2+7*, D2+10
Y(	D2+5*, QD
Y("D"	D2+8*
Y("S"	S*
Y("T"	D2+11, QD, V2+3*
Y("V"	V2+1, V2+3

Name	Comments	DBIA/ICR reference
V
DTYP(S,F,Y)	;RETURN DATA TYPES(S) FOR A FIELD
GET(S,F,X,Y,DIFLAG)	;BUILD CODE TO EXTRACT FIELD. S=FILE/SUBFILE#, F=FIELD#, X=LOCAL VARIABLE NAME WHERE FIELD WILL BE STORED. CODE RETURNED IN Y ; DIFLAG["I" if internal value of field (no output transform)
V2
P
S
GREF(I,J,F)	;BUILD GLOBAL REFERENCE (I & J ARRAY FROM BIJ, CODE RETURNED IN F)
QD
CAL
Y
X
BIJ(S,F,I,J)	;BUILD I & J ARRAY. S=(SUB)FILE#, F=FIELD#
D2
GLRF(S,F,X,%)	;BUILD GLOBAL REFERENCE (S=(SUB)FILE#,F=FIELD NO.,%=CLOSE PARENTHESIS, RETURN PIECE IN %, X=OUTPUT VARIABLE.)