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
