Gracias Joseg.
No me sirve, el 'CHK_FILE_EXIST2' no me retorna información de la carpeta, devuelve información del fichero que quiera analizar.
Se puede hacer con algo así:
Código COBOL:
INITIALIZE llama-dir
STRING "CMD /C " DELIMITED BY SIZE
X"22" DELIMITED BY SIZE
"DIR /A:D >> fichero.txt" DELIMITED BY SIZE
X"22" DELIMITED BY SIZE
INTO llama-dir
END-STRING
INVOKE POW-SELF "ExecuteSync" USING llama-dir pow-swhide RETURNING ReturnValue
y luego analizar el 'fichero.txt' que ha generado en la carpeta en curso.