MIDRANGE dot COM Mailing List Archive



Home » RPG400-L » May 2006

RE: Assume keyword on display file the is used by service program



fixed

Ok, I gotcha now.  Sounds like something's getting caught up in the cache.
>From my experiences with modules (not service programs, maybe someone else
could provide the answer for them), in modules, I had to control the
opening and closings of a file (USROPN keyword on FSPECS).   If you have
the USROPN keyword on the display file, make sure that the display file is
being closed when you leave the service program.

If you try to compile a module without explicitly  controlling the files,
the module will compile, however, you will compile with severity of 10
(well, that also depends on your compile level).
You will receive the following message in the compile listing...

*RNF7534 10      1 Files should be closed explicitly when NOMAIN is
specified
                   the Control specification.

If you go the route of controlling the opening and closing of the display
file... At service program begin...

If not %Open(DISPLAYFILE);
   Open DISPLAYFILE;
EndIf;

When Leaving...

If %Open(DISPLAYFILE);
   CLOSE DISPLAYFILE;
EndIf;


Michael Schutte



                                                                           
             "Lim Hock-Chai"                                               
             <Lim.Hock-Chai@us                                             
             amobility.com>                                             To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces+         iSeries" <rpg400-l@xxxxxxxxxxxx>    
             michael_schutte=b                                          cc 
             obevans.com@midra                                             
             nge.com                                               Subject 
                                       RE: Assume keyword on display file  
                                       the is used by service program      
             05/09/2006 09:37                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




You got it the first time.
>From our main menu option, I took an option to execute PROGRAMA and
press a key to pop the window that is in the service program.  The
ASSUME and OVERLAY work correctly, with the PROGRAMA as the background.
After exit PRORGAMA, I took another option to execute PROGRAMB and press
a key to pop the same window, the window pop up with PROGRAMA
background.

Somehow the pop up window is using the background of the previous
overlay.  Strange.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Tuesday, May 09, 2006 7:26 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Assume keyword on display file the is used by service
program

I'm having trouble understanding what you're saying.

You say initially the window properly overlay the background from
PROGRAMA.
But then you say if you leave PROGRAMA and go to PROGRAMB,  did you mean
the opposite?  From B to A? Oh heck, I lost myself.

--
This is the RPG programming on the AS400 / iSeries (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.








Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact