%ZISH ;IHS\PR,SFISC/AC - Host File Control for MSM ;01/04/2005 08:44
Source file <ZISHMSM.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
|
|
MAKEREF(HF,IX,OVF) | ;Internal call to rebuild global ref.
|
|
PWD(X) | ;ef,SR. Print working directory ;IHS/OIRM/DSD/AEF/1/22/03 PUT 'X' PARAMETER BACK IN FOR IHS
|
|
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)
|
|
READREC(X) | ;Read record from host file.
|
|
READNXT(REC) | ;Read any sized record into array.
|
|
OPEN(X1,X2,X3,X4,X5,X6) | ||
DF(X) | ;Dir frmt
|
|
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 | ||
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+12, DEL+5, LIST+9, MV+4, PWD+7, FTG+8 |
$$EOF | READNXT+2, READNXT+4, STATUS+2, FTG+13, FTG+14 |
$$MGTF | GTF+6, GATF+7 |
CLOSE | FTG+19, ERREOF, MGTF+12 |
MAKEREF | FTG+9, MGTF+6 |
READNXT | FTG+13 |
SLOWCOPY | MV+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | OPEN+11~, CLOSE+2~, DEL+4~ |
%1 | OPEN+11~ |
%2 | OPEN+11~, OPEN+15*, OPEN+18, OPEN+19, OPEN+20 |
%CONT | FTG+6~ |
%I | OPEN+11~, OPEN+12*, OPEN+19 |
%OVFCNT | FTG+6~, FTG+16* |
%P1 | OPEN+11~, OPEN+14* |
%P2 | OPEN+11~, OPEN+13* |
%P6 | OPEN+11~, OPEN+14* |
>> %Q | OPEN+12*, OPEN+14 |
%T | OPEN+11~, OPEN+12*, OPEN+15*, OPEN+16 |
%XX | FTG+6~, FTG+13!, FTG+14, FTG+15, FTG+16 |
%XX( | FTG+16 |
%ZA | OPEN+11~, OPEN+18*, OPEN+19, READNXT+2*, READNXT+3, READNXT+4*, FTG+6~ |
%ZB | MV+3~, MV+11*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6, SLOWCOPY+7, READNXT+2*, READNXT+4*, FTG+6~ |
%ZC | MV+3~, MV+11*, SLOWCOPY+3, SLOWCOPY+5*, SLOWCOPY+6*, READNXT+2*, READNXT+4*, FTG+6~, FTG+13, FTG+14 |
%ZH | DEL+4~, DEL+8*, DEL+9*, DEL+10, DEL+12 |
%ZISH | LIST+8~, LIST+11*, LIST+12, FTG+7~, MGTF+5~ |
%ZISH1 | FTG+7~, MGTF+5~ |
%ZISHDV1 | MV+3~, MV+8*, MV+9, MV+11, SLOWCOPY+2, SLOWCOPY+4 |
%ZISHDV2 | MV+3~, MV+8*, MV+10, SLOWCOPY+5, SLOWCOPY+6 |
>> %ZISHF | MAKEREF+6*, MAKEREF+7*, MAKEREF+8, MAKEREF+9*, MAKEREF+10*, FTG+15, MGTF+11 |
%ZISHFN1 | MV+3~, MV+8* |
%ZISHFN2 | MV+3~, MV+8* |
%ZISHI | MAKEREF+4*, FTG+7~, FTG+17*, MGTF+5~, MGTF+11* |
%ZISHIO | OPEN+11~, OPEN+12* |
%ZISHL | FTG+7~, MGTF+5~ |
%ZISHN | LIST+8~, LIST+9*, LIST+13*, LIST+14 |
>> %ZISHO | MAKEREF+8*, FTG+16 |
%ZISHOF | FTG+7~, FTG+8* |
%ZISHOX | FTG+7~, GTF+5~, MGTF+5~ |
%ZISHPCT | MV+3~, MV+11*, SLOWCOPY+8* |
%ZISHS | FTG+7~, MGTF+5~ |
%ZISHSIZ | MV+3~, MV+11*, SLOWCOPY+3, SLOWCOPY+6, SLOWCOPY+7 |
%ZISHX | MV+3~, MV+12 |
%ZISHX( | MV+12* |
%ZISHY | LIST+8~, LIST+13, LIST+14*, LIST+15*, 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 | LIST+8~, LIST+12*, LIST+15, FTG+7~, MGTF+5~, MGTF+11* |
%ZX1 | DEL~, DEL+5*, DEL+12, LIST~, LIST+9*, LIST+12, FTG~, FTG+8*, FTG+10, GTF~ , GTF+6, GATF~, GATF+7, MGTF~, MGTF+6 |
%ZX2 | DEL~, DEL+5, DEL+9, LIST~, LIST+9, LIST+11, FTG~, FTG+10, GTF~, GTF+6 , GATF~, GATF+7, MGTF~, MGTF+6 |
%ZX2( | DEL+5, LIST+9 |
%ZX3 | LIST~, LIST+13, LIST+16, FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7, MGTF~ , MGTF+7 |
%ZX4 | FTG~, FTG+9, GTF~, GTF+6, GATF~, GATF+7, MGTF~, MGTF+7 |
%ZX5 | FTG~, FTG+8, MGTF~, MGTF+7 |
%ZXDEL | DEL+4~, DEL+8*, DEL+10*, DEL+13 |
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 | READNXT+1~, READNXT+4*, MAKEREF+2~, MAKEREF+9*, FTG+7~, FTG+14* |
IO | OPEN+12, OPEN+20*, CLOSE+3, READNXT+2, READREC+2, FTG+13, MGTF+5~, MGTF+11 |
IO(1 | OPEN+15, OPEN+20*, CLOSE+3! |
>> IOT | OPEN+20* |
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+12*, OPEN+16*, OPEN+19*, OPEN+20*, FTG+7~, FTG+11, MGTF+8 |
REC | READNXT~, READNXT+2* |
REC( | READNXT+4* |
T | READNXT+1~ |
X | CLOSE~, CLOSE+4, MV+3~, MV+6*, MV+8, SLOWCOPY+1~, SLOWCOPY+4*, SLOWCOPY+5, SLOWCOPY+7*, SLOWCOPY+8 , PWD~, PWD+4, 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+4, OPEN+21, MV~, MV+4*, MV+5, MV+6, MV+12 |
X2 | OPEN~, OPEN+4, OPEN+12*, OPEN+14, MV~, MV+5, MV+6, MV+12 |
X3 | OPEN~, OPEN+4, OPEN+14 |
X4 | OPEN~, OPEN+4, OPEN+13, OPEN+14 |
X5 | OPEN~ |
X6 | OPEN~, OPEN+20 |
Y | MV+3~, MV+6*, MV+8, MV+12*, SLOWCOPY+1~, PWD+6~, PWD+7*, PWD+8*, PWD+9, PWD+10* , PWD+11, READREC+1~, READREC+2*, READREC+4, MGTF+5~ |
Y1 | MV~, MV+4*, MV+5, MV+6 |
Y2 | MV~, MV+5, MV+6 |
ZOSHC | DEL+4~, DEL+12*, JW+1 |
ZOSHDA | DEL+4~ |
ZOSHDF | DEL+4~ |
ZOSHF | DEL+4~ |
>> ZOSHNUM | JW+1 |
ZOSHP1 | FL+1~, FL+2* |
ZOSHP2 | FL+1~, FL+2* |
ZOSHX | DEL+4~, JW+1* |