BASED is a storage class attribute that specifies that the declared name is a based variable. Its format is:
BASED[(r)]
In the optional form, r is a reference to a locator variable or a locator-valued function that serves as the default (implicit) locator qualifier for unqualified references to the name.