Routine: ZISHMSM

Information

%ZISH ;IHS\PR,SFISC/AC - Host File Control for MSM ;01/04/2005 08:44

Source file <ZISHMSM.m>

Name	Comments	DBIA/ICR reference
OPEN(X1,X2,X3,X4,X5,X6)
CLOSE(X)	;SR. Close HFS device not opened by %ZIS.
OPENERR	;
DEL(%ZX1,%ZX2)	;ef,SR. Del fl(s)
LIST(%ZX1,%ZX2,%ZX3)	;ef,SR. Create a local array holding fl names
MV(X1,X2,Y1,Y2)	;ef,SR. Rename a fl
SLOWCOPY	; Copy without view buffer
PWD()	;ef,SR. Print working directory
JW	;Call dos $ZOS
DEFDIR(DF)	;ef. Default Dir and frmt
FL(X)	;Fl len
READNXT(REC)	;Read any sized record into array.
STATUS()	;ef,SR. Return EOF status
EOF(X)	;Eof flag, pass in $ZC
READREC(X)	;Read record from host file.
MAKEREF(HF,IX,OVF)	;Internal call to rebuild global ref.
FTG(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5)	;ef,SR. Unload contents of host file into global
ERREOF
GTF(%ZX1,%ZX2,%ZX3,%ZX4)	;ef,SR. Load contents of global to host file.
GATF(%ZX1,%ZX2,%ZX3,%ZX4)	;ef,SR. Append to host file.
MGTF(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: for Line Location: OPEN+4
Function Call: WRITE	Prompt: X Line Location: SLOWCOPY+5
Function Call: WRITE	Prompt: $J(%ZISHPCT,3),*13 Line Location: SLOWCOPY+9
Function Call: READ	Formatting: X#255 S %ZA=$ZA Prompt: %ZB=$ZB Variable: %ZC=$ZC Q Timeout: $$EOF(%ZC)!('$L(X)) Line Location: READNXT+4
Function Call: WRITE	Prompt: %ZX,! Line Location: MGTF+11