report zsaptip_009 message-id test.
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'.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
initialization.
perform check_password.
*----------------------------------------------------------------------*
* SELECTION-SCREEN *
*----------------------------------------------------------------------*
selection-screen begin of block frm1 with frame title text-001.
parameters: tabname like databrowse-tablename memory id dtb.
selection-screen skip.
selection-screen end of block frm1.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
at selection-screen on value-request for tabname.
perform f4_objname.
at selection-screen.
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 e402(mo) with tabname.
endif.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
start-of-selection.
IF tabname(1) <> 'Z'. "OR tabname(1) <> 'P'.
message e000 with '당신은 권한이 없습니다'.
EXIT.
ENDIF.
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 CHECK_PASSWORD
*&---------------------------------------------------------------------*
* 패스워드 확인
*----------------------------------------------------------------------*
form check_password .
* if not ( sy-uname = 'aaa01' )
* message e000 with '당신은 권한이 없습니다'.
* endif.
endform. " CHECK_PASSWORD
*&---------------------------------------------------------------------*
*& Form F4_OBJNAME
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f4_objname.
data: l_dnum like d020s-dnum,
l_repid like sy-repid.
l_dnum = sy-dynnr. l_repid = sy-repid.
call function 'RS_HELP_HANDLING'
exporting
dynpfield = 'TABNAME'
dynpname = l_dnum
object = 'TB '
progname = l_repid
suppress_selection_screen = 'X'.
endform. " F4_OBJNAME
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
669 | <b>easy abap 소스 전체 파일 입니다. [188] | sapjoy | 2008.05.01 | 10120 |
668 | REPORT z18_033 [47] | sapjoy | 2008.10.13 | 9031 |
667 | REPORT Z15_003 [49] | sapjoy | 2008.04.15 | 7498 |
666 | report zunicode_027. [4] | sapjoy | 2008.11.21 | 6262 |
665 | REPORT Z20_01. | sapjoy | 2012.08.01 | 5056 |
664 | REPORT z18_03. | sapjoy | 2012.08.01 | 4552 |
663 | Z01_012 [9] | sapjoy | 2006.12.02 | 4543 |
662 | Z_EXPORT_GRAPHIC_FROM_SE78 [1] | sapjoy | 2011.03.28 | 4443 |
661 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
660 | REPORT zsmw0010 | sapjoy | 2010.10.11 | 4313 |
659 | REPORT z18_028 | sapjoy | 2007.04.09 | 4278 |
658 | report zsalv_045 . | sapjoy | 2010.08.20 | 4262 |
657 | Dynamic Table Maintenance [1] | sapjoy | 2006.12.04 | 4093 |
656 | REPORT ZTABLE_UTIL | sapjoy | 2010.10.09 | 4010 |
655 | REPORT Z19_02. | sapjoy | 2012.08.01 | 3921 |
» | report zsaptip_009 [1] | sapjoy | 2010.12.10 | 3852 |
653 | INCLUDE ZXF04U01 | sapjoy | 2008.12.15 | 3695 |
652 | REPORT ZTEST_ABAPTPDF | sapjoy | 2010.10.09 | 3691 |
651 | REPORT Z_3DGRAPH. [1] | sapjoy | 2010.10.17 | 3659 |
650 | REPORT zfalv_011. | sapjoy | 2011.02.16 | 3624 |
이프로그램은 권한때문에(운영에서는 db조회권한도없담니다. 큭~) 저희도 만들어서 쓰고있습니다.
좋은 프로그램 게재 감사합니다 ^^