topic Re: Drop down for executable program in Application Development and Automation Discussions

Drop down for executable program

Former Member — Fri, 02 May 2008 08:40:08 GMT

Hi All,

i am providing a drop down box for a selection field for an executable program by using VRM_SET values.But its not displaying the drop down box.Plz let me know the solution.

FORM drop_down.

TYPES : BEGIN OF l_s_help,

werks TYPE werks_d,

pspid TYPE ps_pspid,

descr(80) TYPE c,

END OF l_s_help.

DATA : l_t_template TYPE TABLE OF vrm_value .

DATA : l_r_template TYPE vrm_value.

DATA : l_t_help TYPE TABLE OF l_s_help.

DATA : l_r_help TYPE l_s_help.

SELECT werks pspid descr FROM /rb04/yt3_plant INTO TABLE l_t_help.

LOOP AT l_t_help INTO l_r_help.

MOVE l_r_help-descr TO l_r_template-key.

APPEND l_r_template TO l_t_template.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'PRD_TEMP'

values = l_t_template

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " drop_down

Re: Drop down for executable program

former_member756887 — Wed, 02 Jul 2008 07:25:27 GMT

report zss1.

&----

*& Form drop_down

&----

text

----

FORM drop_down.

type-pools : vrm.

TYPES : BEGIN OF l_s_help,

werks TYPE werks_d,

pspid TYPE ps_pspid,

descr(80) TYPE c,

END OF l_s_help.

DATA : l_t_template TYPE TABLE OF vrm_value .

DATA : l_r_template TYPE vrm_value.

DATA : l_t_help TYPE TABLE OF l_s_help.

DATA : l_r_help TYPE l_s_help.

SELECT werks pspid FROM projs INTO TABLE l_t_help up to 10 rows.

LOOP AT l_t_help INTO l_r_help.

*MOVE l_r_help-descr TO l_r_template-key.

APPEND l_r_template TO l_t_template.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'PRD_TEMP'

VALUES = l_t_template

EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " drop_down

regards

Aniruddh

Re: Drop down for executable program

former_member784222 — Wed, 02 Jul 2008 08:57:53 GMT

Hi,

Declare the parameter like this:

parmeters: PRD_TEMP type <actualtype> as listbox visible length 10.

Then call the routine 'DROP_DOWN' in INITIALIZATION event of the report.

regards,

Mouli.