CAll "CBL_CREATE_FILE"
USING FILENAME, ACCESS-MODE, DENY-MODE, DEVICE, HANDLE
RETURNING STATUS-CODE
| FILENAME (PIC X(n)) | This is the name of a file to create. If this file does not exist, the open fails and sets return-code to 1. The filename parameter can be blank-terminated or terminated with low-values. |
| ACCESS-MODE (pic x comp-x) | This parameter is ignored (the file is always open for writing only), and the file is created anew. This means that if the file exists, it is truncated to 0 bytes, and if it does not exist, it is created. |
| DENY-MODE (pic x comp-x) | Determines how other users can access the file: 0 to deny read and write access by other users, 1 to deny write access, 2 to deny read access, and 3 to allow all other users. This flag has an effect only on Windows systems. |
| DEVICE (pic x comp-x) | This is not used and must be 0. |
| HANDLE (pic x(4) comp-x) | This is set to the handle of the file created. Use this handle in the other functions. |
This routine is used for creating files and returns 0 on success and non-zero if an error occurred. The error is a special encoding of the digit 9 with the ANSI-74 error code, or the runtime system error number if no ANSI-74 error code pertains to the error. If RETURN-CODE is non-zero after calling this routine, you must process it as a file status, for example:
01 file-status-group.
03 file-status pic xx comp-x.
03 redefines file-status.
05 fs-byte-1 pic x.
05 fs-byte-2 pic x comp-x.
. . .
call "CBL_CREATE_FILE" using parameters
if return-code not = 0
move return-code to file-status
. . .
At this point fs-byte-1 contains 9 and fs-byte-2 contains the ANSI-74 error code, or a runtime system error number.