Page History

/* The program reads column 5 from the CUSTOMER record 100, and assigns a value to row.  
The new record variable is then written to column 5. */
 
open "CUSTOMER" To CUSTOMER_TABLE then
  @ID = 100
  readV column From CUSTOMER_TABLE, @ID, 5 then
    * make no presumptions about the case
 
    FIRST_CHARACTER = column[1,1]
 
    Convert @LOWER_CASE To @UPPER_CASE In FIRST_CHARACTER
 
    Convert @UPPER_CASE To @LOWER_CASE In column
 
    column[1,1] = FIRST_CHARACTER
    writeV column On CUSTOMER_TABLE, @ID, 5 else
      status = Set_FSError()
    end
  end
end