RE: Error Message -- RPG400-L

Dear Ping,

As the message says it is a decimal data error,  I guess you might be
accessing a display file field value accidentally with out being initialized
(even though you bypassed display file). You can get a very clear picture by
going through ISDB and put a break point at 4900 statement where it actually
bombs.

Hope this will solve your purpose atleast to identify which numeric field is
having a junk value.

Thanks
Venu

> -----Original Message-----
> From: Ren Fu Ping [SMTP:fupingren@yeah.net]
> Sent: Monday, April 15, 2002 5:53 PM
> To:   rpg400-l@midrange.com
> Subject:      Error Message
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
>  Message ID . . . . . . :   RPG0907
>
>  Date sent  . . . . . . :   02/04/15      Time sent  . . . . . . :
> 20:11:15
>
>
>
>  Message . . . . :   INVX01B 4900 decimal-data error in field (C G S D F).
>
>
>
>  Cause . . . . . :   The RPG program INVX01B in library DERFP found a
>
>    decimal-data error at statement 4900. One field did not contain valid
>
>    numeric data.  The digit and/or sign is not valid.
>
>  Recovery  . . . :   Enter C to cancel, G to continue processing at
> *GETIN, S
>
>    to obtain a system dump, or D to obtain an RPG formatted dump.
>
>  Possible choices for replying to message . . . . . . . . . . . . . . . :
>
>    D -- Obtain RPG formatted dump.
>
>    S -- Obtain system dump.
>
>    G -- Continue processing at *GETIN.
>
>    C -- Cancel.
>
>
> More..
>
>
>
> Dear Guys,
>
>           I have a program mentioned before here.   I use two RPG programm
> and one CLP programm to control interactive job or batch job. one RPG to
> check display file, Then call CL programm; and CL programm is receive
> parameter from the first RPG programm, then pass this parameter to the
> second RPG programm, certainly, if the special parameter is '1', I will
> submit this job to batch, otherwise for interactive.  Problem is I run
> this programm through interactive job is very good, but run in batch will
> display error message on the above paster. Why?
>
>
>
> thanks a lot.
>
> Ping
>
>
>
>
>
>
>
>
>
> --
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
DISCLAIMER: Information contained and transmitted by this E-MAIL is
proprietary to MASCOT SYSTEMS LTD and is intended for use only by the
individual or entity to which it is addressed, and may contain information
that is privileged, confidential or exempt from disclosure under applicable
law. If this is a forwarded message, the content of this E-MAIL may not have
been sent with the authority of the Company. If you are not the intended
recipient, an agent of the intended recipient or a person responsible for
delivering the information to the named recipient, you are notified that any
use, distribution, transmission, printing, copying or dissemination of this
information in any way or in any manner is strictly prohibited. If you have
received this communication in error, please delete this mail & notify us
immediately at Mailadmin@mascotsystems.com Before opening attachments,
"Please scan for Viruses"