模型取数

  1 *&---------------------------------------------------------------------*
  2 *& Report ZWEIGHT
  3 *&---------------------------------------------------------------------*
  4 *&
  5 *&---------------------------------------------------------------------*
  6 REPORT zweight.
  7 TABLES:zbpc_s_entity,zbpc_s_product,zbpc_s_time.
  8 *DEFINE g_amount.
  9 *  &1 = &1.
 10 *  &1-z_category = &2.
 11 *  &1-z_account = &3.
 12 *  &1-z_time = &4.
 13 *  &1-z_datasource = &5.
 14 *  &1-z_misc1 = &6.
 15 **      &1-measure =  |Periodic|.
 16 *  &1-measure =  ||.
 17 *  &1-z_class =  |CLASS_NONE|.
 18 *  &1-z_currency =  |CURRENCY_NONE|.
 19 *  &1-z_entity =  &7.
 20 *  &1-z_line =  |LINE_NONE|.
 21 *  &1-z_misc2 =  |MISC2_NONE|.
 22 *  &1-z_product =  &8.
 23 *  &1-z_view =  |VIEW_NONE|.
 24 *END-OF-DEFINITION.
 25 *      g_amount os_ytts_uk_y_ssres  ‘BUDGET_V0‘  ‘PL02‘  con_next_year_inp ‘SS_RESULT‘ con_z_misc1  ‘BCSYBW050.INP‘ <fs_ts_uk_y>-zattributes.
 26 DEFINE sel.
 27   CLEAR ls_sel.
 28   ls_sel-dimension = &1.
 29   ls_sel-attribute = ‘ID‘.
 30   ls_sel-sign = ‘I‘.
 31   ls_sel-option = ‘BT‘.
 32   ls_sel-low = &2.
 33   ls_sel-high = &3.
 34   APPEND ls_sel TO lt_sel.
 35 END-OF-DEFINITION.
 36 *--·与ALV相关的变量
 37 DATA: wa_fieldcat     TYPE lvc_s_fcat,                "ALV显示字段內表
 38       it_fieldcat     TYPE lvc_t_fcat,                "ALV显示字段结构
 39       wa_layout       TYPE lvc_s_layo,                  "ALV显示风格结构
 40       ls_glay         TYPE lvc_s_glay,
 41       it_sub_fieldcat TYPE lvc_t_fcat,
 42       wa_sub_layout   TYPE lvc_s_layo,
 43       con_diabox      TYPE REF TO cl_gui_dialogbox_container,
 44       wcl_alv1        TYPE REF TO cl_gui_alv_grid,
 45       tem_grid        TYPE REF TO cl_gui_alv_grid,
 46       ref_grid        TYPE REF TO cl_gui_alv_grid.
 47 
 48 *--·与ALV函数相关的参数
 49 DATA: wa_sort_lvc  TYPE lvc_s_sort,          "关于ALV中排序字段的结构
 50       it_sort_lvc  TYPE lvc_t_sort,          "关于ALV中排序字段的内表
 51       it_excluding TYPE slis_t_extab,        "关于排除ALV工具栏标准按钮的内表
 52       wa_excluding LIKE LINE OF it_excluding, "关于排除ALV工具栏标准按钮的结构
 53       lt_ddval     TYPE lvc_t_drop,             "关于下拉列表的内表
 54       lt_ddval_01  TYPE lvc_t_drop,             "关于下拉列表的内表
 55       ls_ddval     TYPE lvc_s_drop,             "关于下拉列表的工作区
 56 *      ls_ddval     TYPE LVC_T_DRAL,             "关于下拉列表的工作区
 57       git_events   TYPE slis_t_event.         "注册ALV事件的内表
 58 TYPE-POOLS: slis.
 59 
 60 TYPES: BEGIN OF typ_data,
 61          checkbox     TYPE c,
 62 *      cbox        TYPE aq_markbg,
 63 
 64          z_account    TYPE c LENGTH 32,
 65          z_category   TYPE c LENGTH 32,
 66          z_class      TYPE c LENGTH 32,
 67          z_currency   TYPE c LENGTH 32,
 68          z_datasource TYPE c LENGTH 32,
 69          z_entity     TYPE c LENGTH 32,
 70          z_line       TYPE c LENGTH 32,
 71          z_misc1      TYPE c LENGTH 32,
 72          z_misc2      TYPE c LENGTH 32,
 73          z_product    TYPE c LENGTH 32,
 74          z_time       TYPE c LENGTH 32,
 75          z_view       TYPE c LENGTH 32,
 76          signeddata   TYPE /b28/oisdata,
 77          measure      TYPE c LENGTH 32,
 78          cell_color   TYPE slis_t_specialcol_alv, "
 79          cellstyles   TYPE lvc_t_styl.           "
 80 *         INCLUDE STRUCTURE zbpc_s_planning_sub.
 81 TYPES:  END OF typ_data.
 82 
 83 DATA:gt_show TYPE TABLE OF zbpc_s_planning_sub,
 84      gs_show TYPE   zbpc_s_planning_sub.
 85 DATA:gt_alv TYPE TABLE OF typ_data,
 86      gs_alv TYPE   typ_data.
 87 
 88 DATA:lt_sel TYPE uj0_t_sel,
 89      ls_sel TYPE uj0_s_sel.
 90 DATA:ls_cg TYPE  zbpc_s_planning_sub,
 91      lt_cg TYPE TABLE OF zbpc_s_planning_sub.
 92 
 93 
 94 
 95 PARAMETERS:i_appset TYPE uj_appset_id AS LISTBOX VISIBLE LENGTH 32 DEFAULT  ‘WMPLAN‘, "UJ_APPSET_ID
 96 *           I_APPL_I TYPE UJ_APPL_ID, "UJ_APPL_ID
 97            i_appl_i TYPE uj_appl_id AS LISTBOX VISIBLE LENGTH 32  DEFAULT ‘Planning‘, "UJ_APPL_ID
 98 *           I_APPL_I TYPE UJ_APPL_ID AS LISTBOX VISIBLE LENGTH 20   , "UJ_APPL_ID
 99            iaccount TYPE char32 OBLIGATORY
100            .
101 
102 *I_APPSET =   |WMPLAN|.
103 * I_APPL_I =   |Planning|.
104 *IACCOUNT =   |PL01|.
105 TRANSLATE iaccount TO UPPER CASE.
106 SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
107 SELECT-OPTIONS:
108     s_entity FOR zbpc_s_entity-z_entity ,
109     s_prod FOR zbpc_s_product-z_product ,
110     s_time FOR zbpc_s_time-z_time
111  .
112 SELECTION-SCREEN:END OF BLOCK b1.
113 
114 
115 INITIALIZATION.
116   %_i_appset_%_app_%-text = ‘环境‘.
117   %_i_appl_i_%_app_%-text = ‘模型ID‘.
118   %_iaccount_%_app_%-text = ‘科目类型‘.
119   %_s_entity_%_app_%-text = ‘组织‘.
120   %_s_prod_%_app_%-text = ‘产品‘.
121   %_s_time_%_app_%-text = ‘时间‘.
122 
123 AT SELECTION-SCREEN ON VALUE-REQUEST FOR i_appset.
124   PERFORM frm_f4_i_appset.
125 
126 AT SELECTION-SCREEN ON VALUE-REQUEST FOR i_appl_i.
127   PERFORM frm_f4_i_appl_i.
128 
129 START-OF-SELECTION.
130   PERFORM get_data.
131   PERFORM display_data.
132 
133 *&---------------------------------------------------------------------*
134 *&      FORM  GET_DATA
135 *&---------------------------------------------------------------------*
136 *       获取数据
137 *----------------------------------------------------------------------*
138 FORM get_data.
139 *----------------------------------------------------------------------*
140 *GET_BPC_DATA
141 
142   CLEAR lt_sel.
143   CLEAR:lt_cg[],lt_cg.
144   sel   ‘MEASURES‘        ‘Periodic‘              ‘Periodic‘ .                   "PCD科目
145   sel   ‘Z_ACCOUNT‘       iaccount              iaccount.                   "PCD科目
146 *    sel   ‘Z_CATEGORY‘      ‘BUDGET_V0‘         ‘BUDGET_V0‘.              "预算数
147   sel   ‘Z_CLASS‘         ‘CLASS_NONE‘        ‘CLASS_NONE‘.
148   sel   ‘Z_CURRENCY‘      ‘CURRENCY_NONE‘     ‘CURRENCY_NONE‘.
149 *    sel   ‘Z_DATASOURCE‘    ‘CF_RATE‘         ‘CF_RATE‘.
150   SORT s_entity BY low.
151   DELETE ADJACENT DUPLICATES FROM s_entity COMPARING low.
152   LOOP AT s_entity INTO DATA(is_table_entity).
153     sel   ‘Z_ENTITY‘       is_table_entity-low     is_table_entity-low       .
154   ENDLOOP.
155   sel   ‘Z_LINE‘          ‘LINE_NONE‘         ‘LINE_NONE‘.
156 *    sel   ‘Z_MISC1‘          I_z_misc1_yy          I_z_misc1_yy.
157   sel   ‘Z_MISC2‘         ‘MISC2_NONE‘        ‘MISC2_NONE‘.
158   SORT s_prod BY low.
159   DELETE ADJACENT DUPLICATES FROM s_prod COMPARING low.
160   LOOP AT s_prod  INTO DATA(is_table_product).
161     sel   ‘Z_PRODUCT‘ is_table_product-low      is_table_product-low      .         .
162   ENDLOOP.
163 
164   LOOP AT s_time  INTO DATA(is_table_time).
165     sel   ‘Z_TIME‘           is_table_time-low             is_table_time-low  .              "时间
166   ENDLOOP.
167   sel   ‘Z_VIEW‘          ‘VIEW_NONE‘          ‘VIEW_NONE‘.
168 
169 
170   DATA: lo_appl     TYPE REF TO cl_uja_application,
171         lt_appl_dim TYPE uja_t_appl_dim,
172         ls_appl_dim LIKE LINE OF lt_appl_dim,
173         lt_dim_name TYPE ujq_t_dim,
174         ls_dim_name LIKE LINE OF lt_dim_name,
175         lo_model    TYPE REF TO if_uj_model,
176         lo_dataref  TYPE REF TO data,
177         lo_query    TYPE REF TO if_ujo_query,
178         lt_data     TYPE REF TO data,
179         lt_message  TYPE uj0_t_message.
180 
181   FIELD-SYMBOLS: <lt_tx_data> TYPE STANDARD TABLE,
182                  <ls_data>    TYPE any.
183 
184 *i_appl_i = ‘Sales‘.
185 
186   CREATE OBJECT lo_appl
187     EXPORTING
188       i_appset_id      = i_appset
189       i_application_id = i_appl_i.
190 
191   REFRESH lt_appl_dim.
192   lo_appl->get_appl_dim(
193     EXPORTING
194     i_appl_id = i_appl_i
195     IMPORTING
196       et_appl_dim = lt_appl_dim ).
197 
198   REFRESH lt_dim_name.
199 
200   LOOP AT lt_appl_dim INTO ls_appl_dim.
201     ls_dim_name = ls_appl_dim-dimension.
202     APPEND ls_dim_name TO lt_dim_name.
203     CLEAR ls_dim_name.
204   ENDLOOP.
205 
206   ls_dim_name = ‘MEASURES‘.
207 
208   APPEND ls_dim_name TO lt_dim_name.
209 
210   SORT  lt_dim_name.
211 
212   TRY.
213       lo_model = cl_uj_model=>get_model( i_appset ).
214       lo_model->create_tx_data_ref(
215       EXPORTING
216         i_appl_name = i_appl_i
217         i_type = ‘T‘
218         it_dim_name = lt_dim_name
219         if_tech_name = space
220         IMPORTING
221           er_data = lo_dataref ).
222     CATCH cx_uj_static_check.
223   ENDTRY.
224 
225   ASSIGN lo_dataref->* TO <lt_tx_data>.
226   CREATE DATA lt_data LIKE LINE OF <lt_tx_data>.
227   ASSIGN lt_data->* TO <ls_data>.
228 
229   TRY.
230       lo_query = cl_ujo_query_factory=>get_query_adapter(
231        i_appset_id = i_appset
232        i_appl_id = i_appl_i
233        ).
234 
235       lo_query->run_rsdri_query(
236       EXPORTING
237         it_dim_name = lt_dim_name
238         it_range = lt_sel
239         if_check_security = abap_false
240        IMPORTING
241          et_data  = <lt_tx_data>
242          et_message   = lt_message
243          ).
244     CATCH  cx_ujo_read.
245 
246 
247 
248   ENDTRY.
249   LOOP AT <lt_tx_data> INTO <ls_data>.
250 *       APPEND <LS_DATA> TO ET_DATA.
251 *    APPEND <LS_DATA> TO GT_SHOW.
252     gs_alv = CORRESPONDING #( <ls_data> ).
253     APPEND gs_alv TO gt_alv.CLEAR gs_alv.
254   ENDLOOP.
255 ENDFORM.                    "GET_DATA
256 *&---------------------------------------------------------------------*
257 *& Form DISPLAY_DATA
258 *&---------------------------------------------------------------------*
259 *& text
260 *&---------------------------------------------------------------------*
261 *& -->  p1        text
262 *& <--  p2        text
263 *&---------------------------------------------------------------------*
264 FORM display_data .
265 
266   PERFORM frm_set_fieldcat.
267 
268   PERFORM frm_layout.
269 
270   PERFORM frm_disp_data.
271 ENDFORM.
272 
273 FORM frm_set_fieldcat .
274   CLEAR: it_fieldcat,wa_fieldcat.
275   wa_fieldcat-checkbox = ‘X‘ ."设置第一列为复选框
276   wa_fieldcat-edit = ‘X‘ .
277   wa_fieldcat-key = ‘X‘.
278 *  wa_fieldcat-outputlen = ‘3‘.
279   PERFORM set_fieldcat USING ‘CHECKBOX‘ ‘选择框‘.
280 
281 *  PERFORM set_fieldcat USING ‘MEASURE‘ ‘MEASURE‘.
282 *  wa_fieldcat-key = ‘X‘.      "设置为关键列
283 *  wa_fieldcat-icon = ‘X‘.
284 *  wa_fieldcat-outputlen = ‘3‘.
285   PERFORM set_fieldcat USING ‘Z_ACCOUNT‘ ‘Z_ACCOUNT‘.
286   wa_fieldcat-emphasize = ‘C710‘. "
287   wa_fieldcat-outputlen = ‘32‘.
288   PERFORM set_fieldcat USING ‘Z_ENTITY‘ ‘Z_ENTITY‘.
289   wa_fieldcat-emphasize = ‘C310‘. "设置字段的颜色
290   wa_fieldcat-outputlen = ‘32‘.
291   PERFORM set_fieldcat USING ‘Z_PRODUCT‘ ‘Z_PRODUCT‘.
292   wa_fieldcat-emphasize = ‘C410‘. "
293   PERFORM set_fieldcat USING ‘Z_TIME‘ ‘Z_TIME‘.
294   wa_fieldcat-emphasize = ‘C510‘. "
295   PERFORM set_fieldcat USING ‘Z_MISC1‘ ‘Z_MISC1‘.
296 *  wa_fieldcat-key = ‘X‘.      "设置为关键列
297 *  wa_fieldcat-icon = ‘X‘.
298 *  wa_fieldcat-outputlen = ‘3‘.
299 
300   PERFORM set_fieldcat USING ‘Z_CATEGORY‘ ‘Z_CATEGORY‘.
301   wa_fieldcat-emphasize = ‘C600‘. "
302   PERFORM set_fieldcat USING ‘Z_DATASOURCE‘ ‘Z_DATASOURCE‘.
303   PERFORM set_fieldcat USING ‘Z_CLASS‘ ‘Z_CLASS‘.
304   PERFORM set_fieldcat USING ‘Z_CURRENCY‘ ‘Z_CURRENCY‘.
305 
306   PERFORM set_fieldcat USING ‘Z_LINE‘ ‘Z_LINE‘.
307 
308   PERFORM set_fieldcat USING ‘Z_MISC2‘ ‘Z_MISC2‘.
309 
310   .
311   PERFORM set_fieldcat USING ‘Z_VIEW‘ ‘Z_VIEW‘.
312   PERFORM set_fieldcat USING ‘SIGNEDDATA‘ ‘SIGNEDDATA‘.
313 ENDFORM.                    " FRM_SET_FIELDCAT
314 
315 FORM frm_layout .
316   CLEAR wa_layout.
317   wa_layout-cwidth_opt = ‘X‘.
318   wa_layout-no_rowmark = ‘X‘.          "
319   wa_layout-zebra = ‘X‘.
320   wa_layout-countfname = ‘COUNT‘.      "
321   wa_layout-info_fname   = ‘COLOR‘."
322   wa_layout-ctab_fname   = ‘CELL_COLOR‘.
323   wa_layout-stylefname = ‘CELLSTYLES‘.
324 
325 ENDFORM.                    " FRM_LAYOUT
326 
327 FORM frm_disp_data .
328   SORT  gt_alv BY z_entity z_product.
329   CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC‘
330     EXPORTING
331 *     I_INTERFACE_CHECK        = ‘ ‘
332 *     I_BYPASSING_BUFFER       =
333 *     I_BUFFER_ACTIVE          =
334       i_callback_program       = sy-repid
335       i_callback_pf_status_set = ‘FRM_SET_PF_STATUS‘ "USER_COMMAND
336       i_callback_user_command  = ‘FRM_USER_COMMAND‘
337 *     i_background_id          = ‘ALV_BACKGROUND‘
338       is_layout_lvc            = wa_layout
339       it_fieldcat_lvc          = it_fieldcat
340       i_save                   = ‘X‘                   "是否保存布局
341       it_events                = git_events
342     TABLES
343       t_outtab                 = gt_alv[]
344 *     t_outtab                 = gt_show[]
345     EXCEPTIONS
346       program_error            = 1
347       OTHERS                   = 2.
348   IF sy-subrc <> 0.
349     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
350     WITH sy-msgv1 sy-msgv2.
351     EXIT.
352   ENDIF.
353 
354 ENDFORM.                    " FRM_DISP_DATA
355 *&---------------------------------------------------------------------*
356 *&      Form  FRM_SET_PF_STATUS
357 *&---------------------------------------------------------------------*
358 *       为ALV设置状态栏
359 *----------------------------------------------------------------------*
360 *  -->  p1        text
361 *  <--  p2        text
362 *----------------------------------------------------------------------*
363 FORM frm_set_pf_status USING pt_extab TYPE slis_t_extab.
364 
365   SET PF-STATUS ‘STANDARD‘ EXCLUDING pt_extab.
366   DATA(gv_num) = lines( gt_show ).
367   SET TITLEBAR ‘TITLE‘ WITH gv_num sy-uname sy-datum sy-uzeit.
368 ENDFORM.                    "frm_set_pf_status
369 *&---------------------------------------------------------------------*
370 *&      Form  USER_COMMAND
371 *&---------------------------------------------------------------------*
372 *       为ALV定制事件
373 *----------------------------------------------------------------------*
374 *  -->  r_ucomm        当前使用事务代码
375 *  <--  rs_selfield    表结构
376 *----------------------------------------------------------------------*
377 FORM frm_user_command USING r_ucomm LIKE sy-ucomm
378                   rs_selfield TYPE slis_selfield.
379 
380 *  CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR‘
381 *    IMPORTING
382 *      e_grid = l_guid.
383 *
384 *  "调用CHECK_CHANGED_DATA可以使被修改的数据自动更新到内表中去
385 *  CALL METHOD l_guid->check_changed_data.
386 *  IF sy-subrc <> 0."调用完函数等之后，检查返回码sy-subrc的值，并做判断处理
387 *    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
388 *               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
389 *  ENDIF.
390 **  按钮
391 *  CASE r_ucomm.
392 *    WHEN ‘BACK‘.
393 *      LEAVE TO SCREEN 0.
394 *    WHEN ‘&IC1‘.
395 *      CLEAR wa_output.
396 *      READ TABLE gt_show INTO gs_show INDEX rs_selfield-tabindex.
397 *      IF rs_selfield-fieldname = ‘JHDH‘.
398 *        CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
399 *          EXPORTING
400 *            input  = gs_show-jhdh
401 *          IMPORTING
402 *            output = gs_show-jhdh.
403 *        SET PARAMETER ID ‘VL‘ FIELD  gs_show-jhdh.
404 *        IF  gs_show-jhdh IS NOT INITIAL.
405 *          CALL TRANSACTION ‘VL03N‘ AND SKIP FIRST SCREEN.
406 *        ENDIF.
407 *      ENDIF.
408 *      ENDCASE.
409 ENDFORM.
410 *&---------------------------------------------------------------------*
411 *& Form SET_FIELDCAT
412 *&---------------------------------------------------------------------*
413 *& text
414 *&---------------------------------------------------------------------*
415 *&      --> P_
416 *&      --> P_
417 *&---------------------------------------------------------------------*
418 FORM set_fieldcat  USING    VALUE(p_0548)
419                             VALUE(p_0549).
420   wa_fieldcat-just = ‘L‘."对其方式，L表示左对齐
421   wa_fieldcat-fieldname = p_0548 .
422   wa_fieldcat-coltext = p_0549 .
423   wa_fieldcat-seltext = p_0549 .
424   APPEND wa_fieldcat TO it_fieldcat.
425   CLEAR wa_fieldcat.
426 ENDFORM.                    " SET_FIELDCAT
427 FORM frm_get_event .
428   DATA l_events TYPE LINE OF slis_t_event.
429   l_events-name = ‘CALLER_EXIT‘.    "‘CALLER_EXIT‘在此写固定即可
430   l_events-form = ‘FRM_ENTER_EVENT‘."回车事件调用的FORM
431   APPEND l_events TO git_events.
432 
433 ENDFORM.                    " FRM_GET_EVENT
434 
435 FORM frm_enter_event USING e_grid TYPE slis_data_caller_exit.
436 ***********************************创建类CL_GUI_ALV_GRID的实例
437   CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR‘
438     IMPORTING
439       e_grid = ref_grid. "
440 *----------------------------------------------------------------------
441 * 设置enter事件
442   CALL METHOD ref_grid->register_edit_event
443     EXPORTING
444       i_event_id = cl_gui_alv_grid=>mc_evt_enter
445     EXCEPTIONS
446       error      = 1
447       OTHERS     = 2.
448   IF sy-subrc <> 0.
449     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
450                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
451   ENDIF.
452 
453 *   CREATE OBJECT gt_event_receiver.
454 *   SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.
455 
456 
457 ENDFORM.                    " FRM_GET_EVENT
458 *&---------------------------------------------------------------------*
459 *& Form FRM_F4_I_APPSET
460 *&---------------------------------------------------------------------*
461 *& text
462 *&---------------------------------------------------------------------*
463 *& -->  p1        text
464 *& <--  p2        text
465 *&---------------------------------------------------------------------*
466 FORM frm_f4_i_appset .
467   TYPES: BEGIN OF typ_tab,
468 *           ELIKZ     TYPE CHAR1,
469            elikz_txt TYPE char30,
470          END OF typ_tab.
471   DATA: lt_value_tab TYPE TABLE OF typ_tab.
472 
473   lt_value_tab = VALUE #(  (   elikz_txt = ‘WMPLAN‘ )
474                            (  elikz_txt = ‘WMCONSOL‘ )
475 *                           (   ELIKZ_TXT = ‘Rates‘ ) ).
476 ).
477 
478   CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST‘
479     EXPORTING
480       retfield         = ‘ELIKZ‘  "指定要返回屏幕参数的在内表中的field
481       dynpprog         = sy-repid "指定屏幕参数所在的程序名称
482       dynpnr           = sy-dynnr "指定参数所在的屏幕编号
483       dynprofield      = ‘I_APPSET‘ "指定屏幕参数的名称
484       value_org        = ‘S‘      "C表示cell，S表示structure
485       callback_program = sy-repid
486     TABLES
487       value_tab        = lt_value_tab
488     EXCEPTIONS
489       parameter_error  = 1
490       no_values_found  = 2
491       OTHERS           = 3.
492   IF sy-subrc <> 0.
493     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
494             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
495   ENDIF.
496 ENDFORM.
497 *&---------------------------------------------------------------------*
498 *& Form FRM_F4_I_APPL_I
499 *&---------------------------------------------------------------------*
500 *& text
501 *&---------------------------------------------------------------------*
502 *& -->  p1        text
503 *& <--  p2        text
504 *&---------------------------------------------------------------------*
505 FORM frm_f4_i_appl_i .
506   TYPES: BEGIN OF typ_tab,
507 *           ELIKZ     TYPE CHAR1,
508            elikz_txt TYPE char30,
509          END OF typ_tab.
510   DATA: lt_value_tab_id TYPE TABLE OF typ_tab.
511 
512   lt_value_tab_id = VALUE #(  (   elikz_txt = ‘Planning‘ )
513                            (  elikz_txt = ‘Consolidation‘ )
514                            (   elikz_txt = ‘Rates‘ ) ).
515 
516   CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST‘
517     EXPORTING
518       retfield         = ‘ELIKZ‘  "指定要返回屏幕参数的在内表中的field
519       dynpprog         = sy-repid "指定屏幕参数所在的程序名称
520       dynpnr           = sy-dynnr "指定参数所在的屏幕编号
521       dynprofield      = ‘I_APPL_I‘ "指定屏幕参数的名称
522       value_org        = ‘S‘      "C表示cell，S表示structure
523       callback_program = sy-repid
524     TABLES
525       value_tab        = lt_value_tab_id
526     EXCEPTIONS
527       parameter_error  = 1
528       no_values_found  = 2
529       OTHERS           = 3.
530   IF sy-subrc <> 0.
531     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
532             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
533   ENDIF.
534 ENDFORM.