WRITE
Sequential Files
| COBOL |
JAVA |
| WRITE |
WriteSequentialFile |
Syntax
WriteSequentialFile ( <file>, <buffer>[, <from>] )
Parameters
- <file>
- The file id of the file to be 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.
Examples
| 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 |
WriteSequentialFile |
Syntax
WriteSequentialFile ( <file>, <buffer>[, <from>] )
Parameters
- <file>
- The file id of the file to be 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.
Examples
| 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");
}
|
