|
View previous topic :: View next topic
|
| Author |
Message |
Help-Me-Out
New User
.jpg)
Joined: 09 Dec 2006
Posts: 56
Location: Pune
|
|
|
|
I have requirenment in which I need to create a file from two input file such that o/p file should contain first record of first file then first record of second file like wise?
e.g.
i/p-1
A
B
C
I/P-2
1
2
3
O/P
A
1
B
2
C
3
Tried by inserting the seq no. but it is not working, like
SORT FIELDS=(1,5,CH,A)
OUTREC FIELDS=(1:1,5,6:4X,10:SEQNUM)
Can we add odd/even nos at the end of the file like |
|
| Back to top |
|
 |
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Sandy,
Use the following -
| Code: |
//STEP@@@@ EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//FILE1 DD *
A
B
C
/*
//FILE2 DD *
1
2
3
/*
//TEMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS)
//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=(10:SEQNUM,8,ZD,START=1,INCR=2)
/*
//CTL2CNTL DD *
OUTREC OVERLAY=(10:SEQNUM,8,ZD,START=2,INCR=2)
/*
//CTL3CNTL DD *
SORT FIELDS=(10,8,ZD,A)
OUTREC BUILD=(1,1)
/* |
O/P as desired. |
|
| Back to top |
|
|
Help-Me-Out
New User
Joined: 09 Dec 2006
Posts: 56
Location: Pune
|
|
|
|
Its working murmohk1 
Thanks alot  |
|
| Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Sandy,
You are welc me. |
|
| Back to top |
|
|
|
|
