RE: Recieving Data Decimal error in Trigger

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Comments inline.

> -----Original Message-----
> From: Hartman, Richard [mailto:richard.hartman@brctsg.com]
> Sent: Wednesday, November 07, 2001 11:21 AM
> To: 'midrange-l@midrange.com'
> Subject: Recieving Data Decimal error in Trigger
>
>
> Hello all,
>
> > I am having a problem with a few trigger programs and
> cannot figure them
> > out.
> > When I compare the fields before image and after image I am
> recieving a
> > data
> > decimal error.
> > Any help would be appreciated.
> > Thanks
> > Richard
> >
> > Here is the before images.
> > EVAL BRECIMAGE
> > BFFOPYEAR OF BRECIMAGE = 0000.
> > BFFOLCDT Z OF BRECIMAGE = ' '
> > BFFODATE D OF BRECIMAGE = ' '
> > BFFOTXBLNO OF BRECIMAGE = ' '
> > BFFODATE OF BRECIMAGE = ' '
> > BFFOAMT OF BRECIMAGE = 000000000.00
> > BFFOCTLNO OF BRECIMAGE = 000000000.
> > BFFOLCUSER OF BRECIMAGE = ' '
> > BFFOLCDT OF BRECIMAGE = ' '
> >
> > Here is the after image.
> > EVAL ARECIMAGE
> > AFFOPYEAR OF ARECIMAGE = 2000.
> > AFFOLCDT Z OF ARECIMAGE = ''
> > AFFODATE D OF ARECIMAGE = ''
> > AFFOTXBLNO OF ARECIMAGE = ' 22900'
> > AFFODATE OF ARECIMAGE = '2000-05-15'
> > AFFOAMT OF ARECIMAGE = 000000200.00
> > AFFOCTLNO OF ARECIMAGE = 000263966.
> > AFFOLCUSER OF ARECIMAGE = 'RICHARDH '
> > AFFOLCDT OF ARECIMAGE = '2001-11-02-16.53.23.475000'
> >
> > The AFFOLCDT Z and AFFODATE D values are highlighted in
> debug, like they
> > have the
> > data decimal problem. But those fields are not defined in my file.
> > The trigger program is jumping down into my PSSR routine
> when it evaluates
> >

What do you mean those fields are not defined in the file?  If they aren't
in the file then why are they part of your after record?



> > this line
> > IF BFFOAMT <> AFFOAMT

Are you only accessing this line when the trigger fires on an update?  On a
delete or insert one of these values won't be defined and shouldn't be
accessed.


> >
> > Here is the file layout.
> > Field
> > Name Type Length Dec
> > FOPYEAR P 4 0
> > FOTXBLNO A 10
> > FODATE L 10
> > FOAMT P 11 2
> > FOCTLNO P 9 0
> > FOLCUSER A 10
> > FOLCDT Z 26
> >


Only other thing I can think of is that you don't have the buffers mapped
properly, would have to see the code to determine that.

Scott Mildenberger