To detect records in Error files

raghavendra_p_sarvade · New User Joined: 17 Oct 2006 Posts: 32

I have 40 error files. I need to set up a job which will abend if there is a record in any of the 40 files and also show which file exactly contained that record.

Can someone help me out?

expat · Posted: Thu Feb 28, 2008 3:23 pm

Search the forum for empty dataset and that will give you a few good clues.

raghavendra_p_sarvade · New User Joined: 17 Oct 2006 Posts: 32

I tried the below one. But it doesn't show which file had record.

Any suggestions?

//STEP1 EXEC PGM=IDCAMS
//INPUT DD DSN=FILE1,DISP=SHR
// DD DSN=FILE2,DISP=SHR
// DD DSN=FILE3,DISP=SHR
// DD DSN=FILE4,DISP=SHR
// DD DSN=FILE5,DISP=SHR
// DD DSN=FILE20,DISP=SHR
// DD DSN=FILE40,DISP=SHR
//AMSDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT -
INFILE(INPUT) -
COUNT(1)
/*
//STEP2 EXEC PGM=IEBGENER,COND=(0,NE)
//SYSUT1 DD DUMMY
//SYSUT2 DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ABOVE STEP HAVE RECORDS SO JOB ABENDED LOOK AT THE DATASET CREATED*
/*

enrico-sorichetti · Posted: Thu Feb 28, 2008 4:17 pm

are You looking for a specific record, or just empty/non empty
the "thing" will happen for only one dataset or for multiple dataset ?

the requirement might be clear for You, but it' s not clear for all

why abend the job, isn' t a return code enough

if only strings are being resarched why not use superc like this ...