IEBGENER if the RECFM/BLKSIZE does not match
Posted: Thu Jul 31, 2008 5:21 pm
Dear all,
Is there another utility that I can use other than the IEBGENER that will execute, regardless if the record format or blocksizes that does not match? A normal IEBGENER will fail if the RECFM/BLKSIZE does not match. I have included an example of two input files with different LRECL's and BLKSIZES
Regards,
Martin
Is there another utility that I can use other than the IEBGENER that will execute, regardless if the record format or blocksizes that does not match? A normal IEBGENER will fail if the RECFM/BLKSIZE does not match. I have included an example of two input files with different LRECL's and BLKSIZES
//*********************************************************************
//*
//*********************************************************************
//STEP1 EXEC PGM=IEBGENER
//*********************************************************************
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=SPLNS.TLIVE.PLD606.JAN03,DISP=SHR
// DD DSN=PSAVE.DLIVE.PLD606.JAN03,DISP=SHR
//*
//SYSUT2 DD DSN=SPLNS.TLIVE.PLD606.CMP025.JAN03A,
// DISP=(NEW,CATLG,DELETE),
// LRECL=177,RECFM=FB,
// SPACE=(TRK,(50,10),RLSE)
//*
//SYSIN DD DUMMY
//*
//SYS1 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
//SYS2 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
//SYS3 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
//*
//*********************************************************************
//STEP1 EXEC PGM=IEBGENER
//*********************************************************************
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=SPLNS.TLIVE.PLD606.JAN03,DISP=SHR
// DD DSN=PSAVE.DLIVE.PLD606.JAN03,DISP=SHR
//*
//SYSUT2 DD DSN=SPLNS.TLIVE.PLD606.CMP025.JAN03A,
// DISP=(NEW,CATLG,DELETE),
// LRECL=177,RECFM=FB,
// SPACE=(TRK,(50,10),RLSE)
//*
//SYSIN DD DUMMY
//*
//SYS1 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
//SYS2 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
//SYS3 DD UNIT=SYSDA,SPACE=(TRK,(300,30))
Regards,
Martin