‎2007 Jan 12 6:57 AM
HI,
IN MY REPORT, I NEED TO GIVE OPTIONS FOR UPDATE MODE (SYN/ASYN) FOR A PARTICULAR INPUT FIELD.HOW CAN I DO THAT? THE INPUT FIELD IS OF CHAR TYPE..SO, HOW CAN I GENERATE THE VALUE LIST WITH VALUES THAT I WANT..?
THANK YOU.
REGARDS,
PRIYA
‎2007 Jan 12 7:13 AM
Check if below code can help you:
TYPE-POOLS VRM.
DATA: LIST_DATA TYPE VRM_VALUES,
VRM_VALUES_WA LIKE LINE OF LIST_DATA,
ID TYPE VRM_ID.
PARAMETERS: P_MODE TYPE VRM_ID AS LISTBOX VISIBLE LENGTH 30 MODIF ID ABC.
INITIALIZATION.
MOVE: 'SYN' TO VRM_VALUES_WA-KEY,
'Synchronous' TO VRM_VALUES_WA-TEXT.
APPEND VRM_VALUES_WA TO LIST_DATA.
MOVE: 'ASYN' TO VRM_VALUES_WA-KEY,
'Asynchronous' TO VRM_VALUES_WA-TEXT.
APPEND VRM_VALUES_WA TO LIST_DATA.
MOVE 'P_MODE' TO ID.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = ID
VALUES = LIST_DATA.Regards
Eswar
‎2007 Jan 12 6:59 AM
refer demo code -
REPORT ZGILL_VALUE_REQUEST .
data: begin of lt_all occurs 0.
include structure DYNPREAD.
data end of lt_all.
data: begin of lt_selected occurs 0.
include structure DDSHRETVAL.
data: end of lt_selected.
DATA: BEGIN OF lt_code OCCURS 0,
code LIKE zgill_main-PERNR,
END OF lt_code.
data no_dyn like sy-dynnr.
Parameters : ECODE like zgill_main-PERNR.
*parameters: pernr like pa0001-pernr .
no_dyn = sy-dynnr. "give the scren no directly or sy-dynnr in case of report.
At selection-screen on value-request for ECODE.
select PERNR into table lt_code from zgill_main.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ECODE'
dynpprog = sy-repid
dynpnr = no_dyn
dynprofield = 'ECODE'
window_title = 'Employee Details'
value_org = 'S'
DISPLAY = 'F'
TABLES
value_tab = lt_code
RETURN_TAB = lt_selected.
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
*if sy-subrc eq '0' .
write: 'success'.
*endif.
read table lt_selected index sy-tabix.
move lt_selected-fieldval to ECODE.
amit
‎2007 Jan 12 7:04 AM
Hamsa,
Under the event.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR field name.
USe below FM,
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ECODE'
dynpprog = sy-repid
dynpnr = no_dyn
dynprofield = 'ECODE'
window_title = 'Employee Details'
value_org = 'S'
DISPLAY = 'F'
TABLES
value_tab = lt_code
RETURN_TAB = lt_selected.
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
‎2007 Jan 12 7:13 AM
Check if below code can help you:
TYPE-POOLS VRM.
DATA: LIST_DATA TYPE VRM_VALUES,
VRM_VALUES_WA LIKE LINE OF LIST_DATA,
ID TYPE VRM_ID.
PARAMETERS: P_MODE TYPE VRM_ID AS LISTBOX VISIBLE LENGTH 30 MODIF ID ABC.
INITIALIZATION.
MOVE: 'SYN' TO VRM_VALUES_WA-KEY,
'Synchronous' TO VRM_VALUES_WA-TEXT.
APPEND VRM_VALUES_WA TO LIST_DATA.
MOVE: 'ASYN' TO VRM_VALUES_WA-KEY,
'Asynchronous' TO VRM_VALUES_WA-TEXT.
APPEND VRM_VALUES_WA TO LIST_DATA.
MOVE 'P_MODE' TO ID.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = ID
VALUES = LIST_DATA.Regards
Eswar
‎2007 Jan 12 9:28 AM
HI,
ZTABLE has 2 fields, NAME and PSNO.The code will populate the
READ parameter with PSNO
TABLES : ZTABLE.
PARAMETERS: READ LIKE ZTABLE-PSNO.
DATA : ITAB LIKE ZTABLE OCCURS 0 WITH HEADER LINE.
DATA: TP_DIRTY LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR READ.
SELECT * FROM ZTABLE INTO TABLE ITAB.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'PSNO'
DYNPPROG = SY-REPID
for screen no of the parameter screen goto the system => status
DYNPNR = sy-dynnr
DYNPROFIELD = 'READ'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = ITAB
RETURN_TAB = TP_DIRTY.
REGARDS
BIJAL