P.S.: Re: LIKE changing data type

P.S.:

You can always use const or value at the parameter definition of the procedure, at least if the parameter is "input-only" for the procedure.

For me, const is standard on every parameter definition - only if I really have no better way to "return" a value, I use a parameter without const.

HTH
Daniel


Von meinem iPad gesendet

Am 31.10.2024 um 13:55 schrieb Daniel Gross <daniel@xxxxxxxx>:

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.

--
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.