MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Help needed in ICETOOL SPLICE operator

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
eureka19
Beginner


Joined: 02 Oct 2005
Posts: 20
Topics: 9

PostPosted: Fri Nov 25, 2005 1:05 am    Post subject: Help needed in ICETOOL SPLICE operator Reply with quote

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
View user's profile Send private message
Alain Benveniste
Beginner


Joined: 04 May 2003
Posts: 92
Topics: 4
Location: Paris, France

PostPosted: Fri Nov 25, 2005 10:09 am    Post subject: Reply with quote

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
View user's profile Send private message
eureka19
Beginner


Joined: 02 Oct 2005
Posts: 20
Topics: 9

PostPosted: Mon Nov 28, 2005 1:27 am    Post subject: Reply with quote

Thanks Alain.
It worked fine.

Regards,
Eureka.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
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


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group