Hola, podes tambien chequear si te deja crear un archivo, si da error, pasas a crear el directorio:
Saludos
armando
Código COBOL:
VALIDO-DIR.
MOVE POW-FALSE TO bNO-DIR.
OPEN OUTPUT MARQUITA.
IF NOT TODO-OK
MOVE POW-TRUE TO bNO-DIR
GO FVALIDO-DIR
END-IF.
CLOSE MARQUITA.
DELETE FILE MARQUITA.
FVALIDO-DIR.
EXIT.
CREO-DIR.
CALL "CBL_CREATE_DIR"
USING cPATH-ACREAR
RETURNING status-code.
CONTROLO-CREADO.
IF status-code NOT = 0 *>aca se da mensaje