Abap Forum on Gate²App


http://www.bb1.gate2app.com/

Universal ODATA Prototype Tester

http://www.bb1.gate2app.com/viewtopic.php?f=40&t=20633

Page 1 of 1

Universal ODATA Prototype Tester

PostPosted: Mon Sep 20, 2021 3:28 pm
by Tron
Bugfix 28.09.2021 : Initial value for Date = '00000000'.

Moin.
Nach vielen Services, die schon erstellt habe, war eines meiner Ziele einen Web - unabhängigen Odata Prototyp Tester zu verwirklichen, da
1.) POST / PATCH / UPDATE Operationen im Gateway client nur mühsam bis gar nicht zu bedienen sind (Thema CSRF-Token).
2.) Eine Möglichkeit vorhanden ist, auch komplett ohne Frontend zu arbeiten und damit Web-seitige Fehlerquellen auszuschließen.
3.) Aufwendigeres RFC Debugging zu umgehen.

Möglich wird das durch die konfektionierten Funktionsbausteine und ihre einheitliche Schnittstelle.
siehe viewtopic.php?f=40&t=20631
e.g.
001.png
001.png (61.25 KiB) Viewed 1271 times

Die Importparameter :
I_KEYS
I_SELECT_OPT
I_ORDER
I_SELECT_FIELDS
I_PAGING
Die Exportparameter :
O_DATA
O_MSG
so kann der Prototyp tester den Baustein dynamisch aufrufen.

000.png
000.png (33.91 KiB) Viewed 1270 times

002.png
002.png (27.12 KiB) Viewed 1270 times

Testwerte können gespeichert und wieder geladen werden (ähnlich Funktionsbaustein DB)
003.png
003.png (103.69 KiB) Viewed 1270 times

die gelesenen Daten oder Messages werden auch gespeichert, wenn man will.

Das Programm:
004.png
004.png (26.34 KiB) Viewed 1270 times


Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZODATA_TESTER
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8. REPORT zodata_tester.
  9. DATA: lt_fields TYPE STANDARD TABLE OF sval,
  10.       " ls_fields TYPE sval,
  11.       lv_rc     TYPE c.
  12. DATA g_struc TYPE  dd02l-tabname.
  13. DATA gv_ok_code(4).
  14.  
  16.   l_repid    TYPE syrepid,
  17.   lv_icon_ok TYPE icon-name,
  18.  
  19.   lv_button1 TYPE svalbutton-buttontext,
  20.   lv_icon1   TYPE icon-name,
  21.  
  22.   lv_button2 TYPE svalbutton-buttontext,
  23.   lv_icon2   TYPE icon-name.
  24.  
  25.  
  27.   <dyn_field> TYPE any,
  28.   <dyn_rec>   TYPE any,
  29.   <dyn_tab>   TYPE ANY TABLE.
  30.  
  32.   p_fm   TYPE tfdir-funcname OBLIGATORY,
  33.   p_keys TYPE dd02l-tabname,
  34.   p_path TYPE ibipparms-path OBLIGATORY VISIBLE LENGTH 40 DEFAULT 'C:\Temp\Odata_raw',
  35.   p_text AS CHECKBOX DEFAULT 'X',
  36.   p_pop  AS CHECKBOX DEFAULT 'X',
  37.   p_msg  AS CHECKBOX DEFAULT 'X',
  38.   p_dat  AS CHECKBOX DEFAULT 'X'.
  39.  
  40. IF p_keys IS INITIAL.
  41.   SELECT SINGLE structure FROM fupararef INTO p_keys WHERE
  42.     funcname  = p_fm AND
  43.     parameter = 'I_KEYS'.
  44.  
  46.  
  47. PERFORM f_fill_popup CHANGING p_keys p_text.
  48.  
  49. CALL FUNCTION 'POPUP_GET_VALUES_SET_MAX_FIELD'
  50.   EXPORTING
  51.     number_of_fields = 30
  52.   EXCEPTIONS
  53.     out_of_range     = 1.
  54.  
  55. lv_icon_ok  = icon_test.
  56.  
  57. lv_button1 = 'Save Test Data' ##NO_TEXT.
  58. lv_icon1   = icon_system_save.
  59.  
  60. lv_button2 = 'Read Test Data' ##NO_TEXT.
  61. lv_icon2   = icon_import.
  62.  
  63. l_repid = sy-repid.
  64.  
  66.  
  67.   CLEAR gv_ok_code.
  68.   CALL FUNCTION 'POPUP_GET_VALUES_USER_BUTTONS'
  69.     EXPORTING
  70. *     F1_FORMNAME       = ' '
  71. *     F1_PROGRAMNAME    = ' '
  72. *     F4_FORMNAME       = ' '
  73. *     F4_PROGRAMNAME    = ' '
  74.       formname          = 'ACTION'
  75.       programname       = l_repid
  76.       popup_title       = 'Please Enter'
  77.       ok_pushbuttontext = 'Execute'
  78.       icon_ok_push      = lv_icon_ok
  79.       first_pushbutton  = lv_button1
  80.       icon_button_1     = lv_icon1
  81.       second_pushbutton = lv_button2
  82.       icon_button_2     = lv_icon2
  83. *     QUICKINFO_OK_PUSH = ' '
  84. *     QUICKINFO_BUTTON_1              = ' '
  85. *     QUICKINFO_BUTTON_2              = ' '
  86.       start_column      = '2'
  87.       start_row         = '2'
  88. *     NO_CHECK_FOR_FIXED_VALUES       = ' '
  89.     IMPORTING
  90.       returncode        = lv_rc  "space/'A'=Abbruch
  91.     TABLES
  92.       fields            = lt_fields
  93.     EXCEPTIONS
  94.       error_in_fields   = 1
  95.       OTHERS            = 2.
  96.  
  97.   IF lv_rc  NE space OR sy-subrc NE 0.
  98.     EXIT.
  99.   ENDIF.
  100.  
  102.  
  103.  
  105.  
  106.  
  107. FORM f_fill_popup CHANGING i_struc TYPE dd02l-tabname i_names TYPE c.
  108.   DATA t_field_def TYPE TABLE OF rpy_fiel.
  109.   DATA s_def TYPE rpy_fiel.
  110.   DATA ls_fields TYPE sval.
  111.  
  112.  
  113.   CALL FUNCTION 'RPY_TABLE_READ'
  114.     EXPORTING
  115. *     ACTIVATION_TYPE_I     = 'M'
  116. *     LANGUAGE         = SY-LANGU
  117.       table_name       = i_struc
  118. *     WITH_DOCU        = ' '
  119. *     DOCUTYPE         = 'U'
  120. * IMPORTING
  121. *     TABL_INF         =
  122. *     TABL_TECHNICS    =
  123. *     ACTIVATION_TYPE_O     =
  124.     TABLES
  125.       tabl_fields      = t_field_def
  126. *     DOCU_TABLE_USER  =
  127. *     DOCU_TABLE_TECH  =
  128.     EXCEPTIONS
  129.       cancelled        = 1
  130.       not_found        = 2
  131.       permission_error = 3
  132.       illegal_type     = 4
  133.       OTHERS           = 5.
  134.  
  135.   IF sy-subrc <> 0.
  136.     EXIT.
  137.   ENDIF.
  138.  
  139.   LOOP AT  t_field_def INTO s_def ." WHERE dtelname NE 'MANDT'.
  140.     CLEAR ls_fields.
  141.     ls_fields-tabname   = i_struc.
  142.  
  143.     ls_fields-fieldname = s_def-fieldname.
  144.     IF s_def-datatype = 'DATS'.
  145.       ls_fields-value = '00000000'.
  146.     ELSE.
  147.       CLEAR ls_fields-value.
  148.     ENDIF.
  149.  
  150. *FIELD_ATTR
  151. *FIELD_OBL
  152. *COMP_CODE
  153.     "ls_fields-FIELDTEXT = s_def-SCRTEXT_M.
  154.     IF p_text IS INITIAL.
  155.       ls_fields-fieldtext = s_def-scrtext_m.
  156.     ELSE.
  157.       "    CONCATENATE s_def-dtelname  s_def-scrtext_m INTO ls_fields-fieldtext SEPARATED BY space.
  158.       ls_fields-fieldtext = s_def-fieldname.
  159.     ENDIF.
  160.  
  161.     "COMP_TAB = CHECKTABLE
  162.     "COMP_FIELD
  163.     ls_fields-novaluehlp = ' '.
  164.  
  165.     APPEND ls_fields TO lt_fields.
  167.  
  169.  
  170. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  171.  
  172.   PERFORM f4_path.
  173.  
  175.   TYPES: BEGIN OF ty_info,
  176.            typ(1),
  177.            null(1),
  178.            line(120),
  179.          END OF ty_info.
  180.  
  181. * für autom. Variante DEFAULT laden
  182.   DATA:
  183.     l_report   TYPE raldb_repo ##NEEDED,
  184.     l_variante TYPE raldb_vari ##NEEDED,
  185.     t_info     TYPE TABLE OF ty_info ##NEEDED.
  186.  
  187. ** Load variant sy-uname
  188.   l_report   = sy-repid.
  189.   l_variante = sy-uname.
  190.  
  191.  
  192.   CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
  193.     EXPORTING
  194.       report  = l_report
  195.       variant = l_variante
  196.     TABLES
  197.       infotab = t_info
  198.     EXCEPTIONS
  199.       OTHERS  = 3 ##FM_SUBRC_OK.
  200.  
  201. *&---------------------------------------------------------------------*
  202. *&      Form  f4_path
  203. *&---------------------------------------------------------------------*
  204. FORM f4_path.
  205.  
  206. *== local data
  207.   DATA lv_out    TYPE string.
  208.   DATA lv_in     TYPE string.
  209.   DATA lt_fields TYPE TABLE OF dynpread.
  210.   DATA ls_field  TYPE dynpread.
  211.  
  212. *== get current value for path
  213.   ls_field = 'P_PATH'.
  214.   APPEND ls_field TO lt_fields.
  215.  
  216.   CALL FUNCTION 'DYNP_VALUES_READ'
  217.     EXPORTING
  218.       dyname     = sy-cprog
  219.       dynumb     = sy-dynnr
  220.     TABLES
  221.       dynpfields = lt_fields
  222.     EXCEPTIONS
  223.       OTHERS     = 1.
  224.  
  225.   IF sy-subrc = 0.
  226.     READ TABLE lt_fields INTO ls_field INDEX 1.
  227.     lv_in = ls_field-fieldvalue.
  228.   ENDIF.
  229.  
  230. *== call popup for directory selection
  231.   CALL METHOD cl_gui_frontend_services=>directory_browse
  232.     EXPORTING
  233.       initial_folder  = lv_in
  234.     CHANGING
  235.       selected_folder = lv_out
  236.     EXCEPTIONS
  237.       OTHERS          = 4.
  238.  
  239.   IF sy-subrc = 0 AND lv_out IS NOT INITIAL.
  240. *== set selected path
  241.     p_path = lv_out.
  242.   ELSE.
  243. *== set origin path
  244.     p_path = lv_in.
  245.   ENDIF.
  246.  
  248.  
  249.  
  250. FORM action TABLES  pt_fields STRUCTURE sval
  251.                               USING    p_code
  252.                               CHANGING p_error   STRUCTURE svale
  253.                                        p_show_popup.
  254.  
  255.   DATA lt_fields TYPE TABLE OF sval.
  256.   DATA ls_fields  TYPE sval.
  257.   FIELD-SYMBOLS <p> TYPE sval.
  258.  
  259.   gv_ok_code =  p_code.
  260.  
  261.   CASE p_code.
  262.  
  263. *   WRITE TEST data
  264.     WHEN 'COD1'.
  265.       PERFORM write_data TABLES pt_fields.
  266.  
  267.  
  268. *   Read TEST data
  269.     WHEN 'COD2'.
  270.       lt_fields[] = pt_fields[].
  271.       PERFORM read_data TABLES lt_fields.
  272.       LOOP AT pt_fields ASSIGNING <p>.
  273.         READ TABLE lt_fields INTO ls_fields WITH KEY tabname = <p>-tabname fieldname = <p>-fieldname.
  274.         IF sy-subrc = 0.
  275.           <p>-value = ls_fields-value.
  276.         ENDIF.
  277.       ENDLOOP.
  278.  
  279. *   Run FM
  280.     WHEN 'FURT'.
  281.       PERFORM call_fm TABLES pt_fields.
  282.  
  284.  
  285.  
  287.  
  288. FORM write_data TABLES pt_fields STRUCTURE sval.
  289.   DATA fn TYPE string.
  290.  
  291.   DATA l_tstamp(15) .
  292.   l_tstamp = sy-datum.
  293.   l_tstamp+8(1) = '_'.
  294.   l_tstamp+9 = sy-uzeit.
  295.  
  296.   CONCATENATE p_path '\' 'IKEY_' p_fm '~' g_struc '~' l_tstamp '.txt' INTO fn.
  297.  
  298.   CALL METHOD cl_gui_frontend_services=>gui_download
  299.     EXPORTING
  300. *     bin_filesize            =
  301.       filename                = fn
  302. *     filetype                = 'ASC'
  303. *     append                  = SPACE
  304. *     write_field_separator   = 'X'
  305. *     header                  = '00'
  306. *     trunc_trailing_blanks   = 'X'
  307. *     write_lf                = 'X'
  308. *     col_select              = SPACE
  309. *     col_select_mask         = SPACE
  310. *     dat_mode                = SPACE
  311. *     confirm_overwrite       = SPACE
  312. *     no_auth_check           = SPACE
  313. *     codepage                = SPACE
  314. *     ignore_cerr             = ABAP_TRUE
  315. *     replacement             = '#'
  316. *     write_bom               = SPACE
  317. *     trunc_trailing_blanks_eol = 'X'
  318. *     wk1_n_format            = SPACE
  319. *     wk1_n_size              = SPACE
  320. *     wk1_t_format            = SPACE
  321. *     wk1_t_size              = SPACE
  322. *     show_transfer_status    = 'X'
  323. *     fieldnames              =
  324. *     write_lf_after_last_line  = 'X'
  325. *     virus_scan_profile      = '/SCET/GUI_DOWNLOAD'
  326. *  IMPORTING
  327. *     filelength              =
  328.     CHANGING
  329.       data_tab                = pt_fields[]
  330.     EXCEPTIONS
  331.       file_write_error        = 1
  332.       no_batch                = 2
  333.       gui_refuse_filetransfer = 3
  334.       invalid_type            = 4
  335.       no_authority            = 5
  336.       unknown_error           = 6
  337.       header_not_allowed      = 7
  338.       separator_not_allowed   = 8
  339.       filesize_not_allowed    = 9
  340.       header_too_long         = 10
  341.       dp_error_create         = 11
  342.       dp_error_send           = 12
  343.       dp_error_write          = 13
  344.       unknown_dp_error        = 14
  345.       access_denied           = 15
  346.       dp_out_of_memory        = 16
  347.       disk_full               = 17
  348.       dp_timeout              = 18
  349.       file_not_found          = 19
  350.       dataprovider_exception  = 20
  351.       control_flush_error     = 21
  352.       not_supported_by_gui    = 22
  353.       error_no_gui            = 23
  354.       OTHERS                  = 24.
  355.   .
  356.   IF sy-subrc <> 0.
  357. * Implement suitable error handling here
  358.   ENDIF.
  359.  
  360.  
  362.  
  363. FORM read_data TABLES pt_fields STRUCTURE sval.
  364.   DATA:
  365.     filetable         TYPE filetable,
  366.     file_line         TYPE file_table,
  367.     window_title      TYPE string VALUE 'Select',
  368.     file_filter       TYPE string,
  369.     initial_directory TYPE string,
  370.     rc                TYPE i,
  371.     fn                TYPE string.
  372.  
  373.  
  374.   file_filter             = 'Odata Input (IKEY*.txt)|IKEY*.txt'.
  375.   initial_directory = p_path.
  376.  
  377.   CALL METHOD cl_gui_frontend_services=>file_open_dialog
  378.     EXPORTING
  379.       window_title            = window_title
  380. *     default_extension       =
  381. *     default_filename        =
  382.       file_filter             = file_filter
  383. *     with_encoding           =
  384.       initial_directory       = initial_directory
  385.       multiselection          = abap_false
  386.     CHANGING
  387.       file_table              = filetable
  388.       rc                      = rc
  389. *     user_action             =
  390. *     file_encoding           =
  391.     EXCEPTIONS
  392.       file_open_dialog_failed = 1
  393.       cntl_error              = 2
  394.       error_no_gui            = 3
  395.       not_supported_by_gui    = 4
  396.       OTHERS                  = 5.
  397.   IF sy-subrc <> 0 OR rc = 0.
  398.     EXIT.
  399.   ENDIF.
  400.  
  401.   LOOP AT filetable INTO file_line.
  402.     EXIT.
  404.  
  405.   fn = file_line.
  406.   CALL METHOD cl_gui_frontend_services=>gui_upload
  407.     EXPORTING
  408.       filename                = fn
  409. *     filetype                = 'ASC'
  410. *     has_field_separator     = SPACE
  411. *     header_length           = 0
  412. *     read_by_line            = 'X'
  413. *     dat_mode                = SPACE
  414. *     codepage                = SPACE
  415. *     ignore_cerr             = ABAP_TRUE
  416. *     replacement             = '#'
  417. *     virus_scan_profile      =
  418. *  IMPORTING
  419. *     filelength              =
  420. *     header                  =
  421.     CHANGING
  422.       data_tab                = pt_fields[]
  423. *     isscanperformed         = SPACE
  424.     EXCEPTIONS
  425.       file_open_error         = 1
  426.       file_read_error         = 2
  427.       no_batch                = 3
  428.       gui_refuse_filetransfer = 4
  429.       invalid_type            = 5
  430.       no_authority            = 6
  431.       unknown_error           = 7
  432.       bad_data_format         = 8
  433.       header_not_allowed      = 9
  434.       separator_not_allowed   = 10
  435.       header_too_long         = 11
  436.       unknown_dp_error        = 12
  437.       access_denied           = 13
  438.       dp_out_of_memory        = 14
  439.       disk_full               = 15
  440.       dp_timeout              = 16
  441.       not_supported_by_gui    = 17
  442.       error_no_gui            = 18
  443.       OTHERS                  = 19.
  444.   IF sy-subrc <> 0.
  445.   ENDIF.
  446.  
  448. *&---------------------------------------------------------------------*
  449. *&      Form  create Structure dynamically
  450. *&---------------------------------------------------------------------*
  451. *       text
  452. *----------------------------------------------------------------------*
  453. FORM create_itab USING i_tdef TYPE dd02l-tabname .
  454.  
  455.   DATA:
  456.     l_ref_type_descr_ddic   TYPE REF TO cl_abap_typedescr,
  457.     l_ref_type_descr_line   TYPE REF TO cl_abap_typedescr,
  458.     l_ref_struct_descr_line TYPE REF TO cl_abap_structdescr,
  459.     l_tab_component         TYPE        cl_abap_structdescr=>component_table.
  460.  
  461.   DATA:
  462.     lop_tabledescr    TYPE REF TO cl_abap_tabledescr,
  463.     ldp_dynaic_record TYPE REF TO data,
  464.     ldp_dyn_table     TYPE REF TO data,
  465.     lop_strucdescr    TYPE REF TO cl_abap_structdescr.
  466.  
  467.  
  468.   l_ref_type_descr_ddic = cl_abap_typedescr=>describe_by_name( i_tdef ).
  469.   l_ref_struct_descr_line ?= l_ref_type_descr_ddic.
  470.   l_tab_component = l_ref_struct_descr_line->get_components( ).
  471.  
  472.   lop_strucdescr = cl_abap_structdescr=>create( l_tab_component ).
  473.   CREATE DATA ldp_dynaic_record TYPE HANDLE lop_strucdescr.
  474.  
  475.   lop_tabledescr ?= cl_abap_tabledescr=>create( p_line_type = lop_strucdescr ).
  476.   CREATE DATA ldp_dyn_table TYPE HANDLE lop_tabledescr.
  477.  
  478.   ASSIGN ldp_dynaic_record->* TO <dyn_rec>.
  479.   ASSIGN ldp_dyn_table->* TO <dyn_tab>.
  480.  
  481.  
  483.  
  484. FORM create_itab2 USING i_tdef TYPE dd02l-tabname .
  485.   DATA t_field_def TYPE TABLE OF rpy_fiel.
  486.   DATA s_field_def TYPE rpy_fiel.
  487.  
  488.  
  489.   UNASSIGN:
  490.     <dyn_field>,
  491.     <dyn_rec>,
  492.     <dyn_tab>.
  493.  
  494.   CALL FUNCTION 'RPY_TABLE_READ'
  495.     EXPORTING
  496.       table_name       = i_tdef
  497.     TABLES
  498.       tabl_fields      = t_field_def
  499.     EXCEPTIONS
  500.       cancelled        = 1
  501.       not_found        = 2
  502.       permission_error = 3
  503.       illegal_type     = 4
  504.       OTHERS           = 5.
  505.  
  506.   IF sy-subrc <> 0.
  507.     EXIT.
  508.   ENDIF.
  509.  
  510.   DATA:
  511.     ldp_dyn_table     TYPE REF TO data,
  512.     lop_tabledescr    TYPE REF TO cl_abap_tabledescr,
  513.     ldp_dynaic_record TYPE REF TO data,
  514.     lop_strucdescr    TYPE REF TO cl_abap_structdescr,
  515.     ls_component      TYPE abap_componentdescr,
  516.     lt_component      TYPE abap_component_tab.
  517.  
  518.   DATA l_field_length   TYPE i.
  519.   DATA l_decimals   TYPE i.
  520.   DATA fields TYPE  rfc_db_fld.
  521.   DATA lv_int1 TYPE int1.
  522.   DATA lv_int2 TYPE int2.
  523.   DATA lv_int4 TYPE int4.
  524.  
  525. *FIELDNAME                      OFFSET LENGTH T FIELDTEXT
  526. *MANDT                          000000 000003 C
  527. *MATNR                          000003 000018 C
  528. *SPRAS                          000021 000002 C
  529. *MAKTX                          000023 000040 C
  530. *MAKTG                          000063 000040 C
  531.  
  532. *  LOOP AT tfields INTO fields.
  533. *    READ TABLE t_field_def INTO s_field_def WITH KEY fieldname = fields-fieldname.
  534.   LOOP AT t_field_def INTO s_field_def.
  535.     IF sy-subrc = 0.
  536.  
  537. * Create Description
  538. *      "IF NOT c_head IS INITIAL.
  539. *        MOVE-CORRESPONDING s_field_def TO ls_hdr.
  540. *        APPEND ls_hdr TO lt_hdr.
  541. *      "ENDIF.
  542.  
  543.       CASE s_field_def-datatype.
  544.         WHEN 'CHAR' OR 'UNIT' OR 'CUKY' OR 'CLNT'
  545. .         l_field_length = s_field_def-length.
  546.           ls_component-name = s_field_def-fieldname.
  547.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
  548.           APPEND ls_component TO lt_component.
  549.  
  550.         WHEN 'LANG'.
  551.           l_field_length = s_field_def-length.
  552.           ls_component-name = s_field_def-fieldname.
  553.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
  554.           APPEND ls_component TO lt_component.
  555.  
  556.         WHEN 'DEC' OR 'QUAN' OR 'CURR'.
  557.           l_field_length = s_field_def-intlength
  558. .           l_decimals = s_field_def-decimals.
  559.           ls_component-name = s_field_def-fieldname.
  560.           ls_component-type = cl_abap_elemdescr=>get_p( p_length = l_field_length  p_decimals = l_decimals ).
  561.           APPEND ls_component TO lt_component.
  562.  
  563.         WHEN 'NUMC'.
  564.           l_field_length = s_field_def-length.
  565.           ls_component-name = s_field_def-fieldname.
  566.           ls_component-type = cl_abap_elemdescr=>get_n( p_length = l_field_length ).
  567.           APPEND ls_component TO lt_component.
  568.  
  569.         WHEN 'INT1' OR 'INT2' OR 'INT4'.
  570.  
  571.           ls_component-name = s_field_def-fieldname.
  572.  
  573.           IF s_field_def-datatype = 'INT1'.
  574.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int1 ).
  575.           ELSEIF  s_field_def-datatype = 'INT2'.
  576.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int2 ).
  577.           ELSEIF  s_field_def-datatype = 'INT4'.
  578.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int4 ).
  579.           ENDIF.
  580.  
  581.           APPEND ls_component TO lt_component.
  582.  
  583.         WHEN 'DATS'.
  584.           l_field_length = s_field_def-length.
  585.           ls_component-name = s_field_def-fieldname.
  586.           ls_component-type = cl_abap_elemdescr=>get_d( ).
  587.           APPEND ls_component TO lt_component.
  588.  
  589.         WHEN 'TIMS'.
  590.           l_field_length = s_field_def-length.
  591.           ls_component-name = s_field_def-fieldname.
  592.           ls_component-type = cl_abap_elemdescr=>get_t( ).
  593.           APPEND ls_component TO lt_component.
  594.  
  595.         WHEN OTHERS.
  596.           break jgu025.
  597.           l_field_length = s_field_def-length.
  598.           ls_component-name = s_field_def-fieldname.
  599.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
  600.           APPEND ls_component TO lt_component.
  601.  
  602.       ENDCASE.
  603.     ENDIF.
  604.  
  606.  
  607.  
  608.   lop_strucdescr = cl_abap_structdescr=>create( lt_component ).
  609.   CREATE DATA ldp_dynaic_record TYPE HANDLE lop_strucdescr.
  610.   lop_tabledescr ?= cl_abap_tabledescr=>create( p_line_type = lop_strucdescr ).
  611.  
  612.   CREATE DATA ldp_dyn_table TYPE HANDLE lop_tabledescr.
  613.  
  614.   ASSIGN ldp_dynaic_record->* TO <dyn_rec>.
  615.   ASSIGN ldp_dyn_table->* TO <dyn_tab>.
  616.  
  617.  
  619.  
  620.  
  621. FORM write_msg USING i_msg TYPE bapirettab.
  622.   DATA fn TYPE string.
  623.  
  624.   DATA l_tstamp(15) .
  625.   l_tstamp = sy-datum.
  626.   l_tstamp+8(1) = '_'.
  627.   l_tstamp+9 = sy-uzeit.
  628.  
  629.   CONCATENATE p_path '\' 'MSG_' p_fm '~'  l_tstamp '.txt' INTO fn.
  630.  
  631.   CALL METHOD cl_gui_frontend_services=>gui_download
  632.     EXPORTING
  633.       filename                = fn
  634.     CHANGING
  635.       data_tab                = i_msg[]
  636.     EXCEPTIONS
  637.       file_write_error        = 1
  638.       no_batch                = 2
  639.       gui_refuse_filetransfer = 3
  640.       invalid_type            = 4
  641.       no_authority            = 5
  642.       unknown_error           = 6
  643.       header_not_allowed      = 7
  644.       separator_not_allowed   = 8
  645.       filesize_not_allowed    = 9
  646.       header_too_long         = 10
  647.       dp_error_create         = 11
  648.       dp_error_send           = 12
  649.       dp_error_write          = 13
  650.       unknown_dp_error        = 14
  651.       access_denied           = 15
  652.       dp_out_of_memory        = 16
  653.       disk_full               = 17
  654.       dp_timeout              = 18
  655.       file_not_found          = 19
  656.       dataprovider_exception  = 20
  657.       control_flush_error     = 21
  658.       not_supported_by_gui    = 22
  659.       error_no_gui            = 23
  660.       OTHERS                  = 24.
  661.   .
  662.   IF sy-subrc <> 0.
  663. * Implement suitable error handling here
  664.   ENDIF.
  665.  
  666.  
  668.  
  669. FORM write_odata .
  670.   DATA fn TYPE string.
  671.  
  672.   DATA l_tstamp(15) .
  673.   l_tstamp = sy-datum.
  674.   l_tstamp+8(1) = '_'.
  675.   l_tstamp+9 = sy-uzeit.
  676.  
  677.   CONCATENATE p_path '\' 'ODATA_' p_fm '~' l_tstamp '.txt' INTO fn.
  678.  
  679.   CALL METHOD cl_gui_frontend_services=>gui_download
  680.     EXPORTING
  681.       filename                = fn
  682. *     filetype                = 'ASC'
  683. *     append                  = SPACE
  684.       write_field_separator   = 'X'
  685. *     header                  = '00'
  686.       trunc_trailing_blanks   = 'X'
  687. *     write_lf                = 'X'
  688. *     col_select              = SPACE
  689. *     col_select_mask         = SPACE
  690. *     dat_mode                = SPACE
  691. *     confirm_overwrite       = SPACE
  692. *     no_auth_check           = SPACE
  693. *     codepage                = SPACE
  694. *     ignore_cerr             = ABAP_TRUE
  695. *     replacement             = '#'
  696. *     write_bom               = SPACE
  697. *     trunc_trailing_blanks_eol = 'X'
  698. *     wk1_n_format            = SPACE
  699. *     wk1_n_size              = SPACE
  700. *     wk1_t_format            = SPACE
  701. *     wk1_t_size              = SPACE
  702. *     show_transfer_status    = 'X'
  703. *     fieldnames              =
  704. *     write_lf_after_last_line  = 'X'
  705. *     virus_scan_profile      = '/SCET/GUI_DOWNLOAD'
  706.     CHANGING
  707.       data_tab                = <dyn_tab>[]
  708.     EXCEPTIONS
  709.       file_write_error        = 1
  710.       no_batch                = 2
  711.       gui_refuse_filetransfer = 3
  712.       invalid_type            = 4
  713.       no_authority            = 5
  714.       unknown_error           = 6
  715.       header_not_allowed      = 7
  716.       separator_not_allowed   = 8
  717.       filesize_not_allowed    = 9
  718.       header_too_long         = 10
  719.       dp_error_create         = 11
  720.       dp_error_send           = 12
  721.       dp_error_write          = 13
  722.       unknown_dp_error        = 14
  723.       access_denied           = 15
  724.       dp_out_of_memory        = 16
  725.       disk_full               = 17
  726.       dp_timeout              = 18
  727.       file_not_found          = 19
  728.       dataprovider_exception  = 20
  729.       control_flush_error     = 21
  730.       not_supported_by_gui    = 22
  731.       error_no_gui            = 23
  732.       OTHERS                  = 24.
  733.   .
  734.   IF sy-subrc <> 0.
  735. * Implement suitable error handling here
  736.   ENDIF.
  737.  
  738.  
  740.  
  741.  
  742.  
  743. FORM call_fm TABLES pt_fields STRUCTURE sval.
  744.   "p_fm
  745.   DATA l_fm TYPE rs38l-name.
  746.   DATA s_sval TYPE sval.
  747.   DATA o_msg_tt TYPE  bapirettab.
  748.   DATA o_msg_s TYPE  bapiret2.
  749.   DATA lmsg_type TYPE fupararef-structure.
  750.  
  751.  
  752.   l_fm = p_fm.
  753.  
  754.   CALL FUNCTION 'FUNCTION_EXISTS'
  755.     EXPORTING
  756.       funcname           = l_fm
  757.     EXCEPTIONS
  758.       function_not_exist = 1
  759.       OTHERS             = 2.
  760.   .
  761.   IF sy-subrc <> 0.
  762.     MESSAGE s500(0u) WITH 'Function module does NOT Exist' '' '' '' DISPLAY LIKE 'E'.
  763.     EXIT.
  764.   ENDIF.
  765.  
  766.   PERFORM create_itab USING p_keys.
  767.  
  768.   DATA i TYPE i.
  769.  
  770.   LOOP AT pt_fields INTO s_sval.
  771.     i = sy-tabix.
  772.     ASSIGN COMPONENT i OF STRUCTURE  <dyn_rec> TO <dyn_field>.
  773.     <dyn_field> = s_sval-value.
  775.  
  776.   DATA s_para TYPE fupararef.
  777.  
  778.   i = 0.
  779.   CLEAR s_para.
  780.   SELECT SINGLE * FROM fupararef INTO s_para WHERE
  781.     funcname = l_fm AND
  782.     parameter = 'I_KEYS' AND
  783.     paramtype = 'I'.
  784.   IF NOT s_para IS INITIAL.
  785.     i = 1.
  786.   ENDIF.
  787.  
  788.   CLEAR s_para.
  789.   SELECT SINGLE * FROM fupararef INTO s_para WHERE
  790.     funcname = l_fm AND
  791.     parameter = 'O_DATA' AND paramtype = 'E'.
  792.   IF NOT s_para IS INITIAL.
  793.     i = i + 2.
  794.   ENDIF.
  795.  
  796.   CLEAR: s_para,lmsg_type.
  797.   SELECT SINGLE * FROM fupararef INTO s_para WHERE
  798.     funcname = l_fm AND
  799.     parameter = 'O_MSG' AND paramtype = 'E'.
  800.   IF NOT s_para IS INITIAL.
  801.     SELECT SINGLE COUNT(*) FROM dd40l WHERE typename = s_para-structure.
  802.     IF sy-subrc = 0.
  803.       lmsg_type = 'TTYP'.
  804.     ENDIF.
  805.     SELECT SINGLE COUNT(*) FROM dd02l WHERE tabname = s_para-structure.
  806.     IF sy-subrc = 0.
  807.       lmsg_type = 'STRU'.
  808.     ENDIF.
  809.  
  810.     i = i + 4.
  811.   ENDIF.
  812.  
  813.  
  814.   CASE i.
  815.     WHEN 1.
  816.       CALL FUNCTION l_fm
  817.         EXPORTING
  818.           i_keys = <dyn_rec>.
  819.  
  820.     WHEN 3.
  821.       CALL FUNCTION l_fm
  822.         EXPORTING
  823.           i_keys = <dyn_rec>
  824.         IMPORTING
  825.           o_data = <dyn_tab>.
  826.       IF NOT p_dat IS INITIAL.
  827.         PERFORM write_odata.
  828.       ENDIF.
  829.  
  830.  
  831.     WHEN 5.
  832.       IF lmsg_type = 'TTYP'.
  833.         CALL FUNCTION l_fm
  834.           EXPORTING
  835.             i_keys = <dyn_rec>
  836.           IMPORTING
  837.             o_msg  = o_msg_tt.
  838.         IF NOT p_msg IS INITIAL.
  839.           PERFORM write_msg USING o_msg_tt.
  840.         ENDIF.
  841.       ENDIF.
  842.  
  843.       IF lmsg_type = 'STRU'.
  844.         CALL FUNCTION l_fm
  845.           EXPORTING
  846.             i_keys = <dyn_rec>
  847.           IMPORTING
  848.             o_msg  = o_msg_s.
  849.         IF NOT p_msg IS INITIAL.
  850.           APPEND o_msg_s TO o_msg_tt.
  851.           PERFORM write_msg USING o_msg_tt.
  852.         ENDIF.
  853.       ENDIF.
  854.  
  855.     WHEN 7.
  856.       IF lmsg_type = 'TTYP'.
  857.         CALL FUNCTION l_fm
  858.           EXPORTING
  859.             i_keys = <dyn_rec>
  860.           IMPORTING
  861.             o_data = <dyn_tab>
  862.             o_msg  = o_msg_tt.
  863.         IF NOT p_msg IS INITIAL.
  864.           PERFORM write_msg USING o_msg_tt.
  865.         ENDIF.
  866.       ENDIF.
  867.  
  868.       IF lmsg_type = 'STRU'.
  869.         CALL FUNCTION l_fm
  870.           EXPORTING
  871.             i_keys = <dyn_rec>
  872.           IMPORTING
  873.             o_data = <dyn_tab>
  874.             o_msg  = o_msg_s.
  875.         IF NOT p_msg IS INITIAL.
  876.           APPEND o_msg_s TO o_msg_tt.
  877.           PERFORM write_msg USING o_msg_tt.
  878.         ENDIF.
  879.       ENDIF.
  880.  
  881.     WHEN OTHERS.
  883.  
  884. *  p_msg  AS CHECKBOX DEFAULT 'X',
  885. *  p_dat  AS CHECKBOX DEFAULT 'X'.
  886.  
  887.   IF NOT p_pop IS INITIAL AND NOT <dyn_tab> IS INITIAL.
  888.     cl_demo_output=>display( <dyn_tab> ).
  889.   ENDIF.
  891.  
  892. AT SELECTION-SCREEN ON p_fm.
  893.  
  894.   IF p_keys IS INITIAL.
  895.     SELECT SINGLE structure FROM fupararef INTO p_keys WHERE
  896.       funcname  = p_fm AND
  897.       parameter = 'I_KEYS'.
  898.  
  899.  
  900.   ENDIF.
GeSHi ©

ZODATA_TESTER.7z
(4.89 KiB) Downloaded 132 times
All times are UTC
Page 1 of 1
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/