CL prüfen ob ein Ordner vorhanden ist? QDLS

[MGJ79]

Hallo Leute,

wie kann ich in einen CL-Programm prüfen ob ein Ordner im QDLS vorhanden ist?

QDLS Pfad wäre:
QDLS/ORDNER1/ORDNER2/SAVE

evtl. mit Beispiel.

Danke

So selbst beantwortet


<code><code> PGM PARM(&NAME)

DCL VAR(&OBJ1) TYPE(*CHAR) LEN(18) +
VALUE('/HOME/whateverxxx/')
DCL VAR(&OBJ2) TYPE(*CHAR) LEN(30)

CHGVAR VAR(&OBJ2) VALUE(&OBJ1 *CAT &NAME)

CHKOUT OBJ(&OBJ2)
MONMSG MSGID(CPFA0A9) EXEC(DO)
SNDPGMMSG MSG(&OBJ2 *CAT ' not found')
/* DO HERE SOME CODE IF NOT FOUND */
GOTO CMDLBL(LOOP)
ENDDO
SNDPGMMSG MSG(&OBJ2 *CAT ' found')
/* DO HERE SOME CODE IF FOUND */
LOOP: CHKIN OBJ(&OBJ2)
MONMSG MSGID(CPFA0A9)

ENDPGM </code></code>




googeln hilft ja doch ^^