ADD
Add (insert) a record to a database.

Format
 Add [expr] to DATABASE [field = expr_n, ...] [/Qualifiers ...]
 exprPrimary key of new record in indexed datafile. Do not specify if the datafile is not indexed.
 fieldOptional field(s) to which to assign while adding.
 expr_nExpression to assign to optional field(s).
 If the current record for this database has been modified, it is written back to the record stream before any other record operation takes place. If an error occurs during this write-back operation (e.g. duplicate key, etc.), an error is generated for this statement. The record remains current, but is now considered to be unchanged so that the next record operation will not attempt another write-back. The ADD statement should be used instead of the BEGIN_INSERT and END_INSERT statements only when most or all of the record information is known at that point.
 NOTE
 If the ADD fails because of a duplicate key, the optional key expression is used to attempt to get the record that caused the error. This is for upward compatibility and it should not be assumed that this is the correct record if the database has multiple keys.

Qualifiers
/Fail=LABELLabel to which to branch if the statement fails.
If LABEL is %EXIT, exit the routine or loop.
If in a loop, and LABEL is %CONTINUE, continue the loop. If not in a loop, and LABEL is %CONTINUE, an error message displays.
 /Succeed=LABELLabel to which to branch if the statement succeeds.
If LABEL is %EXIT, exit the routine or loop. If in a loop, and LABEL is %CONTINUE, continue the loop. If not in a loop, and LABEL is %CONTINUE, an error message displays.
 /NofailDo not signal an error. Instead, set the
internal variable %FAIL.
 /FlushFlush the record stream so that the record is physically on disk.
 /LoadUse the load factor of the RMS datafile if specified.
 /Lock=(lock_options, ... )Use the following lock options to lock the record if it is automatically retrieved (by accessing a field in that record).
 exclusiveLock against all other record streams except READ_REGARDLESS.
 manualRecords remain locked until explicitly unlocked.
 noneRecords are not to be locked.
 nonexistentProceed with the operation even if the record does not exist (RMS relative files only).
 nowaitDo not wait if the record is locked (return an error).
 readLock the record for reading while allowing other record streams to read but not modify (ignored if write also specified).
 read_regardlessRead records even if another record stream has them locked.
 wait=nWait n seconds before returning an error if the record is locked.
 writeLock the record for writing while allowing other record streams to read but not modify.
 /Rtype=nInitialize as record type n (0-255). This is only valid if the FORMAT attribute is set for the database. Refer to the DESCRIBE header procedure for more information.
 /Size=nInitialize the RMS variable length record to a size of n.

Example
 Add to RMS RMS(KEY1) = key1, &
 RMS(KEY2) = key2 &
 /Rtype=0
 ! Initialize the record as type 0
 ! Fill in the two keys.