View previous topic :: View next topic
|
Author |
Message |
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
I have a requirement.
1st Input file
A
B
C
D
2nd Input file data
E
F
G
H
My output file should be
A
E
B
F
C
G
D
H |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Why to use DFSORT for such a request????
Why not just IEBGENER?
Concatenate your input datasets as SYSUT1 |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Ohh.. sorry... I missed it....you need one one records from both input dataset and so on... |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
I believe the output is to be the data from the 2 input files interleaved.
Unfortunately, this is another of the "guess what i want" topics as Sakrish could not be bothered to explain the "requirement". . . |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
According to my understanding this is what you want...
Am assuming input LRECL and RECFM is 80 and FB respectively
Code: |
//S1 EXEC PGM=ICETOOL
//SYSOUT DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//IN1 DD *
A
B
C
D
//IN2 DD *
E
F
G
H
//TMP DD DSN=&TEMP,DISP=(MOD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(TMP) USING(CTL1)
COPY FROM(IN2) TO(TMP) USING(CTL2)
SORT FROM(TMP) TO(OUT) USING(CTL3)
/*
//CTL1CNTL DD *
OPTION COPY
INREC OVERLAY=(81:SEQNUM,8,ZD,START=1,INCR=2)
//CTL2CNTL DD *
OPTION COPY
INREC OVERLAY=(81:SEQNUM,8,ZD,START=2,INCR=2)
//CTL3CNTL DD *
SORT FIELDS=(81,8,ZD,A)
OUTREC BUILD=(1,80)
|
Output will be
|
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
this might assist
Code: |
//STEP0001 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FILE1 DD *
A
B
C
D
/*
//FILE2 DD *
E
F
G
H
/*
//TEMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(TRK,(10,5),RLSE)
//FINAL DD SYSOUT=*
//TOOLIN DD *
COPY FROM(FILE1) TO(TEMP1) USING(CTL1)
COPY FROM(FILE2) TO(TEMP1) USING(CTL2)
SORT FROM(TEMP1) TO(FINAL) USING(CTL3)
/*
//CTL1CNTL DD *
OUTREC OVERLAY=(81:SEQNUM,8,ZD,START=1,INCR=2)
/*
//CTL2CNTL DD *
OUTREC OVERLAY=(81:SEQNUM,8,ZD,START=2,INCR=2)
/*
//CTL3CNTL DD *
SORT FIELDS=(81,8,ZD,A)
OUTREC BUILD=(1,80)
/*
|
Gerry |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Gerry wrote: |
Hi,
this might assist |
We think exactly same.... |
|
Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
Thanks to gcicchet and Sambhaji.
It worked fine. |
|
Back to top |
|
|
|