Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Change second record based on value in the first record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
anatol

Active User


Joined: 20 May 2010
Posts: 111
Location: canada

PostPosted: Thu Aug 06, 2015 12:04 am    Post subject: Change second record based on value in the first record
Reply with quote

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
View user's profile Send private message

RahulG31

Active User


Joined: 20 Dec 2014
Posts: 401
Location: USA

PostPosted: Thu Aug 06, 2015 12:49 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

Do the blanks/asterisks in the second record have fixed positions ?
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 111
Location: canada

PostPosted: Thu Aug 06, 2015 12:56 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

No, the blanks position in second records not in fix position, could be in any position
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Aug 06, 2015 2:22 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

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
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 401
Location: USA

PostPosted: Thu Aug 06, 2015 2:25 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

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
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 111
Location: canada

PostPosted: Thu Aug 06, 2015 2:27 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

thank you, I will try .... the file is just sample
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 111
Location: canada

PostPosted: Thu Aug 06, 2015 5:56 am    Post subject: Reply to: Change second record based on value in the first record
Reply with quote

great.. it worked ... sort is a king of a software
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
No new posts How to insert a value on specific pos... Poha Eater DFSORT/ICETOOL 9 Sun Oct 01, 2017 3:04 am
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us