Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ZFIR.REXX Sprache: REXX

Original von: REXX^©

/* 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.30 Sekunden (vorverarbeitet) ¤

Druckansicht unsichere Verbindung
Druckansicht sprechenden Kalenders
Eigene Datei ansehen

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.