Re: Invalid decimal data

["Richard ECUYER" <recuyer@xxxxxxx>]

For numeric (or date ...) field, i use monitor now.

Monitor ;
    Numfield = %int(alphafield) ;
On-error ;
    Clear numfield ;
End-monitor;

Take a look at the doc to have more details.
here for V5R3 :
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp

----- Original Message ----- 
From: "Richard ECUYER" <recuyer@xxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Monday, June 19, 2006 5:22 PM
Subject: Re: Invalid decimal data


> Yep, like this :
>
> h fixnbr(*zoned:*INPUTPACKED)
>
> note the : after the first parm.
> ----- Original Message ----- 
> From: "Guy Henza" <guyhenza@xxxxxxxxxxx>
> To: <midrange-l@xxxxxxxxxxxx>
> Sent: Monday, June 19, 2006 5:16 PM
> Subject: RE: Invalid decimal data
>
>
> > I have a program that is bringing in the LDA (partially externally
> described
> > partially program described).
> >
> > ** Fetch external description of LDA
> > D LDA           E DS                  EXTNAME(LDA)
> > ** PROGRAM STATUS DATA STRUCTURE
> > D    LDU#IDAT           198    204  0
> > D    LDU#EDAT           205    210  0
> > C     *DTAARA       Define    *LDA          LDA
> > C                   In        LDA
> >
> > I've been told the program intermitently gets a DDE on the LDA.  I
haven't
> > been told which field.  I've searched the archives and read about fifty
> > posts on this subject and added
> > H FIXNBR(*INPUTPACKED)
> > to the H spec.
> >
> > I tried;
> > FIXNBR(*ZONED *INPUTPACKED)
> > but SEU gave me RNF0312
> > A right parenthesis is expected but is not found.
> > with the curser placed on the second astersk(*).  Is it possible to do
> both?
> > The TESTN and CHECK op codes look at alpha fields to see if they have
> valid
> > numeric data in them.  It it possible to look at the numeric field
> > (LDU#IDAT) to see if it's valid and clear it if it isn't?
> > or is there a %bif that would work?
> >
> > also, link: http://www.midrangecomputing.com/ftp/prog/92/B920106.txt
> > seems to be broken.
> >
> > V5R2M0
> >
> > Regards,
> > Guy Henza
> > 616 N Michigan Ave
> > Howell MI 48843
> > 517.548.3563
> > guyhenza@xxxxxxxxxxx
> >
> >
> > -- 
> > 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 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.