On 2015-03-03 12:52, Ron Thomas wrote:
> This is what i have provided and  i am receving the error
> 
> WER061A  I/O ERR S23R3VBD,S020I123,91BC,D,SYSUT1  ,**- 
> OP,WRNG.LEN.RECORD,00000461000001,EXCP
> 
> //S020I123 EXEC PGM=IEBGENER
> //SYSPRINT DD SYSOUT=*
> //SYSUT2 DD DSN=PPDIT.SPEP.EI350M.EDI395W1.XXX,
> //    DISP=(NEW,CATLG,DELETE),
> //    DCB=(LRECL=2,RECFM=FB,BLKSIZE=3360),UNIT=UTST,
> //    SPACE=(CYL,(5,2),RLSE)
> //SYSUT1 DD DSN=PPDIT.SPEP.EI350M.EDI395W1.XXX2014,DISP=SHR,
> //    DCB=(LRECL=2,RECFM=FB,BLKSIZE=3380),UNIT=SYSDA
> //SYSIN DD DUMMY
>
Don't override BLKSIZE on SYSUT1.

> //*
> //S020I124 EXEC PGM=IEBGENER
> //SYSPRINT DD SYSOUT=*
> //SYSUT2 DD DSN=PPDIT.SPEP.EI350M.EDI395W1.XXY,
> //    DISP=(NEW,CATLG,DELETE),
> //    DCB=(LRECL=336,RECFM=FB,BLKSIZE=3360),UNIT=UTST,
> //    SPACE=(CYL,(5,2),RLSE)
> //SYSUT1 DD DSN=PPDIT.SPEP.EI350M.EDI395W1.XXX,DISP=SHR,
> //    DCB=(LRECL=336,DSORG=PS),UNIT=SYSDA
> //SYSIN DD DUMMY

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to