home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / x-evd43.lha / EasyVideo / Rexx / EV_BefehlDatUmkehr.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-05-09  |  542 b   |  33 lines
  1. /* RexxStart für EasyVideo
  2.    (c) Jörg Trahm
  3.  
  4.     kehrt alle Datumeinträge um z.B. für ein Sortieren nach Datum
  5.    (springt auf den zuletzt angezeigten Datensatz nach Beendigung zurück)
  6.  
  7. */
  8.  
  9.  
  10. call addlib('rexxsupport.library',0,-30)
  11. parse arg PortName
  12. address(PortName)
  13. options results
  14.  
  15. EV_Inhalt "Akt_Satz"
  16. Merker=result
  17. EV_Goto "1"
  18. Satz=1
  19. EV_Inhalt "Datensätze"
  20. Datensaetze=result
  21.  
  22. do while Satz<=Datensaetze
  23.  EV_Inhalt "Datum"
  24.  EV_Setze "Datum=" || translate('87654321',result,'21354687')
  25.  EV_Goto "+"
  26.  Satz=Satz+1
  27. end
  28.  
  29. EV_Goto Merker
  30.  
  31. exit
  32.  
  33.