The approach would work but I think even a LOAD in a system exit is not a good idea. As Chris said, if you are an ISV you may already have an ECVT entry. Today I’d almost expect that someone would update a dataset with the changes and then issue a MODIFY urApp,NEWPARMS=xxx and urApp would read the dataset, update the in-memory copy and manage all the serialization so your exit could just operate on what was in memory and not have to manage it at that level.
Matt Hogstrom m...@hogstrom.org +1-919-656-0564 PGP Key: 0x90ECB270 "Aut Inveniam Viam Aut Faciam" translated - "I shall either find a way or make one." The phrase has been attributed to Hannibal <http://en.wikipedia.org/wiki/Hannibal>; when his generals told him it was impossible to cross the Alps by elephant <http://en.wikipedia.org/wiki/Second_Punic_War>, > On Jan 29, 2019, at 1:52 PM, Christopher Y. Blaicher <cblaic...@syncsort.com> > wrote: > > If you are an ISV, then I would contact IBM and ask to get an ECVTCTBL word > assigned to your company. That word can be used to point to a CSA structure > of your own making. You can have a program that reads a parm file and sets > appropriate values. > PS - Most system exits don't behave well with real I/O because they take too > long. > > Chris Blaicher > Technical Architect > Syncsort, Inc. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Rob Schramm > Sent: Tuesday, January 29, 2019 1:33 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: External dsect > > Scott, > > Not to be overly critical, but isn't this scheme a little 1980's? I had > thought most products had moved away from this and moved to parm-driven with > some sort of refresh or command driven override. > > Not saying it won't work.. because it will. > > I will let others comment on the specifics. > > Rob Schramm > > > > Sent from my BlackBerry - the most secure mobile device > > Original Message > From: idfli...@gmail.com > Sent: January 29, 2019 12:19 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Reply-to: IBM-MAIN@LISTSERV.UA.EDU > Subject: External dsect > > 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 > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
