SAP을 즐기는 사람들

DATA : dsn(20) VALUE '/usr/test.dat'.
data : l_file     like soli occurs 0.

CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
   CODEPAGE                      = ' '
   FILENAME                      = 'd:\a.xls'
   FILETYPE                      = 'BIN'
 IMPORTING
   FILELENGTH                    = lv_filelength
  TABLES
    DATA_TAB                      =  l_file
          .

OPEN DATASET dsn FOR OUTPUT IN BINARY MODE.

loop at l_file.
  TRANSFER l_file TO dsn.
endloop.

CLOSE DATASET dsn.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
TEXT = '로컬에 다운로드 중.....'
EXCEPTIONS
OTHERS = 1.

CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE'
      EXPORTING
           pernr             = 사번
           begda             = 알고싶은 시작 날짜
           endda             = 알고싶은 끝 날짜
           i0001_i0007_error = '0'  <- 뭔지 몰라요 -_-;
      TABLES
           i0000             = 해당사원의 infotype 0000 데이터
           i0001             = 해당사원의 infotype 0001 데이터
           i0002             = 해당사원의 infotype 0002 데이터
           i0007             = 해당사원의 infotype 0007 데이터
           perws             = psp <- 넘겨받는 근무계획 테이블
      EXCEPTIONS
           error_occured     = 1
           abort_occured     = 2
           OTHERS            = 3.

RP_CHECK_PERNR

CALL FUNCTION 'HR_BPS_CALC_REIMB_AND_DEDUCT'
    EXPORTING
      employeenumber   = wd_this->pernr
      benefitarea      = 'SB'
      requesttype      = '1000'
      requestoption    = ls_s0718-rqopt
      requestamount    = '1'
      requestamtcurr   = 'KRW'
      keydate          = sy-datum
      reaction         = 'N'
      reimbursedamtcur = 'KRW'
    IMPORTING
      reimburseamount  = ls_s0718-rbamt
    TABLES
      error_table      = error_table.