I have a CL doing a cpyfrmimpf and I want to output to an error file, when I test I am going message Field Definition or Error file ICRLESTER in MYLIB not allowed. Originally I had the error file as an sql table but found some online info that said it should be multi member dds file, not sure why the error message?
The error file is dds file with multiple members
R ICREERR
SRCSEQ 6S 2 TEXT('SEQUENCE NBR')
SRCDAT 6S 0 TEXT('SEQUENCE DATE')
SRCDTA 500 TEXT('DATA')
and the CL command
DCL VAR(&ERRFILE) TYPE(*CHAR) LEN(9) +
VALUE('ICRLESTER')
CLRPFM FILE(ICRLESTER)
CPYFRMIMPF FROMSTMF(&UPFILE) TOFILE(ICRECOMP) +
MBROPT(*REPLACE) RCDDLM(*CRLF) +
STRDLM(*NONE) STRESCCHR(*NONE) FROMRCD(3) +
ERRRCDFILE(&ERRFILE) ERRRCDOPT(*REPLACE) +
RPLNULLVAL(*FLDDFT) IDCOL(*FROMFLD)
The error file is dds file with multiple members
R ICREERR
SRCSEQ 6S 2 TEXT('SEQUENCE NBR')
SRCDAT 6S 0 TEXT('SEQUENCE DATE')
SRCDTA 500 TEXT('DATA')
and the CL command
DCL VAR(&ERRFILE) TYPE(*CHAR) LEN(9) +
VALUE('ICRLESTER')
CLRPFM FILE(ICRLESTER)
CPYFRMIMPF FROMSTMF(&UPFILE) TOFILE(ICRECOMP) +
MBROPT(*REPLACE) RCDDLM(*CRLF) +
STRDLM(*NONE) STRESCCHR(*NONE) FROMRCD(3) +
ERRRCDFILE(&ERRFILE) ERRRCDOPT(*REPLACE) +
RPLNULLVAL(*FLDDFT) IDCOL(*FROMFLD)
Comment