home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
easyvideo
/
rexx
/
ev_befehldatumkehr.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-05-09
|
542b
|
33 lines
/* RexxStart für EasyVideo
(c) Jörg Trahm
kehrt alle Datumeinträge um z.B. für ein Sortieren nach Datum
(springt auf den zuletzt angezeigten Datensatz nach Beendigung zurück)
*/
call addlib('rexxsupport.library',0,-30)
parse arg PortName
address(PortName)
options results
EV_Inhalt "Akt_Satz"
Merker=result
EV_Goto "1"
Satz=1
EV_Inhalt "Datensätze"
Datensaetze=result
do while Satz<=Datensaetze
EV_Inhalt "Datum"
EV_Setze "Datum=" || translate('87654321',result,'21354687')
EV_Goto "+"
Satz=Satz+1
end
EV_Goto Merker
exit