Hi,
I've coded this
//STEP0150 EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSNAME=V001.AUSZ.DEPOT,
// DISP=SHR
//SYSUT2 DD DSNAME=V002.AUSZ.DEPOT,
// DISP=SHR
//SYSIN DD *
COMPARE TYPORG=PO
/*
and got this Errormessage
STEP0150,5101,D,SYSUT1 ,READ ,WRNG.LEN.RECORD,0000381C000100,BSAM
Both member are defined like this
DSN=V001.AUSZ.DEPOT,
DISP=(NEW,CATLG,DELETE),
DCB=(PDCB,RECFM=FB,LRECL=500),
SPACE=(500,(600,50),RLSE),AVGREC=K
What can I do better ?
Thanks
Michael
//SUPERC EXEC PGM=IKJEFT1B
//SYSTSPRT DD SYSOUT=*
//OLDDD DD DISP=SHR,DSN=XX.TEST.LIB1
//NEWDD DD DISP=SHR,DSN=XX.TEST.LIB2
//OUTDD DD SYSOUT=*
//SYSTSIN DD *
ISRSUPC COVSUM NARROW ALLMEMS
//SYSIN DD *
CMPCOLM 1:100