Return to DINZFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Annotation of freem_fileman/USER/DINZFRM.m, revision 1.2

1.1       snw         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      ;;
1.2     ! snw        11:         ;;OS;; Operating System Name
        !            12:         ;;FreeM^19
1.1       snw        13:        ;;ACTJ
                     14:        ;;S Y=$$ACTJ^%ZOSV()
                     15:        ;;AVJ
                     16:        ;;S Y=$$AVJ^%ZOSV()
                     17:        ;;BRK
1.2     ! snw        18:        ;;BREAK -2
1.1       snw        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
1.2     ! snw        92:        ;;U $IO::$C(10,13,27)
1.1       snw        93:        ;;TRMON
1.2     ! snw        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)
1.1       snw        95:        ;;TRMRD
1.2     ! snw        96:        ;;S Y=$K
1.1       snw        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
1.2     ! snw       106:        ;;S $X=IOX,$Y=IOY
1.1       snw       107:        ;;ZD
1.2     ! snw       108:        ;;S Y=$ZD(X)