Re: CPF7416 on a DS move

[Alan Campin <alan0307d@xxxxxxxxx>]

Did you look at the compiler listing and see what type it thinks OrderNo
is?

Just an aside. Always explicitly declare fields  and let the compiler
figure out where to put the next field.

Doing something implicit may work but it might not. For yourself and the
next guy.

d                 ds
d  PoNumber...
d                                9s 0
d  PoPart1...
d                                6s 0 Overlay(PoNumber)
d  PoPart2...
d                                3s 0 Overlay(PoNumber:*Next)

d OrderNumber...
d                 s              9p 0 Inz(123456789)
 /Free

  PoNumber = OrderNumber;




On Tue, Jan 27, 2015 at 9:29 AM, RPG List <rpglist@xxxxxxxxxxx> wrote:

> For the life of me, I cannot figure out what the issue is here; after
> consulting with my mentor (who shall remain nameless), it was suggested to
> post on here for some assistance.
>
> I have an SQL table defined with one field PONUMBER as a 9,0 numeric.
>
> One data structure defined as follows:
>
> 0004.21 D                 ds
> 0004.22 D  PoDs                          9  0
> 0004.23 D  PoDat                         6  0 Overlay(PoDs)
> 0004.24 D  PoCt                          3  0 Overlay(PoDs:7)
> 0004.27
>
> The DS for the file read:
>
> 0004.12 D OrderNo         ds                  LikeRec(RcdPoNo:*Input)
>
> The following line seems simple enough, both fields are defined as a 9,0
> but its throwing a 7416 error:
>
> 0004.33     PoDs = OrderNo;
>
> I'm hoping someone far smarter than I can point out where my feeble brain
> is going haywire.
>
> Dutch
>
>
> --
> This is the RPG programming on the IBM i (AS/400 and 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.