MVSFORUMS.com

[srinivasan_srisailan]

Hi all,

My input file is basically an IMS DB unload file. It is a VB file. The first six bytes of the input
file represents the segment name. Every CHILD1 segment record has 4 digit number starting at column 20.
I want to extract only the PARENT segment record and the corresponding the CHILD1 segment record.
The other CHILD segment records are not needed. The condition for extracting is - CHILD1 segment
records with values other than 1111 and 2222 beginning at column 20.

Input file:

[srinivasan_srisailan]

A small correction in the output file. It should be as specified below:

[Phantom]

Srinivasan,

Please give us the following info.

1. Will a parent ALWAYS have 3 child segments ?
2. Is there a way to Identify a PARENT segment. Does it start with 'PARENT' or is it just an example ?
3. You said ur output is of VB type. Can there be any record with LRECL less than 20 ?

Thanks,
Phantom

[srinivasan_srisailan]

Phantom,

Here are the answers:

1. No the parent need not have 3 child segment records. For Ex: it can also be without a CHILD1 segment record.

2. Yes the PARENT segment can be identified with the word 'PARENT'.

3. The input file is a VB file. A CHILD1 segment record will always have LRECL greater than 24. But the other CHILD segment records can have LRECL < 20.

I have missed out one more condition, there can be more than one CHILD1 segment records within a PARENT segment record.

I hope the requirements are clear.

Thanks,
Srini

[kolusu]

srinivasan_srisailan,

Try to customize the solution posted by me in this thread ( 5th post from the bottom)

http://www.mvsforums.com/helpboards/viewtopic.php?t=1850

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

[Phantom]

Kolusu,

Is there a traditional way to solve this problem without using SPLICE? I could not think of any. The problem is easy to solve if the no. of child1 records does not vary.

Srinivasan,

Kolusu's solution (in the link) requires latest version of Syncsort to support SPLICE. What version of Syncsort do you have at your shop ?

Kolusu,
I could rearrange the records in this order. I dont know how to proceed further. Let me know if you get an idea (without SPLICE).

Input:

[kolusu]

phantom,

I don't think there is a way to solve this with the traditional features available in sort. If I find out a way I will let you know

Thanks

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

[srinivasan_srisailan]

Phantom,

SYNCSORT in my shop doesn't support SPLICE .

I was able to get the same output as you had obtained with SORT but couldn't proceed further. So I finally wrote a COBOL program to achieve this. Still wondering if there's a SORT solution to achieve this .

Thanks Phantom and Kolusu.