/*------------------------------------------

  :Program.     AddProcUpdate.oed
  :Author.      Albert Weinert [awn]
  :Address.     Feldblumenweg 2, D-5000 Köln 71
  :Version.     V1.1
  :Date.        25-Oct-1992
  :Copyright.   Albert Weinert 1992
  :Language.    Rexx
  :Translator.  ARexx 1.15
  :Contents.    Fügt einen History Eintrag an
  :History.     V1.0   [awn] 23-Apr-1992 : Erstellt
  :History.     V1.1   [awn] 25-Oct-1992 : An den neuen Amok Procedure Head angepasst

--------------------------------------------*/
options results
address 'OEd'

'findstr "PROCEDURE"';'prev'
'findstr "-----*"';'next'
'findstr ":Update."';'prev'
'return'
'write ":Update.    "'
'write' space(date(),1,"-")
gotox 27
'write "[awn] -"'
'gotox' 35