source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZOSFMSM.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.1 KB
RevLine 
[613]1ZOSFMSM ;SFISC/AC - SETS UP ^%ZOSF FOR MSM-UNIX SYSTEMS ;8/1/94 11:16
2 ;;8.0;KERNEL;;JUL 03, 1995
3 S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
4 I '$D(^%ZOSF("VOL")) S ^%ZOSF("VOL")=$P($ZU(0),",",2)
5 K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
6 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)
7MGR W !,"NAME OF MANAGER'S UCI,VOLUME GROUP: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) S:X="" X=^%ZOSF("MGR") X ^("UCICHECK") I 0[Y W *7," ??" G MGR
8 S ^%ZOSF("MGR")=Y
9PROD W !,"PRODUCTION (SIGN-ON) UCI,VOLUME GROUP: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) S:X="" X=^%ZOSF("PROD") X ^("UCICHECK") I 0[Y W *7," ??" G PROD
10 S ^%ZOSF("PROD")=Y
11VOL W !,"NAME OF THIS VOLUME GROUP: "_^%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
12OS S $P(^%ZOSF("OS"),"^")=$S($ZV["MSM":$P($ZV,","),1:"MSM") S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=8
13 W !!,"ALL SET UP",!! Q
14 ;
15Z ;;
16 ;;ACTJ
17 ;;S Y=$$ACTJ^%ZOSV()
18 ;;AVJ
19 ;;S Y=$$AVJ^%ZOSV()
20 ;;BRK
21 ;;B 1
22 ;;CPU
23 ;;Q
24 ;;DEL
25 ;;X "ZR ZS @X" K ^UTILITY("%RD",X)
26 ;;EOFF
27 ;;U $I:(::::1)
28 ;;EON
29 ;;U $I:(:::::1)
30 ;;EOT
31 ;;S Y=$ZA\1024#2
32 ;;ERRTN
33 ;;^%ZTER
34 ;;ETRP
35 ;;Q
36 ;;GD
37 ;;D ^%GD
38 ;;LABOFF
39 ;;U IO:(::::1)
40 ;;JOBPARAM
41 ;;G JOBPAR^%ZOSV
42 ;;LOAD
43 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
44 ;;LPC;;Parity Check - ASCII sum
45 ;;S Y=$ZCRC(X)
46 ;;MAXSIZ
47 ;;S %K=X D INT^%PARTSIZ
48 ;;MGR
49 ;;MGR,AAA
50 ;;MAGTAPE
51 ;;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"
52 ;;MTBOT
53 ;;S Y=$ZA#2
54 ;;MTERR
55 ;;S Y=($ZA\256#8)+($ZA\4096#8)
56 ;;MTONLINE
57 ;;S Y=$ZA\16#4=3
58 ;;MTWPROT
59 ;;S Y=$ZA\2048#2
60 ;;NBRK
61 ;;B 0
62 ;;NO-PASSALL
63 ;;U $I:(:::::8388608)
64 ;;NO-TYPE-AHEAD
65 ;;U $I:(::::100663296)
66 ;;PASSALL
67 ;;U $I:(::::8388608)
68 ;;PRIINQ
69 ;;S Y=$$PRIINQ^%ZOSV()
70 ;;PRIORITY
71 ;;G PRIORITY^%ZOSV
72 ;;PROD
73 ;;VAH,AAA
74 ;;PROGMODE
75 ;;S Y=$$PROGMODE^%ZOSV()
76 ;;RD
77 ;;D ^%RD
78 ;;RESJOB
79 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^KILLJOB[MGR]" D DO^%XUCI
80 ;;RM
81 ;;U:IOT["TRM" $I:X
82 ;;RSEL
83 ;;K ^UTILITY($J) G ^%RSEL
84 ;;RSUM
85 ;;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
86 ;;SAVE
87 ;;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
88 ;;SIZE
89 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
90 ;;SS
91 ;;D ^%SS
92 ;;TEST
93 ;;I $D(^ (X))
94 ;;TMK
95 ;;S Y=$ZA\128#2
96 ;;TRAP
97 ;;$ZT=X
98 ;;TRMOFF
99 ;;U $I:(::::::::$C(13,27))
100 ;;TRMON
101 ;;U $I:(::::::::$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))
102 ;;TRMRD
103 ;;S Y=$ZB
104 ;;TYPE-AHEAD
105 ;;U $I:(::::67108864:33554432)
106 ;;UCI
107 ;;S Y=$ZU(0)
108 ;;UCICHECK
109 ;;S Y=$$UCICHECK^%ZOSV(X)
110 ;;UPPERCASE
111 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
112 ;;VOL
113 ;;AAA
114 ;;XY
115 ;;U $I:(::::::DY*256+DX)
116 ;;ZD
117 ;;S Y=$ZD(X)
Note: See TracBrowser for help on using the repository browser.