Re: Send Break message to user work station

DCL VAR(&USER) TYPE(*CHAR) LEN(10)
RTVJOBA USER(&USER)

This puts in a variable who the user is who is running some task, so that user can be sent some message, like when it is done, or estimate how long it will take, use the user name in labeling on work members, all sorts of things.

I suggest you prompt on RTVJOBA which has a LOT of data available about the job that is running.
* Name of the job, which can default to workstation-id if on JOBQ, depending on how the software might rename jobs to JOBQ
* User who launched it (interactive, JOBQ, whatever)
* OUTQ
* various settings & conditions it running under

It is not unusual people load up JOBQ, then go off to lunch, supper, other break, come back a few hours later to check on the status of their jobs. Take a look at iSeries/400 security ... you can restrict people not able to use the system certain times of day nite, weekdays etc. There's other ways to deal with tasks that you might not want running at certain times.

There's also people who might have several session "sides" where the one that sent the stuff to JOBQ is no longer signed on, the user still active some place else. If that is your environment, you better off sending message to user, wherever they may be, than to the work station they happened to use to luanch something ... next user there might have no idea what this is all about.

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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.