{}
{   The purpose of this request is to store a pointer to a structure which
{ is owned by a file_access_procedure (FAP).}
{    This request allows the fap to allocate a structure which is}
{ peculiar to the instance of the file being accessed, i.e. peculiar}
{ to a file_identifier. The use of this request is optional. A NIL}
{ pointer will be provided as the default by the access method.}
{   This request will be rejected if the existing structure_pointer}
{ within the indicated layer is not NIL.}
{}
{       AMP$STORE_FAP_POINTER (FILE_IDENTIFIER, LAYER_NUMBER,
{         STRUCTURE_POINTER, STATUS)
{}
{ FILE_IDENTIFIER: (input) This parameter specifies the file access}
{       identifier established when the file was opened.}
{}
{ LAYER_NUMBER: (input) This parameter specifies the identity of the fap.}
{       This parameter is the same layer_number which was passed to the fap}
{       as an actual parameter.}
{}
{ STRUCTURE_POINTER: (input) This parameter specifies the address of}
{       the structure which the fap wishes to associate with this instance}
{       of the file.}
{}
{ STATUS: (output) This parameter specifies the request status.}
{       CONDITION:  ame$ring_validation_error,
{                   ame$redundant_structure_pointer,
{                   ame$improper_file_id.
{       IDENTIFIER: amc$access_method_id.
{}
