View previous topic :: View next topic
|
Author |
Message |
sahil mohta
New User
Joined: 25 Jul 2008 Posts: 5 Location: pune
|
|
|
|
Hi All,
I have file1 and file2. i have to copy certain records of file2 in file1. There are same headers of the two files i.e. 1 & 9.
file1 records:---
1aaaaa
2bbbbb
4ddddd
6ccccc
9zzzzzzzz
file2 records:---
1ssssss
3wwww
5rrrrrr
7fffffffff
9andnnnn
now i have to get my oupput file as.:----
output file:-------
1aaaaa
2bbbbb
4ddddd
6ccccc
3wwww
5rrrrrr
7fffffffff
9zzzzzzzz
can you tel me how is it possible? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
many things are possible, once the rules are well described,
but I am sorry to tell that Yours are not... |
|
Back to top |
|
|
sahil mohta
New User
Joined: 25 Jul 2008 Posts: 5 Location: pune
|
|
|
|
Here we have to copy the records of file2 in file1 but before that we have to remove first and last record of file2 and also we have to copy before the last record of file1. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1aaaaa
2bbbbb
4ddddd
6ccccc
9zzzzzzzz
1ssssss
3wwww
5rrrrrr
7fffffffff
9andnnnn
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION EQUALS
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'2',SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,1,SS,EQ,C'19'),OVERLAY=(81:1,1,82:8C'0'))
SORT FIELDS=(81,9,ZD,A)
SUM FIELDS=NONE
OUTREC BUILD=(1,80)
/*
|
|
|
Back to top |
|
|
|