EMPTY FILE - JOB ABENDS

d_sarlie · Posted: Fri Jul 25, 2014 1:42 am

The input file is empty and the job abends.I want to give a different rc and doesnt want by job to abend.

Can someone help me

IDCAMS SYSTEM SERVICES

PRINT INFILE(INDD) COUNT(1)
IDCAMS SYSTEM SERVICES
LISTING OF DATA SET -TSOCDAV.SPS261DP.R030.NEWACTY
IDC11462I REQUESTED RANGE END BEYOND END OF DATA SET.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 4
IDCAMS SYSTEM SERVICES

IF LASTCC NE 0 THEN SET LASTCC=1

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 4

Thanks!!

Akatsukami · Posted: Fri Jul 25, 2014 1:48 am

There's nothing obvious that would cause the job to abend (unless, like so many software engineers, you are misusing "abend" to mean "unexpected result"). Show the JCL enclosed in Code tags.

d_sarlie · Posted: Fri Jul 25, 2014 2:02 am

Sysin:

PRINT INFILE(INDD) COUNT(1)
IF LASTCC NE 0 THEN SET LASTCC=1

JCL:

//R030G EXEC PGM=CONDCODE,PARM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//INDD DD DSN=JUY.UI,
// DISP=SHR
//SYSIN DD DSN=XXX.HJ(MY),
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=A
//CEEDUMP DD SYSOUT=A
//

Rohit Umarjikar · Posted: Fri Jul 25, 2014 2:18 am

Sample to set the rc = 2 for Empty File:

steve-myers · Posted: Fri Jul 25, 2014 7:08 am

You are actually running a program called CONDCODE. It appears CONDCODE runs the program specified in the PARM as a subroutine. When the program returns to CONDCODE, and the return code is non-zero, CONDCODE ABENDs. You can cure the ABEND by running IDCAMS directly (e.g., EXEC PGM=IDCAMS).