1.定义
data:zprog like abapsource occurs with header line,
prog() type c,
msg() type c.
2.动态语句
zprog-line = 'PROGRAM ZRICOO.'. append zprog.
zprog-line = 'START-OF-SELECTION.'. append zprog.
zprog-line = 'FORM RICOO.'. append zprog.
zprog-line = 'UPDATE ZSDT0001 SET… WHERE … .'. append zprog.
zprog-line = 'ENDFORM.'. append zprog.
generate subroutine pool zprog
name prog
message msg.
3.全部代码
*&---------------------------------------------------------------------*
*& Report ZSDA073_DO_RICO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------* REPORT ZSDA073_DO_RICO. data container1 type ref to cl_gui_custom_container.
data editor1 type ref to cl_gui_textedit.
data container2 type ref to cl_gui_custom_container.
data editor2 type ref to cl_gui_textedit.
data container3 type ref to cl_gui_custom_container.
data editor3 type ref to cl_gui_textedit. data: gt_fieldcat like lvc_s_fcat occurs with header line,
gs_layout type lvc_s_layo.
data: cuscontainer type ref to cl_gui_custom_container,
alv_grid type ref to cl_gui_alv_grid,
ls_vari type disvariant.
data:lt_excl_func type ui_functions. types:begin of t_texttable,
line() type c,
end of t_texttable.
data i_texttable type table of t_texttable. data: zprog like abapsource occurs with header line.
data: zinclude like abapsource occurs with header line. data:data() type c occurs ,
sql() type c occurs ,
dline() type c,
sline() type c,
confirm type c,
prog() type c,
msg() type c,
sqlinclude() type c,
zmsg() type c,
zt1 type string,
zt2 type string,
exflg type c,
zcom type string,
znam type string.
data:lin type i,
flg type c,
zln type char10,
zcode type string,
zn type string,
zsn type string,
z type string. start-of-selection.
z = ''''.
z = z+(). call screen . module status_0100 output.
set pf-status ''. if container1 is initial.
create object container1
exporting
container_name = 'DATACON'.
create object editor1
exporting
parent = container1
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position =
wordwrap_to_linebreak_mode = cl_gui_textedit=>true. call method editor1->set_readonly_mode
exporting
readonly_mode = cl_gui_textedit=>false. call method editor1->set_toolbar_mode
exporting
toolbar_mode = cl_gui_textedit=>false
exceptions
others = . call method editor1->set_statusbar_mode
exporting
statusbar_mode = cl_gui_textedit=>false
exceptions
others = .
endif. clear:i_texttable. append 'DATA:BEGIN OF TAB OCCURS 0,' to i_texttable.
append 'MANDT LIKE MARA-MANDT,' to i_texttable.
append 'MATNR LIKE MARA-MATNR,' to i_texttable.
append 'MAKTX LIKE MAKT-MAKTX,' to i_texttable.
append 'END OF TAB.' to i_texttable.
append 'DATA:MANDT LIKE SY-MANDT.' to i_texttable.
append 'MANDT = SY-MANDT.' to i_texttable. call method editor1->set_text_as_r3table
exporting
table = i_texttable. if container2 is initial.
create object container2
exporting
container_name = 'SQLCON'.
create object editor2
exporting
parent = container2
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position =
wordwrap_to_linebreak_mode = cl_gui_textedit=>true. call method editor2->set_readonly_mode
exporting
readonly_mode = cl_gui_textedit=>false. call method editor2->set_toolbar_mode
exporting
toolbar_mode = cl_gui_textedit=>false
exceptions
others = . call method editor2->set_statusbar_mode
exporting
statusbar_mode = cl_gui_textedit=>false
exceptions
others = .
endif. clear:i_texttable.
append 'SELECT A.MANDT,A.MATNR,B.MAKTX INTO :TAB FROM MARA A INNER ' to i_texttable.
append 'JOIN MAKT B ON A.MATNR = B.MATNR ' to i_texttable.
append 'WHERE A.MATNR like ''%33%'' AND A.MANDT = :MANDT ' to i_texttable. call method editor2->set_text_as_r3table
exporting
table = i_texttable. if container3 is initial.
create object container3
exporting
container_name = 'SMCON'.
create object editor3
exporting
parent = container3
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position =
wordwrap_to_linebreak_mode = cl_gui_textedit=>true. call method editor3->set_readonly_mode
exporting
readonly_mode = cl_gui_textedit=>true. call method editor3->set_toolbar_mode
exporting
toolbar_mode = cl_gui_textedit=>false
exceptions
others = . call method editor3->set_statusbar_mode
exporting
statusbar_mode = cl_gui_textedit=>false
exceptions
others = .
endif. clear:i_texttable.
append '注意：' to i_texttable.
append '1.先定义输出内表，然后定义变量' to i_texttable.
append '2.内表名：TAB' to i_texttable.
append '3.SQL语句变量前需加 '':''.' to i_texttable.
append '4.自定义数据表中需有''MANDT''字段，否则会操作多个''CLIENT''.' to i_texttable.
append ' ' to i_texttable.
append '如左边实例：' to i_texttable.
append ' ' to i_texttable.
append ' ' to i_texttable.
append '修改如下：' to i_texttable.
append 'UPDATE MAKT SET MAKTX = ''RICOO'' WHERE MATNR LIKE ''%RICO%'' AND MANDT = :MANDT ' to i_texttable.
call method editor3->set_text_as_r3table
exporting
table = i_texttable. endmodule. module user_command_0100 input.
case sy-ucomm.
when '&EXEC'.
clear:data,sql,dline,sline,confirm,zt1,zt2,exflg,zprog,zinclude.
refresh:data,sql,zprog,zinclude. call method editor1->get_text_as_r3table
importing
table = data. call method editor2->get_text_as_r3table
importing
table = sql. call function 'POPUP_TO_CONFIRM_STEP'
exporting
textline1 = 'DO YOU WANT TO REALLY EXEC?'
titel = 'EXIT'
importing
answer = confirm.
case confirm.
when 'N'.
exit.
when 'A'.
exit.
when 'J'.
endcase. loop at sql into sline.
if sline <> ''.
translate sline to upper case.
split sline at space into zt1 zt2.
if zt1 = 'SELECT'.
perform include_sql.
perform s_data.
else.
select single count(*) from zsdt021 where uname = sy-uname and unmtx = 'X'.
if sy-subrc = .
perform u_data.
else.
message e001() with '您无权限执行此操作！！！'.
endif.
endif.
exit.
endif.
clear:sline.
endloop.
when '&EXIT'.
leave to screen .
endcase.
endmodule. form s_data. clear:lin,zt1,zt2,zn,zln. ZPROG-LINE = 'PROGRAM ZSQL_EXEC_RICOO.'. APPEND ZPROG.
ZPROG-LINE = 'DATA:ZN TYPE STRING,'. APPEND ZPROG.
ZPROG-LINE = 'LIN TYPE I,'. APPEND ZPROG.
ZPROG-LINE = 'ZJS TYPE I.'. APPEND ZPROG.
ZPROG-LINE = 'START-OF-SELECTION.'. APPEND ZPROG. loop at data into dline.
translate dline to upper case.
search dline for 'BEGIN OF'.
if sy-subrc = .
split dline at 'OF' into zt1 zt2.
shift zt2 left deleting leading space.
split zt2 at space into zt1 zt2.
endif.
zprog-line = dline.
append zprog.
clear:dline.
endloop. ZPROG-LINE = 'FORM RICOO.'. APPEND ZPROG. clear:flg.
loop at data into dline.
translate dline to upper case.
if flg = 'X'.
zprog-line = dline.
append zprog.
endif.
search dline for 'END OF'.
if sy-subrc = .
flg = 'X'.
endif.
clear:dline.
endloop. * ZPROG-LINE = 'MANDT = SY-MANDT.'. APPEND ZPROG.
zprog-line = 'EXEC SQL PERFORMING APP_TAB.'. append zprog.
loop at sql into sline.
translate sline to upper case.
zprog-line = sline.
append zprog.
clear:sline.
endloop.
* zprog-line = ' AND MANDT = :MANDT'. append zprog.
zprog-line = 'ENDEXEC.'. append zprog.
CLEAR:ZSN.
* CONCATENATE 'APPEND ' ZT1 '.' INTO ZSN SEPARATED BY SPACE.
* zprog-line = ZSN. append zprog.
clear:ZSN.
concatenate 'EXPORT ' ZT1 ' TO MEMORY ID ''RICOO''.' INTO ZSN SEPARATED BY SPACE.
zprog-line = ZSN. append zprog.
zprog-line = 'DESCRIBE TABLE TAB LINES LIN.'. append zprog.
zprog-line = 'EXPORT LIN TO MEMORY ID ''RICOOLIN''.'. append zprog.
zprog-line = 'SUBMIT ZMMT2099_EXEC_RICOO_CALL AND RETURN.'. APPEND ZPROG.
* zprog-line = 'MESSAGE S001(00) WITH ''Exec success ！ ^_^ ''.'. append zprog.
zprog-line = 'ENDFORM.'. append zprog.
zprog-line = 'FORM APP_TAB.'. append zprog.
CLEAR:ZSN.
CONCATENATE 'APPEND ' ZT1 '.' INTO ZSN SEPARATED BY SPACE.
zprog-line = ZSN. append zprog.
zprog-line = 'ENDFORM.'. append zprog.
CLEAR:ZCODE.
generate subroutine pool zprog
name prog
message msg.
if sy-subrc <> .
message e001() with msg.
else.
perform ricoo in program (prog).
endif. endform. form u_data. zprog-line = 'PROGRAM ZRICOO.'. append zprog.
* zprog-line = 'DATA:MANDT LIKE SY-MANDT.'. append zprog.
zprog-line = 'START-OF-SELECTION.'. append zprog. loop at data into dline.
translate dline to upper case.
zprog-line = dline.
append zprog.
clear:dline.
endloop. zprog-line = 'FORM RICOO.'. append zprog. clear:flg.
loop at data into dline.
translate dline to upper case.
if flg = 'X'.
zprog-line = dline.
append zprog.
endif.
search dline for 'END OF'.
if sy-subrc = .
flg = 'X'.
endif.
clear:dline.
endloop. * zprog-line = 'EXEC SQL.'. append zprog. loop at sql into sline.
translate sline to upper case.
zprog-line = sline.
append zprog.
clear:sline.
endloop. * zprog-line = 'ENDEXEC.'. append zprog. zprog-line = 'MESSAGE S001(00) WITH ''Exec success ！ ^_^ ''.'. append zprog.
zprog-line = 'ENDFORM.'. append zprog. generate subroutine pool zprog
name prog
message msg. if sy-subrc <> .
message e001() with msg.
else.
perform ricoo in program (prog).
endif. endform. form include_sql.
clear:zinclude.
clear:lin,zt1,zt2,zn,zln.
refresh:zinclude. zinclude-LINE = 'PROGRAM ZSQL_RICOO_INCLUED.'. APPEND zinclude.
zinclude-LINE = 'DATA:ZN TYPE STRING,'. APPEND zinclude.
zinclude-LINE = 'ZJS TYPE I.'. APPEND zinclude.
zinclude-LINE = 'TYPES CODE_TYPE TYPE RSSOURCE-LINE.'. APPEND zinclude.
zinclude-LINE = 'DATA CODE LIKE TABLE OF RSSOURCE WITH HEADER LINE.'. APPEND zinclude.
zinclude-LINE = 'DATA:ZLIN TYPE I,'. APPEND zinclude.
zinclude-LINE = 'ZT TYPE I.'. APPEND zinclude.
zinclude-LINE = 'FORM ZRICOO_SQL_INCLUDE.'. APPEND zinclude.
zinclude-LINE = 'READ REPORT ''ZSQL_INCLUDE'' INTO CODE.'. APPEND zinclude.
zinclude-LINE = 'DESCRIBE TABLE CODE LINES ZLIN.'. APPEND zinclude.
zinclude-LINE = 'DO ZLIN TIMES.'. APPEND zinclude.
zinclude-LINE = 'ZT = ZT + 1.'. APPEND zinclude.
zinclude-LINE = 'MODIFY CODE INDEX ZT FROM ''''.'. APPEND zinclude.
zinclude-LINE = 'ENDDO.'. APPEND zinclude.
zinclude-LINE = 'INSERT REPORT ''ZSQL_INCLUDE'' FROM CODE.'. APPEND zinclude. loop at data into dline.
zn = zn + .
concatenate z dline z into dline.
concatenate 'ZJS = ' ZN '.' INTO ZSN SEPARATED BY SPACE.
zinclude-LINE = ZSN. APPEND zinclude.
zinclude-line = 'IF ZJS > ZLIN.'. APPEND zinclude.
CONCATENATE 'CODE-LINE = ' DLINE '.' INTO ZSN SEPARATED BY SPACE.
zinclude-LINE = ZSN. APPEND zinclude.
zinclude-LINE = 'APPEND CODE.'. APPEND zinclude.
zinclude-LINE = 'ELSE.'. APPEND zinclude.
concatenate 'MODIFY CODE INDEX ZJS FROM ' DLINE '.' INTO ZCODE SEPARATED BY SPACE.
zinclude-line = zcode. append zinclude. clear:zcode.
zinclude-LINE = 'ENDIF.'.APPEND zinclude. search dline for 'END OF'.
if sy-subrc = .
exit.
endif.
clear:dline,zcode.
endloop.
CLEAR:ZSN.
zinclude-LINE = 'ZJS = ZJS + 1.'. APPEND zinclude.
ZSN = '''RICOO'''.
CONCATENATE Z ZSN Z '.' INTO ZSN .
CONCATENATE 'IMPORT TAB FROM MEMORY ID ' ZSN INTO ZSN SEPARATED BY SPACE.
zinclude-line = 'IF ZJS > ZLIN.'. APPEND zinclude.
CONCATENATE Z ZSN Z INTO ZSN SEPARATED BY SPACE.
zinclude-line = 'CODE-LINE = '. APPEND ZINCLUDE.
CONCATENATE ' ' ZSN '.' INTO ZSN SEPARATED BY SPACE.
zinclude-LINE = ZSN. APPEND zinclude.
zinclude-LINE = 'APPEND CODE.'. APPEND zinclude.
zinclude-LINE = 'ELSE.'. APPEND zinclude.
concatenate 'MODIFY CODE INDEX ZJS FROM ' ZSN INTO ZCODE SEPARATED BY SPACE.
zinclude-line = zcode. append zinclude. clear:zcode.
zinclude-LINE = 'ENDIF.'.APPEND zinclude. zinclude-LINE = 'INSERT REPORT ''ZSQL_INCLUDE'' FROM CODE.'. APPEND zinclude.
zinclude-LINE = 'INCLUDE ZSQL_INCLUDE.'. APPEND zinclude.
zinclude-LINE = 'COMMIT WORK.'. APPEND zinclude.
zinclude-LINE = 'ENDFORM.'. APPEND zinclude.
clear:zsn,zn,zcode,dline.
generate subroutine pool zinclude
name sqlinclude
message zmsg. if sy-subrc <> .
message e001() with zmsg.
else.
perform ZRICOO_SQL_INCLUDE in program (sqlinclude).
endif. endform.