Re: Dspf in procedure

On Jun 12, 2020, at 6:32 PM, Francois Lavoie <Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx> wrote:

If your num field is Input (I) only, it will not return the value, well since it`s input only
Make the num field Both (B) i/O and recompile DSPF and PGM/SRVPGM containing the procedure, SIGNOFF if it’s a SRVPGM to test


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jay Vaughn
Sent: Friday, June 12, 2020 17:55
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Dspf in procedure

That’s a thought. But...

It’s being executed no different than a pgm call.

The char numeric field works.
Why doesn’t the numeric.

Jay

Sent from my iPhone

On Jun 12, 2020, at 5:36 PM, Francois Lavoie <Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx> wrote:

Each calls to your proc will create a new initialized memory space
for ds_window01

Try to add Static to the DS definition


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jay
Vaughn
Sent: Friday, June 12, 2020 15:48
To: i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Dspf in procedure

Ran across "this".

Where the dspf is defined in a procedure.

ds_window01 ds likerec(window01:*all) inz

the above ds is specified to correctly allocate the file(rcdfmt) to a ds as its supposed to.
when a char field is referenced in the dspf ds_window01.w1_char, it works fine, but when a numeric is defined, it will not return the value to the program.

so i have w1_numeric in the window01 and i've tried data types Y and S... when in debug and as soon as the exfmt returns, if you view ds_window01.w1_char, the value is there... if you view ds_window01.w1_numberic, the value is always 0's.

so... what special handling or data type assignment am I missing on this one?

tia

Jay

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

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com Confidentiality Warning/Avertissement de confidentialité:

This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
--
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.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
Confidentiality Warning/Avertissement de confidentialité:

This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
--
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.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com