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 getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts WER247A incompatible lrecl Danielle.Filteau SYNCSORT 8 Tue May 02, 2017 4:04 am
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am


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