Browser window for pgm Names

[Former Member]

Hi,

I want to create a browser window(F4 help) for the names of the programs.That window should show the list of all the programs.So that user can select one of them.

Thanks in advance.

Regards,

Asha

[Former Member]

Hi,

I want to create a browser window(F4 help) for the names of the programs.That window should show the list of all the programs.So that user can select one of them.

Thanks in advance.

Regards,

Asha

[Former Member]

Hi Asha,

Check this lInk,

https://forums.sdn.sap.com/click.jspa?searchID=3062334&messageID=2057676

Thanks,

Reward If Helpful.

[Former Member]

Hello

Use this code in ur report.

PROCESS ON VALUE-REQUEST.
  FIELD RS38M-PROGRAMM
    MODULE CATALOG.

MODULE CATALOG.
DATA: REPID LIKE SY-REPID.
  DYNPFIELDS-FIELDNAME  = 'RS38M-PROGRAMM'.
  APPEND DYNPFIELDS.
  REPID = SY-REPID.
  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            DYNAME     = REPID
            DYNUMB     = SY-DYNNR
       TABLES
            DYNPFIELDS = DYNPFIELDS
       EXCEPTIONS
            OTHERS.
  READ TABLE DYNPFIELDS INDEX 1.
  RS38M-PROGRAMM = DYNPFIELDS-FIELDVALUE.
  PERFORM PROGRAM_DIRECTORY USING RS38M-PROGRAMM 'X'.
ENDMODULE.

FORM PROGRAM_DIRECTORY USING PROGRAMM LIKE RS38M-PROGRAMM
                             F4_CALL.
  DATA: INFO_OBJECT LIKE EUOBJ-ID,
        L_PROGRAMM LIKE RS38M-PROGRAMM.
  IF SY-TCODE(4) = SE38.
    INFO_OBJECT = 'PROG'.
    IF F4_CALL = 'X'.
      CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
           EXPORTING
                OBJECT_TYPE           = INFO_OBJECT
                OBJECT_NAME           = PROGRAMM
                SUPPRESS_SELECTION    = 'X'
           IMPORTING
                OBJECT_NAME_SELECTED  = PROGRAMM
           EXCEPTIONS
                CANCEL      = 01.
    ELSE.
      CALL FUNCTION 'REPOSITORY_INFO_SYSTEM'
           EXPORTING
                OBJECT_TYPE               = INFO_OBJECT
                ACTION                    = 'S'
                OBJECT_NAME               = PROGRAMM
           IMPORTING
                OBJECT_NAME_SELECTED      = PROGRAMM
           EXCEPTIONS
                CANCEL                    = 01
                WRONG_TYPE                = 02.
    ENDIF.
  ELSE.
    L_PROGRAMM = PROGRAMM.
    IF L_PROGRAMM = SPACE.
      SUBMIT RSABADAB AND RETURN VIA SELECTION-SCREEN
                      WITH F4_CALL =    F4_CALL.
    ELSE.
      SUBMIT RSABADAB AND RETURN VIA SELECTION-SCREEN
                      WITH REPNAME CP   L_PROGRAMM
                      WITH F4_CALL =    F4_CALL.
    ENDIF.
    GET PARAMETER ID 'RID' FIELD RS38M-PROGRAMM.
  ENDIF.
ENDFORM.

If useful reward.

Vasanth

[Former Member]

HI,

try this code

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES WITH HEADER LINE,

VALUE LIKE LINE OF LIST.

DATA: BEGIN OF ITAB OCCURS 0,

TRDIR TYPE TRDIR-NAME,

END OF ITAB.

DATA: BEGIN OF GIT_DYNPREAD OCCURS 0.

INCLUDE STRUCTURE DYNPREAD.

DATA: END OF GIT_DYNPREAD.

PARAMETERS: P_TRDIR TYPE BELNR_D AS LISTBOX VISIBLE LENGTH 20.

INITIALIZATION.

SELECT name FROM TRDIR INTO TABLE ITAB UP TO 10 rows.

LOOP AT ITAB.

LIST-KEY = ITAB-TRDIR.

• LIST-TEXT = LIST-KEY .

• LIST-TEXT = LIST-TEXT + 1.

APPEND LIST .

ENDLOOP.

name = 'P_TRDIR'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = NAME

VALUES = LIST[].

START-OF-SELECTION.

WRITE: / 'TRDIR', P_TRDIR. "VALUE-TEXT.

reward points if helpful

regards

venkatesh