|
/* 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)
¤ Dauer der Verarbeitung: 0.106 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.
|
