REPORT
zpwtest.
*&---------------------------------------------------------------------*
*& Types and Data
*&---------------------------------------------------------------------*
TYPE-POOLS
: vrm .
DATA
: gt_values
TYPE
TABLE
OF
vrm_value .
PARAMETERS
: p_numl
TYPE
i
AS
LISTBOX VISIBLE LENGTH 7 OBLIGATORY .
*&---------------------------------------------------------------------*
*& Initialization
*&---------------------------------------------------------------------*
INITIALIZATION
.
PERFORM
init .
*&---------------------------------------------------------------------*
*& Start of Selection
*&---------------------------------------------------------------------*
START-OF-SELECTION
.
WRITE
: p_numl .
*&---------------------------------------------------------------------*
*& Form init
*&---------------------------------------------------------------------*
FORM
init.
DATA
ls_value
TYPE
vrm_value .
CLEAR
ls_value .
ls_value-key =
'3'
.
ls_value-text =
'3'
.
APPEND
ls_value
TO
gt_values .
CLEAR
ls_value .
ls_value-key =
'6'
.
ls_value-text =
'6'
.
APPEND
ls_value
TO
gt_values .
CLEAR
ls_value .
ls_value-key =
'9'
.
ls_value-text =
'9'
.
APPEND
ls_value
TO
gt_values .
CLEAR
ls_value .
ls_value-key =
'12'
.
ls_value-text =
'12'
.
APPEND
ls_value
TO
gt_values .
CALL
FUNCTION
'VRM_SET_VALUES'
EXPORTING
id =
'P_NUML'
values = gt_values.
ENDFORM
.
"init
Serkan AKKAVAK
Computer Engineer / ABAP Developer
serkurumsal@yandex.com
You can ask me all your questions about SAP and Abap .
Social Plugin