Re: Dspf in procedure

[Jay Vaughn <jeffersonvaughn@xxxxxxxxx>]

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