{
{   The purpose of this request is to preserve the current position of a file}
{ opened for segment access. The effect of this request is to extract the}
{ byte_offset portion of the input pointer variable and store as the}
{ current_byte_address of the file. This request may be issued repeatedly}
{ throughout a task's usage of the file. Typically this request would be}
{ used prior to amp$close or task termination to pass the current position}
{ within the segment to a subsequent task. However, this request may be used}
{ with amp$get_segment_pointer to alternately save and retrieve the file}
{ position across application interfaces.}
{
{       BAP$SET_SEGMENT_POSITION (FILE_IDENTIFIER, CALL_BLOCK,
{         FAP_CONTROL_INFORMATION, FAP_LAYER_NUMBER, STATUS)
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access
{       identifier established when the file was opened.
{
{
{ CALL_BLOCK: (input) This paramter specifies the call block
{        used by this request.
{
{ FAP_CONTROL_INFORMATION: (input) This paramter specifies control
{        information necessary for orderly transfer of control from
{        the fap the the access method and from one access method
{        layer to another.
{
{ FAP_LAYER_NUMBER: (input) This parameter specifies the index into the
{        fap_control_information for this layer.
{
{ STATUS: (output) This parameter specifies the request status. THis is
{        the application's status variable.
{
