
{
{   The purpose of this request is to delete the association of a segment
{ access file to a previously defined unallocated common block.
{
{   The following assumptions prevail when using this interface:
{
{    1.  The file has already been opened for segment access by the program
{        and the association of it with the unallocated common block has
{        been made thru a call to pmp$establish_segment_access.  The
{        file_identifier from that open has been stored in the proper
{        entry in the loader's internal common block tables.
{
{    2.  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$DISESTABLISH_SEGMENT_ACCESS (COMMON_BLOCK, STATUS)
{
{  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.
{
{  STATUS: (output) This parameter specifies the request status.
{        CONDITIONS:
{                    pme$common_not_unallocated
{                    pme$common_file_open
{
