Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Copy three files of different LRECL's

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Sagar_mainframe

New User


Joined: 07 Jun 2008
Posts: 34
Location: Harrisburg, Pennsylvania

PostPosted: Thu Dec 23, 2010 12:31 am    Post subject: Copy three files of different LRECL's
Reply with quote

I have File 1 with LRECL = 80 ,
File 2 with LRECL = 05 ,
File 3 with LRECL = 80


I tried following code :
Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=INPUT.FILE1 /*LRECL OF 80 & has 2 records
//IN2 DD DISP=SHR,DSN=INPUT.FILE2 /*LRECL OF 05 & has 1 record
//IN2 DD DISP=SHR,DSN=INPUT.FILE3 /*LRECL OF 80 & has 4 records
//OUT DD DSN=NEW.FILE,DISP=(MOD,DELETE),...
//TOOLIN DD *
COPY FROM(IN1) TO(OUT)
COPY FROM(IN2) TO(OUT) USING(CTL1)
COPY FROM(IN3) TO(OUT)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(80:X)
/*


But the above code is giving only 4 records from File 3 in the OUT file.

Could you please suggest some modifications in the above code?

Thanks,
Back to top
View user's profile Send private message

Sagar_mainframe

New User


Joined: 07 Jun 2008
Posts: 34
Location: Harrisburg, Pennsylvania

PostPosted: Thu Dec 23, 2010 12:35 am    Post subject:
Reply with quote

Sorry ..I used
Code:
//CTL1CNTL DD *
  INREC OVERLAY=(80:X)
in the above code
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Dec 23, 2010 12:53 am    Post subject:
Reply with quote

Hello,

Why is IN2 repeated with a different dsn?

I don't understand how the job created the output you describe.

It may help if you post the informational messages generated by the run.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Dec 23, 2010 1:16 am    Post subject:
Reply with quote

Follow on:

Might the output contain the 2 records of file 1 and the one record of file 2 times - for a total of 4 records in the output?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu Dec 23, 2010 2:33 am    Post subject:
Reply with quote

Sagar,

Show the complete JES log for your run.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us