MVSFORUMS.com

deepeshk79 · Posted: Thu Jul 17, 2003 3:10 am Post subject: Merge laterally two files

Hi all,

I have two files like this

File1 , LRECL =10

AAAA......
BBBB......

File 2, LRECL=10

1234......
5678......

I need to have an o/p file like this

File 3, LRECL=20

AAAA......1234......
BBBB......5678......

the binary zeroes (ie dots) need to be there in the o/p file.

For this i have wrote a code like this...

Cogito-Ergo-Sum · Posted: Thu Jul 17, 2003 4:05 am Post subject:

Deepesh,

I have a question. What if the number of records are not same in the files?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

deepeshk79 · Posted: Thu Jul 17, 2003 4:53 am Post subject:

Cogito,

I coded the DCB parameter after i got an error earlier. Now if i remove the DCB parameter and then submit i get the following error...

IN2 : RECFM=FBA ; LRECL= 10; BLKSIZE= 10
OUTREC HAS OVERLAPPING COLUMNS SPECIFIED
SYNCSMF CALLED BY SYNCSORT; RC=0000

Sad

Cogito-Ergo-Sum · Posted: Thu Jul 17, 2003 5:18 am Post subject:

Deepesh,

The overlapping is obvious here. In CTL2CNTL, you are asking for, 10 binary zeroes at first, then first 10 columns from the input file. The number of bytes used are 20. Then, you are asking for sequence numbers from the 20th column itself.

So, modify your CTL1 and CTL2 so that, Sequence numbers start at 21st column. From the first file, there will be 10 bytes of data, 10 binary zeroes and 8 PD sequence numbers. (Total 28 and not 27). From the second file, there will be 10 binary zeroes, 10 bytes of data and 8 PD sequence numbers. (Total 28 and not 27).

You still have not answered my query in my first post.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Thu Jul 17, 2003 5:38 am Post subject:

deepeshk79,

There are a couple of errors in your job.let me clarify as to how you can merge two files together

we copy the first file to a temp file with follwing layout

1 to 10 bytes - we have contents from IN1 as is

10 to 20 bytes - we need to pad with binary zeroes for the second file contents

21 - you can have a seqnum

for the second file you need to copy to temp file with the following layout

1 to 10 bytes - we need to pad with binary zeroes

10 to 20 bytes - we copy contents of IN2 as is

21 - you can have a seqnum

now you concatenate these files together and sort on the seqnum while summing the bytes 11 thru 20

so change your ctl1cntl to the following

deepeshk79 · Posted: Mon Jul 21, 2003 1:17 am Post subject:

Thanks kolusu,

It worked!!!.

Bye,
Deepesh