Variants for a program,

[Former Member]

Hi Experts,

I need to move all the variants of a standard SAP program into an internal table. Where are the variants stored for a program?

[Former Member]

write a select on table VARID.

[Former Member]

Hi,

please check out the below program this code copies variants from one program to another provided that the programs have identical selection screens.

• ------------------------------------------------------

• Copy Variants from one Program to another.

• ------------------------------------------------------

REPORT Z_COPY_VARIANTS_PROG_TO_PROG .

• =====================================================

• Data Declarations Section

• =====================================================

TABLES : VARID , VARIS , VARIT .

• -----------------------------------------------------

DATA : BEGIN OF MYVARID OCCURS 0 .

INCLUDE STRUCTURE VARID .

DATA : END OF MYVARID .

• -----------------------------------------------------

DATA : BEGIN OF MYVARIS OCCURS 0 .

INCLUDE STRUCTURE VARIS .

DATA : END OF MYVARIS .

• -----------------------------------------------------

DATA : BEGIN OF MYVARIT OCCURS 0 .

INCLUDE STRUCTURE VARIT .

DATA : END OF MYVARIT .

• -----------------------------------------------------

DATA : BEGIN OF MYVARI OCCURS 0 .

INCLUDE STRUCTURE VARI .

DATA : END OF MYVARI .

DATA : MANS(1) TYPE C .

DATA : PROGRAMM LIKE RS38M-PROGRAMM .

DATA : BEGIN OF MDYNPFIELDS OCCURS 1 .

INCLUDE STRUCTURE DYNPREAD .

DATA : END OF MDYNPFIELDS .

CONSTANTS BUTTONSELECTED(1) TYPE C VALUE 'X' .

• ======================================================

• Macro for Inputing Filenames

• ======================================================

DEFINE GET_FILENAME .

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

• DEF_FILENAME = ' '

DEF_PATH = &1

MASK = ',.,..'

MODE = '0'

• TITLE = ' '

IMPORTING

FILENAME = &2

• RC =

EXCEPTIONS

INV_WINSYS = 1

NO_BATCH = 2

SELECTION_CANCEL = 3

SELECTION_ERROR = 4

OTHERS = 5.

END-OF-DEFINITION .

• ======================================================

• Macro for Downloading to ASCII Files

• ======================================================

DEFINE DOWNLOAD_TO_ASCII .

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

• BIN_FILESIZE = ' '

• CODEPAGE = ' '

FILENAME = &1

FILETYPE = 'DAT'

• MODE = ' '

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• COL_SELECT = ' '

• COL_SELECTMASK = ' '

• NO_AUTH_CHECK = ' '

• IMPORTING

• FILELENGTH =

TABLES

DATA_TAB = &2

• FIELDNAMES =

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

GUI_REFUSE_FILETRANSFER = 8

OTHERS = 9.

END-OF-DEFINITION .

• ======================================================

• Macro for uploading Data from ASCII files

• ======================================================

DEFINE UPLOAD_FROM_ASCII .

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

• CODEPAGE = ' '

FILENAME = &1

FILETYPE = 'DAT'

• HEADLEN = ' '

• LINE_EXIT = ' '

• TRUNCLEN = ' '

• USER_FORM = ' '

• USER_PROG = ' '

• IMPORTING

• FILELENGTH =

TABLES

DATA_TAB = &2

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10.

END-OF-DEFINITION .

• ======================================================

• Selection Screen Default

• ======================================================

PARAMETERS : P_FROM_P LIKE RS38M-PROGRAMM OBLIGATORY .

PARAMETERS : P_TO_P LIKE RS38M-PROGRAMM OBLIGATORY .

PARAMETERS : P_SAME_S RADIOBUTTON GROUP GRP1 DEFAULT 'X' .

PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1 .

PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .

PARAMETERS : P_FILE_D LIKE RLGRAP-FILENAME DEFAULT 'c:\varid.txt' .

PARAMETERS : P_FILE_S LIKE RLGRAP-FILENAME DEFAULT 'c:\varis.txt' .

PARAMETERS : P_FILE_T LIKE RLGRAP-FILENAME DEFAULT 'c:\varit.txt' .

PARAMETERS : P_FILE LIKE RLGRAP-FILENAME DEFAULT 'c:\vari.txt' .

• =====================================================

• At Selection Screen Events

• =====================================================

AT SELECTION-SCREEN .

PROGRAMM = P_FROM_P .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_D .

GET_FILENAME 'c:\varid.txt' P_FILE_D .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_S .

GET_FILENAME 'c:\varis.txt' P_FILE_S .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_T .

GET_FILENAME 'c:\varit.txt' P_FILE_T .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE .

GET_FILENAME 'c:\vari.txt' P_FILE .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FROM_P .

CLEAR MDYNPFIELDS . REFRESH MDYNPFIELDS .

MDYNPFIELDS-FIELDNAME = 'P_FROM_P' .

APPEND MDYNPFIELDS .

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = SY-CPROG

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = MDYNPFIELDS

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11.

READ TABLE MDYNPFIELDS INDEX 1 .

PROGRAMM = MDYNPFIELDS-FIELDVALUE .

CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'

EXPORTING

OBJECT_TYPE = 'PROG'

OBJECT_NAME = PROGRAMM

IMPORTING

OBJECT_NAME_SELECTED = PROGRAMM

EXCEPTIONS

CANCEL = 1

WRONG_TYPE = 2

OTHERS = 3.

P_FROM_P = PROGRAMM .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TO_P .

CLEAR MDYNPFIELDS . REFRESH MDYNPFIELDS .

MDYNPFIELDS-FIELDNAME = 'P_TO_P' .

APPEND MDYNPFIELDS .

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = SY-CPROG

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = MDYNPFIELDS

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11.

READ TABLE MDYNPFIELDS INDEX 1 .

PROGRAMM = MDYNPFIELDS-FIELDVALUE .

CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'

EXPORTING

OBJECT_TYPE = 'PROG'

OBJECT_NAME = PROGRAMM

IMPORTING

OBJECT_NAME_SELECTED = PROGRAMM

EXCEPTIONS

CANCEL = 1

WRONG_TYPE = 2

OTHERS = 3.

P_TO_P = PROGRAMM .

• ======================================================

• Start of Selection

• ======================================================

START-OF-SELECTION .

CASE BUTTONSELECTED.

WHEN P_SAME_S .

PERFORM COPY_FROM_PROG_TO_PROG .

WHEN P_DOWNLD .

PERFORM VDOWNLOAD .

WHEN P_UPLOAD .

PERFORM VUPLOAD .

ENDCASE .

&----

---

*& Form COPY_FROM_PROG_TO_PROG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM COPY_FROM_PROG_TO_PROG.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

• DEFAULTOPTION = 'Y'

TEXTLINE1 = 'Are you sure you want to copy Variants ? '

• TEXTLINE2 = ' '

TITEL = 'Confirmation '

• START_COLUMN = 25

• START_ROW = 6

• CANCEL_DISPLAY = 'X'

IMPORTING

ANSWER = MANS

EXCEPTIONS

OTHERS = 1.

IF MANS = 'J' .

• ------------------------------------------------------

REFRESH MYVARID . CLEAR MYVARID .

SELECT * FROM VARID INTO TABLE MYVARID

WHERE REPORT = P_FROM_P.

LOOP AT MYVARID .

MYVARID-REPORT = P_TO_P .

MODIFY MYVARID .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARID WHERE REPORT = P_TO_P .

INSERT VARID FROM TABLE MYVARID .

ENDIF .

• ----------------------------------------------------

REFRESH MYVARIS . CLEAR MYVARIS .

SELECT * FROM VARIS INTO TABLE MYVARIS

WHERE REPORT = P_FROM_P.

LOOP AT MYVARIS .

MYVARIS-REPORT = P_TO_P .

MODIFY MYVARIS .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARIS WHERE REPORT = P_TO_P .

INSERT VARIS FROM TABLE MYVARIS .

ENDIF .

• -----------------------------------------------------

REFRESH MYVARIT . CLEAR MYVARIT .

SELECT * FROM VARIT INTO TABLE MYVARIT

WHERE REPORT = P_FROM_P.

LOOP AT MYVARIT .

MYVARIT-REPORT = P_TO_P .

MODIFY MYVARIT .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARIT WHERE REPORT = P_TO_P .

INSERT VARIT FROM TABLE MYVARIT .

ENDIF .

• -----------------------------------------------------

REFRESH MYVARI . CLEAR MYVARI .

SELECT * FROM VARI INTO TABLE MYVARI

WHERE REPORT = P_FROM_P.

LOOP AT MYVARI .

MYVARI-REPORT = P_TO_P .

MODIFY MYVARI .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARI WHERE REPORT = P_TO_P .

INSERT VARI FROM TABLE MYVARI .

ENDIF .

ENDIF .

ENDFORM. " COPY_FROM_PROG_TO_PROG

&----

---

*& Form VDOWNLOAD

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM VDOWNLOAD.

REFRESH MYVARID . CLEAR MYVARID .

SELECT * FROM VARID INTO TABLE MYVARID

WHERE REPORT = P_FROM_P.

DOWNLOAD_TO_ASCII P_FILE_D MYVARID .

• -----------------------------------------------------

REFRESH MYVARIS . CLEAR MYVARIS .

SELECT * FROM VARIS INTO TABLE MYVARIS

WHERE REPORT = P_FROM_P.

DOWNLOAD_TO_ASCII P_FILE_S MYVARIS .

• -----------------------------------------------------

REFRESH MYVARIT . CLEAR MYVARIT .

SELECT * FROM VARIT INTO TABLE MYVARIT

WHERE REPORT = P_FROM_P.

DOWNLOAD_TO_ASCII P_FILE_T MYVARIT .

• ----------------------------------------------------

REFRESH MYVARI . CLEAR MYVARI .

SELECT * FROM VARI INTO TABLE MYVARI

WHERE REPORT = P_FROM_P.

DOWNLOAD_TO_ASCII P_FILE MYVARI .

ENDFORM. " VDOWNLOAD

&----

---

*& Form VUPLOAD

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM VUPLOAD.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

• DEFAULTOPTION = 'Y'

TEXTLINE1 =

'Are you sure you want to upload Variants ? '

• TEXTLINE2 = ' '

TITEL = 'Confirmation '

• START_COLUMN = 25

• START_ROW = 6

• CANCEL_DISPLAY = 'X'

IMPORTING

ANSWER = MANS

EXCEPTIONS

OTHERS = 1.

IF MANS = 'J' .

• -----------------------------------------------------

REFRESH MYVARID . CLEAR MYVARID .

UPLOAD_FROM_ASCII P_FILE_D MYVARID .

LOOP AT MYVARID .

MYVARID-REPORT = P_TO_P .

MODIFY MYVARID .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARID WHERE REPORT = P_TO_P .

INSERT VARID FROM TABLE MYVARID .

ENDIF .

• -----------------------------------------------------

REFRESH MYVARIS . CLEAR MYVARIS .

UPLOAD_FROM_ASCII P_FILE_S MYVARIS .

LOOP AT MYVARIS .

MYVARIS-REPORT = P_TO_P .

MODIFY MYVARIS .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARIS WHERE REPORT = P_TO_P .

INSERT VARIS FROM TABLE MYVARIS .

ENDIF .

• -----------------------------------------------------

REFRESH MYVARIT . CLEAR MYVARIT .

UPLOAD_FROM_ASCII P_FILE_T MYVARIT .

LOOP AT MYVARIT .

MYVARIT-REPORT = P_TO_P .

MODIFY MYVARIT .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARIT WHERE REPORT = P_TO_P .

INSERT VARIT FROM TABLE MYVARIT .

ENDIF .

• ------------------------------------------------------

REFRESH MYVARI . CLEAR MYVARI .

UPLOAD_FROM_ASCII P_FILE MYVARI .

LOOP AT MYVARI .

MYVARI-REPORT = P_TO_P .

MODIFY MYVARI .

ENDLOOP .

IF SY-SUBRC = 0 .

DELETE FROM VARI WHERE REPORT = P_TO_P .

INSERT VARI FROM TABLE MYVARI .

ENDIF .

ENDIF .

ENDFORM. " VUPLOAD

***********please reward points if the information is helpful to you************

[Former Member]

Hi,

check the table VARI,VARID.

rEGARDS

[Former Member]

Hi,

Check for

Regards

Bala