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

Help with IF THEN and GROUP


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prynks91

New User


Joined: 20 Feb 2020
Posts: 14
Location: USA

PostPosted: Sat Feb 22, 2020 3:07 am
Reply with quote

Thanks Rohit! But I would need the 209 bytes data from the input record itself
Back to top
View user's profile Send private message
prynks91

New User


Joined: 20 Feb 2020
Posts: 14
Location: USA

PostPosted: Sat Feb 22, 2020 3:14 am
Reply with quote

Thanks Rohit! But i would like to retain the 209 bytes data from Input.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1231
Location: Bamberg, Germany

PostPosted: Sat Feb 22, 2020 5:50 pm
Reply with quote

Code:
//DATASPLT EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SORTOUT  DD SYSOUT=*                                             
//F1       DD DISP=OLD,DSN=&SYSUID..VB222                         
//F2       DD DISP=OLD,DSN=&SYSUID..VB222                         
//LESS     DD DISP=OLD,DSN=&SYSUID..VB222.LESS                     
//MORE     DD DISP=OLD,DSN=&SYSUID..VB222.MORE                     
//SYSIN    DD *                                                   
  JOINKEYS F1=F1,FIELDS=(223,10,A),TYPE=V                         
  JOINKEYS F2=F2,FIELDS=(223,10,A),TYPE=V                         
  REFORMAT FIELDS=(F2:5,218,F1:233,4)                             
  SORT FIELDS=(COPY)                                               
  OUTFIL FNAMES=(LESS),                                           
    INCLUDE=(219,4,PD,LE,+30000),                                 
    REMOVECC,FTOV,BUILD=(1,218)                                   
  OUTFIL FNAMES=(MORE),                                           
    SAVE,REMOVECC,FTOV,BUILD=(1,218)                               
/*                                                                 
//JNF1CNTL DD *                                                   
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(233:+0,PD,LENGTH=4)),           
    IFTHEN=(WHEN=GROUP,BEGIN=(5,5,CH,EQ,C'820HD'),                 
      END=(5,4,CH,EQ,C'820T'),PUSH=(223:ID=10)),                   
    IFTHEN=(WHEN=(5,3,CH,NE,C'820'),OVERLAY=(233:+1,PD,LENGTH=4)) 
  SUM FIELDS=(233,4,PD)                                           
  END                                                             
/*                                                                 
//JNF2CNTL DD *                                         
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(5,5,CH,EQ,C'820HD'), 
    END=(5,4,CH,EQ,C'820T'),PUSH=(223:ID=10))           
  END                                                   
/*
Back to top
View user's profile Send private message
prynks91

New User


Joined: 20 Feb 2020
Posts: 14
Location: USA

PostPosted: Tue Feb 25, 2020 9:11 pm
Reply with quote

Thank you Jeorge. This worked fine!
Thank you all for the suggestions!!
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 -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts Compare latest 2 rows of a table usin... DB2 1
No new posts Problem with IFTHEN=(WHEN=GROUP,BEGIN... DFSORT/ICETOOL 5
No new posts Splitting group records based on deta... DFSORT/ICETOOL 8
No new posts SORT HELP - SORT A COLUMN and GROUP B... DFSORT/ICETOOL 9
No new posts INCLUDE COND with WHEN=GROUP SYNCSORT 12
Search our Forums:

Back to Top