RE: SQL - data conversion required (SQL7919)

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

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
>