FTS1_EVKEY

Extracts a keyword and occurrence, and validates the keyword

Description:

This routine serves FTS1_RFMOD. It takes a string containing a keyword and an optional occurrence in brackets, and extracts the keyword and any occurrence. It validates the keyword or the hierarchical keywords. It also returns the length of the keyword.

Invocation

CALL FTS1_EVKEY( STRING, KEYWRD, LENGTH, OCCUR, STATUS )

Arguments

STRING = CHARACTER ∗ ( ∗ ) (Given)
The string containing the keyword or hierarchical keyword in the form keyword1.keyword2.keyword3 etc. There may be a trailing [number] string which defines the occcurence of the keyword.
KEYWRD = CHARACTER ∗ ( ∗ ) (Returned)
The extracted keyword in uppercase. The supplied length is recommended to be at least 48 to allow for six full-length keywords.
LENGTH = INTEGER (Returned)
The length in characters of the keyword, so the keyword is KEYWRD( :LENGTH ).
OCCUR = INTEGER (Returned)
The occurrence of the keyword to use. If none is supplied in the STRING or the value is not a positive integer, OCCUR is assigned the value 1.
STATUS = INTEGER (Given and Returned)
The global status.