Searchman
New User
Joined: 28 Dec 2006 Posts: 80 Location: France
|
|
|
|
How can I create a trailer record 'truncated", whose recsize is shorter than detail record (PGM=SORT) ?
Code: |
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 14:45 ON THU
OMIT COND=(5,3,CH,EQ,C'S99')
INREC IFTHEN=(WHEN=(5,3,CH,EQ,C'S01'),
OVERLAY=(15:200C' '))
SUM FIELDS=(53,10,63,10,73,10,83,10,93,10,103,10,113,10,123,10,
133,10,143,10,153,10),FORMAT=PD
SORT FIELDS=(1,30,CH,A)
OUTFIL FNAMES=SORTOUT,REMOVECC,
TRAILER1=(1:C'S',2:C'99',COUNT=(M11,LENGTH=9))
OUTFIL FNAMES=ENTETE,REMOVECC,
TRAILER1=(1:C'S',2:C'99',COUNT=(M11,LENGTH=9)),
INCLUDE=(5,3,CH,EQ,C'S99'),
BUILD=(1,15)
ICE201I F RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE230A 0 16 BYTE HEADER/TRAILER RECORD EXCEEDS 15 BYTE LRECL FOR ENTETE
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K90013 E9-K90013 E7-K24705
ICE052I 3 END OF DFSORT
******************************** BOTTOM OF DATA *****************************
|
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Your BUILD=(1,15) operand sets LRECL=15 for the ENTETE output data. That means 15 is the maximum length for the output records. So you can't have a 16-byte trailer record since it's larger than the LRECL of 15.
You can either use BUILD=(1,15,X) to set the LRECL to 16 or you can use LRECL=16 on the ENTETE DD statement to set the LRECL to 16. |
|