- ZOSFIS1 ;SFISC/AC - SETS UP ^%ZOSF FOR ISM (Open M for ALPHA,UNIX,NT) ;07/07/95 15:00
- ;;8.0;KERNEL;;JUL 10, 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)
- S X=$ZU(39)
- I X["/" S ^%ZOSF("MGR")=X,^%ZOSF("PROD")=X_"vah/",^%ZOSF("VOL")=X_"vah/"
- I X["\" S ^%ZOSF("MGR")=X,^%ZOSF("PROD")=X_"vah\",^%ZOSF("VOL")=X_"vah\"
- 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)=99
- 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
- ;;U $I:("":"+S":$C(13,27))
- ;;EON
- ;;U $I:("":"-S":$C(13,27))
- ;;EOT
- ;;S Y=$ZA\1024#2
- ;;ERRTN
- ;;^%ZTER
- ;;ETRP
- ;;Q
- ;;GD
- ;;D ^%GD
- ;;JOBPARAM
- ;;D JOBPAR^%ZOSV
- ;;LABOFF
- ;;U IO:("":"-S":$C(13,27))
- ;;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
- ;;U $I:("":"-I-T":$C(13,27))
- ;;NO-TYPE-AHEAD
- ;;U $I:("":"-F":$C(13,27))
- ;;PASSALL
- ;;U $I:("":"+I+T")
- ;;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
- ;;U $I:("":"-I-T":$C(13,27))
- ;;TRMON
- ;;U $I:("":"+I+T")
- ;;TRMRD
- ;;S Y=$A($ZB)
- ;;TYPE-AHEAD
- ;;U $I:("":"+F":$C(13,27))
- ;;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[HZOSFIS2 3358 printed Feb 18, 2025@23:41:49 Page 2
- ZOSFIS1 ;SFISC/AC - SETS UP ^%ZOSF FOR ISM (Open M for ALPHA,UNIX,NT) ;07/07/95 15:00
- +1 ;;8.0;KERNEL;;JUL 10, 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)
- +5 SET X=$ZU(39)
- +6 IF X["/"
- SET ^%ZOSF("MGR")=X
- SET ^%ZOSF("PROD")=X_"vah/"
- SET ^%ZOSF("VOL")=X_"vah/"
- +7 IF X["\"
- SET ^%ZOSF("MGR")=X
- SET ^%ZOSF("PROD")=X_"vah\"
- SET ^%ZOSF("VOL")=X_"vah\"
- 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)=99
- +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 ;;U $I:("":"+S":$C(13,27))
- +11 ;;EON
- +12 ;;U $I:("":"-S":$C(13,27))
- +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 ;;U IO:("":"-S":$C(13,27))
- +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 ;;U $I:("":"-I-T":$C(13,27))
- +49 ;;NO-TYPE-AHEAD
- +50 ;;U $I:("":"-F":$C(13,27))
- +51 ;;PASSALL
- +52 ;;U $I:("":"+I+T")
- +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 ;;U $I:("":"-I-T":$C(13,27))
- +83 ;;TRMON
- +84 ;;U $I:("":"+I+T")
- +85 ;;TRMRD
- +86 ;;S Y=$A($ZB)
- +87 ;;TYPE-AHEAD
- +88 ;;U $I:("":"+F":$C(13,27))
- +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)