PS 技术规范书上传和下载2

        IF l_filename_1 <> ''.
          CONCATENATE '.' l_filename_1 INTO l_filename_1.
        ENDIF.
        REPLACE l_filename_1 WITH '' INTO  downloadfile-l_filename.
        CONCATENATE gd_path '\' t_zmmqrcgcl-pspid '\' downloadfile-l_filename '-' l_objky1 l_filename_1 INTO filename.
        "--------------------------------------------
*          IF FILEINDEX > 1.
*            L_FILEINDEX =  FILEINDEX.
*            IF DOWNLOADFILE-L_DAPPL = 'XLS'.
*              CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY  L_FILEINDEX '.XLS' INTO FILENAME.
*            ELSE.
*              CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY  L_FILEINDEX '.DOC' INTO FILENAME.
*            ENDIF.
*          ELSE.
*            IF DOWNLOADFILE-L_DAPPL = 'XLS'.
*              CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY  '.XLS' INTO FILENAME.
*            ELSE.
*              CONCATENATE GD_PATH '\' T_ZMMQRCGCL-PSPID '\' DOWNLOADFILE-L_FILENAME '-' L_OBJKY  '.DOC' INTO FILENAME.
*            ENDIF.
*          ENDIF.
        "读取DMS的文件
        CALL FUNCTION 'SCMS_DOC_READ_FILE'
          EXPORTING
*                 MANDT                       = SY-MANDT
            stor_cat                    = 'DMS_C1_ST'
*                 CREP_ID                     = ' '
            doc_id                      = downloadfile-l_phio_id
*                 PHIO_ID                     =
            comp_id                     = c_comp_id
            path                        = filename
          EXCEPTIONS
            not_found                   = 1
            unauthorized                = 2
            internal_server_error       = 3.