Return to DINZFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Updates

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