Routine: DICU11

Package	Total	Caller Graph
VA Fileman	2	DICF2 DICU1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
GETFORM(DIDENT,DIFORMAT,DIDS,DICOUNT)	; ; Strip E or I off specifier and set into DIFORMAT
FORMAT(DIFIELD,DICODE,DIUSEKEY,DIFORMAT,DIDEFALT,DIFLAGS)	; ; Format fetch code to return either internal or external
WRITEID(DIFILE,DIDENT,DICRSR)	; ; WRITE Identifiers Loop: add WRITE identifiers to output processor: ; for WRITE IDs we save the code as is
THROW(DIFLAGS,DIDENT,DIDS,DICRSR,DICOUNT,DIDEFALT,DINDEX,DICF2)	;
T1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	WRITEID+5, WRITEID+6, WRITEID+7

Name	Line Occurrences
$$FORMAT	T1+13
GETFORM	T1

Name	Field # of Occurrence
^(	WRITEID+5

Name	Field # of Occurrence
DICF2	THROW~, T1+16
DICODE	FORMAT~, FORMAT+6, FORMAT+7, WRITEID+4~, WRITEID+7, WRITEID+9
DICOUNT	THROW~, T1, GETFORM~, GETFORM+6, GETFORM+7*
DICRSR	THROW~, T1+16, T1+17, T1+18, T1+20, WRITEID~, WRITEID+8, WRITEID+9, WRITEID+10
DIDEFALT	THROW~, T1+1, T1+13, FORMAT~
DIDENT	THROW~, T1, T1+2, T1+13, T1+21, GETFORM~, GETFORM+2, GETFORM+3, GETFORM+5, GETFORM+6* , GETFORM+8, GETFORM+9, WRITEID~, WRITEID+5, WRITEID+6, WRITEID+7, WRITEID+9, WRITEID+10
DIDENT(	T1+16, T1+18, T1+20, T1+21, WRITEID+9, WRITEID+10
DIDS	THROW~, T1, GETFORM~, GETFORM+6*
DIEXP	T1+2~, T1+4, T1+6, T1+8, T1+10, T1+11, T1+12, T1+13, T1+14, T1+16 , T1+18
DIFIELD	FORMAT~, FORMAT+3*, FORMAT+6
DIFILE	FORMAT+2~, FORMAT+3, FORMAT+6, WRITEID~, WRITEID+5, WRITEID+6, WRITEID+7
DIFIRST	GETFORM+5~*, GETFORM+7
DIFLAGS	THROW~, T1+5, T1+10, T1+13, T1+17, T1+20, FORMAT~, FORMAT+5, WRITEID+8, WRITEID+10
DIFORMAT	T1~, T1+1, T1+5, T1+9, T1+13, T1+16, T1+18, T1+19, GETFORM~, GETFORM+3 , GETFORM+4, GETFORM+7, GETFORM+10, FORMAT~, FORMAT+4
DILENGTH	GETFORM+2~*, GETFORM+3, GETFORM+5, GETFORM+6, GETFORM+8, GETFORM+9
DIMAP	T1+2~, T1+19*, T1+20, T1+21
DINDEX	THROW~, T1+14
DINDEX(	T1+5, T1+9, T1+10, T1+11, T1+12
DINDEX("#"	T1+3
DINDEX("ROOTCNG"	T1+7
DISUB	T1+2~, T1+3*, T1+5, T1+6, T1+9, T1+10, T1+11, T1+12, T1+16, T1+18 , T1+19, T1+21
DISUB0	T1+2~*, T1+16, T1+18
DIUSEKEY	FORMAT~
F	FORMAT+5~*, FORMAT+6
U	T1+20, WRITEID+10

Information