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:[email protected]] On Behalf Of Rob Schramm Sent: Tuesday, January 29, 2019 1:33 PM To: [email protected] 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: [email protected] Sent: January 29, 2019 12:19 PM To: [email protected] Reply-to: [email protected] 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 [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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
