Re: Fixed v Free Display Variables

Whatever the problem it is highly unlikely (near impossible) for it to be a fixed/free issue. Under the covers the two are identical.

But you are obviously not showing all of your code because the dcl-proc should be followed by a dcl-pi and there isn't one there.

Variables within a subprocedure are local and therefore would not normally be available to display without copying it somewhere.

The fact that it has the same name in the subprocedure as it has on the file means you have _two_ versions of the field Qty in the program - one global (the file version) and one local (the GetHazmat version). The global version will always be the one used by any display file output (unless Data Structure I/O is used which is not th case here as Qty is a stand-alone.

All of which is to say that your fixed form version must have a value being placed in the global Qty field and you free version doesn't.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 19, 2018, at 6:29 AM, jyoung@xxxxxxxxxxxxx wrote:

I have an interesting question. (very new dev here) Let's say my display file has a output field named Qty. In fixed format, the program declares a standalone variable Qty and sets the message. The display file shows the message when I run the program.

P GetHazmat B
D Qty S 40 Inz('G = Gallon, GP = 5 Gallon Pail')

However, if I try to do the same in free format, the message will not display. I assume because the Qty variable is being created again? But then why does it work fixed format? I know to solve the issue is just to not declare it again as a standalone in free format, but that doesn't solve my curiosity. Does anyone have some clarification?

Dcl-proc GetHazmat;
Dcl-S Qty Char(40) Inz('G = Gallon, GP = 5 Gallon Pail');

Thanks,
Jeffrey Young



Subject to Change Notice:

WalzCraft reserves the right to improve designs, and to change specifications without notice.

Confidentiality Notice:

This message and any attachments may contain confidential and privileged information that is protected by law. The information contained herein is transmitted for the sole use of the intended recipient(s) and should "only" pertain to "WalzCraft" company matters. If you are not the intended recipient or designated agent of the recipient of such information, you are hereby notified that any use, dissemination, copying or retention of this email or the information contained herein is strictly prohibited and may subject you to penalties under federal and/or state law. If you received this email in error, please notify the sender immediately and permanently delete this email. Thank You

WalzCraft PO Box 1748 La Crosse, WI, 54602-1748
www.walzcraft.com<http://www.walzcraft.com> Phone: 1-800-237-1326
--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD