/* REXX */ /* ----------------------------------------------------------- */ /* Löschen der Dateien, die als Parameter mitgegeben werden */ /* z. B. bei */ /* exec delf,parm=&file1 */ /* wird &file1 gelöscht, falls vorhanden */ /* ----------------------------------------------------------- */
arg d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11
Version = "Version 0.4 vom 13.02.2001"
Autor = "JD"
if d11 <> ''THENDO SAY"ZUVIELE PARAMETER" EXIT(66) end
afile=d1 call delfile
afile=d2 call delfile
afile=d3 call delfile
afile=d4 call delfile
afile=d5 call delfile
afile=d6 call delfile
afile=d7 call delfile
afile=d8 call delfile
afile=d9 call delfile
afile=d10 call delfile
exit(0)
delfile: address tso /* Dateiname aus Parm prüfen */ if afile <> ''thendo
afile="'"afile"'" say"afile="afile
sysrc = LISTDSI(afile recall) /* 3 Fälle werden unterschieden */ if sysrc = 0 then do 'del ('afile')' say afile"rc="rc end /* 3. SYS010 nicht vorhanden */ else do say afile" nicht gefunden. rc="sysrc end end return
¤ Dauer der Verarbeitung: 0.10 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.