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

             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 ^^