1.显示/查找SAP所有可执行程序清单，双击事务码执行、

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH004
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh004.
 10 TABLES: trdir, tstc.
 11 DATA: BEGIN OF gs_data,
 12         sel   TYPE boolean,     " 用于选择多行
 13         name  TYPE trdir-name,  " 程序名
 14         subc  TYPE trdir-subc,  " 程序类型
 15         rstat TYPE trdir-rstat, " 状态
 16         tcode TYPE tstc-tcode,  " 事务码
 17         ttext TYPE tstct-ttext, " 事务码描述
 18         cnam  TYPE trdir-cnam,  " 创建者
 19         cdat  TYPE trdir-cdat,  " 创建日期
 20         unam  TYPE trdir-unam,  " 最后修改人
 21         udat  TYPE trdir-udat,  " 修改日期
 22       END OF gs_data.
 23 DATA: gt_data LIKE TABLE OF gs_data. " ALV显示內表
 24 DATA: line TYPE i." ALV行数
 25 " 选择屏幕
 26 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
 27 SELECT-OPTIONS: s_name  FOR trdir-name,            " 程序名
 28                 s_tcode FOR  tstc-tcode,           " 事务码
 29                 s_cnam  FOR  trdir-cnam,           " 创建者
 30                 s_unam  FOR  trdir-unam,           " 最后修改人
 31                 s_subc  FOR  trdir-subc DEFAULT 1, " 程序类型
 32                 s_rstat FOR  trdir-rstat.          " 状态
 33 SELECTION-SCREEN END OF BLOCK b1.
 34 " F8事件
 35 
 36 START-OF-SELECTION.
 37   IF s_name[]  IS INITIAL AND " 程序名
 38      s_cnam[]  IS INITIAL AND " 创建者
 39      s_unam[]  IS INITIAL AND " 最后修改人
 40      s_subc[]  IS INITIAL AND " 程序类型
 41      s_tcode[] IS INITIAL AND " 事务码
 42      s_rstat[] IS INITIAL.    " 状态
 43 
 44     MESSAGE '请至少输入一个条件！' TYPE 'S' DISPLAY LIKE 'E'.
 45     EXIT.
 46   ENDIF.
 47   PERFORM get_data.
 48   IF gt_data[] IS INITIAL.
 49     MESSAGE '无符合条件的记录' TYPE 'S' DISPLAY LIKE 'E'.
 50     EXIT.
 51   ENDIF.
 52   PERFORM alv_data.
 53 *&---------------------------------------------------------------------*
 54 *&      Form  get_data
 55 *&---------------------------------------------------------------------*
 56 *       text  获取数据
 57 *----------------------------------------------------------------------*
 58 FORM get_data.
 59   DATA: BEGIN OF ls_tstc,
 60         tcode TYPE tstc-tcode,
 61         ttext TYPE tstct-ttext,
 62       END OF ls_tstc.
 63 
 64   DATA: lt_tstc LIKE TABLE OF ls_tstc.
 65   " 输入事务码时
 66   IF s_tcode[] IS NOT INITIAL.
 67     SELECT a~tcode
 68            b~name
 69            b~subc
 70            b~rstat
 71            b~cnam
 72            b~cdat
 73            b~unam
 74            b~udat
 75            c~ttext
 76       INTO CORRESPONDING FIELDS OF TABLE gt_data
 77       FROM tstc AS a
 78      INNER JOIN trdir AS b ON a~pgmna = b~name
 79      INNER JOIN tstct AS c ON a~tcode = c~tcode
 80      WHERE a~tcode IN s_tcode
 81        AND b~name  IN s_name   " 程序名
 82        AND b~cnam  IN s_cnam   " 创建者
 83        AND b~unam  IN s_unam   " 最后修改人
 84        AND b~subc  IN s_subc   " 程序类型
 85        AND b~rstat IN s_rstat. " 状态
 86   ELSE.
 87     " 没有输入事务码时
 88     SELECT
 89       a~name
 90       a~subc
 91       a~rstat
 92       a~cnam
 93       a~cdat
 94       a~unam
 95       a~udat
 96       b~tcode
 97       INTO CORRESPONDING FIELDS OF TABLE gt_data
 98       FROM trdir AS a
 99       LEFT JOIN tstc AS b ON a~name  = b~pgmna
100       WHERE a~name  IN s_name   " 程序名
101       AND   a~cnam  IN s_cnam   " 创建者
102       AND   a~unam  IN s_unam   " 最后修改人
103       AND   a~subc  IN s_subc   " 程序类型
104       AND   a~rstat IN s_rstat. " 状态
105 
106     IF gt_data[] IS NOT INITIAL.
107       " 查询事务码描述文本
108       SELECT
109         tcode
110         ttext
111         INTO CORRESPONDING FIELDS OF TABLE lt_tstc
112         FROM tstct
113         FOR ALL ENTRIES IN gt_data
114         WHERE tcode = gt_data-tcode.
115 
116       SORT lt_tstc BY tcode." 先排序
117       LOOP AT gt_data INTO gs_data.
118         READ TABLE lt_tstc INTO ls_tstc WITH KEY tcode = gs_data-tcode BINARY SEARCH.
119         IF sy-subrc EQ 0.
120           gs_data-ttext = ls_tstc-ttext.
121           MODIFY gt_data FROM gs_data TRANSPORTING ttext.
122         ENDIF.
123       ENDLOOP.
124     ENDIF.
125   ENDIF.
126   " 统计內表行数
127   DESCRIBE TABLE gt_data LINES line.
128   " 排序
129   SORT gt_data BY cnam cdat.
130 ENDFORM.                    "get_data
131 *&---------------------------------------------------------------------*
132 *&      Form  alv_data
133 *&---------------------------------------------------------------------*
134 *       text 显示ALV数据
135 *----------------------------------------------------------------------*
136 FORM alv_data.
137   DATA: fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
138         layout   TYPE slis_layout_alv.
139 
140   PERFORM get_layout CHANGING layout.   " alv布局
141   PERFORM get_fieldcat TABLES fieldcat. " 控制报表显示哪些栏位
142 
143   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
144     EXPORTING
145       i_callback_program       = sy-repid             " 程序名
146       is_layout                = layout               " 布局
147       i_callback_pf_status_set = 'PFSTATUS_FORM'      " STATUS
148       i_callback_user_command  = 'USER_COMMAND_FORM'  " 定义按钮的功能
149       it_fieldcat              = fieldcat[]           " alv栏目（显示字段）内表
150     TABLES
151       t_outtab                 = gt_data              " 将内表数据赋给ALV
152     EXCEPTIONS
153       program_error            = 1
154       OTHERS                   = 2.
155   IF sy-subrc <> 0.
156     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
157             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
158   ENDIF.
159 ENDFORM.                    "alv_data
160 *&---------------------------------------------------------------------*
161 *&      Form  get_layout
162 *&---------------------------------------------------------------------*
163 *       text  ALV布局设置
164 *----------------------------------------------------------------------*
165 *      -->C_LAYOUT   text
166 *----------------------------------------------------------------------*
167 FORM get_layout CHANGING c_layout TYPE slis_layout_alv.
168   CLEAR: c_layout.
169   c_layout-colwidth_optimize = 'X'." 宽度自动调节
170   c_layout-box_fieldname = 'SEL'.  " 选择多行
171   c_layout-zebra = 'X'.            " 颜色交替显示
172 ENDFORM.                    "get_layout
173 *&---------------------------------------------------------------------*
174 *&      Form  USER_COMMAND_FORM
175 *&---------------------------------------------------------------------*
176 *       text  自定义按钮功能
177 *----------------------------------------------------------------------*
178 *      -->R_UCOMM      text
179 *      -->RS_SELFIELD  text
180 *----------------------------------------------------------------------*
181 FORM user_command_form USING r_ucomm     LIKE sy-ucomm
182                              rs_selfield TYPE slis_selfield.
183   READ TABLE gt_data INTO gs_data INDEX rs_selfield-tabindex.
184   IF sy-subrc EQ 0 AND gs_data-tcode IS NOT INITIAL.
185     CASE r_ucomm.
186       WHEN '&IC1'. " 双击事件
187         CALL TRANSACTION gs_data-tcode. " 调用事务码，运行程序
188       WHEN OTHERS.
189         MESSAGE '双击事务码执行' TYPE 'S'.
190     ENDCASE.
191   ENDIF.
192 ENDFORM.                    "USER_COMMAND_FORM
193 *&---------------------------------------------------------------------*
194 *&      Form  get_fieldcat
195 *&---------------------------------------------------------------------*
196 *       text 显示字段
197 *----------------------------------------------------------------------*
198 *      -->CT_TAB     text
199 *----------------------------------------------------------------------*
200 FORM get_fieldcat TABLES ct_tab TYPE slis_t_fieldcat_alv.
201   DATA: fcat TYPE slis_fieldcat_alv.
202   DEFINE add_fcat.
203     clear fcat.
204     fcat-fieldname       = &1. " 字段名
205     fcat-seltext_l       = &2. " 显示字段文本
206     fcat-seltext_m       = &2.
207     fcat-seltext_s       = &2.
208     fcat-key             = &3. " 主键
209     fcat-hotspot         = &4. " 链接
210     fcat-checkbox        = &5. " 复选框
211     fcat-edit            = &6. " 是否可修改
212     fcat-ref_tabname     = &7. " 参考表
213     fcat-ref_fieldname   = &8. " 参考表字段
214     append fcat to ct_tab.
215   END-OF-DEFINITION.
216   add_fcat 'NAME'  '程序名'      ''  ''  ''  ''  ''  ''.
217   add_fcat 'SUBC'  '程序类型'    ''  ''  ''  ''  'TRDIR'  'SUBC'.
218   add_fcat 'RSTAT' '状态'        ''  ''  ''  ''  'TRDIR'  'RSTAT'.
219   add_fcat 'TCODE' '事务码'      ''  ''  ''  ''  ''  ''.
220   add_fcat 'TTEXT' '事务码描述'  ''  ''  ''  ''  ''  ''.
221   add_fcat 'CNAM'  '创建者'  ''  ''  ''  ''  ''  ''.
222   add_fcat 'CDAT'  '创建日期'    ''  ''  ''  ''  ''  ''.
223   add_fcat 'UNAM'  '最后修改人'  ''  ''  ''  ''  ''  ''.
224   add_fcat 'UDAT'  '修改日期'    ''  ''  ''  ''  ''  ''.
225 ENDFORM.                    "get_fieldcat
226 *&---------------------------------------------------------------------*
227 *&      Form  pfstatus_form
228 *&---------------------------------------------------------------------*
229 *       text  STATUS
230 *----------------------------------------------------------------------*
231 *      -->RT_EXTAB   text
232 *----------------------------------------------------------------------*
233 FORM pfstatus_form USING rt_extab TYPE slis_t_extab.
234   SET TITLEBAR 'ZCHENH004' WITH line. " 标题
235   SET PF-STATUS 'ZCHENH004'.         " 工具条
236 ENDFORM.                    "pfstatus_form </span>
View Code

2.程序异常捕获，防止出现ST22的dump页面

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH005
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh005.
10 DATA:gv_test   TYPE i ,
11      err_text TYPE string,
12      e TYPE REF TO cx_root.
13 *捕获异常
14 TRY.
15     gv_test = 'X'.
16     EXIT.
17   CATCH cx_root INTO e.
18     err_text = e->get_text( ).
19     WRITE:err_text.
20 
21 ENDTRY.
22 TRY.
23     gv_test = 1 / 0.
24     EXIT.
25   CATCH cx_root INTO e.
26     err_text = e->get_text( ).
27     WRITE:err_text.
28   CLEANUP.
29 
30 *    RAISE EXCEPTION e. " 使界面红掉
31     "
32 ENDTRY.
View Code
 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH017
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh017.
10 DATA:gv_test   TYPE i ,
11      err_text TYPE string,
12      e TYPE REF TO cx_root.
13 TRY.
14     gv_test = 'X'.
15 *    正常代码部分
16 *
17 *
18 *
19 *    EXIT.
20   CATCH cx_root INTO e.
21     err_text = e->get_text( ).
22     IF sy-batch = 'X'.
23       WRITE:'后台异常测试:',err_text.
24     ELSE.
25       WRITE:'前台异常测试:',err_text.
26     ENDIF.
27   CLEANUP.
28     CLEAR:err_text.
29 ENDTRY.
30 WRITE:'前台异常测试:',err_text.
View Code

3.ALV快速开发，需要在SE41中拷贝标准状态栏,

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH007
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh007.
 10 TABLES:zchenh001.
 11 DATA:gs_data TYPE zchenh001,
 12      gt_data TYPE zchenh001 OCCURS 0 WITH HEADER LINE.
 13 DATA:BEGIN OF gt_alv OCCURS 0.
 14 DATA :box(1),
 15       exception(1).
 16         INCLUDE TYPE zchenh001.
 17 DATA END OF gt_alv.
 18 
 19 
 20 PERFORM frm_insert_data.
 21 PERFORM frm_show_data.
 22 
 23 *&---------------------------------------------------------------------*
 24 *&      Form  FRM_INSERT_DATA
 25 *&---------------------------------------------------------------------*
 26 *       text
 27 *----------------------------------------------------------------------*
 28 *  -->  p1        text
 29 *  <--  p2        text
 30 *----------------------------------------------------------------------*
 31 FORM frm_insert_data .
 32 
 33   DO 10 TIMES.
 34     CLEAR:gs_data,gt_data.
 35     gs_data-znum = sy-index.
 36     CONCATENATE '陈辉' 'Test' INTO gs_data-zname.
 37     IF sy-index MOD 2 EQ 0.
 38       gs_data-zsex = '男'.
 39     ELSE.
 40       gs_data-zsex = '女'.
 41     ENDIF.
 42     gs_data-zhigh = '185'.
 43     APPEND gs_data TO gt_data.
 44   ENDDO.
 45 
 46 *  更新数据库表 等待千分之一秒后提交数据库
 47   MODIFY zchenh001 FROM TABLE gt_data.
 48   WAIT UP TO 1 / 1000 SECONDS.
 49   COMMIT WORK.
 50 
 51 *  DELETE zchenh001 FROM TABLE gt_data.
 52   LOOP AT gt_data.
 53     MOVE-CORRESPONDING gt_data TO gt_alv.
 54     gt_alv-exception = '3'.
 55     APPEND gt_alv.
 56   ENDLOOP.
 57 ENDFORM.                    " FRM_INSERT_DATA
 58 *&---------------------------------------------------------------------*
 59 *&      Form  FRM_SHOW_DATA
 60 *&---------------------------------------------------------------------*
 61 *       text
 62 *----------------------------------------------------------------------*
 63 *  -->  p1        text
 64 *  <--  p2        text
 65 *----------------------------------------------------------------------*
 66 FORM frm_show_data .
 67   DATA: fieldcat        TYPE lvc_t_fcat WITH HEADER LINE,
 68         l_grid_settings TYPE lvc_s_glay,
 69         layout          TYPE lvc_s_layo,
 70         lv_title        TYPE lvc_title.
 71   PERFORM frm_build_fieldcat TABLES fieldcat.
 72   lv_title = '数据展示'.
 73   layout-excp_fname = 'EXCEPTION'.
 74   layout-zebra = 'X'.
 75   layout-cwidth_opt = 'X'.
 76   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
 77     EXPORTING
 78       i_callback_program          = sy-repid
 79       is_layout_lvc               = layout
 80       it_fieldcat_lvc             = fieldcat[]
 81       i_callback_user_command     = 'USER_COMMAND'
 82       i_callback_pf_status_set    = 'SET_PF_STATUS'
 83 *     i_callback_html_top_of_page = 'TOP_OF_PAGE' "调用TOP_OF_PAGE FORM
 84       i_grid_settings             = l_grid_settings
 85       i_grid_title                = lv_title
 86       i_save                      = 'U'
 87 *     IT_EVENTS                   = GT_EVENTS[]
 88     TABLES
 89       t_outtab                    = gt_alv[]
 90     EXCEPTIONS
 91       program_error               = 1
 92       OTHERS                      = 2.
 93 ENDFORM.                    " FRM_SHOW_DATA
 94 *&---------------------------------------------------------------------*
 95 *&      Form  FRM_BUILD_FIELDCAT
 96 *&---------------------------------------------------------------------*
 97 *       text
 98 *----------------------------------------------------------------------*
 99 *      -->P_FIELDCAT  text
100 *----------------------------------------------------------------------*
101 FORM frm_build_fieldcat  TABLES fieldcat.
102   DATA: lt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.
103   DEFINE add2fc.
104     lt_fieldcat-fieldname = &1.
105     lt_fieldcat-scrtext_l = &2.
106     lt_fieldcat-edit = &3.
107     lt_fieldcat-checkbox = &4.
108     lt_fieldcat-ref_table = &5.
109     lt_fieldcat-ref_field = &6.
110     lt_fieldcat-no_zero = 'X'.
111     lt_fieldcat-fix_column = &7.
112     lt_fieldcat-hotspot = &8.
113     lt_fieldcat-outputlen = 100.
114     append lt_fieldcat.
115     clear lt_fieldcat.
116   END-OF-DEFINITION.
117   add2fc:
118      'BOX' '复选框' 'X' 'X' '' '' 'X' '',
119      'ZNUM' '序号' '' '' '' '' 'X' '',
120      'ZNAME' '姓名' '' '' '' '' 'X' '',
121      'ZSEX' '性别' '' '' '' '' 'X' '',
122      'ZHIGH' '身高' '' '' '' '' 'X' ''.
123   fieldcat[] = lt_fieldcat[].
124 
125 ENDFORM.                    " FRM_BUILD_FIELDCAT
126 
127 
128 *&---------------------------------------------------------------------*
129 *&      Form  frm_set_pf_status_ALL
130 *&---------------------------------------------------------------------*
131 *       text
132 *----------------------------------------------------------------------*
133 *      -->RT_EXTAB   text
134 *----------------------------------------------------------------------*
135 FORM set_pf_status USING rt_extab TYPE slis_t_extab.
136   SET PF-STATUS 'ZCHENH007'.
137 ENDFORM.                    "set_pf_status
138 
139 *&---------------------------------------------------------------------*
140 *&      Form  USER_COMMAND
141 *&---------------------------------------------------------------------*
142 *       text
143 *----------------------------------------------------------------------*
144 *      -->R_UCOMM      text
145 *      -->RS_SELFIELD  text
146 *----------------------------------------------------------------------*
147 FORM user_command  USING r_ucomm LIKE sy-ucomm
148                          rs_selfield TYPE slis_selfield.
149   CASE r_ucomm.
150     WHEN '&F03' OR '&F15' OR '&F12'.
151       SET SCREEN 0.
152       LEAVE SCREEN.
153     WHEN '&PRINT'.
154       PERFORM frm_print_data.
155     WHEN 'ALL'.
156       LOOP AT gt_alv .
157         gt_alv-box = 'X'.
158         MODIFY gt_alv TRANSPORTING box.
159       ENDLOOP .
160     WHEN 'SAL'.
161       LOOP AT gt_alv.
162         gt_alv-box = ''.
163         MODIFY gt_alv TRANSPORTING box.
164       ENDLOOP .
165     WHEN OTHERS.
166   ENDCASE.
167   rs_selfield-refresh = 'X'.
168 ENDFORM.                    "frm_user_command_ALL
169 
170 *&---------------------------------------------------------------------*
171 *&      Form  FRM_PRINT_DATA
172 *&---------------------------------------------------------------------*
173 *       text
174 *----------------------------------------------------------------------*
175 *  -->  p1        text
176 *  <--  p2        text
177 *----------------------------------------------------------------------*
178 FORM frm_print_data .
179   DATA:lt_data TYPE zchenh001 OCCURS 0 WITH HEADER LINE.
180   LOOP AT gt_alv WHERE box = 'X' AND exception = '3'.
181     MOVE-CORRESPONDING gt_alv TO lt_data.
182     APPEND lt_data.
183   ENDLOOP.
184   EXPORT lt_data TO MEMORY ID 'GT_HEAD'.
185 ENDFORM.                    " FRM_PRINT_DATA
View Code

事务码：SE41 -> 状态

从程序：SAPLKKBL

　状态：STANDARD_FULLSCREEN

到程序：XXXXXXXX

　状态：XXXXXXXX

 

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH011
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh011.
 10 *声明表
 11 * 定义内表 变量 常量 结构
 12 DATA: BEGIN OF gt_alv  OCCURS 0,
 13          col1  TYPE char50,  " alv显示的字段一
 14          col2  TYPE char50,  " alv显示的字段二
 15          col3  TYPE char50,  " alv显示的字段三
 16          col4  TYPE char50,  " alv显示的字段四
 17          exception,
 18          id TYPE icon-id,  " 图标
 19          msg(255),
 20        END OF gt_alv.
 21 *声明包含文件
 22 *定义选择屏幕
 23 *选择屏幕的PAI PBO
 24 PERFORM frm_get_data.
 25 PERFORM frm_pro_data.
 26 PERFORM frm_show_data.
 27 *&---------------------------------------------------------------------*
 28 *&      Form  FRM_GET_DATA
 29 *&---------------------------------------------------------------------*
 30 *       从表中或者其他地方抓取数据
 31 *----------------------------------------------------------------------*
 32 *  -->  p1        text
 33 *  <--  p2        text
 34 *----------------------------------------------------------------------*
 35 FORM frm_get_data .
 36 
 37 ENDFORM.                    " FRM_GET_DATA
 38 *&---------------------------------------------------------------------*
 39 *&      Form  FRM_PRO_DATA
 40 *&---------------------------------------------------------------------*
 41 *       对数据进行处理 加工
 42 *----------------------------------------------------------------------*
 43 *  -->  p1        text
 44 *  <--  p2        text
 45 *----------------------------------------------------------------------*
 46 FORM frm_pro_data .
 47   DATA:lv_id TYPE icon-id.
 48   SELECT SINGLE id INTO lv_id FROM icon WHERE name = icon_led_green.
 49   DO 10 TIMES.
 50     gt_alv-col1 = sy-index.
 51     gt_alv-col2 = sy-index + sy-index.
 52     gt_alv-col3 = sy-index * sy-index.
 53     gt_alv-col4 = sy-index MOD 2.
 54     gt_alv-exception = 3.
 55     gt_alv-msg = 'OK!'.
 56     gt_alv-id = lv_id.
 57     APPEND gt_alv.
 58   ENDDO.
 59 ENDFORM.                    " FRM_PRO_DATA
 60 *&---------------------------------------------------------------------*
 61 *&      Form  FRM_SHOW_DATA
 62 *&---------------------------------------------------------------------*
 63 *       text
 64 *----------------------------------------------------------------------*
 65 *  -->  p1        text
 66 *  <--  p2        text
 67 *----------------------------------------------------------------------*
 68 FORM frm_show_data .
 69   DATA: fieldcat        TYPE lvc_t_fcat WITH HEADER LINE,
 70        l_grid_settings TYPE lvc_s_glay,
 71        layout          TYPE lvc_s_layo,
 72        lv_title        TYPE lvc_title.
 73   PERFORM frm_build_fieldcat TABLES fieldcat.
 74   lv_title = '数据展示'.
 75   layout-excp_fname = 'EXCEPTION'.
 76   layout-zebra = 'X'.
 77   layout-cwidth_opt = 'X'.
 78   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
 79     EXPORTING
 80       i_callback_program          = sy-repid
 81       is_layout_lvc               = layout
 82       it_fieldcat_lvc             = fieldcat[]
 83       i_callback_user_command     = 'USER_COMMAND'
 84       i_callback_pf_status_set    = 'SET_PF_STATUS'
 85 *     i_callback_html_top_of_page = 'TOP_OF_PAGE' "调用TOP_OF_PAGE FORM
 86       i_grid_settings             = l_grid_settings
 87       i_grid_title                = lv_title
 88       i_save                      = 'U'
 89 *     IT_EVENTS                   = GT_EVENTS[]
 90     TABLES
 91       t_outtab                    = gt_alv[]
 92     EXCEPTIONS
 93       program_error               = 1
 94       OTHERS                      = 2.
 95 ENDFORM.                    " FRM_SHOW_DATA
 96 *&---------------------------------------------------------------------*
 97 *&      Form  FRM_BUILD_FIELDCAT
 98 *&---------------------------------------------------------------------*
 99 *       text
100 *----------------------------------------------------------------------*
101 *      -->P_FIELDCAT  text
102 *----------------------------------------------------------------------*
103 FORM frm_build_fieldcat TABLES fieldcat.
104   DATA: lt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.
105   DEFINE add2fc.
106     lt_fieldcat-fieldname = &1.
107     lt_fieldcat-scrtext_l = &2.
108     lt_fieldcat-edit = &3.
109     lt_fieldcat-checkbox = &4.
110     lt_fieldcat-ref_table = &5.
111     lt_fieldcat-ref_field = &6.
112     lt_fieldcat-no_zero = 'X'.
113     lt_fieldcat-fix_column = &7.
114     lt_fieldcat-hotspot = &8.
115     lt_fieldcat-icon = &9.
116     lt_fieldcat-outputlen = 100.
117     append lt_fieldcat.
118     clear lt_fieldcat.
119   END-OF-DEFINITION.
120   add2fc:
121      'COL1' '字段一' '' '' '' '' 'X' '' '',
122      'COL2' '字段二' '' '' '' '' 'X' '' '',
123      'COL3' '字段三' '' '' '' '' 'X' '' '',
124      'COL4' '字段四' '' '' '' '' 'X' '' '',
125      'ID'    '图标' '' '' '' '' 'X' '' 'X',
126      'MSG' '消息' '' '' '' '' 'X' '' ''.
127   fieldcat[] = lt_fieldcat[].
128 ENDFORM.                    " FRM_BUILD_FIELDCAT
129 
130 *&---------------------------------------------------------------------*
131 *&      Form  frm_set_pf_status_ALL
132 *&---------------------------------------------------------------------*
133 *       text
134 *----------------------------------------------------------------------*
135 *      -->RT_EXTAB   text
136 *----------------------------------------------------------------------*
137 FORM set_pf_status USING rt_extab TYPE slis_t_extab.
138   SET PF-STATUS 'ZCHENH011'.
139 ENDFORM.                    "set_pf_status
140 
141 *&---------------------------------------------------------------------*
142 *&      Form  USER_COMMAND
143 *&---------------------------------------------------------------------*
144 *       用户在ALV上的命令
145 *----------------------------------------------------------------------*
146 *      -->R_UCOMM      text
147 *      -->RS_SELFIELD  text
148 *----------------------------------------------------------------------*
149 FORM user_command  USING r_ucomm LIKE sy-ucomm
150                           rs_selfield TYPE slis_selfield.
151   CASE r_ucomm.
152     WHEN '&F03' OR '&F15' OR '&F12'.
153       SET SCREEN 0.
154       LEAVE SCREEN.
155     WHEN OTHERS.
156   ENDCASE.
157 
158   rs_selfield-refresh = 'X'.
159 ENDFORM.                    "frm_user_command_ALL
View Code

4.有些SE11/SE16表不能修改表中数据时，

　　通过SE37 ->  SE16N_INTERFACE

I_TAB:表名，

I_EDIT :X,

I_SAPEDIT:X 

F8执行，选中需要删除或修改的数据

5.SAP中金额转为汉字

示例：100001.11 =》 壹拾万零壹元壹角壹分整

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH008
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh008.
10 DATA:lv_in TYPE dmbtr,
11      lv_out TYPE string.
12 lv_in = '100001.11'.
13 *lv_in = 0 - lv_in.
14 PERFORM frm_conv_amount USING lv_in
15                         CHANGING lv_out.
16 WRITE:/ lv_out.
17 *&---------------------------------------------------------------------*
18 *&      Form  frm_conv_amount
19 *&---------------------------------------------------------------------*
20 *       text
21 *----------------------------------------------------------------------*
22 *      -->VALUE      text
23 *      -->(P_SOURCE) text
24 *      -->VALUE      text
25 *      -->(P_RESULT) text
26 *----------------------------------------------------------------------*
27 FORM frm_conv_amount USING value(p_source)
28                      CHANGING value(p_result).
29 
30   DATA: scr(20) TYPE c, res(60) TYPE c.
31   DATA: len TYPE i, c1 TYPE i, c2 TYPE i, c3 TYPE i.
32   DATA: d1(1) TYPE c, d2(1) TYPE c, d3 TYPE i.
33   DATA: digit(2) TYPE c, weight(2) TYPE c.
34   DATA: rule1(20) TYPE c VALUE '零壹贰叁肆伍陆柒捌玖'.
35   DATA: rule2(36) TYPE c VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟'.
36 
37   scr = p_source * 100.
38 
39   CONDENSE scr NO-GAPS.
40 
41   IF scr = '0'.
42     res = '零元'.
43   ELSE.
44     len = strlen( scr ).
45     c1 = 0.
46     d1 = '0'.
47 
48     CLEAR res.
49 
50     DO len TIMES.
51       c1 = c1 + 1.
52       c2 = len - c1.
53       MOVE scr+c2(1) TO d2.
54       d3 = d2.
55       MOVE rule1+d3(1) TO digit.
56       c3 = ( c1 - 1 ).
57       MOVE rule2+c3(1) TO weight.
58       IF d2 = '0'.
59         IF c1 = 3.
60           digit = ''.
61         ELSEIF c1 = 7.
62           digit = ''.
63         ELSEIF d1 = '0'.
64           digit = ''.
65           weight = ''.
66         ELSE.
67           weight = ''.
68         ENDIF.
69       ENDIF.
70 
71       CONCATENATE digit weight res INTO res.
72       d1 = d2.
73 
74     ENDDO.
75   ENDIF.
76 
77   CONCATENATE res '整' INTO p_result.
78 ENDFORM.                    "frm_conv_amount
View Code

 6.SE24中使用自定义的类

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH009
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh009.
10 DATA: object TYPE REF TO zchenh002.
11 DATA:speed TYPE i.
12 
13 START-OF-SELECTION.
14 
15   CREATE OBJECT object.
16   CALL METHOD object->show_speed.
17   CALL METHOD object->add_speed.
18   CALL METHOD object->show_speed.
19   speed = 10.
20   CALL METHOD object->set_speed
21     EXPORTING
22       speed_in = speed.
23   write:'程序中的Speed-->:',speed.
24   CLEAR:speed.
25   CALL METHOD object->add_speed.
26   CALL METHOD object->get_speed
27     IMPORTING
28       speed_out = speed.
29   write:'程序中的Speed-->:',speed.
View Code

7.模拟SM37后台JOB

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH010
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh010.
 10 DATA: jobcount LIKE tbtcjob-jobcount.
 11 DATA: abort TYPE c,
 12       finish TYPE c,
 13       prelim TYPE c,
 14       ready TYPE c,
 15       run TYPE c,
 16       sched TYPE c.
 17 
 18 PARAMETERS: p_name LIKE tbtcjob-jobname OBLIGATORY DEFAULT 'Z_BARRY_TEST_JOB',
 19              p_date LIKE sy-datum OBLIGATORY,
 20              p_time LIKE sy-uzeit OBLIGATORY,
 21              p_varint LIKE raldb-variant.
 22 
 23 SELECT-OPTIONS s_rept FOR sy-repid NO INTERVALS OBLIGATORY .
 24 
 25 START-OF-SELECTION.
 26   CALL FUNCTION 'JOB_OPEN' "定义一个Job
 27       EXPORTING
 28         jobname          = p_name
 29       IMPORTING
 30         jobcount         = jobcount "Job id
 31       EXCEPTIONS
 32         cant_create_job = 1
 33         invalid_job_data = 2
 34         jobname_missing = 3
 35         OTHERS           = 4.
 36   IF sy-subrc <> 0.
 37     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 38             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 39   ENDIF.
 40 
 41   LOOP AT s_rept .
 42     CALL FUNCTION 'JOB_SUBMIT' "Scheduled 这个Job
 43       EXPORTING
 44         authcknam               = sy-uname
 45         jobcount                = jobcount
 46         jobname                 = p_name
 47         report                  = s_rept-low
 48         variant                 = p_varint
 49       EXCEPTIONS
 50         bad_priparams           = 1
 51         bad_xpgflags            = 2
 52         invalid_jobdata         = 3
 53         jobname_missing         = 4
 54         job_notex               = 5
 55         job_submit_failed       = 6
 56         lock_failed             = 7
 57         program_missing         = 8
 58         prog_abap_and_extpg_set = 9
 59         OTHERS                  = 10.
 60     IF sy-subrc <> 0.
 61       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 62               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 63     ENDIF.
 64   ENDLOOP.
 65 
 66   CALL FUNCTION 'JOB_CLOSE' "Release 这个Job
 67        EXPORTING
 68          jobcount             = jobcount
 69          jobname              = p_name
 70          sdlstrtdt            = p_date
 71          sdlstrttm            = p_time
 72        EXCEPTIONS
 73          cant_start_immediate = 1
 74          invalid_startdate    = 2
 75          jobname_missing      = 3
 76          job_close_failed     = 4
 77          job_nosteps          = 5
 78          job_notex            = 6
 79          lock_failed          = 7
 80          OTHERS               = 8.
 81   IF sy-subrc <> 0.
 82     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 83             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 84   ENDIF.
 85 
 86   CALL FUNCTION 'SHOW_JOBSTATE'
 87     EXPORTING
 88       jobcount         = jobcount
 89       jobname          = p_name
 90     IMPORTING
 91       aborted          = abort
 92       finished         = finish
 93       preliminary      = prelim
 94       ready            = ready
 95       running          = run
 96       scheduled        = sched
 97     EXCEPTIONS
 98       jobcount_missing = 1
 99       jobname_missing  = 2
100       job_notex        = 3
101       OTHERS           = 4.
102   IF sy-subrc <> 0.
103     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
104             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
105   ENDIF.
106 
107   WRITE : / 'Canceled              :' , abort ,
108           / 'Finished              :' , finish,
109           / 'Scheduled Temporarily :' , prelim,
110           / 'Ready for Execution   :' , ready,
111           / 'Active                :' , run,
112           / 'Scheduling Released   :' , sched.
View Code

8.内表转JSON字符串 ，JSON转ABAP内表

方法一：

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH012
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh012.
10 TABLES:zchenh001.
11 DATA:err_text TYPE string,
12      e TYPE REF TO cx_root.
13 DATA: json_ser TYPE REF TO cl_trex_json_serializer,
14       json_des TYPE REF TO cl_trex_json_deserializer.
15 DATA: jsonstr TYPE string.
16 DATA:  BEGIN OF itab OCCURS 0.
17         INCLUDE TYPE zchenh001.
18 DATA END OF itab.
19 DATA:gs_zchenh001 TYPE zchenh001.
20 
21 START-OF-SELECTION.
22   TRY .
23 
24       SELECT * INTO CORRESPONDING FIELDS OF TABLE itab
25         FROM zchenh001 UP TO 10 ROWS.
26 
27 
28 ***内表->JSON
29       CREATE OBJECT json_ser
30         EXPORTING
31           data = itab[].
32       CALL METHOD json_ser->serialize.
33       CALL METHOD json_ser->get_data
34         RECEIVING
35           rval = jsonstr.
36 
37       WRITE:'内表转JSON',/, jsonstr,/.
38 
39 ***JSON->内表
40       CLEAR:itab,itab[].
41       CREATE OBJECT json_des.
42       CALL METHOD json_des->deserialize
43         EXPORTING
44           json = jsonstr
45         IMPORTING
46           abap = itab[].
47       WRITE:'JSON转内表',/.
48       LOOP AT itab INTO gs_zchenh001.
49         WRITE:gs_zchenh001-znum,gs_zchenh001-zname,gs_zchenh001-zsex,gs_zchenh001-zhigh,/.
50       ENDLOOP.
51 
52     CATCH cx_root INTO e.
53       err_text = e->get_text( ).
54       WRITE:err_text.
55 
56   ENDTRY.
View Code

方法二：

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH013
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh013.
10 
11 DATA:err_text TYPE string,
12      e TYPE REF TO cx_root.
13 
14 DATA:lv_content TYPE string.
15 DATA:lv_content1 TYPE string.
16 DATA:lv_json TYPE string .
17 DATA json_writer TYPE REF TO cl_sxml_string_writer.
18 
19 DATA:gs_zchenh001 TYPE zchenh001.
20 DATA:gt_oldtab    TYPE TABLE OF zchenh001.
21 DATA:gt_newtab    TYPE TABLE OF zchenh001.
22 
23 START-OF-SELECTION.
24   TRY .
25       lv_content = 'CONTENT'.
26       SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_oldtab
27         FROM zchenh001 UP TO 10 ROWS.
28 ***abap内表->JSON
29       json_writer  = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).
30       CALL TRANSFORMATION id
31                           SOURCE content = lv_content
32                                  itable  = gt_oldtab
33                           RESULT XML json_writer.
34       DATA:json TYPE etxml_line_str.
35       json = json_writer->get_output( ).
36 
37       CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING'
38         EXPORTING
39           im_xstring  = json
40           im_encoding = 'UTF-8'
41         IMPORTING
42           ex_string   = lv_json.
43 
44       "  json 转 abap内表
45       CALL TRANSFORMATION id
46                           SOURCE XML lv_json
47                           RESULT content = lv_content1
48                                  itable = gt_newtab.
49 
50       WRITE:'转换后JSON:',lv_json,/,'转换后内表',/.
51       LOOP AT gt_newtab INTO gs_zchenh001 .
52         WRITE:gs_zchenh001-znum,gs_zchenh001-zname,gs_zchenh001-zsex,gs_zchenh001-zhigh,/.
53       ENDLOOP.
54     CATCH cx_root INTO e.
55       err_text = e->get_text( ).
56       WRITE:err_text.
57 
58   ENDTRY.
View Code

9.读取SAP的页编码格式
       1.登录界面 -> 配置属性 -> 代码页  语言,编码

2.I18N 代码页配置，

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH016
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh016.
10 *DATA:  l_codepage(4) TYPE n .
11 *
12 *DATA:  l_encoding(20).
13 *
14 *CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
15 *  EXPORTING
16 *    external_name = 'GB2312'
17 *  IMPORTING
18 *    sap_codepage  = l_codepage.
19 *
20 *l_encoding = l_codepage.
21 *
22 *WRITE:'--------->',l_encoding.
23 *SKIP.
24 
25 DATA:name TYPE  c,
26     entry00 LIKE  tcp00,
27     cpisinf1 LIKE  rscptype-cpisinf1,
28     cpusedbyf1 LIKE  tcp00-cpcodepage,
29     cpisinf4 LIKE  rscptype-cpisinf4,
30     cpisinf5 LIKE  rscptype-cpisinf5,
31     cpencoding_text TYPE  c,
32     cpbyteind_text TYPE  c,
33     cpextmeth_text TYPE  c,
34     cpnlsmajor_text TYPE  c,
35     cpsource_text TYPE  c,
36     http_name TYPE  c,
37     java_name TYPE  c,
38     mime_name TYPE  c,
39     cpg_name TYPE  c,
40     fcha_name TYPE  c,
41     matching_ascii TYPE  c.
42 
43 DATA:lv_code TYPE tcp00-cpcodepage.
44 
45 DO 1000 TIMES.
46   lv_code = sy-index.
47   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
48     EXPORTING
49       input  = lv_code
50     IMPORTING
51       output = lv_code.
52 
53   CALL FUNCTION 'SCP_CODEPAGE_INFO'
54     EXPORTING
55       codepage         = lv_code
56     IMPORTING
57       name             = name
58       entry00          = entry00
59       cpisinf1         = cpisinf1
60       cpusedbyf1       = cpusedbyf1
61       cpisinf4         = cpisinf4
62       cpisinf5         = cpisinf5
63       cpencoding_text  = cpencoding_text
64       cpbyteind_text   = cpbyteind_text
65       cpextmeth_text   = cpextmeth_text
66       cpnlsmajor_text  = cpnlsmajor_text
67       cpsource_text    = cpsource_text
68       http_name        = http_name
69       java_name        = java_name
70       mime_name        = mime_name
71       cpg_name         = cpg_name
72       fcha_name        = fcha_name
73       matching_ascii   = matching_ascii
74     EXCEPTIONS
75       invalid_codepage = 1
76       internal_error   = 2
77       OTHERS           = 3.
78   IF sy-subrc <> 0.
79 
80   ENDIF.
81 
82   WRITE:'NAME',name,/
83         'ENTRY00',entry00,/
84         'CPUSEDBYF1',cpusedbyf1.
85 
86 ENDDO.
View Code

 10.SAP中模糊查询  使用like和 % 通配符

 1 DATA: l_setname TYPE setnamenew.
 2 
 3   e_ret = 'S'.
 4 
 5   CONCATENATE i_setname '%' INTO l_setname.
 6 
 7 * 读取集值
 8   SELECT setname lineid valsign valoption valfrom valto
 9     INTO TABLE t_setleaf
10     FROM setleaf
11     WHERE setname LIKE l_setname.
12 
13   IF sy-subrc NE 0.
14     e_ret = 'F'.
15     e_msg = '未取到集数据'.
16 
17     EXIT.
18   ENDIF.
View Code

11.SAP中关于Excel的OLE操作

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH021
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh021.
 10 TYPE-POOLS ole2 .
 11 DATA:  count TYPE i,
 12        count_real TYPE i,
 13        application TYPE ole2_object,
 14        workbook TYPE ole2_object,
 15        excel     TYPE ole2_object,
 16        sheet TYPE ole2_object,
 17        cells TYPE ole2_object.
 18 CONSTANTS: row_max TYPE i VALUE 256.
 19 DATA index TYPE i.
 20 
 21 
 22 DATA:
 23       h_cell        TYPE ole2_object,        " cell
 24       h_f           TYPE ole2_object,        " font
 25       h_int         TYPE ole2_object,
 26       h_width       TYPE ole2_object,
 27       h_columns     TYPE ole2_object,
 28       h_rows        TYPE ole2_object,
 29       h_font        TYPE ole2_object,
 30       h_entirecol   TYPE ole2_object.
 31 .
 32 
 33 CREATE OBJECT excel 'EXCEL.APPLICATION'.
 34 
 35 IF sy-subrc NE 0.
 36   WRITE: / 'No EXCEL creation possible'.
 37   STOP.
 38 ENDIF.
 39 
 40 SET PROPERTY OF excel 'DisplayAlerts' = 0.
 41 
 42 CALL METHOD OF
 43     excel
 44     'WORKBOOKS' = workbook.
 45 
 46 SET PROPERTY OF excel 'VISIBLE' = 1.
 47 
 48 
 49 SET PROPERTY OF excel 'SheetsInNewWorkbook' = 1.
 50 CALL METHOD OF
 51     workbook
 52     'ADD'.
 53 
 54 CALL METHOD OF
 55     excel
 56     'WORKSHEETS' = sheet
 57   EXPORTING
 58     #1           = 1.
 59 
 60 SET PROPERTY OF sheet 'NAME' = 'Color Palette'.
 61 CALL METHOD OF
 62     sheet
 63     'ACTIVATE'.
 64 
 65 DATA: col TYPE i VALUE 1,
 66       row TYPE i VALUE 2,
 67       col1 TYPE i VALUE 2,
 68       col_real TYPE i VALUE 1.
 69 
 70 row = 1.
 71 col = 2.
 72 CALL METHOD OF
 73     excel
 74     'Cells' = h_cell
 75   EXPORTING
 76     #1      = row
 77     #2      = col.
 78 SET PROPERTY OF h_cell 'Value' = 'No.'.
 79 
 80 col = col + 1.
 81 CALL METHOD OF
 82     excel
 83     'Cells' = h_cell
 84   EXPORTING
 85     #1      = row
 86     #2      = col.
 87 SET PROPERTY OF h_cell 'Value' = 'Background'.
 88 
 89 col = col + 1.
 90 CALL METHOD OF
 91     excel
 92     'Cells' = h_cell
 93   EXPORTING
 94     #1      = row
 95     #2      = col.
 96 SET PROPERTY OF h_cell 'Value' = 'Foreground with white background'.
 97 
 98 col = col + 1.
 99 CALL METHOD OF
100     excel
101     'Cells' = h_cell
102   EXPORTING
103     #1      = row
104     #2      = col.
105 SET PROPERTY OF h_cell 'Value' = 'Foreground with black background'.
106 
107 CALL METHOD OF
108     excel
109     'Rows' = h_rows
110   EXPORTING
111     #1     = '2:2'.
112 SET PROPERTY OF h_rows 'WrapText' = 1.
113 
114 col = 8.
115 CALL METHOD OF
116     excel
117     'Cells' = h_cell
118   EXPORTING
119     #1      = row
120     #2      = col.
121 SET PROPERTY OF h_cell 'Value' = 'No.'.
122 
123 col = col + 1.
124 CALL METHOD OF
125     excel
126     'Cells' = h_cell
127   EXPORTING
128     #1      = row
129     #2      = col.
130 SET PROPERTY OF h_cell 'Value' = 'Background'.
131 
132 col = col + 1.
133 CALL METHOD OF
134     excel
135     'Cells' = h_cell
136   EXPORTING
137     #1      = row
138     #2      = col.
139 SET PROPERTY OF h_cell 'Value' = 'Foreground with white background'.
140 SET PROPERTY OF h_cell 'Bold' = 1.
141 
142 col = col + 1.
143 CALL METHOD OF
144     excel
145     'Cells' = h_cell
146   EXPORTING
147     #1      = row
148     #2      = col.
149 SET PROPERTY OF h_cell 'Value' = 'Foreground with black background'.
150 
151 CALL METHOD OF
152     excel
153     'Rows' = h_rows
154   EXPORTING
155     #1     = '1:1'.
156 SET PROPERTY OF h_rows 'WrapText' = 1.
157 GET PROPERTY OF h_rows 'Font' = h_font.
158 SET PROPERTY OF h_font 'Bold' = 1.
159 
160 
161 count = 1.
162 count_real = count.
163 row = 2.
164 col = 2.
165 DO 56 TIMES.
166   PERFORM write_num_and_color.
167 ENDDO.
168 
169 
170 CALL METHOD OF
171     excel
172     'Columns' = h_columns
173   EXPORTING
174     #1        = 'B:K'.
175 GET PROPERTY OF h_columns 'EntireColumn' = h_entirecol.
176 SET PROPERTY OF h_entirecol 'Autofit' = 1.
177 
178 
179 
180 *&---------------------------------------------------------------------*
181 *&      Form  write_num_and_color
182 *&---------------------------------------------------------------------*
183 *       text
184 *----------------------------------------------------------------------*
185 FORM write_num_and_color.
186 
187   " write the color number
188   index = row_max * ( row - 1 ) + col.
189   CALL METHOD OF
190       sheet
191       'Cells' = cells
192     EXPORTING
193       #1      = index.
194   SET PROPERTY OF cells 'Value' = count_real.
195 
196   " write the color as the background
197   col = col + 1.
198   CALL METHOD OF
199       excel
200       'Cells' = h_cell
201     EXPORTING
202       #1      = row
203       #2      = col.
204   GET PROPERTY OF h_cell 'Interior'   = h_int.
205   SET PROPERTY OF h_int  'ColorIndex' = count_real.
206 
207   " write the color as the foreground with a white background
208   col = col + 1.
209   CALL METHOD OF
210       excel
211       'Cells' = h_cell
212     EXPORTING
213       #1      = row
214       #2      = col.
215   SET PROPERTY OF h_cell 'Value' = 'Sample Text'.
216   GET PROPERTY OF h_cell 'Font'    = h_f.
217   SET PROPERTY OF h_f 'ColorIndex' = count_real.
218 
219   " write the color as the foreground with a black background
220   col = col + 1.
221   CALL METHOD OF
222       excel
223       'Cells' = h_cell
224     EXPORTING
225       #1      = row
226       #2      = col.
227   GET PROPERTY OF h_cell 'Interior'   = h_int.
228   SET PROPERTY OF h_int  'ColorIndex' = 1.
229   SET PROPERTY OF h_cell 'Value' = 'Sample Text'.
230   GET PROPERTY OF h_cell 'Font'    = h_f.
231   SET PROPERTY OF h_f 'ColorIndex' = count_real.
232 
233   row = row + 1.
234   col = col - 3.
235   count = count + 1.
236   IF count = 29.
237     count = 1.
238     row = 2.
239     col = col + 6.
240   ENDIF.
241   count_real = count_real + 1.
242 
243 ENDFORM.                    "write_num_and_color
View Code

12.SAP中动态内表

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH022
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh022.
10 TYPE-POOLS:   abap.
11 FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,
12               <dyn_wa>,
13               <dyn_field>.
14 DATA: dy_table TYPE REF TO data,
15       dy_line  TYPE REF TO data,
16       xfc      TYPE        lvc_s_fcat,
17       ifc      TYPE        lvc_t_fcat.
18 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
19 PARAMETERS: p_table(30)  TYPE c DEFAULT 'T001'.
20 SELECTION-SCREEN END OF BLOCK b1.
21 
22 START-OF-SELECTION.
23   PERFORM get_structure.
24   PERFORM create_dynamic_itab.
25   PERFORM get_data.
26   PERFORM write_out.
27 *&--------------------------------------------------------------------*
28 *&      Form  get_structure
29 *&--------------------------------------------------------------------*
30 *       text
31 *---------------------------------------------------------------------*
32 FORM get_structure.
33   DATA: idetails      TYPE        abap_compdescr_tab,
34         xdetails      TYPE        abap_compdescr.
35   DATA: ref_table_des TYPE REF TO cl_abap_structdescr.
36   ref_table_des ?= cl_abap_typedescr=>describe_by_name( p_table ).
37 
38   idetails[] = ref_table_des->components[].
39   LOOP AT idetails INTO xdetails.
40     CLEAR xfc.
41     xfc-fieldname = xdetails-name.
42     xfc-datatype  = xdetails-type_kind.
43     xfc-inttype   = xdetails-type_kind.
44     xfc-intlen    = xdetails-length.
45     xfc-decimals  = xdetails-decimals.
46     APPEND xfc TO ifc.
47   ENDLOOP.
48 ENDFORM.                    "get_structure
49 *&--------------------------------------------------------------------*
50 *&      Form  create_dynamic_itab
51 *&--------------------------------------------------------------------*
52 *       text
53 *---------------------------------------------------------------------*
54 FORM create_dynamic_itab.
55   CALL METHOD cl_alv_table_create=>create_dynamic_table
56     EXPORTING
57       it_fieldcatalog = ifc
58     IMPORTING
59       ep_table        = dy_table.
60   ASSIGN dy_table->* TO <dyn_table>.
61   CREATE DATA dy_line LIKE LINE OF <dyn_table>.
62   ASSIGN dy_line->* TO <dyn_wa>.
63 ENDFORM.                    "create_dynamic_itab
64 *&--------------------------------------------------------------------*
65 *&      Form  get_data
66 *&--------------------------------------------------------------------*
67 *       text
68 *---------------------------------------------------------------------*
69 FORM get_data.
70   SELECT * INTO TABLE <dyn_table> FROM (p_table).
71 ENDFORM.                    "get_data
72 *&--------------------------------------------------------------------*
73 *&      Form  write_out
74 *&--------------------------------------------------------------------*
75 *       text
76 *---------------------------------------------------------------------*
77 FORM write_out.
78   LOOP AT <dyn_table> INTO <dyn_wa>.
79     DO.
80       ASSIGN COMPONENT sy-index OF STRUCTURE <dyn_wa> TO <dyn_field>.
81       IF sy-subrc <> 0.
82         EXIT.
83       ENDIF.
84       IF sy-index = 1.
85         WRITE:/ <dyn_field>.
86       ELSE.
87         WRITE: <dyn_field>.
88       ENDIF.
89     ENDDO.
90   ENDLOOP.
91 ENDFORM.                    "write_out
View Code

13. SAP中XML生成并解析

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH027
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 
  9 REPORT zchenh027.
 10 * 参考江正军的博客：https://www.cnblogs.com/jiangzhengjun/p/4265595.html
 11 TYPE-POOLS: ixml,abap.
 12 TYPES: BEGIN OF xml_line,
 13         data(1024) TYPE x,"这里的长度设置不会影响输出结果，设置成1都可以
 14        END OF xml_line.
 15 DATA: l_ixml            TYPE REF TO if_ixml,
 16       l_streamfactory   TYPE REF TO if_ixml_stream_factory,
 17       l_ostream         TYPE REF TO if_ixml_ostream,
 18       l_renderer        TYPE REF TO if_ixml_renderer,
 19       l_document        TYPE REF TO if_ixml_document.
 20 DATA: l_element_flights TYPE REF TO if_ixml_element,
 21       l_element_airline TYPE REF TO if_ixml_element,
 22       l_element_flight  TYPE REF TO if_ixml_element,
 23       l_element_dummy   TYPE REF TO if_ixml_element,
 24       l_value           TYPE string.
 25 DATA: l_xml_table       TYPE TABLE OF xml_line WITH HEADER LINE,
 26       l_xml_size        TYPE i,
 27       l_rc              TYPE i.
 28 FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,
 29               <dyn_wa>,
 30               <dyn_field>.
 31 DATA: path TYPE string VALUE 'd:/users/DNAT10218/Desktop/TEST/XML/\flights.xml'. " xml文件保存的路径
 32 DATA: dy_table TYPE REF TO data,
 33       dy_line  TYPE REF TO data,
 34       xfc      TYPE        lvc_s_fcat,
 35       ifc      TYPE        lvc_t_fcat.
 36 
 37 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
 38 PARAMETERS: p_table(30)  TYPE c DEFAULT 'T001'.
 39 SELECTION-SCREEN END OF BLOCK b1.
 40 
 41 START-OF-SELECTION.
 42 
 43   PERFORM frm_get_structure.  "获取表结构
 44   PERFORM create_dynamic_itab.
 45   PERFORM frm_get_data.       "取数
 46 
 47   PERFORM frm_create_xml_file."生成XML数据
 48   PERFORM frm_save_xml_file.  "保存到本地XML文件
 49   PERFORM frm_open_xml_file.  "打开本地XML文件
 50   PERFORM frm_xml_to_str.     "将XML转换成字符串并解析
 51 
 52 
 53 ****************************************************************
 54 *&---------------------------------------------------------------------*
 55 *&      Form  GET_STRUCTURE
 56 *&---------------------------------------------------------------------*
 57 *       text
 58 *----------------------------------------------------------------------*
 59 *  -->  p1        text
 60 *  <--  p2        text
 61 *----------------------------------------------------------------------*
 62 FORM frm_get_structure .
 63 * 参考江正军SAP 表的反射 https://www.cnblogs.com/jiangzhengjun/p/4264644.html
 64   DATA: idetails      TYPE        abap_compdescr_tab,
 65         xdetails      TYPE        abap_compdescr.
 66   DATA: ref_table_des TYPE REF TO cl_abap_structdescr.
 67 
 68 *  ref_table_des ?= cl_abap_typedescr=>describe_by_name( p_table )."结构类型
 69   ref_table_des ?= cl_abap_tabledescr=>describe_by_name( p_table )."结构类型
 70 
 71   idetails[] = ref_table_des->components[]."组成结构体的各个字段组件
 72 
 73   LOOP AT idetails INTO xdetails.
 74     CLEAR xfc.
 75     xfc-fieldname = xdetails-name.
 76     xfc-datatype  = xdetails-type_kind.
 77     xfc-inttype   = xdetails-type_kind.
 78     xfc-intlen    = xdetails-length.
 79     xfc-decimals  = xdetails-decimals.
 80     APPEND xfc TO ifc.
 81   ENDLOOP.
 82 ENDFORM.                    " GET_STRUCTURE
 83 *&---------------------------------------------------------------------*
 84 *&      Form  FRM_GET_DATA
 85 *&---------------------------------------------------------------------*
 86 *       text
 87 *----------------------------------------------------------------------*
 88 *  -->  p1        text
 89 *  <--  p2        text
 90 *----------------------------------------------------------------------*
 91 FORM frm_get_data .
 92 *  SELECT * INTO TABLE <dyn_table> FROM (p_table).
 93   SELECT * FROM (p_table) INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 3 ROWS.
 94 *  SELECT * INTO TABLE <dyn_table> FROM (p_table) UP TO 3 ROWS.
 95 ENDFORM.                    " FRM_GET_DATA
 96 *&---------------------------------------------------------------------*
 97 *&      Form  FRM_CREATE_XML_FILE
 98 *&---------------------------------------------------------------------*
 99 *       text
100 *----------------------------------------------------------------------*
101 *  -->  p1        text
102 *  <--  p2        text
103 *----------------------------------------------------------------------*
104 FORM frm_create_xml_file .
105   DATA: lv_idx TYPE string,
106         name TYPE string,
107         total TYPE i,
108         totalcol TYPE string,
109         totalitem TYPE string,
110         tablename TYPE string.
111   tablename = p_table.
112 *      获取表的总列数
113   DESCRIBE TABLE ifc LINES total.
114   totalcol = total.
115 *  获取内表总条目数
116   DESCRIBE TABLE <dyn_table> LINES total.
117   totalitem = total.
118   LOOP AT <dyn_table> INTO <dyn_wa>.
119 
120     AT FIRST.
121 *       创建 ixml factory
122       l_ixml = cl_ixml=>create( ).
123 *       创建 the dom object model
124       l_document = l_ixml->create_document( ).
125 *       填充 root node with value flow
126       l_element_flights  = l_document->create_simple_element(
127                   name = 'TABLESTRUCT'
128                   parent = l_document ).
129       DATA:date TYPE string,
130            time TYPE string.
131       date = sy-datum.
132       time = sy-uzeit.
133 *      设置XML元素的属性
134       l_rc = l_element_flights->set_attribute( name = 'DATE' value = date ).
135       l_rc = l_element_flights->set_attribute( name = 'TIME' value = time ).
136       l_rc = l_element_flights->set_attribute( name = '创建者' value = '陈辉' ).
137       l_rc = l_element_flights->set_attribute( name = 'TABLENAME' value = tablename ).
138       l_element_airline  = l_document->create_simple_element(
139                   name = 'TABLE'
140                   parent = l_element_flights  ). "parent为父节点
141 
142       l_rc = l_element_airline->set_attribute( name = 'TOTALITEM' value = totalitem ).
143     l_rc = l_element_airline->set_attribute( name = 'TOTALCOL' value = totalcol ).
144 
145     ENDAT.
146 
147     LOOP AT ifc INTO xfc.
148 
149       name =  xfc-fieldname.
150 
151       l_element_flight  = l_document->create_simple_element(
152                   name =  name
153                   parent = l_element_airline  ).
154       l_rc = l_element_flight->set_attribute( name = 'COLNAME' value = name ).
155 
156       CLEAR:l_value.
157       CONCATENATE   '<DYN_WA>-' xfc-fieldname INTO l_value.
158       FIELD-SYMBOLS <fs>.
159       ASSIGN (l_value) TO <fs>.
160       l_value = <fs>.
161       l_element_dummy  = l_document->create_simple_element(
162                   name = 'VALUE'
163                   value = l_value
164                   parent = l_element_flight ).
165       lv_idx = sy-tabix .
166       l_rc = l_element_dummy->set_attribute( name = 'INDEX' value = lv_idx ).
167       UNASSIGN:<fs>.
168     ENDLOOP.
169   ENDLOOP.
170 *   Creating a stream factory
171   l_streamfactory = l_ixml->create_stream_factory( )."[stri:m] 流
172 *   Connect internal XML table to stream factory
173   l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table[] ).
174 *   Rendering the document
175   l_renderer = l_ixml->create_renderer( ostream  = l_ostream    "
176                                         document = l_document )." l_document为根节点
177   l_rc = l_renderer->render( )."注：执行此句后， l_xml_table内表里才会有数据
178   l_xml_size = l_ostream->get_num_written_raw( )."取得XML数据大小
179 ENDFORM.                    " FRM_CREATE_XML_FILE
180 *&---------------------------------------------------------------------*
181 *&      Form  FRM_SAVE_XML_FILE
182 *&---------------------------------------------------------------------*
183 *       text
184 *----------------------------------------------------------------------*
185 *  -->  p1        text
186 *  <--  p2        text
187 *----------------------------------------------------------------------*
188 FORM frm_save_xml_file .
189 **--将xml数据导出到本地
190   CALL METHOD cl_gui_frontend_services=>gui_download
191     EXPORTING
192       bin_filesize = l_xml_size
193       filename     = path
194       filetype     = 'BIN'
195     CHANGING
196       data_tab     = l_xml_table[].
197 ENDFORM.                    " FRM_SAVE_XML_FILE
198 *&---------------------------------------------------------------------*
199 *&      Form  FRM_OPEN_XML_FILE
200 *&---------------------------------------------------------------------*
201 *       text
202 *----------------------------------------------------------------------*
203 *  -->  p1        text
204 *  <--  p2        text
205 *----------------------------------------------------------------------*
206 FORM frm_open_xml_file .
207 **--将XML数据导入到内表
208   DATA xmldata TYPE xstring .
209   DATA: result_xml TYPE STANDARD TABLE OF smum_xmltb .
210   DATA: return TYPE STANDARD TABLE OF bapiret2 .
211   DATA: wa_xml TYPE smum_xmltb.
212   "如果需要上载XML可以用一下方法
213   CALL FUNCTION 'GUI_UPLOAD'
214     EXPORTING
215       filename   = path
216       filetype   = 'BIN'
217     IMPORTING
218       filelength = l_xml_size
219     TABLES
220       data_tab   = l_xml_table.
221 *  "将二进制内表转换（拼接）成一个二进制串
222   CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
223     EXPORTING
224       input_length = l_xml_size
225     IMPORTING
226       buffer       = xmldata
227     TABLES
228       binary_tab   = l_xml_table.
229   CALL FUNCTION 'SMUM_XML_PARSE'"解析XML
230     EXPORTING
231       xml_input = xmldata
232     TABLES
233       xml_table = result_xml
234       return    = return.
235   WRITE: /, '解析结果如下'.
236   LOOP AT result_xml INTO wa_xml .
237     WRITE: / wa_xml-hier,wa_xml-type,wa_xml-cname,wa_xml-cvalue.
238   ENDLOOP.
239 ENDFORM.                    " FRM_OPEN_XML_FILE
240 *&---------------------------------------------------------------------*
241 *&      Form  FRM_XML_TO_STR
242 *&---------------------------------------------------------------------*
243 *       text
244 *----------------------------------------------------------------------*
245 *  -->  p1        text
246 *  <--  p2        text
247 *----------------------------------------------------------------------*
248 FORM frm_xml_to_str .
249 **将XML转换成字符串
250   DATA: w_string TYPE xstring.
251   DATA ls_xml TYPE string.
252   DATA: convin TYPE REF TO cl_abap_conv_in_ce.
253   DATA: str TYPE string.
254 
255   CALL FUNCTION 'SDIXML_DOM_TO_XML'
256     EXPORTING
257       document      = l_document
258     IMPORTING
259       xml_as_string = w_string
260       size          = l_xml_size
261     TABLES
262       xml_as_table  = l_xml_table.
263 
264   "创建解码对象
265   convin = cl_abap_conv_in_ce=>create( input = w_string ).
266 
267   CALL METHOD convin->read
268     IMPORTING
269       data = ls_xml.
270   SKIP 10.
271   WRITE:/,'********************************************************************'.
272   WRITE: / ls_xml.
273 *  BREAK-POINT. " 请查看ls_xml的值  并采用标准解析：http://tool.oschina.net/codeformat/xml/
274 
275 
276 * 将一个二进制串分割存储到二进制内表中
277   CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
278     EXPORTING
279       buffer        = w_string
280     IMPORTING
281       output_length = l_xml_size
282     TABLES
283       binary_tab    = l_xml_table.
284 *  将二进制内表转换（拼接）成一个字符串
285   CALL FUNCTION 'SCMS_BINARY_TO_STRING'
286     EXPORTING
287       input_length = l_xml_size
288     IMPORTING
289       text_buffer  = ls_xml
290     TABLES
291       binary_tab   = l_xml_table.
292   SKIP 10.
293   WRITE:/,'********************************************************************'.
294   WRITE: / ls_xml.
295 ENDFORM.                    " FRM_XML_TO_STR
296 *&---------------------------------------------------------------------*
297 *&      Form  FRM_XML_TO_TABLE
298 *&---------------------------------------------------------------------*
299 *       text
300 *----------------------------------------------------------------------*
301 *  -->  p1        text
302 *  <--  p2        text
303 *----------------------------------------------------------------------*
304 FORM frm_xml_to_table .
305 
306 ENDFORM.                    " FRM_XML_TO_TABLE
307 *&---------------------------------------------------------------------*
308 *&      Form  CREATE_DYNAMIC_ITAB
309 *&---------------------------------------------------------------------*
310 *       text
311 *----------------------------------------------------------------------*
312 *  -->  p1        text
313 *  <--  p2        text
314 *----------------------------------------------------------------------*
315 FORM create_dynamic_itab .
316   CALL METHOD cl_alv_table_create=>create_dynamic_table
317     EXPORTING
318       it_fieldcatalog = ifc
319     IMPORTING
320       ep_table        = dy_table.
321   ASSIGN dy_table->* TO <dyn_table>.
322   CREATE DATA dy_line LIKE LINE OF <dyn_table>.
323   ASSIGN dy_line->* TO <dyn_wa>.
324 ENDFORM.                    " CREATE_DYNAMIC_ITAB
View Code

14.ABAP中递归与迭代的使用（斐波拉列契数据与阶乘问题）

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH031
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh031.
10 DATA:lv_a TYPE i,
11      lv_b TYPE i,
12      lv_c TYPE i,
13      count TYPE i.
14 lv_a = 1.
15 lv_b = 1.
16 * lv_c = lv_a + lv_b.
17 WRITE:/,'第一次调用递归函数(斐波拉列契数列)：'.
18 PERFORM frm_fbllq USING lv_a lv_b CHANGING lv_c.
19 WRITE:'最终结果：','A=',lv_a,'B=',lv_b,'C=',lv_c.
20 SKIP 3.
21 CLEAR:lv_a,lv_b,lv_c,count.
22 lv_a = 5.
23 * lv_c = lv_a * (lv_a - 1) * ...* 1.
24 WRITE:/,'第二次调用递归函数(阶乘)：'.
25 PERFORM frm_jc USING lv_a CHANGING lv_c.
26 WRITE:'最终结果：','A=',lv_a,'C=',lv_c.
27 *&---------------------------------------------------------------------*
28 *&      Form  frm_fbllq
29 *&---------------------------------------------------------------------*
30 *       text
31 *----------------------------------------------------------------------*
32 *  -->  p1        text
33 *  <--  p2        text
34 *----------------------------------------------------------------------*
35 FORM frm_fbllq USING p_a p_b CHANGING p_c.
36   count = count + 1.
37   WRITE:/,count,p_a,p_b,p_c.
38   IF p_a >= 10.
39     EXIT.
40   ELSE.
41     p_c = p_a + p_b.
42     p_a = p_b.
43     p_b = p_c.
44     PERFORM frm_fbllq USING p_a p_b CHANGING p_c.
45   ENDIF.
46 ENDFORM.                    " frm_fbllq
47 *&---------------------------------------------------------------------*
48 *&      Form  FRM_JC
49 *&---------------------------------------------------------------------*
50 *       text
51 *----------------------------------------------------------------------*
52 *  -->  p1        text
53 *  <--  p2        text
54 *----------------------------------------------------------------------*
55 FORM frm_jc USING p_a  CHANGING p_c.
56   count = count + 1.
57   WRITE:/,count,p_a,p_c.
58   IF p_c IS INITIAL.
59     p_c = 1.
60   ENDIF.
61   IF p_a = 1 OR p_a <= 0.
62     EXIT.
63   ELSE.
64     p_c =  p_a * p_c.
65     p_a = p_a - 1.
66     PERFORM frm_jc USING p_a CHANGING p_c.
67   ENDIF.
68 ENDFORM.                    " FRM_JC
View Code

15.ABAP中测试三位数的水仙花数

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH032
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 *打印出所有的 "水仙花数 "，所谓 "水仙花数 "是指一个三位数，
 9 *其各位数字立方和等于该数本身。例如：153是一个 "水仙花数 "，
10 *因为153=1的三次方＋5的三次方＋3的三次方
11 REPORT zchenh032.
12 DATA:BEGIN OF gt_sxhs OCCURS 0,
13       sxhs TYPE c LENGTH 3,
14       col1 TYPE i ,
15       col2 TYPE i ,
16       col3 TYPE i ,
17       END OF gt_sxhs.
18 
19 PERFORM frm_get_data.
20 *&---------------------------------------------------------------------*
21 *&      Form  FRM_GET_DATA
22 *&---------------------------------------------------------------------*
23 *       text
24 *----------------------------------------------------------------------*
25 *  -->  p1        text
26 *  <--  p2        text
27 *----------------------------------------------------------------------*
28 FORM frm_get_data .
29   DATA:lv_sxhs TYPE c LENGTH 3.
30   DO 999 TIMES.
31     gt_sxhs-sxhs = sy-index.
32     APPEND gt_sxhs.
33   ENDDO.
34   LOOP AT gt_sxhs WHERE sxhs BETWEEN 100 AND 999.
35     gt_sxhs-col1 = gt_sxhs-sxhs+0(1). " 百位
36     gt_sxhs-col2 = gt_sxhs-sxhs+1(1). " 十位
37     gt_sxhs-col3 = gt_sxhs-sxhs+2(1). " 个位
38     lv_sxhs = gt_sxhs-col1 * gt_sxhs-col1 * gt_sxhs-col1 +
39              gt_sxhs-col2 * gt_sxhs-col2 * gt_sxhs-col2 +
40              gt_sxhs-col3 * gt_sxhs-col3 * gt_sxhs-col3.
41     IF lv_sxhs EQ gt_sxhs-sxhs.
42       WRITE:/,'水仙花数',gt_sxhs-sxhs,'=',gt_sxhs-col1,'的三次方 乘以',gt_sxhs-col2,'的三次方 乘以',gt_sxhs-col3,'的三次方'.
43     ENDIF.
44   ENDLOOP.
45 
46 ENDFORM.                    " FRM_GET_DATA
View Code

16.ABAP前台进度条

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH028
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh028.
10 
11 DATA:count TYPE string.  " 内表总数据条数
12 DATA:msg   TYPE string.    " 显示的消息
13 DATA:index TYPE string.  " 当前处理的索引
14 
15 DATA:BEGIN OF gt_tab  OCCURS 0,
16       col1 TYPE string,
17      END OF gt_tab .
18 
19 
20 " 插入100条空数据
21 DO 10000 TIMES.
22   APPEND gt_tab.
23 ENDDO.
24 DESCRIBE TABLE gt_tab LINES count.
25 
26 
27 *  进度条显示
28 LOOP AT gt_tab.
29   CLEAR:msg,index.
30   index = sy-tabix.
31   CONCATENATE '正在处理。。。'  index '/' count INTO msg. " 拼接消息
32   index = index / count * 100.  " 时钟显示的百分比
33 
34   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
35     EXPORTING
36       percentage = index " 处理的百分比
37       text       = msg.
38 ENDLOOP.
View Code

17.ABAP 分组测试

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH029
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh029.
10 
11 TYPES:BEGIN OF gs_tab,
12     col1(10),
13     col2(10),
14     col3(10),
15     col4(10),
16       END OF gs_tab.
17 DATA: gt_tab TYPE gs_tab OCCURS 0 WITH HEADER LINE.
18 DATA: gt_tcd TYPE gs_tab OCCURS 0 WITH HEADER LINE.
19 DATA: gs_ab TYPE gs_tab.
20 gs_ab-col1 = '1000'.gs_ab-col2 = 'aaa1'.gs_ab-col3 = 1. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
21 gs_ab-col1 = '1000'.gs_ab-col2 = 'aaa2'.gs_ab-col3 = 2. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
22 gs_ab-col1 = '2000'.gs_ab-col2 = 'aaa2'.gs_ab-col3 = 3. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
23 gs_ab-col1 = '2000'.gs_ab-col2 = 'aaa2'.gs_ab-col3 = 4. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
24 gs_ab-col1 = '2000'.gs_ab-col2 = 'aaa3'.gs_ab-col3 = 5. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
25 gs_ab-col1 = '3000'.gs_ab-col2 = 'aaa3'.gs_ab-col3 = 6. gs_ab-col4 = 'A'. APPEND gs_ab TO gt_tab.
26 
27 LOOP AT gt_tab.
28 *  AT END OF col4.
29   AT NEW col4.
30     APPEND gt_tab TO gt_tcd.
31   ENDAT.
32 ENDLOOP.
33 
34 LOOP AT  gt_tcd.
35   WRITE:gt_tcd-col1,'  ',gt_tcd-col2,'  ',gt_tcd-col3,'  ',gt_tcd-col4,'  ',/.
36 ENDLOOP.
View Code

18. 修改已经释放的请求

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH026
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh026.
10 TABLES: e070.
11 PARAMETERS : p_trkorr LIKE e070-trkorr OBLIGATORY.
12 
13 UPDATE e070 SET trstatus = 'D' "将状态还原成‘可修改’
14 WHERE trkorr = p_trkorr. "输入的需要处理的TR
15 
16 IF sy-subrc = 0.
17   COMMIT WORK.
18   MESSAGE 'OK' TYPE 'S'.
19 ELSE.
20   ROLLBACK WORK.
21   MESSAGE 'ERROR!' TYPE 'E'.
22 ENDIF.
View Code

19.质数判断

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZCHENH054
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 *参考文章：https://blog.csdn.net/codeswarrior/article/details/78053754
  9 REPORT zchenh054.
 10 DATA:start_time   TYPE timestamp,
 11      end_time     TYPE timestamp,
 12      produce_time TYPE timestamp,
 13      start TYPE brutto.
 14 
 15 CONSTANTS:lv_max TYPE i VALUE 10000.
 16 
 17 DATA:BEGIN OF gt_data OCCURS 0,
 18   index TYPE sy-index,
 19   num TYPE string,
 20   status,
 21   msg(20),
 22 END OF gt_data.
 23 
 24 START-OF-SELECTION.
 25   GET TIME STAMP FIELD start_time.
 26 
 27 *gt_data-num = 97.
 28 *PERFORM frm_check_data USING gt_data-num
 29 *                      CHANGING gt_data-status
 30 *                               gt_data-msg.
 31 *WRITE:gt_data-msg,/.
 32 
 33   DO lv_max TIMES.
 34     CLEAR:gt_data.
 35     gt_data-num = sy-index.
 36     PERFORM frm_check_data USING gt_data-num
 37                         CHANGING gt_data-status
 38                                  gt_data-msg.
 39     IF gt_data-status EQ 'S'.
 40       APPEND gt_data.
 41     ENDIF.
 42   ENDDO.
 43 
 44   LOOP AT gt_data.
 45     CONDENSE:gt_data-msg.
 46     WRITE:sy-tabix,gt_data-msg,/.
 47   ENDLOOP.
 48 
 49 END-OF-SELECTION.
 50   GET TIME STAMP FIELD end_time.
 51   produce_time = end_time - start_time.
 52   WRITE:'持续运行时间：',produce_time,'秒'.
 53 
 54 
 55 *&---------------------------------------------------------------------*
 56 *&      Form  FRM_CHECK_DATA
 57 *&---------------------------------------------------------------------*
 58 *       判断一个数是否是质数
 59 *----------------------------------------------------------------------*
 60 *  -->  p1        text
 61 *  <--  p2        text
 62 *----------------------------------------------------------------------*
 63 FORM frm_check_data USING p_num    TYPE string
 64                  CHANGING p_status TYPE char1
 65                           p_msg    TYPE char20.
 66   DATA: b TYPE string VALUE 0,
 67         c TYPE string VALUE 0,
 68         d TYPE string VALUE 0,
 69         e TYPE string VALUE 0.
 70 
 71   CONDENSE:p_msg.
 72   p_msg = p_num.
 73 
 74 *1. 特殊质数判断
 75   IF p_num EQ 2 OR p_num EQ 3.
 76     p_status = 'S'.
 77     CONCATENATE p_msg '是质数' INTO p_msg.
 78     RETURN.
 79   ENDIF.
 80 
 81 *2.不在6的倍数两侧的一定不是质数
 82   b = p_num MOD 6.
 83   IF b NE 1 AND b NE 5.
 84     p_status = 'E'.
 85     CONCATENATE p_msg '不是质数' INTO p_msg.
 86     RETURN.
 87   ENDIF.
 88 
 89 * 3.在6的倍数两侧的也可能不是质数
 90   b = 5.
 91   c = sqrt( p_num ).
 92   WHILE  b LE c.
 93     d = p_num MOD b.
 94     e = p_num MOD ( b + 2 ).
 95     IF d EQ 0 OR d EQ 0.
 96       p_status = 'E'.
 97       CONCATENATE p_msg '不是质数' INTO p_msg.
 98       RETURN.
 99     ENDIF.
100     b = b + 6.
101   ENDWHILE.
102 
103 * 4.排除所有，剩余的是质数
104   p_status = 'S'.
105   CONCATENATE p_msg '是质数' INTO p_msg.
106 ENDFORM.                    " FRM_CHECK_DATA
View Code

20.ABAP调用播放器播放文件

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH055
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh055.
10 *http://blog.sina.com.cn/s/blog_56d71d930101dmeu.html
11 DATA:ls_parameter TYPE string,
12      lv_file TYPE string VALUE 'D:\users\DNAT10218\Desktop\三国演义.mp4',
13      lv_flag.
14 DATA:times TYPE string VALUE '1', " 播放次数
15       timer TYPE string VALUE '15000'. " 超时时常
16 
17 *CONCATENATE 'vbscript createobject("sapi.spvoice").speak("' in_hinttxt '")(windows.close)' INTO ls_parameter.
18 
19 *先判断文件是否存在
20 CALL METHOD cl_gui_frontend_services=>file_exist
21   EXPORTING
22     file   = lv_file
23   RECEIVING
24     result = lv_flag.
25 IF lv_flag EQ 'X'.
26 
27 *  CONCATENATE 'VBSCRIPT:EXECUTE("DOCUMENT.WRITE ""<BGSOUND SRC=' lv_file '","","/")+"'''
28 *  'loop=' ''''times'''>"":window.setTimeout ""window.close()"",' timer '")' INTO ls_parameter.
29 
30   CALL METHOD cl_gui_frontend_services=>execute
31     EXPORTING
32       document               = lv_file
33 *      application            = 'MSHTA'
34 *     parameter              = ls_parameter
35 *     default_directory      =
36 *     maximized              =
37       minimized              = 'X'
38 *     synchronous            =
39      operation              = 'OPEN'
40     EXCEPTIONS
41       cntl_error             = 1
42       error_no_gui           = 2
43       bad_parameter          = 3
44       file_not_found         = 4
45       path_not_found         = 5
46       file_extension_unknown = 6
47       error_execute_failed   = 7
48       synchronous_failed     = 8
49       not_supported_by_gui   = 9
50       OTHERS                 = 10.
51 ENDIF.
View Code

21.ABAP 迷你计算器

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH056
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh056.
10 DATA: x(15) TYPE c.
11 CALL FUNCTION 'FITRV_CALCULATOR'
12   EXPORTING
13     input_value          = '0'
14     currency             = 'RMB'
15     start_column         = '10'
16     start_row            = '10'
17   IMPORTING
18     output_value         = x
19   EXCEPTIONS
20     invalid_input        = 1
21     calculation_canceled = 2
22     OTHERS               = 3.
23 
24 WRITE:X.
View Code

22.ABAP 保存本地程序

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH057
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh057.
10 TABLES tadir.
11 DATA: BEGIN OF it_table OCCURS 0,
12         obj_name LIKE tadir-obj_name,
13       END OF it_table.
14 DATA report_table TYPE TABLE OF string WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.
15 DATA: file TYPE string,
16       path TYPE string.
17 
18 SELECTION-SCREEN BEGIN OF BLOCK blk01 WITH FRAME." TITLE text-001 .
19 PARAMETER: obj_name LIKE tadir-obj_name DEFAULT 'ZCHENH05'.
20 SELECT-OPTIONS: object FOR tadir-object DEFAULT 'PROG',
21                 author FOR tadir-author,
22                 devclass FOR tadir-devclass.
23 SELECTION-SCREEN END OF BLOCK blk01 .
24 
25 START-OF-SELECTION.
26   PERFORM frm_save_file.
27 *&---------------------------------------------------------------------*
28 *&      Form  FRM_SAVE_FILE
29 *&---------------------------------------------------------------------*
30 *       text
31 *----------------------------------------------------------------------*
32 *  -->  p1        text
33 *  <--  p2        text
34 *----------------------------------------------------------------------*
35 FORM frm_save_file .
36 
37   CONCATENATE obj_name '%' INTO obj_name.
38   SELECT obj_name
39   INTO TABLE it_table FROM tadir
40   WHERE obj_name LIKE obj_name
41   AND object IN object
42   AND author IN author
43   AND devclass IN devclass.
44 
45   path = 'D:\ABAP\'.
46   CONDENSE path NO-GAPS.
47 
48   LOOP AT it_table.
49 
50     READ REPORT it_table-obj_name INTO report_table.
51 
52     CLEAR file.
53     CONCATENATE path it_table-obj_name '.TXT' INTO file.
54 
55     CALL FUNCTION 'GUI_DOWNLOAD'
56       EXPORTING
57         filename = file
58         filetype = 'ASC'
59       TABLES
60         data_tab = report_table.
61 
62   ENDLOOP.
63 ENDFORM.                    " FRM_SAVE_FILE
View Code

23.ABAP 动态拼接Where 语句

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH043
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh043.
10 TABLES: zchenh001.
11 
12 DATA where_tab(80) OCCURS 10 WITH HEADER LINE.
13 DATA : count_rec TYPE i.
14 
15 SELECT-OPTIONS: s_zhigh FOR zchenh001-zhigh NO INTERVALS OBLIGATORY DEFAULT '185'.
16 
17 MOVE 'zhigh in s_zhigh' TO where_tab.
18 APPEND where_tab.
19 
20 CONCATENATE 'and zname like' '''%陈辉%'''
21              INTO where_tab SEPARATED BY space.
22 APPEND where_tab.
23 CLEAR where_tab.
24 
25 SELECT COUNT( * ) INTO count_rec
26 FROM zchenh001
27 WHERE (where_tab).
28 
29 WRITE:'共查询到',count_rec.
View Code

24.状态栏引用

1   SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.
View Code

25.