DEFAULT VARIANT

[Former Member]

HELLO ,

    I HAVE WORKED ON DEFAULT VARIANT BUT ITS NOT WORKING .

    PLESE HELP ME WHERE I WROTE THE WRONG CODE PLESE HELP ME.....

TABLES : VBAP .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECTION-SCREEN SKIP .

SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN,

                 S_POSNR FOR VBAP-POSNR,

                 S_MATNR FOR VBAP-MATNR.

SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN OUTPUT .

DATA : V_SUBRC TYPE SY-SUBRC ,

       V_VARIANT TYPE RSVAR-VARIANT.

CONCATENATE 'U_' SY-UNAME INTO V_VARIANT .

CALL FUNCTION 'RS_VARIANT_EXISTS'

  EXPORTING

    REPORT                    = SY-REPID

    VARIANT                   = V_VARIANT

IMPORTING

   R_C                       = V_SUBRC

EXCEPTIONS

   NOT_AUTHORIZED            = 1

   NO_REPORT                 = 2

   REPORT_NOT_EXISTENT       = 3

   REPORT_NOT_SUPPLIED       = 4

   OTHERS                    = 5

          .

IF SY-SUBRC <> 0.

CALL FUNCTION 'RS_SUPPORT_SELECTIONS'

  EXPORTING

    REPORT                     = SY-REPID

    VARIANT                    = V_VARIANT

EXCEPTIONS

   VARIANT_NOT_EXISTENT       = 1

   VARIANT_OBSOLETE           = 2

   OTHERS                     = 3

          .

ENDIF.

[sjeevan]

Your CAPS locks seem to be stuck, anyways:

Try this:

IF V_SUBRC = 0.
CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
  EXPORTING
    REPORT                     = SY-REPID
    VARIANT                    = V_VARIANT
 EXCEPTIONS
   VARIANT_NOT_EXISTENT       = 1
   VARIANT_OBSOLETE           = 2
   OTHERS                     = 3
          .
ENDIF.

In fact you don't even need to use the RS_VARIANT_EXISTS, I just use RS_SUPPORT_SELECTIONS without checking variant existence. It has worked without any problems so far. 

[Former Member]

Thanq jeevan its working...........