%ZISH ;IHS\PR,SFISC/AC - Host File Control for MSM ;05/21/98 11:17 [ 05/01/2003 12:51 PM ]
Source file <ZISHMNT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CLOSE(X) | ;SR. Close HFS device not opened by %ZIS. | |
| FL(X) | ;Fl len | |
| OPENERR | ; | |
| JW | ;Call dos $ZOS | |
| LIST1 | ; | |
| MAKEREF(HF,IX,OVF) | ;Internal call to rebuild global ref. | |
| PWD(X) | ;ef,SR. Print working directory | |
| GTF(%ZX1,%ZX2,%ZX3,%ZX4) | ;ef,SR. Load contents of global to host file. | |
| DEFDIR(DF) | ;ef. Default Dir and frmt | |
| DEL(%ZX1,%ZX2) | ;ef,SR. Del fl(s) | |
| OPEN(X1,X2,X3,X4,X5) | ||
| READREC(X) | ;Read record from host file. | |
| SENDTO1(ZISH1,ZISH2) | ||
| READNXT(REC) | ;Read any sized record into array. | |
| DF(X) | ;Dir frmt  ; IHS/MFD added subroutine and edited for NT/DOS | |
| MGTF(%ZX1,%ZX2,%ZX3,%ZX4,%ZX5) | ; | |
| LIST(%ZX1,%ZX2,%ZX3) | ;ef,SR. Create a local array holding fl names | |
| EOF(X) | ;Eof flag, pass in $ZC | |
| 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 | |
| ERREOF | ||
| SEND(ZISH1,ZISH2,ZISH3) | ||
| 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: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("TRAP" | FTG+12, MGTF+10 | 
| ^XTV(8989.3 - [#8989.3] | DEFDIR+2 | 
| Name | Line Occurrences | 
|---|---|
| $$DEFDIR | OPEN+8, DEL+10, LIST1+14, MV+7, MV+13, PWD+3, FTG+8 | 
| $$EOF | READNXT+2, READNXT+4, STATUS+2, FTG+13, FTG+14 | 
| $$MGTF | GTF+6, GATF+7 | 
| CLOSE | FTG+19, ERREOF, MGTF+12 | 
| DF | LIST1+3 | 
| LIST1 | LIST+6 | 
| MAKEREF | FTG+9, MGTF+6 | 
| READNXT | FTG+13 | 
| SLOWCOPY | MV+21 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | OPEN+7~, CLOSE+2~, DEL+9~ | 
| %1 | OPEN+7~ | 
| %2 | OPEN+7~, OPEN+11*, OPEN+14, OPEN+15, OPEN+16 | 
| %CONT | FTG+6~ | 
| %I | OPEN+7~, OPEN+8*, OPEN+15 | 
| %OVFCNT | FTG+6~, FTG+16* | 
| %P1 | OPEN+7~, OPEN+10* | 
| %P2 | OPEN+7~, OPEN+9* | 
| %P6 | OPEN+7~, OPEN+10* | 
| >> %Q | OPEN+8*, OPEN+10 | 
| %T | OPEN+7~, OPEN+8*, OPEN+11*, OPEN+12 | 
| %XX | FTG+6~, FTG+13!, FTG+14, FTG+15, FTG+16 | 
| %XX( | FTG+16 | 
| %ZA | OPEN+7~, OPEN+14*, OPEN+15, READNXT+2*, READNXT+3, READNXT+4*, FTG+6~ | 
| %ZB | MV+12~, MV+20*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6, SLOWCOPY+7, READNXT+2*, READNXT+4*, FTG+6~ | 
| %ZC | MV+12~, MV+20*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6*, READNXT+2*, READNXT+4*, FTG+6~, FTG+13, FTG+14 | 
| %ZH | DEL+9~, DEL+13*, DEL+15*, DEL+17 | 
| %ZISH | LIST1+13~, LIST1+16*, LIST1+17, FTG+7~, MGTF+5~ | 
| %ZISH1 | FTG+7~, MGTF+5~ | 
| %ZISHDV1 | MV+12~, MV+17*, MV+18, MV+20, SLOWCOPY+2, SLOWCOPY+4 | 
| %ZISHDV2 | MV+12~, MV+17*, MV+19, SLOWCOPY+5, SLOWCOPY+6 | 
| >> %ZISHF | MAKEREF+6*, MAKEREF+7*, MAKEREF+8, MAKEREF+9*, MAKEREF+10*, FTG+15, MGTF+11 | 
| %ZISHFN1 | MV+12~, MV+17* | 
| %ZISHFN2 | MV+12~, MV+17* | 
| %ZISHI | MAKEREF+4*, FTG+7~, FTG+17*, MGTF+5~, MGTF+11* | 
| %ZISHIO | OPEN+7~, OPEN+8* | 
| %ZISHL | FTG+7~, MGTF+5~ | 
| %ZISHMVC | MV+6~, MV+9*, MV+10 | 
| %ZISHN | LIST1+13~, LIST1+14*, LIST1+18*, LIST1+19 | 
| >> %ZISHO | MAKEREF+8*, FTG+16 | 
| %ZISHOF | FTG+7~, FTG+8* | 
| %ZISHOX | FTG+7~, GTF+5~, MGTF+5~ | 
| %ZISHPCT | MV+12~, MV+20*, SLOWCOPY+8* | 
| %ZISHS | FTG+7~, MGTF+5~ | 
| %ZISHSIZ | MV+12~, MV+20*, SLOWCOPY+3, SLOWCOPY+6, SLOWCOPY+7 | 
| %ZISHX | MV+12~, MV+21 | 
| %ZISHX( | MV+21* | 
| %ZISHY | LIST1+13~, LIST1+18, LIST1+19*, LIST1+20*, FTG+7~, GTF+5~, GTF+6*, GTF+7, GATF+6~, GATF+7* , GATF+8 | 
| %ZISUB | FTG+7~ | 
| %ZISUB( | MAKEREF+9* | 
| %ZL | READNXT+2*, FTG+6~ | 
| %ZX | LIST1+13~, LIST1+17*, LIST1+20, FTG+7~, MGTF+5~, MGTF+11* | 
| %ZX1 | DEL~, DEL+6, DEL+10*, DEL+17, LIST~, LIST1+2, LIST1+3, LIST1+4, LIST1+14*, LIST1+17 , FTG~, FTG+8*, FTG+10, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+6 | 
| %ZX2 | DEL~, DEL+6, DEL+10, DEL+13, DEL+15, LIST~, LIST1+2, LIST1+4, LIST1+14, LIST1+16 , FTG~, FTG+10, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+6 | 
| %ZX2( | DEL+10, LIST1+14 | 
| %ZX3 | LIST~, LIST1+7, LIST1+18, LIST1+21, FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7 , MGTF~, MGTF+7 | 
| %ZX3( | LIST1+5* | 
| %ZX3(1 | LIST1+4* | 
| %ZX4 | FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+7 | 
| %ZX5 | FTG~, FTG+8, MGTF~, MGTF+7 | 
| DF | DEFDIR~, DEFDIR+1, DEFDIR+2*, DEFDIR+3*, DEFDIR+4 | 
| F | MAKEREF+2~, MAKEREF+5*, MAKEREF+6, MAKEREF+7 | 
| HF | MAKEREF~, MAKEREF+4, MAKEREF+5, MAKEREF+9 | 
| I | LIST1+5*, READNXT+1~, READNXT+4*, MAKEREF+2~, MAKEREF+9*, FTG+7~, FTG+14* | 
| IO | OPEN+8, OPEN+16*, CLOSE+3, READNXT+2, READREC+2, FTG+13, MGTF+5~, MGTF+11 | 
| IO(1 | OPEN+11, OPEN+16*, CLOSE+3! | 
| >> IOT | OPEN+16* | 
| IX | MAKEREF~, MAKEREF+4, MAKEREF+5, MAKEREF+6, MAKEREF+7, MAKEREF+9 | 
| LB | READNXT+1~, READNXT+2*, READNXT+4* | 
| MX | MAKEREF+2~, MAKEREF+4*, MAKEREF+9 | 
| OVF | MAKEREF~, MAKEREF+3*, MAKEREF+8 | 
| POP | OPEN+8*, OPEN+12*, OPEN+15*, OPEN+16*, FTG+7~, FTG+11, MGTF+8 | 
| REC | READNXT~, READNXT+2* | 
| REC( | READNXT+4* | 
| T | READNXT+1~ | 
| >> VAR | LIST+7, LIST1+1*, LIST1+7* | 
| X | CLOSE~, CLOSE+4, LIST1+4*, LIST1+5*, LIST1+6*, MV+6~, MV+8*, MV+10, MV+12~, MV+15* , MV+17, SLOWCOPY+1~, SLOWCOPY+4*, SLOWCOPY+5, SLOWCOPY+7*, SLOWCOPY+8, PWD~, PWD+1, DF~, DF+1 , DF+2*, DF+3*, FL~, FL+2, READNXT+1~, READNXT+4*, EOF~, EOF+1, READREC~, READREC+2* , FTG+12*, MGTF+9~, MGTF+10* | 
| X1 | OPEN~, OPEN+1, OPEN+17, MV~, MV+7*, MV+8, MV+13*, MV+14, MV+15, MV+21 | 
| X2 | OPEN~, OPEN+1, OPEN+8*, OPEN+10, MV~, MV+8, MV+14, MV+15, MV+21 | 
| X3 | OPEN~, OPEN+1, OPEN+10 | 
| X4 | OPEN~, OPEN+1, OPEN+9, OPEN+10 | 
| X5 | OPEN~ | 
| Y | MV+6~, MV+8*, MV+10, MV+12~, MV+15*, MV+17, MV+21*, SLOWCOPY+1~, PWD+2~, PWD+3* , PWD+4*, PWD+5, PWD+6*, PWD+7, READREC+1~, READREC+2*, READREC+4, MGTF+5~ | 
| Y1 | MV~, MV+7*, MV+8, MV+13*, MV+14, MV+15 | 
| Y2 | MV~, MV+8, MV+14, MV+15 | 
| ZISH1 | SEND~, SENDTO1~ | 
| ZISH2 | SEND~, SENDTO1~ | 
| ZISH3 | SEND~ | 
| ZOSHC | DEL+9~, DEL+17*, JW+1 | 
| ZOSHDA | DEL+9~ | 
| ZOSHDF | DEL+9~ | 
| ZOSHF | DEL+9~ | 
| >> ZOSHNUM | JW+1 | 
| ZOSHP1 | FL+1~, FL+2* | 
| ZOSHP2 | FL+1~, FL+2* | 
| ZOSHQ | DEL+9~, DEL+13*, DEL+14 | 
| ZOSHX | DEL+9~, JW+1* |