{
{   The purpose of this request is to release storage space that is currently
{ allocated to a file.}
{   This request requires that all instances of open of the local_file_name}
{ be closed prior to this request, or this request will be rejected.}
{   This request may be used to shorten an existing file or to release}
{ excess space which had been preallocated. A user who wishes to shorten}
{ the file must have an access_mode which includes pfc$shorten.}
{   If the mode is amc$redefine_eoi, the byte_address specifies a new EOI}
{ for the file. All space beyond this new EOI is released. A byte_address}
{ of zero will release all the space in the file.}
{   If the mode is amc$release_unused, any space which may exist beyond EOI}
{ is released.}
{}
{        AMP$EVICT (LOCAL_FILE_NAME, MODE, BYTE_ADDRESS, STATUS)
{
{ LOCAL_FILE_NAME: (input) This parameter specifies the local name of the file}
{       for which space is to be released.}
{
{ MODE: (input) This parameter specifies whether unused space in the}
{       file is to be released or whether the file is to be made shorter with}
{       this request.}
{
{ BYTE_ADDRESS: (input) This parameter specifies the new EOI byte}
{       address if the mode is amc$redefine_eoi. Otherwise this parameter is}
{       not used.}
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$evict_without_shorten,
{                   ame$evict_mode_param_error,
{                   ame$improper_device_class,
{                   ame$file_not_closed.
{       IDENTIFIER: amc$access_method_id.
