WRITE
Sequential Files
| COBOL | JAVA |
| WRITE | WriteSequentialFile |
Syntax
WriteSequentialFile ( <file>, <buffer>[, <from>] )
Parameter(s)
<file>
The file id of the file that is being written to.
<buffer>
The file buffer, the content that will be written to the file.
<from>
Optionally, data from this variable will be copied into the file buffer.
Example(s)
| COBOL | Java |
MOVE 'Hello World' TO SEQRECORD.
WRITE SEQDATA.
|
locDef.txtinput.assign("Hello World");
writeSequentialFile(sequentialfile, fd_Seqdata);
|
WRITE SEQDATA FROM TXTINPUT.
|
writeSequentialFile(sequentialfile, fd_Seqdata, locDef.txtinput.getValue());
|
Indexed Files
| COBOL | JAVA |
| WRITE | WriteSquentialFile |
Syntax
WriteSquentialFile ( <file>, <buffer>[, <from>] )
Parameter(s)
<file>
The file id of the file that is being written to.
<buffer>
The file buffer, the content that will be written to the file.
<from>
Optionally, data from this variable will be copied into the file buffer.
Example(s)
| COBOL | Java |
SET IDXKEY TO 5.
MOVE 'Hello World 5' TO IDXRECORD.
WRITE IDXDATA.
|
fd_Idxdata.idxkey.assign(5);
fd_Idxdata.idxrecord.assign("Hello World 5");
writeSequentialFile(indexedfile, fd_Idxdata);
|
WRITE IDXDATA FROM TXTINPUT.
|
writeSequentialFile(indexedfile, fd_Idxdata, locDef.txtinput.getValue());
|
WRITE IDXDATA
INVALID MOVE 'Error: Invalid key' TO FILESTATUS
NOT INVALID MOVE 'Write successful' TO FILESTATUS.
|
if (!(writeSequentialFile(indexedfile, fd_Idxdata))) {
locDef.filestatus.assign("Error: Invalid key");
} else {
locDef.filestatus.assign("Write successful");
}
|