Modifying only Trailer record count
Posted: Mon Jul 23, 2012 6:07 pm
Hi skolusu,
I have used your code which is given by you to test but i am getting the syntax error.
says that PARAMETER 'IFTRAIL' IS UNIDENTIFIED
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AB 001 2012-07-07 ------------ HEADER
AB 100 2012-07-07 ------------ DETAIL RECORD
AB 200 2012-07-07 ------------ DETAIL RECORD
AB 002 2012-07-07 0000000005 ---------- TRAILER RECORD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'AB 002'),
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
//*
sysout message:
SYSIN :
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,
IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'TT 002'),
*
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
please help me solve this.
my code:
thanks.
johny.
I have used your code which is given by you to test but i am getting the syntax error.
says that PARAMETER 'IFTRAIL' IS UNIDENTIFIED
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AB 001 2012-07-07 ------------ HEADER
AB 100 2012-07-07 ------------ DETAIL RECORD
AB 200 2012-07-07 ------------ DETAIL RECORD
AB 002 2012-07-07 0000000005 ---------- TRAILER RECORD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'AB 002'),
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
//*
sysout message:
SYSIN :
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,
IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'TT 002'),
*
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
please help me solve this.
my code:
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=***********
//OUT1 DD DSN=****************,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// SPACE=(TRK,(3,3))
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,
IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'TT 002'),
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
/*
Input file i gave which one you have mentioned.
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=***********
//OUT1 DD DSN=****************,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// SPACE=(TRK,(3,3))
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,
IFTRAIL=(HD=YES,TRLID=(1,6,CH,EQ,C'TT 002'),
TRLUPD=(19:COUNT=(M11,LENGTH=10)))
/*
Input file i gave which one you have mentioned.
thanks.
johny.