Routine: ZISHONT

Information

%ZISH ;IHS/PR,SFISC/AC - Host File Control for Cache for VMS/NT/UNIX ;05/22/12 11:01

Source file <ZISHONT.m>

Name	Comments	DBIA/ICR reference
OPEN(X1,X2,X3,X4,X5,X6)
OPNERR	;Handle open error ; ZEXCEPT: POP
CLOSE(X)	;SR. Close HFS device not opened by %ZIS.
OPENERR	;
DEL(%ZX1,%ZX2)	;ef,SR. Del files, return 1 if deleted all requested.
DELERR	;Trap any $ETRAP error, unwind and return. ; ZEXCEPT: %ZARG,%ZXDEL
DEL1(%ZX3)	;ef,SR. Delete one file
SPLIT(%I,%O1,%O2)	;Split to path,file
FEXIST(%PATH,%FL)	;Check if files exsist.
LIST(%ZX1,%ZX2,%ZX3)	;ef,SR. Create a local array holding file names
MV(X1,X2,Y1,Y2)	;ef,SR. Rename a fl
PWD()	;ef,SR. Print working directory
TRNLNM(PATH)	;ef. Expand logical path
DEFDIR(DF)	;ef. Default Dir and frmt
FL(X)	;Fl len
STATUS()	;ef,SR. Return EOF status
EOF(X)	;Eof flag, pass in $ZEOF
MAKEREF(HF,IX,OVF)	;Internal call to rebuild global ref.
READNXT(REC)	;Read any sized record into array. %ZB has terminator ; ZEXCEPT: %ZB
READNX	;Check for EOF ; ZEXCEPT: %ZA
FTG(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5)	;ef,SR. Unload contents of host file into global
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: READ	Variable: X Timeout: 5 Line Location: READNXT+3
Function Call: WRITE	Prompt: %ZX,! Line Location: MGTF+11