Re: Variants for a program,

Former Member — Mon, 06 Aug 2007 07:45:29 GMT

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 .

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 .

ENDFORM. " VUPLOAD

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

topic Re: Variants for a program, in Application Development and Automation Discussions

Variants for a program,

Re: Variants for a program,

Re: Variants for a program,

Re: Variants for a program,

Re: Variants for a program,