IBM Mainframe Forum

by **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.

by **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.

by **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.

Select all

//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

Select all

123 2345 4567 ,
1ACD ABCD ,
LMNO PQRS JPOI LKMN ,
0000

by **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.

IBM Mainframe Forum

comma separated records

comma separated records

Re: comma separated records

Re: comma separated records

Re: comma separated records