{
{   The purpose of this procedure is to return the 'sfid' for the specified
{ segment.
{
{        MMP$GET_SEGMENT_SFID (PVA, SFID, STATUS)
{
{ PVA: (input) This paramter specifies the segment for which the 'sfid' is
{        to be returned.
{
{ SFID: (output) This parameter is where the 'sfid' is returned to the caller.
{
{ STATUS: (output) This parameter is where the request status is returned to
{        the caller.   The possible error codes are:
{              mme$segment_not_assigned_device
{              mme$segment_number_not_in_use
{              mme$segment_number_too_big
{
