Conditional JCL

jr3011 · Posted: Thu May 31, 2012 10:50 pm

Does DFSORT pass anything (return code for example) when no records are selected that i can use in conditional jcl to bypass a block of jcl ? If no records are created in my output file i don't want to email the output file.

Pandora-Box · Posted: Thu May 31, 2012 10:59 pm

Please check here

Also how is your input file created so that if nothing is written cant you set the return code there ( Just to check if you create your input using any program apart from sort )

sqlcode1 · Active Member Joined: 08 Apr 2010 Posts: 577 Location: USA

And also refer to NULLOFL and NULLOUT

NULLOUT applies to the SORTOUT data set. NULLOFL applies to OUTFIL data sets

Thanks,

jr3011 · Posted: Thu May 31, 2012 11:40 pm

thanks alot, this works for me..

jr3011 · Posted: Fri Jun 01, 2012 6:21 pm

it sets the return code fine (CC=04) ... but i get a jcl error (invalid referback) on the IF statement.

I have tried the following IF statements
IF SORT.RC = 0 then
IF STEP1. RC = 0 then

//STEP1 EXEC SORT
//SORTIN DD DSN=TEMP.JRH.MANUAL,DISP=(SHR)
//SORTOF1 DD DSN=&&CHEPEML,DISP=(NEW,PASS)
//SYMNAMES DD DSN=CTLCDS.DUDA(SYMNAMES),DISP=SHR
//SYSIN DD DISP=SHR,DSN=CTLCDS.DUDA(ODSA29)
// IF SORT.RC = 0 THEN
//MAILIT EXEC MAILREPT
//MFMAIL.REPORT DD DSN=&&CHEPEML,DISP=(OLD,DELETE)
//MFMAIL.SYSTSIN DD *
%XMITIP (JRH@DUDA.COM) NOMSG FILEDD REPORT -
SUBJECT 'CHEP PALLETS FOR REVERSAL' -
MSGT 'SEE ATTACHMENT FOR REPORT'
// ENDIF

Pandora-Box · Posted: Fri Jun 01, 2012 6:29 pm

why two if and one end if?

jr3011 · Posted: Fri Jun 01, 2012 6:37 pm

only one IF in the jcl example... those are the 2 different IFs that i have tried and received the same error.

Naish · New User Joined: 07 Dec 2006 Posts: 82 Location: UK

Could you show us the JESYSMSG from your SPOOL?

Thanks.

jr3011 · Posted: Fri Jun 01, 2012 6:43 pm

STMT NO. MESSAGE
2 IEFC001I PROCEDURE SORT WAS EXPANDED USING SYSTEM LIBRARY OD.PROD.PROC
10 IEFC001I PROCEDURE MAILREPT WAS EXPANDED USING SYSTEM LIBRARY OD.PROD.
9 IEF645I INVALID REFERBACK IN THE RC FIELD

Pandora-Box · Posted: Fri Jun 01, 2012 6:43 pm

That should definitely be STEP1.Rc

jr3011 · Posted: Fri Jun 01, 2012 6:50 pm

I get the same error:

//JHSA29X JOB (1617,JRH,W811),'EDI REPORT',MSGCLASS=X,CLASS=A,USER=JRH
//STEP1 EXEC SORT
//SORTIN DD DSN=TEMP.JRH.MANUAL,DISP=(OLD,DELETE)
//SORTOF1 DD DSN=&&CHEPEML,DISP=(NEW,PASS)
//SYMNAMES DD DSN=CTLCDS.DUDA(SYMNAMES),DISP=SHR
//SYSIN DD DISP=SHR,DSN=CTLCDS.DUDA(ODSA29)
// IF STEP1.RC = 0 THEN
//MAILIT EXEC MAILREPT
//MFMAIL.REPORT DD DSN=&&CHEPEML,DISP=(OLD,DELETE)
//MFMAIL.SYSTSIN DD *
%XMITIP (JRH@DUDA.COM) NOMSG FILEDD REPORT -
SUBJECT 'CHEP PALLETS FOR REVERSAL' -
MSGT 'SEE ATTACHMENT FOR REPORT'
// ENDIF

Robert Sample · Posted: Fri Jun 01, 2012 7:00 pm

Post the job output, especially the JES and SORT messages, using the CODE tag to preserve spacing. I suspect your problem is not what you think it is.

Akatsukami · Posted: Fri Jun 01, 2012 7:04 pm

jr3011 · Posted: Fri Jun 01, 2012 7:06 pm

Yes, that worked thanks.

// IF step1.sort.rc = 0 then

Pandora-Box · Posted: Fri Jun 01, 2012 7:09 pm

sqlcode1 · Active Member Joined: 08 Apr 2010 Posts: 577 Location: USA

jr3011,

It would have been easier if you had referred to this

Pay close attention to Relational-Expression Keywords

Thanks,