Mary,
I hope that the professor realizes that what he is getting
is a statistical sample, not *real* data! As has been
mentioned before, it would be much better to get the data
from the accounting records, if they are available.
For efficiency and correctness, ADDRESS COMMAND should be
the first instruction.
This kind of task is made to order for a service machine
driven by VMSERVE EXEC from the VM Download Library. That
way you have one service machine that can handle multiple
ad-hoc requests such as this and VMSERVE handles the WAKEUP
interrupts and runs your code.
Iirc, WAKEUP MODULE is also in the download library and is
well documented. Nowadays, it might even be shipped with
the product... I've been retired for many years, so can't
say for sure.
Les
Mary Zervos wrote:
Hi again Ivan,
Thank you for writing this code for us. It has worked beautifully. Can
I possibly ask you to help us take this code one step further (since
I've never used the Wakeup Module before). Here's what we have (step 1
below) and what we need the new code to do (step 2 below).
1). Wakeup every 4 hours, do an "indicate user" for each student in
the "Student List", keep putting data into a "Student Indicat" file.
2). *Wakeup every Sunday at midnight* and send the "Student Indicat"
file to the professor.
We appreciate any help you can give us Ivan and hope we are not
interrupting your regular VM work.
Thanks so much.
Mary
Ivan Warren wrote:
Mary Zervos wrote:
Hello everyone,
A professor here would like an "ind user studentname" taken every 4
hours of his 80 students, with a report sent to him once a week. My
question is, which vm software to use and how to collect the data in
a file to send the professor. The professor will use his own program
to extract the data he needs from the file.
I guess about 20 lines of REXX ought to do the trick !
--Ivan
/**/
'EXECIO * DISKR STUDENT LIST * ( STEM SL. FINIS'
DO I=1 TO SL.0
SL.I=STRIP(SL.I)
END
DO FOREVER
D=DATE()
T=TIME()
DO I=1 TO SL.0
A=DIAGRC(8,'INDICATE USER '||SL.I)
DRC=STRIP(SUBSTR(A,1,9))
IF DRC=0 THEN
DTXT=D T TRANSLATE(SUBSTR(A,16),' ',X2C('15'))
'EXECIO 1 DISKW STUDENT INDICAT A 0 V ( VAR DTXT'
END
'FINIS STUDENT INDICAT'
'WAKEUP +04:00:00 ( CONS'
IF RC=6 THEN LEAVE
END
