Hi Nancy,
PFB the instruction dump:
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
VISTA>D ^%ZTPP
Routine Print:
Want to start each routine on a new page: Yes//
Want line numbers: No//y
All Routines? No => No
Routine: %ZOSV
Routine: ?
Choose routines as in these examples:
RNAM One routine
RNAM1-RNAM2 Range of routines
CD* All beginning with CD
'RNAM Exclude these routines from a range or
'RNAM1-RNAM2 "*" group named previously.
'CDG*
Routine: RNAM ???
Routine: CD* ???
Routine: % ???
Routine: %ZOSV.m ???
Routine:
1 routine
DEVICE: HOME// ;;999 CONSOLE Right Margin: 80//
%ZOSV * * 152 LINES, 5081 BYTES, RSUM: 6889270/22821420 Page 1
UCI: VISTA,ROU Site: TROY ISC SUPPORT ACCOUNTJAN
16,2009@09:49
1 %ZOSV ;SFISC/AC - $View commands for Open M for NT. ;09/22/2004
11:56
2 ;;8.0;KERNEL;**34,94,107,118,136,215,293,284,385**;Jul 10,
1995;Buil
d 3
3 ACTJ() ;# Active jobs
4 N %,V,Y S V=$$VERSION()
5 I V<5 D Q Y
6 . S %=0 F Y=0:1 S %=$ZJ(%) Q:%=""
7 S Y=$system.License.LUConsumed()
8 Q Y
9 AVJ() ;# available jobs
10 N %,AVJ,ZOSV,port,t,x,v,maxpid,lmflim,$ET
11 S v=+$$VERSION()
12 ;Cache 3 and 4
13 ;maxpid: from %SS
14 I v<5 D Q AVJ
15 . S $ET="",maxpid=$v($zu(40,2,118),-2,4)
16 . X "S ZOSV=$ZU(5),%=$ZU(5,""%SYS"") S lmflim=$
$inquire^LMFCLI,%=$ZU
(5,ZOSV)" ;Get the license info
17 . ;Add together the enterprise and division licenses
avaliable
18 . S x=$P(lmflim,";",2)+$P($P(lmflim,"|",2),";",2)
19 . S t=+lmflim+$P(lmflim,"|",2) ;Check the license total
20 . S AVJ=$S(t<maxpid:x,1:maxpid-$$ACTJ) ;Return the smaller
of licens
e or pid
21 ;To get available jobs from Cache 5.0
22 I v'<5 D Q AVJ
23 . X "S ZOSV=$ZU(5),%=$ZU(5,""%SYS"") S AVJ=
$system.License.LUAvailab
le(),%=$ZU(5,ZOSV)"
24 ;Return fixed value not known version
25 Q 15
26 ;
27 PRIINQ() --
;
28 Q 8
29 ;
30 UCI ;Current UCI
31 S Y=$ZU(5)_","_^%ZOSF("VOL") Q
32 ;
33 UCICHECK(X) --
;Check if valid UCI
34 N Y,%
35 S %=$P(X,",",1),Y=0 I $ZU(90,10,%) S Y=%
36 Q Y
37 ;
38 GETPEER() --
;Get the PEER tcp/ip address
39 N PEER,NL,$ET S NL="",$ET="S $EC=NL Q NL",PEER=""
40 I $$OS="VMS" S PEER=$ZF("TRNLNM","VISTA$IP")
41 I '$L(PEER) S PEER=$ZU(111,0) S:$L(PEER) PEER=$A(PEER,1)
_"."_$A(PEER
,2)_"."_$A(PEER,3)_"."_$A(PEER,4)
42 Q PEER
43 ;
44 SHARELIC(TYPE) --
;See if can share a C/S license
45 ;Type is 1 for C/S and 0 for Telnet
46 N %,%N,%2,UID,%V,$ET S $ET="S $EC="""" Q",%V=$$VERSION()
47 I %V<3.1 X:TYPE "S %N=$ZU(5),%2=$ZU(5,""%SYS""),%2=$
$GetLic^LMFCLI,%
N=$ZU(5,%N)" Q
48 I %V<5 S:TYPE %=$$GetCSLic^%LICENSE S:'TYPE %=$$ShareLic^
%LICENSE
49 ;Per Sandy Waal 10/18/2003: With Cache' 5.0, your telnet
and IP conn
ections are now handled properly.
50 I %V'<5 S %V=%V
51 S $EC=""
52 Q
53 JOBPAR ;See if X points to a valid Job. Return its UCI.
54 N ZJ S Y="",$ZT="JOBX"
55 Q:'$D(^$JOB(X)) S Y=$V(-1,X),Y=$P(Y,"^",14)_","_^%ZOSF
("VOL")
56 JOBX Q
57 ;
58 NOLOG ;
59 S Y="$V(0,-2,4)\4096#2" Q
60 ;
61 PROGMODE() --
;Check if in PROG mode
62 Q $ZJ#2
63 ;
64 PRGMODE ;
65 W ! S ZTPAC=$S('$D(^VA(200,+DUZ,.1)):"",1:$P(^(.1),U,
5)),XUVOL=^%ZOS
F("VOL")
66 S X="" X ^%ZOSF("EOFF") R:ZTPAC]"" !,"PAC: ",X:60 D LC^XUS
X ^%ZOSF(
"EON") I X'=ZTPAC W "??"_$C(7) Q
67 S XMB="XUPROGMODE",XMB(1)=DUZ,XMB(2)=$I D ^XMB:$L($T(^XMB))
D BYE^XU
SCLEAN K ZTPAC,X,XMB
68 D UCI S XUCI=Y,XQZ="PRGM^ZUA[MGR]",XUSLNT=1 D DO^%XUCI D ^
%PMODE U $
I:(:"+B+C+R") S $ZT="" Q
69 Q
70 LGR() S $ZT="LGRX^%ZOSV"
71 Q $ZR ;Last Global ref.
72 LGRX Q ""
73 ;
74 EC() Q $ZE ;Error code
75 ;
76 DOLRO ;SAVE ENTIRE SYMBOL TABLE IN LOCATION SPECIFIED BY X
77 S Y="%" F %=0:0 S Y=$O(@Y) Q:Y="" S %=$D(@Y) S:%#2 @(X_"Y)
="_Y) I %
>9 S %X=Y_"(",%Y=X_"Y," D %XY^%RCR
78 Q
79 ;
80 ORDER ;SAVE PART OF SYMBOL TABLE IN LOCATION SPECIFIED BY X
81 S (Y,Y1)=$P(Y,"*",1) I $D(@Y)=0 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y
[Y1)
82 Q:Y="" S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S %X=Y_"(",
%Y=X_"Y," D %
XY^%RCR
83 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y'[Y1) S %=$D(@Y) S:%#2 @(X_"Y)
="_Y) I %
>9 S %X=Y_"(",%Y=X_"Y," D %XY^%RCR
84 K %,X,Y,Y1
85 Q
86 ;
87 PARSIZ ;
88 S X=3
89 Q
90 ;
91 DEVOPN ;List of Devices opened
92 ;Returns variable Y. Y=Devices owned separated by a comma
93 Q
94 DEVOK ;
95 S Y=0,X1=$G(X1) Q:X=2 Q:(X1="HFS")!(X1="SPL")!(X1="MT")!
(X1="CHAN")
;Quit w/ OK for HFS, Spool, MT, TCP/IP
96 G:X1="RES" RESOK^%ZIS6
97 N $ET S $ET="D OPNERR Q"
98 O X::$S($D(%ZISTO):%ZISTO,1:0) E S Y=999 Q ;G NOPN
99 S Y=0 I '$D(%ZISCHK)!($G(%ZIS)["T") C X Q
100 S:X]"" IO(1,X)="" Q
101 Q
102 NOPN ;
103 N ZJ S $ZT="NJ"
104 S ZJ="" F %=0:0 S ZJ=$ZJ(ZJ) Q:'ZJ D NOPN1 Q:'ZJ
105 Q
106 NOPN1 S Y=$V(-1,ZJ) I $P(Y,"^",3)[X_","!($P(Y,"^",3)[X_"*,") S
Y=ZJ,ZJ=""
Q
107 Q
108 NJ Q ;NOJOB ERROR
109 OPNERR S $EC="",Y=-1 Q
110 ;
111 GETENV ;Get environment (UCI^VOL^NODE^BOX:VOLUME)
112 N %,%1 S %=$$VERSION,%1=$ZU(86),%1=$S(%<3.1:$P(%1,"*",3),
1:$P(%1,"*"
,2))
113 D UCI S Y=$P(Y,",")_"^"_^%ZOSF("VOL")_"^"_$ZU(110)_"^"_^
%ZOSF("VOL")
_":"_%1
114 Q
115 VERSION(X) --
;return Cache version, X=1 - return full name
116 Q $S($G(X):$P($ZV,")")_")",1:$P($P($ZV,") ",2),"("))
117 ;
118 OS() ;Return the OS NT, VMS, Unix
119 Q $S($ZV["VMS":"VMS",$ZV["NT":"NT",$ZV["UNIX":"UNIX",
1:"UNK")
120 ;
121 SETNM(X) --
;Set name, Fall into SETENV
122 SETENV ;Set environment
123 N Q,$ET,$ES S $ET="S $EC="""" Q"
124 I $$OS="VMS" S Q=$ZF("SETPRN",$E(X,1,15))
125 Q
126 ;
127 SID() ;System ID Ver 1
128 N J1,T S T="~"
129 S J1(1)=$ZU(86) ;Node specific
130 S J1(2)=$ZU(5)_T_$ZU(12,"") ;namespace~directory
131 ; Q "1~"_J1(1)_T_J1(2)
132 Q "1~"_J1(2)
133 ;
134 HFSREW(IO,IOPAR) --
;Rewind Host File.
135 S $ZT="HFSRWERR"
136 C IO O @(""""_IO_""""_$S(IOPAR]"":":"_IOPAR_":1",1:":1")) I
'$T Q 0
137 Q 1
138 HFSRWERR --
;Error encountered
139 Q 0
140 LOGRSRC(OPT,TYPE,STATUS) --
;record resource usage in ^XTMP("KMPR"
141 Q:'$G(^%ZTSCH("LOGRSRC")) ; quit if RUM not turned on.
142 ; call to RUM routine.
143 D RU^%ZOSVKR($G(OPT),$G(TYPE),$G(STATUS))
144 Q
145 SETTRM(X) --
;Turn on specified terminators.
146 U $I:(:"+T":X)
147 Q 1
148 ;
149 T0 ; start RT clock
150 S XRT0=$H Q
151 T1 ; store RT datum
152 S ^%ZRTL(3,XRTL,+$H,XRTN,$P($H,",",2))=XRT0 K XRT0 Q
I am little bit confused not getting for what purpose we are doing
this.
Also please send me the WorldVista related links.
Regards,
Yogesh Puranik
-----------------------------------------------------------------------------------------------------------------------------------------------------------------