In either assembler or Cobol its not too hard to set a CC ... Allen: In either assembler or Cobol its not too hard to set a CC ... Scott J Ford
________________________________ From: "Gainsford, Allen" <[email protected]> To: [email protected] Sent: Mon, June 6, 2011 5:46:02 PM Subject: Re: JCL: IF and ABEND > I would like to try this process myself, but don't have a cond code program > that will also set abend codes. Is the source for setcond or sscond > available for me to try this? > *don* > > On Fri, Jun 3, 2011 at 5:20 PM, Paul Gilmartin <[email protected]> wrote: > > > On Fri, 3 Jun 2011 16:06:09 -0500, Rick Fochtman wrote: > > > > > >>//COND2 EXEC PGM=SETCOND,PARM=U111 > > >>// IF (COND2.RUN=TRUE OR COND2.ABENDCC=U0111) THEN > > >> > > >>//COND2 EXEC PGM=SSCOND,PARM=U111 > > >>// IF (COND2.RUN=TRUE OR COND2.ABENDCC=U0111) THEN > > > > >>---------------------------------<unsnip>------------------------------------ > > >You keep using PARM= values in your examples. Try looking at the COND= > > >parameter of the EXEC statement. > > > > > What assumptions are you making about the specification of the > > SETCOND and SSCOND programs? > > > > -- gil I beg your pardon. I seem to have mixed SETCOND and SSCOND instead of using SETCOND throughout. Either way, this is a trivial program for setting a desired return code or abend code. It's an internal program and I don't have permission to share code, but it should be trivially easy to duplicate. :) Regards, Allen ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
