Return to DINV1VXD.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINV1VXD.m, revision 1.1

1.1     ! snw         1: %ZOSV1 ;SFISC/AC-View commands & special functions(continued). ;03:11 PM  21 Dec 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: DEVOPN ;List devices opened.
        !             5:        N %,%B,%I,%L,%X,%X1,%X2,%Y
        !             6:        S %X1=$V($V(0)+8),%X2=$V(%X1),Y=""
        !             7:        F %I=1:1 D D1 S %X2=$V(%X2) Q:%X2=%X1
        !             8:        Q
        !             9: D1     S %X=$V(%X2+8)
        !            10:        S %L=$V(%X+4,-1,1),%B=$V(%X+8)
        !            11:        S %Y=""
        !            12:        F %=1:1:%L S %Y=%Y_$C($V(%B,-1,1)) S %B=%B+1
        !            13:        S Y=Y_%Y_"," Q
        !            14:        ;
        !            15: DEVOK  ;Check Device Availability.  (not complete)
        !            16:        ;INPUT:  X=Device $I, X1=IOT -- X1 needed for resources
        !            17:        ;OUTPUT: Y=0 if available, Y=job # if owned, Y=-1 if device does not exists.
        !            18:        S Y=0 Q:X["::"  I $G(X1)="RES" G RES
        !            19:        S Y=$ZC(%GETDVI,X,"EXISTS")
        !            20:        G DV1:Y D DV2 Q:Y=-1  I Y="TERM" S Y=-1 Q
        !            21:        S Y=-2 Q
        !            22: DV1    S Y=$ZC(%GETDVI,X,"PID") I Y=$J!($ZC(%GETDVI,X,"SPL")) S Y=0 Q
        !            23:        I Y,$ZC(%GETJPI,X,"MASTER_PID")=Y G DVOPN
        !            24:        Q:Y>0  D DV2 G DVOPN:Y="TERM" S Y=$S(Y="DISK":0,Y="MAILBOX":0,Y="TAPE":0,1:-1) Q
        !            25: DV2    S Y=$ZC(%PARSE,X) I Y="" S Y=-1 Q
        !            26:        I X]"" S Y=$ZC(%GETDVI,$S(Y]"":Y,1:X),"DEVCLASS") Q
        !            27:        Q
        !            28: DVOPN  S $ZT="DVERR",Y=0 Q:$D(%ZTIO)
        !            29:        L:$D(%ZISLOCK) +@%ZISLOCK:60
        !            30:        O X::$S($D(%ZISTO):%ZISTO,1:0) E  S Y=999 L:$D(%ZISLOCK) -@%ZISLOCK Q
        !            31:        L:$D(%ZISLOCK) -@%ZISLOCK
        !            32:        S Y=0 I '$D(%ZISCHK)!$S($D(%ZIS)#2:(%ZIS["T"),1:0) C X Q
        !            33:        S:X]"" IO(1,X)="" Q
        !            34: DVERR  I $ZE["OPENERR" S Y=-1 Q
        !            35:        ZQ
        !            36: RES    S Y=0,%ZISD0=$O(^%ZISL(3.54,"B",X,0))
        !            37:        I '%ZISD0 S Y=-1,%ZISD0=%O(^%ZIS(1,"C",X)) Q:'%ZISD0  Q:'$D(^%ZIS(1,+%ZISD0,0))  Q:$P(^(0),"^")'=X  Q:'$D(^("TYPE"))  Q:^("TYPE")'="RES"  S Y=0 Q
        !            38:        S X1=$S($D(^%ZISL(3.54,+%ZISD0,0)):^(0),1:"")
        !            39:        I $P(X1,"^",2)&(X=$P(X1,"^")) S Y=0 Q
        !            40:        S Y=999 F %ZISD1=0:0 S %ZISD1=$O(^%ZISL(3.54,%ZISD0,1,%ZISD1)) Q:%ZISD1'>0  I $D(^(%ZISD1,0)) S Y=$P(^(0),"^",3) Q
        !            41:        K %ZISD0,%ZISD1
        !            42:        Q