{
{    The purpose of this request is to close a file open for segment access and
{ remove its association with a common block.  A subsequent
{ PMP$OPEN_COMMON_BLOCK_FILE request can be issued to reassociate the common
{ block with a file.
{
{       PMP$CLOSE_COMMON_BLOCK_FILE (COMMON_BLOCK,STATUS)
{
{  COMMON_BLOCK: (input)  This parameter specifies the common block for which
{        the association with a file is to be removed.  The file with which it
{        is associated will be closed.
{
{  STATUS: (output) This parameter specifies the request status.
{       CONDITIONS:
{             pme$common_not_unallocated
{             pme$common_file_not_open
{
