Download ABAP OBJECT(Smartform) based on Transport Request

Dear Expert,
I want to create a report on which there r two input fields on selection screen.First is transport request and second is Path of local disk on which i want to save .Now under this transport request all samrtforms which i have been made.I want to save a on given path in XML file(all settings at all).
Please give me example for that.
Thanks & Regard,
Jatin Sangal

Hi,
Check this:
http://it.toolbox.com/wiki/index.php/Upload/download_SAP_transport_request
Points apreciated

Similar Messages

How can we download smartforms under a transport request.

hi
my requirement is that i have to download all smartforms under a transport request using a report program, is thr any standard program in sap or anyone who have done it before.
thanks n regards.
pardeep kumar

Write a custom BDC program.

Development package to objects already in a transport requests?

Is there a way to assign a development package to objects already in a transport requests?
Thanks,
Rashmi

Hi,
you can massively do that with SE03 / Change Object Directory Entries of Objects in a Request, select your request, position cursor on the first obj and menu edit / select block. Position cursor on the last and again select block.
hit object directory and change accordingly.
hope this helps...
Olivier.
Message was edited by:
Olivier Cora

Assigning the object to a Different transport request number.

Hi all,
I have assigned a object to a different transport request number and i now i want to assign it to a new one..can any one tell me some procedure to change it.
Tnx,
Joe.

Hi Joe
In SE09 tcode click on display icon and enter the transport number in which the object was already assigned and click on display.
Now delete the object from the task of the main request number.
Now its ready to lock in some other transport request. Just goto the workbench object, try to save or activate, it will automatically ask for transport request afresh. You can now assign the request at this step.
Rgds,
Sripal

Download a smartform on local disk based on transport request

Dear Experts,
        I want to given on selection screen transport request and path .If in this tranport request there is any
       smartform ,all download on local disk.
So what sud i have to do for this.Please give me a example for it.
Thanks,
Jatin sangal

HI,
Use this below function module to get the spool to an internal table.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = l_spool_id
       IMPORTING
            pdf_bytecount            = g_bin_filesize
       TABLES
            pdf                      = ipdf
       EXCEPTIONS
            err_no_otf_spooljob      = 1.
The data will be fetched to IPDF internal table, then u can use GUI_DOWNLOAD function module to download this file to your specific location as below.
CALL FUNCTION 'GUI_DOWNLOAD'
       EXPORTING
            bin_filesize            = g_bin_filesize
            filename                = g_file
            filetype                = 'BIN'
       IMPORTING
            filelength              = g_file_size
       TABLES
            data_tab                = ipdf
       EXCEPTIONS
            file_write_error        = 1.
Thanks,
Ravi

Download abap object under a tranport request.

hi experts
i have a requirement, a tranport request contain any ABAP Object i don't know how many object actually it contains may be one or more just suppose it will have a report program under a transport request , in the select-option i will enter transport request number and the path of the directery( whr i have to store the report program). now this report wiil download the report program on this path which i have given in section screen.
could you please help me where the transport requests are stored in SAP is thr any table pls give me table name or is thr any function module to do this job.
thanks & regards
pardeep kumar

Take a look at the following tables :
E071
E071C
E071E
E071K
E071KF
E071KFINI
E071S
They contain the data you are looking for.
Hope that helps,
Michael

Download ABAP Objects to a local directory

Hi! Just want to ask if there's someone who knows any program that can download a copy of ABAP Objects to a local directory? Thanks a lot!!!

Hi Jason.
Find the Below code to download ABAP Source code to your local directory . Before downloading just create " :\source " directory.
Hope this info Helps YOU.
<i>Reward Points If It Helps YOU.</i>
Regards,
Raghav
[code]*
Download and Upload your ABAP program from/to your local harddisk.
Allows individual or mass transfering of ABAP program.
Before using, create a folder c:\Source
REPORT ZDOWN_UP_LOAD
        NO STANDARD PAGE HEADING
        LINE-SIZE 255.
Declare Database Objects
tables:
   DOKIL,
   TRDIR.
Constants
CONSTANTS:
   MC_TRDIR_IDENTIFIER(72) TYPE C VALUE '%&%& RDIR',
   MC_REPORT_IDENTIFIER(72) TYPE C VALUE '%&%& REPO',
   MC_TEXT_IDENTIFIER(72)   TYPE C VALUE '%&%& TEXP',
   MC_THEAD_IDENTIFIER(72) TYPE C VALUE '%&%& HEAD',
   MC_DOC_IDENTIFIER(72)    TYPE C VALUE '%&%& DOKL',
   MC_TRDIR_SHORT(4)        TYPE C VALUE 'RDIR',
   MC_REPORT_SHORT(4)       TYPE C VALUE 'REPO',
   MC_TEXT_SHORT(4)         TYPE C VALUE 'TEXP',
   MC_THEAD_SHORT(4)        TYPE C VALUE 'HEAD',
   MC_DOC_SHORT(4)          TYPE C VALUE 'DOKP'.
Declare Module level data structures
DATA: BEGIN OF MTAB_PROGRAM_SOURCE OCCURS 0,
         LINE(72) TYPE C,
       END OF MTAB_PROGRAM_SOURCE.
DATA: MTAB_PROGRAM_TRDIR LIKE TRDIR OCCURS 0 WITH HEADER LINE.
DATA: MTAB_PROGRAM_TEXTS LIKE TEXTPOOL OCCURS 0 WITH HEADER LINE.
DATA: MSTR_THEAD LIKE THEAD.
DATA: BEGIN OF MTAB_PROGRAM_FILE OCCURS 0,
         LINE(275) TYPE C,
       END OF MTAB_PROGRAM_FILE.
DATA: BEGIN OF MTAB_DIRECTORY OCCURS 0,
         NAME LIKE TRDIR-NAME,
         DESC(72) TYPE C,
         SAVENAME LIKE RLGRAP-FILENAME,
       END OF MTAB_DIRECTORY.
DATA: BEGIN OF MTAB_PROGRAM_DOCUMENTATION OCCURS 0,
         LINE(255) TYPE C,
       END OF MTAB_PROGRAM_DOCUMENTATION.
Selection Screen
*-- Options for upload/download of programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_OPTIONS WITH FRAME TITLE TEXT-UDL.
PARAMETERS:
   RB_DOWN RADIOBUTTON GROUP UDL DEFAULT 'X'.       " Download reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_TRDIR WITH FRAME TITLE TEXT-DIR.
SELECT-OPTIONS:
   S_NAME FOR TRDIR-NAME,              " Program Name
   S_SUBC FOR TRDIR-SUBC               " Program Type
           DEFAULT 'F' OPTION EQ SIGN E," Exclude Functions by default
   S_CNAM FOR TRDIR-CNAM               " Created by
           DEFAULT SY-UNAME,
   S_UNAM FOR TRDIR-UNAM,              " Last Changed by
   S_CDAT FOR TRDIR-CDAT,              " Creation date
   S_UDAT FOR TRDIR-UDAT.              " Last update date
SELECTION-SCREEN END OF BLOCK FRM_TRDIR.
*-- Options for uploading programs
PARAMETERS:
   RB_UP   RADIOBUTTON GROUP UDL.       " Upload reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_UPLOAD WITH FRAME TITLE TEXT-UPL.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(29) TEXT-SNG.
PARAMETERS:
   RB_FILE RADIOBUTTON GROUP HOW DEFAULT 'X'.
SELECTION-SCREEN COMMENT 33(42) TEXT-FNA.
SELECTION-SCREEN END OF LINE.
PARAMETERS:
   RB_LIST RADIOBUTTON GROUP HOW.
SELECTION-SCREEN END OF BLOCK FRM_UPLOAD.
SELECTION-SCREEN END OF BLOCK FRM_OPTIONS.
*-- Options for up/downloading programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_FILEN WITH FRAME TITLE TEXT-FIL.
PARAMETERS:
   RB_DOS RADIOBUTTON GROUP FIL DEFAULT 'X', " Save to local
   RB_UNIX RADIOBUTTON GROUP FIL,       " Save to UNIX
   P_PATH LIKE RLGRAP-FILENAME         " Path to save files to
         DEFAULT 'c:\Source\'.
SELECTION-SCREEN END OF BLOCK FRM_FILEN.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-LOW.
   CALL FUNCTION 'F4_PROGRAM'
        EXPORTING
             OBJECT             = S_NAME-LOW
             SUPPRESS_SELECTION = 'X'
        IMPORTING
             RESULT             = S_NAME-LOW
        EXCEPTIONS
             OTHERS             = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-HIGH.
   CALL FUNCTION 'F4_PROGRAM'
        EXPORTING
             OBJECT             = S_NAME-HIGH
             SUPPRESS_SELECTION = 'X'
        IMPORTING
             RESULT             = S_NAME-HIGH
        EXCEPTIONS
             OTHERS             = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-LOW.
   PERFORM GET_NAME USING 'S_UNAM-LOW'
                 CHANGING S_UNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-HIGH.
   PERFORM GET_NAME USING 'S_UNAM-HIGH'
                 CHANGING S_UNAM-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-LOW.
   PERFORM GET_NAME USING 'S_CNAM-LOW'
                 CHANGING S_CNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-HIGH.
   PERFORM GET_NAME USING 'S_CNAM-HIGH'
                 CHANGING S_CNAM-HIGH.
TOP-OF-PAGE.
   IF RB_LIST = 'X'.
     FORMAT COLOR COL_HEADING.
     NEW-LINE.
     WRITE: AT 3 TEXT-H01,
            AT 15 TEXT-H03.
     FORMAT COLOR OFF.
   ENDIF.
AT LINE-SELECTION.
   CHECK RB_LIST = 'X'.                 " only do in list mode
   READ LINE SY-CUROW FIELD VALUE MTAB_DIRECTORY-SAVENAME.
*-- Read file into an internal table
   PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
                                 USING MTAB_DIRECTORY-SAVENAME.
*-- Split table into TADIR entry, report lines, and report text
   PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
                                      MTAB_PROGRAM_SOURCE
                                      MTAB_PROGRAM_TEXTS
                                      MTAB_PROGRAM_DOCUMENTATION
                             CHANGING TRDIR
                                      MSTR_THEAD.
*-- Save all of the data
   PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
                                    MTAB_PROGRAM_TEXTS
                                    MTAB_PROGRAM_DOCUMENTATION
                             USING TRDIR
                                    MSTR_THEAD.
Start of processing
START-OF-SELECTION.
   FORMAT COLOR COL_NORMAL.
   IF RB_DOWN = 'X'.
     PERFORM DOWNLOAD_REPORTS.
   ELSEIF RB_UP = 'X'.
     PERFORM UPLOAD_REPORTS.
   ENDIF.
END-OF-SELECTION.
   IF RB_DOWN = 'X'.
     CONCATENATE P_PATH
                 'directory.txt'
       INTO P_PATH.
     PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_DIRECTORY
                                USING P_PATH.
   ENDIF.
      FORM UPLOAD_REPORTS                                           *
FORM UPLOAD_REPORTS.
*-- Can upload a reports entered in selection criteria or
*-- select from a list. List can be from index.txt in same directory
*-- (created by the download) or by reading the first line of each file
*-- in the directory.
   IF RB_FILE = 'X'. " Upload single program from a file
*-- Read file into an internal table
     PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
                                   USING P_PATH.
*-- Split table into TADIR entry, report lines, and report text
     PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
                                        MTAB_PROGRAM_SOURCE
                                        MTAB_PROGRAM_TEXTS
                                        MTAB_PROGRAM_DOCUMENTATION
                               CHANGING TRDIR
                                        MSTR_THEAD.
*-- Save all of the data
     PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
                                      MTAB_PROGRAM_TEXTS
                                      MTAB_PROGRAM_DOCUMENTATION
                               USING TRDIR
                                      MSTR_THEAD.
   ELSEIF RB_LIST = 'X'. " Show list for user to choose from
*-- get list of report names/descriptions from directory text
     CONCATENATE P_PATH
                 'directory.txt'
     INTO P_PATH.
     PERFORM READ_REPORT_FROM_DISK TABLES MTAB_DIRECTORY
                                   USING P_PATH.
     SORT MTAB_DIRECTORY.
*-- Write out list of report names/descriptions
     LOOP AT MTAB_DIRECTORY.
       WRITE:
         / MTAB_DIRECTORY-NAME UNDER TEXT-H01,
           MTAB_DIRECTORY-DESC UNDER TEXT-H03,
           MTAB_DIRECTORY-SAVENAME.
     ENDLOOP.
*-- Process user selections for reports to upload.
   ENDIF.
ENDFORM.                               " upload_reports
      FORM DOWNLOAD_REPORTS                                         *
      From the user selections, get all programs that meet the      *
      criteria, and save them in ftab_program_directory.            *
      Also save the report to disk.                                 *
FORM DOWNLOAD_REPORTS.
   DATA:
     LC_FULL_FILENAME LIKE RLGRAP-FILENAME.
*-- The table is put into an internal table because the program will
*-- abend if multiple transfers to a dataset occur within a SELECT/
*-- ENDSELCT (tested on 3.1H)
   SELECT * FROM TRDIR
          INTO TABLE MTAB_PROGRAM_TRDIR
          WHERE NAME IN S_NAME
          AND    SUBC IN S_SUBC
          AND    CNAM IN S_CNAM
          AND    UNAM IN S_UNAM
          AND    CDAT IN S_CDAT
          AND    UDAT IN S_UDAT.
   LOOP AT MTAB_PROGRAM_TRDIR.
*-- Clear out text and source code tables
     CLEAR:
       MTAB_PROGRAM_FILE,
       MTAB_PROGRAM_SOURCE,
       MTAB_PROGRAM_TEXTS,
       MTAB_PROGRAM_DOCUMENTATION.
     REFRESH:
       MTAB_PROGRAM_FILE,
       MTAB_PROGRAM_SOURCE,
       MTAB_PROGRAM_TEXTS,
       MTAB_PROGRAM_DOCUMENTATION.
*-- Get the report
     READ REPORT MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_SOURCE.
*-- Get the text for the report
     READ TEXTPOOL MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_TEXTS.
*-- Get the documentation for the report
     CLEAR DOKIL.
     SELECT * UP TO 1 ROWS FROM DOKIL
            WHERE ID          = 'RE'
            AND    OBJECT      = MTAB_PROGRAM_TRDIR-NAME
            AND    LANGU       = SY-LANGU
            AND    TYP         = 'E'
            ORDER BY VERSION DESCENDING.
     ENDSELECT.
*-- Documentation exists for this object
     IF SY-SUBRC = 0.
       CALL FUNCTION 'DOCU_READ'
            EXPORTING
                 ID      = DOKIL-ID
                 LANGU   = DOKIL-LANGU
                 OBJECT = DOKIL-OBJECT
                 TYP     = DOKIL-TYP
                 VERSION = DOKIL-VERSION
            IMPORTING
                 HEAD    = MSTR_THEAD
            TABLES
                 LINE    = MTAB_PROGRAM_DOCUMENTATION
            EXCEPTIONS
                 OTHERS = 1.
     ENDIF.
*-- Put the report code and texts into a single file
*-- Put the identifier line in so that the start of the TRDIR line
*-- is marked
     CONCATENATE MC_TRDIR_IDENTIFIER
     MTAB_PROGRAM_TRDIR-NAME
     INTO MTAB_PROGRAM_FILE-LINE.
     APPEND MTAB_PROGRAM_FILE.
*-- Add the TRDIR line
     MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TRDIR.
     APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report code
*-- is marked
     CONCATENATE MC_REPORT_IDENTIFIER
                 MTAB_PROGRAM_TRDIR-NAME
       INTO MTAB_PROGRAM_FILE-LINE.
     APPEND MTAB_PROGRAM_FILE.
*-- Add the report code
     LOOP AT MTAB_PROGRAM_SOURCE.
       MTAB_PROGRAM_FILE = MTAB_PROGRAM_SOURCE.
       APPEND MTAB_PROGRAM_FILE.
     ENDLOOP.
*-- Put the identifier line in so that the start of the report text
*-- is marked
     CONCATENATE MC_TEXT_IDENTIFIER
                 MTAB_PROGRAM_TRDIR-NAME
       INTO MTAB_PROGRAM_FILE-LINE.
     APPEND MTAB_PROGRAM_FILE.
*-- Add the report texts
     LOOP AT MTAB_PROGRAM_TEXTS.
       MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TEXTS-ENTRY .
       APPEND MTAB_PROGRAM_FILE.
     ENDLOOP.
*-- Put the identifier line in so that the start of the THEAD record
*-- is marked
     CONCATENATE MC_THEAD_IDENTIFIER
                 MTAB_PROGRAM_TRDIR-NAME
       INTO MTAB_PROGRAM_FILE-LINE.
     APPEND MTAB_PROGRAM_FILE.
     MTAB_PROGRAM_FILE = MSTR_THEAD.
     APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report
*-- documentation is marked
     CONCATENATE MC_DOC_IDENTIFIER
                 MTAB_PROGRAM_TRDIR-NAME
       INTO MTAB_PROGRAM_FILE-LINE.
     APPEND MTAB_PROGRAM_FILE.
*-- Add the report documentation
     LOOP AT MTAB_PROGRAM_DOCUMENTATION.
       MTAB_PROGRAM_FILE = MTAB_PROGRAM_DOCUMENTATION.
       APPEND MTAB_PROGRAM_FILE.
     ENDLOOP.
*-- Make the fully pathed filename that report will be saved to
     CONCATENATE P_PATH
                 MTAB_PROGRAM_TRDIR-NAME
                 '.txt'
       INTO LC_FULL_FILENAME.
     PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_PROGRAM_FILE
                                USING LC_FULL_FILENAME.
*-- Write out message with Program Name/Description
     READ TABLE MTAB_PROGRAM_TEXTS WITH KEY ID = 'R'.
     IF SY-SUBRC = 0.
       MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
       MTAB_DIRECTORY-DESC = MTAB_PROGRAM_TEXTS-ENTRY.
       MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
       APPEND MTAB_DIRECTORY.
       WRITE: / MTAB_PROGRAM_TRDIR-NAME,
                MTAB_PROGRAM_TEXTS-ENTRY(65) COLOR COL_HEADING.
     ELSE.
       MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
       MTAB_DIRECTORY-DESC = 'No description available'.
       MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
       APPEND MTAB_DIRECTORY.
       WRITE: / MTAB_PROGRAM_TRDIR-NAME.
     ENDIF.
   ENDLOOP.
ENDFORM.                               " BUILD_PROGRAM_DIRECTORY
      FORM SAVE_TABLE_TO_FILE                                       *
--> FTAB_TABLE                                                    *
--> F_FILENAME                                                    *
FORM SAVE_TABLE_TO_FILE TABLES FTAB_TABLE
                         USING F_FILENAME.
   IF RB_DOS = 'X'.                  " Save file to presentation server
     CALL FUNCTION 'WS_DOWNLOAD'
          EXPORTING
               FILENAME = F_FILENAME
               FILETYPE = 'ASC'
          TABLES
               DATA_TAB = FTAB_TABLE
          EXCEPTIONS
               OTHERS   = 4.
     IF SY-SUBRC NE 0.
       WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
                F_FILENAME COLOR COL_NEGATIVE.
     ENDIF.
   ELSE.                                " Save file to application serve
     OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE encoding default.
     IF SY-SUBRC = 0.
       LOOP AT FTAB_TABLE.
         TRANSFER FTAB_TABLE TO F_FILENAME.
         IF SY-SUBRC NE 0.
           WRITE: / 'Error writing record to file;' COLOR COL_NEGATIVE,
                    F_FILENAME COLOR COL_NEGATIVE.
         ENDIF.
       ENDLOOP.
     ELSE.
       WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
                F_FILENAME COLOR COL_NEGATIVE.
     ENDIF.
   ENDIF.                               " End RB_DOS
ENDFORM.                               " SAVE_PROGRAM
      FORM READ_REPORT_FROM_DISK                                    *
      Read report into internal table. Can read from local or      *
      remote computer                                               *
FORM READ_REPORT_FROM_DISK TABLES FTAB_TABLE
                            USING F_FILENAME.
   DATA:
      LC_MESSAGE(128) TYPE C.
   CLEAR   FTAB_TABLE.
   REFRESH FTAB_TABLE.
   IF RB_DOS = 'X'.
     TRANSLATE F_FILENAME USING '/\'.   " correct slash for Dos PC file
     CALL FUNCTION 'WS_UPLOAD'
          EXPORTING
               FILENAME            = F_FILENAME
               FILETYPE            = 'ASC'
          TABLES
               DATA_TAB            = FTAB_TABLE
          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
               OTHERS              = 8.
     IF SY-SUBRC >< 0.
       WRITE: / 'Error reading file from local PC' COLOR COL_NEGATIVE.
     ENDIF.
   ELSEIF RB_UNIX = 'X'.
     TRANSLATE F_FILENAME USING '\/'.   " correct slash for unix
     OPEN DATASET F_FILENAME FOR INPUT MESSAGE LC_MESSAGE IN TEXT MODE encoding default.
     IF SY-SUBRC = 0.
       DO.
         READ DATASET F_FILENAME INTO FTAB_TABLE.
         IF SY-SUBRC = 0.
           APPEND FTAB_TABLE.
         ELSE.
           EXIT.
         ENDIF.
       ENDDO.
       CLOSE DATASET F_FILENAME.
     ELSE.
       WRITE: / 'Error reading file from remote computer'
                       COLOR COL_NEGATIVE,
              / LC_MESSAGE,
              / F_FILENAME.
       SY-SUBRC = 4.
     ENDIF.
   ENDIF.
ENDFORM.                               " READ_REPORT_FROM_DISK
      FORM SPLIT_INCOMING_FILE                                      *
--> FTAB_PROGRAM_FILE                                             *
--> FTAB_PROGRAM_SOURCE                                           *
--> `                                                             *
--> FTAB_PROGRAM_TEXTS                                            *
FORM SPLIT_INCOMING_FILE TABLES FTAB_PROGRAM_FILE
                                      STRUCTURE MTAB_PROGRAM_FILE
                                 FTAB_PROGRAM_SOURCE
                                      STRUCTURE MTAB_PROGRAM_SOURCE
                                 FTAB_PROGRAM_TEXTS
                                      STRUCTURE MTAB_PROGRAM_TEXTS
                                 FTAB_PROGRAM_DOCUMENTATION
                                   STRUCTURE MTAB_PROGRAM_DOCUMENTATION
                        CHANGING FSTR_TRDIR
                                 FSTR_THEAD.
   DATA:
     LC_DATATYPE(4) TYPE C,             " Type of data, REPO, TEXP, RDIR
     LC_PROGRAM_FILE LIKE MTAB_PROGRAM_FILE.
   LOOP AT FTAB_PROGRAM_FILE.
     LC_PROGRAM_FILE = FTAB_PROGRAM_FILE.
     CASE LC_PROGRAM_FILE(9).
       WHEN MC_TRDIR_IDENTIFIER.
         LC_DATATYPE = MC_TRDIR_SHORT.
       WHEN MC_REPORT_IDENTIFIER.
         LC_DATATYPE = MC_REPORT_SHORT.
       WHEN MC_TEXT_IDENTIFIER.
         LC_DATATYPE = MC_TEXT_SHORT.
       WHEN MC_DOC_IDENTIFIER.
         LC_DATATYPE = MC_DOC_SHORT.
       WHEN MC_THEAD_IDENTIFIER.
         LC_DATATYPE = MC_THEAD_SHORT.
       WHEN OTHERS. " Actual contents of report, trdir, or text
         CASE LC_DATATYPE.
           WHEN MC_TRDIR_SHORT.
             FSTR_TRDIR = FTAB_PROGRAM_FILE.
           WHEN MC_REPORT_SHORT.
             FTAB_PROGRAM_SOURCE = FTAB_PROGRAM_FILE.
             APPEND FTAB_PROGRAM_SOURCE.
           WHEN MC_TEXT_SHORT.
             FTAB_PROGRAM_TEXTS-key = FTAB_PROGRAM_FILE-line.
             APPEND FTAB_PROGRAM_TEXTS.
           WHEN MC_THEAD_SHORT.
             FSTR_THEAD = FTAB_PROGRAM_FILE.
           WHEN MC_DOC_SHORT.
             FTAB_PROGRAM_DOCUMENTATION = FTAB_PROGRAM_FILE.
             APPEND FTAB_PROGRAM_DOCUMENTATION.
         ENDCASE.
     ENDCASE.
   ENDLOOP.
ENDFORM.                               " SPLIT_INCOMING_FILE
      FORM INSERT_NEW_REPORT                                        *
--> FTAB_PROGRAM_SOURCE                                           *
--> FTAB_PROGRAM_TEXTS                                            *
--> F_TRDIR                                                       *
FORM INSERT_NEW_REPORT TABLES FTAB_PROGRAM_SOURCE
                                   STRUCTURE MTAB_PROGRAM_SOURCE
                               FTAB_PROGRAM_TEXTS
                                    STRUCTURE MTAB_PROGRAM_TEXTS
                               FTAB_PROGRAM_DOCUMENTATION
                                    STRUCTURE MTAB_PROGRAM_DOCUMENTATION
                        USING FSTR_TRDIR LIKE TRDIR
                               FSTR_THEAD LIKE MSTR_THEAD.
   DATA:
     LC_OBJ_NAME LIKE E071-OBJ_NAME,
     LC_LINE2(40)     TYPE C,
     LC_ANSWER(1)     TYPE C.
*-- read trdir to see if the report already exists, if it does, prompt
*-- user to overwrite or abort.
   SELECT SINGLE * FROM TRDIR WHERE NAME = FSTR_TRDIR-NAME.
   IF SY-SUBRC = 0.                     " Already exists
     CONCATENATE 'want to overwrite report'
                 FSTR_TRDIR-NAME
       INTO LC_LINE2 SEPARATED BY SPACE.
     CONCATENATE LC_LINE2
       INTO LC_LINE2.
     CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
          EXPORTING
              DEFAULTOPTION = 'N'
              TEXTLINE1   = 'The selected report already exists, do you'
              TEXTLINE2      = LC_LINE2
              TITEL          = 'Report already exists'
              CANCEL_DISPLAY = SPACE
          IMPORTING
               ANSWER         = LC_ANSWER
          EXCEPTIONS
               OTHERS         = 1.
   ELSE.
     LC_ANSWER = 'J'.
   ENDIF.
   IF LC_ANSWER = 'J'.
*-- Create the TADIR entry. (TRDIR entry created by INSERT REPORT)
     LC_OBJ_NAME = TRDIR-NAME.
     CALL FUNCTION 'TR_TADIR_POPUP_ENTRY_E071'
          EXPORTING
               WI_E071_PGMID     = 'R3TR'
               WI_E071_OBJECT    = 'PROG'
               WI_E071_OBJ_NAME = LC_OBJ_NAME
               WI_TADIR_DEVCLASS = '$TMP'
          EXCEPTIONS
               EXIT              = 3
               OTHERS            = 4.
     IF SY-SUBRC = 0.
*-- Create Report
       INSERT REPORT FSTR_TRDIR-NAME FROM FTAB_PROGRAM_SOURCE.
*-- Create Texts
       INSERT TEXTPOOL FSTR_TRDIR-NAME FROM FTAB_PROGRAM_TEXTS
              LANGUAGE SY-LANGU.
*-- Save Documentation
       CALL FUNCTION 'DOCU_UPDATE'
            EXPORTING
                 HEAD    = FSTR_THEAD
                 STATE   = 'A'
                 TYP     = 'E'
                 VERSION = '1'
            TABLES
                 LINE    = FTAB_PROGRAM_DOCUMENTATION
            EXCEPTIONS
                 OTHERS = 1.
     ELSE.
       WRITE: / 'Error updating the TADIR entry' COLOR COL_NEGATIVE,
                'Program' COLOR COL_NEGATIVE INTENSIFIED OFF,
                FSTR_TRDIR-NAME, 'was not loaded into SAP.'
                   COLOR COL_NEGATIVE INTENSIFIED OFF.
     ENDIF.
   ELSE.
     WRITE: / FSTR_TRDIR-NAME COLOR COL_NEGATIVE,
              'was not uploaded into SAP. Action cancelled by user'
                  COLOR COL_NEGATIVE INTENSIFIED OFF.
   ENDIF.
ENDFORM.                               " INSERT_NEW_REPORT
      FORM GET_NAME                                                 *
--> VALUE(F_FIELD)                                                *
--> F_NAME                                                        *
FORM GET_NAME USING VALUE(F_FIELD)
            CHANGING F_NAME.
   DATA: LTAB_FIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
         LC_PROG LIKE D020S-PROG,
         LC_DNUM LIKE D020S-DNUM.
   TRANSLATE F_FIELD TO UPPER CASE.
   refresh ltab_fields.
   LTAB_FIELDS-FIELDNAME = F_FIELD.
   append ltab_fields.
   LC_PROG = SY-REPID .
   LC_DNUM = SY-DYNNR .
   CALL FUNCTION 'DYNP_VALUES_READ'
        EXPORTING
             DYNAME     = LC_PROG
             DYNUMB     = LC_DNUM
        TABLES
             dynpfields = ltab_fields
        EXCEPTIONS
             OTHERS     = 01.
   read table ltab_fields index 1.
   IF SY-SUBRC EQ 0.
     F_NAME = LTAB_FIELDS-FIELDVALUE.
     refresh ltab_fields.
   ENDIF.
   CALL FUNCTION 'F4_USER'
        EXPORTING
             OBJECT = F_NAME
        IMPORTING
             RESULT = F_NAME.
ENDFORM.                               " GET_NAME
*TEXPZKBPROGS
IDIR     File Download Options (File Selection)
IFIL     File Options
IFNA     Enter filename below (under File Options)
IH01     Prog Name
IH03     Program Description
ISNG     Upload a single file
IUDL     Upload to SAP/Download from SAP
IUPL     File Upload Options
R        Backup/Restore program source code with texts
P_PATH          Path to save programs to
RB_DOS          Files on local computer
RB_DOWN         Download Programs
RB_FILE         Upload a single file
RB_LIST         Select program(s) from a list
RB_UNIX         Files on remote computer
RB_UP           Upload Programs to SAP
S_CDAT           Date Created
S_CNAM          Created by UserID
S_NAME          Program Name
S_SUBC          Program Type
S_UDAT          Date Changed
S_UNAM          Last Changed by UserID
*HEADZKBPROGS
DOKU      ZHRBDC54
*DOKLZKBPROGS
*--- End of Program[/code]

ChaRM: read categorization of change docs based on transport request ID

Hi There,
We have ChaRM implemented with 4 level categorization. I am writing a report to find change docs and read their categorization based on a transport request attached to the change doc. Unfortunately I can't figure out the connection. Could you pls give me guidance? Thanks in advance!
Ádám

In the meantime I found a very useful article on the wiki: http://wiki.scn.sap.com/wiki/display/Snippets/Reading+CRM+Transaction+Categories+Hierarchy
If you need my complete code, drop me a mail.
Thanks,
Ádám

Display objects exists in a transport request

Hi all,
I want to display all the objects (Items) exists in a transport request.
Is there any Function Module to do so or it maintained in any database table.
Please suggest for the process.
Thanks
Sanket sethi

HI,
Refer the link.
Table for transport request
Regards
Sumit Agarwal

Function module to lock mulitple objects in a single transport request.

Hello,
I have a query regarding one of the requirments in my project. The requirment goes like this:
' On executing a transaciton lets say the user gets a list of data elements then the user selects say five data elemetns ( check boxes are there in the list display showing data elements ) and he sets that the documentations of each element as 'Self - Expalanatory' then the requirement is that all these data elements must get locked in a single transport request.
Is there a standarad API which takes object ID , Object type as input in form of table and checks if there are any existing transports in which the data element is locked if yes locks it under it, if not creates a new one and locks all the other objects in that request.
Atleast a FM which takes a table of object ids as input and locks them under a single transport request will also be helpful.
Some place where I can look for it.
Warm Regards,
Naveen M

If the objects are available in an existing request then they will be already locked.
If they are not available in request you can assign all of them in one request using
SE03 transaction.
In SE03 transaction,select include objects in request and execute.
there click selected objects radiobutton, give your objects and execute.
save them in a request and they will be locked and you can transport them later.

Unlock an object locked by a transport request

hi all,
i have created an infoobject and did necessary changes in TR,UR,ODS and CUBE..now i saved it in a request but that request failed. now when i am trying to transport it through other request a warning is coming that "object was written to new request"...
now what should i do? if i ignore warning will second request too fail...and how to solve this problem?

Advice: Do not transport everything in one big transport. Cut it up in small transports.
Transport 1: the infoobjects (if you made new ones) with their catalogs,
Transport 2. the infopackages (which will also collect dependent objects like datasource/infosource, etc)
Transport 3: The ODS and updaterules
Transport 4: datamart infopackages (with dependent objects again)
Transport 5: Infocube + updaterules
Transport 6: Process chain
This will give you grip on the matter and you'll know exactly where you forgot to collect something and makes fixing it a lot easier.
Ed

One Transport request objects copy into new transport request

Dear Experts,
I created a transport request under which i saved my objects. <b>Now i need to copy old request objects into new request or split that transport request into number of new transport requests.</b> First of all It is possible or not , if it is possible please tell me the solution how to do.
Regards,
Krishna

Hello Krishna
You can
(1) add object lists of already released requests ("old" requests) to you current request (still changeable)
(2) merge changeable transport requests together
(3) split a changeable request into several requests
Whereas (1) and (2) are supported by standard functions of the SAP system (3) is a manual task involving the following steps:
a.) Create a new request
b.) Copy required transport entries (e.g. R3TR TABL ZMYTABLE) from one request to the new request
c.) Delete all copied transport entries from the object list of the "first" request
However, if you are not fully aware of the dependencies between different transport object entries the splitting of object lists may cause hassle when you import the splitted requests into the next SAP system.
Regards
Uwe

Object already locked under transport request by another user

Hi Experts,
While trying to generate transport request for my developments, the request is getting generated as a sub task under previously created request.The program has been earlier modified by another user and that request was not released.Can I create my own request number without creating it as a sub request? I cannot release or delete earlier requests.
Regards,
Sam

This restriction is there for a reason. Somebody has already applied changes to the object you are changing now, so there would be a logical conflict if you would be able to lock it again under a different request. Before you release or delete anything, make sure you understand all changes done and if they can be moved together to subsequent systems. Speak to the "other user" if unsure.
Thomas

How to find Object List from multiple Transport Requests

I have more than 300 transport request to review, going though all requests will take lots of time. Is there a way to find the list of objects from these requests so that I can go through objects only and by this way the list of objects will be certainly less than 300 for example.

Maybe you can use SE03 function "merge object lists" for this purpose. You can enter the 300 numbers and merge all objects e.g. into a transport of copies, that you can delete again after your exercise. Don't lock the objects inside this temporary request.
The benefit is that each object will only appear once (if not, choose "object list -> aggregate" in the request details), and you can navigate to the underlying objects, something which a simple SE16 for E071 does not offer.
Thomas

Download abap objects by package

Hi All
Any one please suggest any program to download abap programs including ztables / include if any by giving development class
Thanks
Sekhar

Check SAPLink add-on for ABAP. [http://code.google.com/p/saplink/]

Download ABAP OBJECT(Smartform) based on Transport Request

Similar Messages

Maybe you are looking for