WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
STORE(channel, data_area[, GETRFA:new_rfa][, LOCK:lock_spec]) [[error_list]]
The number of the channel on which the ISAM file is open in update mode (U:I). (n)
The variable containing the record to be added. (a)
(optional) Returns the record’s RFA. See GETRFA for a complete description.
(optional) Specifies whether a manual lock is applied. Automatic locking is not supported for STORE. See LOCK for a complete description.
(optional) An I/O error list. If any one of the specified errors occurs as part of the STORE, control is transferred to the associated label.
The STORE statement stores or adds a record to an ISAM file. This statement is used exclusively with ISAM files.
Once it is determined that the STORE is valid, the appropriate indexes are updated and the data is added. If the data area is longer than the defined maximum length of a record in the ISAM file, an “Invalid record size” error ($ERR_IRCSIZ) occurs and no data is transferred to the file.
On a STORE operation, all indexes have the new record’s key values inserted, unless a key is null according to the definition of the key. See ISAMC. STORE ensures that new key values are unique for keys that don’t allow duplicates. If a duplicate key is encountered, a “Duplicate key specified” error ($ERR_NODUPS) occurs.
STORE does not change the sequential context of the file for this channel. A READS following a STORE returns the record following the last READ or FIND. By default, the newly inserted record is not locked after the STORE.
Caching records to improve performance with xfServer
To improve output performance, especially when multiple records are being stored at a time, you can enable buffering by opening the file with the OPTIONS=/bufstore option. This can improve performance considerably.
The following subroutine gets new client information and stores it in an ISAM file.
subroutine getinfo a_sts ,d1 ;Returned with TRUE (successful), ;or FALSE (error) record customer last_name ,a20 first_name ,a20 crdt_limit ,a6 crdt_type ,a2 proc a_sts = %true display(TTCHN, $scr_clr(screen), $scr_pos(5, 10),"Last name: ") reads(TTCHN, last_name, done) display(TTCHN, $scr_pos(7, 10), "First name: ") reads(TTCHN, first_name, done) display(TTCHN, $scr_pos(9, 10), "Credit limit: ") reads(TTCHN, crdt_limit, done) display(TTCHN, $scr_pos(11, 10), "Credit type: ") reads(TTCHN, crdt_type, done) store(ISMCHN, customer) xreturn done, a_sts = %false xreturn endsubroutine