View previous topic :: View next topic
|
Author |
Message |
anatol
Active User
Joined: 20 May 2010 Posts: 121 Location: canada
|
|
|
|
Is it possible?
I have file ( 80 char) with paired records by first 5 positions
INPUT:
Code: |
AP060 11111 11111 11111111
AP060 2 2 2 22 22 2
AP000 11111 11111 11111111 11111111111
AP000 2 2 2 22 22 2 22 2
|
can sort change blanks to asterisks in second record if that position in first record is not blank
OUTPUT:
Code: |
AP060 11111 11111 11111111
AP060 2*2** 2*22* *22*2***
AP000 11111 11111 11111111 11111111111
AP000 2*2** 2*22* *22*2*** **22*2*****
|
Thanks |
|
Back to top |
|
|
RahulG31
Active User
Joined: 20 Dec 2014 Posts: 446 Location: USA
|
|
|
|
Do the blanks/asterisks in the second record have fixed positions ? |
|
Back to top |
|
|
anatol
Active User
Joined: 20 May 2010 Posts: 121 Location: canada
|
|
|
|
No, the blanks position in second records not in fix position, could be in any position |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
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? |
|
Back to top |
|
|
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. |
|
Back to top |
|
|
anatol
Active User
Joined: 20 May 2010 Posts: 121 Location: canada
|
|
|
|
thank you, I will try .... the file is just sample |
|
Back to top |
|
|
anatol
Active User
Joined: 20 May 2010 Posts: 121 Location: canada
|
|
|
|
great.. it worked ... sort is a king of a software |
|
Back to top |
|
|
|