I'm trying to copy a file from the IFS to a DB file. I'm getting errors on every record.
The error is CPF2973
From module . . . . . . . . : QCPIMPRT
From procedure . . . . . . : Send_type_msg
Statement . . . . . . . . . : 15
To module . . . . . . . . . : QDBCTHTWRK
To procedure . . . . . . . : start__17qdbcth_ThreadWorkFP17qdbcth_ThreadPoo
l
Statement . . . . . . . . . : 10
Message . . . . : Data from file in truncated to 20
characters.
Cause . . . . . : The maximum record length for member in
from-file in library is longer than the maximum record
length for to-file MBRPAYATU in library GARY2. Technical description . . . .
. . . . : If the from-file is a tape file with variable length records or
if multiple record formats are copied from a logical file, only the records
that are longer than 20 characters are truncated. If the to-file has a
*FCFC value on the CTLCHAR parameter for the printer file, the record length
includes one byte for a control character. If the from-file and to-file are
different file types (*SRC or *DATA), this message is sent only if the data
part of from-file records is truncated in the to-file. If
FMTOPT(*NULLFLAGS) was specified then the maximum record length of the
to-file is the sum of the to-file record length and the number of
null-capable fields in the to-file.

In the CLP I have:
CHGJOB CCSID(37)
Message . . . . : 5700 - CPYFRMIMPF
FROMSTMF('/home/Payroll/ATU_PAYROLL_DATA_FY14_372_398.txt')
TOFILE(GARY2/MBRPAYATU) MBROPT(*ADD) RCDDLM(*CRLF) STRDLM('"')
FLDDLM('|')
FROMRCD(2 *END) ERRRCDFILE(GARY2/MBRPAY1ERS) ERRRCDOPT(*ADD)
RPLNULLVAL(*FLDDFT)

I am getting no records in the error file.
I don't have any double quotes in the file past the first record.
This is one record of the input file from the IFS:
372|7/12/2013|000027857|Last Name, Brian
J|3926|00001|A3|6/22/2013|000764|SIGNAL
INSPECTOR|A|AWD|AWARD|1|1|20|20

The above is all on one line. = One record.

Does anyone have any idea why I would be getting the error?

Thank you,

Gary Kuznitz

PS: V5R3


This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].