获取文件类型

        lv_strlen = STRLEN( fname ).
        lv_strlen1 = lv_strlen.
        DO lv_strlen TIMES.
           lv_strlen1 = lv_strlen1 - 1.
           LV_CHAR = fname+lv_strlen1(1).
           IF LV_CHAR = '.'.
              lv_strlen = lv_strlen - LV_STRLEN1.
              lv_mesg = fname+lv_strlen1(lv_strlen).
              TRANSLATE lv_mesg TO UPPER CASE.
              EXIT.
           ENDIF.
        ENDDO.