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.