{
{   The purpose of this request is to transfer a record from the user's
{ working storage area to a file opened with amc$record access_level
{ and amc$byte_addressable or amc$sequential file_organization.
{   If the record_type is amc$ansi_fixed, the record is padding_character
{ filled, if necessary.
{   This request will establish a new end of information (EOI) if the sum
{ of byte_address and working_storage_length exceeds the current EOI.
{ If the file_organization is sequential then EOI will be affected in the
{ same fashion as by amp$put_next on a sequential file.
{
{ Note: only when the file_organization is sequential can a put operation
{ shorten a file.
{
{ It is the user's responsibility to ensure that a record being
{ replaced  is the same length as the original.
{
{       AMP$PUT_DIRECT (FILE_IDENTIFIER, WORKING_STORAGE_AREA,
{         WORKING_STORAGE_LENGTH, BYTE_ADDRESS, STATUS)
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access
{       identifier established when the file was opened.
{
{ WORKING_STORAGE_AREA: (input) This parameter specifies the address of the}
{       record to be output.}
{}
{ WORKING_STORAGE_LENGTH: (input) This parameter specifies the length of the}
{       record to be output.}
{
{ BYTE_ADDRESS: (input) This parameter specifies the file byte address
{       of where the record is to be placed in the file.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITION:  ame$ring_validation_error,
{                   ame$conflicting_access_level,
{                   ame$improper_file_byte_address,
{                   ame$improper_seek_address,
{                   ame$position_beyond_eoi,
{                   ame$position_beyond_file_limit,
{                   ame$put_beyond_file_limit,
{                   ame$improper_file_id,
{                   ame$file_organization_conflict,
{                   ame$fo_block_type_conflict,
{                   ame$improper_output_attempt,
{                   ame$record_exceeds_mbl,
{                   ame$improper_wsl_value,
{                   ame$unrecovered_write_error,
{                   ame$terminal_disconnected.
{       IDENTIFIER: amc$access_method_id.
{
