Change second record based on value in the first record

anatol · Posted: Thu Aug 06, 2015 12:04 am

Is it possible?

I have file ( 80 char) with paired records by first 5 positions

INPUT:

RahulG31 · Active User Joined: 20 Dec 2014 Posts: 446 Location: USA

Do the blanks/asterisks in the second record have fixed positions ?

anatol · Posted: Thu Aug 06, 2015 12:56 am

No, the blanks position in second records not in fix position, could be in any position

Bill Woodger · Posted: Thu Aug 06, 2015 2:22 am

Use WHEN=GROUP with KEYBEGIN to PUSH the data from the first record to a temporary extension, along with a SEQ=1.

If the PUSHed SEQ=2, and PUSHed data (one position at a time) not equal to space and data on record 2 (one position at a time) equal to space, set that position to *.

You'll need 75 IFTHEN=(WHEN=(logicalexpression) with HIT=NEXT.

Is that data only 1s or 2s, or is that just your example?

RahulG31 · Active User Joined: 20 Dec 2014 Posts: 446 Location: USA

A simple thing I could think of is:
Use When=Group, Records=2 and Push the entire first record (80 bytes) to 81 - 160. Then check if position 81 has a value but position 1 have a space; Overlay the space at position 1 with '*'. In the end Build only 1:80.

You'll have to check for all the possible 80 positions. So, the sort card gets repetitive and lengthy.

I am not sure if there is an easier way since the positions of blanks/asterisks on the second record are not fixed.

anatol · Posted: Thu Aug 06, 2015 2:27 am

thank you, I will try .... the file is just sample

anatol · Posted: Thu Aug 06, 2015 5:56 am

great.. it worked ... sort is a king of a software