    rc=STREAM(picture,'C','QUERY EXISTS')
    IF LENGTH(rc) > 0 THEN
      DO
         drive=filespec('drive',picture)
         path=filespec('path',picture)
         name=filespec('name',picture)
        parse upper value name with,
        '.'ext
      END

