유용한 Source Code

0. Source Code Download

– BSP 포함 (단, BSP Application 의 Description은 영어로 변경할 것)

cfile28.uf.252C8C43559F635C19ACA2.zip

1. 운영시스템에서 소스코드 수정을 가능케 해주는 프로그램

Download : ZEDIT.txt

2-1. 테이블 데이터 업로드/다운로드 프로그램

cfile2.uf.2119C95053EB1A6B3EF3BF.txt

2-2. 테이블 데이터 업로드/다운로드 프로그램

Download : ZTABLE_UPDOWN.txt

3. 테이블 데이터 변경 프로그램

Download : ZDATA_CHANGE.txt

4. Native SQL 실행 프로그램

Download : ZNATIVE.txt

5. 테이블 Download/Upload/Maintenance 프로그램

Download : ZTABLE_MAIN.txt

6. BAdI & Exit Search Program

– 검색화면

– 실행화면

Download : ZEXIT.txt

– 예전에 정리한 BAdI 수동으로 찾는 방법 : http://itpe.me/127

7. SE16N Generate Function

* global data
DATA: BEGIN OF gd,
tab         TYPE se16n_tab,
txt_tab     TYPE se16n_tab,
variant     TYPE slis_vari,
varianttext TYPE slis_varbz,
clnt(1),                     "table itself is client dependent
no_clnt_anymore(1) VALUE 'X',"do not allow clnt anymore
read_clnt(1),                "user wants to select client dep.
tech_names(1),               "technical names as column head
cwidth_opt_off(1),           "column width optimization off
no_txt(1),
scroll(1),                   "roll key columns
no_convexit(1),              "do not use convexit for output
tech_first(1),               "tech column is first one
layout_save(1),              "automatically save layout
layout_get(1),               "automatically get layout
pool(1),                     "table is pooltable
buffer(1)  VALUE ' ',        "use ALV-Buffer
zebra(1)   VALUE ' ',        "write ALV in zebra
tab_save   TYPE se16n_tab,
checkkey(1) VALUE space,     "no check key check
sapedit(1) VALUE space,      "special edit for SAP
edit(1)    VALUE space,      "user wants to edit the table
tabedit(1) VALUE space,      "table itself is editable
display(1) VALUE space,      "only display mode
no_clnt_auth(1) VALUE space, "no authority for client dependent
view(1)    VALUE space,      "view exists for table
ddic_view(1) VALUE space,    "DDIC-view exists for table
tech_view(1) VALUE space,    "technical view on table control
exit_fb_selfields TYPE funcname,  "Name des Exit-FB's
auth(4)    VALUE space,
keylen     LIKE sy-tabix,
max_lines  LIKE sy-tabix VALUE 500,
number     LIKE sy-tabix,
partial(1),
count      LIKE sy-tabix,
start_date LIKE sy-datlo,
start_time LIKE sy-timlo,
end_date   LIKE sy-datlo,
end_time   LIKE sy-timlo,
runtime    LIKE swl_pm_cvh-duration,
duration   LIKE sy-tabix,
END OF gd.

FUNCTION zexn_se16n_start.
*"--------------------------------------------------------------------
*"*"로컬인터페이스:
*"  IMPORTING
*"     VALUE(I_TAB) TYPE  SE16N_TAB OPTIONAL
*"     VALUE(I_DISPLAY) TYPE  CHAR1 DEFAULT SPACE
*"     VALUE(I_EXIT_SELFIELD_FB) TYPE  FUNCNAME DEFAULT SPACE
*"--------------------------------------------------------------------
DATA: ld_dynnr LIKE sy-dynnr VALUE '0100'.
IF NOT i_tab IS INITIAL.
gd-tab = i_tab.
ELSE.
GET PARAMETER ID 'DTB' FIELD gd-tab.
ENDIF.

*.in display mode do not allow maintenance
gd-display = i_display.

*.if exit fb set, take this to determine the selection fields
*.the interface of this function has to look like
*.    exporting i_tab        type se16n_tab
*.    tables    it_selfields structure se16n_selfields
*.set the field INPUT = 0 in it_selfields to switch the field off
gd-exit_fb_selfields = i_exit_selfield_fb.

*.Initialize the possible entry fields, depending on select option
PERFORM init_sel_opt.

CALL SCREEN ld_dynnr.

ENDFUNCTION.
*&---------------------------------------------------------------------*
*&      Form  init_sel_opt
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_sel_opt.
*.for every possible select option either the low or(and) the high field
*.is inputable

REFRESH gt_sel_init.

DEFINE makro_init.
clear gt_sel_init.
gt_sel_init-option = &1.
gt_sel_init-low    = &2.
gt_sel_init-high   = &3.
append gt_sel_init.
END-OF-DEFINITION.

makro_init opt-eq true space.
makro_init opt-ne true space.
makro_init opt-bt true true.
makro_init opt-nb true true.
makro_init opt-gt true space.
makro_init opt-lt true space.
makro_init opt-ge true space.
makro_init opt-le true space.

ENDFORM.                    " init_sel_opt

8. CTS File Download

Download : Source Code

9. ABAP Report Source Scan

Download : Source Code