Re: SQL, fetch & decimal data error

["Brian Johnson" <brian.johnson.mn@xxxxxxxxx>]

SELECT columns,
CASE WHEN HEX( packed-4-0-column ) = '40404040'
THEN 0
ELSE packed-4-0-column
END ,
other-columns
FROM table-name

On 5/17/07, MKirkpatrick@xxxxxxxxxxxxxxxxx <MKirkpatrick@xxxxxxxxxxxxxxxxx>
wrote:
> I am using SQL to read a file.  I use an Ext DS for the fields in the
> file.  I have a field defined as packed and some of the records have
> *Blanks in this field.  When I FETCH, I get a DDE.  Can I code around
> this?  If so, how?  Short of fixing the data and the pgms that
> write/update this file (S36), what are my options?  Thanks.
>
>
>
>
>
> This email and any files transmitted with it are confidential and intended
> solely for the use of the individual or entity to whom they are
> addressed.  Unless you are the addressee (or authorized to receive for the
> addressee), you may not use, copy or disclose to anyone this email or any
> information contained in this email.  If you have received this email in
> error, please advise the sender by replying to this email, and delete this
> email immediately.  Please note that any views or opinions presented in this
> email are solely those of the author and do not necessarily represent those
> of Western Dental Services, Inc.  Finally, the recipient should check this
> email and any attachments for the presence of viruses. Western Dental
> Services, Inc. accepts no liability for any damage caused by any virus
> transmitted by this email.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.