%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 |
---|---|---|
CLOSE(X) | ;SR. Close HFS device not opened by %ZIS.
|
|
FL(X) | ;Fl len
|
|
SEND(ZISH1,ZISH2,ZISH3,ZISHPARM) | ;Send UNIX or Windows fl
; S Y=$$SEND^%ZISH("/dir/","fl","mach","ftpsend param") ; "fl*" ; .array ; TASSC/MFD added ZISHPARM as a 4th parameter, parameters for send scripts ; |
|
OPENERR | ;
|
|
JW | ; -- Cache extrinsic.
|
|
MAKEREF(HF,IX,OVF) | ;Internal call to rebuild global ref.
|
|
PWD(X) | ;ef,SR. Print working directory ;TASSC/MFD parameter put back in for IHS
|
|
GTF(%ZX1,%ZX2,%ZX3,%ZX4) | ;ef,SR. Load contents of global to host file.
|
|
OPNERR | ;Handle open error
; ZEXCEPT: POP |
|
DEFDIR(DF) | ;ef. Default Dir and frmt
|
|
DEL(%ZX1,%ZX2) | ;ef,SR. Del fl(s)
|
|
SENDTO1(ZISH1,ZISH2) | ||
READNXT(REC) | ;Read any sized record into array. %ZB has terminator
; ZEXCEPT: %ZB |
|
OPENI(X1,X2,X3) | ; called from OPEN sub above, or can be called directly
|
|
OPEN(X1,X2,X3,X4,X5,X6) | ||
DF(X) | ;Dir frmt ;TASSC/MFD added DF+2
|
|
CLIENT() | ;return underlying client name - only works if reverse DNS
|
|
MGTF(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5) | ;
|
|
DELI | ; called from DEL sub above
|
|
LIST(%ZX1,%ZX2,%ZX3) | ;ef,SR. Create a local array holding file names
|
|
EOF(X) | ;Eof flag, pass in $ZEOF
|
|
STATUS() | ;ef,SR. Return EOF status
|
|
FTG(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5) | ;ef,SR. Unload contents of host file into global
|
|
SLOWCOPY | ; Copy without view buffer
|
|
READNX | ;Check for EOF
; ZEXCEPT: %ZA |
|
HOST() | ; return underlying host name
|
|
ERREOF | ||
LISTI | ||
IP() | ; return underlying connections ip address
|
|
GATF(%ZX1,%ZX2,%ZX3,%ZX4) | ;ef,SR. Append to host file.
|
|
TRNLNM(PATH) | ;ef. Expand logical path
|
|
MV(X1,X2,Y1,Y2) | ;ef,SR. Rename a fl
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | CLOSE+7 |
SUBTYPE^%ZIS3 | OPEN+15 |
$$DEL^%ZISH | MV+17, MV+21 |
OPEN^%ZISH | FTG+10, MGTF+8 |
$$ENDOFILE^%ZISUTL | OPEN+13 |
RMDEV^%ZISUTL | CLOSE+5 |
SAVDEV^%ZISUTL | OPEN+16 |
$$OS^%ZOSV | OPEN+9, LIST+4, TRNLNM+2, DEFDIR+2 |
$$PRI^%ZOSV | DEFDIR+4 |
$$UP^XLFSTR | LISTI+6, LISTI+9 |
$$SENDTO1^ZISHMSMU | SENDTO1+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TRAP" | DEL+10, DEL+13, DEL+17, LIST+9, LIST+28, FTG+13, MGTF+13, DELI+1, LISTI+3 |
^XTV(8989.3 - [#8989.3] | DEFDIR+4 |
^XUTL("XQ" | CLOSE+7 |
Name | Line Occurrences |
---|---|
$$DEFDIR | OPEN+9, DEL+5, LIST+4, MV+7, MV+13, PWD+2, DEFDIR+22, FTG+8, OPENI+2 |
$$EOF | STATUS+2, FTG+14 |
$$LIST | SEND+10 |
$$MGTF | GTF+6, GATF+7 |
$$OPENI | OPEN+1 |
$$TRNLNM | DEFDIR+29 |
CLOSE | FTG+19, MGTF+16, ERREOF |
DELI | DEL+11 |
JW | SEND+22 |
LISTI | LIST+10, LIST+11 |
MAKEREF | FTG+9, MGTF+7 |
READNXT | FTG+14 |
SLOWCOPY | MV+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | OPEN+7~, OPEN+14*, OPEN+15, CLOSE+3~, DEL+4~, DEL+15*, DEL+16*, MV+12~, MV+16*, READNXT+2~ , READNXT+5*, OPENI+1~, OPENI+4*, OPENI+5, OPENI+6, OPENI+7, DELI+2*, DELI+3*, DELI+4 |
%1 | OPEN+7~, OPEN+10*, OPEN+11*, OPENI+1~, OPENI+3* |
%2 | OPEN+7~, OPENI+1~ |
%I | OPEN+7~, OPEN+9*, OPENI+1~, OPENI+2*, OPENI+6 |
%OVFCNT | FTG+6~, FTG+16* |
%T | OPEN+7~, OPEN+9*, OPENI+1~, OPENI+2* |
%XX | FTG+6~, FTG+14!, FTG+15, FTG+16 |
%XX( | FTG+16 |
%ZA | OPEN+7~, OPEN+13*, READNX+4*, FTG+6~, FTG+12*, FTG+14, OPENI+1~, OPENI+5*, OPENI+6 |
%ZB | MV+12~, MV+20*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6, SLOWCOPY+7, READNXT+3*, FTG+6~ |
%ZC | MV+12~, MV+20*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6*, FTG+6~, FTG+12*, FTG+20, MGTF+6~ |
%ZISH | DEL+4~, DEL+12*, DEL+14*, DEL+15, LIST+3~, LIST+15*, LIST+16, LIST+17*, LIST+19, FTG+7~ , MGTF+6~, DELI+2* |
%ZISH1 | FTG+7~, MGTF+6~ |
%ZISHDC | DEL+4~, DEL+9*, DEL+16, DELI+3 |
%ZISHDV1 | MV+12~, SLOWCOPY+2, SLOWCOPY+4 |
%ZISHDV2 | MV+12~, SLOWCOPY+5, SLOWCOPY+6 |
%ZISHF | MAKEREF+7*, MAKEREF+8*, MAKEREF+9, MAKEREF+10*, MAKEREF+11*, FTG+6~, FTG+15, MGTF+15 |
%ZISHFN1 | MV+12~ |
%ZISHFN2 | MV+12~ |
%ZISHI | MAKEREF+5*, FTG+7~, FTG+17*, MGTF+6~, MGTF+15* |
%ZISHIO | OPEN+7~, OPEN+9*, OPENI+1~, OPENI+2* |
%ZISHL | FTG+7~, MGTF+6~ |
%ZISHMVC | MV+6~, MV+9*, MV+10, MV+12~, MV+15*, MV+16 |
%ZISHN | LIST+3~, LIST+20*, LIST+21, LISTI+7*, LISTI+8, LISTI+10, LISTI+11 |
%ZISHO | MAKEREF+9*, FTG+6~, FTG+16 |
%ZISHOF | FTG+7~, FTG+8* |
%ZISHOX | FTG+7~, GTF+5~, MGTF+6~ |
%ZISHPCT | MV+12~, MV+20*, SLOWCOPY+8* |
%ZISHS | FTG+7~, MGTF+6~ |
%ZISHSIZ | MV+12~, SLOWCOPY+3, SLOWCOPY+6, SLOWCOPY+7 |
%ZISHT | DEL+4~, DEL+10*, DEL+13, DEL+17, LIST+9*, LIST+28, DELI+1, LISTI+3 |
%ZISHX | MV+12~, MV+17, MV+21 |
%ZISHX( | MV+17*, MV+21* |
%ZISHY | LIST+3~, LIST+16*, LIST+26, FTG+7~, GTF+5~, GTF+6*, GTF+7, GATF+6~, GATF+7*, GATF+8 , LISTI+6*, LISTI+9 |
%ZISUB | FTG+6~ |
%ZISUB( | MAKEREF+10* |
%ZOS | OPEN+7~, OPEN+9*, OPEN+10, OPEN+11, LIST+3~, LIST+4*, LIST+17, LIST+24, LIST+25, LIST+26 , TRNLNM+1~, TRNLNM+2*, TRNLNM+3, TRNLNM+8, TRNLNM+13, DEFDIR+2~*, DEFDIR+7, DEFDIR+15, DEFDIR+20 |
%ZX | LIST+3~, LIST+19*, LIST+20, LIST+21*, LIST+23, LIST+24*, LIST+25, LIST+26, FTG+7~, MGTF+6~ , MGTF+15*, LISTI+6*, LISTI+7, LISTI+8*, LISTI+9, LISTI+10, LISTI+11 |
%ZX1 | DEL~, DEL+5*, DEL+15, LIST~, LIST+4*, LIST+19, FTG~, FTG+8*, FTG+10, GTF~ , GTF+6, GATF~, GATF+7, MGTF~, MGTF+7, DELI+2, LISTI+5, LISTI+6 |
%ZX2 | DEL~, DEL+8, DEL+11, DEL+12, DEL+14, LIST~, LIST+10, LIST+11, LIST+15, FTG~ , FTG+10, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+7, DELI+2, LISTI+5, LISTI+6 |
%ZX3 | LIST~, LIST+24, LIST+25, LIST+26, LIST+29, FTG~, FTG+9, GTF~, GTF+6, GATF~ , GATF+7, MGTF~, MGTF+8, LISTI+13 |
%ZX3( | LISTI+10*, LISTI+11* |
%ZX4 | FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+8 |
%ZX5 | FTG~, FTG+8, MGTF~, MGTF+8 |
%ZY | LIST+3~, LIST+25*, LIST+26*, LISTI+10*, LISTI+11* |
DF | DEFDIR~, DEFDIR+2*, DEFDIR+3, DEFDIR+4*, DEFDIR+5, DEFDIR+8, DEFDIR+9, DEFDIR+12*, DEFDIR+16*, DEFDIR+17* , DEFDIR+22*, DEFDIR+23, DEFDIR+24, DEFDIR+27*, DEFDIR+29*, DEFDIR+30 |
F | MAKEREF+3~, MAKEREF+6*, MAKEREF+7, MAKEREF+8 |
HF | MAKEREF~, MAKEREF+5, MAKEREF+6, MAKEREF+10 |
I | MAKEREF+3~, MAKEREF+10*, READNXT+2~, READNXT+5*, FTG+7~ |
IO | OPEN+9, OPEN+15*, CLOSE+4, READNXT+3, FTG+14, MGTF+6~, MGTF+15, OPENI+2, OPENI+7* |
IO("HOME" | CLOSE+7 |
IO(0 | OPENI+9 |
IO(1 | OPEN+15*, CLOSE+4!, OPENI+7* |
IOM | OPEN+15* |
IOSL | OPEN+15* |
>> IOT | OPEN+15*, OPENI+7* |
IX | MAKEREF~, MAKEREF+5, MAKEREF+6, MAKEREF+7, MAKEREF+8, MAKEREF+10 |
MX | MAKEREF+3~, MAKEREF+5*, MAKEREF+10 |
OVF | MAKEREF~, MAKEREF+4*, MAKEREF+9 |
P1 | TRNLNM+1~, TRNLNM+4*, TRNLNM+5, TRNLNM+9*, TRNLNM+14*, DEFDIR+2~, DEFDIR+8*, DEFDIR+9*, DEFDIR+10*, DEFDIR+12 , DEFDIR+21~, DEFDIR+23*, DEFDIR+24*, DEFDIR+27 |
P2 | TRNLNM+1~, TRNLNM+5*, TRNLNM+6, TRNLNM+9*, TRNLNM+10, TRNLNM+14*, TRNLNM+15, DEFDIR+2~, DEFDIR+8*, DEFDIR+9* , DEFDIR+10*, DEFDIR+11*, DEFDIR+12, DEFDIR+21~, DEFDIR+23*, DEFDIR+24*, DEFDIR+25*, DEFDIR+26*, DEFDIR+27 |
PATH | TRNLNM~, TRNLNM+2*, TRNLNM+3, TRNLNM+4, TRNLNM+6*, TRNLNM+8, TRNLNM+9, TRNLNM+10*, TRNLNM+13, TRNLNM+14 , TRNLNM+15*, TRNLNM+17 |
POP | OPEN+9*, OPEN+14*, OPEN+15*, OPNERR+2*, FTG+6~, FTG+11, MGTF+9, OPENI+2*, OPENI+4*, OPENI+6* , OPENI+7* |
REC | READNXT~, READNXT+2*, READNXT+3* |
REC( | READNXT+5* |
U | OPEN+9* |
>> VAR | LISTI+4* |
X | CLOSE~, CLOSE+5, DEL+4~, DEL+10*, DEL+13*, DEL+17*, LIST+9*, LIST+28*, MV+6~, MV+8* , MV+10, MV+12~, MV+14*, MV+16, SLOWCOPY+1~, SLOWCOPY+4*, SLOWCOPY+5, SLOWCOPY+7*, SLOWCOPY+8, PWD~ , DF~, DF+1, DF+2*, DF+3*, DF+4*, FL~, FL+2, FL+3*, FL+4*, EOF~ , READNXT+2~, READNXT+3*, READNXT+4, READNXT+5, FTG+13*, MGTF+13~*, DELI+1*, LISTI+3* |
X(1 | PWD+4*, PWD+5 |
X1 | OPEN~, OPEN+1, OPEN+16, MV~, MV+7*, MV+8, MV+13*, MV+14, MV+17, MV+21 , OPENI~, OPENI+2*, OPENI+4 |
X2 | OPEN~, OPEN+1, OPEN+9*, OPEN+14, MV~, MV+8, MV+14, MV+17, MV+21, OPENI~ , OPENI+4 |
X3 | OPEN~, OPEN+1, OPEN+14, OPENI~, OPENI+3 |
X4 | OPEN~, OPEN+1, OPEN+10, OPEN+11 |
X5 | OPEN~ |
X6 | OPEN~, OPEN+15 |
Y | MV+6~, MV+8*, MV+10, MV+12~, MV+14*, MV+16, MV+17*, MV+21*, SLOWCOPY+1~, PWD+1~ , PWD+2*, PWD+3*, PWD+4, MGTF+6~, SEND+10* |
Y1 | MV~, MV+7*, MV+8, MV+13*, MV+14 |
Y2 | MV~, MV+8, MV+14 |
ZISH | SEND+6~, SEND+18*, SEND+19, SEND+20*, SEND+21 |
ZISH1 | SEND~, SEND+7*, SEND+10, SEND+19, SENDTO1~, SENDTO1+1 |
ZISH2 | SEND~, SEND+8, SEND+10, SENDTO1~, SENDTO1+1 |
ZISH2( | SEND+18, SEND+19*, SEND+20, SEND+21 |
ZISH3 | SEND~, SEND+9, SEND+21 |
>> ZISHC | SEND+12*, SEND+17*, SEND+21*, JW+1 |
ZISHPARM | SEND~, SEND+11*, SEND+21 |
>> ZISHX | SEND+23, JW+1* |
ZOSHC | DEL+4~ |
ZOSHDA | DEL+4~ |
ZOSHDF | DEL+4~ |
ZOSHF | DEL+4~ |
ZOSHP1 | FL+1~, FL+2*, FL+3 |
ZOSHP2 | FL+1~, FL+2*, FL+4 |
ZOSHQ | DEL+4~, DEL+12*, DEL+13 |
ZOSHX | DEL+4~ |
>> ZTQUEUED | OPENI+9 |