|
/* 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 <> '' THEN DO
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 <> '' then do
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.19 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|
