About copying files using IEBCOPY/IEBGENER Utility

jcevert · New User Joined: 24 Nov 2005 Posts: 1 Location: Chennai

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.

phil rook · New User Joined: 25 Nov 2005 Posts: 12 Location: amsterdam

No, use IDCAMS - I think it should work.
or make a REXX

Phantom · New User Joined: 04 Sep 2005 Posts: 25

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

youngmychal · New User Joined: 13 Nov 2006 Posts: 1

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

// DISP=(SHR,DELETE,KEEP),
// DCB=BUFNO=30
//*