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 multiple file into one file

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

New User


Joined: 11 Jun 2007
Posts: 50
Location: Euro

PostPosted: Wed Jan 18, 2012 8:29 pm    Post subject: Copy multiple file into one file
Reply with quote

Hi,

I would like to copy the content of 6 files(FB) , with different LRECL into a single file (FB) , is it possible in one sort step.

thanks
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Wed Jan 18, 2012 9:19 pm    Post subject:
Reply with quote

Yes assuming 300 is the longest length 80 is the least you need to concatenate file with 300 lrecl followed by 80

Guess There are some post's discussed already
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Jan 18, 2012 11:11 pm    Post subject: Reply to: Copy multiple file into one file
Reply with quote

knickraj,

You canNOT concatenate different lrecl FB files. You need to process each one at a time. You can use a single ICETOOL step with DISP=MOD on the output dataset and copy all the files with a COPY operator.


premkrishnan wrote:
Yes assuming 300 is the longest length 80 is the least you need to concatenate file with 300 lrecl followed by 80

Guess There are some post's discussed already


Did you read Op's Post clearly ? He mentioned his input files all RECFM=FB files. AFAIK none of the sort products support the concatenation of different LRECL FB files.
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: Wed Jan 18, 2012 11:17 pm    Post subject:
Reply with quote

Knickraj,

Here's an example of using ICETOOL to copy five FB input files with various LRECLs to a MOD output file with FB/200 (-> 200 is the largest input LRECL).

Code:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=...  input file1 (FB/100)
//IN2 DD DSN=...  input file2 (FB/80)
//IN3 DD DSN=...  input file3 (FB/200)
//IN4 DD DSN=...  input file4 (FB/150)
//IN5 DD DSN=...  input file5 (FB/60)
//OUT DD DISP=MOD,DSN=...   MOD output file (FB/200)
//TOOLIN DD *
 COPY FROM(IN1) TO(OUT) USING(CTL1)
 COPY FROM(IN2) TO(OUT) USING(CTL1)
 COPY FROM(IN3) TO(OUT)
 COPY FROM(IN4) TO(OUT) USING(CTL1)
 COPY FROM(IN5) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(200:X)
/*
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Wed Jan 18, 2012 11:52 pm    Post subject:
Reply with quote

Thanks for correcting me Kolusu!

Apologies!
Back to top
View user's profile Send private message
knickraj
Warnings : 1

New User


Joined: 11 Jun 2007
Posts: 50
Location: Euro

PostPosted: Thu Jan 19, 2012 3:17 pm    Post subject:
Reply with quote

Thanks for your help it works.
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 Compare yesterday's date to the one o... migusd SYNCSORT 7 Fri Sep 22, 2017 11:35 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
No new posts PLI - printing from multiple programs Pedro PL/I & Assembler 8 Fri Sep 08, 2017 6:36 am

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