ABAP-Generate subroutine

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.