Test for a current record

Syntax

Test for a current record {file-name}

Description

This command tests for the presence of a current record from a specified file class. The flag is set if a current record for the file is found and cleared if not. The flag is also cleared if the selected file is a memory-only or a closed file. The test is carried out on the main file if no other file class is specified.

Example

# If a record for fAccounts does not exist in the current record buffer, get the first
Set main file {fAccounts}
Test for a current record {fAccounts}
If flag false 
  Find first 
End If