Monday, December 20, 2010

REPORT  ZTEST_NOTEPAD.
DATA:
  IT_RSPARAMS TYPE STANDARD  TABLE OF RSPARAMS,
  WA_RSPARAMS LIKE LINE OF IT_RSPARAMS.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: MONTH1(10) AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY.
PARAMETERS: MONTH2(10) AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS: YEAR(4) OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

PARAMETERS: RB1 RADIOBUTTON GROUP G1 USER-COMMAND UC1,
RB2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN : END OF BLOCK B2.

IF RB1 = 'X'.

  WA_RSPARAMS-SELNAME = 'P_MATNR'. "PARAMETER or SELECT-OPTION of the called program
  WA_RSPARAMS-KIND    = 'P'.       "S=Select-options P=Parameters
  WA_RSPARAMS-SIGN    = 'I'.
  WA_RSPARAMS-OPTION  = 'EQ'.
  WA_RSPARAMS-LOW     = '11010'.
  WA_RSPARAMS-HIGH    = SPACE.

  SUBMIT ZMIS1 WITH SELECTION-TABLE it_RSPARAMS AND RETURN.
ENDIF.

IF RB2 = 'X'.

  WA_RSPARAMS-SELNAME = 'P_MATNR'. "PARAMETER or SELECT-OPTION of the called program
  WA_RSPARAMS-KIND    = 'P'.       "S=Select-options P=Parameters
  WA_RSPARAMS-SIGN    = 'I'.
  WA_RSPARAMS-OPTION  = 'EQ'.
  WA_RSPARAMS-LOW     = '11010'.
  WA_RSPARAMS-HIGH    = SPACE.

  SUBMIT ZMIS2 WITH SELECTION-TABLE it_RSPARAMS AND RETURN.
ENDIF.

0 comments:

Post a Comment

Your useful comments, suggestions are appreciated.Your comments are moderated.

Followers

Contact Form

Name

Email *

Message *

Web Dynpro ABAP Book

An SAP Consultant

Follow US


Want to Contribute ?

If you are interested in writing about the new stuff you learn everyday while working, please write to the.sap.consultants@gmail.com.

Click on Contribution for more details.