WRITE
The WRITE statement writes a new record to the specified file.
????? WRITE ??? ?????????????????????? FAIL ?
(1) (2) (3) (4)
(1) T/F execution conditions
(2) Application ID
(3) File name or field name
(4) Fail action (0=nothing, 1=warning, 2=error, 3=cancel)
Sets True/False Status Indicator
If a record is written successfully, the current true/false status indicators are modified by setting the next indicator to T. If a write fails because of an ?Already on File? condition for a unique key in the file, the next indicator is set to F. In this case, the FAIL parameter determines what additional action to take. In addition, on a false condition, the predefined field STATUS CODE returns a token indicating the reason for an I/O command failure. This token can be used as a key to read the system message file to obtain a descriptive I/O error message (see STATUS CODE for details).
Using the Statement
When using this statement in conjunction with an RDBMS table, you can specify a field name instead of a file name to limit the volume of data being passed between APPX and the RDBMS. See the Partial-Record I/O section in Specifying Statements for more information.
Execution of the WRITE statement does not modify the position in the file for subsequent BEG READ/END READ or READNEXT operations.
Related Statements
DELETE, REWRITE
Example
In the following example, invoice batch control information is transferred to a file called EDIT.
CREATE TAR EDIT SHARE? Y FAIL 0 CACHE NONE
BEG READ TAR INVOICE1 HOLD 0 KEY IS INVOICE1 KEY
SET TAR EDIT KEY = TAR INVOICE1 KEY
SET TAR EDIT FILE NAME = INVC
WRITE TAR EDIT FAIL 0
F CANCEL Unexpected Error WRITE TAR EDIT
END READ TAR INVOICE1
|