Re: unwanted integer to packed conversion what am I doing wrong?

[Charles Wilt <charles.wilt@xxxxxxxxx>]

I've never really paid much attention to the x-ref...

But it looks like the x-ref doesn't show Integer as you would expect.
With extbinint(*YES)
--i-specs
15=I                             I    1    4 0TST_TEST_ID
16=I                  1200       C    5   36  TST_SORTCODE
--x-ref
TST_TEST_ID       P(10,0)                10      15D

Without extbinint
--i-specs
15=I                             B    1    4 0TST_TEST_ID
16=I                  1200       C    5   36  TST_SORTCODE
--x-ref
TST_TEST_ID       P(9,0)                 10      15D

Note the differences in the i-specs and the size of TST_TEST_ID

try adding a line of code:
tst_test_ID = 2000000000;

Running the code with extbinint(*yes) works, without in you get a runtime
error.

Charles

On Tue, Nov 22, 2016 at 2:14 PM, Arco Simonse <arco400@xxxxxxxxx> wrote:

> Hi all,
>
> I guess I must be missing something obvious here, but I'm struggling with
> unwanted integer to packed conversion in a datastructure.
>
> I have a table defined as:
>
> CREATE TABLE
>   Test_Master
>   (
>   Test_ID FOR TESTID INTEGER,
>   Sortcode NCHAR(16) NOT NULL DEFAULT ''
>   )
> RCDFMT TESTMASRF;
>
> RENAME TABLE Test_Master
>  TO SYSTEM NAME TESTMAS;
>
> My stripped rpg looks like this:
>
>      h dftactgrp(*no)
>      h extbinint(*yes)
>
>       // file specifications
>      ftestmas   uf a e           k disk    prefix(tst_) alias
>       *
>      d testDS_t...
>      d                 ds                  template
>      d                                     qualified
>      d  id1                                like(tst_Test_ID)
>
>
>       /free
>        *inlr = *on ;
>        return ;
>       /end-free
>
> When I compile this code then both the file field and the ds subfield is
> not treated as integer, but as packed 10,0.
>
>       Global Field
> References:
>          Field             Attributes         References (D=Defined
> M=Modified)
>          *INLR             N(1)
> 17M
> *RNF7031 TESTDS_T          DS(6)
> 7D
>
> TEMPLATE
> *RNF7031   ID1             P(10,0)                10D
> *RNF7031 TST_SORTCODE      C(16)                  16D
>                            CCSID(13488)
>          TST_TEST_ID       P(10,0)                10
> 15D
>
> What am I doing wrong here?
>
> Many thanks.
>
> Regards,
> -Arco
> --
> 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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.