Return to DINZMSM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINZMSM	;SFISC/AC-SETS ^%ZOSF FOR MSM-UNIX ;03:06 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) S ^%ZOSF(Z)=X
    6: 	S $P(^%ZOSF("OS"),"^")=$S($ZV["MSM":$P($ZV,","),1:"MSM")_"^8"
    7: 	K I,X,Z
    8: 	Q
    9: 	;
   10: Z	;;
   11: 	;;ACTJ
   12: 	;;S Y=$$ACTJ^%ZOSV()
   13: 	;;AVJ
   14: 	;;S Y=$$AVJ^%ZOSV()
   15: 	;;BRK
   16: 	;;B 1
   17: 	;;CPU
   18: 	;;Q
   19: 	;;DEL
   20: 	;;X "ZR  ZS @X" K ^UTILITY("%RD",X)
   21: 	;;EOFF
   22: 	;;U $I:(::::1)
   23: 	;;EON
   24: 	;;U $I:(:::::1)
   25: 	;;EOT
   26: 	;;S Y=$ZA\1024#2
   27: 	;;ERRTN
   28: 	;;^%ZTER
   29: 	;;ETRP
   30: 	;;Q
   31: 	;;GD
   32: 	;;D ^%GD
   33: 	;;LABOFF
   34: 	;;U IO:(::::1)
   35: 	;;JOBPARAM
   36: 	;;G JOBPAR^%ZOSV
   37: 	;;LOAD
   38: 	;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"
   39: 	;;LPC;;Parity Check - ASCII sum
   40: 	;;S Y=$ZCRC(X)
   41: 	;;MAXSIZ
   42: 	;;S %K=X D INT^%PARTSIZ
   43: 	;;MAGTAPE
   44: 	;;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"
   45: 	;;MTBOT
   46: 	;;S Y=$ZA#2
   47: 	;;MTERR
   48: 	;;S Y=($ZA\256#8)+($ZA\4096#8)
   49: 	;;MTONLINE
   50: 	;;S Y=$ZA\16#4=3
   51: 	;;MTWPROT
   52: 	;;S Y=$ZA\2048#2
   53: 	;;NBRK
   54: 	;;B 0
   55: 	;;NO-PASSALL
   56: 	;;U $I:(:::::8388608)
   57: 	;;NO-TYPE-AHEAD
   58: 	;;U $I:(::::100663296)
   59: 	;;PASSALL
   60: 	;;U $I:(::::8388608)
   61: 	;;PRIINQ
   62: 	;;S Y=$$PRIINQ^%ZOSV()
   63: 	;;PRIORITY
   64: 	;;G PRIORITY^%ZOSV
   65: 	;;PROGMODE
   66: 	;;S Y=$$PROGMODE^%ZOSV()
   67: 	;;RD
   68: 	;;D ^%RD
   69: 	;;RESJOB
   70: 	;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^KILLJOB[MGR]" D DO^%XUCI
   71: 	;;RM
   72: 	;;U:IOT["TRM" $I:X
   73: 	;;RSEL
   74: 	;;K ^UTILITY($J) G ^%RSEL
   75: 	;;RSUM
   76: 	;;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
   77: 	;;SAVE
   78: 	;;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("%RD",X)="" K XCS
   79: 	;;SIZE
   80: 	;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2
   81: 	;;SS
   82: 	;;D ^%SS
   83: 	;;TEST
   84: 	;;I $D(^ (X))
   85: 	;;TMK
   86: 	;;S Y=$ZA\128#2
   87: 	;;TRAP
   88: 	;;$ZT=X
   89: 	;;TRMOFF
   90: 	;;U $I:(::::::::$C(13,27))
   91: 	;;TRMON
   92: 	;;U $I:(::::::::$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))
   93: 	;;TRMRD
   94: 	;;S Y=$ZB
   95: 	;;TYPE-AHEAD
   96: 	;;U $I:(::::67108864:33554432)
   97: 	;;UCI
   98: 	;;S Y=$ZU(0)
   99: 	;;UCICHECK
  100: 	;;S Y=$$UCICHECK^%ZOSV(X)
  101: 	;;UPPERCASE
  102: 	;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  103: 	;;XY
  104: 	;;U $I:(::::::DY*256+DX)
  105: 	;;ZD
  106: 	;;S Y=$ZD(X)