Routine: ZISHDTM

Information

ZISHDTM ;IHS/PR,SFISC/AC HOST FILE COMMANDS FOR DTM ;06/30/95 13:34

Source file <ZISHDTM.m>

Name	Comments	DBIA/ICR reference
OPEN(X1,X2,X3,X4)	;
OPNERR	;process errors during open of host file.
CLOSE(X)	;Close HFS device not opened by %ZIS.
OPENERR	;
DEL(%ZISHX1,%ZISHX2)	;Del fl(s)
LIST(%ZISHX1,%ZISHX2,%ZISHX3)	;Create a local array holding fl names
MV(X1,X2,Y1,Y2)	;Rename a fl
PWD()	;Print working directory
JW	;msm extrinsic
DF(X)	;Dir frmt
STATUS()	;Eof flag
QL(X)	;Qlfrs
FL(X)	;Fl len
FTG(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4,%ZISHX5)	;Unload contents of host file into global
EOF2
LOOP
NEXTLUP
READNXT(%XX)	;
SETOVL	;
GTF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4)	;Load contents of global to host file.
GATF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4)	;Load contents of global to host file.
MGTF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4,%ZISHX5)	;Load contents of global to host file.

Name	Line Occurrences
Function Call: WRITE	Prompt: for Line Location: OPEN+4
Function Call: READ	Variable: %XX Q Timeout: $$STATUS&(%XX="") Line Location: READNXT+1
Function Call: WRITE	Prompt: %ZISHX,! Line Location: MGTF+13