home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dialip2.zip / notify1.cmd < prev    next >
OS/2 REXX Batch file  |  1997-09-10  |  424b  |  27 lines
  1. /**/
  2.  
  3. parse arg id
  4.  
  5. tmp = value( 'TMP', , 'OS2ENVIRONMENT' )
  6. msg_file = tmp'\msg_file'
  7.  
  8.  
  9. if ( stream( msg_file,"c",'query exists' ) \= '' ) then
  10.     DO
  11.     'del' msg_file
  12.     END
  13.  
  14. text = '*** Could not connect for id ='id'= ***'
  15. rc = lineout( msg_file, text )
  16.  
  17. text = 'at: ' time() 'on' date()
  18. rc = lineout( msg_file, text )
  19.  
  20. rc = stream( msg_file,"c","close" )
  21.  
  22. 'start epm' msg_file
  23.  
  24. 'exit'
  25. exit
  26.  
  27.