ZOSFVXD ;SFISC/MVB - ZOSF TABLE FOR VAX DSM V3.3, V4 & V6 ;06/30/97 15:23
;;8.0;KERNEL;**65**;JUL 03, 1995
;Remember to update XGKB for escape processing.
S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
I '$D(^%ZOSF("VOL")) S ^%ZOSF("VOL")=$P($ZC(%UCI),",",4)
K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z="" S X=$P($T(Z+1+I),";;",2,99) S:Z="OS" $P(^%ZOSF(Z),"^")=X I Z'="OS" S ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)
;
OS S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=16
MGR W !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G MGR:0[Y S ^%ZOSF("MGR")=X
PROD W !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G PROD:0[Y S ^%ZOSF("PROD")=Y
VOL W !,"NAME OF VOLUME SET: "_^%ZOSF("VOL")_"//" R X:$S($G(DTIME):DTIME,1:9999) I X]"" S:X?3U ^%ZOSF("VOL")=X I X'?3U W "MUST BE 3 Upper case." G VOL
W ! Q
V4 S $P(^%ZOSF("OS"),"^",1)="VAX DSM(V4)"
S ^("JOBPARAM")="S Y="""" Q" ; S Y=JOB X'S UCI,VOLUMESET
S ^("TEST")="N %,Y S %=$P($ZC(%PGMSHOW),"","") O %:(INDEXED:READONLY) U %:KEY=$E($C(0)_X_$C(0,0,0,0,0,0,0,0),1,9) R Y C % I $L(Y)"
Q
Z ;
;;ACTJ
;;S Y=$$ACTJ^%ZOSV()
;;AVJ
;;S Y=$$AVJ^%ZOSV()
;;BRK
;;U $I:CENABLE
;;DEL
;;X "ZR ZS @X"
;;EOFF
;;U $I:NOECHO
;;EON
;;U $I:ECHO
;;EOT
;;S Y=$ZA\1024#2
;;ERRTN
;;^%ZTER
;;ETRP
;;Q
;;GD
;;G ^%GD
;;JOBPARAM
;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)
;;LABOFF
;;U IO:NOECHO
;;LOAD
;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
;;LPC
;;S Y=$ZC(%LPC,X)
;;MAGTAPE
;;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"
;;MAXSIZ
;;Q
;;MGR
;;MGR,AAA
;;MTBOT
;;S Y=$ZA\32#2
;;MTERR
;;S Y=$ZA\32768#2
;;MTONLINE
;;S Y=$ZA\64#2
;;MTWPROT
;;S Y=$ZA\4#2
;;NBRK
;;U $I:NOCENABLE
;;NO-PASSALL
;;G NOPASS^%ZOSV
;;NO-TYPE-AHEAD
;;U $I:NOTYPE
;;OS
;;VAX DSM(V6)
;;PASSALL
;;G PASSALL^%ZOSV
;;PRIINQ
;;S Y=$$PRIINQ^%ZOSV()
;;PRIORITY
;;Q ;G PRIORITY^%ZOSV
;;PROD
;;VAH,AAA
;;PROGMODE
;;S Y=$$PROGMODE^%ZOSV()
;;RD
;;G ^%RD
;;RESJOB
;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI
;;RM
;;U $I:WIDTH=$S(X<256:X,1:0)
;;RSEL
;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY
;;RSUM
;;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
;;SS
;;G ^%SY
;;SAVE
;;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
;;SIZE
;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
;;TEST
;;I $D(^ (X))!$D(^!(X))
;;TMK
;;S Y=$ZA\16384#2
;;TRAP
;;$ZT=X
;;TRMOFF
;;U $I:TERM=""
;;TRMON
;;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)
;;TRMRD
;;S Y=$ZB
;;TYPE-AHEAD
;;U $I:TYPE
;;UCI
;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)
;;UCICHECK
;;S Y=$$UCICHECK^%ZOSV(X)
;;UPPERCASE
;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
;;XY
;;S $X=DX,$Y=DY
;;VOL
;;AAA
;;ZD
;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSFVXD 3515 printed Dec 13, 2024@02:15:26 Page 2
ZOSFVXD ;SFISC/MVB - ZOSF TABLE FOR VAX DSM V3.3, V4 & V6 ;06/30/97 15:23
+1 ;;8.0;KERNEL;**65**;JUL 03, 1995
+2 ;Remember to update XGKB for escape processing.
+3 SET %Y=1
KILL ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
+4 IF '$DATA(^%ZOSF("VOL"))
SET ^%ZOSF("VOL")=$PIECE($ZC(%UCI),",",4)
+5 KILL ZO
FOR I="MGR","PROD","VOL"
if $DATA(^%ZOSF(I))
SET ZO(I)=^%ZOSF(I)
+6 FOR I=1:2
SET Z=$PIECE($TEXT(Z+I),";;",2)
if Z=""
QUIT
SET X=$PIECE($TEXT(Z+1+I),";;",2,99)
if Z="OS"
SET $PIECE(^%ZOSF(Z),"^")=X
IF Z'="OS"
SET ^%ZOSF(Z)=$SELECT($DATA(ZO(Z)):ZO(Z),1:X)
+7 ;
OS if '$PIECE(^%ZOSF("OS"),"^",2)
SET $PIECE(^%ZOSF("OS"),"^",2)=16
MGR WRITE !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// "
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
XECUTE ^("UCICHECK")
if 0[Y
GOTO MGR
SET ^%ZOSF("MGR")=X
PROD WRITE !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// "
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
XECUTE ^("UCICHECK")
if 0[Y
GOTO PROD
SET ^%ZOSF("PROD")=Y
VOL WRITE !,"NAME OF VOLUME SET: "_^%ZOSF("VOL")_"//"
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
if X?3U
SET ^%ZOSF("VOL")=X
IF X'?3U
WRITE "MUST BE 3 Upper case."
GOTO VOL
+1 WRITE !
QUIT
V4 SET $PIECE(^%ZOSF("OS"),"^",1)="VAX DSM(V4)"
+1 ; S Y=JOB X'S UCI,VOLUMESET
SET ^("JOBPARAM")="S Y="""" Q"
+2 SET ^("TEST")="N %,Y S %=$P($ZC(%PGMSHOW),"","") O %:(INDEXED:READONLY) U %:KEY=$E($C(0)_X_$C(0,0,0,0,0,0,0,0),1,9) R Y C % I $L(Y)"
+3 QUIT
Z ;
+1 ;;ACTJ
+2 ;;S Y=$$ACTJ^%ZOSV()
+3 ;;AVJ
+4 ;;S Y=$$AVJ^%ZOSV()
+5 ;;BRK
+6 ;;U $I:CENABLE
+7 ;;DEL
+8 ;;X "ZR ZS @X"
+9 ;;EOFF
+10 ;;U $I:NOECHO
+11 ;;EON
+12 ;;U $I:ECHO
+13 ;;EOT
+14 ;;S Y=$ZA\1024#2
+15 ;;ERRTN
+16 ;;^%ZTER
+17 ;;ETRP
+18 ;;Q
+19 ;;GD
+20 ;;G ^%GD
+21 ;;JOBPARAM
+22 ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)
+23 ;;LABOFF
+24 ;;U IO:NOECHO
+25 ;;LOAD
+26 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
+27 ;;LPC
+28 ;;S Y=$ZC(%LPC,X)
+29 ;;MAGTAPE
+30 ;;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"
+31 ;;MAXSIZ
+32 ;;Q
+33 ;;MGR
+34 ;;MGR,AAA
+35 ;;MTBOT
+36 ;;S Y=$ZA\32#2
+37 ;;MTERR
+38 ;;S Y=$ZA\32768#2
+39 ;;MTONLINE
+40 ;;S Y=$ZA\64#2
+41 ;;MTWPROT
+42 ;;S Y=$ZA\4#2
+43 ;;NBRK
+44 ;;U $I:NOCENABLE
+45 ;;NO-PASSALL
+46 ;;G NOPASS^%ZOSV
+47 ;;NO-TYPE-AHEAD
+48 ;;U $I:NOTYPE
+49 ;;OS
+50 ;;VAX DSM(V6)
+51 ;;PASSALL
+52 ;;G PASSALL^%ZOSV
+53 ;;PRIINQ
+54 ;;S Y=$$PRIINQ^%ZOSV()
+55 ;;PRIORITY
+56 ;;Q ;G PRIORITY^%ZOSV
+57 ;;PROD
+58 ;;VAH,AAA
+59 ;;PROGMODE
+60 ;;S Y=$$PROGMODE^%ZOSV()
+61 ;;RD
+62 ;;G ^%RD
+63 ;;RESJOB
+64 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI
+65 ;;RM
+66 ;;U $I:WIDTH=$S(X<256:X,1:0)
+67 ;;RSEL
+68 ;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY
+69 ;;RSUM
+70 ;;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
+71 ;;SS
+72 ;;G ^%SY
+73 ;;SAVE
+74 ;;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
+75 ;;SIZE
+76 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
+77 ;;TEST
+78 ;;I $D(^ (X))!$D(^!(X))
+79 ;;TMK
+80 ;;S Y=$ZA\16384#2
+81 ;;TRAP
+82 ;;$ZT=X
+83 ;;TRMOFF
+84 ;;U $I:TERM=""
+85 ;;TRMON
+86 ;;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)
+87 ;;TRMRD
+88 ;;S Y=$ZB
+89 ;;TYPE-AHEAD
+90 ;;U $I:TYPE
+91 ;;UCI
+92 ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)
+93 ;;UCICHECK
+94 ;;S Y=$$UCICHECK^%ZOSV(X)
+95 ;;UPPERCASE
+96 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+97 ;;XY
+98 ;;S $X=DX,$Y=DY
+99 ;;VOL
+100 ;;AAA
+101 ;;ZD
+102 ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)
