Re: SQL - data conversion required (SQL7919) -- RPG400-L

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