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
 

 

About copying files using IEBCOPY/IEBGENER Utility

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
jcevert

New User


Joined: 24 Nov 2005
Posts: 1
Location: Chennai

PostPosted: Thu Nov 24, 2005 12:25 pm    Post subject: About copying files using IEBCOPY/IEBGENER Utility
Reply with quote

Is it possible to copy 3 source files having record sizes 667, 48 and 55 as
3 different files having record sizes 750, 57 and 54 in 'one step' using IEBCOPY/IEBGENER utility.
Back to top
View user's profile Send private message

phil rook

New User


Joined: 25 Nov 2005
Posts: 12
Location: amsterdam

PostPosted: Fri Nov 25, 2005 11:17 pm    Post subject: Re: About copying files using IEBCOPY/IEBGENER Utility
Reply with quote

No, use IDCAMS - I think it should work.
or make a REXX
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 25

PostPosted: Sat Nov 26, 2005 8:21 pm    Post subject:
Reply with quote

jcevert,

Your requirement can be easily accomplished using a 1 Step - SORT solution. Let me know if you are interested in Sort. Also, pls let me know as to what fill character you would like to use to fill the empty space at the end of your original files.

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

New User


Joined: 13 Nov 2006
Posts: 1

PostPosted: Mon Nov 13, 2006 7:56 pm    Post subject: Coversion of 1650-byte data set to 3300-bytes
Reply with quote

I am attempting to convert the 1650-byte output (PCS.P.TP28C660.ALLVMRGE) of the below SYNCSORT step into a 3300-byte dateset to be read into my new COBOL PGM. I need to initialize bytes 1651 thru 3300 of the new 3300-byte file.

ANy help on how to effectively accomplish this would be great.

Thank you -
===========================================

//JS000035 EXEC PGM=SYNCSORT,COND=(04,LE)
//*----------------------------------------------------------
//* ABEND INSTRUCTIONS: RESTART FROM STEP JS000030
//* DESCRIPTION:-MERGE ALLVOUCHER BY CARRIER.
//*----------------------------------------------------------
//SYSIN DD DSN=PCS.PROD.CNTLCARD(TP28660B),
// DISP=SHR
//SORTIN DD DSN=PCS.P.TP28C660.ALLVSUMM,
// DISP=SHR
//SORTOUT DD DSN=PCS.P.TP28C660.ALLVMRGE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,
// VOL=(,,,99),
// DCB=(RECFM=FB,LRECL=1650,BUFNO=30)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
==========================================
//JS000040 EXEC PGM=RSCL100A
//*-------------------------------------------------------------------*
//* ABEND INSTRUCTIONS: RESTART FROM STEP JS000040 *
//* DESCRIPTION: READ MERGED FILE AND CREATE PTMP FILE(S) *
//*-------------------------------------------------------------------*
//SYSIN DD DSN=PCS.P.TP28D660.CNTLCARD,
// DISP=(SHR,DELETE,KEEP)
//*
//TP28NI01 DD DSN=PCS.P.TP28C660.ALLVMRGE, <--3300-bytes? 3300 icon_confused.gif
// DISP=(SHR,DELETE,KEEP),
// DCB=BUFNO=30
//*
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 TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm


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