SAP을 즐기는 사람들

조직영문명 유지보수 프로그램

saper — Mon, 09 Nov 2009 08:01:29 GMT

RHTRANS0

tag : 조직영문명, SAP조직영문명

RFC 기반 웹 서비스 생성 방법

saper — Mon, 09 Nov 2009 07:29:45 GMT

RFC 기반 웹서비스 생성 및 확인 방법 create_webservice.ppt

infotype 3000 screen enhance

saper — Mon, 09 Nov 2009 06:38:22 GMT

infotype 3000 screen enhance tutorial.infotype_3000_screen_enhance.ppt

hr infotype operation (emp lock free version)

saper — Mon, 09 Nov 2009 06:32:40 GMT

FUNCTION zhr_infotype_operation.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*"     VALUE(IM_INFTY) LIKE PRELP-INFTY
*"     VALUE(IM_PERNR) LIKE P0001-PERNR
*"     VALUE(IM_SUBTY) LIKE P0001-SUBTY OPTIONAL
*"     VALUE(IM_OBJPS) LIKE P0001-OBJPS OPTIONAL
*"     VALUE(IM_SPRPS) LIKE P0001-SPRPS OPTIONAL
*"     VALUE(IM_ENDDA) LIKE P0001-ENDDA OPTIONAL
*"     VALUE(IM_BEGDA) LIKE P0001-BEGDA OPTIONAL
*"     VALUE(IM_SEQNR) LIKE P0001-SEQNR OPTIONAL
*"     VALUE(IM_RECORD)
*"     VALUE(IM_OPERA) LIKE PSPAR-ACTIO
*"     VALUE(IM_TCLAS) LIKE PSPAR-TCLAS DEFAULT 'A'
*"     VALUE(IM_DIALOGMODE) TYPE C DEFAULT '0'
*"     VALUE(IM_NOCOMMIT) LIKE BAPI_STAND-NO_COMMIT OPTIONAL
*"     VALUE(IM_VIEW_FLAG) LIKE P0003-VIEKN OPTIONAL
*"     VALUE(IM_SEC_RECORD) OPTIONAL
*" EXPORTING
*"     VALUE(RETURN) LIKE BAPIRETURN1 STRUCTURE BAPIRETURN1
*"     VALUE(KEY) LIKE BAPIPAKEY STRUCTURE BAPIPAKEY
*"     VALUE(SUBRC) LIKE SY-SUBRC
*"     VALUE(MESSAGE) TYPE STRING
*" EXCEPTIONS
*"      INFTY_NOT_FOUND
*"----------------------------------------------------------------------

DATA :   BEGIN       OF    enql       OCCURS   0.
INCLUDE     STRUCTURE        seqg3.
DATA :   END         OF    enql.

DATA :   garg              LIKE       seqg3-garg.
DATA :   gtarg             LIKE       seqg3-gtarg.
DATA :   gname             LIKE       seqg3-gname.
DATA :   guname            LIKE       seqg3-guname.
DATA :   gclient           LIKE       seqg3-gclient.

DATA: lv_t569v     TYPE t569v.
DATA: lv_return    TYPE bapireturn1,
         lv_subrc     TYPE sy-subrc,
         lv_fname(128),
         lv_opera     TYPE actio,
         lv_state     TYPE vwsta,
         lv_abkrs     TYPE abkrs.

DATA: ls_record TYPE char8000,
ls_sec_record TYPE char8000.

FIELD-SYMBOLS: TYPE c,
TYPE c.

** 사원번호 강제 잠금 해제 시작
CONCATENATE sy-mandt im_pernr '*' INTO garg.
gname = 'PREL'.
guname = '*'.

CALL FUNCTION 'ENQUE_READ'
    EXPORTING
      gclient = sy-mandt
      gname   = gname
      garg    = garg
      guname = guname
    IMPORTING
      subrc   = lv_subrc
    TABLES
      enq     = enql.

IF lv_subrc = 0.

    CALL FUNCTION 'ENQUE_DELETE'
      IMPORTING
        subrc = lv_subrc
      TABLES
        enq   = enql.

ENDIF.

CLEAR : garg, gname, guname.
REFRESH: enql.

CONCATENATE sy-mandt '01CP5*' INTO garg.
gname = 'PLOGI'.
guname = '*'.

IF lv_subrc = 0.

    CALL FUNCTION 'ENQUE_DELETE'
      IMPORTING
        subrc = lv_subrc
      TABLES
        enq   = enql.

ENDIF.
** 사원번호 강제 잠금 해제 끝.

** 사원번호 잠금 시작
gclient = sy-mandt.
gname = 'PREL'.
CONCATENATE sy-mandt im_pernr '*' INTO gtarg.

CALL FUNCTION 'ENQUEUE_REPORT'
    EXPORTING
      gclient = gclient
      guname = sy-uname
      gname   = gname
      gtarg   = gtarg
    IMPORTING
      subrc   = lv_subrc
    TABLES
      enq     = enql.
** 사원번호 잠금 끝

** 급여관리 레코드를 급여관리 수정모드로 임시 변경 시작
CLEAR lv_abkrs.
SELECT   SINGLE   abkrs   FROM pa0001
           INTO     lv_abkrs
           WHERE    pernr    =    im_pernr
           AND      begda   <=    sy-datum
           AND      endda   >=    sy-datum.

CLEAR lv_t569v.
SELECT   SINGLE   *   FROM   t569v
           INTO     lv_t569v
           WHERE    abkrs    =    lv_abkrs.

IF sy-subrc = 0.

    lv_state         =    lv_t569v-state.
    lv_t569v-state   =    2.
    MODIFY t569v FROM lv_t569v.

ELSE.

    lv_t569v-abkrs = lv_abkrs.
    lv_t569v-vwsaz = 1.
    lv_t569v-pabrj = sy-datum+0(4).
    lv_t569v-pabrp = '01'.
    lv_t569v-state = 2.
    lv_t569v-uabrj = sy-datum+0(4).
    lv_t569v-uabrp = '01'.
    MODIFY t569v FROM lv_t569v.

ENDIF.
** 급여관리 레코드를 급여관리 수정모드로 임시 변경 끝

** 개인별 권한점검 해제 시작
CALL FUNCTION 'HR_PSBUFFER_INITIALIZE'.
CALL FUNCTION 'HR_READ_INFOTYPE_AUTHC_DISABLE'.
** 개인별 권한점검 해제 끝

** 인포타입 OPERATING 시작
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      infty            = im_infty
      number           = im_pernr
      subtype          = im_subty
      objectid         = im_objps
      lockindicator    = im_sprps
      validityend      = im_endda
      validitybegin    = im_begda
      recordnumber     = im_seqnr
      record           = im_record
      operation        = im_opera
      tclas            = im_tclas
      dialog_mode      = im_dialogmode
      nocommit         = im_nocommit
      view_identifier = im_view_flag
      secondary_record = im_sec_record
    IMPORTING
      return           = return
      key              = key
    EXCEPTIONS
      infty_not_found = 1
      OTHERS           = 2.

IF return-type = 'E'.

subrc = 4.

    MESSAGE ID     return-id   TYPE return-type
            NUMBER return-number
            WITH   return-message_v1 return-message_v2
                   return-message_v3 return-message_v4
            INTO   message.

ENDIF.
** 인포타입 OPERATING 끝

** 급여관리 레코드 원상복귀 시작
CLEAR lv_t569v.
SELECT   SINGLE   *   FROM   t569v
          INTO     lv_t569v
          WHERE    abkrs    =    lv_abkrs.

IF sy-subrc = 0.

lv_t569v-state = lv_state.
UPDATE t569v FROM lv_t569v.

ENDIF.
** 급여관리 레코드 원상복귀 끝

** 사원번호 잠금 해제 시작
CALL FUNCTION 'ENQUE_DELETE'
    IMPORTING
      subrc = lv_subrc
    TABLES
      enq   = enql.
** 사원번호 잠금해제 끝

ENDFUNCTION.

Component Reuse

saper — Mon, 05 Oct 2009 11:59:29 GMT

Data: lo_cmp_usage type ref to if_wd_component_usage,
lo_interfacecontroller type rf to ziwci_net310_comp_s2.

lo_cmp_usage = wd_this->wd_cpuse_alv_flight( ) .
if lo_cmp_usage->has_active_component( ) is initial.
lo_cmp_usage->create_component( ) .
endif.

lo_interfacecontroller = wd_this->wd_cpfic_customer_comp_usage( ) .
lo_interfacecotroller->showcustomer(
iv_customer_id = lv_customid ) .

HR 모듈 조직관련 팁

saper — Fri, 10 Oct 2008 03:23:08 GMT

1. 조직계획버전 복사 프로그램명: RHCOPL00
2. INACTIVE버전의 조직계획버전에서 ACTIVE 조직계획버전으로 데이타 전송: RHCOPLPT
3. PPOME의 세팅->계획버전->대체로 들어가서 서로다른 계획버전을 조회 가능
4. 조직계획 상태 변경 프로그램명: RHAKTI00    PLAN->SUBMITED->APPROVED->ACTIVE
5. 오브젝트 타입 변경로그 저장 활성화 테이블: T77CDOC_CUST
6. 오브젝트 변경내역 조회: RHCDOC_DISPLAY
7. 사원과 조직과의 intergration: t77s0 에서 plogi plogi 필드 값에 활성화시킬 plan verson 값을 셋팅
                                                          plogi feature(pe03)에서 intergration 시킬 그룹을 정의 가능
    인사마스터와 전체 pd와의 intergration: t77s0에서 plogi orga 의 값을 'X'로 셋팅

get physical mac address

saper — Tue, 19 Aug 2008 02:49:23 GMT

*"----------------------------------------------------------------------
*"*"Local interface:
*" EXPORTING
*" REFERENCE(MACADDRESS) TYPE ZTMAC
*"----------------------------------------------------------------------
DATA: gt_ipconfig TYPE TABLE OF char255,
gs_ipconfig TYPE char255.

DATA: wa_mac TYPE zsmac.
DATA : BEGIN OF itab OCCURS 0,
source TYPE string,
END OF itab.
itab-source = 'ipconfig /all>c:\hello.txt'.
APPEND itab.
itab-source = 'del c:\b.bat'.
APPEND itab.

CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename         = 'C:\b.bat' "file name
    TABLES
      data_tab         = itab    "inner table
    EXCEPTIONS
      file_write_error = 1
      file_not_found   = 2.

CALL METHOD cl_gui_frontend_services=>execute
    EXPORTING
      application            = 'c:\b.bat'
      synchronous            = 'WAIT'
    EXCEPTIONS
      cntl_error             = 1
      error_no_gui           = 2
      bad_parameter          = 3
      file_not_found         = 4
      path_not_found         = 5
      file_extension_unknown = 6
      error_execute_failed   = 7
      synchronous_failed     = 8
      not_supported_by_gui   = 9
      OTHERS                 = 10.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = 'C:\hello.txt'
    TABLES
      data_tab                = gt_ipconfig
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

LOOP AT gt_ipconfig INTO gs_ipconfig.
    IF gs_ipconfig CS 'Physical Address'.
      wa_mac = gs_ipconfig+44(17).
      APPEND wa_mac TO macaddress.
    ENDIF.
ENDLOOP.

tag : physicaladdress, macaddress, mac

송신자 지정 메일

saper — Fri, 01 Aug 2008 04:24:45 GMT

*&---------------------------------------------------------------------*
*& Report ZEXCELEMAILTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ztestmail.
CONSTANTS: con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.
DATA:    w_doc_data     LIKE    sodocchgi1,
             t_packing_list   LIKE    sopcklsti1 OCCURS 0 WITH HEADER
LINE,
             t_attachment    LIKE    solisti1 OCCURS 0 WITH HEADER LINE,

it_message LIKE solisti1 OCCURS 0 WITH HEADER LINE,

             t_receivers       LIKE    somlreci1 OCCURS 0 WITH HEADER
LINE.
DATA:    BEGIN OF itab OCCURS 0, "Excel로 될 Internal Table
             name(10) TYPE c,
             sex(4)      TYPE c,
             END OF itab.
itab-name = 'Yuanhailin'.itab-sex = 'Boy'.APPEND itab.
itab-name = 'Wondergirl'.itab-sex = 'Girl'.APPEND itab.
CONCATENATE 'MANE' 'SEX ' INTO t_attachment SEPARATED BY ','.
APPEND t_attachment.
LOOP AT itab.
CONCATENATE itab-name itab-sex INTO t_attachment SEPARATED BY ','.
CONCATENATE con_cret t_attachment INTO t_attachment.
APPEND t_attachment.
ENDLOOP.
it_message = '안녕하세요?'.
APPEND it_message.
it_message = '본문 내용 입니다'.
APPEND it_message.
w_doc_data-doc_size = STRLEN( t_attachment ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name   = 'SAPRPT'.
w_doc_data-obj_descr = '메일 제목 이다. '.
w_doc_data-sensitivty = 'F'.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type   = 'CSV'.
t_packing_list-obj_descr = '첨부파일 이름 입니다'.
t_packing_list-doc_size   = t_packing_list-body_num * 255.
APPEND t_packing_list.
t_receivers-receiver = 'hongbo@aspnc.com'.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
APPEND t_receivers.
DATA : sender_type TYPE soextreci1-adr_typ.
sender_type = 'INT'.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
    document_data       = w_doc_data   "메일 속성에관한 Structure
    put_in_outbox       = 'X'                 "발신함 저장여부
    commit_work         = 'X'                 "Process 진행여부
    sender_address      = 'hongbo@aspnc.com'
    sender_address_type = sender_type
TABLES
    packing_list        = t_packing_list "파일 속성에관한 Internal Table
    contents_bin        = t_attachment "첨부파일 내용으로 되는
    contents_txt        = it_message    "메일 본문 내용
    receivers           = t_receivers.    "수신자 속성에관한 Internal

tag : 송신자, 발신자, 메일

아무테이블이나 업로드

saper — Fri, 18 Jul 2008 03:11:29 GMT

*&---------------------------------------------------------------------*
*& Report ZUPLOADTABLE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zlghtest MESSAGE-ID at NO STANDARD PAGE HEADING.
TABLES: dd03l, " 테이블필드
dd01l, " 도메인
dd02t, " R/3-DD: SAP 테이블 텍스트
dd17s, " R/3 S_SECINDEX: 보조 인덱스, 필드
dd12t, " DD12L에 대한 텍스트 테이블
dd04t. " R/3 DD: Data element 텍스트

DATA: BEGIN OF struct OCCURS 10,
position LIKE dd03l-position,
fieldname(30),
inttype TYPE c,
intlen TYPE i,
END OF struct.

* The dynamic program source table
DATA: BEGIN OF inctabl OCCURS 10,
line(72),
END OF inctabl.
DATA: lng TYPE i,
typestring(20),
typestring2(20).

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-100.
PARAMETERS tab_name LIKE dd03l-tabname OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
* Dynamic internal table stucture
PERFORM select_field_from_table.
* Create the dynamic internal table definition in the dyn. program
PERFORM make_prg.
* Create the code processes the dynamic internal table

* Create and run the dynamic program
INSERT REPORT 'ZDYNPRO'(001) FROM inctabl.
SUBMIT zdynpro VIA SELECTION-SCREEN.
* Internal Table DownLoad.
* PERFORM download_result.
*&---------------------------------------------------------------------*

*& Form SELECT_FIELD_FROM_TABLE
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM select_field_from_table.
CLEAR dd03l.
SELECT position fieldname inttype intlen
INTO (dd03l-position,dd03l-fieldname,
dd03l-inttype,dd03l-intlen)
FROM dd03l
WHERE as4local = 'A'
AND tabname = tab_name.
MOVE-CORRESPONDING dd03l TO struct.
APPEND struct.
ENDSELECT.
DELETE struct WHERE position = 1.
DELETE struct WHERE fieldname = '.INCLUDE'.
SORT struct BY position.
ENDFORM. " SELECT_FIELD_FROM_TABLE
*&---------------------------------------------------------------------*

*& Form DOWNLOAD_RESULT
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM download_result.
CALL FUNCTION 'DOWNLOAD'
    EXPORTING
      filename = 'C:SAPworkdirZLGHTEST.txt'
      filetype = 'DAT'
    TABLES
      data_tab = inctabl.

ENDFORM. " DOWNLOAD_RESULT
*&---------------------------------------------------------------------*

*& Form MAKE_ITAB
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM make_itab.
inctabl-line = 'data: begin of dyntab occurs 10,'.
APPEND inctabl.
LOOP AT struct.
    inctabl-line = struct-fieldname.
    lng = STRLEN( struct-fieldname ).
    IF NOT struct-intlen IS INITIAL .
      IF struct-inttype = 'P'.
        typestring2 = '(13),'.
        inctabl-line+lng = typestring2.
        APPEND inctabl.
      ELSEIF struct-inttype = 'D'.
        typestring2 = '(10),'.
        inctabl-line+lng = typestring2.
        APPEND inctabl.
      ELSE.
        typestring(1) = '('.
        typestring+1(4) = struct-intlen.
        typestring+10 = '),'.
        CONDENSE typestring NO-GAPS.
        inctabl-line+lng = typestring.
* inctabl-line+15 = ','.
        APPEND inctabl.
      ENDIF.
* inctabl-line+lng = TYPESTRING.
* inctabl-line+15 = ','. APPEND inctabl.
    ENDIF.
* inctabl-line+15 = 'type '.
* inctabl-line+21 = struct-inttype.
* inctabl-line+22 = ','. APPEND inctabl.
* inctabl-line+15 = ','. APPEND inctabl.
ENDLOOP.
inctabl-line = 'end of dyntab. '.
APPEND inctabl.
ENDFORM. " MAKE_ITAB

*&---------------------------------------------------------------------*

*& Form MAKE_PRG
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM make_prg.
inctabl-line = 'REPORT ZDYNPRO MESSAGE-ID ZPP1.'.
APPEND inctabl.
PERFORM make_itab.
CONCATENATE 'DATA CP_TAB LIKE ' tab_name INTO inctabl-line
SEPARATED BY space.
CONCATENATE inctabl-line 'OCCURS 0 WITH HEADER LINE.'
INTO inctabl-line SEPARATED BY space.
APPEND inctabl.
inctabl-line = 'DATA : file LIKE rlgrap-filename,CNT TYPE I.'.
APPEND inctabl.
inctabl-line =
'SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-100.'.
APPEND inctabl.
inctabl-line =
'PARAMETERS p_fname(128) TYPE c LOWER CASE DEFAULT ''c:w'' OBLIGATORY.'.

APPEND inctabl.
inctabl-line = 'SELECTION-SCREEN END OF BLOCK b1.'. APPEND inctabl.
inctabl-line = 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.'.
APPEND inctabl.
inctabl-line = ' PERFORM call_ws_filename_get.'. APPEND inctabl.
inctabl-line = 'START-OF-SELECTION.'. APPEND inctabl.
inctabl-line = 'PERFORM data_uploading.'. APPEND inctabl.
inctabl-line = 'PERFORM insert_data_to_table.'. APPEND inctabl.
inctabl-line = 'FORM call_ws_filename_get.'. APPEND inctabl.
inctabl-line = 'CALL FUNCTION ''WS_FILENAME_GET'''. APPEND inctabl.
inctabl-line = 'EXPORTING'. APPEND inctabl.
inctabl-line = 'def_filename = file'. APPEND inctabl.
inctabl-line = 'def_path = ''c:SAPworkdir'''.
APPEND inctabl.
inctabl-line = 'mask = '',*.txt,*.TXT.'''. APPEND inctabl.
inctabl-line = 'mode = ''O'''. APPEND inctabl.
inctabl-line = 'title = ''Upload할 파일을 선택하십시요'''.
APPEND inctabl.
inctabl-line = 'IMPORTING'. APPEND inctabl.
inctabl-line = 'filename = p_fname'. APPEND inctabl.
inctabl-line = 'EXCEPTIONS'. APPEND inctabl.
inctabl-line = 'inv_winsys = 1'. APPEND inctabl.
inctabl-line = 'no_batch = 2'. APPEND inctabl.
inctabl-line = 'selection_cancel = 3'. APPEND inctabl.
inctabl-line = 'selection_error = 4'. APPEND inctabl.
inctabl-line = 'OTHERS = 5.'. APPEND inctabl.
inctabl-line = 'ENDFORM.'. APPEND inctabl.
inctabl-line = 'FORM data_uploading.'. APPEND inctabl.
inctabl-line = 'CLEAR: dyntab,dyntab[].'. APPEND inctabl.
inctabl-line = 'CALL FUNCTION ''WS_UPLOAD'''. APPEND inctabl.
inctabl-line = 'EXPORTING'. APPEND inctabl.
inctabl-line = 'codepage = '' '''. APPEND inctabl.
inctabl-line = 'filename = p_fname'. APPEND inctabl.
inctabl-line = 'filetype = ''DAT'''. APPEND inctabl.
inctabl-line = 'TABLES'. APPEND inctabl.
inctabl-line = 'data_tab = dyntab'. APPEND inctabl.
inctabl-line = 'EXCEPTIONS'. APPEND inctabl.
inctabl-line = 'conversion_error = 1'. APPEND inctabl.
inctabl-line = 'file_open_error = 2'. APPEND inctabl.
inctabl-line = 'file_read_error = 3'. APPEND inctabl.
inctabl-line = 'invalid_type = 4'. APPEND inctabl.
inctabl-line = 'no_batch = 5'. APPEND inctabl.
inctabl-line = 'unknown_error = 6'. APPEND inctabl.
inctabl-line = 'Invalid_table_width = 7'. APPEND inctabl.
inctabl-line = 'gui_refuse_filetransfer = 8'. APPEND inctabl.
inctabl-line = 'customer_error = 9.'.APPEND inctabl.
inctabl-line = 'CASE sy-subrc.'. APPEND inctabl.
inctabl-line = 'WHEN 1. MESSAGE i000 WITH ''CONVERSION ERR''.STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 2. MESSAGE i000 WITH ''FILE OPEN ERR''.STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 3. MESSAGE i000 WITH ''FILE READ ERR''.STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 4. MESSAGE i000 WITH ''INVALID TYPE ERR''.STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 5. MESSAGE i000 WITH ''NO BATCH ERROR''. STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 6. MESSAGE i000 WITH ''UNKNOWN ERROR''.STOP.'.
APPEND inctabl.
inctabl-line =
'WHEN 7. MESSAGE i000 WITH ''INALID TABLE WIDTH''.STOP.'.
APPEND inctabl.
inctabl-line =
'WHEN 8. MESSAGE i000 WITH ''GUI REFUSE FILETRANSFER''.STOP.'.
APPEND inctabl.
inctabl-line = 'WHEN 9. MESSAGE i000 WITH ''CUSTOMER ERROR''. STOP.'.
APPEND inctabl.
inctabl-line = ' ENDCASE.'. APPEND inctabl.
inctabl-line = 'ENDFORM.'. APPEND inctabl.
inctabl-line = 'FORM insert_data_to_table.'. APPEND inctabl.
inctabl-line = 'LOOP AT dyntab.'. APPEND inctabl.
inctabl-line = 'MOVE-CORRESPONDING dyntab TO cp_tab.'.
APPEND inctabl.
inctabl-line = 'append cp_tab.'. APPEND inctabl.
inctabl-line = 'ENDLOOP.'. APPEND inctabl.
CONCATENATE 'MODIFY' tab_name INTO inctabl-line SEPARATED BY space.
CONCATENATE inctabl-line 'FROM TABLE CP_TAB.' INTO inctabl-line
SEPARATED BY space.
* inctabl-line = 'MODIFY zppt003 FROM TABLE cp_tab.'.
APPEND inctabl.
inctabl-line = 'ENDFORM.'. APPEND inctabl.
ENDFORM. "MAKE_PRG

아무 테이블이나 다운로드

saper — Fri, 18 Jul 2008 02:51:21 GMT

*&---------------------------------------------------------------------*
*& Report ZDOWNLOADTABLE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zlghdown MESSAGE-ID at NO STANDARD PAGE HEADING.
TABLES: dd03l, " 테이블필드
dd01l, " 도메인
dd02t, " R/3-DD: SAP 테이블 텍스트
dd17s, " R/3 S_SECINDEX: 보조 인덱스, 필드
dd12t, " DD12L에 대한 텍스트 테이블
dd04t. " R/3 DD: Data element 텍스트

DATA: BEGIN OF struct OCCURS 10,
position LIKE dd03l-position,
fieldname(30),
inttype TYPE c,
intlen TYPE i,
END OF struct.

* The dynamic program source table
DATA: BEGIN OF inctabl OCCURS 10,
line(72),
END OF inctabl.
DATA: lng TYPE i,
typesrting(6).

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-100.
PARAMETERS tab_name LIKE dd03l-tabname OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
PERFORM select_field_from_table.
* Create the dynamic internal table definition in the dyn. program
PERFORM make_prg.

* Create and run the dynamic program
INSERT REPORT 'ZDYNPRO'(001) FROM inctabl.
SUBMIT zdynpro.
* Internal Table DownLoad.
* PERFORM download_result.
*&---------------------------------------------------------------------*

*& Form SELECT_FIELD_FROM_TABLE
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

*& Form DOWNLOAD_RESULT
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM download_result.
CALL FUNCTION 'DOWNLOAD'
    EXPORTING
      filename = 'C:tempZLGHTEST.txt'
      filetype = 'DAT'
    TABLES
      data_tab = inctabl.

ENDFORM. " DOWNLOAD_RESULT

*&---------------------------------------------------------------------*

*& Form MAKE_PRG
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM make_prg.
inctabl-line = 'REPORT ZDYNPRO MESSAGE-ID ZPP1.'.
APPEND inctabl.
CONCATENATE 'TABLES:' tab_name '.'
INTO inctabl-line SEPARATED BY space.
APPEND inctabl.
PERFORM make_itab.
CONCATENATE 'DATA IT_TAB LIKE' tab_name 'OCCURS 0 WITH HEADER LINE.'
INTO inctabl-line SEPARATED BY space.
APPEND inctabl.
inctabl-line = 'START-OF-SELECTION.'. APPEND inctabl.
inctabl-line = ' CLEAR: it_TAB,IT_TAB[].'. APPEND inctabl.
CONCATENATE 'SELECT * FROM' tab_name INTO inctabl-line SEPARATED BY
space.
APPEND inctabl.
inctabl-line = ' INTO CORRESPONDING FIELDS OF TABLE it_TAB.'.
APPEND inctabl.

inctabl-line = 'LOOP AT it_tab.'. APPEND inctabl.
inctabl-line = 'MOVE-CORRESPONDING it_tab TO dyntab.'.
APPEND inctabl.
inctabl-line = 'append dyntab.'. APPEND inctabl.
inctabl-line = 'ENDLOOP.'. APPEND inctabl.
inctabl-line = ' CALL FUNCTION ''DOWNLOAD'''. APPEND inctabl.
inctabl-line = ' EXPORTING'. APPEND inctabl.
inctabl-line = ' filename = ''C:\SAPWORKDIRDATA.TXT'''.
APPEND inctabl.
inctabl-line = ' filetype = ''DAT'''. APPEND inctabl.
inctabl-line = ' TABLES'. APPEND inctabl.
inctabl-line = ' data_tab = DYNTAB.'. APPEND inctabl.
ENDFORM. "MAKE_PRG
*&---------------------------------------------------------------------*

*& Form make_itab
*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM make_itab.
inctabl-line = 'data: begin of dyntab occurs 10,'.
APPEND inctabl.
LOOP AT struct.
    inctabl-line = struct-fieldname.
    lng = STRLEN( struct-fieldname ).
    IF NOT struct-intlen IS INITIAL .
      IF struct-inttype = 'P'.
        typesrting = '(13)'.
      ELSEIF struct-inttype = 'D'.
        typesrting = '(10)'.
      ELSE.
        typesrting(1) = '('.
        typesrting+1 = struct-intlen.
        typesrting+5 = ')'.
        CONDENSE typesrting NO-GAPS.
      ENDIF.
      inctabl-line+lng = typesrting.
    ENDIF.
* inctabl-line+15 = 'type '.
* inctabl-line+21 = struct-inttype.
* inctabl-line+22 = ','. APPEND inctabl.
    inctabl-line+15 = ','. APPEND inctabl.
ENDLOOP.
inctabl-line = 'end of dyntab. '.
APPEND inctabl.

ENDFORM. " make_itab