RE: Is a program all ready active?

I guess I'm thinking the way I program. I always use EXTFILE and USROPN and
don't generally use external overrides unless the access path needs to be
shared. 

     FArcnml2   IF   E           K Disk    Extfile(Arcnml2_Name) Usropn 

     D Arcnml2_Name    S             21A

       // Close files if open. Open files in correct library.
       If %OPEN(Arcnml2);                                    
         Close Arcnml2;                                      
       Endif;                                                
       Arcnml2_Name = %TRIM(Dbclib) + '/ARCNML2';            
       Open Arcnml2;                                         


Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


-----Original Message-----
From: rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx] On Behalf Of Jerry
Adams
Sent: Tuesday, May 9, 2006 2:54 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is a program all ready active?

Francis,


This idea would probably work if the files are always open, but I think Jim
said something about file overrides changing.  Which is where Opening and
Closing the files manually comes in real handy.  And kinda makes this option
hit-or-miss.  Aside from some API somewhere (equivalent to the // IF ACTIVE-
test in 36EE) Lim's idea about the *INZSR routine seems like the best.  But,
then, one could set a switch and test it.


On the other hand, Jim did not indicate if he needed to know that status
*before* his order entry program was actually invoked by the user.  If so,
none of these techniques will work, and time to find that API.



        * Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Lapeyre, Francis wrote:

>I should have mentioned that you need to declare the files as Usropn. 
>Then you just check at the top of the processing loop whether the file 
>is open or not (and open them if needed). Within that IF clause, you'll 
>know if the program has been called before (because the file is %OPEN).
>
>
>Francis Lapeyre
>IS Dept. Programmer/Analyst
>Stewart Enterprises, Inc.
>E-mail: flapeyre@xxxxxxxx
>
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx 
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>On Behalf Of Lapeyre, Francis
>Sent: Tuesday, May 9, 2006 1:15 PM
>To: 'RPG programming on the AS400 / iSeries'
>Subject: RE: Is a program all ready active?
>
>If %open(file);
>
>
>Francis Lapeyre
>IS Dept. Programmer/Analyst
>Stewart Enterprises, Inc.
>E-mail: flapeyre@xxxxxxxx
>
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx 
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>On Behalf Of Jim Horn
>Sent: Tuesday, May 9, 2006 11:40 AM
>To: rpg400-l@xxxxxxxxxxxx
>Subject: Is a program all ready active?
>
>Our order entry system allows users to exit the main program without 
>setting on LR but with the files open.  There times when the file 
>overrides should change depending on the options the order entry user 
>chooses.  When the user requests to initiate the program, I would like 
>to know if the program is all ready "active".  Is there something that
would tell me this?
>
>--
>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.
>--
>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.
>  
>

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