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

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.