Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

OpenMatReadMatWriteReadReadVWriteV

Example

Code Block
/* The program reads row 100 in the CUSTOMER file and writes a value to column 5. */
 
@ID = 100
open "CUSTOMER" To FILE_CUSTOMER then
  read REC From FILE_CUSTOMER, @ID then
    REC<5> = "Stamford"
    Write REC On FILE_CUSTOMER, @ID else
      status = Set_FSError()
    end
  end
end