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
 
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 Comparing two sequential files Mohan Kothakota COBOL Programming 14 Mon Apr 16, 2018 6:35 pm
No new posts SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am
No new posts Getting information (RECFM/LRECL/BLKS... Tim Van Holder COBOL Programming 3 Wed Mar 14, 2018 2:10 pm
No new posts Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am
No new posts How to build one file from two input ... daniele DFSORT/ICETOOL 5 Tue Feb 27, 2018 6:45 pm

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