QSECOFR-1
12-11-08, 16:20
Hallo zusammen,
ich habe mir ein kleines CL Programm erstellt, mit dem ich im IFS, Verzeichnisse mit dem aktuellen Datum erstellen will.
Leider klappt das nicht so ganz. Erst mal das Programm:
DCL VAR(&YEAR) TYPE(*CHAR) LEN(2)
DCL VAR(&MONTH) TYPE(*CHAR) LEN(2)
DCL VAR(&DAY) TYPE(*CHAR) LEN(2)
DCL VAR(&DATE) TYPE(*CHAR) LEN(8)
RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MONTH)
RTVSYSVAL SYSVAL(QDAY) RTNVAR(&DAY)
RTVSYSVAL SYSVAL(QYEAR) RTNVAR(&YEAR)
CHGVAR VAR(&DATE) VALUE('20' *TCAT &YEAR *TCAT +
&MONTH *TCAT &DAY)
QSYS/CRTDIR +
DIR('/.../.../.../&DATE')
Was jetzt passiert ist folgendes: Das Programm erstellt ein Verzeichnis mit dem Namen: "&DATE".
Warum wird die Variable nicht übergeben?
Ich habe ein ähnliches Programm, bei dem ich auf der gleichen Art und Weise SAVF (CRTSAVF) erstelle, und da klappt es ohne Probleme.
Habt ihr noch einen Tipp für mich?
Besten Dank im Voraus!
ich habe mir ein kleines CL Programm erstellt, mit dem ich im IFS, Verzeichnisse mit dem aktuellen Datum erstellen will.
Leider klappt das nicht so ganz. Erst mal das Programm:
DCL VAR(&YEAR) TYPE(*CHAR) LEN(2)
DCL VAR(&MONTH) TYPE(*CHAR) LEN(2)
DCL VAR(&DAY) TYPE(*CHAR) LEN(2)
DCL VAR(&DATE) TYPE(*CHAR) LEN(8)
RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MONTH)
RTVSYSVAL SYSVAL(QDAY) RTNVAR(&DAY)
RTVSYSVAL SYSVAL(QYEAR) RTNVAR(&YEAR)
CHGVAR VAR(&DATE) VALUE('20' *TCAT &YEAR *TCAT +
&MONTH *TCAT &DAY)
QSYS/CRTDIR +
DIR('/.../.../.../&DATE')
Was jetzt passiert ist folgendes: Das Programm erstellt ein Verzeichnis mit dem Namen: "&DATE".
Warum wird die Variable nicht übergeben?
Ich habe ein ähnliches Programm, bei dem ich auf der gleichen Art und Weise SAVF (CRTSAVF) erstelle, und da klappt es ohne Probleme.
Habt ihr noch einen Tipp für mich?
Besten Dank im Voraus!