Quantcast
Channel: SCN : All Content - ABAP Development
Viewing all articles
Browse latest Browse all 8332

I want help to get f4 help for multiple selection screen parameters for uploading files

$
0
0

My program is

REPORT  ZIM_C_SD_UPLOAD_TAB message-id zim_tv.

include  ZIM_C_SD_UPLOAD_TAB_top.

include  ZIM_C_SD_UPLOAD_TAB_SO1.

include  ZIM_C_SD_UPLOAD_TAB_FO1.

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PFILE.

   PERFORM P_PFILE.

   PERFORM P_AFILE. "CHANGING P_AFILE.

 

   START-OF-SELECTION.

   PERFORM GUI_UPLOAD USING P_PFILE

 

TYPES: BEGIN OF GTY_SALES,

   KTOKD TYPE KTOKD,

   KUNNR TYPE KUNNR,

   VKORG TYPE VKORG,

   VTWEG TYPE VTWEG,

   SPART TYPE SPART,

   BUKRS TYPE BUKRS_VF,

   NAME1 TYPE NAME1_GP,

   SORTL TYPE SORTL,

   AKONT TYPE AKONT,

   TAKLD TYPE C,

   LPRIO TYPE LPRIO,

   BZIRK TYPE BZIRK,

   END OF GTY_SALES,

   GTT_SALES TYPE TABLE OF GTY_SALES.

 

   DATA: GT_SALES TYPE GTT_SALES,

         GS_SALES TYPE GTY_SALES,

         LV_FILE  TYPE STRING.


selection-screen begin of block a with frame title text-100.

   PARAMETERS : P_RAD_P1 RADIOBUTTON GROUP rad1 USER-COMMAND RAD DEFAULT 'X'.

   PARAMETERS: P_RAD_A1 RADIOBUTTON GROUP rad1.

   selection-screen : begin of block b with frame title text-400.

 

   PARAMETERS: P_PFILE TYPE IBIPPARMS-PATH MODIF ID P1,

               p_efile type ibipparms-path  MODIF ID P1,

               p_sfile type ibipparms-path MODIF ID P1.

 

 

*Selection screen for Application server.

 

PARAMETERS: P_AFILE TYPE IBIPPARMS-PATH  MODIF ID P2,

             p_efile1 type ibipparms-path MODIF ID P2,

             p_sfile1 type ibipparms-path MODIF ID P2.

 

 

selection-screen : end of block b.

selection-screen end of block a.

 

*Hiding screen.

at selection-screen output.

     LOOP AT SCREEN.

       IF P_RAD_P1 = 'X'.

       IF SCREEN-GROUP1 = 'P2'.

     screen-active = 0.

*        screen-input = 0.

          MODIFY SCREEN.

     ENDIF.

     endif.

 

       IF P_RAD_A1 = 'X'.

   IF SCREEN-GROUP1 = 'P1'.

     screen-active = 0.

*        screen-input = 0.

       MODIFY SCREEN.

       ENDIF.

        ENDIF.



        ENDLOOP.


form P_PFILE .

 

   CALL FUNCTION 'F4_FILENAME'

    EXPORTING

      PROGRAM_NAME        = SYST-CPROG

      DYNPRO_NUMBER       = SYST-DYNNR

      FIELD_NAME          = ''

    IMPORTING

      FILE_NAME           = P_PFILE.

 

     endform.                    " P_PFILE

 

*&---------------------------------------------------------------------*

*&      Form  GUI_UPLOAD

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_P_PFILE  text

*----------------------------------------------------------------------*

form GUI_UPLOAD  using    p_p_pfile.

     LV_FILE = P_PFILE.

   CALL FUNCTION 'GUI_UPLOAD'

     EXPORTING

       filename                      = P_PFILE

*     FILETYPE                      = 'ASC'

      HAS_FIELD_SEPARATOR           = 'X'

*     HEADER_LENGTH                 = 0

*     READ_BY_LINE                  = 'X'

*     DAT_MODE                      = ' '

*     CODEPAGE                      = ' '

*     IGNORE_CERR                   = ABAP_TRUE

*     REPLACEMENT                   = '#'

*     CHECK_BOM                     = ' '

*     VIRUS_SCAN_PROFILE            =

*     NO_AUTH_CHECK                 = ' '

*   IMPORTING

*     FILELENGTH                    =

*     HEADER                        =

     tables

       data_tab                      = GT_SALES

    EXCEPTIONS

      FILE_OPEN_ERROR               = 1

      FILE_READ_ERROR               = 2

      NO_BATCH                      = 3

      GUI_REFUSE_FILETRANSFER       = 4

      INVALID_TYPE                  = 5

      NO_AUTHORITY                  = 6

      UNKNOWN_ERROR                 = 7

      BAD_DATA_FORMAT               = 8

      HEADER_NOT_ALLOWED            = 9

      SEPARATOR_NOT_ALLOWED         = 10

      HEADER_TOO_LONG               = 11

      UNKNOWN_DP_ERROR              = 12

      ACCESS_DENIED                 = 13

      DP_OUT_OF_MEMORY              = 14

      DISK_FULL                     = 15

      DP_TIMEOUT                    = 16

      OTHERS                        = 17

             .

   IF sy-subrc <> 0.

* Implement suitable error handling here

   ENDIF.

endform.


I just want to get f4 help using f4_filename for other parametes p_efile,p_sfile,p_afile,p_efile1,p_sfile1


Viewing all articles
Browse latest Browse all 8332

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>