Return to DINZVXD.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINZVXD.m, revision 1.1.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,"/",%)