Recieving Data Decimal error in Trigger

["Hartman, Richard" <richard.hartman@xxxxxxxxxx>]

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
>
> this line
> IF BFFOAMT <> AFFOAMT
>
> 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
>
>