All:
I want to be able to have an options program for our product that the
customer updates.
Then they would assemble/bind it and we can call it to pass options to our
exits. The exits
are system type exits, so i know I/O is limited or not existent. My
question is if i want a program to build the dsect i need to see an example
i assume , please correct me if I am wrong, that i would have:
CSECT ...
.............
DSECT
Below is a sample if found.
PRMDSECT DSECT PARM-DSECT (R7)
USING *,R7 INFORM ASSEMBLER
PRMTRGT DS CL8 TARGET-PGM
PRMADDR DS XL4 TARGET-PGM LOAD-ADDRESS
PRMERRCD DS XL4 TARGET-PGM ERROR-CODE
PRMRSA EQU * BEGIN PARM-RSA
LOADPGM CSECT
USING *,R3 INFORM ASSEMBLER
LA R3,0(,R15) CSECT ADDRESSABILITY
L R7,0(,R1) PARMAREA ADDRESSABILITY
LA R9,PRMRSA POINT TO OUR RSA
XC 0(72,R9),0(R9) ENSURE X'00'S
LA R15,0(,R9) LOAD WITH OUR RSA-ADDRESS
ST R13,4(,R15) BACKWARD-CHAIN
ST R15,8(,R13) FORWARD-CHAIN
LR R13,R15 LOAD WITH OUR RSA-ADDRESS
XC PRMADDR,PRMADDR ENSURE X'00'S
LOAD EPLOC=PRMTRGT,ERRET=BADLOAD
STCM R0,B'1111',PRMADDR STORE IN PARM-FWORD
XR R1,R1 ENSURE X'00'S
BADLOAD EQU *
STCM R1,B'1111',PRMERRCD
RTN2CLLR EQU *
L R13,4(,R13) RESTORE CALLERS R13
XC 0(72,R9),0(R9) ENSURE X'00'S
*
RETURN (14,12),RC=(15) RESTORE AND RETURN
*
LTORG ,
YREGS , MVS REGISTER-MACRO
LOADPGM AMODE 31 ,
LOADPGM RMODE ANY ,
END ,
I am think my exit could issue a LOAD for a program similar to above with
something like this:
OPTSPARM DSECT
OPTTBL DS 0F
LOGMSGS DC C'P',H'5',C'LOG=Y'
TRACE DC C'P',H'7',C'TRACE=N'
TBLEND DC X'FF',H'0',C' '
Then the exit would take action based on the options passed. It would have
to be re-entrant of course. Is my thinking right all ?
Scott
*IDMWORKS *
Scott Ford
z/OS Dev.
“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”
www.idmworks.com
[email protected]
Blog: www.idmworks.com/blog
*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
