RE: Is a program all ready active?

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.