MVSFORUMS.com :: View topic - Help needed in ICETOOL SPLICE operator

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Help needed in ICETOOL SPLICE operator

MVSFORUMS.com Forum Index -> Utilities

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

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

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.

Display posts from previous:

	MVSFORUMS.com Forum Index -> Utilities	All times are GMT - 5 Hours
Page 1 of 1

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