MVSFORUMS.com A Community of and for MVS Professionals
View previous topic :: View next topic
Author
Message
eureka19 Beginner Joined: 02 Oct 2005 Posts: 20 Topics: 9
Posted: Fri Nov 25, 2005 1:05 am Post subject: Help needed in ICETOOL SPLICE operator
Hi,
I have my input files as below:
Code:
//IN1 DD *
123 AAAAAA
234 BBBBBBBB
345 CC
/*
//IN2 DD *
123 JJJJJJJJJJJJ RRRRRRRR
123 BBBBBBBB GGGGG
123 CC KKKKKKKKKK
234 JJJJJJJJJJJ RRRRRRRR
234 BBBBBBBB GGGGG
My Desired Output is
Code:
123 AAAAAA JJJJJJJJJJJJ RRRRRRRR
123 AAAAAA BBBBBBBB GGGGG
123 AAAAAA CC KKKKKKKK
234 BBBBBB JJJJJJJJJJJJ RRRRRRRR
234 BBBBBB BBBBBBBB GGGGGGG
But i am getting
Code:
123 JJJJJJJJJJJJ RRRRRRRR
123 BBBBBBBB GGGGG
123 CC KKKKKKKKKK
234 JJJJJJJJJJJ RRRRRRRR
234 BBBBBBBB GGGGG
I am not able to get my desired output thru splice. The code is given Below
Code: //DFSORT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
123 AAAAAA
234 BBBBBBBB
345 CC
/*
//IN2 DD *
123 JJJJJJJJJJJJ RRRRRRRR
123 BBBBBBBB GGGGG
123 CC KKKKKKKKKK
234 JJJJJJJJJJJ RRRRRRRR
234 BBBBBBBB GGGGG
/*
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(1,1)),UNIT=SYSDA
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(TMP1) USING(CPY1)
COPY FROM(IN2) TO(TMP1) USING(CPY2)
SPLICE FROM(TMP1) TO(OUT) ON(1,03,CH) WITH(10,30) WITHALL
/*
//CPY1CNTL DD *
OUTREC FIELDS=(1:1,40)
/*
//CPY2CNTL DD *
OUTREC FIELDS=(1:1,40)
/*
Back to top
Alain Benveniste Beginner Joined: 04 May 2003 Posts: 92 Topics: 4 Location: Paris, France
Posted: Fri Nov 25, 2005 10:09 am Post subject:
I have corrected your jcl to your need
Code:
//DFSORT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
123 AAAAAA
234 BBBBBBBB
345 CC
/*
//IN2 DD *
123 JJJJJJJJJJJJ RRRRRRRR
123 BBBBBBBB GGGGG
123 CC KKKKKKKKKK
234 JJJJJJJJJJJ RRRRRRRR
234 BBBBBBBB GGGGG
/*
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(1,1)),UNIT=SYSDA
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(TMP1) USING(CPY1)
COPY FROM(IN2) TO(TMP1) USING(CPY2)
SPLICE FROM(TMP1) TO(OUT) ON(1,03,CH) WITH(20,40) WITHALL
/*
//CPY1CNTL DD *
OUTREC FIELDS=(1:1,40,80:X)
/*
//CPY2CNTL DD *
OUTREC FIELDS=(1,3,20:10,40,80:X)
/*
Alain
Back to top
eureka19 Beginner Joined: 02 Oct 2005 Posts: 20 Topics: 9
Posted: Mon Nov 28, 2005 1:27 am Post subject:
Thanks Alain.
It worked fine.
Regards,
Eureka.
Back to top
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum