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



Since Pgm1 is Calling Pgm2 going back to Pgm1, then calling pgm2 again,
use RSTDSP on both.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Buck
Sent: Wednesday, April 04, 2007 9:16 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Wrong data being displayed.


Should i use RSTDSP(*YES) for compiling
the calling program DSPF OR
called program DSPF?

RSTDSP(*YES) tells OS400 to save a copy of the display panel that
PROGRAM1 creates when it calls PROGRAM2. When PROGRAM2 returns, OS40
will restore that saved image to the display. You might want to do that
anyway, depending on the way PROGRAM2 overwrites the screen from
PROGRAM1, but that doesn't seem to be the problem. Does PROGRAM2 call
another program that writes to the display?

order number is reflected for all
the order numbers on the screen but
not in the databse), but during
debug, before the screen is EXFMT, the
value is the actual value moved from the
database file, but displayed value is
the value entered the first time.

This description is mixing me up :-)
PROGRAM1 - subfile, select order
PROGRAM1 - call PROGRAM2
PROGRAM2 - order detail, update LCPLT,LCWGT,LCWOOD,LCPLTP

... at this point, do all 4 fields in the database file have the values
you changed them to on the display?

PROGRAM2 - RETURN
PROGRAM1 - subfile

... at this point, are the 4 fields displayed on the subfile? If so,
how did you get the new values out of the database? (RSTDSP won't do it
for you.)

PROGRAM1 - select order
PROGRAM1 - call PROGRAM2
PROGRAM2 - order detail

... here, before updating anything, are the 4 fields displaying what's
in the database?

I'm trying to understand which display is showing wrong data, and at
what point in the business logic that's happening.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.