| 1 | ZOSFDTM ;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)
|
---|
| 7 | MGR 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
|
---|
| 10 | PROD 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
|
---|
| 13 | VOL 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
|
---|
| 17 | OS 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
|
---|
| 20 | V3 ;
|
---|
| 21 | S ^%ZOSF("TRAP")="$ZE=X"
|
---|
| 22 | S ^%ZOSF("PROGMODE")="S Y=0"
|
---|
| 23 | Q
|
---|
| 24 | Z ;;
|
---|
| 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)
|
---|