abap_Filehandler/z_filesample__value_help.prog.abap at master · xamafe/abap_Filehandler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
*&---------------------------------------------------------------------*
*& Report Z_FILESAMPLE__VALUE_HELP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_filesample__value_help.

PARAMETERS:
  p_path TYPE string LOWER CASE,
  p_gui  RADIOBUTTON GROUP a,
  p_sap  RADIOBUTTON GROUP a.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
* Read Parameter from SelScreen
  zcl_tools=>get_parameter_value_of_dynpro( EXPORTING iv_field  = 'P_GUI'
                                                      iv_report = sy-repid
                                                      iv_dynnr  = sy-dynnr
                                            IMPORTING
                                                               ev_parameter = p_gui ).
* Read Parameter from SelScreen
  zcl_tools=>get_parameter_value_of_dynpro( EXPORTING iv_field  = 'P_SAP'
                                                      iv_report = sy-repid
                                                      iv_dynnr  = sy-dynnr
                                            IMPORTING
                                                      ev_parameter = p_sap ).
* Call F4 - help
  zcl_filehandler_base=>f4_help_all( EXPORTING
                                        iv_file_from_frontend  = p_gui
                                        iv_file_from_sapserver = p_sap
                                      CHANGING cv_fullpath = p_path ).

**********************************************************************
START-OF-SELECTION.
**********************************************************************

  WRITE: / 'Done'.