
{
{   The purpose of this request is to associate a file opened for segment
{ access with a previously defined unallocated common block.
{
{   The following assumptions prevail when using this interface:
{
{    1.  The program is responsible for describing the file and its attributes
{        such that the file may be used by other NOS/VE commands.
{
{    2.  The file has already been opened for segment access by the program
{        and the file_identifier from that open has been passed to this
{        request.
{
{    3.  The modes of access specified when opening the file are consistent
{        with the manner in which the common block will be referenced.
{
{    4.  If the file is shared by two or more asynchronous jobs or tasks, it
{        is the responsibility of the program to serialize file access.
{
{    5.  The program is responsible for establishing the size of the file
{        prior to closing it.  The amp$set_segment_eoi interface may be used
{        for this purpose.
{
{
{       PMP$ESTABLISH_SEGMENT_ACCESS (FILE_IDENTIFIER, COMMON_BLOCK,
{         SEGMENT_POINTER, STATUS)
{
{  FILE_IDENTIFIER: (input)  This parameter specifies the file access
{        identifier established when the file to be associated with the common
{        block was opened.
{
{  COMMON_BLOCK: (input)  This parameter specifies the name of a previously
{        defined unallocated common block.  This common block cannot be
{        associated with a file at the time this request is issued.
{
{  SEGMENT_POINTER: (output)  This parameter specifies a segment pointer to
{        the common block/file.  This value is of type ^seq(*).
{
{  STATUS: (output) This parameter specifies the request status.
{        CONDITIONS:
{              pme$common_file_open
{              pme$common_not_unallocated
{
