topic Re: Browser window for pgm Names in Application Development and Automation Discussions

Browser window for pgm Names

Former Member — Fri, 08 Jun 2007 09:58:30 GMT

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

Re: Browser window for pgm Names

Former Member — Fri, 08 Jun 2007 10:03:06 GMT

Hi Asha,

Check this lInk,

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

Thanks,

Reward If Helpful.

Re: Browser window for pgm Names

Former Member — Fri, 08 Jun 2007 10:04:46 GMT

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

Re: Browser window for pgm Names

Former Member — Fri, 08 Jun 2007 10:05:08 GMT

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