?? NEWTITLE := 'NOS/VE : File Management' ??
MODULE fmm$obtain_element_name;
?? RIGHT := 110 ??
?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc cmt$element_name
*copyc gft$system_file_identifier
*copyc iot$logical_unit
*copyc ost$status
?? POP ??
*copyc cmp$get_element_name_via_lun
*copyc dmp$convert_sfid_to_lun
*copyc fmp$get_system_file_id
?? TITLE := 'PROCEDURE [XDCL, #GATE] fmp$attach_file', EJECT ??

  PROCEDURE [XDCL, #GATE] fmp$obtain_element_name
    (    lfn: amt$local_file_name;
     VAR element_name: cmt$element_name;
     VAR status: ost$status);
*if false
    VAR
      sfid: gft$system_file_identifier,
      lun: iot$logical_unit;

    fmp$get_system_file_id (lfn, sfid, status);
    IF NOT status.normal THEN
      RETURN; {----->
    IFEND;

    dmp$convert_sfid_to_lun (sfid, lun, status);
    IF NOT status.normal THEN
      RETURN; {----->
    IFEND;

    cmp$get_element_name_via_lun (lun, element_name, status);
*else
    VAR
      sfid: gft$system_file_identifier,
      lun: iot$logical_unit;

    fmp$get_system_file_id (lfn, sfid, status);
    IF status.normal THEN
      dmp$convert_sfid_to_lun (sfid, lun, status);
      IF status.normal THEN
        cmp$get_element_name_via_lun (lun, element_name, status);
      IFEND;
    IFEND;
*ifend
  PROCEND fmp$obtain_element_name;
?? OLDTITLE ??
MODEND fmm$obtain_element_name;
