IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Select greater of the two fields and replace another with it
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Raymond Sachs

New User


Joined: 13 Dec 2007
Posts: 45
Location: USA
PostPosted: Fri May 13, 2011 5:12 am
 Reply with quote
Dear Listers,

How do I select greater of the two date fields and replace a third field with the selected value(i.e. greater of the two date fields).

LRECL = 53. Date field 1 -> 6 to 15; Date field 2 -> 25 to 34. We use SYNCSORT 1.3.2

Code:


EDIT       TEST.INPUT                               
Command ===>                                               
=COLS> ----+----1----+----2----+----3----+----4----+----5---
****** ***************************** Top of Data ***********
000001 AAAA 2001-10-01 BBBB CC 2006-06-03 HHHHHH0001-01-01B6
000002 ADDA 2006-11-21 BBBB CC 0001-01-01 HHHHHH0001-01-01B7
****** **************************** Bottom of Data *********


Output:
Code:

EDIT       TEST.OUTPUT                             
Command ===>                                               
=COLS> ----+----1----+----2----+----3----+----4----+----5---
****** ***************************** Top of Data ***********
000001 AAAA 2001-10-01 BBBB CC 2006-06-03 HHHHHH2006-06-03C4
000002 ADDA 2006-11-21 BBBB CC 0001-01-01 HHHHHH2006-11-21B4
****** **************************** Bottom of Data *********
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore
PostPosted: Fri May 13, 2011 3:52 pm
 Reply with quote
Hi,

The below sort will work as per your requirement.

Code:

//STEP0100 EXEC PGM=SORT                               
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD *                                       
AAAA 2001-10-01 BBBB CC 2006-06-03 HHHHHH0001-01-01B6 
ADDA 2006-11-21 BBBB CC 0001-01-01 HHHHHH0001-01-01B7 
/*                                                     
//SORTOUT  DD SYSOUT=*                                 
//SYSIN    DD *                                       
  OPTION COPY                                         
  INREC IFTHEN=(WHEN=(06,10,CH,GE,25,10,CH),           
              OVERLAY=(42:06,10)),                     
        IFTHEN=(WHEN=(06,10,CH,LT,25,10,CH),           
              OVERLAY=(42:25,10))     
/*               


OUTPUT
Code:

AAAA 2001-10-01 BBBB CC 2006-06-03 HHHHHH2006-06-03B6
ADDA 2006-11-21 BBBB CC 0001-01-01 HHHHHH2006-11-21B7
Back to top
View user's profile Send private message
Raymond Sachs

New User


Joined: 13 Dec 2007
Posts: 45
Location: USA
PostPosted: Tue May 17, 2011 2:55 am
 Reply with quote
Thanks mate. It did.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Dynamically pass table name to a sele... DB2 2
No new posts replace word 'MONTH' with current mon... SYNCSORT 11
No new posts SELECT from data change table DB2 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us