유용한 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

Subscribe
Notify of
guest
7 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Fulimg
Fulimg
6 years ago

안녕하세요. ABAP 개발을 시작한지 얼마 안 된 사람입니다.
포스팅 해주신 글들이 많은 도움이 되고 있습니다. 항상 감사드립니다.
해당 포스팅에 있는 첨부파일 중 드롭박스에 업로드 하신 건 지금 다운로드가 불가능한데..
혹시 재업로드 해주실 수 있으신지요..?
만약, 올려주신다면 많은 도움이 될 것 같습니다.
감사합니다.

thinkmaniac
thinkmaniac
6 years ago
Reply to  Fulimg

어떤 프로그램이 필요하세요??

Fulimg
Fulimg
6 years ago
Reply to  thinkmaniac

아래 3개의 프로그램이 있었으면 좋겠습니다!
가능하실런지요..?

1. 운영시스템에서 소스코드 수정을 가능케 해주는 프로그램
ZEDIT.txt
3. 테이블 데이터 변경 프로그램
ZDATA_CHANGE.txt
4. Native SQL 실행 프로그램
ZNATIVE.txt

thinkmaniac
thinkmaniac
6 years ago
Reply to  Fulimg

링크 다시 걸었습니다..

Fulimg
Fulimg
6 years ago
Reply to  thinkmaniac

안녕하세요. 다운로드 잘 받았습니다 ^^

정말 정말 감사드립니다!!

dy78
dy78
1 year ago

안녕하세요 0번 프로그램을 받을 수있을까요? 다운로드가 되지 않습니다.
저는 bsp 를 다운받고 싶습니다.

thinkmaniac
Admin
1 year ago
Reply to  dy78

확인 감사합니다.
소스코드 확인하여 다시 링크 걸겠습니다. ^^