Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Whether the follwing can be performed in SYNCSORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
vickey_tcs

New User


Joined: 14 Mar 2009
Posts: 5
Location: At Desk

PostPosted: Mon Mar 16, 2009 4:11 pm    Post subject: Whether the follwing can be performed in SYNCSORT
Reply with quote

Hi,

I want to know whether the follwing can be performed in SYNCSORT:

My input:

01352,Dalmer 08475 ,53041181AA ,SO9843500
, ,53041189AA ,SO9883300
, ,53041190AA ,SO9883500
, ,53041405AC ,SO9843700
, ,53041408AC ,SO9843900

My output should look like:
01352,Dalmer 08475 ,53041181AA ,SO9843500
01352,Dalmer 08475 ,53041189AA ,SO9883300
01352,Dalmer 08475 ,53041190AA ,SO9883500
01352,Dalmer 08475 ,53041405AC ,SO9843700
01352,Dalmer 08475 ,53041408AC ,SO9843900
Back to top
View user's profile Send private message

Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 500
Location: USA

PostPosted: Tue Mar 17, 2009 10:38 pm    Post subject:
Reply with quote

Vickey,

This can also be accomplished in a single step using SyncSort for z/OS 1.3.2:
Code:

//STEP1  EXEC PGM=SORT                                 
//SYSOUT   DD SYSOUT=*                             
//SORTIN   DD *                                     
01352,DALMER 08475 ,53041181AA ,SO9843500           
, ,53041189AA ,SO9883300                           
, ,53041190AA ,SO9883500                           
, ,53041405AC ,SO9843700                           
, ,53041408AC ,SO9843900                           
//SORTOUT  DD SYSOUT=*                             
//SYSIN    DD *                                     
  INREC IFTHEN=(WHEN=(1,1,CH,EQ,C','),BUILD=(20X,4,21)) 
  SORT FIELDS=COPY                         
  OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'0'),PUSH=(1:1,20))     
/*                       
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us