Routine: DIOZ

Package	Total	Call Graph
VA Fileman	6	(NOW,YX)^%DTC ($$EZBLD,BLD,MSG)^DIALOG ^DIC $$NXTNO^DICLIB OS^DII ^DIR

Package	Total	Caller Graph
VA Fileman	4	DI SORT COMPILE DIO DIO2 DIO4

Name	Comments	DBIA/ICR reference
ENC	;CREATE COMPILED SORT ROUTINE
R1
EN1
QER
TXT	;;
DIC
ENCU	;MARK A SORT TEMPLATE FOR ROUTINE COMPILATION
R
ENRLS(DRN)	; MAKE ROUTINE NUMBER AVAILABLE FOR REUSE & DELETE ROUTINE
N1
NEW
N2
N3
NXTNO(DRN)	; GET NEXT AVAILABLE ROUTINE NUMBER
QSV

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$$EZBLD^DIALOG(101) Line Location: ENCU+1
Function Call: WRITE	Prompt: $C(7),!,$$EZBLD^DIALOG(820) Line Location: EN1+1
Function Call: WRITE	Prompt: !!,$C(7),DIR("?",2),!,DIR("?") Line Location: EN1+13
Routine Call	DIALOG Line Location: EN1+5 EN1+6 EN1+10 EN1+11 ENC+1 ENC+2 N2
Routine Call	DIALOG Line Location: ENCU+1 EN1+1 EN1+5 EN1+10
Routine Call	DIC Line Location: DIC+2
Routine Call	DIALOG Line Location: QER+1
Routine Call	DIR Line Location: EN1+6 EN1+11

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	R1+1
^DD("OS" - [#.7]	EN1+1, ENC+1, ENC+7
^DI(	N1, N3, N3+1!, R, R1!
^DIBT(	EN1+4, EN1+7*, EN1+12!, NEW+3
^DIC(3 - [#3]	NEW+3
^TMP("DIBTC"	ENC+2, ENC+5, ENC+8!
^UTILITY($J	ENC+5, ENC+6, NEW+2!, NEW+3, NEW+4
^VA(200 - [#200]	NEW+3

Name	Field # of Occurrence
%	ENC+3~
%H	ENC+3~
%I	ENC+3~
DDH	EN1~
>> DIBT1	NEW+3
DIBTPGM	ENC+7, NEW*, NEW+3, QSV!
DIC	EN1~, DIC*
DIC("S"	DIC+1*
DIC("W"	DIC*
DIC(0	DIC*
DICLEAN	ENRLS+1~*, R1+2
>> DIERR	ENC+4, NEW, QER+1*
DILOCK	NXTNO+1~, N1, N2, N2+1, N3*
DIOZ	EN1~, EN1+2*, EN1+7, EN1+12
>> DIQUIET	QER
DIR	EN1~, ENC+3~
DIR("?"	EN1+8, EN1+13
DIR("B"	EN1+6, EN1+11
DIR(0	EN1+3*
DIROUT	EN1~, ENC+3~
DIRUT	EN1~, ENC+3~
>> DISYS	EN1+1, ENC+1, ENC+7
>> DP	NEW+3
DRN	ENC+3~, NEW, NXTNO~, NXTNO+1, N1, N2, N3, N3+1, ENRLS~, ENRLS+1 , R*, R1, R1+1, QSV
DTOUT	EN1~, ENC+3~
DUOUT	EN1~, ENC+3~
DUZ	NEW+3
DUZ(0	ENCU+1
I	ENC+3~, ENC+5, ENC+6
J	ENC+3~, ENC+5*
K	ENC+3~, ENC+5, ENC+6
U	ENC+7, NEW+3, R1
X	EN1~, EN1+10, ENC+3~, ENC+5, ENC+6, ENC+7, ENRLS+1~, R1+1
X(1	EN1+10*
X(2	EN1+10*
Y	EN1~, EN1+2, EN1+4, EN1+6, EN1+11, ENC+3~, NEW+3

Name	Field # of Occurrence
$T(DIOZ+1	NEW+4
$T(TXT+I	ENC+6

Information