Re: QUSRSYS/QATOCHOST file IPINTGER filed error

When I read the file QUSRSYS/QATOCHOST in a CLP I get an error on the
field IPINTGER. I'm not accessing this field. How do I define the file so
it does not throw the error. Or do I just MONMSG CPF0863 right after the
RCVF? Not very pretty.

DCLF FILE(QUSRSYS/QATOCHOST)
RCVF

Message ID . . . . . . : CPF0863
Date sent . . . . . . : 03/15/11 Time sent . . . . . . :
10:17:22

Message . . . . : Value of binary data too large for decimal CL variable.

Cause . . . . . : A binary field in the record has a value that is too
large
for the control language (CL) decimal variable declared for that field. A
CL
decimal variable of the length and decimal precision specified in the data
description specification (DDS) for the file is declared for binary
fields.
Recovery . . . : Correct the data in the file that is not valid or, if
the
file is a data base file, use a logical view of the file that omits the
field that is not valid.
















This e-mail and any files transmitted with it may be proprietary and are
intended solely for the use of the individual or entity to whom they are
addressed. If you have received this e-mail in error please notify the
sender.
Please note that any views or opinions presented in this e-mail are solely
those of the author and do not necessarily represent those of ITT
Corporation. The recipient should check this e-mail and any attachments for
the presence of viruses. ITT accepts no liability for any damage caused by
any virus transmitted by this e-mail.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.