Re: QUSRSYS/QATOCHOST file IPINTGER filed error -- MIDRANGE-L

Doug,

Excuse for asking but, what release is your program at?

I wrote a small CL test program (V5R3). First, I tried running it
with QUSRSYS/QATOCHOST and, sure enough, got a CPF0863 error. After that, I
ran it using QUSRSYS/QATOCLHST2 and it ran OK. And, yes, I know that the
file desc seems to be the same for both...

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--

On Tue, Mar 15, 2011 at 10:50 AM, Hart, Doug - EI <Doug.Hart@xxxxxxx> wrote:

I looked at the 2 LFs already existing over this PF and both have the
field IPINTEGER defined.
Since this is a once a month task and the PF is so small I'm just going to
copy it into QTEMP with *MAP *DROP and hit the temp file. I only need the
1st 2 fields. I was just looking for a more elegant way to deal with the
troublesome field. I had not ever run into this problem before reading a DB
file from a CLP.

--
All data center service requests MUST now go through Remedy.
Please click [ HERE ] for the Remedy Action Request System.
Remember, I can't provide a precise answer to a vague question.
--

Douglas Hart - Principal Consultant

Level 3 - IBM Power i (AS/400) Tech. Support
ITT Corporation - Infrastructure Services (IS)
Americas East Data Center - Seneca Falls, NY
Voice: 315-568-7568 Doug.Hart@xxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:
midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Joe Pluta
Sent: Tuesday, March 15, 2011 10:55 AM
To: Midrange Systems Technical Discussion
Subject: Re: QUSRSYS/QATOCHOST file IPINTGER filed error

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.

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

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.