Remove irrelevant posts

Mazahar · New User Joined: 11 Dec 2007 Posts: 70 Location: hyderabad

Gousiya,

Please check the solution given by frank in this topic for the same kind of problem and change according to u r requirement

http://ibmmainframes.com/viewtopic.php?t=39200

Please do let us know if you face any problems.

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

Hi Mazhar ,

I was doing the same .
I have checked the same and used as below :

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (VB/351)
// DD DSN=... input file2 (VB/351)
//SORTOUT DD DSN=... output file (VB/351)
//SYSIN DD *
OMIT COND=(1,7,CH,EQ,C'REF-HDR')
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'TRAILER'),OVERLAY=(351:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(351,1,ZD,EQ,2),BUILD=(1,351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=6))
/*

But my job is abending saying 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.'

Is there some thing that u can help with ?? Many thanks in advance ...

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

I have chaged SYSIN as below as per the my above data .. to match with previous Expat's suggestions ...

//SYSIN DD *
OMIT COND=(1,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'REF-HDR'),OVERLAY=(351:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(351,1,ZD,EQ,2),BUILD=(1,351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=6))
/*

Mazahar · New User Joined: 11 Dec 2007 Posts: 70 Location: hyderabad

expat · Posted: Thu Jul 02, 2009 3:28 pm Post subject:

Mazahar · New User Joined: 11 Dec 2007 Posts: 70 Location: hyderabad

Expat,

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

Mazhar ,

I have changed as above you suggested ...

//SYSIN DD *
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),
OVERLAY=(352:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
/*

But still JCL CHeck says 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.' and the job is abending ..

Any advice ?

expat · Posted: Thu Jul 02, 2009 3:44 pm Post subject:

Are you saying that the JCL check is objecting to the statement, or the job is actually abending.

If the job abends please post the output showing the error messages and codes.

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

The JCL Check is showing the above msg 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.'

When I ran the job .. the below is the error ..

S1 - STEP WAS EXECUTED - COND CODE 0016

My code is :
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (VB/351)
// DD DSN=... input file2 (VB/351)
//SORTOUT DD DSN=... output file (VB/351)
//SYSIN DD *
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),OVERLAY=(352:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
/*

expat · Posted: Thu Jul 02, 2009 3:57 pm Post subject:

What we really need to see is the output from the SYSOUT

Also please learn to use the CODE tags to make your posts more easily readable. Example below

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

Hi ,

Hope the below is what you are looking for ..

expat · Posted: Thu Jul 02, 2009 4:14 pm Post subject:

Try adding

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

Expat ..

this time error as below :

expat · Posted: Thu Jul 02, 2009 4:47 pm Post subject:

You need to add SORT FIELDS=COPY

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 62 Location: bangalore

Hard time !! Did not worked ..

I will try selcopy ..

Thanks for your help Expat and Mazhar ...