ZOSFMSQ ;SFISC/AC - SETS UP ^%ZOSF FOR VAX M/SQL ;8/1/94 11:19
;;8.0;KERNEL;;JUL 03, 1995
S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
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 ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)
MGR W !,"NAME OF MANAGER'S UCI,DIRECTORY SET: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G MGR:Y="" S ^%ZOSF("MGR")=X
PROD W !,"PRODUCTION (SIGN-ON) UCI,DIRECTORY SET: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G PROD:Y="" S ^%ZOSF("PROD")=Y
VOL W !,"NAME OF THIS DIRECTORY SET: "_^%ZOSF("VOL")_"//" R X:$S($G(DTIME):DTIME,1:9999) I X]"" S:X?1.10UP ^%ZOSF("VOL")=X I X'?1.10UP W "MUST BE 1-10 characters." G VOL
OS S $P(^%ZOSF("OS"),"^",1)="M/SQL" S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=7
W !!,"ALL SET UP",!! Q
Z ;;
;;ACTJ
;;S Y=$$ACTJ^%ZOSV()
;;AVJ
;;S Y=$$AVJ^%ZOSV()
;;BRK
;;B 1
;;DEL
;;X "ZR ZS @X" K ^UTILITY("ROU",X)
;;EOFF
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U $I:("":Y:$C(13,27)) S ^($I)=Y
;;EON
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"S","") U $I:("":Y:$C(13,27)) S ^($I)=Y
;;EOT
;;S Y=$ZA\1024#2
;;ERRTN
;;^%ZTER
;;ETRP
;;Q
;;GD
;;D ^%GD
;;JOBPARAM
;;D JOBPAR^%ZOSV
;;LABOFF
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U IO:("":Y:$C(13,27)) S ^($I)=Y
;;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(X)
;;MAXSIZ
;;S $ZS=X+X
;;MGR
;;DRA0:[MVX]
;;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"
;;MTBOT
;;S Y=$ZA\32#2
;;MTERR;;MAGTAPE ERROR; FROM TABLE 9.3
;;S Y=$ZA\8#2
;;MTONLINE
;;S Y=$ZA\64#2
;;MTWPROT
;;S Y=$ZA\4#2
;;MTERR;;MAGTAPE ERROR
;;S Y=$ZA\32768#2
;;NBRK
;;B 0
;;NO-PASSALL
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
;;NO-TYPE-AHEAD
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["F" Y=Y_"F" U $I:("":Y:$C(13,27)) S ^($I)=Y
;;PASSALL
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"I" U $I:("":Y) S ^($I)=Y
;;PRIINQ;; Priority in current queue
;;S Y=8
;;PRIORITY;;set priority to X (1=low, 10=high)
;;D @($S(X>7:"HIGH",X>3:"NORMAL",1:"LOW")_"^%PRIO")
;;PROGMODE
;;S Y=$ZJ#2
;;PROD
;;DRA0:[EXPORT]
;;RD
;;D ^%RD
;;RM
;;U $I:X
;;RSEL;;ROUTINE SELECT
;;K ^UTILITY($J) S %JO=$J D ^%RSET K %ST
;;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
;;D ^%SS
;;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(^ROUTINE(X))>1
;;TMK;;MAGTAPE MARK
;;S Y=$ZA\4#2
;;TRAP;;S X="^%ET",@^%ZOSF("TRAP") TO SET ERROR TRAP
;;$ZT=X
;;TRMOFF
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
;;TRMON
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"IT" U $I:("":Y) S ^($I)=Y
;;TRMRD
;;S Y=$A($ZB)
;;TYPE-AHEAD
;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y["F" Y=$TR(Y,"F","") U $I:("":Y:$C(13,27)) S ^($I)=Y
;;UCI
;;D UCI^%ZOSV
;;UCICHECK
;;S Y=$$UCICHECK^%ZOSV(X)
;;UPPERCASE
;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
;;XY
;;S $X=DX,$Y=DY
;;VOL;;VOLUME SET NAME
;;DRA0:[EXPORT]
;;ZD
;;S Y=$ZD(X)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSFMSQ 3797 printed Dec 13, 2024@02:15:24 Page 2
ZOSFMSQ ;SFISC/AC - SETS UP ^%ZOSF FOR VAX M/SQL ;8/1/94 11:19
+1 ;;8.0;KERNEL;;JUL 03, 1995
+2 SET %Y=1
KILL ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
+3 KILL ZO
FOR I="MGR","PROD","VOL"
if $DATA(^%ZOSF(I))
SET ZO(I)=^%ZOSF(I)
+4 FOR I=1:2
SET Z=$PIECE($TEXT(Z+I),";;",2)
if Z=""
QUIT
SET X=$PIECE($TEXT(Z+1+I),";;",2,99)
SET ^%ZOSF(Z)=$SELECT($DATA(ZO(Z)):ZO(Z),1:X)
MGR WRITE !,"NAME OF MANAGER'S UCI,DIRECTORY SET: "_^%ZOSF("MGR")_"// "
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
XECUTE ^("UCICHECK")
if Y=""
GOTO MGR
SET ^%ZOSF("MGR")=X
PROD WRITE !,"PRODUCTION (SIGN-ON) UCI,DIRECTORY SET: "_^%ZOSF("PROD")_"// "
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
XECUTE ^("UCICHECK")
if Y=""
GOTO PROD
SET ^%ZOSF("PROD")=Y
VOL WRITE !,"NAME OF THIS DIRECTORY SET: "_^%ZOSF("VOL")_"//"
READ X:$SELECT($GET(DTIME):DTIME,1:9999)
IF X]""
if X?1.10UP
SET ^%ZOSF("VOL")=X
IF X'?1.10UP
WRITE "MUST BE 1-10 characters."
GOTO VOL
OS SET $PIECE(^%ZOSF("OS"),"^",1)="M/SQL"
if '$PIECE(^%ZOSF("OS"),"^",2)
SET $PIECE(^%ZOSF("OS"),"^",2)=7
+1 WRITE !!,"ALL SET UP",!!
QUIT
Z ;;
+1 ;;ACTJ
+2 ;;S Y=$$ACTJ^%ZOSV()
+3 ;;AVJ
+4 ;;S Y=$$AVJ^%ZOSV()
+5 ;;BRK
+6 ;;B 1
+7 ;;DEL
+8 ;;X "ZR ZS @X" K ^UTILITY("ROU",X)
+9 ;;EOFF
+10 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U $I:("":Y:$C(13,27)) S ^($I)=Y
+11 ;;EON
+12 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"S","") U $I:("":Y:$C(13,27)) S ^($I)=Y
+13 ;;EOT
+14 ;;S Y=$ZA\1024#2
+15 ;;ERRTN
+16 ;;^%ZTER
+17 ;;ETRP
+18 ;;Q
+19 ;;GD
+20 ;;D ^%GD
+21 ;;JOBPARAM
+22 ;;D JOBPAR^%ZOSV
+23 ;;LABOFF
+24 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U IO:("":Y:$C(13,27)) S ^($I)=Y
+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(X)
+29 ;;MAXSIZ
+30 ;;S $ZS=X+X
+31 ;;MGR
+32 ;;DRA0:[MVX]
+33 ;;MAGTAPE
+34 ;;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"
+35 ;;MTBOT
+36 ;;S Y=$ZA\32#2
+37 ;;MTERR;;MAGTAPE ERROR; FROM TABLE 9.3
+38 ;;S Y=$ZA\8#2
+39 ;;MTONLINE
+40 ;;S Y=$ZA\64#2
+41 ;;MTWPROT
+42 ;;S Y=$ZA\4#2
+43 ;;MTERR;;MAGTAPE ERROR
+44 ;;S Y=$ZA\32768#2
+45 ;;NBRK
+46 ;;B 0
+47 ;;NO-PASSALL
+48 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
+49 ;;NO-TYPE-AHEAD
+50 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["F" Y=Y_"F" U $I:("":Y:$C(13,27)) S ^($I)=Y
+51 ;;PASSALL
+52 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"I" U $I:("":Y) S ^($I)=Y
+53 ;;PRIINQ;; Priority in current queue
+54 ;;S Y=8
+55 ;;PRIORITY;;set priority to X (1=low, 10=high)
+56 ;;D @($S(X>7:"HIGH",X>3:"NORMAL",1:"LOW")_"^%PRIO")
+57 ;;PROGMODE
+58 ;;S Y=$ZJ#2
+59 ;;PROD
+60 ;;DRA0:[EXPORT]
+61 ;;RD
+62 ;;D ^%RD
+63 ;;RM
+64 ;;U $I:X
+65 ;;RSEL;;ROUTINE SELECT
+66 ;;K ^UTILITY($J) S %JO=$J D ^%RSET K %ST
+67 ;;RSUM
+68 ;;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
+69 ;;SS
+70 ;;D ^%SS
+71 ;;SAVE
+72 ;;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
+73 ;;SIZE
+74 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
+75 ;;TEST
+76 ;;I $D(^ROUTINE(X))>1
+77 ;;TMK;;MAGTAPE MARK
+78 ;;S Y=$ZA\4#2
+79 ;;TRAP;;S X="^%ET",@^%ZOSF("TRAP") TO SET ERROR TRAP
+80 ;;$ZT=X
+81 ;;TRMOFF
+82 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
+83 ;;TRMON
+84 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"IT" U $I:("":Y) S ^($I)=Y
+85 ;;TRMRD
+86 ;;S Y=$A($ZB)
+87 ;;TYPE-AHEAD
+88 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y["F" Y=$TR(Y,"F","") U $I:("":Y:$C(13,27)) S ^($I)=Y
+89 ;;UCI
+90 ;;D UCI^%ZOSV
+91 ;;UCICHECK
+92 ;;S Y=$$UCICHECK^%ZOSV(X)
+93 ;;UPPERCASE
+94 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+95 ;;XY
+96 ;;S $X=DX,$Y=DY
+97 ;;VOL;;VOLUME SET NAME
+98 ;;DRA0:[EXPORT]
+99 ;;ZD
+100 ;;S Y=$ZD(X)
