Copy Layout From One ALV Report Program To Another

How to copy layout from one ALV report program to another?

* --------------------------------------------------------------------
* Copy ALV Variants from one Program to another.
* --------------------------------------------------------------------

REPORT Z_COPY_ALV_VARNTS_PROG_TO_PROG .

* =====================================================================
* Data Declarations Section
* =====================================================================

* ---------------------------------------------------------------------
DATA : BEGIN OF MYLTDX OCCURS 0 .

        INCLUDE STRUCTURE LTDX .

DATA : END OF MYLTDX .
* ---------------------------------------------------------------------
DATA : BEGIN OF MYLTDXT OCCURS 0 .

        INCLUDE STRUCTURE LTDXT .

DATA : END OF MYLTDXT .
* ---------------------------------------------------------------------

DATA : BEGIN OF MYLTDXD OCCURS 0 .

        INCLUDE STRUCTURE LTDXD .

DATA : END OF MYLTDXD .

* ---------------------------------------------------------------------
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_x  LIKE   RLGRAP-FILENAME DEFAULT 'c:\LTDX.txt' .
PARAMETERS : P_FILE_t  LIKE   RLGRAP-FILENAME DEFAULT 'c:\LTDXT.txt' .
PARAMETERS : P_FILE_d  LIKE   RLGRAP-FILENAME DEFAULT 'c:\LTDXD.txt' .

* =====================================================================
* At Selection Screen Events
* =====================================================================

AT SELECTION-SCREEN .
  PROGRAMM = P_FROM_P .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_x .
  GET_FILENAME 'c:\LTDX.txt' P_FILE_x .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_t .
  GET_FILENAME 'c:\LTDXT.txt' P_FILE_t .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_d .
  GET_FILENAME 'c:\LTDXD.txt' P_FILE_d .

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 MYLTDX . CLEAR MYLTDX .

    SELECT * FROM LTDX  INTO TABLE MYLTDX
                        WHERE REPORT = P_FROM_P.

    LOOP AT MYLTDX .

      MYLTDX-REPORT = P_TO_P .
      MODIFY MYLTDX .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDX WHERE REPORT = P_TO_P .

      INSERT LTDX FROM TABLE MYLTDX .

    ENDIF .

* ---------------------------------------------------------------------

    REFRESH MYLTDXT . CLEAR MYLTDXT .

    SELECT * FROM LTDXT  INTO TABLE MYLTDXT
                        WHERE REPORT = P_FROM_P.

    LOOP AT MYLTDXT .

      MYLTDXT-REPORT = P_TO_P .

      MODIFY MYLTDXT .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDXT WHERE REPORT = P_TO_P .

      INSERT LTDXT FROM TABLE MYLTDXT .

    ENDIF .

* ---------------------------------------------------------------------

    REFRESH MYLTDXT . CLEAR MYLTDXT .

    SELECT * FROM LTDXT  INTO TABLE MYLTDXT
                        WHERE REPORT = P_FROM_P.

    LOOP AT MYLTDXT .

      MYLTDXT-REPORT = P_TO_P .

      MODIFY MYLTDXT .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDXT WHERE REPORT = P_TO_P .

      INSERT LTDXT FROM TABLE MYLTDXT .

    ENDIF .

* ---------------------------------------------------------------------

  ENDIF .

ENDFORM.                               " COPY_FROM_PROG_TO_PROG

*&---------------------------------------------------------------------*
*&      Form  VDOWNLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

FORM VDOWNLOAD.

  REFRESH MYLTDX . CLEAR MYLTDX .

  SELECT * FROM LTDX  INTO TABLE MYLTDX
                      WHERE REPORT = P_FROM_p.

  DOWNLOAD_TO_ASCII  P_FILE_x  MYLTDX .
 
 

* ---------------------------------------------------------------------

  REFRESH MYLTDXT . CLEAR MYLTDXT .

  SELECT * FROM LTDXT  INTO TABLE MYLTDXT
                      WHERE REPORT = P_FROM_P.

  DOWNLOAD_TO_ASCII P_FILE_t  MYLTDXT .
 
 

* ---------------------------------------------------------------------

  REFRESH MYLTDXT . CLEAR MYLTDXT .

  SELECT * FROM LTDXD  INTO TABLE MYLTDXT
                      WHERE REPORT = P_FROM_P.

  DOWNLOAD_TO_ASCII P_FILE_d  MYLTDXT .

* ---------------------------------------------------------------------
 
 

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 MYLTDX . CLEAR MYLTDX .

    UPLOAD_FROM_ASCII P_FILE_x MYLTDX .

    LOOP AT MYLTDX .

      MYLTDX-REPORT = P_TO_P .

      MODIFY MYLTDX .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDX WHERE REPORT = P_TO_P .

      INSERT LTDX FROM TABLE MYLTDX .

    ENDIF .

* ---------------------------------------------------------------------

    REFRESH MYLTDXT . CLEAR MYLTDXT .

    UPLOAD_FROM_ASCII P_FILE_t MYLTDXT  .

    LOOP AT MYLTDXT .

      MYLTDXT-REPORT = P_TO_P .

      MODIFY MYLTDXT .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDXT WHERE REPORT = P_TO_P .

      INSERT LTDXT FROM TABLE MYLTDXT .

    ENDIF .

* ---------------------------------------------------------------------

    REFRESH MYLTDXD . CLEAR MYLTDXD .

    UPLOAD_FROM_ASCII P_FILE_d MYLTDXT  .

    LOOP AT MYLTDXT .

      MYLTDXT-REPORT = P_TO_P .

      MODIFY MYLTDXT .

    ENDLOOP .

    IF SY-SUBRC = 0 .

      DELETE FROM LTDXT WHERE REPORT = P_TO_P .

      INSERT LTDXT FROM TABLE MYLTDXT .

    ENDIF .

* ---------------------------------------------------------------------

  ENDIF .

ENDFORM.                               " VUPLOAD

*---------- End of Program

ABAP Tips

Read Also

Get help for your ABAP problems
Do you have a ABAP Question?

ABAP Books
ABAP Certification, BAPI, Java, Web Programming, Smart Forms, Sapscripts Reference Books

More ABAP Tips

Main Index
SAP ERP Modules, Basis, ABAP and Other IMG Stuff

All the site contents are Copyright © www.erpgreat.com and the content authors. All rights reserved.
All product names are trademarks of their respective companies.  The site www.erpgreat.com is in no way affiliated with SAP AG. 
Every effort is made to ensure the content integrity.  Information used on this site is at your own risk. 
 The content on this site may not be reproduced or redistributed without the express written permission of 
www.erpgreat.com or the content authors.