comma separated records



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

comma separated records

Postby whowillwait4u » Mon Feb 20, 2012 7:33 pm

Hi,

I have the following input:

123
2345
4567
,
1acd
ABCD
,
lmno
pqrs
jpoi
lkmn
,
0000


i need the following as output.

123 2345 4567,
1acd ABCD,
lmno pqrs jpoi lkmn,
0000

Could you please help in this?!
Thanks in advance.
whowillwait4u
 
Posts: 15
Joined: Fri Feb 17, 2012 2:07 pm
Has thanked: 0 time
Been thanked: 0 time

Re: comma separated records

Postby BillyBoyo » Mon Feb 20, 2012 9:04 pm

Can you please post the ICE200I message from the output of any sort step that you have run. This will determine the sort level you have.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: comma separated records

Postby skolusu » Mon Feb 20, 2012 10:07 pm

use the following DFSORT/ICETOOL JCL which will give you the desired results. I assumed the input lrecl is 80 and at the max you have 9 records per group including the ',' record.

//STEP0100 EXEC PGM=ICETOOL                                       
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN       DD *                                                   
123                                                               
2345                                                               
4567                                                               
,                                                                 
1ACD                                                               
ABCD                                                               
,                                                                 
LMNO                                                               
PQRS                                                               
JPOI                                                               
LKMN                                                               
,                                                                 
0000                                                               
//OUT      DD SYSOUT=*                                             
//TOOLIN   DD *                                                   
  SPLICE FROM(IN) TO(OUT) ON(81,8,CH) WITHANY KEEPNODUPS  -       
  WITH(06,5) WITH(11,5) WITH(16,5) WITH(21,5) WITH(26,5)  -       
  WITH(31,5) WITH(36,5) WITH(41,5) USING(CTL1)                     
//*                                                               
//CTL1CNTL DD *                                                 
  OPTION COPY                                                   
  INREC IFTHEN=(WHEN=INIT,BUILD=(90:1,5)),                       
  IFTHEN=(WHEN=GROUP,END=(90,1,CH,EQ,C','),PUSH=(81:ID=8,SEQ=1)),
  IFTHEN=(WHEN=(89,1,ZD,EQ,1),OVERLAY=(01:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,2),OVERLAY=(06:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,3),OVERLAY=(11:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,4),OVERLAY=(16:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,5),OVERLAY=(21:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,6),OVERLAY=(26:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,7),OVERLAY=(31:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,8),OVERLAY=(36:90,5)),               
  IFTHEN=(WHEN=(89,1,ZD,EQ,9),OVERLAY=(41:90,5))                 
//*   


The output from the above job is
123  2345 4567 ,     
1ACD ABCD ,           
LMNO PQRS JPOI LKMN ,
0000                 
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: comma separated records

Postby whowillwait4u » Tue Feb 21, 2012 12:27 pm

Thanks Kolusu,

It worked fine and as required. For BillyBoyo, my sort level is 5694-A01, Z/OS DFSORT V1R12.
whowillwait4u
 
Posts: 15
Joined: Fri Feb 17, 2012 2:07 pm
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post