AW: SQL - data conversion required (SQL7919)

Hi Rick,

in RPG all zoned fields and binary fields that are not datastructure
subfields are converted into packed fields by the compiler. This was
implementent in times when storage was expensive and never changed.

If you use an external datastructure to hold your reference fields (instead
of or additional to defining the file in the F-Specs), your reference fields
get not converted and consequently and S1ENTDT gets defined as zoned. (NO
type conversion will be required!)

Mit freundlichen Gruessen / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von rick baird
Gesendet: Dienstag, 18. April 2006 02:10
An: RPG programming on the AS400 / iSeries
Betreff: Re: SQL - data conversion required (SQL7919)


Matt,

that sounds reasonable to me, and you're right, I'm sure the compiler
defined the field as packed, but it just seems odd that it would have
to do conversion from 8S to 8P.

Thanks,

Rick

On 4/17/06, Tyler, Matt <mattt@xxxxxxxxxxxxxx> wrote:
> More than likely the compiler defined S1ENTDT as packed.  Change the DS
> to be 8S 0 for this field and see if it goes away.  Also, check the
> compile listing to see if S1ENTDT is indeed packed.
>
> Thanks, Matt
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rick baird
> Sent: Monday, April 17, 2006 2:05 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: SQL - data conversion required (SQL7919)
>
> FYI, the reason code is   -- Reason 2 - host variable S1ENTDT is a
> numeric type that is different than the type of the value being
> retrieved.
>
> The FIENTD is defined as 8S 0 (via a physical file)
>
> On 4/17/06, rick baird <rick.baird@xxxxxxxxx> wrote:
> > I have a multirow fetch into a qualified multi occurance DS - code as
> follows.
> >
> > I'm getting an SQL7919, data conversion required, on S1ENTDT even
> > though I defined it 'like' the field I'm fetching.  It's not a hard
> > error, but I noticed it in my joblog when testing the program in
> > debug.
> >
> > any ideas?
> >
> > d s1DS            ds                  dim(15)      qualified
> > d S1STYL                              like(FISTYL)
> > d S1COLR                              like(FICOLR)
> > d S1LOGO                              like(FILOGO)
> > d S1CMT1                              like(FICMT1)
> > d S1CMT2                              like(FICMT2)
> > d S1ENTDT                             like(FIENTD)
> > d S1EXPDT                             like(FIEXPD)
> > d S1USER                              like(FIUSER)
> > d S1REAS                              like(FIREAS)
> > d S1STAT                              like(FISTAT)
> > <snip>
> > c/exec sql
> > c+
> > c+             declare  c1      scroll cursor
> > c+                 for
> > c+              select  FISTYL,
> > c+                      FICOLR,
> > c+                      FILOGO,
> > c+                      FICMT1,
> > c+                      FICMT2,
> > c+                      FIENTD,
> > c+                      FIEXPD,
> > c+                      FIUSER,
> > c+                      FIREAS,
> > c+                      FISTAT
> > c+                from  BLOFPDP
> > c+               where  FISTYL = :C1STYL
> > c+            order by  FISTYL, FICOLR, FILOGO
> > c+        optimize for  15 rows
> > c+
> > c/end-exec
> >
>
> --
>
> 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.
>
>
> --
> 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.
>
>

--
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.