MVSFORUMS.com

[Rahull]

Hi,

Could you please suggest me how to use SPLICE in below situation.

File 1
Account Policy Cleint name Adderss Amount 1

File 2
Account Policy Amount 2

Output file
Account Policy Sum(Amount1+2) Client name Address

File 1 and File 2 are table unload and I am getting Amount 1 and 2 using SUM function.

Thanks
Rahul

P.S: I can align the column position for Amount field

[kolusu]

Rahull,

Why do you need SPLICE here? All you need is make the files of the same length and sort on the ACCOUNT POLICY and sum on the amounts.

Please post the File layouts and DCB properties of both files , so that we can suggest a solution

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[Rahull]

Hi Kolusu,

Thanks for the quick reply. I thought of SPLICE because I need to have final single record with account , policy , sum and all other fields( Which is different in both the unload)

I was thinking of using ON operation of SPLICE on account and policy and WITH to get other stuff. But if the SORT is quick and consume less I/O overhead, I am good.


Rec length of file1 : 80 (FB) (Account(10), Policy(20), SUM1, Client Name(20))
Rec length of file2 = 80 (FB) (Account(10), Policy(20), Sum2, Client Address(20))
Rec length of output = 80 (FB) (Account , policy, SUM(1+2), client name, client address)

SUM is a scaler function and during unload its taking 9 bytes with C and D for signs.

Thanks
Rahul

[kolusu]

Rahull,

In your first post you said that file1 has both the client name and address and now you Changed the client address to be on file2?

You also haven't provided the format of the fields. Just provide the cobol layout for the files.

ex:

[Rahull]

Hi Kolusu,

Sorry for the misunderstanding.

Whatever I posted in my last post is the final layout for each file. Also please find the layout of Files :

File 1 :
Account Pic X(10).
Policy Pic X(20).
Sum Pic S9(16) COMP-3.
Name Pic X(20).
Filler Pic X (21)

File 2 :
Account Pic X(10).
Policy Pic X(20).
Sum Pic S9(16) COMP-3.
Address Pic X(20).
Filler Pic X (21)

File 3 :
Account Pic X(10).
Policy Pic X(20).
Sum Pic S9(16) COMP-3.
Name Pic X(20)
Address Pic X(20).
Filler Pic X (1)

Since everything I am talking about is unload from table, I didn't mentioned the cobol layout earlier. My input to my program would be File3.

One additional requirement I got just now is that in File 3 dont include the records when the Sum is greater then or equal to Zero. Can we include this condition in a single sort step.

Let me know if you need more information.

[kolusu]

The following DFSORT/ICETOOL Jcl will give you the desired results. If your shop has syncsort then change the pgm name to synctool.