%ZISH ;IHS\PR,SFISC/AC - Host File Control for MSM (PW);09/23/96 11:22 [ 04/02/2003 8:29 AM ]
Source file <ZISHPW.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEL(%ZISHX1,%ZISHX2) | ;SR. Del fl(s)
|
|
| DF(X) | ;Dir frmt
|
|
| MGTF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4,%ZISHX5) | ;
|
|
| CLOSE(X) | ;SR. Close HFS device not opened by %ZIS.
|
|
| FL(X) | ;Fl len
|
|
| READREC(X) | ;Read record from host file.
|
|
| OPENERR | ;
|
|
| JW | ;Call dos $ZOS
|
|
| MAKEREF(HF,IX,OVF) | ;Internal call to rebuild global ref.
|
|
| EOF(X) | ;Eof flag, pass in $ZC
|
|
| OPEN(X1,X2,X3,X4,X5) | ||
| STATUS() | ;SR. Return EOF status
|
|
| LIST(%ZISHX1,%ZISHX2,%ZISHX3) | ;SR. Create a local array holding fl names
|
|
| ERREOF | ||
| SLOWCOPY | ; Copy without view buffer
|
|
| READNXT(REC) | ;Read any sized record into array.
|
|
| FTG(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4,%ZISHX5) | ;SR. Unload contents of host file into global
|
|
| PWD(X) | ;SR. Print working directory
|
|
| GATF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4) | ;SR. Append to host file.
|
|
| GTF(%ZISHX1,%ZISHX2,%ZISHX3,%ZISHX4) | ;SR. Load contents of global to host file.
|
|
| MV(X1,X2,Y1,Y2) | ;SR. Rename a fl
|
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | CLOSE+6 |
| $$MODE^%ZISF | OPEN+11 |
| $$DEL^%ZISH | MV+13 |
| OPEN^%ZISH | FTG+10, MGTF+7 |
| RMDEV^%ZISUTL | CLOSE+5 |
| SAVDEV^%ZISUTL | OPEN+16 |
| $$DEL^ZISHMSMU | DEL+1 |
| $$IHS^ZISHMSMU | OPEN+1, DEL+1, LIST+1, MV+1 |
| $$LIST^ZISHMSMU | LIST+1 |
| $$MV^ZISHMSMU | MV+1 |
| $$OPEN^ZISHMSMU | OPEN+1 |
| $$PWD^ZISHMSMU | PWD+1, PWD+2 |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$EOF | READNXT+2, READNXT+4, STATUS+4, FTG+13 |
| $$MGTF | GTF+7, GATF+7 |
| CLOSE | FTG+18, ERREOF, MGTF+12 |
| MAKEREF | FTG+9, MGTF+6 |
| READNXT | FTG+13 |
| SLOWCOPY | MV+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OPEN+7~, OPEN+9*, OPEN+12, OPEN+14, OPEN+15, CLOSE+3~, DEL+5~ |
| %1 | OPEN+7~, OPEN+11*, OPEN+12 |
| %2 | OPEN+7~, OPEN+12*, OPEN+13 |
| %CONT | FTG+6~ |
| %I | OPEN+7~, OPEN+8*, OPEN+10, OPEN+14 |
| %OVFCNT | FTG+6~, FTG+15* |
| %T | OPEN+7~, OPEN+8*, OPEN+9*, OPEN+10 |
| %XX | FTG+13!, FTG+14, FTG+15 |
| %XX( | FTG+15 |
| %ZA | OPEN+7~, OPEN+13*, OPEN+14, READNXT+2*, READNXT+3, READNXT+4*, FTG+6~ |
| %ZB | MV+4~, MV+12*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6, SLOWCOPY+7, READNXT+2*, READNXT+4*, FTG+6~ |
| %ZC | MV+4~, MV+12*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6*, READNXT+2*, READNXT+4*, FTG+6~, FTG+13 |
| %ZISH | DEL+5~, DEL+10*, DEL+12*, DEL+14, LIST+9~, LIST+12*, LIST+13, FTG+7~, MGTF+5~ |
| %ZISH1 | FTG+7~, MGTF+5~ |
| %ZISHDV1 | MV+4~, MV+9*, MV+10, MV+12, SLOWCOPY+2, SLOWCOPY+4 |
| %ZISHDV2 | MV+4~, MV+9*, MV+11, SLOWCOPY+5, SLOWCOPY+6 |
| >> %ZISHF | MAKEREF+6*, MAKEREF+7*, MAKEREF+8, MAKEREF+9*, MAKEREF+10*, FTG+14, MGTF+11 |
| %ZISHFN1 | MV+4~, MV+9* |
| %ZISHFN2 | MV+4~, MV+9* |
| %ZISHI | MAKEREF+4*, FTG+7~, FTG+16*, MGTF+5~, MGTF+11* |
| %ZISHIO | OPEN+7~, OPEN+8* |
| %ZISHL | FTG+7~, MGTF+5~ |
| %ZISHN | LIST+9~, LIST+10*, LIST+14*, LIST+15 |
| >> %ZISHO | MAKEREF+8*, FTG+15 |
| %ZISHOF | FTG+7~, FTG+8* |
| %ZISHOX | FTG+7~, GTF+6~, MGTF+5~ |
| %ZISHPCT | MV+4~, MV+12*, SLOWCOPY+8* |
| %ZISHS | FTG+7~, MGTF+5~ |
| %ZISHSIZ | MV+4~, MV+12*, SLOWCOPY+3, SLOWCOPY+6, SLOWCOPY+7 |
| %ZISHX | LIST+9~, LIST+13*, LIST+16, MV+4~, MV+13, FTG+7~, MGTF+5~, MGTF+11* |
| %ZISHX( | MV+13* |
| %ZISHX1 | DEL~, DEL+1, DEL+7*, DEL+14, LIST~, LIST+1, LIST+13, FTG~, FTG+10, GTF~ , GTF+7, GATF~, GATF+7, MGTF~, MGTF+6 |
| %ZISHX2 | DEL~, DEL+1, DEL+10, DEL+12, LIST~, LIST+1, LIST+12, FTG~, FTG+10, GTF~ , GTF+7, GATF~, GATF+7, MGTF~, MGTF+6 |
| %ZISHX3 | LIST~, LIST+1, LIST+14, LIST+17, FTG~, FTG+9, GTF~, GTF+7, GATF~, GATF+7 , MGTF~, MGTF+7 |
| %ZISHX4 | FTG~, FTG+9, GTF~, GTF+7, GATF~, GATF+7, MGTF~, MGTF+7 |
| %ZISHX5 | FTG~, FTG+8, MGTF~, MGTF+7 |
| %ZISHY | LIST+9~, LIST+14, LIST+15*, LIST+16*, FTG+7~, GTF+6~, GTF+7*, GTF+8, GATF+6~, GATF+7* , GATF+8 |
| %ZISUB | FTG+7~ |
| %ZISUB( | MAKEREF+9* |
| %ZL | READNXT+2*, FTG+6~ |
| F | MAKEREF+2~, MAKEREF+5*, MAKEREF+6, MAKEREF+7 |
| HF | MAKEREF~, MAKEREF+4, MAKEREF+5, MAKEREF+9 |
| I | READNXT+1~, READNXT+4*, MAKEREF+2~, MAKEREF+9*, FTG+7~ |
| IO | OPEN+8, OPEN+15*, CLOSE+4, READNXT+2, READREC+2, FTG+13, MGTF+5~, MGTF+11 |
| IO(1 | OPEN+15*, CLOSE+4! |
| 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+10*, OPEN+14*, FTG+7~, FTG+11, MGTF+8 |
| REC | READNXT~, READNXT+2* |
| REC( | READNXT+4* |
| T | READNXT+1~ |
| X | CLOSE~, CLOSE+5, MV+4~, MV+5*, MV+7, MV+9, SLOWCOPY+1~, SLOWCOPY+4*, SLOWCOPY+5, SLOWCOPY+7* , SLOWCOPY+8, PWD~, PWD+1, DF~, DF+1, DF+2*, DF+3*, FL~, FL+2, FL+3* , FL+4*, READNXT+1~, READNXT+4*, EOF~, EOF+1, READREC~, READREC+2*, FTG+6~, FTG+12*, MGTF+9~ , MGTF+10* |
| X1 | OPEN~, OPEN+1, OPEN+16, MV~, MV+1, MV+5, MV+7, MV+13 |
| X2 | OPEN~, OPEN+1, OPEN+11, MV~, MV+1, MV+5, MV+13 |
| X3 | OPEN~, OPEN+1, OPEN+11 |
| X4 | OPEN~, OPEN+11 |
| X5 | OPEN~ |
| Y | MV+4~, MV+6*, MV+7, MV+9, MV+13*, SLOWCOPY+1~, PWD+3~, PWD+4*, PWD+5, PWD+6* , PWD+7, READREC+1~, READREC+2*, READREC+4, MGTF+5~ |
| Y1 | MV~, MV+1, MV+6, MV+7 |
| Y2 | MV~, MV+1, MV+6 |
| ZOSHC | DEL+6~, DEL+14*, JW+1 |
| ZOSHDA | DEL+6~ |
| ZOSHDF | DEL+6~ |
| ZOSHF | DEL+6~ |
| >> ZOSHNUM | JW+1 |
| ZOSHP1 | FL+1~, FL+2*, FL+3 |
| ZOSHP2 | FL+1~, FL+2*, FL+4 |
| ZOSHQ | DEL+6~, DEL+10*, DEL+11 |
| ZOSHX | DEL+6~, JW+1* |