The code is not self-modifying, and the S0C4 information given plainly shows that's not the problem. You cannot get a PIC of 11 by self-modification.
sas On Thu, Sep 5, 2019 at 11:37 PM Leonardo Vaz <[email protected]> wrote: > Specifying RSECT instead of CSECT will make the section read-only, might > help catching something. > > Regards, > Leonardo Vaz > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of CM Poncelet > Sent: Thursday, September 05, 2019 8:43 PM > To: [email protected] > Subject: Re: MPF Exit calling System REXX - S0C4 abend > > Specify REFR on the link-edit step: > > ' //LNKEDT EXEC PGM=IEWL, ' > > ' // PARM='NOLIST,XREF,LET,NCAL,RENT,REFR,REUS', ' > > CP > > > On 05/09/2019 22:48, Charles Mills wrote: > > And of course, specifying RENT does not make the code reentrant. It's a > help. It flags some violations, and that's a help, but it misses a lot, and > does not "do" anything to your code, unlike the RENT option in higher-level > languages. IBM macros are fond of the form > > > > BAL 1,*+8 > > DC A(0) > > ST n,0(0,1) > > > > And while that is a violation and will lead to a S0C4 (generally) during > execution, the assembler RENT option will not flag it. (It also drives the > i-cache logic crazy and is a performance killer, but that is different > topic.) > > > > Charles > > > > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Jesse 1 Robinson > > Sent: Thursday, September 5, 2019 2:06 PM > > To: [email protected] > > Subject: Re: MPF Exit calling System REXX - S0C4 abend > > > > System exits in general need to be reentrant. You should add the RENT > option on the ASM step as well to make sure you don't have any violations, > which will likely lead to S0C4 in otherwise sound code. > > > > -----Original Message----- > > From: IBM Mainframe Discussion List <[email protected]> On > Behalf Of Sebastian Welton > > Sent: Thursday, September 5, 2019 6:21 AM > > To: [email protected] > > Subject: (External):Re: MPF Exit calling System REXX - S0C4 abend > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
