home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
mag7demo.zip
/
RJE_DIR.ZIP
/
MARKUNRD.RJE
< prev
next >
Wrap
Text File
|
1993-09-01
|
1KB
|
21 lines
@c12 ---------- MARKUNRD.RJE - Unmarks all UNREAD mail addressed to a user ---
@z0=v79; Get Program Directory into Z0
@z0=(z0+"\mbbsexec.exe"); Complete the filespec
@z10=v86; @z10=(z10+"\markunrd."); Prepare .mex filespec in Z10
@z1=(z10+"mex "); Program name now in Z1
@z12=v88; Get WORK directory path into Z12
@z12=(z12+"\");
@z13=o18; make random filename (time related)
@z12=(z12+z13); Append partial filename
@z12=(z12+".tmp"); complete the filespec with .tmp extension
@z13=u1; Get user ID number in Z13
@z11="@";
@z11=(z11+z12); Append (completing) the filename
@z1=(z1+z11); Concatenate to Z1
@n10=z13; Put ID in N10 (expected by MARKUNRD.MEX)
@$12 Save Nx and Zx values in tmp file
@n0=125; Run as Priority Class 1, Level 25
@n1=1; Have RJE notify user when completed
@e1 Start as RJE process
@c13