Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Merging file data using ICETOOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
kishpra

New User


Joined: 24 May 2010
Posts: 91
Location: Pune

PostPosted: Tue Aug 04, 2015 2:15 pm    Post subject: Merging file data using ICETOOL
Reply with quote

Hi All,

I have used ICETOOL to merge the files data.

Code:
S29TL   EXEC PGM=ICETOOL,COND=(8,LE)
TOOLMSG   DD  SYSOUT=*
DFSMSG    DD  SYSOUT=*

IN1       DD  DSN=WLB.TEST.EJR.AIH.OUTPUT.O3,DISP=SHR
IN2       DD  DSN=WLB.TEST.ACQ.AIH.OUTPUT.O3,DISP=SHR
IN3       DD  DSN=WLB.TEST.SAC.AIH.OUTPUT.O3,DISP=SHR
OUT       DD  DSN=WLB.TEST.OUTPUT,DISP=(MOD,CATLG,DELETE),

TOOLIN    DD  *
COPY FROM(IN1) TO(OUT) USING(CTL1)
COPY FROM(IN2) TO(OUT) USING(CTL1)
COPY FROM(IN3) TO(OUT) USING(CTL1)

CTL1CNTL  DD  *
OPTION COPY
/*



The output file has the below data with HEX ON:

Code:
wase.20150802.dat|20110802|3596808
AA888A84FFFFFFFF488A4FFFFFFFF4FFFFFFF4
3633125B20150802B413F20150802F35968080
--------------------------------------
watt.20150802.dat|20110802|2903    ,
A8A8AA4FFFFFFFF488A4FFFFFFFF4FFFF44440
346133B20150802B413F20150802F290300000
--------------------------------------
wsac.20150802.dat|20110802|5898213
AA88A884FFFFFFFF488A4FFFFFFFF4FFFFFFF4
3633213B20150802B413F20150802F58982130


The second row has the pipe delimiter which is one space to the left as compared to first and third record. So the second record is getting some hex '00' value at last.

Please elt me know how to squeeze the data or to have X(40) in the second record at last.

Thank you.

Code'd
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Tue Aug 04, 2015 3:21 pm    Post subject: Reply to: Merging file data using ICETOOL
Reply with quote

In a SORT/ICETOOL context, MERGE has a specific meaning, and it is not what you think it is.

You want to concatenate your data. You have chosen a strange way. A simple SORT with a COPY operation will do you, with the three datasets concatenated on the SORTIN DD... if, that is, the datasets are the same RECFM (yes, they are) and LRECL (unclear).

What is the LRECL of your three input datasets and your output dataset?
Back to top
View user's profile Send private message
kishpra

New User


Joined: 24 May 2010
Posts: 91
Location: Pune

PostPosted: Tue Aug 04, 2015 3:38 pm    Post subject: Reply to: Merging file data using ICETOOL
Reply with quote

LRECL for firs and second dataset is 38 and second is 37.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Tue Aug 04, 2015 3:58 pm    Post subject: Reply to: Merging file data using ICETOOL
Reply with quote

Code:
TOOLIN    DD  *
COPY FROM(IN1) TO(OUT)
COPY FROM(IN2) TO(OUT) USING(CTL1)
COPY FROM(IN3) TO(OUT)

CTL1CNTL  DD  *
 INREC OVERLAY=(38:X)


You don't need a USING if you are doing nothing other than what the ICETOOL operator is doing.

For your short records, you need to make them longer. So you use a USING and in that USING set column 38 to blank.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us