Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ZOSFIS2

ZOSFIS2.m

Go to the documentation of this file.
  1. 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
  1. S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
  1. K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
  1. 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)
  1. S X=$ZU(39)
  1. I X["/" S ^%ZOSF("MGR")=X,^%ZOSF("PROD")=X_"vah/",^%ZOSF("VOL")=X_"vah/"
  1. I X["\" S ^%ZOSF("MGR")=X,^%ZOSF("PROD")=X_"vah\",^%ZOSF("VOL")=X_"vah\"
  1. 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
  1. 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
  1. 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
  1. OS S $P(^%ZOSF("OS"),"^",1)="M/SQL" S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=99
  1. W !!,"ALL SET UP",!! Q
  1. Z ;;
  1. ;;ACTJ
  1. ;;S Y=$$ACTJ^%ZOSV()
  1. ;;AVJ
  1. ;;S Y=$$AVJ^%ZOSV()
  1. ;;BRK
  1. ;;B 1
  1. ;;DEL
  1. ;;X "ZR ZS @X" K ^UTILITY("ROU",X)
  1. ;;EOFF
  1. ;;U $I:("":"+S":$C(13,27))
  1. ;;EON
  1. ;;U $I:("":"-S":$C(13,27))
  1. ;;EOT
  1. ;;S Y=$ZA\1024#2
  1. ;;ERRTN
  1. ;;^%ZTER
  1. ;;ETRP
  1. ;;Q
  1. ;;GD
  1. ;;D ^%GD
  1. ;;JOBPARAM
  1. ;;D JOBPAR^%ZOSV
  1. ;;LABOFF
  1. ;;U IO:("":"-S":$C(13,27))
  1. ;;LOAD
  1. ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
  1. ;;LPC
  1. ;;S Y=$ZC(X)
  1. ;;MAXSIZ
  1. ;;S $ZS=X+X
  1. ;;MGR
  1. ;;DRA0:[MVX]
  1. ;;MAGTAPE
  1. ;;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"
  1. ;;MTBOT
  1. ;;S Y=$ZA\32#2
  1. ;;MTERR;;MAGTAPE ERROR; FROM TABLE 9.3
  1. ;;S Y=$ZA\8#2
  1. ;;MTONLINE
  1. ;;S Y=$ZA\64#2
  1. ;;MTWPROT
  1. ;;S Y=$ZA\4#2
  1. ;;MTERR;;MAGTAPE ERROR
  1. ;;S Y=$ZA\32768#2
  1. ;;NBRK
  1. ;;B 0
  1. ;;NO-PASSALL
  1. ;;U $I:("":"-I-T":$C(13,27))
  1. ;;NO-TYPE-AHEAD
  1. ;;U $I:("":"-F":$C(13,27))
  1. ;;PASSALL
  1. ;;U $I:("":"+I+T")
  1. ;;PRIINQ;; Priority in current queue
  1. ;;S Y=8
  1. ;;PRIORITY;;set priority to X (1=low, 10=high)
  1. ;;D @($S(X>7:"HIGH",X>3:"NORMAL",1:"LOW")_"^%PRIO")
  1. ;;PROGMODE
  1. ;;S Y=$ZJ#2
  1. ;;PROD
  1. ;;DRA0:[EXPORT]
  1. ;;RD
  1. ;;D ^%RD
  1. ;;RM
  1. ;;U $I:X
  1. ;;RSEL;;ROUTINE SELECT
  1. ;;K ^UTILITY($J) S %JO=$J D ^%RSET K %ST
  1. ;;RSUM
  1. ;;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
  1. ;;SS
  1. ;;D ^%SS
  1. ;;SAVE
  1. ;;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
  1. ;;SIZE
  1. ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
  1. ;;TEST
  1. ;;I $D(^ROUTINE(X))>1
  1. ;;TMK;;MAGTAPE MARK
  1. ;;S Y=$ZA\4#2
  1. ;;TRAP;;S X="^%ET",@^%ZOSF("TRAP") TO SET ERROR TRAP
  1. ;;$ZT=X
  1. ;;TRMOFF
  1. ;;U $I:("":"-I-T":$C(13,27))
  1. ;;TRMON
  1. ;;U $I:("":"+I+T")
  1. ;;TRMRD
  1. ;;S Y=$A($ZB)
  1. ;;TYPE-AHEAD
  1. ;;U $I:("":"+F":$C(13,27))
  1. ;;UCI
  1. ;;D UCI^%ZOSV
  1. ;;UCICHECK
  1. ;;S Y=$$UCICHECK^%ZOSV(X)
  1. ;;UPPERCASE
  1. ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. ;;XY
  1. ;;S $X=DX,$Y=DY
  1. ;;VOL;;VOLUME SET NAME
  1. ;;DRA0:[EXPORT]
  1. ;;ZD
  1. ;;S Y=$ZD(X)