Return to DINZVXD.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINZVXD.m, revision 1.1

1.1     ! snw         1: DINZVXD        ;SFISC/MVB-SETS %ZOSF FOR VAX DSM V6 ;03:21 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:        K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
        !             5:        F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z=""  S X=$P($T(Z+1+I),";;",2,99),^%ZOSF(Z)=X
        !             6:        K I,X,Z
        !             7:        Q
        !             8:        ;
        !             9: Z      ;
        !            10:        ;;OS
        !            11:        ;;DSM for OpenVMS^16
        !            12:        ;;ACTJ
        !            13:        ;;S Y=$$ACTJ^%ZOSV()
        !            14:        ;;AVJ
        !            15:        ;;S Y=$$AVJ^%ZOSV()
        !            16:        ;;BRK
        !            17:        ;;U $I:CENABLE
        !            18:        ;;DEL
        !            19:        ;;X "ZR  ZS @X"
        !            20:        ;;EOFF
        !            21:        ;;U $I:NOECHO
        !            22:        ;;EON
        !            23:        ;;U $I:ECHO
        !            24:        ;;EOT
        !            25:        ;;S Y=$ZA\1024#2
        !            26:        ;;ERRTN
        !            27:        ;;^%ZTER
        !            28:        ;;ETRP
        !            29:        ;;Q
        !            30:        ;;GD
        !            31:        ;;G ^%GD
        !            32:        ;;JOBPARAM
        !            33:        ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)
        !            34:        ;;LABOFF
        !            35:        ;;U IO:NOECHO
        !            36:        ;;LOAD
        !            37:        ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"
        !            38:        ;;LPC
        !            39:        ;;S Y=$ZC(%LPC,X)
        !            40:        ;;MAGTAPE
        !            41:        ;;S %MT("BS")="*1",%MT("FS")="*2",%MT("WTM")="*3",%MT("WB")="*4",%MT("REW")="*5",%MT("RB")="*6",%MT("REL")="*7",%MT("WHL")="*8",%MT("WEL")="*9"
        !            42:        ;;MAXSIZ
        !            43:        ;;Q
        !            44:        ;;MTBOT
        !            45:        ;;S Y=$ZA\32#2
        !            46:        ;;MTERR
        !            47:        ;;S Y=$ZA\32768#2
        !            48:        ;;MTONLINE
        !            49:        ;;S Y=$ZA\64#2
        !            50:        ;;MTWPROT
        !            51:        ;;S Y=$ZA\4#2
        !            52:        ;;NBRK
        !            53:        ;;U $I:NOCENABLE
        !            54:        ;;NO-PASSALL
        !            55:        ;;G NOPASS^%ZOSV
        !            56:        ;;NO-TYPE-AHEAD
        !            57:        ;;U $I:NOTYPE
        !            58:        ;;PASSALL
        !            59:        ;;G PASSALL^%ZOSV
        !            60:        ;;PRIINQ
        !            61:        ;;S Y=$$PRIINQ^%ZOSV()
        !            62:        ;;PRIORITY
        !            63:        ;;G PRIORITY^%ZOSV
        !            64:        ;;PROGMODE
        !            65:        ;;S Y=$$PROGMODE^%ZOSV()
        !            66:        ;;RD
        !            67:        ;;G ^%RD
        !            68:        ;;RESJOB
        !            69:        ;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI
        !            70:        ;;RM
        !            71:        ;;U $I:WIDTH=$S(X<256:X,1:0)
        !            72:        ;;RSEL
        !            73:        ;;K ^UTILITY($J) D ^%RSEL S X="" X "F %=0:1 S X=$O(%UTILITY(X)) Q:X=""""  S ^UTILITY($J,X)=""""" K %UTILITY
        !            74:        ;;RSUM
        !            75:        ;;ZL @X S Y=0 F %=1,3:1 S %1=$T(+%),%3=$F(%1," ") Q:'%3  S %3=$S($E(%1,%3)'=";":$L(%1),$E(%1,%3+1)=";":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*%2+Y
        !            76:        ;;SS
        !            77:        ;;G ^%SY
        !            78:        ;;SAVE
        !            79:        ;;S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN  S %=^(XCN,0) Q:$E(%,1)=""$""  I $E(%,1)'="";"" ZI %" X "ZR  X XCS ZS @X" S ^UTILITY("ROU",X)="" K XCS
        !            80:        ;;SIZE
        !            81:        ;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2
        !            82:        ;;TEST
        !            83:        ;;I $D(^ (X))!$D(^!(X))
        !            84:        ;;TMK
        !            85:        ;;S Y=$ZA\16384#2
        !            86:        ;;TRAP
        !            87:        ;;$ZT=X
        !            88:        ;;TRMOFF
        !            89:        ;;U $I:TERM=""
        !            90:        ;;TRMON
        !            91:        ;;U $I:TERM=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127)
        !            92:        ;;TRMRD
        !            93:        ;;S Y=$ZB
        !            94:        ;;TYPE-AHEAD
        !            95:        ;;U $I:TYPE
        !            96:        ;;UCI
        !            97:        ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)
        !            98:        ;;UCICHECK
        !            99:        ;;S Y=$$UCICHECK^%ZOSV(X)
        !           100:        ;;UPPERCASE
        !           101:        ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        !           102:        ;;XY
        !           103:        ;;S $X=DX,$Y=DY
        !           104:        ;;ZD
        !           105:        ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)