home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / slip-cm.zip / SetTime.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-30  |  812b  |  32 lines
  1. /******************************************************************/
  2. /*                                                                */
  3. /******************************************************************/
  4.  
  5. trace OFF
  6.  
  7.   signal on HALT name CLEANUP
  8.   signal on FAILURE name CLEANUP
  9.   signal on SYNTAX name CLEANUP
  10.   
  11.   unique = SetTime
  12.  
  13.   parse arg parameters
  14.  
  15.   if \CMStart(unique, 1) then 
  16.     say date(USA) time() "001S connection could not be started"
  17.   else do
  18.     say date(USA) time() "002I setting system clock to NIST standard"
  19.  
  20.    '@nistime -m2 -s1'
  21.  
  22.     if (RC == 0) then
  23.       say date(USA) time() "003I system clock successfully set"
  24.     else 
  25.       say date(USA) time() "004E system clock not set, RC="RC
  26.   end /* else */
  27.  
  28. CLEANUP: 
  29.  
  30.   call CMStop unique
  31.  
  32. return (RC)