kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Tue Nov 25, 2008 5:29 pm Post subject: |
|
|
Martin,
Are u just re-sequencing the second file with a number after the first file? if so concatenate both files and use the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HEADER:1
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX01
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX02
.
.
.
.
.
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX43
TRAILER1
// DD *
HEADER1
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY01
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY02
.
.
.
.
.
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY47
TRAILER2
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION EQUALS
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'2')),
IFTHEN=(WHEN=(1,6,CH,EQ,C'HEADER'),OVERLAY=(81:C'1',SEQNUM,1,ZD)),
IFTHEN=(WHEN=(1,7,CH,EQ,C'TRAILER'),OVERLAY=(81:C'9'))
SORT FIELDS=(81,1,CH,A)
OUTFIL IFOUTLEN=80,OMIT=(82,1,ZD,EQ,2),
IFTHEN=(WHEN=(81,1,ZD,EQ,2),OVERLAY=(34:SEQNUM,3,ZD))
//* |
_________________ Kolusu
www.linkedin.com/in/kolusu |
|