Save a variant from a Dynpro screen

[former_member182779]

I was working on some dynpro application, and testing was really messy, because I needed to fill the parameters each time I wanted to executed it...That why I thought about saving a variant...But...My application was on Dynpro and not on standard report...After browsing trough function modules and standard programs, I came to this nice example of how to achieve that goal.

We need a Dynpro screen with a SubScreen are called Parameters (I need some Select-Options, so using a SubScreen was the best choice).

This is the source code.

REPORT Z_VARIANTS.*-----------------------------------------------------------------**   TABLES                                                        **-----------------------------------------------------------------*TABLES: SPFLI.*-----------------------------------------------------------------**   TYPE-POOLS                                                    **-----------------------------------------------------------------*TYPE-POOLS: SLIS.*-----------------------------------------------------------------**   INTERNAL TABLES                                               **-----------------------------------------------------------------*DATA: T_RKEY TYPE STANDARD TABLE OF RSVARKEY WITH HEADER LINE,      T_SELCTAB TYPE STANDARD TABLE OF RSSCR WITH HEADER LINE,      T_VARI TYPE STANDARD TABLE OF RVARI WITH HEADER LINE,      IT_EXTAB TYPE SLIS_T_EXTAB,      WA_EXTAB LIKE LINE OF IT_EXTAB.*-----------------------------------------------------------------**   VARIABLES                                                     **-----------------------------------------------------------------*DATA: OK_CODE TYPE SY-UCOMM,      W_VARIANT TYPE RSVAR-VARIANT,      W_USER_VARI TYPE RSVAR-VARIANT,      W_VARI_REPORT TYPE RSVAR-REPORT,      SEL_VARIANT TYPE RSVAR-VARIANT,      SEL_VARIANT_TEXT TYPE RSVAR-VTEXT,      W_REPORT TYPE RSVAR-REPORT,      VARIANT_EXISTS TYPE C.*-----------------------------------------------------------------**   SELECTION-SCREEN                                              **-----------------------------------------------------------------*SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.SELECT-OPTIONS: S_CARRID FOR SPFLI-CARRID,                S_CONNID FOR SPFLI-CONNID.SELECTION-SCREEN END OF SCREEN 101.*-----------------------------------------------------------------**   INITIALIZATION                                                **-----------------------------------------------------------------*INITIALIZATION.W_REPORT = SY-REPID.PERFORM VARIANT_EXISTS.*-----------------------------------------------------------------**   START-OF-SELECTION                                            **-----------------------------------------------------------------*START-OF-SELECTION.  CALL SCREEN 0100.*&----------------------------------------------------------------**&      Module  STATUS_0100  OUTPUT                               **&----------------------------------------------------------------*MODULE STATUS_0100 OUTPUT.  SET PF-STATUS '100' EXCLUDING IT_EXTAB.ENDMODULE.                 " STATUS_0100  OUTPUT*&----------------------------------------------------------------**&      Module  USER_COMMAND_0100  INPUT                          **&----------------------------------------------------------------*MODULE USER_COMMAND_0100 INPUT.  OK_CODE = SY-UCOMM.  CASE OK_CODE.    WHEN 'SAVE'.      PERFORM SAVE_VARIANT.      PERFORM VARIANT_EXISTS.    WHEN 'BACK'.      LEAVE TO SCREEN 0.    WHEN 'GET_VAR'.      PERFORM LOAD_VARIANT.    WHEN 'DEL_VAR'.      PERFORM DELETE_VARIANT.      PERFORM VARIANT_EXISTS.  ENDCASE.ENDMODULE.                 " USER_COMMAND_0100  INPUT*&----------------------------------------------------------------**&      Form  SAVE_VARIANT                                        **&----------------------------------------------------------------*FORM SAVE_VARIANT.  T_RKEY-REPORT = SY-REPID.  APPEND T_RKEY.  CALL FUNCTION 'RS_VARIANT_SAVE_FROM_SELSCREEN'       EXPORTING            CURR_REPORT          = SY-REPID            VARI_REPORT          = SY-REPID       IMPORTING            VARIANT              = W_VARIANT       TABLES            P_SSCR               = T_SELCTAB            P_VARI               = T_VARI       EXCEPTIONS            ILLEGAL_VARIANT_NAME = 1            NOT_AUTHORIZED       = 2            NO_REPORT            = 3            REPORT_NOT_EXISTENT  = 4            REPORT_NOT_SUPPLIED  = 5            OTHERS               = 6.  T_RKEY-VARIANT = W_VARIANT.  MODIFY T_RKEY INDEX 1.  CALL FUNCTION 'RS_RWSET_SAVE_VARIANT'       EXPORTING            RKEY    = T_RKEY       TABLES            SELCTAB = T_SELCTAB.ENDFORM.                    " SAVE_VARIANT*&----------------------------------------------------------------**&      Form  LOAD_VARIANT                                        **&----------------------------------------------------------------*FORM LOAD_VARIANT.  PERFORM CHOOSE_VARIANT CHANGING SEL_VARIANT.  IF SEL_VARIANT NE SPACE.    CALL FUNCTION 'RS_SUPPORT_SELECTIONS'         EXPORTING              REPORT               = W_REPORT              VARIANT              = SEL_VARIANT         EXCEPTIONS              VARIANT_NOT_EXISTENT = 1              VARIANT_OBSOLETE     = 2              OTHERS               = 3.  ENDIF.ENDFORM.                    " LOAD_VARIANT*&----------------------------------------------------------------**&      Form  DELETE_VARIANT                                      **&----------------------------------------------------------------*FORM DELETE_VARIANT.  PERFORM CHOOSE_VARIANT CHANGING SEL_VARIANT.  IF SEL_VARIANT NE SPACE.    CALL FUNCTION 'RS_VARIANT_DELETE'         EXPORTING              REPORT               = W_REPORT              VARIANT              = SEL_VARIANT              FLAG_CONFIRMSCREEN   = 'X'              FLAG_DELALLCLIENT    = 'X'         EXCEPTIONS              NOT_AUTHORIZED       = 1              NOT_EXECUTED         = 2              NO_REPORT            = 3              REPORT_NOT_EXISTENT  = 4              REPORT_NOT_SUPPLIED  = 5              VARIANT_LOCKED       = 6              VARIANT_NOT_EXISTENT = 7              NO_CORR_INSERT       = 8              VARIANT_PROTECTED    = 9              OTHERS               = 10.  ENDIF.ENDFORM.                    " DELETE_VARIANT*-----------------------------------------------------------------**       FORM CHOOSE_VARIANT                                       **-----------------------------------------------------------------*FORM CHOOSE_VARIANT CHANGING L_SEL_VARIANT.  CALL FUNCTION 'RS_VARIANT_CATALOG'       EXPORTING            REPORT               = W_REPORT            MASKED               = 'X'       IMPORTING            SEL_VARIANT          = L_SEL_VARIANT            SEL_VARIANT_TEXT     = SEL_VARIANT_TEXT       EXCEPTIONS            NO_REPORT            = 1            REPORT_NOT_EXISTENT  = 2            REPORT_NOT_SUPPLIED  = 3            NO_VARIANTS          = 4            NO_VARIANT_SELECTED  = 5            VARIANT_NOT_EXISTENT = 6            OTHERS               = 7.ENDFORM.*&----------------------------------------------------------------**&      Form  VARIANT_EXISTS                                      **&----------------------------------------------------------------*FORM VARIANT_EXISTS.CALL FUNCTION 'RS_VARIANT_FOR_ONE_SCREEN'       EXPORTING            PROGRAM        = W_REPORT            DYNNR          = '0101'       IMPORTING            VARIANT_EXISTS = VARIANT_EXISTS.  IF VARIANT_EXISTS EQ 'X'.    CLEAR: WA_EXTAB, IT_EXTAB.    REFRESH IT_EXTAB.  ELSE.    CLEAR: WA_EXTAB, IT_EXTAB.    REFRESH IT_EXTAB.    WA_EXTAB-FCODE = 'GET_VAR'.    APPEND WA_EXTAB TO IT_EXTAB.  ENDIF.ENDFORM.                    " VARIANT_EXISTS

And of course, some pictures -:)

Well...There's a few drawbacks in this example...

• You can't save the Variant description.
• When you create a new variant, SAP ask you if you want to replace it...Even when it doesn't exists!

If someone can fix that, I would be very happy -:D