× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Should also ask if the fields were created as input only or input/output.
If input only, then the field values will not be redisplayed after
returning from the prompt program no matter the if CA(04) or CF(04) is
specified.




--

Michael Schutte
Admin Professional



Try Bob Evans GRILLING SAUSAGE! This summerâs hottest destination is your
own backyard with Bob Evans Brats and Italian Sausage! For tasty recipes
using Bob Evans grilling sausage, visit http://www.BobEvans.com/Recipes



rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/01/2009 10:50:56 AM:

Terri, in your display file definition, when adding the F4, did you code
it as CA(04) or CF(04)?
If CA(04), then all input fields will be blank.
If CF(04), input fields will have the values you keyed in.
HTH
------------------------------------------------
THarteau@xxxxxxxxxxxxxxxxxx escribiÃ:
Hi,
I will be the first to admit I am a novice with subfiles. I
have
an existing maintenance program that uses EXFMT to display the screen.
I
made one of the fields promptable. I put a '+' after the field and
added
F4. This calls another program that displays a window the user can
select
from. That is working fine. The problem is that if I fill in any other
fields then hit F4 to prompt, the other fields are blank. I put a
breakpoint immediately after the EXFMT and figured out it is because I
never hit the enter key. How can I retain the other entered values,
but
still prompt?

Works correctly Works wrong
EXFMT EXFMT
Enter type field Enter Type
Press enter Prompt shipper
Type field = 'F' Type field = blank

199 C EXFMT SCR001
200 C*
201 C IF *INKD = *ON
202 C EXSR PmtCar
203 C ENDIF

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
"Do not follow where the path may lead. Go instead where there is no
path
and leave a trail."
Ralph Waldo Emerson

****************






--
Antonio Fernandez-Vicenti
afvaiv@xxxxxxxxxxxxxx

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.