home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / cdity / BlocNotes39.lha / BlocNotes / OnDateStartup.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-05-23  |  408 b   |  24 lines
  1. /* Blocnotes startup arexx script */
  2.  
  3. address 'blocnotes.rexx'
  4. OPTIONS RESULTS
  5.  
  6. address command 'date >t:today'
  7. call open('date','T:today')
  8. if rc~=0 then exit
  9. date=readln('date')
  10. close('date')
  11. address command 'delete >nil: t:today QUIET'
  12.  
  13. parse var date DAY DATE TIME .
  14.  
  15. Searchtxt='$ONDATE#?'||DATE
  16.  
  17. search pat Searchtxt
  18. id=RESULT
  19. do while (id~=0)
  20.    SHOW id
  21.    SEARCH PAT Searchtxt FROM id
  22.    id=RESULT
  23. end
  24.