Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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: 92
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: 7312

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: 92
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: 7312

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 How to place name of the file where t... danielgp89 DFSORT/ICETOOL 5 Thu Oct 17, 2019 12:55 am
No new posts Need help in parsing record in VBA file guptae DFSORT/ICETOOL 4 Fri Oct 11, 2019 2:31 pm
No new posts What 'EF' in the CAFC command REGION,... vrkratheesh CICS 2 Wed Sep 18, 2019 4:52 pm
No new posts How to force ISPF to allocate ISPF te... Michele Giannuli TSO/ISPF 9 Thu Sep 12, 2019 2:03 pm
No new posts Need to fetch data from database base... Satandale COBOL Programming 8 Sun Sep 08, 2019 12:01 am

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