%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 | Field # of Occurrence |
|---|---|
| HOME^%ZIS | CLOSE+7 |
| SUBTYPE^%ZIS3 | OPEN+14 |
| $$DEL^%ZISH | MV+12 |
| OPEN^%ZISH | FTG+10, MGTF+8 |
| $$ENDOFILE^%ZISUTL | OPEN+12 |
| RMDEV^%ZISUTL | CLOSE+5 |
| SAVDEV^%ZISUTL | OPEN+15 |
| $$OS^%ZOSV | OPEN+8, DEL+8, SPLIT+1, LIST+4, MV+3, PWD+2, TRNLNM+2, DEFDIR+2 |
| $$PRI^%ZOSV | DEFDIR+4 |
| UNWIND^%ZTER | DELERR+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTV(8989.3 - [#8989.3] | DEFDIR+4 |
| ^XUTL("XQ" | CLOSE+7 |
| Name | Line Occurrences |
|---|---|
| $$DEFDIR | OPEN+8, DEL+7, LIST+4, MV+4, PWD+2, FTG+8 |
| $$DEL | DEL1+3 |
| $$EOF | STATUS+2, FTG+13 |
| $$LIST | DEL+25, FEXIST+3 |
| $$MGTF | GTF+6, GATF+7 |
| $$TRNLNM | DEFDIR+29 |
| CLOSE | FTG+18, MGTF+12 |
| MAKEREF | FTG+9, MGTF+7 |
| READNXT | FTG+13 |
| SPLIT | DEL1+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OPEN+6~, OPEN+13*, OPEN+14, CLOSE+3~, DEL+13~, DEL+21*, DEL+23*, MV+3~, MV+9*, READNXT+2~ , READNXT+5* |
| %1 | OPEN+6~, OPEN+9*, OPEN+10* |
| %2 | OPEN+6~ |
| %D | SPLIT+1~, SPLIT+6*, SPLIT+7 |
| %FL | FEXIST~, FEXIST+3 |
| %I | OPEN+6~, OPEN+8*, SPLIT~, SPLIT+3, SPLIT+4, SPLIT+7 |
| %O1 | SPLIT~, SPLIT+4*, SPLIT+6*, SPLIT+7* |
| %O2 | SPLIT~, SPLIT+4*, SPLIT+6*, SPLIT+7* |
| %OVFCNT | FTG+6~, FTG+15* |
| %PATH | FEXIST~, FEXIST+3 |
| %T | OPEN+6~, OPEN+8* |
| %XX | FTG+6~, FTG+13!, FTG+14, FTG+15 |
| %XX( | FTG+15 |
| %ZA | OPEN+6~, OPEN+12*, READNX+2*, FTG+6~, FTG+12*, FTG+13 |
| %ZARG | DEL+5~, DEL+6*, DEL+20*, DEL+21*, DEL+23, DELERR+3* |
| %ZB | READNXT+3*, FTG+6~ |
| %ZC | FTG+6~, FTG+12*, FTG+19, MGTF+6~ |
| %ZCOMND | DEL+5~, DEL+10*, DEL+21, DEL+23 |
| %ZDELIM | DEL+5~, DEL+9*, DEL+20 |
| %ZFOUND | DEL+13~, DEL+19*, DEL+20 |
| %ZI | DEL+13~, DEL+14* |
| %ZI1 | DEL1+1~, DEL1+2, DEL1+3 |
| %ZI2 | DEL1+1~, DEL1+2, DEL1+3 |
| %ZI2( | DEL1+2* |
| %ZISH | DEL+13~*, DEL+14*, DEL+16, DEL+17, FEXIST+2~, FEXIST+3*, FEXIST+4, LIST+3~, LIST+7*, LIST+8 , LIST+9*, LIST+11, FTG+7~, MGTF+6~ |
| %ZISH1 | FTG+7~, MGTF+6~ |
| %ZISHF | MAKEREF+7*, MAKEREF+8*, MAKEREF+9, MAKEREF+10*, MAKEREF+11*, FTG+6~, FTG+14, MGTF+11 |
| %ZISHI | MAKEREF+5*, FTG+7~, FTG+16*, MGTF+6~, MGTF+11* |
| %ZISHIO | OPEN+6~, OPEN+8* |
| %ZISHL | FTG+7~, MGTF+6~ |
| %ZISHN | LIST+3~, LIST+12*, LIST+13 |
| %ZISHO | MAKEREF+9*, FTG+6~, FTG+15 |
| %ZISHOF | FTG+7~, FTG+8* |
| %ZISHOX | FTG+7~, GTF+5~, MGTF+6~ |
| %ZISHS | FTG+7~, MGTF+6~ |
| %ZISHX | MV+3~, MV+12 |
| %ZISHX( | MV+11* |
| %ZISHY | FEXIST+2~, LIST+3~, LIST+8*, LIST+18, FTG+7~, GTF+5~, GTF+6*, GTF+7, GATF+6~, GATF+7* , GATF+8 |
| %ZISUB | FTG+6~ |
| %ZISUB( | MAKEREF+10* |
| %ZLIST | DEL+5~ |
| %ZOS | OPEN+6~, OPEN+8*, OPEN+9, OPEN+10, DEL+5~, DEL+8*, DEL+9, DEL+10, DEL+18, SPLIT+1~* , SPLIT+2, SPLIT+6, LIST+3~, LIST+4*, LIST+9, LIST+16, LIST+17, LIST+18, MV+3~*, MV+9 , MV+10, PWD+1~, PWD+2*, PWD+4, TRNLNM+1~, TRNLNM+2*, TRNLNM+3, TRNLNM+8, TRNLNM+13, DEFDIR+2~* , DEFDIR+7, DEFDIR+15, DEFDIR+20 |
| %ZX | DEL+13~, DEL+17*, DEL+18*, DEL+19, DEL+20, LIST+3~, LIST+11*, LIST+12, LIST+13*, LIST+15 , LIST+16*, LIST+17, LIST+18, FTG+7~, MGTF+6~, MGTF+11* |
| %ZX1 | DEL~, DEL+7*, DEL+17, DEL+25, LIST~, LIST+4*, LIST+11, FTG~, FTG+8*, FTG+10 , GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+7 |
| %ZX2 | DEL~, DEL+14, DEL+25, LIST~, LIST+7, FTG~, FTG+10, GTF~, GTF+6, GATF~ , GATF+7, MGTF~, MGTF+7 |
| %ZX3 | DEL1~, DEL1+2, LIST~, LIST+16, LIST+17, LIST+18, LIST+20, FTG~, FTG+9, GTF~ , GTF+6, GATF~, GATF+7, MGTF~, MGTF+8 |
| %ZX4 | FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+8 |
| %ZX5 | FTG~, FTG+8, MGTF~, MGTF+8 |
| %ZXDEL | DEL+5~, DEL+6*, DEL+16*, DEL+25*, DEL+26, DELERR+3* |
| %ZY | LIST+3~, LIST+17*, LIST+18* |
| D | SPLIT+1~, SPLIT+3*, SPLIT+4, SPLIT+7* |
| 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+8, OPEN+14*, CLOSE+4, READNXT+3, FTG+13, MGTF+6~, MGTF+11 |
| IO("HOME" | CLOSE+7 |
| IO(1 | OPEN+14*, CLOSE+4! |
| IOM | OPEN+14* |
| IOSL | OPEN+14* |
| >> IOT | OPEN+14* |
| 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+8*, OPEN+13*, OPEN+14*, OPNERR+2*, FTG+6~, FTG+11, MGTF+9 |
| REC | READNXT~, READNXT+2*, READNXT+3* |
| REC( | READNXT+5* |
| U | OPEN+8* |
| X | CLOSE~, CLOSE+5, MV+3~, MV+5*, MV+6, MV+8, MV+9, MV+11, FL~, FL+2 , FL+3*, FL+4*, EOF~, EOF+1, READNXT+2~, READNXT+3*, READNXT+4, READNXT+5 |
| X1 | OPEN~, OPEN+15, MV~, MV+4*, MV+5, MV+11, MV+12 |
| X2 | OPEN~, OPEN+8*, OPEN+13, MV~, MV+5, MV+11* |
| X3 | OPEN~, OPEN+13 |
| X4 | OPEN~, OPEN+9, OPEN+10 |
| X5 | OPEN~ |
| X6 | OPEN~, OPEN+14 |
| Y | MV+3~, MV+5*, MV+8, MV+9, MV+12*, PWD+1~, PWD+2*, PWD+3*, PWD+4, MGTF+6~ |
| Y1 | MV~, MV+4*, MV+5 |
| Y2 | MV~, MV+5 |
| ZOSHP1 | FL+1~, FL+2*, FL+3 |
| ZOSHP2 | FL+1~, FL+2*, FL+4 |