sysnode
Marcus Davage
This system variable is not supported for MVSVAR processing.
30 +++ SAY " SYSNODE =" MVSVAR('SYSNODE')
Error running SYSVARS, line 30: Incorrect call to routine
Marcus
---------------------------------------------------------------------------
This Email is intended for the exclusive use of the addressee only.
If you are not the intended recipient, you should not use the
contents nor disclose them to any other person and you should
immediately notify the sender and delete the Email.
Lloyds TSB Bank plc is registered in England and Wales no. 2065.
Registered office: 71 Lombard Street, London, EC3P 3BS.
Lloyds TSB Scotland plc is registered in Scotland no. 95237.
Registered office: Henry Duncan House, 120 George Street,
Edinburgh, EH2 4LH.
---------------------------------------------------------------------------
Gray, Alastair
/* REXX */
cvt = Storage(10,4) /* get the CVT address */
cvtjesct = Storage(D2x(C2d(cvt)+296),4) /* get the JESCT address */
jesssct = Storage(D2x(C2d(cvtjesct)+24),4) /* get jesssct (sscvt) */
ssctsnam = Storage(D2x(C2d(jesssct)+8),4) /* get sub-system name */
ssctsus2 = Storage(D2x(C2d(jesssct)+28),4) /* point To $hcct */
cctndenm = Storage(D2x(C2d(ssctsus2)+372),8)/* jes node name */
cctssnm = Storage(D2x(C2d(ssctsus2)+696),4)/* jes name of subsystem */
cctssvs = Storage(D2x(C2d(ssctsus2)+700),4)/* jes version-level-mod */
Alastair Gray
Consultant Systems Type
Gerd Wetzel
is there any possibility to get datasetinformation of a hfs-dataset
like the LISTDSI for other mvs-datasets ?
If I try the LISTDSI I always get retcode 16.
regards
Gerd Wetzel
---------------------------------------------------------------
Gerd Wetzel
debis Systemhaus
RSW-UT/BA
Mercedesstra_e 137
70327 Stuttgart
Germany
phone:
++49/711/17-54585
fax:
++49/711/17-56764
e-mail:
mailto:gerd....@debis.com
mailto:gerd....@web.de
---------------------------------------------------------------
'This message is built from 100% recycled and happy electrons.'
---------------------------------------------------------------
Krause, Michael
Look in the manual OS/390 Using REXX and OS/390 OpenEdition Document Number
SC28-1905-02 for using REXX with OpenEditon. Perhaps there is an equivalent
command?
Mit freundlichen Gruessen/Best regards
REWE-Informations-Systeme GmbH
Michael Krause
RIS/LIBS - NRZ - Raum 14
Raiffeisenstrasse 5-9
D-61191 Rosbach vor der Hoehe
Telefon: 0049(0)6003/85-2877
0049(0)6101/542 444 (privat)
Telefax: 0049(0)6003/85-6-2877
eMail: Michael...@rewe.de (Office)
Michael...@rhein-main.net (Home)
Robert Ngan
I wrote the following exec mainly for TSO/E v2.4 or lower to emulate
MVSVAR. I keep it in my REXX library, if MVSVAR is supported, the
internal function is invoked, if not supported, then the REXX version is
executed.
In your case, the internal version exists but does not support the
"latest greatest" subfunctions.
/* REXX, emulate MVSVAR() functions (for TSO/E v2r4 or lower!) */
ARG function, string
SIGNAL ON NOVALUE
NUMERIC DIGITS 10 /* Handle 32-bit decimal numbers */
SELECT
WHEN function == "SYSCLONE" THEN
res = GetChar(ecvt(), "264", 2) /* (ECVTCLON) */
WHEN function == "SYSDFP" THEN /* MVS DFP level */
DO
cvtdfa = GetHex(cvt(), "4C0", 4)
dfarels = GetChar(cvtdfa, "10", 4)
res = insert(".", insert(".", insert(".", dfarels, 6), 4), 2)
END
WHEN function == "SYSMVS" THEN /* BCP component level
(CVTPRODN) */
res = GetChar(SubHex(cvt(), "28"), 0, 8)
WHEN function == "SYSNAME" THEN /* Name of the system
(CVTSNAME) */
res = GetChar(cvt(), "154", 8)
WHEN function == "SYSOPSYS" THEN /* OS/390 name, version, etc.
*/
DO
cvtprodn = GetChar(SubHex(cvt(), "28"), 0, 16)
PARSE VAR cvtprodn "SP" v "." r "." m fmid .
res = "MVS/ESA",
right(v,2,0) || "." || right(r,2,0) || "." || right(m,2,0)
fmid
END
WHEN function == "SYSNODE" THEN /* JES network node name
(CCTNDENM) */
DO
cvtjesct = GetHex(cvt(), "128", 4)
jesssct = GetHex(cvtjesct, "18", 4) /* SSCVT address */
ssctsus2 = GetHex(jesssct, "1C", 4) /* Address of $HCCT */
res = strip(GetChar(ssctsus2, "174", 8))
END
WHEN function == "SYSPLEX" THEN /* MVS sysplex name (ECVTSPLX)
*/
res = GetChar(ecvt(), "8", 8)
WHEN function == "SYSSMFID" THEN /* SMF system identifier */
res = GetChar(cvt(), "154", 4)
WHEN function == "SYSSMS" THEN /* whether DFSMS/MVS is
available */
DO
cvtdfa = GetHex(cvt(), "4C0", 4)
dfasms = bitand(GetChar(cvtdfa, 5, 1), '02'x) == '02'x
IF dfasms THEN
res = "ACTIVE"
ELSE
res = "INACTIVE"
END
OTHERWISE
CALL ForcHalt "MVSVAR() - non-emulated function:" function
END /* Select */
RETURN strip(res)
/*********************************************************************/
CVT: RETURN GetHex(0, "010",4) /* Communication Vector Table */
ECVT: RETURN GetHex(CVT(), "08C",4) /* Extended CVT (sysplex) */
/*********************************************************************/
AddHex: RETURN d2x(x2d(arg(1)) + x2d(arg(2)))
SubHex: RETURN d2x(x2d(arg(1)) - x2d(arg(2)))
getDec: RETURN c2d(storage(d2x(x2d(arg(1)) + x2d(arg(2))), arg(3)))
getHex: RETURN c2x(storage(d2x(x2d(arg(1)) + x2d(arg(2))), arg(3)))
getChar: RETURN storage(d2x(x2d(arg(1)) + x2d(arg(2))), arg(3))
/**********************************************************************/
/* Change history:
1998/12/17 : Robert Ngan
Strip leading and trailing spaces from return value.
1998/03/18 : Robert Ngan
Obtain SYSDFP value from DFARELS instead of DFAREL.
Obtain SYSSMS value from DFASMS in DFAFEAT1 (active or inactive only!)
1997/04/03 : Robert Ngan
Initial version.
*/
In article <7E3954DDED91D311998E0008C70DFD80171A4A@EXCRSTREDEGA001>,
Marcus...@LLOYDSTSB.CO.UK says...
> How do I get the system jes node name SYSNODE when the following occurs?
>
> This system variable is not supported for MVSVAR processing.
> 30 +++ SAY " SYSNODE =" MVSVAR('SYSNODE')
> Error running SYSVARS, line 30: Incorrect call to routine
>
>
> Marcus
>
--
Robert Ngan
CSC Financial Services Group