SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Download a module pool program to workstation



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP Dictionary -> Migration
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Sat Sep 22, 2007 6:04 pm    Post subject: Download a module pool program to workstation Reply with quote

Code:
REPORT ZUPDOWNPROGRAMS LINE-SIZE 132 LINE-COUNT 62 NO STANDARD PAGE HEADING.
*
*   This program up / downloads from / to a local dataset
*   all the components of an ABAP - i.e TEXTS, the entire CUA
*   including statuses and menus, DYNPROS and source code.
*   Program documentation and variants are not handled.
*
*   INCLUDED programs are automatically handled both on upload
*   or download. INCLUDE selection can be excluded or generic
*   e.g only handle INCLUDES starting with ZIN*
*   INCLUDES within INCLUDES also handled.
*   The only restriction is on UPLOAD the INCLUDED programs must come
*   from the same directory as the main program.
*   On Download of course the ABAP must exist in the library.
*
*      Note for LINUX and BATCH users
*
*   This program was originally designed as a one off tool for
*   getting ABAPS etc from a SAP R2 (IBM MVS mainframe system) into
*   an R3 test system minimising the need for a large amount of
*   mainframe sysprogs (anybody remember what they were !!) time
*   and support to say nothing of access problems from TSO /JES2 /
*   SAP R2. At that time network connections were patchy and the
*   transport systems largely incompatable and not very reliable.
*
*
*   This program was originally designed as a one off tool for
*   Must run on Windows front end ---- If you are running SAP with
*   LINUX on your work station you will have to change the WS_UPLOAD
*   and WS_DOWNLOAD functions to reflect the Linux file system. The
*   contents of the data sets themseleves do not need to be changed
*
*   Program can easily be modified to run in batch and store
*   the data on a UNIX host. Change the WS_UPLOAD and WS_DOWNLOAD
*   to read from and write to UNIX data sets (OPEN FILE etc).
*   You will also need to modify the parts of the program that get
*   the DOS directory and display the Windows file paths.
*   The actual abap data sets do not need to be changed.
*
*
* Rel 4.0   names can now be up to 40 bytes long
*           Dynpros and CUA have changed from rel 3.1
*           Tabstrips now loaded and unloaded in dynpros
*
*    Please note restriction on 4.6 systems for users who
*    have ABAP names which include '/'s in their names.
*
* Rel 4.6b, 4.6c Abap names can include the '/' in their names
*  e.g /CUST1/CUST2/ORDER
*
*  This causes problems when storing to a local file.
*
*  a solution is to change the name to %CUST1%CUST2%ORDER i.e / will
*  be changed to %. On upload the % should be changed back to /
*  again.    This change still needs to be implemented.
*
*  If you don't use the / in the abap name then this is not a problem.
*
* If file to be uploaded is in rel 3 format then names are only 8
* bytes long.
*
*   program uses 3 datasets per abap
*      1) abapname.eee     source, dynpr logic, texts, CUA stuff
*      2) abapname.hhh     dynpr header
*      3) abapname.fff     dynpro fields.
*
*  because of varying lengths and contents 3 data sets are used. The
*  complexity of combining all these to 1 data set would make the
*  program far too complex.
*
*   NOTE: This version of the program can only be used on
*         release 4.0 or higher. Once an ABAP has been converted
*         to rel 4.0 it cannot be converted back to rel 3.0
*         on a release 3/3.1 system. Release 4 CUA tables
*         are different.  Use release 3 version of this program
*        for releases 3.0 and 3.1. Available on SAPFANS website.
*
*   Note that data to be uploaded must have been previously downloaded
*   by this program (any version since rel 2.0) - except for Initial
*   Load -- see end of these comments.
*
*          Dynpros and CUA statuses have changed since rel 3.1
*    This program will handle rel 3.1 format on upload but will
*    download in rel 4.0 format. To upload 3.1 format specify an 'X'
*    in the rel3 parameter.
*
*    If you have downloaded components in rel 4.0 format and you
*    want to re-load to a 3.1 system  you will have to load
*    the source via standard upload and re-create dynpros and the CUA
*    manually.
*
*    As names can now be longer than 8 characters you can only
*    use this program if the SAP front end (SAPGUI) supports
*    long file names (WIN 95/98 or WIN NT). Windows 3.x will not
*    work as the underlying DOS system cannot handle long file names.
*       UPLOAD function and DOS directory.
*
*  When an ABAP is selected for UPLOAD then the DOS
*  directory is read into a table. A file called ABAP.BAT is created,
*  and down loaded to the 'C' drive and executed.
*  This file executes a DOS DIR command and pipes the output
*  into a dataset which is then uploaded into an internal
*  table on SAP.
*
*  Note on running DOS commands from ABAP
*
*  The first time this procedure is executed you will see a DOS window
*  which you will have to close manually. To get round this
*  use windows explorer to select the file ABAP.BAT and then
*  right mouse click on the file name. Select the
*  properties window. From this click the CLOSE on EXIT box. This
*  will then automatically close the DOS function after it has
*  executed. (Windows restriction).
*
*  The DOS function has not been tested using Windows 2000 so
*  it might not work. OK on W95,W98,WME and Windows NT (No Thanks)
*
*  If INCLUDE programs are wanted on UPLOAD only the specified
*  directory is searched.
*
*  Instead of entering path name manually you can click on
*  the path parameter. Because of Windows restriction you will
*  have to select ANY file in the relevant directory.
*  The path will then be copied on to the selection screen.
*
*  To do still : Merge 3 files to one and compress output to .ZIP file
*                fix 4.5 4.6 problem of abaps containing '/' in the name
*                possibility to automatically up / download referenced
*                function modules with selection criteria like INCLUDES
*
* To load the ist time into a system.
*
* Create program with ABAP editor and Upload the .EEE file.
* Delete ist line  (????SRCE) in the ABAP EDITOR --NOT THE DISK FILE
* Delete all the source from the line that starts ????TEXT (towards
* the end file) till the end so the last line in your source is ENDFORM.
* DO NOT ALTER THE DISK FILE. DO THESE CHANGES IN THE ABAP EDITOR.
*
* Save file and execute
*
* Use following parameters (Note the ist time you won't get proper
* text on the selection screen).
*
*  Function      U
*  Path          full dos path containing source e.g c:\abaps\
*                NOTE YOU MUST ENTER THE FINAL \ as above.
*  REPID         the program name. e.g ZZJIMHXX
*                note that on the DISK you will see 3 files
*                ZZJIMHXX.EEE, ZZJIMHXX.FFF, ZZJIMHXX.HHH
*                just use the name before the dos qualifier - the
*                program will do the rest
*
* ignore other parameters
* The program will then load itself with all the texts etc.
* It should now be ready for use.
*
*   Macros
*
DEFINE DEFINE_TABLE.
  DATA: &1 LIKE &2 OCCURS &3 WITH HEADER LINE.
END-OF-DEFINITION.
DEFINE CLS.
  REFRESH &1.
  CLEAR &1.
END-OF-DEFINITION.
DEFINE INIT.
  IF &1 NE SPACE.
    SEARCH &1 FOR '. .'.
    IF SY-SUBRC = 0.
      WRITE '*' TO &1+SY-FDPOS(1).
    ENDIF.
    TRANSLATE &1 USING '*%'.
  ELSE.
    MOVE '%' TO &1.
  ENDIF.
END-OF-DEFINITION.
* end of macros
*/******************************************************************/
*/*                                                                */
*/*     SAP standard tables                                        */
*/*                                                                */
*/******************************************************************/
TABLES: D020S,                         "Dynpro header
        D020T,                         "Dynpro title
        D021T,                         "Screen field keyword texts
        TRDIR,                         "Attribute table
        TADIR,                         "Dev. class etc.
        EUDB,                          "CUA data
        TSTC,                          "transaction data
        TITLE,                         "CUA titles
        RSMPTEXTS.                     "Function texts (rel 4.0)
*/******************************************************************/
*/*                                                                */
*/*     Work tables to hold ABAP source etc, and dynpro            */
*/*     contents.                                                  */
*/*                                                                */
*/******************************************************************/
DATA: BEGIN OF H.                      "Header
        INCLUDE STRUCTURE D020S.
DATA: END OF H.
DATA: BEGIN OF H1 OCCURS 10,           "Header
      NAME(40)               TYPE C,                        "rel 4
      NUMBER(4)              TYPE N.
        INCLUDE STRUCTURE D020S.
DATA: END OF H1.
DATA: BEGIN OF H2 OCCURS 0,            "Rel 3  dynp. header
        CNAME(8)   TYPE C,
        CNUM(4)    TYPE C,
        NNAME(8)   TYPE C,
        NNUM(4)    TYPE C,
        FILL(51)   TYPE C,
        CDAT(6)    TYPE C,
        CTIM(6)    TYPE C,
      END OF H2.
DATA: BEGIN OF F OCCURS 250.           "Dynpro Fields
        INCLUDE STRUCTURE D021S.
DATA: END OF F.
DATA: BEGIN OF F1 OCCURS 500,          "Dynpro Fields
      NAME(40)               TYPE C,                        "rel 4
      NUMBER(4)              TYPE N.
        INCLUDE STRUCTURE D021S.
DATA: END OF F1.
DATA: BEGIN OF OLD_F1 OCCURS 0,        "Dynpro Fields (rel 3)
      NAME(8)    TYPE C,
      NUMBER(4)     TYPE C.
        INCLUDE STRUCTURE D021SE_OLD.
DATA: END OF OLD_F1.
DATA: BEGIN OF F2 OCCURS 0,            "Dynpro Fields (rel 3)
      TFIL(284)  TYPE C,
      END OF F2.
DATA: BEGIN OF M OCCURS 3.             "Match codes (if any)
        INCLUDE STRUCTURE D023S.
DATA: END OF M.
DATA: BEGIN OF E OCCURS 0.             "Dynpro Logic
        INCLUDE STRUCTURE D022S.
DATA: END OF E.
DATA: BEGIN OF E1 OCCURS 0,            "Dynpro Logic
      NAME(40)               TYPE C,                        "rel 4
      NUMBER(4)              TYPE N.
        INCLUDE STRUCTURE D022S.
DATA: END OF E1.
DATA: BEGIN OF T   OCCURS 0,           "prog name and dynpro nrs
      NAME(40)     TYPE C,                                  "rel 4
      NUMBER(4)    TYPE N,
 END OF T.
DATA: BEGIN OF R   OCCURS 56,          "prog name and language
      NAME(40)     TYPE C,                                  "rel 4
      LANGUAGE(1)  TYPE C,
   END OF R.
DATA: BEGIN OF S OCCURS 3000,
      TXT(180)               TYPE C,   "rel 4   was 132
      END OF S.
DATA: BEGIN OF R1 OCCURS 50,           "for include programs
        NAME(40)             TYPE C,                        "rel 4
        INSTANCE(3)          TYPE P,
      END OF R1.
DATA: BEGIN OF S1 OCCURS 3000,
      TXT(180)               TYPE C,   "   rel 4  was 132
      END OF S1.
DATA: BEGIN OF U OCCURS 100,           "Text elements
      TXT(180)               TYPE C,   " rel 4   was 132
      END OF U.
DATA: BEGIN OF DIR.                    "ABAP Attributes
        INCLUDE STRUCTURE TRDIR.
DATA: END OF DIR.
DATA: BEGIN OF DTXT.                   "Dynpro field keyword texts
        INCLUDE STRUCTURE D021T.
DATA: END OF DTXT.
*/******************************************************************/
*/*                                                                */
*/*     This data contains all the components of the               */
*/*     CUA such as menus, statuses, Pfkeys                        */
*/*                                                                */
*/*     As from rel 4.5 Tabstrips are automatically copied as well */
*/*                                                                */
*/*     The rel3 parameter must be set however to load the         */
*/*     correct version of the CUA tables if uploading rel 3       */
*/*     data to a rel 4 system.                                    */
*/*                                                                */
*/*     Rel 4.0B can  convert 3.1 and earlier CUA's                */
*/*     This could change later however.                           */
*/*                                                                */
*/******************************************************************/
* CUA Tables.
* Key of CUA tables in EUDB data set. Name is len 40 in rel 4.0
DATA BEGIN OF EU_KEY.
        INCLUDE STRUCTURE RSEU1_KEY.
DATA END OF EU_KEY.
*     Status
DATA BEGIN OF STA OCCURS 0.
        INCLUDE STRUCTURE RSMPE_STAT.                       " rel 4
DATA END OF STA.
*     Functions
DATA BEGIN OF FUN OCCURS 0.
        INCLUDE STRUCTURE RSMPE_FUNT.                       "rel 4
DATA END OF FUN.
*     Menus
DATA BEGIN OF MEN OCCURS 0.
        INCLUDE STRUCTURE RSMPE_MEN.   "rel 4.0
DATA END OF MEN.
*     Menus (texts)
DATA BEGIN OF MTX OCCURS 0.
        INCLUDE STRUCTURE RSMPE_MNLT.  "rel 4.0
DATA END OF MTX.
*     Action Bar
DATA BEGIN OF ACT OCCURS 0.
        INCLUDE STRUCTURE RSMPE_ACT.   "rel 4.0
DATA END OF ACT.
*     Push Buttons
DATA BEGIN OF BUT OCCURS 0.
        INCLUDE STRUCTURE RSMPE_BUT.   "rel 4.0
DATA END OF BUT.
*     PF-Keys
DATA BEGIN OF PFK OCCURS 0.
        INCLUDE STRUCTURE RSMPE_PFK.   "rel 4.0
DATA END OF PFK.
*     Function sets
DATA BEGIN OF SET OCCURS 0.
        INCLUDE STRUCTURE RSMPE_STAF.  "rel 4.0
DATA END OF SET.
*     Documentation
DATA BEGIN OF DOC OCCURS 0.
        INCLUDE STRUCTURE RSMPE_ATRT.  "rel 4.0
DATA END OF DOC.
*     Title codes with text
DATA: BEGIN OF TIT OCCURS 0.
        INCLUDE STRUCTURE RSMPE_TITT.  "rel 4.0
DATA: END OF TIT.
DATA BEGIN OF FTX OCCURS 0.            "rel 4.0
        INCLUDE STRUCTURE RSMPTEXTS.
DATA END OF FTX.
*        rel 3.1 CUA components.
*     Status
DATA BEGIN OF OLD_STA OCCURS 0.
        INCLUDE STRUCTURE RSEU1_GEN.   " rel 3.1
DATA END OF OLD_STA.
*     Functions
DATA BEGIN OF OLD_FUN OCCURS 0.
        INCLUDE STRUCTURE RSEU1_FUN.   "rel 3.1
DATA END OF OLD_FUN.
*     Menus
DATA BEGIN OF OLD_MEN OCCURS 0.
        INCLUDE STRUCTURE RSEU1_MEN.   "rel 3.1
DATA END OF OLD_MEN.
*     Menus (texts)
DATA BEGIN OF OLD_MTX OCCURS 0.
        INCLUDE STRUCTURE RSEU1_TXM.   "rel 3.1
DATA END OF OLD_MTX.
*     Action Bar
DATA BEGIN OF OLD_ACT OCCURS 0.
        INCLUDE STRUCTURE RSEU1_ACT.   "rel 3.1
DATA END OF OLD_ACT.
*     Push Buttons
DATA BEGIN OF OLD_BUT OCCURS 0.
        INCLUDE STRUCTURE RSEU1_BUT.   "rel 3.1
DATA END OF OLD_BUT.
*     PF-Keys
DATA BEGIN OF OLD_PFK OCCURS 0.
        INCLUDE STRUCTURE RSEU1_PFK.   "rel 3.1
DATA END OF OLD_PFK.
*     Function sets
DATA BEGIN OF OLD_SET OCCURS 0.
        INCLUDE STRUCTURE RSEU1_SET.   "rel 3.1
DATA END OF OLD_SET.
*     Documentation
DATA BEGIN OF OLD_DOC OCCURS 0.
        INCLUDE STRUCTURE RSEU1_ETM.   "rel 3.1
DATA END OF OLD_DOC.
*     Title codes with text
DATA: BEGIN OF OLD_TIT OCCURS 0.
        INCLUDE STRUCTURE TITLE.       "rel 3.1
DATA: END OF OLD_TIT.
* dynamic function text
DATA BEGIN OF FDN OCCURS 1.
        INCLUDE STRUCTURE RSEU1_FDYN.  "not req for rel 4.
DATA END OF FDN.
* Icons
DATA BEGIN OF FIN OCCURS 1.
        INCLUDE STRUCTURE RSEU1_ICON.  "not req for rel 4
DATA END OF FIN.
* dynamic menu texts
DATA BEGIN OF MDN OCCURS 1.
        INCLUDE STRUCTURE RSEU1_MDYN.  "not req for rel 4.
DATA END OF MDN.
*     Symbol list
DATA BEGIN OF SYM OCCURS 0.
        INCLUDE STRUCTURE RSEU1_SYMB.
DATA END OF SYM.
*     Status Short text
DATA BEGIN OF STX OCCURS 0.
        INCLUDE STRUCTURE RSEU1_CTX.
DATA END OF STX.
*     Attributes for function key settings (menu bars)  Rel 3.0
DATA BEGIN OF ATT OCCURS 0.
        INCLUDE STRUCTURE RSEU1_HAT.
DATA END OF ATT.
*     Include-Menus
DATA BEGIN OF INC OCCURS 3.
        INCLUDE STRUCTURE RSEU1_INC.
DATA END OF INC.
* Last used numbers
DATA BEGIN OF LAST.
        INCLUDE STRUCTURE RSEU1_LST.
DATA END OF LAST.
*
*   data for call transaction (SE41 to re-generate the CUA)
*
DATA: BEGIN OF T_BDC_TAB OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.     "BDC data
DATA: END OF T_BDC_TAB.
DATA: BEGIN OF T_MESSTAB OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF T_MESSTAB.
*/******************************************************************/
*/*                                                                */
*/*     Program data                                               */
*/*                                                                */
*/******************************************************************/
DATA: NUMBER(4)               TYPE N,
      OLDNUM(4)               TYPE N,
      FILESIZE                TYPE I,
      NR_OF_BYTES             TYPE I,
      I(3)                    TYPE P,
      IX(3)                   TYPE P,
      J(3)                    TYPE P,
      L(3)                    TYPE P,
      CUA-FLAG(1)             TYPE C,
      CUA_RETURN(10)          TYPE C,
      DYNPRO_MESSAGE(160)     TYPE C,
      DYNPRO_LINE             TYPE P,
      DYNPRO_WORD(30)         TYPE C,
      NUM(3)                  TYPE N,
      DYNNAME(44)             TYPE C,
      FN1(128)                TYPE C,
      FN2(128)                TYPE C,
      FN3(128)                TYPE C,
      W_ITERATE(1)            TYPE C,
      MAIN(1)                 TYPE C,
      FUNC(1)                 TYPE C,
      OLDNAME(40)             TYPE C,
      OLD-FUNC(8)             TYPE C,
      NEW-FUNC(8)             TYPE C,
      FOUND(1)                TYPE C,
      LANGUAGE                LIKE SY-LANGU,
      FIRST-TIME(1)           TYPE C VALUE 'Y',
      OK-CODE(5)              TYPE C,
      NAME(40)                TYPE C,                       "rel 4
      TXLINE(70)              TYPE C,
      LINE(132)               TYPE C.
DATA:
      UL_FILE(128)          TYPE C,
      DL_FILE(128)          TYPE C,
      DOSLINE(72)           TYPE C.
DATA: BEGIN OF DOSDIR OCCURS 0,
        TEXT(72),
      END OF DOSDIR.
DATA: BEGIN OF I_PROG OCCURS 0,
      NAME(40),
      END OF I_PROG.
DATA: BEGIN OF I_PROGT OCCURS 0,
      NAME(40),
      END OF I_PROGT.
DATA: BEGIN OF I_INCLUDE OCCURS 0,
      NAME(40),
      HANDLED(1)   TYPE C,
      END OF I_INCLUDE.
DATA: BEGIN OF I_INCL OCCURS 0,
      NAME(40),
      END OF I_INCL.
DATA: BUFFER(1024).
DATA: WINSYS(3).
DATA: GLOBAL_FILEMASK_MASK(20), GLOBAL_FILEMASK_TEXT(20).
DATA: GLOBAL_FILEMASK_ALL(80).
DATA: T_FILENAME(128),
      TMP_FILENAME(128),
      T_MODE(1),
      FIELDLN     TYPE I.
DEFINE_TABLE I_DYNPFIELDS DYNPREAD 0.  "dynpro fields to be updated
DATA: I_FLDS LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <F>.
*/******************************************************************/
*/*                                                                */
*/*     Parameters                                                 */
*/*                                                                */
*/******************************************************************/
SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS REPID FOR TRDIR-NAME OBLIGATORY .
PARAMETERS:
      FUNCTION(1)       TYPE C OBLIGATORY,  "Function
      DSNAME(40)        TYPE C,        "Data set name
      INCLUDES(1)       TYPE C DEFAULT 'N', "Resolve Includes
      IMASK(40)         TYPE C,        "Include Mask
      CLASS             LIKE TRDIR-CLAS,
      AUTHOR            LIKE TRDIR-CNAM,          "Author
      APPL              LIKE TRDIR-APPL,
      PATH(88)          TYPE C DEFAULT 'A:\',
      REL3(1)           TYPE C.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-002.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END  OF BLOCK A1.
*/***************************************************************/
*/*                                                             */
*/*          Check users workstation is running WINDOWS,        */
*/*          WINDOWS 95, or WINDOWS NT. OS/2 no good for        */
*/*          this application.                                  */
*/*                                                             */
*/***************************************************************/
CALL FUNCTION 'WS_QUERY'
     EXPORTING
          QUERY  = 'WS'
     IMPORTING
          RETURN = WINSYS.
IF WINSYS(2) NE 'WN'.                  "Win 3.X no good either
  WRITE: / 'Windows NT or Windows 95/98 is required'.
  EXIT.
ENDIF.
*/***************************************************************/
*/*                                                             */
*/*          Get names of programs to be handled.               */
*/*          Name can be a single value, many values or ranges  */
*/*          as per standard SELECT-OPTIONS on selection screen */
*/*                                                             */
*/* On Download read TRDIR and store program names in a table   */
*/* as per selection options.                                   */
*/*                                                             */
*/* On upload read the specified directory for all files of     */
*/*  type .EEE from specified directory                         */
*/*  compare file names with selection criteria                 */
*/*                                                             */
*/***************************************************************/
MOVE FUNCTION TO FUNC.
MOVE 'Y' TO MAIN.
CASE FUNC.
  WHEN 'U'.                            "Upload required
    PERFORM READ_DOS_DIRECTORY.
    PERFORM GET_RANGE_UL.              "Get list of progs to process
  WHEN 'D'.                            "Download required
    PERFORM GET_RANGE_DL.              "Get list of progs to process
  WHEN OTHERS.
    WRITE: / 'Function not performed due to user request'.
    EXIT.
ENDCASE.
SORT I_PROG.
DELETE ADJACENT DUPLICATES FROM I_PROG.
*
* For download INCLUDE handling can be resolved via function
* module call.
* All Includes within Includes are also resolved by the function
* module call.
*
* Note that this method does not work if program itself is of type
* I (it's an include)
* In this case we can still search the source.
*
IF FUNC = 'D'.
  IF INCLUDES = 'Y'.
    PERFORM GET_INCLUDES_DL.
    PERFORM PROCESS_INCLUDES_DL.
  ENDIF.
ENDIF.
*
* Program list from selection criteria i.e excluding INCLUDES found
*
LOOP AT I_PROG.
  MOVE I_PROG-NAME TO R1-NAME.
  APPEND R1.
  DESCRIBE TABLE R1 LINES I.
  WHILE I NE 0.
    PERFORM EXECUTE-FUNCTION.
  ENDWHILE.
  REFRESH R1.
ENDLOOP.
*
*  We need to check now for INCLUDES on DOWNLOAD when the INCLUDE
*  program itself is of type I. In this case the function call
*  will not return the INCLUDES. For example we could be
*  downloading ZTESTTOP (an Include itself) which as an include
*  ZTEST01.
* The process fortunately is the same as the UPLOAD function
* except of course we need to read the library instead of the
* DOS directory
*
* process INCLUDE modules for Upload
* On upload the procedure is more complex as Includes within
* Includes can only be resolved by scanning the code and
* searching if the program exists in the directory.
* To get all INCLUDES within INCLUDES entries in table I_INCL
* that do not exist in I_INCLUDE are copied to table I_INCLUDE
* after each entire pass of table i_INCLUDE and table is then
* re-looped through. Programs in table I_INCLUDE that have already
* been processed have a "Y" indicator set in I_INCLUDE-AVAIL.
*
* if  func = 'U'.
IF INCLUDES = 'Y'.
  DESCRIBE TABLE I_INCL LINES I.
  IF I > 0.
    W_ITERATE = 'Y'.
  ELSE.
    W_ITERATE = ' '.
  ENDIF.
  WHILE W_ITERATE = 'Y'.
    PERFORM PROCESS_INCLUDES_UL.
    PERFORM LOOP_THROUGH.
    DESCRIBE TABLE I_INCL LINES I.
    IF I > 0.
      W_ITERATE = 'Y'.
    ELSE.
      W_ITERATE = ' '.
    ENDIF.
  ENDWHILE.
* endif.
ENDIF.
DESCRIBE TABLE I_INCLUDE LINES I.
IF I > 0.
  SKIP 1.
  WRITE: / ' Included Programs found'.
  SKIP 1.
  LOOP AT I_INCLUDE.
    WRITE I_INCLUDE-NAME TO LINE(40).
    CONDENSE LINE.
    WRITE: / LINE(80).
  ENDLOOP.
ENDIF.
*/******************************************************************/
*/*                                                                */
*/*       Table R contains ABAP names to up / download.            */
*/*       Loop through table R and perform up / download           */
*/*       for each program.                                        */
*/*                                                                */
*/*       Table R1 contains INCLUDE names found (if any)           */
*/*       As each                                                  */
*/*                                                                */
*/******************************************************************/
FORM EXECUTE-FUNCTION.
  LOOP AT R1.
    MOVE-CORRESPONDING R1 TO R.
    APPEND R.
  ENDLOOP.
  REFRESH R1.
  LOOP AT R.
    REFRESH : T, E1, H1, F1, S, U.
    PERFORM PROCESS.
    MOVE 'N' TO MAIN.
  ENDLOOP.
  REFRESH R.
  DESCRIBE TABLE R1 LINES I.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*     Build file names for UP/DOWNLOAD                           */
*/*                                                                */
*/*     3 files are generated per ABAP.                            */
*/*       1) ABAP    Path\PROGNAME.EEE (ABAP, Attr,Texts)          */
*/*          Logic   Path\PROGNAME.EEE (Dynpro Source Logic)       */
*/*          CUA     Path\PROGNAME.EEE (CUA components - keys etc) */
*/*       2) Header  Path\PROGNAME.HHH (Dynpro Header)             */
*/*       3) Fields  Path\PROGNAME.FFF (Dynpro Field definitions  )*/
*/*                                                                */
*/* ( If alternate file name specified -DSNAME- this will          */
*/*   be used instead. This is only valid for the main program.    */
*/*   INCLUDED programs will have file names as specified          */
*/*   above).                                                      */
*/*                                                                */
*/*  By using this scheme it saves the user from having to         */
*/*  be prompted for 3 file names.                                 */
*/*                                                                */
*/*  If you want multiple copies / versions on disk either         */
*/*  rename the old versions or specify a different directory in   */
*/*  the path parameter.                                           */
*/*                                                                */
*/******************************************************************/
FORM PROCESS.
  MOVE PATH TO FN1.
  CASE MAIN.
    WHEN 'Y'.
      IF DSNAME NE SPACE.
        WRITE DSNAME TO FN1+66.                             "rel 4
      ELSE.
        WRITE R-NAME TO FN1+66.                             "rel 4
      ENDIF.
    WHEN OTHERS.
      WRITE R-NAME TO FN1+66.                               "rel 4
  ENDCASE.
  MOVE FN1 TO FN2.
  MOVE FN1 TO FN3.
  WRITE '.HHH' TO FN1+124(4).                               "rel 4
  WRITE '.FFF' TO FN2+124(4).                               "rel 4
  WRITE '.EEE' TO FN3+124(4).                               "rel 4
  CONDENSE FN1 NO-GAPS.
  CONDENSE FN2 NO-GAPS.
  CONDENSE FN3 NO-GAPS.
  NAME   = R-NAME.
  CASE FUNC.
    WHEN 'D'.
      PERFORM DOWNLOAD_OBJECTS.
      CLEAR LINE.
      WRITE : 'ABAP : ' TO LINE.
      WRITE R-NAME TO LINE+8.
      WRITE 'has been unloaded' TO LINE+55.
      CONDENSE LINE.
      WRITE: / LINE.
      DESCRIBE TABLE T LINES I.
      IF I = 0.
        WRITE: / 'No Dynpros were found for unload function'.
      ELSE.
        WRITE: / 'The following Dynpros have been unloaded : '.
        PERFORM LOOP_THROUGH_T.
      ENDIF.
    WHEN 'U'.
      PERFORM UPLOAD_OBJECTS.
      DESCRIBE TABLE T LINES I.
      CASE I.
        WHEN 0.
          WRITE:  / 'No Dynpros were found for restore function'.
        WHEN OTHERS.
          WRITE: / 'The following Dynpros have been restored : '.
          PERFORM LOOP_THROUGH_T.
      ENDCASE.
      IF MAIN EQ 'Y'.
        CASE OLDNAME.
          WHEN SPACE.
            CLEAR LINE.
            WRITE : 'ABAP : ' TO LINE.
            WRITE R-NAME TO LINE+8.
            WRITE 'has been restored' TO LINE+55.
            CONDENSE LINE.
            WRITE: / LINE.
          WHEN OTHERS.
            CLEAR LINE.
            WRITE : 'ABAP : ' TO LINE.
            WRITE R-NAME TO LINE+8.
            WRITE 'has been restored - original name :'
               TO LINE+55.
            WRITE OLDNAME TO LINE+92.
            CONDENSE LINE.
            WRITE: / LINE.
        ENDCASE.
      ELSE.
        CLEAR LINE.
        WRITE : 'ABAP : ' TO LINE.
        WRITE R-NAME TO LINE+8.
        WRITE 'has been restored' TO LINE+55.
        CONDENSE LINE.
        WRITE: / LINE.
      ENDIF.
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*      print progname + dynpro nrs that have been processed.     */
*/*                                                                */
*/******************************************************************/
FORM LOOP_THROUGH_T.
  LOOP AT T.
    CLEAR LINE.
    WRITE R-NAME TO LINE.
    WRITE T-NUMBER TO LINE+50.
    CONDENSE LINE.
    WRITE: / LINE.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*            Download Objects                                    */
*/*                                                                */
*/******************************************************************/
FORM DOWNLOAD_OBJECTS.
  PERFORM UNLOAD_ABAP.                 "ABAP source, texts, attr
  SELECT SINGLE * FROM TRDIR
   WHERE NAME EQ R-NAME.
  IF TRDIR-SUBC = 'I'.
    CASE INCLUDES.                     "Included file wanted
      WHEN 'Y'.
        PERFORM SCAN4-INCLUDES.
    ENDCASE.
  ENDIF.
  PERFORM UNLOAD_CUA.                  "CUA stuff
  PERFORM DOWNLOAD_DATA.               "Download EEE file to PC
  PERFORM BUILD_T.        "Build table of all dynpros in ABAP
  DESCRIBE TABLE T LINES I.
  CASE I.
    WHEN 0.            "if no dynpros exist then cannot download any
      PERFORM DOWNLOAD_DATA.           "Download EEE file to PC
    WHEN OTHERS.
      PERFORM UNLOAD_DYNPROS.          "Get Raw dynpros from SAP
      PERFORM UNLOAD_DYNPRO_COMPONENTS."Convert to table
      PERFORM DOWNLOAD_DATA.           "Download ABAP etc. to PC
      PERFORM DOWNLOAD_BIN_H1.         "Download dynpro header
      PERFORM DOWNLOAD_BIN_F1.         "Download dynpro fields
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*  Split ABAP up into its component parts                        */
*/*                                                                */
*/*                           A) Program source (72)               */
*/*                           B) Texts          (132)              */
*/*                           C) Attributes     (117)              */
*/*                           D) CUA stuff      (Various)          */
*/*                                                                */
*/******************************************************************/
FORM UNLOAD_ABAP.
*/******************************************************************/
*/*                                                                */
*/*    Get ABAP language. Only required on download.               */
*/*                                                                */
*/******************************************************************/
  SELECT SINGLE * FROM TRDIR
    WHERE NAME EQ R-NAME.
  MOVE TRDIR-RLOAD TO R-LANGUAGE.
  READ REPORT R-NAME INTO S.           "Get source into table S
  MOVE '????SRCE' TO S-TXT.
  INSERT  S INDEX 1.
*/******************************************************************/
*/*                                                                */
*/*    Text elements, Numbered texts, headings, selection texts    */
*/*    Read text elements with logon language. If they don't       */
*/*    exist read with the value taken from TRDIR.                 */
*/*                                                                */
*/******************************************************************/
  READ TEXTPOOL R-NAME INTO U LANGUAGE SY-LANGU.
  IF SY-SUBRC NE 0.
    READ TEXTPOOL R-NAME INTO U LANGUAGE R-LANGUAGE.
  ENDIF.
  DESCRIBE TABLE U LINES I.
  CASE I.
    WHEN 0.
    WHEN OTHERS.
      MOVE '????TEXT' TO S-TXT.
      APPEND S.
      LOOP AT U.
        MOVE U-TXT TO S-TXT.
        APPEND S.
        DELETE U.
      ENDLOOP.
  ENDCASE.
*/******************************************************************/
*/*                                                                */
*/*    Retrieve Attributes from TRDIR and add to table S           */
*/*    Change language to logged on language                       */
*/*                                                                */
*/******************************************************************/
  MOVE '????ATTR' TO S-TXT.
  APPEND S.
  SELECT SINGLE * FROM TRDIR
         WHERE NAME EQ R-NAME.
  MOVE SY-LANGU TO TRDIR-RLOAD.
  MOVE-CORRESPONDING TRDIR TO DIR.
  MOVE DIR TO S-TXT.
  APPEND S.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*             retrieve CUA stuff and append to table S.          */
*/*                                                                */
*/******************************************************************/
FORM UNLOAD_CUA.
  MOVE R-NAME TO EU_KEY-NAME.          "Program name for CUA
  MOVE 'D' TO EU_KEY-SPRSL.            "CUA seems to want D as lang
* MOVE R-LANGUAGE TO EU_KEY-SPRSL.     "Language              "rel 2.2
*  IMPORT STA FUN MEN MTX ACT BUT PFK SET LAST INC STX DOC    "rel 2.2
  IMPORT STA STX FUN MEN MTX ACT BUT PFK SET LAST INC DOC     "rel 3.0
         ATT FDN MDN SYM FIN           "rel 3.0
          FROM DATABASE EUDB(CU) ID EU_KEY.
  IF SY-SUBRC NE 0.                    "No statuses
    EXIT.
  ENDIF.
* read titles in logged on language. If not present use
* language from TRDIR.
  CASE REL3.
    WHEN SPACE.                        "(rel 4)
      SELECT * FROM RSMPTEXTS WHERE PROGNAME EQ R-NAME
                        AND SPRSL = SY-LANGU.
        MOVE-CORRESPONDING RSMPTEXTS TO FTX.
        APPEND FTX.
      ENDSELECT.
      IF SY-SUBRC NE 0.
        SELECT * FROM RSMPTEXTS WHERE PROGNAME EQ R-NAME
                          AND SPRSL = R-LANGUAGE.
          MOVE-CORRESPONDING RSMPTEXTS TO FTX.
          APPEND FTX.
        ENDSELECT.
      ENDIF.
      DESCRIBE TABLE FTX LINES I.
      IF   I > 0.
        MOVE '????FTXT' TO S-TXT.
        APPEND S.
        LOOP AT FTX.
          MOVE FTX TO S-TXT.
          APPEND S.
        ENDLOOP.
      ENDIF.
    WHEN OTHERS.
      SELECT * FROM TITLE WHERE PROGNAME   EQ R-NAME
                          AND   DDLANGUAGE EQ SY-LANGU.
        MOVE-CORRESPONDING TITLE TO TIT.
        APPEND TIT.
      ENDSELECT.
      IF SY-SUBRC NE 0.
        SELECT * FROM TITLE WHERE PROGNAME   EQ R-NAME
                            AND   DDLANGUAGE EQ R-LANGUAGE.
          MOVE-CORRESPONDING TITLE TO TIT.
          APPEND TIT.
        ENDSELECT.
      ENDIF.
  ENDCASE.
  DESCRIBE TABLE STA LINES I.
  IF   I > 0.
    MOVE '????STAT' TO S-TXT.
    APPEND S.
    LOOP AT STA.
      MOVE STA TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE FUN LINES I.
  IF   I > 0.
    MOVE '????FUNC' TO S-TXT.
    APPEND S.
    LOOP AT FUN.
      MOVE FUN TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE MEN LINES I.
  IF   I > 0.
    MOVE '????MEN1' TO S-TXT.
    APPEND S.
    LOOP AT MEN.
      MOVE MEN TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE MTX LINES I.
  IF   I > 0.
    MOVE '????MTX1' TO S-TXT.
    APPEND S.
    LOOP AT MTX.
      MOVE MTX TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE ACT LINES I.
  IF   I > 0.
    MOVE '????ACTN' TO S-TXT.
    APPEND S.
    LOOP AT ACT.
      MOVE ACT TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE BUT LINES I.
  IF   I > 0.
    MOVE '????BUTN' TO S-TXT.
    APPEND S.
    LOOP AT BUT.
      MOVE BUT TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE PFK LINES I.
  IF   I > 0.
    MOVE '????PFKY' TO S-TXT.
    APPEND S.
    LOOP AT PFK.
      MOVE PFK TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE SET LINES I.
  IF   I > 0.
    MOVE '????SETS' TO S-TXT.
    APPEND S.
    LOOP AT SET.
      MOVE SET TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  IF LAST NE SPACE.
    MOVE '????LIST' TO S-TXT.
    APPEND S.
    MOVE LAST TO S-TXT.
    APPEND S.
  ENDIF.
  DESCRIBE TABLE INC LINES I.
  IF   I > 0.
    MOVE '????INCL' TO S-TXT.
    APPEND S.
    LOOP AT INC.
      MOVE INC TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE STX LINES I.
  IF   I > 0.
    MOVE '????STXT' TO S-TXT.
    APPEND S.
    LOOP AT STX.
      MOVE STX TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE DOC LINES I.
  IF   I > 0.
    MOVE '????DOCN' TO S-TXT.
    APPEND S.
    LOOP AT DOC.
      MOVE DOC TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE TIT LINES I.
  IF   I > 0.
    MOVE '????TITL' TO S-TXT.
    APPEND S.
    LOOP AT TIT.
      MOVE TIT TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
* Next 5 tables are rel 3.0 specific  (ATT, FDN, MDN, SYM, FIN)
  DESCRIBE TABLE ATT LINES I.
  IF   I > 0.
    MOVE '????VATT' TO S-TXT.
    APPEND S.
    LOOP AT ATT.
      MOVE ATT TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE FDN LINES I.
  IF   I > 0.
    MOVE '????VFDN' TO S-TXT.
    APPEND S.
    LOOP AT FDN.
      MOVE FDN TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE MDN LINES I.
  IF   I > 0.
    MOVE '????VMDN' TO S-TXT.
    APPEND S.
    LOOP AT MDN.
      MOVE MDN TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE SYM LINES I.
  IF   I > 0.
    MOVE '????VSYM' TO S-TXT.
    APPEND S.
    LOOP AT SYM.
      MOVE SYM TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE FIN LINES I.
  IF   I > 0.
    MOVE '????VFIN' TO S-TXT.
    APPEND S.
    LOOP AT FIN.
      MOVE FIN TO S-TXT.
      APPEND S.
    ENDLOOP.
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*            Upload Objects.                                     */
*/*                                                                */
*/******************************************************************/
FORM UPLOAD_OBJECTS.
  PERFORM UPLOAD_EEE.                  "ABAP,texts,attr dynpro logic
  DESCRIBE TABLE E1 LINES I.
  IF I > 0.                            "Do dynpro components exist
    PERFORM UPLOAD_HHH.                "dynpro header
    PERFORM UPLOAD_FFF.                "dynpro fields.
    PERFORM RECONSTRUCT_DYNPROS.       "load + gen dynpros
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*            Build table containing dynpro names and numbers     */
*/*                                                                */
*/******************************************************************/
FORM BUILD_T.
  SELECT * FROM D020S WHERE PROG EQ R-NAME.
    T-NUMBER = D020S-DNUM.
    T-NAME   = D020S-PROG.
    APPEND T.
  ENDSELECT.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*  Split dynpros into constituent parts.                         */
*/*                                                                */
*/******************************************************************/
FORM UNLOAD_DYNPROS.
  MOVE 'Y' TO FIRST-TIME.
  LOOP AT T.
    REFRESH: F, E.
    CLEAR: H, F, E.
    PERFORM BUILD_HHH.                 "Dynpro Header
    PERFORM BUILD_FFF.                 "Dynpro Fields
    PERFORM BUILD_EEE_DYNP.            "Dynpro Logic
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*   Header    H length 284.                                      */
*/*                                                                */
*/******************************************************************/
FORM BUILD_HHH.
  MOVE T-NAME TO DYNNAME(40).          "rel 4.
  MOVE T-NUMBER TO DYNNAME+40(4).      "rel 4.
  IMPORT DYNPRO H F E M ID DYNNAME.
  MOVE T-NAME TO H1-NAME.
  MOVE T-NUMBER TO H1-NUMBER.
  MOVE-CORRESPONDING H TO H1.
  APPEND H1.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*   Fields    D021S Len 87.                                      */
*/*                                                                */
*/******************************************************************/
FORM BUILD_FFF.
  MOVE T-NAME TO F1-NAME.
  MOVE T-NUMBER TO F1-NUMBER.
  LOOP AT F.
    MOVE-CORRESPONDING F TO F1.
    APPEND F1.
    DELETE F.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*   Dynpro Logic  D022S          E                               */
*/*                                                                */
*/******************************************************************/
FORM BUILD_EEE_DYNP.
  MOVE T-NAME TO E1-NAME.
  MOVE T-NUMBER TO E1-NUMBER.
  LOOP AT E.
    MOVE-CORRESPONDING E TO E1.
    APPEND E1.
    DELETE E.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*        Unload Constituent parts of dynpro.                     */
*/*                                                                */
*/******************************************************************/
FORM UNLOAD_DYNPRO_COMPONENTS.
  MOVE '????LOGC' TO S-TXT.
  APPEND S.
  LOOP AT E1.
    MOVE E1 TO S-TXT.
    APPEND S.
    DELETE E1.
  ENDLOOP.
  FREE E1.
  LOOP AT T.
    MOVE 'N' TO FOUND.
    SELECT SINGLE * FROM D020T         "use logged on language
           WHERE  PROG EQ T-NAME
            AND   DYNR EQ T-NUMBER
            AND   LANG EQ SY-LANGU.
    IF SY-SUBRC NE 0.                  "try original language.
      SELECT SINGLE * FROM D020T
             WHERE  PROG EQ T-NAME
              AND   DYNR EQ T-NUMBER
              AND   LANG EQ R-LANGUAGE.
    ENDIF.
    IF SY-SUBRC EQ 0.
      IF FOUND = 'N'.
        MOVE '????DTIT' TO S-TXT.
        APPEND S.
        MOVE 'Y' TO FOUND.
      ENDIF.
      MOVE T-NAME TO S-TXT.
      WRITE T-NUMBER TO S-TXT+8(4).
      WRITE D020T-DTXT TO S-TXT+12(60).
      APPEND S.
    ENDIF.
    MOVE 'N' TO FOUND.
    SELECT  * FROM D021T
           WHERE  PROG EQ T-NAME
            AND   DYNR EQ T-NUMBER
            AND   LANG EQ SY-LANGU.    "logged on language
      IF FOUND = 'N'.
        MOVE '????DTXT' TO S-TXT.
        APPEND S.
        MOVE 'Y' TO FOUND.
      ENDIF.
      MOVE-CORRESPONDING D021T TO DTXT.
      MOVE DTXT TO S-TXT.
      APPEND S.
    ENDSELECT.
    CASE SY-SUBRC.
      WHEN 0.
      WHEN OTHERS.                     "try original language
        SELECT  * FROM D021T
               WHERE  PROG EQ T-NAME
                AND   DYNR EQ T-NUMBER
                AND   LANG EQ R-LANGUAGE.
          IF FOUND = 'N'.
            MOVE '????DTXT' TO S-TXT.
            APPEND S.
            MOVE 'Y' TO FOUND.
          ENDIF.
          MOVE-CORRESPONDING D021T TO DTXT.
          MOVE DTXT TO S-TXT.
          APPEND S.
        ENDSELECT.
    ENDCASE.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*     Build the original dynpro component tables.                */
*/*     Table H1 contains 1 entry for each dynpro. H1 contains     */
*/*     the header for the dynpro prefixed by the program name     */
*/*     and dynpro number.                                         */
*/*     By looping round this table we can re-build the F          */
*/*     (Fields) and E (Logic) components. By stripping off the    */
*/*     program name and dynpro number the original tables are     */
*/*     re-created. (Tables F1 and E1 also have a prefix of        */
*/*     Program name and dynpro nr).                               */
*/*     After the original set of tables has been re-created we    */
*/*     use R3 - SYSTEM-CALL (rel 2.2)  to generate the screen     */
*/*     and then get the next entry in table H1 to build the       */
*/*     next screen. For releases 3.0 and higher use generate      */
*/*     dynpro.                                                    */
*/*                                                                */
*/******************************************************************/
FORM RECONSTRUCT_DYNPROS.
  LOOP AT H1.
    CASE MAIN.
      WHEN 'Y'.
*       if h1-name ne repid.
        IF H1-NAME NE R1-NAME.
          MOVE H1-NAME TO OLDNAME.
        ENDIF.
    ENDCASE.
    PERFORM RECONSTRUCT_F.
    PERFORM RECONSTRUCT_E.
    MOVE-CORRESPONDING H1 TO H.
    IF MAIN = 'Y'.
*    move repid to h-prog.
      MOVE R1-NAME TO H-PROG.
*    move repid to dynname.
      MOVE R1-NAME TO DYNNAME.
    ELSE.
      MOVE H1-NAME TO H-PROG.
      MOVE H1-NAME TO DYNNAME.
    ENDIF.
    MOVE H1-NUMBER TO H-DNUM.
    WRITE H1-NUMBER TO DYNNAME+40(4).
    EXPORT DYNPRO H F E M ID DYNNAME.
*   SYSTEM-CALL GENERATE-SCREEN DYNNAME.          "Up to rel 2.2
    GENERATE DYNPRO H F E M ID DYNNAME "R 3.0, 4.0, 4.5
                        MESSAGE DYNPRO_MESSAGE
                        LINE    DYNPRO_LINE
                        WORD    DYNPRO_WORD.
    REFRESH: M, F, E.
    CLEAR: M, H, F, E.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*               Re-build Fields table                            */
*/*                                                                */
*/******************************************************************/
FORM RECONSTRUCT_F.
  LOOP AT F1  WHERE NAME EQ H1-NAME AND
              NUMBER EQ H1-NUMBER.
    MOVE-CORRESPONDING F1 TO F.
    APPEND F.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*               Re-build Logic table                             */
*/*                                                                */
*/******************************************************************/
FORM RECONSTRUCT_E.
  LOOP AT E1  WHERE NAME EQ H1-NAME AND
              NUMBER EQ H1-NUMBER.
    MOVE-CORRESPONDING E1 TO E.
    APPEND E.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*         scan for included files  (Upload)                      */
*/*                                                                */
*/******************************************************************/
FORM SCAN4-INCLUDES.
  IF FUNC = 'D'.    "Downloads - whole table needs to be scanned
    LOOP AT S.
      PERFORM SEARCH-FUNC.
    ENDLOOP.
  ENDIF.
 IF FUNC = 'U'.  "On upload scan line by line as we are re-building abap
    PERFORM SEARCH-FUNC.
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*         scan for text INCLUDE xxxxxxxx                         */
*/*         reject INCLUDE STRUCTURE as structure not a valid      */
*/*         program name                                           */
*/*                                                                */
*/******************************************************************/
FORM SEARCH-FUNC.
  CONDENSE S-TXT.
  SEARCH S-TXT FOR '.INCLUDE .'.
  CASE SY-SUBRC.
    WHEN 0.
      IF S-TXT+8(9) EQ 'STRUCTURE'
      OR S-TXT+8(9) EQ 'structure'
       OR S-TXT+8(6) EQ '<ICON>'       "rel 3.0c 3.0d
       OR S-TXT+8(6) EQ '<icon>'
       OR S-TXT+8(6) EQ '<type>'
       OR S-TXT+8(6) EQ '<TYPE>'
       OR S-TXT+8(9) EQ '<methods>'
       OR S-TXT+8(9) EQ '<METHODS>'.
        EXIT.
      ENDIF.
    IF SY-FDPOS EQ 0.  "INCLUDE must be in pos 1 (by reason of condense)
        PERFORM VALIDATE_INCLUDE.
      ELSE.
        EXIT.
      ENDIF.
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*  Validate INCLUDES                   .                         */
*/*                                                                */
*/******************************************************************/
FORM VALIDATE_INCLUDE.
  SEARCH S-TXT FOR '...' STARTING AT 9 ENDING AT 39.
  CASE SY-SUBRC.
    WHEN 0.
    WHEN OTHERS.
      SEARCH S-TXT FOR '. .' STARTING AT 9 ENDING AT 38.
      IF SY-SUBRC NE 0.
        EXIT.
      ENDIF.
  ENDCASE.
  IX = SY-FDPOS.
  ASSIGN S-TXT+8(IX) TO <F>.
*   Now check for Include Mask   for example if include mask was set to
*   Z* then only include programs whose first letter starts with a Z.
*
*   1) get length of the INCLUDE program name. Must be less than or
*      equal 40.
*   2) Compare it with the Include mask.
*   3) If Ok add include program name to include table
* clear i_include.
* move <f> to i_include-name.
  CLEAR I_INCL.
  SEARCH IMASK FOR '.*.'.
  IF SY-SUBRC = 0.
    CONDENSE IMASK.
  ENDIF.
  IF ( <F> CP IMASK  OR  IMASK = ' ' ).
    READ TABLE I_INCL WITH KEY = <F>.
    IF SY-SUBRC NE 0.
      MOVE <F> TO I_INCL-NAME.
*   move 1 to i_include-count.
*   collect i_include.
      APPEND I_INCL.
    ENDIF.
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Download table S.                                     */
*/*                                                                */
*/******************************************************************/
FORM DOWNLOAD_DATA.
  CLEAR TXLINE.
  WRITE 'Downloading ' TO TXLINE.
  WRITE R1-NAME TO TXLINE+12.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
*         PERCENTAGE = 0
            TEXT       = TXLINE
       EXCEPTIONS
            OTHERS     = 1.
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME = FN3
            FILETYPE = 'ASC'
       TABLES
            DATA_TAB = S.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Download Binary files H1                              */
*/*                                                                */
*/******************************************************************/
FORM DOWNLOAD_BIN_H1.
  DESCRIBE FIELD H1 LENGTH J.
  DESCRIBE TABLE H1 LINES I.
  NR_OF_BYTES = I * J.
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME     = FN1
            FILETYPE     = 'BIN'
            BIN_FILESIZE = NR_OF_BYTES
       IMPORTING
            FILELENGTH   = FILESIZE
       TABLES
            DATA_TAB     = H1.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Download Binary files F1                              */
*/*                                                                */
*/******************************************************************/
FORM DOWNLOAD_BIN_F1.
  DESCRIBE FIELD F1 LENGTH J.
  DESCRIBE TABLE F1 LINES I.
  NR_OF_BYTES = I * J.
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME     = FN2
            FILETYPE     = 'BIN'
            BIN_FILESIZE = NR_OF_BYTES
       IMPORTING
            FILELENGTH   = FILESIZE
       TABLES
            DATA_TAB     = F1.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Upload data from file .EEE                            */
*/*                                                                */
*/******************************************************************/
FORM UPLOAD_EEE.
  CLEAR TXLINE.
  WRITE 'Uploading ' TO TXLINE.
  WRITE R1-NAME TO TXLINE+10.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
*         PERCENTAGE = 0
            TEXT       = TXLINE
       EXCEPTIONS
            OTHERS     = 1.
  MOVE 'Y' TO FIRST-TIME.
  CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME   = FN3
            FILETYPE   = 'ASC'
       IMPORTING
            FILELENGTH = NR_OF_BYTES
       TABLES
            DATA_TAB   = S1.
  LOOP AT S1.
    IF S1-TXT(4) = '????'.
      MOVE S1-TXT(8) TO NEW-FUNC.
      IF FIRST-TIME = 'Y'.
        MOVE S1-TXT(8) TO OLD-FUNC.
        MOVE 'N' TO FIRST-TIME.
      ELSE.
        PERFORM STORE_COMPONENT.
        MOVE NEW-FUNC TO OLD-FUNC.
      ENDIF.
    ENDIF.
    IF S1-TXT(4) NE '????'.
      PERFORM REBUILD-COMPONENT.
    ENDIF.
  ENDLOOP.
  PERFORM STORE_COMPONENT.         "last component still to be processed
  PERFORM REBUILD-CUA.                 "re-build CUA, statuses, pfk etc
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Upload Dynpro headers (HHH) and fields (FFF)          */
*/*          titles and dynpro logic is contained in file .EEE     */
*/*          and has already been processed.                       */
*/*                                                                */
*/******************************************************************/
FORM UPLOAD_HHH.
  CASE REL3.
    WHEN 'X'.
      CALL FUNCTION 'WS_UPLOAD'
           EXPORTING
                FILENAME   = FN1
                FILETYPE   = 'BIN'
           IMPORTING
                FILELENGTH = NR_OF_BYTES
           TABLES
                DATA_TAB   = H2.
      LOOP AT H2.
        MOVE H2-CNAME TO H1-NAME.
        MOVE H2-CNUM  TO H1-NUMBER.
        MOVE H2-NNAME TO H1-PROG.
        MOVE H2-NNUM  TO H1-DNUM.
        MOVE H2-CTIM TO H1-TGEN.
        WRITE '19' TO H1-DGEN(2).
        WRITE H2-CDAT TO H1-DGEN+2(6).
        WRITE H2-FILL TO H1+88(39).
        APPEND H1.
      ENDLOOP.
    WHEN OTHERS.
      CALL FUNCTION 'WS_UPLOAD'
           EXPORTING
                FILENAME   = FN1
                FILETYPE   = 'BIN'
           IMPORTING
                FILELENGTH = NR_OF_BYTES
           TABLES
                DATA_TAB   = H1.
  ENDCASE.
  LOOP AT H1.
    MOVE H1-NAME TO T-NAME.
    MOVE H1-NUMBER TO T-NUMBER.
    APPEND T.
  ENDLOOP.
ENDFORM.
Back to top
View user's profile Send private message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Sat Sep 22, 2007 6:05 pm    Post subject: Reply with quote

... and continue ...
Code:
*/******************************************************************/
*/*                                                                */
*/*           Upload Binary file F1 - Dynpro fields                */
*/*                                                                */
*/******************************************************************/
FORM UPLOAD_FFF.
  CASE REL3.
    WHEN 'X'.
      CALL FUNCTION 'WS_UPLOAD'
           EXPORTING
                FILENAME   = FN2
                FILETYPE   = 'BIN'
           IMPORTING
                FILELENGTH = NR_OF_BYTES
           TABLES
                DATA_TAB   = F2.
      LOOP AT F2.
        OLD_F1 = F2.
        APPEND OLD_F1.
      ENDLOOP.
      LOOP AT OLD_F1.
        MOVE-CORRESPONDING OLD_F1 TO F1.
        APPEND F1.
      ENDLOOP.
    WHEN OTHERS.
      CALL FUNCTION 'WS_UPLOAD'
           EXPORTING
                FILENAME   = FN2
                FILETYPE   = 'BIN'
           IMPORTING
                FILELENGTH = NR_OF_BYTES
           TABLES
                DATA_TAB   = F1.
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*  Re-construct data from file .EEE                              */
*/*                                                                */
*/******************************************************************/
FORM REBUILD-COMPONENT.
  CASE OLD-FUNC.
    WHEN '????LOGC'.                   "Dynpro LOGIC.
      CASE REL3.
        WHEN 'X'.
          SHIFT S1-TXT+8 RIGHT BY 32 PLACES.
      ENDCASE.
      MOVE S1-TXT TO E1.
      APPEND E1.
*/******************************************************************/
*/*                                                                */
*/*         Load ABAP Source code, CUA, pfkeys etc to int tables   */
*/*                                                                */
*/******************************************************************/
    WHEN '????SRCE'.
      MOVE S1-TXT TO S-TXT.
      APPEND S.
      CASE INCLUDES.                   "Included file wanted
        WHEN 'Y'.
          PERFORM SCAN4-INCLUDES.
      ENDCASE.
* if restoring / uploading rel 3.1 or lower different cua tables
* are used. At generate CUA time these will be converted by the
* system to rel 4.0
*
    WHEN '????STAT'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_STA.
          APPEND OLD_STA.
        WHEN SPACE.
          MOVE S1-TXT TO STA.
          APPEND STA.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????FUNC'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_FUN.
          APPEND OLD_FUN.
        WHEN SPACE.
          MOVE S1-TXT TO FUN.
          APPEND FUN.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????MEN1'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_MEN.
          APPEND OLD_MEN.
        WHEN SPACE.
          MOVE S1-TXT TO MEN.
          APPEND MEN.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????MTX1'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_MTX.
          APPEND OLD_MTX.
        WHEN SPACE.
          MOVE S1-TXT TO MTX.
          APPEND MTX.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????ACTN'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_ACT.
          APPEND OLD_ACT.
        WHEN SPACE.
          MOVE S1-TXT TO ACT.
          APPEND ACT.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????BUTN'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_BUT.
          APPEND OLD_BUT.
        WHEN SPACE.
          MOVE S1-TXT TO BUT.
          APPEND BUT.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????PFKY'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_PFK.
          APPEND OLD_PFK.
        WHEN SPACE.
          MOVE S1-TXT TO PFK.
          APPEND PFK.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????SETS'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_SET.
          APPEND OLD_SET.
        WHEN SPACE.
          MOVE S1-TXT TO SET.
          APPEND SET.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????DOCN'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_DOC.
          APPEND OLD_DOC.
        WHEN SPACE.
          MOVE S1-TXT TO DOC.
          APPEND DOC.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????TITL'.
      CASE REL3.
        WHEN 'X'.
          MOVE S1-TXT TO OLD_TIT.
          APPEND OLD_TIT.
          MOVE 'Y' TO CUA-FLAG.
        WHEN SPACE.
          MOVE S1-TXT TO TIT.
          APPEND TIT.
      ENDCASE.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????LIST'.
      MOVE S1-TXT TO LAST.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????INCL'.
      MOVE S1-TXT TO INC.
      APPEND INC.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????STXT'.
      MOVE S1-TXT TO STX.
      APPEND STX.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????FTXT'.
      MOVE S1-TXT TO FTX.
      APPEND FTX.
      MOVE 'Y' TO CUA-FLAG.
* next 5 tables (ATT FDN MDN SYM and FIN) are rel 3.0 specific
    WHEN '????VATT'.
      MOVE S1-TXT TO ATT.
      APPEND ATT.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????VFDN'.
      MOVE S1-TXT TO FDN.
      APPEND FDN.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????VMDN'.
      MOVE S1-TXT TO MDN.
      APPEND MDN.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????VSYM'.
      MOVE S1-TXT TO SYM.
      APPEND SYM.
      MOVE 'Y' TO CUA-FLAG.
    WHEN '????VFIN'.
      MOVE S1-TXT TO FIN.
      APPEND FIN.
      MOVE 'Y' TO CUA-FLAG.
*/******************************************************************/
*/*                                                                */
*/*         Load ABAP Text elements (Max length 132 - the system   */
*/*         allows 255 but this program handles 132 only)          */
*/*                                                                */
*/******************************************************************/
    WHEN '????TEXT'.
      MOVE S1-TXT TO U-TXT.
      APPEND U.
*/******************************************************************/
*/*                                                                */
*/*         Update ABAP's Attributes.                              */
*/*                                                                */
*/*   Ensure Attribute updated before dynpro text or language      */
*/*   may be wrong. If language field is blank then default        */
*/*   (logon) language will be used                                */
*/*                                                                */
*/******************************************************************/
    WHEN '????ATTR'.
      CASE REL3.                       "uploading rel 3
        WHEN 'X'.
          SHIFT S1-TXT+8 RIGHT BY 32 PLACES.
        WHEN OTHERS.
      ENDCASE.
      MOVE S1-TXT TO DIR.
      MOVE SY-MANDT TO NUM.
      MOVE NUM TO DIR-RMAND.           "Ensure uploaded to cor. client
      CASE MAIN.
        WHEN 'Y'.
*         if repid ne dir-name.
          IF R1-NAME NE DIR-NAME.
            MOVE DIR-NAME TO OLDNAME.
          ENDIF.
*         move repid to dir-name.
          MOVE R1-NAME TO DIR-NAME.
      ENDCASE.
      PERFORM UPDATE_TRDIR.
    WHEN '????DTIT'.                   "Dynpro title
      CASE REL3.                       "uploading rel 3
        WHEN 'X'.
          SHIFT S1-TXT+8 RIGHT BY 32 PLACES.
        WHEN OTHERS.
      ENDCASE.
      CLEAR TRDIR.
      SELECT SINGLE * FROM TRDIR WHERE NAME EQ R-NAME.
      CASE MAIN.
        WHEN 'Y'.
*         write repid to d020t-prog.
          WRITE R1-NAME TO D020T-PROG.
        WHEN OTHERS.
          IF REL3 = ' '.
            WRITE S1-TXT(40) TO D020T-PROG.
          ELSE.
            WRITE S1-TXT(8) TO D020T-PROG.
          ENDIF.
      ENDCASE.
      WRITE S1-TXT+40(4) TO D020T-DYNR.
      IF TRDIR-RLOAD EQ SPACE.
        MOVE SY-LANGU TO TRDIR-RLOAD.
      ENDIF.
      MOVE TRDIR-RLOAD TO D020T-LANG.
      WRITE S1-TXT+44(60) TO D020T-DTXT.
      MODIFY D020T.
    WHEN '????DTXT'.
      CASE REL3.                       "uploading rel 3
        WHEN 'X'.
          SHIFT S1-TXT+8 RIGHT BY 32 PLACES.
        WHEN OTHERS.
      ENDCASE.
      MOVE S1-TXT TO DTXT.
      MOVE-CORRESPONDING DTXT TO D021T.
      CASE MAIN.
        WHEN 'Y'.
*         write repid to d021t-prog.
          WRITE R1-NAME TO D021T-PROG.
        WHEN OTHERS.
          IF REL3 =  'X'.
            WRITE S1-TXT(8) TO D021T-PROG.
          ELSE.
            WRITE S1-TXT(40) TO D021T-PROG.
          ENDIF.
      ENDCASE.
      MODIFY D021T.
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*  Store re-constructed component of ABAP back on to the library */
*/*  Note that any attribute found has already been stored back    */
*/*  on TRDIR.                                                     */
*/*                                                                */
*/******************************************************************/
FORM STORE_COMPONENT.
  CASE OLD-FUNC.                       "ABAP source.
*/******************************************************************/
*/*                                                                */
*/*     Store ABAP source code back into the library               */
*/*                                                                */
*/******************************************************************/
    WHEN '????SRCE'.
      CASE MAIN.
        WHEN 'Y'.
*           insert report repid from s.
          INSERT REPORT R1-NAME FROM S.
        WHEN OTHERS.
          INSERT REPORT R-NAME FROM S.
      ENDCASE.
      REFRESH S.
*/******************************************************************/
*/*                                                                */
*/*     Store ABAP Text Elements Back into Library                 */
*/*                                                                */
*/******************************************************************/
    WHEN '????TEXT'.
      CASE MAIN.
        WHEN 'Y'.
*           insert textpool repid from u language  sy-langu.
          INSERT TEXTPOOL R1-NAME FROM U LANGUAGE  SY-LANGU.
        WHEN OTHERS.
          INSERT TEXTPOOL R-NAME FROM U LANGUAGE  SY-LANGU.
      ENDCASE.
      REFRESH U.
  ENDCASE.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*             Update Attributes                                  */
*/*                                                                */
*/******************************************************************/
FORM UPDATE_TRDIR.
  MOVE-CORRESPONDING DIR TO TRDIR.
  MODIFY TRDIR.
  SELECT SINGLE * FROM TADIR
    WHERE PGMID = 'R3TR'
     AND OBJECT = 'PROG'
     AND OBJ_NAME = TRDIR-NAME.
  IF SY-SUBRC NE 0.
    MOVE 'R3TR' TO TADIR-PGMID.
    MOVE 'PROG' TO TADIR-OBJECT.
    MOVE TRDIR-NAME TO TADIR-OBJ_NAME.
    MOVE '$TMP' TO TADIR-DEVCLASS.
    MOVE 'L' TO TADIR-CPROJECT.
    MOVE SY-LANGU TO TADIR-MASTERLANG.
    MOVE SY-SYSID TO TADIR-SRCSYSTEM.
    INSERT TADIR.
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*   re-build the  CUA, update the title table (if any entries   */
*/*   exist) and update EUDB                                       */
*/*   Finally generate the CUA                                     */
*/*                                                                */
*/******************************************************************/
FORM REBUILD-CUA.
  IF CUA-FLAG = 'Y'.
    PERFORM LOAD_CUA USING R-NAME SY-LANGU.
    MOVE SY-LANGU TO TITLE-DDLANGUAGE.
    MOVE R-NAME TO TITLE-PROGNAME.
    CASE REL3.
      WHEN 'X'.
        LOOP AT TIT.
          MOVE-CORRESPONDING TIT TO TITLE.
          MODIFY TITLE.
        ENDLOOP.
    ENDCASE.
    MOVE 'N' TO CUA-FLAG.
  ENDIF.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*          Load the CUA                                          */
*/*                                                                */
*/******************************************************************/
FORM LOAD_CUA USING PROGRAM LANGUAGE.
  EU_KEY-NAME  = PROGRAM.
  EU_KEY-SPRSL = LANGUAGE.
  EU_KEY-SPRSL = 'D'.
  DELETE FROM EUDB WHERE RELID = 'CU'
                       AND   NAME  = PROGRAM.
* create new EUDB table entry
  CLEAR EUDB.
  EUDB-LANGU = 'D'.
  EUDB-AUTOR = SY-UNAME.
  EUDB-DATUM = SY-DATUM.
  EUDB-ZEIT  = SY-UZEIT.
  EUDB-RELID = 'CU'.
  EUDB-SRTF2 = 0.
  EUDB-NAME  = R-NAME.
  EUDB-VAUTOR = SY-UNAME.
  EUDB-VDATUM = SY-DATUM.
  EUDB-VZEIT  = SY-UZEIT.
* insert into table
  INSERT EUDB.
  CASE REL3.
    WHEN 'X'.
      PERFORM TEXTNR.
      SORT OLD_MTX.
* EXPORT STA STX FUN MEN MTX ACT BUT PFK SET INC LAST DOC    "rel 2.2
      EXPORT STA  FROM OLD_STA
             FUN  FROM OLD_FUN
             MEN  FROM OLD_MEN
             MTX  FROM OLD_MTX
             ACT  FROM OLD_ACT
             BUT  FROM OLD_BUT
             PFK  FROM OLD_PFK
             SET  FROM OLD_SET
             DOC  FROM OLD_DOC
             TIT  FROM OLD_TIT
              STX
              LAST
              INC
              ATT FDN MDN SYM FIN      "rel 3.0
             TO DATABASE EUDB(CU) ID EU_KEY.
*
* REL 4.0 converts old CUA (3.1 and lower) to rel 4.
*
    WHEN SPACE.
      SORT MTX.
      EXPORT STA FUN MEN MTX ACT BUT PFK SET DOC
             TO DATABASE EUDB(CU) ID EU_KEY.
  ENDCASE.
*
* only entry with sprsl = D allowed
*
  DELETE FROM EUDB WHERE RELID = 'CU'
       AND NAME = PROGRAM
       AND SPRSL  = ' '.
*
*
* set release in EUDB to ver 4.0 if appropriate. Rel 3.1G and earlier
* will be handled and converted by the system
*
  IF REL3 = ' '.
    SELECT * FROM EUDB WHERE RELID = 'CU'
         AND NAME = PROGRAM
         AND SPRSL  = 'D'.
      MOVE '000040' TO EUDB-VERSION.
      UPDATE EUDB.
      EXIT.
    ENDSELECT.
  ELSE.
    SELECT * FROM EUDB WHERE RELID = 'CU'
         AND NAME = PROGRAM
         AND SPRSL  = 'D'.
      MOVE ' ' TO EUDB-VERSION.
      UPDATE EUDB.
      EXIT.
    ENDSELECT.
  ENDIF.
  LOOP AT FTX.
    MOVE-CORRESPONDING FTX TO RSMPTEXTS.
    CASE MAIN.
      WHEN 'Y'.
*  move repid to rsmptexts-progname.
        MOVE R1-NAME TO RSMPTEXTS-PROGNAME.
    ENDCASE.
    MODIFY RSMPTEXTS.
  ENDLOOP.
*   call transaction se41 to generate the user interface
  REFRESH T_BDC_TAB.
  PERFORM BLD_DYNPRO USING:
         'X' 'SAPMSMPE' '100',
         ' ' 'RSMPE-PROGRAM' PROGRAM,
         ' ' 'RSMPE-B_STATEXT' 'X',
         ' ' 'BDC_OKCODE ' 'CHNG'.
  PERFORM BLD_DYNPRO USING:
         'X' 'SAPMSSY0' '120',
         ' ' 'BDC_OKCODE ' 'GENR'.
  PERFORM BLD_DYNPRO USING:
         'X' 'SAPMSSY0' '120',
         ' ' 'BDC_OKCODE ' '/3'.
  PERFORM BLD_DYNPRO USING:
         'X' 'SAPMSMPE' '100',
         ' ' 'RSMPE-PROGRAM' PROGRAM,
         ' ' 'RSMPE-B_STATEXT' 'X',
         ' ' 'BDC_OKCODE ' '/3'.
  CALL TRANSACTION 'SE41'
               USING T_BDC_TAB
               MODE 'E'
               UPDATE 'S'
               MESSAGES INTO T_MESSTAB.
  CASE SY-SUBRC.
    WHEN 0.
    WHEN OTHERS.
     WRITE: / 'Warning ---CUA for', PROGRAM, 'incorrect. RC=', SY-SUBRC.
  ENDCASE.
  MOVE 'N' TO CUA-FLAG.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*           Handle CUA texts                                     */
*/*                                                                */
*/******************************************************************/
FORM TEXTNR.
  DATA: NO TYPE I.
* rel 3.1 and earlier
  LOOP AT OLD_MTX.
    CHECK OLD_MTX-TEXTNR NE OLD_MTX-CODE.
    OLD_MTX-TEXTNR = OLD_MTX-CODE.
    MODIFY OLD_MTX.
  ENDLOOP.
  LOOP AT OLD_FUN.
    CHECK OLD_FUN-TEXTNR = SPACE.
    IF OLD_FUN-NO = '01' AND OLD_FUN-CODE CN '>0123456789'.
      OLD_FUN-TEXTNR = OLD_FUN-CODE.
    ELSE.
      NO = LAST-TEXTNR + 1.
      UNPACK NO TO LAST-TEXTNR.
      OLD_FUN-TEXTNR = LAST-TEXTNR.
      OLD_FUN-TEXTNR(1) = '>'.
    ENDIF.
    MODIFY OLD_FUN.
  ENDLOOP.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*           Build data for BDC table (Call transaction SE41)     */
*/*                                                                */
*/******************************************************************/
FORM BLD_DYNPRO USING PU_DYNBEGIN TYPE ANY
                       PU_NAME     TYPE ANY
                       PU_VALUE    TYPE ANY.
  CLEAR T_BDC_TAB.
  IF PU_DYNBEGIN = 'X'.
    MOVE: PU_DYNBEGIN TO T_BDC_TAB-DYNBEGIN,
          PU_NAME     TO T_BDC_TAB-PROGRAM,
          PU_VALUE    TO T_BDC_TAB-DYNPRO.
  ELSE.
    MOVE: PU_NAME     TO T_BDC_TAB-FNAM,
          PU_VALUE    TO T_BDC_TAB-FVAL.
  ENDIF.
  APPEND T_BDC_TAB.
ENDFORM.
*
*   To get path and file name via F4 or mouse click use a call to
*   Windows via WS_FILENAME_GET.
*   Restriction is that a File must be selected to return any data
*   Program chops off the file name when a path is wanted so the
*   function can also be used to find the path on upload.
*   Any valid file name can then be entered
*
*   Note also that if a mouse click is done on program then the
*   path is copied as well.
*
AT SELECTION-SCREEN
  ON VALUE-REQUEST FOR PATH.
  CLS I_DYNPFIELDS.
  PERFORM QUERY_FILENAME USING T_FILENAME T_MODE.
  MOVE 'PATH' TO I_DYNPFIELDS-FIELDNAME.
  MOVE PATH TO I_DYNPFIELDS-FIELDVALUE.
  MOVE 0 TO I_DYNPFIELDS-STEPL.
  APPEND I_DYNPFIELDS.
  PERFORM UPDATE_SEL_SCREEN.
AT SELECTION-SCREEN
  ON VALUE-REQUEST FOR REPID-LOW.
  PERFORM QUERY_FILENAME USING T_FILENAME T_MODE.
  CLS I_DYNPFIELDS.
  MOVE 'REPID-LOW' TO I_DYNPFIELDS-FIELDNAME.
  MOVE REPID-LOW TO I_DYNPFIELDS-FIELDVALUE.
  MOVE 0 TO I_DYNPFIELDS-STEPL.
  APPEND I_DYNPFIELDS.
  MOVE 'PATH' TO I_DYNPFIELDS-FIELDNAME.
  MOVE PATH TO I_DYNPFIELDS-FIELDVALUE.
  MOVE 0 TO I_DYNPFIELDS-STEPL.
  APPEND I_DYNPFIELDS.
  PERFORM UPDATE_SEL_SCREEN.
AT SELECTION-SCREEN
  ON VALUE-REQUEST FOR REPID-HIGH.
  PERFORM QUERY_FILENAME USING T_FILENAME T_MODE.
  CLS I_DYNPFIELDS.
  MOVE 'REPID-HIGH' TO I_DYNPFIELDS-FIELDNAME.
  MOVE REPID-HIGH TO I_DYNPFIELDS-FIELDVALUE.
  MOVE 0 TO I_DYNPFIELDS-STEPL.
  APPEND I_DYNPFIELDS.
  MOVE 'PATH' TO I_DYNPFIELDS-FIELDNAME.
  MOVE PATH TO I_DYNPFIELDS-FIELDVALUE.
  MOVE 0 TO I_DYNPFIELDS-STEPL.
  APPEND I_DYNPFIELDS.
  PERFORM UPDATE_SEL_SCREEN.
*/******************************************************************/
*/*                                                                */
*/*           Get file names (Windows)                            */
*/*                                                                */
*/******************************************************************/
FORM QUERY_FILENAME USING DEF_PATH LIKE T_FILENAME
                          MODE     TYPE C.
  DATA: TMP_FILENAME LIKE T_FILENAME.
  DATA: TMP_MASK LIKE GLOBAL_FILEMASK_ALL.
  FIELD-SYMBOLS: <TMP_SYM>.
* Build Filter for Fileselector
  IF GLOBAL_FILEMASK_MASK IS INITIAL.
    TMP_MASK = ',*.*,*.*.'.
  ELSE.
    TMP_MASK = ','.
    WRITE GLOBAL_FILEMASK_TEXT TO TMP_MASK+1.
    WRITE ',' TO TMP_MASK+21.
    WRITE GLOBAL_FILEMASK_MASK TO TMP_MASK+22.
    WRITE '.' TO TMP_MASK+42.
    CONDENSE TMP_MASK NO-GAPS.
  ENDIF.
  IF NOT GLOBAL_FILEMASK_ALL IS INITIAL.
    TMP_MASK = GLOBAL_FILEMASK_ALL.
  ENDIF.
  FIELDLN = STRLEN( DEF_PATH ) - 1.
  ASSIGN DEF_PATH+FIELDLN(1) TO <TMP_SYM>.
  IF <TMP_SYM> = '/' OR <TMP_SYM> = '\'.
    CLEAR <TMP_SYM>.
  ENDIF.
  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            DEF_FILENAME     = T_FILENAME
            DEF_PATH         = DEF_PATH
*           MASK             = ',*.*,*.*.'
            MASK             = TMP_MASK
            MODE             = MODE
*           TITLE            = ' '
       IMPORTING
            FILENAME         = TMP_FILENAME
*         RC               =
       EXCEPTIONS
            INV_WINSYS       = 01
            NO_BATCH         = 02
            SELECTION_CANCEL = 03
            SELECTION_ERROR  = 04.
  CASE SY-SUBRC.
    WHEN 3.                            "User has cancelled selection.
      EXIT.
  ENDCASE.
  T_FILENAME = TMP_FILENAME.
* Try and get path name.
  FIELDLN = STRLEN( T_FILENAME ).
  L =  FIELDLN - 1.
  ASSIGN  T_FILENAME+L(1) TO <TMP_SYM>.
  WHILE <TMP_SYM> NE '\'.
    L = L - 1.
    ASSIGN  T_FILENAME+L(1) TO <TMP_SYM>.
  ENDWHILE.
  L = L + 1.
  ASSIGN T_FILENAME(L) TO <TMP_SYM>.
  WRITE <TMP_SYM> TO PATH.
  I = FIELDLN - L - 4.
  SEARCH T_FILENAME FOR ' '.
  ASSIGN T_FILENAME+L(I) TO <TMP_SYM>.
  WRITE <TMP_SYM> TO REPID-LOW.
ENDFORM.
*/******************************************************************/
*/*                                                                */
*/*      Update screen fields with value selected from table       */
*/*                                                                */
*/******************************************************************/
FORM UPDATE_SEL_SCREEN.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
       EXPORTING
            DYNAME                 = SY-CPROG
            DYNUMB                 = SY-DYNNR
       TABLES
            DYNPFIELDS             = I_DYNPFIELDS
       EXCEPTIONS
            INVALID_ABAPWORKAREA   = 1
            INVALID_DYNPROFIELD    = 2
            INVALID_DYNPRONAME     = 3
            INVALID_DYNPROW_NUMMER = 4
            INVALID_REQUEST        = 5
            NO_FIELDDESCRIPTION    = 6
            UNDEFIND_ERROR         = 7
            OTHERS                 = 8.
ENDFORM.
*
*  fix selection so that for example ZAC* chhoses ALL progs
*  starting with ZAC.
*
FORM GET_RANGE_DL.
  SELECT * FROM TRDIR
    APPENDING CORRESPONDING FIELDS OF TABLE I_PROG
    WHERE NAME IN REPID.
  LOOP AT REPID.
    CASE REPID-OPTION.
      WHEN 'BT'.
        SEARCH REPID-HIGH FOR '.*.'.
        IF SY-SUBRC = 0.
          TRANSLATE REPID-HIGH USING '*%'.
        ENDIF.
        IF REPID-SIGN = 'I'.
          SELECT * FROM TRDIR
          APPENDING CORRESPONDING FIELDS OF TABLE I_PROG
          WHERE NAME LIKE REPID-HIGH.
        ENDIF.
    ENDCASE.
  ENDLOOP.
ENDFORM.
* get proper selection range for upload programs
* e.g if you specify Z to ZZJ* you will get ALL
* progs from Z to ZZJ* unlike the SAP BETWEEN clause.
*
FORM GET_RANGE_UL.
  LOOP AT I_PROGT.
    IF I_PROGT-NAME IN REPID.
      I_PROG-NAME = I_PROGT-NAME.
      APPEND I_PROG.
    ENDIF.
  ENDLOOP.
  LOOP AT REPID.
    CASE REPID-OPTION.
      WHEN 'BT'.
        SEARCH REPID-HIGH FOR '.*.'.
        IF SY-SUBRC = 0.
          TRANSLATE REPID-HIGH USING '*%'.
        ENDIF.
    ENDCASE.
  ENDLOOP.
  LOOP AT I_PROGT.
* needs to be done like this owing to way the IN cluse is implemented
    LOOP AT REPID.
      IF REPID-SIGN = 'I'
        AND REPID-OPTION = 'BT'.
        IF I_PROGT-NAME CP REPID-HIGH.
          I_PROG-NAME = I_PROGT-NAME.
          APPEND I_PROG.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDLOOP.
ENDFORM.
*/***************************************************************/
*/*                                                             */
*/* Build DOS batch file to read relevant directory             */
*/* This might not work for W2K as native DOS is not            */
*/* supported as such. The DIR command should work              */
*/* otherwise you will have to modify this code to call a       */
*/* Windows function to get a directory listing.                */
*/*                                                             */
*/***************************************************************/
FORM READ_DOS_DIRECTORY.
  MOVE 'ECHO Reading Disk directory - please wait' TO DOSDIR-TEXT.
  APPEND DOSDIR.
  MOVE 'C:\DIR.$$$' TO UL_FILE.
  MOVE 'C:\ABAP.BAT' TO DL_FILE.
  WRITE 'DIR' TO DOSLINE.
  WRITE PATH TO DOSLINE+4.
  WRITE '/B  > C:\DIR.$$$' TO DOSLINE+50.
  CONDENSE DOSLINE.
  MOVE DOSLINE TO DOSDIR-TEXT.
  APPEND DOSDIR.
  MOVE 'EXIT' TO DOSDIR-TEXT.
  APPEND DOSDIR.
*/***************************************************************/
*/*                                                             */
*/* Download DOS batch file                                     */
*/*                                                             */
*/***************************************************************/
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME = DL_FILE
            FILETYPE = 'DAT'
       TABLES
            DATA_TAB = DOSDIR.
*/***************************************************************/
*/*                                                             */
*/* Execute it and pipe output to DIR.$$$ on C drive            */
*/*                                                             */
*/***************************************************************/
  CALL FUNCTION 'WS_EXECUTE'
       EXPORTING
            COMMANDLINE = DL_FILE
            INFORM      = 'X'          "// synchronous
            PROGRAM     = 'C:\ABAP.BAT'.
  REFRESH DOSDIR.
*/***************************************************************/
*/*                                                             */
*/* Upload directory listing to SAP                             */
*/*                                                             */
*/***************************************************************/
  CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME = UL_FILE
            FILETYPE = 'DAT'
       TABLES
            DATA_TAB = DOSDIR.
  LOOP AT DOSDIR.
    SEARCH DOSDIR-TEXT FOR '.EEE '.
    CASE SY-SUBRC.
      WHEN 0.
        ASSIGN DOSDIR-TEXT(SY-FDPOS) TO <F>.
        I_PROGT-NAME = <F>.
        APPEND I_PROGT.
      WHEN OTHERS.
    ENDCASE.
  ENDLOOP.
ENDFORM.
*/***************************************************************/
*/*                                                             */
*/* Get Include programs for upload via function module.        */
*/*                                                             */
*/***************************************************************/
FORM GET_INCLUDES_DL.
  REFRESH I_INCL.
  LOOP AT I_PROG.
    CALL FUNCTION 'RS_GET_ALL_INCLUDES'
         EXPORTING
              PROGRAM             = I_PROG-NAME
*         WITH_INACTIVE_INCLS = ' '
         TABLES
              INCLUDETAB          =  I_INCL
         EXCEPTIONS
              NOT_EXISTENT        = 1
              NO_PROGRAM          = 2
              OTHERS              = 3.
*
* if function pool (SAPLxxxx) then always need the
* SAP generated include LxxxUXX  as well.
*
    IF I_PROG(4) = 'SAPL'.             "Function Pool
      ASSIGN I_PROG-NAME+3(37) TO <F>.
      CONCATENATE <F> 'UXX' INTO I_INCL-NAME.
      APPEND I_INCL.
    ENDIF.
    LOOP AT I_INCL.
      SEARCH IMASK FOR '.*.'.
      IF SY-SUBRC = 0.
        CONDENSE IMASK.
      ENDIF.
      IF ( I_INCL-NAME CP IMASK OR IMASK EQ ' ' ).
        READ TABLE I_INCLUDE WITH KEY NAME = I_INCL-NAME.
        IF SY-SUBRC NE 0.
          MOVE I_INCL-NAME TO I_INCLUDE-NAME.
          APPEND I_INCLUDE.
        ENDIF.
      ENDIF.
    ENDLOOP.
    REFRESH I_INCL.
  ENDLOOP.
ENDFORM.
*/***************************************************************/
*/*                                                             */
*/* Handle Include programs (download)                          */
*/*                                                             */
*/***************************************************************/
FORM PROCESS_INCLUDES_DL.
  LOOP AT I_INCLUDE.     "Now handle all included programs found
*
* check included program has not already been down / up loaded
* Check on download if INCLUDE program exists in Library
* check on UPLOAD if INCLUDE exists in the directory
*
    READ TABLE I_PROG WITH KEY NAME = I_INCLUDE-NAME.
    CASE SY-SUBRC.
      WHEN 4.                          "Program not yet handled.
        SELECT SINGLE * FROM TRDIR
         WHERE NAME = I_INCLUDE-NAME.
        IF SY-SUBRC = 0.
          MOVE I_INCLUDE-NAME TO R1-NAME.
          MOVE 'Y' TO I_INCLUDE-HANDLED.
          MODIFY I_INCLUDE.
          APPEND R1.
        ENDIF.
    ENDCASE.
    DESCRIBE TABLE R1 LINES I.
    WHILE I NE 0.                                           "
      PERFORM EXECUTE-FUNCTION.
    ENDWHILE.
    REFRESH R1.
  ENDLOOP.
ENDFORM.
*
*   Look for Includes in uploaded programs or on download
*   when handling INCLUDE programs themselves
*
FORM PROCESS_INCLUDES_UL.
*
  LOOP AT I_INCL.
* is included file in the directory
* The mask (e..g Z*) will have already been checked by the scan
* process.
    IF FUNC = 'D'.
      SELECT SINGLE * FROM TRDIR WHERE NAME = I_INCL-NAME.
    ENDIF.
    IF FUNC = 'U'.
      READ TABLE I_PROGT WITH KEY NAME = I_INCL-NAME.
    ENDIF.
    IF SY-SUBRC = 0.
*  check if the include has already been processed
      READ TABLE I_INCLUDE WITH KEY NAME = I_INCL-NAME.
      IF SY-SUBRC = 4.
        MOVE I_INCL-NAME TO I_INCLUDE-NAME.
        MOVE ' ' TO I_INCLUDE-HANDLED.
        APPEND I_INCLUDE.
      ENDIF.
    ENDIF.
  ENDLOOP.
  REFRESH I_INCL.
ENDFORM.
*
*  scan through included table
*
FORM LOOP_THROUGH.
  LOOP AT I_INCLUDE      "Now handle all included programs found
        WHERE HANDLED = ' '.
    MOVE I_INCLUDE-NAME TO R1-NAME.
    APPEND R1.
    MOVE 'Y' TO I_INCLUDE-HANDLED.
    MODIFY I_INCLUDE.
    DESCRIBE TABLE R1 LINES I.
    WHILE I NE 0.                                           "
      PERFORM EXECUTE-FUNCTION.
    ENDWHILE.
    REFRESH R1.
  ENDLOOP.
ENDFORM.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP Dictionary -> Migration All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.