RE: some ideas needed

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

Use chain(E) or read(e)...in RPG program.  
        If %error() and %status = 1218
                Position 91 to 170 contains the job that lock the record;
                Create a standard lock handler program to cancel the job if it 
is interactive;
                if cancelled sucessful, do the chain(e)/read(e) and program 
continue, otherwise, exception.
        endif



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of murali dhar
Sent: Monday, January 03, 2005 5:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: some ideas needed


Hi all,
2 batches batch1 & batch2 constantly lock due to users running a program 
BUP009C.
 
Inorder to let 2 batches run through, I usually find User-id who is running the 
job BUP009C and cancel his job.
 
I want to place a program which would constantly check during time period 
5pm-7pm which user is running BUP009C at that time(batch1 starts at 5pm , 
batch2 starts at 5.15pm,both end around 7pm) and send message to all users on 
AS400 lettinng them which user is running and asking him to cancel out his 
session.
any  ideas appreciated..
 
Happy&Prosperous  new year  2005 to all..
regards,

                
---------------------------------
Do you Yahoo!?
 Read only the mail you want - Yahoo! Mail SpamGuard.
-- 
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.