IBM Mainframe Forum

by **LasseH** » Tue May 12, 2015 7:37 pm

Hi
Is it possible to check the value of the row "*** Total number of errors:" and set the RC to 4 if the value is greater than 0

File example:

Select all

*** Total number of read records: 000000000979340
*** Total number of processed records: 000000000979339
*** Total number of errors: 000000000000001

//Lasse

by **BillyBoyo** » Tue May 12, 2015 7:45 pm

Yes. You use OUTFIL with INCLUDE= to match the zero record. You dummy-out the DD in the JCL (you can use SORTOUT or a named other DD). Use NULLOUT=RC4 (OPTION or PARM) or NULLOFL=RC4 on the OUTFIL for a named other DD.

When there are zero records on your dataset (even though it is a dummy) then you will get RC of 4.

by **LasseH** » Wed May 13, 2015 1:12 pm

Thanks Billy, works just fine.
Showing the parms for others to use
(using SYMNAMES just because I like it, maybe overkill)

//Lasse

Select all

//*--------------------------------------------------------
//* STEPNAME: S010
//* STEPINFO: ACT ON A VALUE IN A FILE
//*--------------------------------------------------------
//S010 EXEC PGM=SORT
//SYMNAMES DD *
THECOUNT,43,15,ZD
THETEXT,01,27,CH
ROW2CHK,C'*** TOTAL NUMBER OF ERRORS:'
ZERO,0
//SORTIN DD *
*** TOTAL NUMBER OF READ RECORDS: 000000000979340
*** TOTAL NUMBER OF PROCESSED RECORDS: 000000000979339
*** TOTAL NUMBER OF WARNINGS: 000000000000000
*** TOTAL NUMBER OF ERRORS: 000000000000001
//SORTOUT DD DUMMY
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL INCLUDE=((THETEXT,EQ,ROW2CHK),AND,(THECOUNT,EQ,ZERO)),
NULLOFL=RC4
//*

by **BillyBoyo** » Wed May 13, 2015 2:38 pm

Thanks for the code.

Symbols/SYMNAMES are fine to use, they will always explain the code better. However, I think yours can be made more meaningful. Where I define fields, I like them to be in ascending order by start-position. Not essential, but easier to "understand". Here's a different example of symbol use:

Select all

//SYMNAMES DD *
* Record fields
ERROR-MESSAGE-AREA,01,27,CH
ERROR-COUNT-WHICH-MUST-BE-ZERO,43,15,ZD
* Constants
ERROR-MESSAGE-TEXT,C'*** TOTAL NUMBER OF ERRORS:'
EXPECTED-RESULT-OF-ZERO,0

Select all

OUTFIL INCLUDE=((ERROR-MESSAGE-AREA,
EQ,
ERROR-MESSAGE-TEXT),
AND,
(ERROR-COUNT-WHICH-MUST-BE-ZERO,
EQ,
EXPECTED-RESULT-OF-ZERO)),
NULLOFL=RC4

IBM Mainframe Forum

Set rc if a value in a file is > 0

Set rc if a value in a file is > 0

Re: Set rc if a value in a file is > 0

Re: Set rc if a value in a file is > 0

Re: Set rc if a value in a file is > 0