Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member
0 Likes
566

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

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
531

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

4 REPLIES 4
Read only

Former Member
0 Likes
531

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

Read only

Former Member
0 Likes
531

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

Read only

Former Member
0 Likes
532

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

Read only

Former Member
0 Likes
531

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