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/ZOSFVXD.m@ 623

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

initial load of WorldVistAEHR

File size: 3.3 KB
Line 
1ZOSFVXD ;SFISC/MVB - ZOSF TABLE FOR VAX DSM V3.3, V4 & V6 ;06/30/97 15:23
2 ;;8.0;KERNEL;**65**;JUL 03, 1995
3 ;Remember to update XGKB for escape processing.
4 S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
5 I '$D(^%ZOSF("VOL")) S ^%ZOSF("VOL")=$P($ZC(%UCI),",",4)
6 K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
7 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)
8 ;
9OS S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=16
10MGR 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
11PROD 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
12VOL 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
13 W ! Q
14V4 S $P(^%ZOSF("OS"),"^",1)="VAX DSM(V4)"
15 S ^("JOBPARAM")="S Y="""" Q" ; S Y=JOB X'S UCI,VOLUMESET
16 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)"
17 Q
18Z ;
19 ;;ACTJ
20 ;;S Y=$$ACTJ^%ZOSV()
21 ;;AVJ
22 ;;S Y=$$AVJ^%ZOSV()
23 ;;BRK
24 ;;U $I:CENABLE
25 ;;DEL
26 ;;X "ZR ZS @X"
27 ;;EOFF
28 ;;U $I:NOECHO
29 ;;EON
30 ;;U $I:ECHO
31 ;;EOT
32 ;;S Y=$ZA\1024#2
33 ;;ERRTN
34 ;;^%ZTER
35 ;;ETRP
36 ;;Q
37 ;;GD
38 ;;G ^%GD
39 ;;JOBPARAM
40 ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)
41 ;;LABOFF
42 ;;U IO:NOECHO
43 ;;LOAD
44 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
45 ;;LPC
46 ;;S Y=$ZC(%LPC,X)
47 ;;MAGTAPE
48 ;;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"
49 ;;MAXSIZ
50 ;;Q
51 ;;MGR
52 ;;MGR,AAA
53 ;;MTBOT
54 ;;S Y=$ZA\32#2
55 ;;MTERR
56 ;;S Y=$ZA\32768#2
57 ;;MTONLINE
58 ;;S Y=$ZA\64#2
59 ;;MTWPROT
60 ;;S Y=$ZA\4#2
61 ;;NBRK
62 ;;U $I:NOCENABLE
63 ;;NO-PASSALL
64 ;;G NOPASS^%ZOSV
65 ;;NO-TYPE-AHEAD
66 ;;U $I:NOTYPE
67 ;;OS
68 ;;VAX DSM(V6)
69 ;;PASSALL
70 ;;G PASSALL^%ZOSV
71 ;;PRIINQ
72 ;;S Y=$$PRIINQ^%ZOSV()
73 ;;PRIORITY
74 ;;Q ;G PRIORITY^%ZOSV
75 ;;PROD
76 ;;VAH,AAA
77 ;;PROGMODE
78 ;;S Y=$$PROGMODE^%ZOSV()
79 ;;RD
80 ;;G ^%RD
81 ;;RESJOB
82 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI
83 ;;RM
84 ;;U $I:WIDTH=$S(X<256:X,1:0)
85 ;;RSEL
86 ;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY
87 ;;RSUM
88 ;;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
89 ;;SS
90 ;;G ^%SY
91 ;;SAVE
92 ;;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
93 ;;SIZE
94 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
95 ;;TEST
96 ;;I $D(^ (X))!$D(^!(X))
97 ;;TMK
98 ;;S Y=$ZA\16384#2
99 ;;TRAP
100 ;;$ZT=X
101 ;;TRMOFF
102 ;;U $I:TERM=""
103 ;;TRMON
104 ;;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)
105 ;;TRMRD
106 ;;S Y=$ZB
107 ;;TYPE-AHEAD
108 ;;U $I:TYPE
109 ;;UCI
110 ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)
111 ;;UCICHECK
112 ;;S Y=$$UCICHECK^%ZOSV(X)
113 ;;UPPERCASE
114 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
115 ;;XY
116 ;;S $X=DX,$Y=DY
117 ;;VOL
118 ;;AAA
119 ;;ZD
120 ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)
Note: See TracBrowser for help on using the repository browser.