CAll "CBL_WRITE_FILE" USING HANDLE, OFFSET, COUNT, FLAGS, BUF RETURNING STATUS-CODE
|HANDLE (pic x(4) comp-x)||This is the handle returned from CBL_OPEN_FILE.|
|OFFSET (pic x(8) comp-x)||This is the offset from which to write from the file, based at "0" to read from the first byte. Note that this is a 64-bit value, allowing access to files larger than 4GB. Note that if your OS or File System does not allow such files, setting this to a value larger than your OS or file system can support will cause undefined results.|
|COUNT (pic x(4) comp-x)||This is the number of bytes to read. This should not be set to a value larger than the size of the buffer (described below), or you will get undefined results, including a potential MAV.|
|FLAGS (pic x comp-x)||One special value is recognized. This value must be set to 0.|
|BUF (pic x(n))||This is the buffer that will write to the file at "offset". This buffer should be at least count bytes long.|
This routine is used for writing 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_WRITE_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.