      SUBROUTINE PLH.BLD.HREF(OPT,LINK,CAPTION,EXTRA,RES)
*
*
*ALL
*PC
*Y
*
*
*
      T = ' ' : OCONV(OPT,'MCU') : ' '
      Q.OPT = ( INDEX(T,' Q ',1) <> 0 )
*
      IF Q.OPT THEN
         CAPT = PL_QUOTE(CAPTION)
      END ELSE
         CAPT = CAPTION
      END
*
      IF EXTRA <> '' THEN
         T = ' ' : EXTRA
      END ELSE
         T = ''
      END
*
      RES = '<a href="' : LINK : '"' : EXTRA : '>' : CAPT : '</a>'
*
      RETURN
   END
