Mike,
No, I am not aware of this (TSO batch job). Would you have an example which I
could try?
________________________________
From: Mike Schwab <mike.a.sch...@gmail.com>
To: IBM-MAIN@bama.ua.edu
Sent: Monday, 28 November 2011 1:22 PM
Subject: Re: SETTING CONDITION CODE
The IDCAMS logic only applies to the various commands within the IDCAMS step.
Have your tried a TSO Batch job, with proceeding allocate and follow
free statements, followed by the TSO Clist statements to check and set
the condition codes (same as your example)?
On Mon, Nov 28, 2011 at 12:15 PM, John Dawes <jhn_da...@yahoo.com.au> wrote:
> G'Day,
>
> Can I override a condition code so as to force it to a 0000? For example the
> job-step executes successfully and puts out a COND CODE=0002. The job
> continues on to the next step which is what we want. The reason I need a
> 0000 instead of a 0002 is because I get paged because the operator sees a
> 0002.
> I tried the following by using IDCAMS:
> //STEPCOND EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *
> IF MAXCC=0002 -
> THEN -
> DO -
> SET MAXCC=0 -
> END
> //*
>
> However this did not force a 0000 on the previous step. Is there a way I can
> add the IDCAMS IF-THEN-DO logic in the step which is giving me the headache?
> Or is there a way of forcing a 0000 on that step. Here is what
> the (headache) step is doing:
>
> //PRINTDS EXEC PGM=PRTDS,
> // PARM=('DDNAME(INPDS)',
> // 'SEA(.) REP(X''40'')',
> // 'SYSOUT(X)')
> //INPDS DD DSN=SYS2..INFO.CONFIG,DISP=SHR
> //SYSPRINT DD SYSOUT=*
> //*
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
