Re: Is a program all ready active?

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

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