%ZISH ;ISF/AC,RWF - GT.M for VMS/Unix Host file Control ;12/07/09 15:53
Source file <ZISHGTM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLOSE(X) | ;SR. Close HFS device not opened by %ZIS.
|
|
| FL(X) | ;Fl len
|
|
| OPENERR | ;
|
|
| LSTX | ;
|
|
| QL(X) | ;Qlfrs
|
|
| GTF(%ZX1,%ZX2,%ZX3,%ZX4) | ;ef,SR. Load contents of global to host file.
|
|
| OPNERR | ;error on open
|
|
| DEFDIR(DF) | ;ef. Default Dir and frmt
|
|
| DEL(%ZX1,%ZX2) | ;ef,SR. Del fl(s)
|
|
| READNXT(REC) | ;
|
|
| OPEN(X1,X2,X3,X4,X5,X6) | ;SR. Open file
|
|
| MAKEREF(HF,IX,OVF) | ;Internal call to rebuild global ref.
|
|
| MGTF(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5) | ;
|
|
| LIST(%ZX1,%ZX2,%ZX3) | ;ef,SR. Set local array holding fl names
|
|
| EOF(X) | ;Eof flag, Pass in $ZA
|
|
| STATUS() | ;ef,SR. Return EOF status
|
|
| FTG(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5) | ;ef,SR. Unload contents of host file into global
|
|
| PWD() | ;ef,SR. Print working directory
|
|
| SPAWNERR | ;TRAP ERROR OF SPAWN
|
|
| DELERR | ;Trap any $ETRAP error, unwind and return.
|
|
| ERREOF | ||
| GATF(%ZX1,%ZX2,%ZX3,%ZX4) | ;ef,SR. Append to host file.
|
|
| MV(X1,X2,Y1,Y2) | ;ef,SR. Rename a fl
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | DEFDIR+5 |
| ^XTV(8989.3 - [#8989.3] | DEFDIR+2 |
| ^XUTL("XQ" | CLOSE+4 |
| Name | Line Occurrences |
|---|---|
| $$DEFDIR | OPEN+8, DEL+3, LIST+5, MV+3, PWD+2, FTG+8 |
| $$EOF | FTG+13 |
| $$MGTF | GTF+7, GATF+7 |
| CLOSE | FTG+18, ERREOF, MGTF+12 |
| MAKEREF | FTG+9, MGTF+6 |
| READNXT | FTG+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OPEN+6~, READNXT+1~, READNXT+4* |
| %1 | OPEN+6~ |
| %2 | OPEN+6~ |
| %C | MV+2~, MV+4* |
| %CONT | FTG+6~ |
| %EXIT | FTG+6~, FTG+12* |
| %I2 | OPEN+6~, OPEN+11*, OPEN+12 |
| %IO | OPEN+6~, OPEN+11*, OPEN+14 |
| %OVFCNT | FTG+6~, FTG+15* |
| %P | OPEN+6~ |
| %T | OPEN+6~, OPEN+12*, OPEN+13 |
| %XX | FTG+13!, FTG+14, FTG+15 |
| %XX( | FTG+15 |
| %Z | MV+2~, MV+8*, MV+9 |
| %ZA | FTG+6~, FTG+13, READNXT+2* |
| %ZB | FTG+6~ |
| %ZC | FTG+6~ |
| %ZISH | DEL+2~, DEL+3*, DEL+4*, DEL+6, DEL+7, LIST+4~, LIST+7*, LIST+8*, LIST+9, FTG+7~ , MGTF+5~ |
| %ZISH1 | FTG+7~, MGTF+5~ |
| >> %ZISHDL1 | SPAWNERR+1 |
| >> %ZISHF | MAKEREF+6*, MAKEREF+7*, MAKEREF+8, MAKEREF+9*, MAKEREF+10*, FTG+14, MGTF+11 |
| %ZISHI | MAKEREF+4*, FTG+7~, FTG+16*, MGTF+5~, MGTF+11* |
| %ZISHL | FTG+7~, MGTF+5~ |
| %ZISHLGR | DEL+2~, FTG+7~, GTF+6~, MGTF+5~ |
| >> %ZISHO | MAKEREF+8*, FTG+15 |
| %ZISHOF | FTG+7~, FTG+8* |
| %ZISHOX | FTG+7~, GTF+6~, MGTF+5~ |
| %ZISHS | FTG+7~, MGTF+5~ |
| %ZISHY | FTG+7~, GTF+6~, GTF+7*, GTF+8, GATF+6~, GATF+7*, GATF+8 |
| %ZISUB | FTG+7~ |
| %ZISUB( | MAKEREF+9* |
| %ZIX | LIST+4~, LIST+9*, LIST+10 |
| %ZIY | LIST+4~, LIST+10* |
| %ZL | FTG+6~ |
| %ZX | DEL+2~, DEL+7*, DEL+8, DEL+9, DEL+11, DEL+12, FTG+7~, MGTF+5~, MGTF+11* |
| %ZX1 | DEL~, DEL+3*, DEL+7, LIST~, LIST+5*, LIST+9, FTG~, FTG+8*, FTG+10, GTF~ , GTF+7, GATF~, GATF+7, MGTF~, MGTF+6 |
| %ZX2 | DEL~, DEL+4, LIST~, LIST+8, FTG~, FTG+10, GTF~, GTF+7, GATF~, GATF+7 , MGTF~, MGTF+6 |
| %ZX3 | LIST~, LIST+10, LSTX+2, FTG~, FTG+9, GTF~, GTF+7, GATF~, GATF+7, MGTF~ , MGTF+7 |
| %ZX4 | FTG~, FTG+9, GTF~, GTF+7, GATF~, GATF+7, MGTF~, MGTF+7 |
| %ZX5 | FTG~, FTG+8, MGTF~, MGTF+7 |
| %ZXDEL | DEL+2~, DEL+3*, DEL+6*, DEL+10*, DEL+12*, DEL+13, DELERR+2* |
| >> DELETE | DEL+11, SPAWNERR+1 |
| DF | DEFDIR~, DEFDIR+1*, DEFDIR+2*, DEFDIR+5, DEFDIR+7*, DEFDIR+8, DEFDIR+9, DEFDIR+10*, DEFDIR+12*, DEFDIR+16* , DEFDIR+17*, DEFDIR+18*, DEFDIR+19 |
| F | MAKEREF+2~, MAKEREF+5*, MAKEREF+6, MAKEREF+7 |
| HF | MAKEREF~, MAKEREF+4, MAKEREF+5, MAKEREF+9 |
| I | MAKEREF+2~, MAKEREF+9*, FTG+7~, READNXT+1~, READNXT+4* |
| IO | OPEN+14*, CLOSE+2, FTG+13, READNXT+2, MGTF+5~, MGTF+11 |
| IO("HOME" | CLOSE+4 |
| IO(1 | OPEN+14*, CLOSE+2! |
| IOM | OPEN+14* |
| IOSL | OPEN+14* |
| >> IOT | OPEN+14* |
| IX | MAKEREF~, MAKEREF+4, MAKEREF+5, MAKEREF+6, MAKEREF+7, MAKEREF+9 |
| MX | MAKEREF+2~, MAKEREF+4*, MAKEREF+9 |
| OVF | MAKEREF~, MAKEREF+3*, MAKEREF+8 |
| P1 | DEFDIR+6~, DEFDIR+8*, DEFDIR+9*, DEFDIR+10, DEFDIR+12 |
| P2 | DEFDIR+6~, DEFDIR+8*, DEFDIR+9*, DEFDIR+10, DEFDIR+11*, DEFDIR+12 |
| POP | OPEN+13*, OPEN+14*, OPNERR+1*, LIST+4~, FTG+7~, FTG+11, MGTF+8 |
| REC | READNXT~, READNXT+2* |
| REC( | READNXT+4* |
| T | READNXT+1~ |
| U | OPEN+8* |
| X | OPEN+6~, CLOSE~, CLOSE+3, DEL+2~, LIST+4~, EOF~, EOF+1, QL~, QL+1, QL+2* , FL~, FL+2, FL+3*, FL+4*, FTG+6~, READNXT+1~, READNXT+2*, READNXT+3, READNXT+4, MGTF+9~ |
| X1 | OPEN~, OPEN+15, MV~, MV+3* |
| X2 | OPEN~, OPEN+8*, OPEN+11, MV~, MV+6 |
| X3 | OPEN~, OPEN+11 |
| X4 | OPEN~, OPEN+8*, OPEN+9, OPEN+10 |
| X5 | OPEN~, OPEN+10 |
| X6 | OPEN~, OPEN+14 |
| Y | OPEN+6~, OPEN+9*, OPEN+10*, OPEN+11*, PWD+1~, PWD+2*, PWD+3*, PWD+4, MGTF+5~ |
| Y1 | MV~, MV+3*, MV+8 |
| Y2 | MV~, MV+6, MV+8 |
| ZOSHP1 | FL+1~, FL+2*, FL+3 |
| ZOSHP2 | FL+1~, FL+2*, FL+4 |