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 scott.f...@idmworks.com 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN