RE: Send Break message to user work station (Dwayne Allison)

Dwayne,
Here is a code snippet from a job that has been around the shop for
years. It still works pretty well.

DCL VAR(&JOB) TYPE(*CHAR) LEN(10)

RTVJOBA JOB(&JOB)

IF COND(&INUSE *EQ '1') THEN(DO)
SNDBRKMSG MSG('Someone is already in the receiving +
program. Please try again later.') +
TOMSGQ(&JOB)

GOTO CMDLBL(ENDCLPGM)

ENDDO


You could use the code above or you could put together an RPG program
that would pop up a window asking the same question. You could then
capture the users profile and response as well as the date and time
which could then be written to a log file.


Terry Anderson

message: 6
date: Thu, 19 Apr 2007 09:32:34 -0500
from: "Dwayne Allison" <Dwayne.Allison@xxxxxxxxxxxxxxxxxxxxxxxx>
subject: Send Break message to user work station

Good Morning,


Is there a command I can put in a CL to get the user work
station ID, so
I can send them a break message. My code is going to check
the day of
the week and if it is not Thursday. I will ask the user who
is trying
to submit the task; if they are sure they want to proceed.

Thanks