How to Provide search Help for files on Application Server

Question

Hi Guys,
               Can anyone tell me How to Provide search Help for files on Application Server. I have put a file name on selection screen. I want to give search help for files on application server.
Thanks & Regards.
Harish.

Answer 1

Hi Harish,
Use the following code,
tables sxpgcotabe.
data: lt_execprot LIKE btcxpm OCCURS 0 WITH HEADER LINE,
        w_filepath(60)       TYPE c, --> length depending on your Directory path.
  SELECT SINGLE *
    FROM sxpgcotabe
         WHERE name = 'LIST_DB2DUMP'
           AND opsystem = sy-opsys.
  IF sy-subrc <> 0.
    SELECT SINGLE *
      FROM sxpgcotabe
           WHERE name = 'LIST_DB2DUMP'
             AND opsystem = 'UNIX'.
    IF sy-subrc <> 0.
      MESSAGE e000 WITH 'External operating system command '
                        'LIST_DB2DUMP not found'.
    ENDIF.
  ENDIF.
  sxpgcotabe-parameters = p_filepath. --> provide the directory path.
  CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
       EXPORTING
            commandname                   = sxpgcotabe-name
            additional_parameters         = sxpgcotabe-parameters
            operatingsystem               = sxpgcotabe-opsystem
       TABLES
            exec_protocol                 = lt_execprot 
       EXCEPTIONS
            no_permission                 = 1
            command_not_found             = 2
            parameters_too_long           = 3
            security_risk                 = 4
            wrong_check_call_interface    = 5
            program_start_error           = 6
            program_termination_error     = 7
            x_error                       = 8
            parameter_expected            = 9
            too_many_parameters           = 10
            illegal_command               = 11
            wrong_asynchronous_parameters = 12
            cant_enq_tbtco_entry          = 13
            jobcount_generation_error     = 14
            OTHERS                        = 15.
  IF sy-subrc <> 0.
    MESSAGE e000 WITH text-e01 p_filepath.  "Directory failed
  ENDIF.
Loop round the directory list, split each line up into a line table
and get the last data for each line, should be the filename
Then build the dirlist.
  REFRESH t_dirlist.
  LOOP AT lt_execprot.
    REFRESH t_dirline.
    SPLIT lt_execprot-message AT space INTO TABLE t_dirline.
    DESCRIBE TABLE t_dirline LINES w_nolines.
    READ TABLE t_dirline INDEX w_nolines.
    MOVE t_dirline-data TO t_dirlist-filename.
    APPEND t_dirlist.
  ENDLOOP.
Here you will get all the files in the directory mentioned in Application server.
For displaying them as a Search help use the FM '/BMC/ZPOPUP_GET_VALUE'
Pass the Internal table to this FM.
Regards,
Paul.