Re: QUSRSYS/QATOCHOST file IPINTGER filed error

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Doug, one option is spelled out in the message: create your own logical 
view over the QATOCHOST file.

Joe

>   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.