selectionscreen

[Akhil_Sun]

plz can anyone help

how to display the selection screen with dropdown list with table names only like vbak,vbap,vbep and when i select radiobutton and trigger vbak it should go to se16

very urgent

[Pawan_Kesari]

see if this programs help you...

REPORT zreport.

TYPE-POOLS: vrm.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.
  name = 'PS_PARM'.
  value-key = '1'.
  value-text = 'LINE 1'.
  APPEND value TO list.
  value-key = '2'.
  value-text = 'LINE 2'.
  APPEND value TO list.
  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.

START-OF-SELECTION.
  WRITE: / 'PARAMETER:', ps_parm.

[Former Member]

HI Akhil,

For radiobutton yu can try this,

if RD1 = 'X'.

call transaction 'se16'.

endif.

standard program demo_selection_screen_f4

shows f4 help in selection screen

Regards,

aniruddh

[Former Member]

here's one that will take you to SE11

       NO STANDARD PAGE HEADING LINE-SIZE 255.

*_________________________________________________ BDC Data Area Start
DATA:
  session                 TYPE c,
  group(12)               TYPE c,
  user                    LIKE sy-uname,
  keep                    TYPE c,
  holddate                LIKE sy-datum,
  smalllog                TYPE c,
  ctumode                 TYPE c,
  cupdate                 TYPE c,
  e_group(12)             TYPE c,
  e_user                  LIKE sy-uname,
  e_keep                  TYPE c,
  e_hdate                 LIKE sy-datum,
  nodata                  TYPE c.
*----------------------------------------------------------------------*
*   data definition
*----------------------------------------------------------------------*
*       Batchinputdata of single transaction
DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
*       messages of call transaction
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
*       error session opened (' ' or 'X')
DATA:   e_group_opened.
*       message texts
TABLES: t100.
*DATA:
*  tablenm                 TYPE tabname16.

parameters:
  tablenm                 like dd02l-tabname.


START-OF-SELECTION.

*  tablenm = 'MARA'.
  ctumode = 'E'.
  PERFORM bdc_dynpro      USING 'SAPMSRD0' '0102'.
  PERFORM bdc_field       USING 'RSRD1-TBMA' 'X'.
  PERFORM bdc_field       USING 'RSRD1-TBMA_VAL' tablenm.
  PERFORM bdc_field       USING 'BDC_CURSOR' 'RSRD1-TBMA_VAL'.
  PERFORM bdc_field       USING 'BDC_OKCODE' '=SHOW'.
  PERFORM bdc_dynpro      USING 'SAPLSD02' '2000'.
  PERFORM bdc_field       USING 'BDC_OKCODE' '=GOOF'.
  PERFORM bdc_transaction USING 'SE11'.

*----------------------------------------------------------------------*
*        Start new transaction according to parameters                 *
*----------------------------------------------------------------------*
FORM bdc_transaction USING tcode.
  DATA: l_mstring(480).
  DATA: l_subrc LIKE sy-subrc.
  REFRESH messtab.
  CALL TRANSACTION tcode USING bdcdata
                   MODE   ctumode
                   UPDATE cupdate
                   MESSAGES INTO messtab.
  l_subrc = sy-subrc.
  REFRESH bdcdata.
ENDFORM.
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
  IF fval <> nodata.
    CLEAR bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    APPEND bdcdata.
  ENDIF.