Upload and Download ABAP Source Code

New Site Address: http://abap.mirrorz.com

Make your own free website on Tripod.com



Home

Definitions
OK Code Values
Other Useful Tips
SAP and ABAP Links
SAP Functions
SAP Reports
SAP Tables
Source Code
Transaction Codes

Site Map (Index)

ABAP Keyword Help


Upload and Download ABAP Source Code

This is a program that I have had kicking around for a couple of years in various incarnations. I really liked the file format that Wolfgang Morgenthaler had, that I updated my program to use the same format. The one thing that this program does, that Wolfgang's does not is to up/download the program documentation as well as source code and program texts. Wolfgang's Home Page -


Source Code Listing
*----------------------------------------------------------------------*
* Report: ZKBPROGS             *
*----------------------------------------------------------------------*
* Function   : Up/Download ABAP reports complete with texts            *
*----------------------------------------------------------------------*
* Change Log :                 *
* July 5, 1999         *
*    - Combined existing programs that did the upload and download into*
*    - one program.            *
*    - Changed format that the reports are saved in to be compatible   *
*      with Wolfgang Morgenthaler's upload/download program(YSTRASN00  *
*      at www.antarcon.de).  Major differences between this program and*
*      Wolfgang's are:
*         - this program does not update TRDIR with the                *
*           TRDIR entries that are in the program uploaded.  Instead,  *
*           current users stats are used.          *
*         - this program allows selection of reports from a list or    *
*           a single report can be tuped in and uploaded               *
*         - this program also updates TADIR so that a development class*
*           is assigned to the program             *
*         - this program checks to see if the program already has a    *
*           TRDIR entry, and if it does, warns the user                *
*         - this program will save/restore the program documenation too*
*          *
*          *
*          *
*----------------------------------------------------------------------*
REPORT ZKBPROGS
       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:\temp\'.
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 = MTAB_PROGRAM_TEXTS.
      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 server
    OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE.
    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.
    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 = FTAB_PROGRAM_FILE.
            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


Program Texts

DIR             File Download Options (File Selection)
FIL             File Options      
FNA             Enter filename below (under File Options)
H01             Prog Name
H03             Program Description
SNG             Upload a single file
UDL             Upload to SAP/Download from SAP
UPL             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                 

New Site Address: http://abap.mirrorz.com


Send any hints or tips to ABAP Hints & Tips .
All submissions will be recognized along with the tip.

Get a cool web address
Free subdomains from
ShortURL.com