Re: LIKE changing data type

Hi Justin,

take a look at this: https://www.ibm.com/support/pages/rnf7535-when-compiling-ile-rpg-program-external-file-spec-and-subprocedure

It as to do with external and internal formats of externally described files. Even if a column is described as zoned - the internal format in RPG will be packed.

To circumvent this, you can simply put an externally described data structure into the program, and the field will stay zoned also in the internal definition.

As far as I can think back (like aeons) it always was like that.

HTH and kind regards,
Daniel

Am 31.10.2024 um 13:45 schrieb Justin Taylor <jtaylor.0ab@xxxxxxxxx>:

We've encountered a situation where a LIKE() is making a PACKED variable
when the referenced variable is ZONED. This is causing issues when passing
as a parameter.

Dcl-f MyTable;
// MyColumn is zoned(2)
Dcl-s AlsoMyColumn like(MyColumn);
// AlsoMyColumn is packed(2)

My best guess is that it's something to do with the way File specs bring in
fields. In the compiler listing, the generated Input specs show MyColumn
with the "S" for signed (aka zoned), but the field listing at the bottom
shows P(2,0).

As an aside, a data structure works fine (with the File spec removed).

Dcl-ds MyDataStructure extName('MYTABLE') inz End-ds;
Dcl-s MyDsColumn like(MyColumn);

Can anyone shed some light on this?

7.4 TR 10
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.