IBM Mainframe Forum

by **ottoelflaco** » Tue Mar 31, 2015 1:41 pm

I would like to combine the records with the same key (1,5), so my out must be:
AAAAA123
BBBBB12
CCCCC21

This is my step:

Select all

//ICETOO EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SHOWDEF DD SYSOUT=*
//IN DD *
AAAAA1
AAAAA2
AAAAA3
BBBBB1
BBBBB2
CCCCC2
CCCCC1
//T1 DD DSN=DES.DESBCJ.ICETOO.TEMP,
// DISP=(MOD,CATLG,DELETE),
// SPACE=(TRK,(100,50),RLSE)
//OUT DD DISP=(,CATLG),SPACE=(TRK,(100,50),RLSE),
// DSN=DES.DESBCJ.ICETOO.FINAL
//TOOLIN DD *
SORT FROM(IN) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,5,CH) WITHEACH -
WITH(6,1) WITH(7,1) WITH(8,1)
/*
//CTL2CNTL DD *
OPTION EQUALS
SORT FIELDS=(1,5,CH,A)
OUTREC IFOUTLEN=8,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,2,ZD,RESTART=(1,5))),
IFTHEN=(WHEN=(81,2,ZD,EQ,+1),BUILD=(1,5,6:6,1)),
IFTHEN=(WHEN=(81,2,ZD,EQ,+2),BUILD=(1,5,7:6,1)),
IFTHEN=(WHEN=(81,2,ZD,EQ,+3),BUILD=(1,5,8:6,1))
//

But this step doesn´t work for me, this is the out I get:

Select all

AAAAA
BBBBB
CCCCC

And this is the content of T1:

Select all

AAAAA1
AAAAA 2
AAAAA 3
BBBBB1
BBBBB 2
CCCCC2
CCCCC 1

T1 is ok for the splice, why splice doesn´t give me the out I need

sorry i m spanish and my english is poor...

thanks like always!!

by **BillyBoyo** » Tue Mar 31, 2015 2:47 pm

From the DFSORT Application Programming Guide:

WITHEACH
Specifies that the first duplicate is spliced with one specified field from each subsequent duplicate. One WITH field (nonblank or blank) from each overlay
record is overlaid on to the base record. The first WITH field specifies the bytes to be overlaid from the second duplicate record on to the first duplicate record. The second WITH field specifies the bytes to be overlaid from the third duplicate record on to the first duplicate record, and so on.

Try removing the WITH(6,1), or look at using WITHANY.

by **ottoelflaco** » Tue Mar 31, 2015 3:01 pm

BillyBoyo wrote:From the DFSORT Application Programming Guide:

WITHEACH
Specifies that the first duplicate is spliced with one specified field from each subsequent duplicate. One WITH field (nonblank or blank) from each overlay
record is overlaid on to the base record. The first WITH field specifies the bytes to be overlaid from the second duplicate record on to the first duplicate record. The second WITH field specifies the bytes to be overlaid from the third duplicate record on to the first duplicate record, and so on.

Try removing the WITH(6,1), or look at using WITHANY.

Thank you very much, BillyBoyo!

This!

by **ottoelflaco** » Tue Mar 31, 2015 3:15 pm

now I have other problem is, if I have IN=
AAAAA1
AAAAA2
AAAAA3
BBBBB1
BBBBB2
CCCCC2
CCCCC1
DDDDD1

DDDDD1 is not printed in out file...
_---
EDIT. KEEPNODUPS was neccesary

Select all

SPLICE FROM(T1) TO(OUT) ON(1,5,CH) WITHEACH KEEPNODUPS -
WITH(7,1) WITH(8,1)

Thank you again!.

IBM Mainframe Forum

problem with splice (icetool)

problem with splice (icetool)

Re: problem with splice (icetool)

Re: problem with splice (icetool)

Re: problem with splice (icetool)