
  PROCEDURE [INLINE] pfi$get_password
    (    p_attachment_options: {input} ^fst$attachment_options;
     VAR found: boolean;
     VAR password: pft$password);

?? PUSH (LISTEXT := ON) ??

    VAR
      options_index: ost$positive_integers;

    IF p_attachment_options <> NIL THEN
      FOR options_index := 1 TO UPPERBOUND (p_attachment_options^) DO
        IF p_attachment_options^ [options_index].selector = fsc$password THEN
          found := TRUE;
          password := p_attachment_options^ [options_index].password;
          RETURN; {----->
        IFEND;
      FOREND;
    IFEND;

    found := FALSE;
    password := osc$null_name;

  PROCEND pfi$get_password;

*copyc fst$attachment_options
*copyc ost$positive_integers
*copyc pft$password
?? POP ??
