Cobol Foro - [Sintaxis] Crear carpetas/directorios

Recato53, para este tipo de cosas, debes usar sea WinAPI, sea la librería CBL_ que trae Fujitsu.

Ejemplo de la CBL para crear directorio:

Código:

CBL_CREATE_DIR2 creates a directory. The difference between the

CBL_CREATE_DIR subroutine and this subroutine is that this subroutine can support

a directory name containing a space.

Código COBOL:

 WORKING-STORAGE SECTION.   
 01 path-name PIC X(n).
 01 status-code PIC S9(4) COMP-5.
 PROCEDURE DIVISION. 
     CALL "CBL_CREATE_DIR2" USING path-name RETURNING status-code.

Código:

Interface

path-name

Specifies a full or partial path name, ending with a null character. The maximum size

of the path name is 248.

Return code

The return code is set in the status-code specified in the RETURNING clause.

status-code

0: Successful

Other than 0: Failure

Recuerda que para que esto funcione, debes añadir la F3BICBLR.LIB que se encuentra en %programfiles%\Fujitsu NetCOBOL for Windows a tu proyecto.

Para ver todas las funciones, mira el PDF en adjuntos.