PUTPTR
Put a pointer record to the pointer file with the current record number or record ID.

Format
 Putptr using TAGNAME [/Qualifiers ...]

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.
 /Nofail=Do not signal an error. Instead, set the internal variable %FAIL.

Example
 Openptr "" as PTR /Append
 ! Open the pointer file
 Add to TRAN
 ! add a record to the database
 Putptr using PTR
 ! add a pointer also