REPORT  Z15_047.

DATA: BEGIN OF record OCCURS 0, 

                          pernr(008),           "사원

                          begda(010),           "시작일

                          endda(010),           "종료일

~~

END OF record.

DATA gw_bdcparams    LIKE ctu_params.

DATA:messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

~ 중략~~

PARAMETERS : fname LIKE rlgrap-filename,

                                                    ftype LIKE rlgrap-filetype NO-DISPLAY.

~ 중략~~

AT SELECTION-SCREEN ON VALUE-REQUEST FOR fname.

CALL FUNCTION 'WS_FILENAME_GET'.  "파일 선택 함수

CALL FUNCTION 'WS_UPLOAD'   "파일의 내용을 인터널 테이블에 저장하는 함수

             EXPORTING

                          filename = fname

                          filetype = ftype

             TABLES

                          data_tab = record.

~ 중략~~

PERFORM bdc_dynpro      USING 'SAPMP50A' '2000'.

PERFORM bdc_field       USING 'BDC_CURSOR'

~ 중략~~

CLEAR: gw_bdcparams.

             gw_bdcparams-dismode  = 'N'.   " 처리모드

             gw_bdcparams-updmode  = 'L'.   " 갱신세션

             gw_bdcparams-cattmode = 'A'.   " CATT모드

             gw_bdcparams-defsize  = 'X'.   " 기본화면

             gw_bdcparams-racommit = 'X'.   " COMMAND 이후 지속

             gw_bdcparams-nobinpt  = ' '.   " BI 세션

             CALL TRANSACTION 'PA40' USING bdcdata

                                                                                                        OPTIONS FROM gw_bdcparams

                                                                                                        MESSAGES INTO messtab.