*& 테이블의 데이타를 조정합니다.
*& STANDARD TABLE도 CONTROL가능합니다.
*& 변경된 이력은 Request가 관리되지 않으므로 주의바랍니다.
REPORT z_se16.
TABLES: dd02l.
DATA: g_tabname(30) TYPE c VALUE '/1BCDWB/DB',
action TYPE sy-ucomm VALUE 'ANZE',
global_auth(4) TYPE c,
g_data_exit LIKE rs38l-name VALUE 'UPDA'.
DATA: mem_id(16) VALUE 'TABELLENANZEIGER'.
SELECTION-SCREEN: SKIP.
PARAMETERS: tabname LIKE databrowse-tablename MEMORY ID dtb.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR tabname.
PERFORM f4_objname.
AT SELECTION-SCREEN.
IF tabname(1) <> 'Y' AND tabname(1) <> 'Z'.
MESSAGE e899(mm) WITH tabname '조정불가 합니다'.
ENDIF.
SELECT * FROM dd02l
WHERE tabname = tabname
AND as4local = 'A'
AND ( tabclass <> 'INTTAB' AND tabname <> 'APPEND' AND
tabclass <> 'VIEW' ).
EXIT.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e899(mm) WITH tabname '조정불가 합니다'.
ENDIF.
START-OF-SELECTION.
CONCATENATE g_tabname tabname INTO g_tabname.
dd02l-mainflag = 'X'.
EXPORT action dd02l-mainflag global_auth
TO MEMORY ID mem_id.
SUBMIT (g_tabname) VIA SELECTION-SCREEN AND RETURN.
*&---------------------------------------------------------------------*
*& Form F4_OBJNAME
*&---------------------------------------------------------------------*
FORM f4_objname.
DATA: dnum LIKE d020s-dnum,
repid LIKE sy-repid.
dnum = sy-dynnr. repid = sy-repid.
CALL FUNCTION 'RS_HELP_HANDLING'
EXPORTING
dynpfield = 'TABNAME'
dynpname = dnum
object = 'TB '
progname = repid
suppress_selection_screen = 'X'.
ENDFORM. " F4_OBJNAME
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
67 | REPORT z_alv_smartforms [2] | 노름마치 | 2007.11.05 | 4210 |
66 | REPORT z_alv_rsusr200 [1] | 노름마치 | 2007.11.05 | 4287 |
65 | ref 소스 [4] | 풍운사랑 | 2007.09.07 | 4308 |
64 | REPORT z_email_abap_report [1] | 노름마치 | 2007.11.05 | 4377 |
63 | REPORT z_list_user_profiles [1] | 노름마치 | 2007.11.05 | 4459 |
62 | REPORT z_alv_standard_text [1] | 노름마치 | 2007.11.05 | 4492 |
61 | REPORT z_password [1] | 노름마치 | 2007.11.05 | 4520 |
60 | REPORT z_dbbrowser [2] | 노름마치 | 2007.11.05 | 4574 |
59 | BDC 샘플소스(UPLODATE DATA) [7] | sapjoy | 2007.03.26 | 4615 |
58 | ALV Grid 코드 샘플 [10] | sapjoy | 2007.03.26 | 4676 |
57 | REPORT z_mychat [1] | 노름마치 | 2007.11.05 | 4745 |
56 | REPORT z_alv_cdhdr_cdpos [1] | 노름마치 | 2007.11.05 | 4802 |
55 | REPORT z_exec_program [4] | 노름마치 | 2007.11.12 | 4904 |
54 | REPORT z_downup_table [1] | 노름마치 | 2007.11.05 | 4957 |
53 | SELECT-OPTIONS 문법 [5] | sapjoy | 2006.12.28 | 4968 |
52 | 모든 사용자의 화면에 메세지를 보내는 소스 [4] | 아밥공주 | 2007.04.02 | 5004 |
51 | internal table to an XML file [4] | BlackBean | 2007.06.04 | 5040 |
» | REPORT z_se16 [2] | 노름마치 | 2007.11.05 | 5042 |
49 | REPORT z_memory_game [1] | 노름마치 | 2007.11.05 | 5200 |
48 | 웹 연동시키기 [2] | 아밥공주 | 2007.04.02 | 5282 |
유용하게 사용하겠습니다. 감사합니다^^