topic Re: AT SELECTION-SCREEN ON VALUE-REQUEST in Application Development and Automation Discussions

AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 12 Jan 2007 06:57:42 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 12 Jan 2007 06:59:43 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 12 Jan 2007 07:04:52 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 12 Jan 2007 07:13:46 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 12 Jan 2007 09:28:48 GMT

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