Routine: ZISHMSU

Information

%ZISH ;IHS/PR,SFISC/AC - HOST COMMANDS - MSM UNIX ;10/15/96 11:11

Source file <ZISHMSU.m>

Name	Comments	DBIA/ICR reference
OPEN(X1,X2,X3,X4)
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,X3,X4)	;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: %ZISHXX Q Timeout: $$STATUS=-1 Line Location: LIST+19
Function Call: READ	Variable: % Q Timeout: $$STATUS=-1 Line Location: PWD+14
Function Call: WRITE	Prompt: !,"NEWRECORD" Line Location: FTG+18
Function Call: WRITE	Prompt: !,"CONTINUATION RECORD" Line Location: FTG+28
Function Call: WRITE	Prompt: !,"%ZB="_%ZB,!,"%ZPZB+%ZL="_(%ZPZB+%ZL),!,"%ZPZB="_%ZPZB_" %ZL="_%ZL Line Location: FTG+35
Function Call: READ	Variable: %XX Q Timeout: $$STATUS Line Location: READNXT+1
Function Call: WRITE	Prompt: %ZISHX,! Line Location: MGTF+13