Subject: Re: EXEC REXX=member-name
rbotsis@aol.com
Date: Mon Aug 04 2008 - 14:28:09 EDT
Dave,
Accessing varname's and varvalues for SETPARM SYSTEM statements is
pretty easy. The storage is anchored in SYSCOM+x'198' (i.e. IJBGLOBV).
Access as follows (as far as I know there is NO DSECT thus you'll have
to decipher the contents of each entry):
AMODESW SET,AMODE=31 , SWITCH TO AMODE 31.
L R1,X'80' LOAD SYSCOM ADDRESS TO REG 1.
USING SYSCOM,R1 , INFORM ASSEMBLER.
L RB,IJBGLOBV LOAD IJBGLOBV TO REG 11. (X'198').
DROP R1 , (SYSCOM).
L RB,0(,RB) LOAD ADDRESS OF SYSTEM VARIABLE POOL
LA RB,42(,RB) INCREMENT TO FIRST ENTRY.
*
VARCMD10 EQU *
CLI 0(RB),C'C'
BE VARCMD90
LH RC,0(,RB) LOAD LENGTH OF DATA TO REG 12.
LTR RC,RC IS IT NEGATIVE.
BM VAREXG YES-BRANCH TO VAREXG.
CLI 3(RB),X'00' IS ENTRY BEING USED.
BE VARCMD50 NO-BRANCH TO VARCMD50.
....do whatever you want here...
*
VARCMD50 LA RB,2+1+7+1(RB,RC) INCREMENT TO NEXT ENTRY.
B VARCMD10 BRANCH TO VARCMD10.
*
VARCMD90 EQU *
ICM RB,15,1(RB) LOAD NEXT ENTRY TO REG 11.
B VARCMD10 BRANCH TO VARCMD10.
VAREXG EQU *
AMODESW SET,AMODE=24 , SWITCH TO AMODE 24.
The SETPARM PWRJOB,varname=varvalue is a bit harder. I do not have any
code that extracts these but investigation I did sometime ago and a
little today yielded the following:
SETPARM PWRJOB,varname=varvalue appear to take up slots, for each
partition, immediately following the first address at SYSCOM+x'198'. I
do not know which slots are for which partitions. The entries
themselves appear to be the same as for SETPARM SYSTEM,varname=varvalue.
As for SETPARM varname=varvalue I haven't found a conslusive anchor.
-----Original Message-----
From: industrynews@winwholesale.com
To: VSE Discussion List <vse-l@Lehigh.EDU>
Sent: Mon, 4 Aug 2008 12:26 pm
Subject: Re: EXEC REXX=member-name
owner-vse-l@Lehigh.EDU wrote on 08/04/2008 12:10:53 PM:
> However, for your particular need, you really need something
> which can query a list of all procedure-level symbols available.
If anybody has some hints on how this can be done, I'd like to
add
this functionality to my RXVSEVAR external REXX function.
Sincerely,
Dave Clark
WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or
proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and
all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or
privilege
is waived or lost by any error in transmission.
This archive was generated by hypermail 2b25 : Tue Aug 19 2008 - 18:20:10 EDT