Return to DINZVXD.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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,"/",%)