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:
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
googeln hilft ja doch ^^
Bookmarks