Quelle DATUM.REXX Sprache: REXX

/* REXX                                                       */
/* Einstellen des Datums in eine Datei                        */
/*  e.g. ZVS.IGF.D180201                                      */
/* für das Testsystem                                         */

   arg adate

   Version     = "Version 0.4 vom 13.02.2001"
   Autor       = "JD"


   address tso

   /* Dateiname an SYS010 ermitteln */
   sysrc = LISTDSI(SYS010 file)
   /* 3 Fälle werden unterschieden */
   /* 1. Argument vorhanden        */
   if adate <> '' then
   do
      adate = substr(adate,1,2)'.'substr(adate,4,2)'.'substr(adate,7,2)
   end
   /* 2. SYS010 vorhanden          */
   else if sysrc = 0 then
   do
     adate = substr(SYSDSNAME,10,6)
     adate = substr(adate,1,2)'.'substr(adate,3,2)'.'substr(adate,5,2)
   end
   /* 3. SYS010 nicht vorhanden    */
   else
   do
      adate = DATE('E')
      adate = substr(adate,1,2)'.'substr(adate,4,2)'.'substr(adate,7,2)
   end
   line = adate !!        ' '
   line = line !! ' TAVK'
   queue line   /* write value to stack */

   /* write the current stack to the file  */
   'EXECIO * DISKW SYS010 (FINIS'       /* write stack to the file */
   'DELSTACK'                           /* delete stack */

   exit(0)

quality72%

¤ Dauer der Verarbeitung: 0.11 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.