Routine: ZISFMSM

Package	Total	Call Graph
Kernel	6	SBR^%ZIS1 SETPAR^%ZIS3 ASKPAR^%ZIS6 $$MODE^%ZISF $$DEFDIR^%ZISH $$OSTYPE^%ZOSV

Name	Comments	DBIA/ICR reference
HFSIOO
HOPT(X)	;Display Input/Output operation -- X=1 for scroll, X=2 for MWAPI.
H
HFS
H1
ASKAGN
GETHFSNM(X)
ASKHFS	;---Ask host file name here---
CHKNM(H)	;Check HFS name for dir
HOPT1
ASKHFSIO(DA)
SETOPAR	;Set the file name into %ZISOPAR
MODE(X1,X2)	;Return value in Y

Name	Line Occurrences
Function Call: WRITE	Prompt: ?45,"INPUT/OUTPUT OPERATION: " Line Location: HFSIOO+1
Function Call: WRITE	Prompt: !,^(0) Line Location: HOPT1+1
Function Call: WRITE	Prompt: ! Line Location: HOPT1+2
Function Call: WRITE	Prompt: !,"HOST FILE NAME: " Line Location: ASKAGN+0
Function Call: WRITE	Prompt: !,"ENTER HOST FILE NAME" Line Location: ASKAGN+2
Function Call: WRITE	Prompt: *7,!,"You must enter the name of a host file" Line Location: ASKAGN+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	ASKHFS+1, ASKHFSIO+1
^DIC(9.2 - [#9.2]	HOPT1, HOPT1+1

Name	Field # of Occurrence
>> %E	HFSIOO+1, ASKHFS+1
>> %IS	H1
>> %IS("B"	GETHFSNM+4
>> %IS("HFSIO"	HFS
>> %IS("IOPAR"	HFS
>> %X	HFS+5, H, HFSIOO+3, HFSIOO+4, HOPT1+1, HOPT1+2, ASKHFS+1, ASKHFS+2, ASKHFS+3, ASKAGN+2 , ASKAGN+4, ASKAGN+5, SETOPAR+1*, SETOPAR+2, SETOPAR+3
>> %ZIS("HFSMODE"	HFS+1, HFS+2, HFS+3, H, HFSIOO, ASKHFSIO+1
>> %ZIS("HFSNAME"	HFS+1, HFS+3, HFS+4, HFS+5, HFS+6, ASKHFS+3
>> %ZISI	HOPT1*, HOPT1+1
>> %ZISOPAR	HFS+3, H, H1+1, HFSIOO+4, ASKAGN, SETOPAR+2, SETOPAR+3
%ZY	H1+3!, ASKAGN*, ASKAGN+1, ASKAGN+3!, ASKAGN+4
DA	ASKHFSIO~, ASKHFSIO+1
>> DFOUT	HFSIOO+2
>> DTOUT	HFSIOO+2, ASKAGN+3
>> DUOUT	HFSIOO+2, ASKAGN+3
H	CHKNM~, CHKNM+1*, CHKNM+2, CHKNM+3
IO	H1+2
IO("HFSIO"	H1, H1+2
IO("Q"	H1
>> IOP	HFS, HFS+4, HFS+6, HFSIOO+1, ASKHFS+3
>> POP	HFSIOO+2, ASKAGN+3
>> TMP("ZISGHFS"	HOPT+5!, HOPT+6, HOPT+7, HOPT+8, HOPT+9
X	HOPT~, HOPT+1, GETHFSNM~, GETHFSNM+2
X1	MODE~, MODE+2
X2	MODE~, MODE+2
Y	MODE+1~, MODE+2, MODE+3, GETHFSNM+1~, GETHFSNM+2, GETHFSNM+3, GETHFSNM+4, GETHFSNM+5

Routine: ZISFMSM Platform: MSM