| 1 | %ZISF ;SFISC/AC - HOST FILES FOR MVX. ;6/21/93 15:40
|
|---|
| 2 | ;;8.0T13;KERNEL;;Aug 1, 1994
|
|---|
| 3 | HFS ;Host File Server
|
|---|
| 4 | Q:$D(IOP)&$D(%IS("HFSIO"))&$D(%IS("IOPAR"))
|
|---|
| 5 | I $D(%ZIS("HFSNAME")) S IO=%ZIS("HFSNAME"),%X=IO
|
|---|
| 6 | E D ASKHFS
|
|---|
| 7 | H S:$D(%ZIS("HFSMODE")) %ZISOPAR=$$MODE^%ZISF(%ZIS("HFSMODE"))
|
|---|
| 8 | H1 I $D(IO("Q"))!(%IS["Z") S IO("HFSIO")=""
|
|---|
| 9 | S IO=$S(%X]"":%X,1:IO) S:$D(IO("HFSIO")) IO("HFSIO")=IO
|
|---|
| 10 | W:'$D(IOP)&$D(%ZIS("HFSNAME")) " HOST FILE TO USE: "_%ZIS("HFSNAME"),!
|
|---|
| 11 | D ASKPAR^%ZIS6,SETPAR^%ZIS3
|
|---|
| 12 | HFSIOO I '$D(IOP),%ZTYPE="HFS",'$D(%ZIS("HFSMODE")),'$P(^%ZIS(1,%E,0),"^",4),%ZISOPAR="",$D(^%ZIS(1,%E,1)),$P(^(1),"^",6) W ?45,"INPUT/OUTPUT OPERATION: RW//"
|
|---|
| 13 | Q:'$T D SBR^%ZIS1 I $D(DTOUT)!$D(DFOUT)!$D(DUOUT) S POP=1 Q
|
|---|
| 14 | D HOPT:%X="?"!("NRWS"'[%X),HOPT1:%X="??" G HFSIOO:%X="?"!("NRWS"'[%X)
|
|---|
| 15 | S:%X]"" %ZISOPAR="("""_%X_""")" Q
|
|---|
| 16 | ;
|
|---|
| 17 | ASKHFS ;---Ask host file name here---
|
|---|
| 18 | I $D(%IS("B","HFS"))#2,%IS("B","HFS")]"" D
|
|---|
| 19 | .S IO=%IS("B","HFS") ;Set default host file name
|
|---|
| 20 | S %X='$P($G(^%ZIS(1,%E,1)),"^",5)
|
|---|
| 21 | S:'%X %X=""
|
|---|
| 22 | Q:$D(IOP)!%X!$D(%ZIS("HFSNAME"))
|
|---|
| 23 | ASKAGN W !,"HOST FILE NAME: "_IO_"//" D SBR^%ZIS1
|
|---|
| 24 | I %X?1."?".E W !,"ENTER HOST FILE NAME" G ASKAGN
|
|---|
| 25 | S:$D(DTOUT)!$D(DUOUT) POP=1
|
|---|
| 26 | Q
|
|---|
| 27 | MODE(Y) ;Return %ZISOPAR in Y.
|
|---|
| 28 | N X S X=Y
|
|---|
| 29 | S Y=$S(X="R":"R",X="W":"N",X="RW":"RW",X="A":"RW",1:"N")
|
|---|
| 30 | Q Y
|
|---|
| 31 | HOPT W !,"You may enter a string of codes that represents",!,"the following host file input/ouput operation:"
|
|---|
| 32 | W !?16,"R = READ ACCESS",!?16,"W = WRITE ACCESS",!?16,"N = NEWVERSION",!?16,"S = STREAM FORMAT",! Q
|
|---|
| 33 | HOPT1 S %ZISI=$O(^DIC(9.2,"B","XUHFSPARAM-MVX",0)) Q:'%ZISI Q:'$D(^DIC(9.2,+%ZISI,0)) Q:$P(^(0),"^",1)'="XUHFSPARAM-MVX"
|
|---|
| 34 | Q:$D(^DIC(9.2,+%ZISI,1))'>9 F %X=0:0 S %X=$O(^DIC(9.2,+%ZISI,1,%X)) Q:%X'>0 I $D(^(%X,0)) W !,^(0)
|
|---|
| 35 | W ! S %X="??" Q
|
|---|
