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/ZOSFDTM.m@ 701

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

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1ZOSFDTM ;SFISC/HGL,AL - For DataTree ;9/8/94 08:53
2 ;;8.0;KERNEL;;JUL 03, 1995
3 S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
4 K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
5 S ZO("DISYS")=$S($D(^%ZOSF("OS")):$P(^("OS"),"^",2),1:"")
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 NAMESPACE: "_^%ZOSF("MGR")_"// "
8 R X:120 S:X="" X=^%ZOSF("MGR") X ^("UCICHECK") I 0[Y W " ??",*7 G MGR
9 S ^%ZOSF("MGR")=Y
10PROD W !,"PRODUCTION (SIGN-ON) NAMESPACE: "_^%ZOSF("PROD")_"// "
11 R X:120 S:X="" X=^%ZOSF("PROD") X ^("UCICHECK") I 0[Y W " ??",*7 G PROD
12 S ^%ZOSF("PROD")=Y
13VOL W !,"NAME OF THIS CPU: "_^%ZOSF("VOL")_"// "
14 R X:120 S:X="" X=^%ZOSF("VOL")
15 I X'?3U.U!($L(X)<3)!($L(X)>8) W !," ?? Must be 3-8 uppercase characters",*7 G VOL
16 S ^%ZOSF("VOL")=X
17OS S ^%ZOSF("OS")="DTM-PC"_"^"_ZO("DISYS") S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=9
18 W !,"OPERATING SYSTEM FILE ALL SET UP",!
19 K ZO Q
20V3 ;
21 S ^%ZOSF("TRAP")="$ZE=X"
22 S ^%ZOSF("PROGMODE")="S Y=0"
23 Q
24Z ;;
25 ;;ACTJ;; Active Jobs
26 ;;S Y=$$ACTJ^%ZOSV
27 ;;AVJ;; Available Jobs
28 ;;S Y=$$AVJ^%ZOSV
29 ;;MAXJ;; Maximum # of Jobs
30 ;;G MAXJ^%ZOSV
31 ;;BRK;; Enable Break
32 ;;B 1
33 ;;DEL;; Delete Routine in X
34 ;;zdelete @X:1
35 ;;EOFF;; Turn echo off
36 ;;U $I:(echom=0)
37 ;;EON;; Turn echo on
38 ;;U $I:(echom=1)
39 ;;EOT;; End of tape
40 ;;S Y=($ZIOS=3)
41 ;;ERRTN;; Error trap routine
42 ;;^%ZTER
43 ;;ETRP;; Set error trap to X
44 ;;Q
45 ;;GD;; Global Directory
46 ;;G ^%gd
47 ;;JOBPARAM
48 ;;G JOBPAR^%ZOSV
49 ;;LABOFF
50 ;;U IO:(echom=0)
51 ;;LOAD
52 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
53 ;;LPC;;
54 ;;S Y=$ZCRC(X,1)
55 ;;MAXSIZ;; Reset partition size
56 ;;Q
57 ;;MGR;; Manager's Account name
58 ;;SYS
59 ;;NBRK;; Disable Break
60 ;;B 0
61 ;;NO-PASSALL
62 ;;G NOPASS^%ZOSV
63 ;;NO-TYPE-AHEAD;; Turn off type-ahead
64 ;;U $I:(ta=0)
65 ;;OS;; Operating System Name
66 ;;DTM-PC
67 ;;PARSIZ
68 ;;S X=3
69 ;;PASSALL
70 ;;G PASSALL^%ZOSV
71 ;;PRIINQ;; Find job's priority
72 ;;S Y=$$PRIINQ^%ZOSV()
73 ;;PRIORITY;; Set a job's priority
74 ;;G PRIORITY^%ZOSV
75 ;;PROD;; Production Account Name
76 ;;USER
77 ;;PROGMODE;; Check if user is in programmer mode
78 ;;S Y=$ZMODE
79 ;;RD;; Routine Directory
80 ;;G ^%rd
81 ;;RESJOB
82 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^%mjob[MGR]" D DO^%XUCI
83 ;;RM;; Set right margin to X ;***EDITED BY AC/SFISC***
84 ;;U $I:(lmar=0:width=$S(X:X,1:$zdevfwid):wrap=(X&($I>99)))
85 ;;RSEL;; Routine Select - returns number of routines in NRO
86 ;;K ^UTILITY($J) S NRO=$$^%rselect W !,NRO," routines selected" S %X="^%RSET("_$J_",",%Y="^UTILITY("_$J_"," D %XY^%RCR S ^UTILITY($J)=^%RSET($J) K ^%RSET($J),%X,%Y
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 ;;SAVE
90 ;;S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN S %=^(XCN,0) Q:$E(%,1)=""$"" S:%'[$C(9) %=$P(%,"" "",1)_$C(9)_$P(%,"" "",2,999) I $E(%,1)'="";"" ZI %" X "ZR X XCS ZS @X" S ^UTILITY("ROU",X)="" K XCS
91 ;;SIZE;; Return size of routine in partition
92 ;;S Y=$L($zrsource($zn))
93 ;;SS;; System Status
94 ;;G ^%mjob
95 ;;TEST;; Routine existence test
96 ;;I $ZRSTATUS(X)'=""
97 ;;TMK;; Tapemark
98 ;;Q
99 ;;TRMOFF
100 ;;G:$P($ZVER,"/",2)<4.3 TRMOFF^%ZOSV U $I:TERM=$C(13,27)
101 ;;TRMON
102 ;;G:$P($ZVER,"/",2)<4.3 TRMON^%ZOSV 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)
103 ;;TRMRD
104 ;;S Y=$S('$ZIOS:$ZIOT,1:0)
105 ;;TRAP;; DTM V4 only. zetrap works for both versions
106 ;;$ZT=X
107 ;;TYPE-AHEAD;; Turn on type-ahead
108 ;;U $I:(ta=1)
109 ;;UCI;; Return current namespace in Y
110 ;;S Y=$ZNSPACE
111 ;;UCICHECK;;
112 ;;S Y=$$UCICHECK^%ZOSV(X)
113 ;;UPPERCASE
114 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
115 ;;VOL
116 ;;AAA
117 ;;XY;; Position cursor
118 ;;S $X=DX,$Y=DY
119 ;;ZD;; External date format in Y
120 ;;S Y=$ZD($H,1)
Note: See TracBrowser for help on using the repository browser.