%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 |