Taking good care of Z Function Modules

[former_member182779]

I always wanted to this code, be able to download and upload function modules is really useful. Specially when you have to spend a lot of days developing one and you want to get it home and load into your MiniSap or MiniWas.

I'm aware that some blogs already exists covering this functionallity and also a SourceForge project. Take this as my own personnal aproach. I spend the last two days developing it and for me it was exactly what I needed.

Again, you can see that I love simple interfaces.



Maybe the source code is not the best for beginners, but I'm sure it going to be a great tool for them.

ZFM_BACKUP
REPORT Z_DUMMY_ATG NO STANDARD PAGE HEADING MESSAGE-ID SAPLWOSA.*=======================================================================* Variables*=======================================================================DATA: ONE  TYPE PCFILE-DRIVE,      TWO  TYPE PCFILE-PATH,      LONG TYPE I,      FLAG TYPE C,      FILEPATH(128) TYPE C,      FILE_TAB TYPE STRING,      FUNCNAM TYPE RS38L-NAME,      FUNCTION_NAME TYPE STRING,      W_TABIX TYPE C,      COUNTER TYPE I,      OBJECT_NAME LIKE E071-OBJ_NAME.*=======================================================================* Internal Tables*=======================================================================TYPES: BEGIN OF TYPE_FUPARAREF,       FUNCNAME(30) TYPE C,       PARAMETER(30) TYPE C,       PARAMTYPE(1) TYPE C,       STRUCTURE(132) TYPE C,       DEFAULTVAL(21) TYPE C,       REFERENCE(1) TYPE C,       PPOSITION(1) TYPE C,       OPTIONAL(1) TYPE C,       TYPE(1) TYPE C,       CLASS(1) TYPE C,       REF_CLASS(1) TYPE C,       LINE_OF(1) TYPE C,       TABLE_OF(1) TYPE C,       RESFLAG1(1) TYPE C,       RESFLAG2(1) TYPE C,       RESFLAG3(1) TYPE C,       RESFLAG4(1) TYPE C,       RESFLAG5(1) TYPE C,       END OF TYPE_FUPARAREF.DATA: T_PTFDIR TYPE STANDARD TABLE OF TFDIR WITH HEADER LINE,      T_UINCL TYPE STANDARD TABLE OF ABAPTXT255 WITH HEADER LINE,      T_PFUPARAREF TYPE STANDARD TABLE OF SFUPARAREF WITH HEADER LINE,      T_FUPARAREF TYPE STANDARD TABLE OF FUPARAREF WITH HEADER LINE,      T_PTFTIT TYPE STANDARD TABLE OF TFTIT WITH HEADER LINE,      T_PFUNCT TYPE STANDARD TABLE OF FUNCT WITH HEADER LINE,      T_PENLFDIR TYPE STANDARD TABLE OF ENLFDIR WITH HEADER LINE,      T_PTRDIR TYPE STANDARD TABLE OF TRDIR WITH HEADER LINE,      DATA_FUPARAREF TYPE STANDARD TABLE OF TYPE_FUPARAREF WITH HEADER LINE,      ISOURCE TYPE RSWSOURCET.DATA: EXCEPTION_LIST TYPE STANDARD TABLE OF RSEXC WITH HEADER LINE,      EXPORT_PARAMETER TYPE STANDARD TABLE OF RSEXP WITH HEADER LINE,      IMPORT_PARAMETER TYPE STANDARD TABLE OF RSIMP WITH HEADER LINE,      PARAMETER_DOCU TYPE STANDARD TABLE OF RSFDO WITH HEADER LINE,      TABLES_PARAMETER TYPE STANDARD TABLE OF RSTBL WITH HEADER LINE,      CHANGING_PARAMETER TYPE STANDARD TABLE OF RSCHA WITH HEADER LINE.*=======================================================================* Selection screen*=======================================================================SELECTION-SCREEN BEGIN OF BLOCK DATA WITH FRAME TITLE TEXT-T01.PARAMETERS:    FUNCNAME TYPE RS38L-NAME,    FUNCTION(1) TYPE C OBLIGATORY,    LISTNAME LIKE RLGRAP-FILENAME.SELECTION-SCREEN END OF BLOCK DATA.*=======================================================================* At Selection screen*=======================================================================AT SELECTION-SCREEN ON VALUE-REQUEST FOR LISTNAME.  PERFORM GET_FILENAME CHANGING LISTNAME.*=======================================================================* Start-of-selection*=======================================================================START-OF-SELECTION.  CLEAR FLAG.  PERFORM LOAD_DATA USING FUNCNAME.  IF FUNCTION EQ 'D'.    PERFORM VERIFY_TABLE USING FUNCNAME CHANGING FLAG.    IF FLAG NE 'X'.    ELSE.      MESSAGE S000 WITH 'The proposed function doesn''t exist.'.      EXIT.    ENDIF.    PERFORM GENERATE_FUNCTION_DOWNLOAD USING FUNCNAME.    CONCATENATE FUNCNAME '_PENLFDIR.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PENLFDIR USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PFUPARAREF.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PFUPARAREF USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_UINCL.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_UINCL USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTFTIT.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PTFTIT USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PFUNCT.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PFUNCT USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTFDIR.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PTFDIR USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTRDIR.txt' INTO FUNCTION_NAME.    PERFORM DOWNLOAD_FUNCTION TABLES T_PTRDIR USING FUNCTION_NAME.  ELSE.    CONCATENATE FUNCNAME '_PENLFDIR.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_PENLFDIR USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PFUPARAREF.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES DATA_FUPARAREF USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_UINCL.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_UINCL USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTFTIT.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_PTFTIT USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PFUNCT.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_PFUNCT USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTFDIR.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_PTFDIR USING FUNCTION_NAME.    CONCATENATE FUNCNAME '_PTRDIR.txt' INTO FUNCTION_NAME.    PERFORM UPLOAD_FUNCTION TABLES T_PTRDIR USING FUNCTION_NAME.    PERFORM GENERATE_FUNCTION_UPLOAD USING FUNCNAME.  ENDIF.*---------------------------------------------------------------------**       FORM GET_FILENAME                                             **---------------------------------------------------------------------**       Directory of files.*---------------------------------------------------------------------*FORM GET_FILENAME CHANGING LISTNAME.  CALL FUNCTION 'WS_FILENAME_GET'    EXPORTING      DEF_FILENAME     = LISTNAME      DEF_PATH         = 'C:\downloads\list'      MASK             = ',*.*,*.*. '      MODE             = 'S'      TITLE            = 'Save as'    IMPORTING      FILENAME         = LISTNAME    EXCEPTIONS      INV_WINSYS       = 1      NO_BATCH         = 2      SELECTION_CANCEL = 3      SELECTION_ERROR  = 4      OTHERS           = 5.ENDFORM.                    "GET_FILENAME*---------------------------------------------------------------------**       FORM LOAD_DATA                                                **---------------------------------------------------------------------**       Specifies Path and function name.*---------------------------------------------------------------------*FORM LOAD_DATA USING MY_TAB.  DATA: W_FILE LIKE PCFILE-PATH.  W_FILE = LISTNAME.  CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'    EXPORTING      COMPLETE_FILENAME = W_FILE    IMPORTING      DRIVE             = ONE      PATH              = TWO    EXCEPTIONS      INVALID_DRIVE     = 1      INVALID_EXTENSION = 2      INVALID_NAME      = 3      INVALID_PATH      = 4      OTHERS            = 5.  CONCATENATE ONE ':' TWO INTO FILEPATH.  CONCATENATE FILEPATH MY_TAB '.txt' INTO FILE_TAB.ENDFORM.                    "LOAD_DATA*&--------------------------------------------------------------------**&      Form  GENERATE_FUNCTION_DOWNLOAD*&--------------------------------------------------------------------**       Generate the function tables.*---------------------------------------------------------------------*FORM GENERATE_FUNCTION_DOWNLOAD USING FUNCNAME.  CALL FUNCTION 'FUNC_GET_OBJECT'    EXPORTING      FUNCNAME           = FUNCNAME      R3STATE            = 'A'    TABLES      PTFDIR             = T_PTFDIR      PTFTIT             = T_PTFTIT      PFUNCT             = T_PFUNCT      PENLFDIR           = T_PENLFDIR      PTRDIR             = T_PTRDIR      PFUPARAREF         = T_PFUPARAREF      UINCL              = T_UINCL    EXCEPTIONS      FUNCTION_NOT_EXIST = 1      VERSION_NOT_FOUND  = 2      OTHERS             = 3.ENDFORM.                    "GENERATE_FUNCTION_DOWNLOAD*&--------------------------------------------------------------------**&      Form  GENERATE_FUNCTION_UPLOAD*&--------------------------------------------------------------------**       Recreate the function tables.*---------------------------------------------------------------------*FORM GENERATE_FUNCTION_UPLOAD USING FUNCNAME.  LOOP AT DATA_FUPARAREF.    MOVE-CORRESPONDING DATA_FUPARAREF TO T_FUPARAREF.    APPEND T_FUPARAREF.  ENDLOOP.  READ TABLE T_PENLFDIR INDEX 1.  READ TABLE T_PTFTIT INDEX 1.  READ TABLE T_PTFDIR INDEX 1.  ISOURCE[] = T_UINCL[].  SORT DATA_FUPARAREF BY PPOSITION.  LOOP AT DATA_FUPARAREF.    CASE DATA_FUPARAREF-PARAMTYPE.      WHEN 'I'.        MOVE-CORRESPONDING DATA_FUPARAREF TO IMPORT_PARAMETER.        LONG = STRLEN( DATA_FUPARAREF-STRUCTURE ).        IF LONG EQ 1.          MOVE DATA_FUPARAREF-STRUCTURE TO IMPORT_PARAMETER-TYP.        ELSE.          MOVE DATA_FUPARAREF-STRUCTURE TO IMPORT_PARAMETER-DBFIELD.        ENDIF.        MOVE DATA_FUPARAREF-DEFAULTVAL TO IMPORT_PARAMETER-DEFAULT.        MOVE DATA_FUPARAREF-TYPE TO IMPORT_PARAMETER-TYPES.        APPEND IMPORT_PARAMETER.      WHEN 'E'.        MOVE-CORRESPONDING DATA_FUPARAREF TO EXPORT_PARAMETER.        LONG = STRLEN( DATA_FUPARAREF-STRUCTURE ).        IF LONG EQ 1.          MOVE DATA_FUPARAREF-STRUCTURE TO EXPORT_PARAMETER-TYP.        ELSE.          MOVE DATA_FUPARAREF-STRUCTURE TO EXPORT_PARAMETER-DBFIELD.        ENDIF.        MOVE DATA_FUPARAREF-TYPE TO EXPORT_PARAMETER-TYPES.        APPEND EXPORT_PARAMETER.      WHEN 'X'.        MOVE DATA_FUPARAREF-PARAMETER TO EXCEPTION_LIST-EXCEPTION.        APPEND EXCEPTION_LIST.      WHEN 'T'.        MOVE-CORRESPONDING DATA_FUPARAREF TO TABLES_PARAMETER.        MOVE DATA_FUPARAREF-STRUCTURE TO TABLES_PARAMETER-DBSTRUCT.        MOVE DATA_FUPARAREF-TYPE TO TABLES_PARAMETER-TYPES.        APPEND TABLES_PARAMETER.      WHEN 'C'.        MOVE-CORRESPONDING DATA_FUPARAREF TO CHANGING_PARAMETER.        LONG = STRLEN( DATA_FUPARAREF-STRUCTURE ).        IF LONG EQ 1.          MOVE DATA_FUPARAREF-STRUCTURE TO CHANGING_PARAMETER-TYP.        ELSE.          MOVE DATA_FUPARAREF-STRUCTURE TO CHANGING_PARAMETER-DBFIELD.        ENDIF.        MOVE DATA_FUPARAREF-TYPE TO CHANGING_PARAMETER-TYPES.        APPEND CHANGING_PARAMETER.    ENDCASE.  ENDLOOP.  LOOP AT T_PFUNCT.    MOVE-CORRESPONDING T_PFUNCT TO PARAMETER_DOCU.    APPEND PARAMETER_DOCU.  ENDLOOP.  CALL FUNCTION 'FUNCTION_CREATE'    EXPORTING      FUNCNAME                = FUNCNAME      FUNCTION_POOL           = T_PENLFDIR-AREA      REMOTE_CALL             = T_PTFDIR-FMODE      SHORT_TEXT              = T_PTFTIT-STEXT    TABLES      EXCEPTION_LIST          = EXCEPTION_LIST      EXPORT_PARAMETER        = EXPORT_PARAMETER      IMPORT_PARAMETER        = IMPORT_PARAMETER      PARAMETER_DOCU          = PARAMETER_DOCU      TABLES_PARAMETER        = TABLES_PARAMETER      CHANGING_PARAMETER      = CHANGING_PARAMETER    EXCEPTIONS      DOUBLE_TASK             = 1      ERROR_MESSAGE           = 2      FUNCTION_ALREADY_EXISTS = 3      INVALID_FUNCTION_POOL   = 4      INVALID_NAME            = 5      TOO_MANY_FUNCTIONS      = 6      OTHERS                  = 7.  IF SY-SUBRC EQ 0.    OBJECT_NAME = FUNCNAME.    CALL FUNCTION 'FUNC_OBJECT_ACTIVATE'      EXPORTING        OBJECT_NAME = OBJECT_NAME      EXCEPTIONS        CANCELLED   = 1        OTHERS      = 2.  ENDIF.  READ TABLE T_PTRDIR INDEX 1.  INSERT REPORT T_PTRDIR-NAME FROM T_UINCL UNICODE ENABLING 'X'.  IF SY-SUBRC EQ 0.    OBJECT_NAME = FUNCNAME.    CALL FUNCTION 'FUNC_OBJECT_ACTIVATE'      EXPORTING        OBJECT_NAME = OBJECT_NAME      EXCEPTIONS        CANCELLED   = 1        OTHERS      = 2.    CALL FUNCTION 'FUNCTION_GENERATE_INTERFACE'      EXPORTING        FUNCNAME              = FUNCNAME        GLOBAL                = ' '        V_INCLUDE             = T_PTFDIR-PNAME      TABLES        IFUPARAREF            = T_FUPARAREF        ISOURCE               = ISOURCE      EXCEPTIONS        FUNCTION_NAME_MISSING = 1        OTHERS                = 2.    IF SY-SUBRC EQ 0.      CALL FUNCTION 'POPUP_TO_INFORM'        EXPORTING          TITEL = 'Successful Recreation'          TXT1  = 'The function was'          TXT2  = 'successfully created.'.    ELSE.      CALL FUNCTION 'POPUP_TO_INFORM'        EXPORTING          TITEL = 'Recreation Error!'          TXT1  = 'The function'          TXT2  = 'couldn''t be created.'.    ENDIF.  ENDIF.ENDFORM.                    "GENERATE_FUNCTION_DOWNLOAD*---------------------------------------------------------------------**       FORM DOWNLOAD_TABLE                                           **---------------------------------------------------------------------**       Function Downloads.*---------------------------------------------------------------------*FORM DOWNLOAD_FUNCTION TABLES TAB                       USING FUNCNAME.  CALL FUNCTION 'GUI_DOWNLOAD'    EXPORTING      FILENAME                = FUNCNAME      FILETYPE                = 'ASC'    TABLES      DATA_TAB                = TAB    EXCEPTIONS      FILE_WRITE_ERROR        = 1      NO_BATCH                = 2      GUI_REFUSE_FILETRANSFER = 3      INVALID_TYPE            = 4      NO_AUTHORITY            = 5      UNKNOWN_ERROR           = 6.  IF SY-SUBRC EQ 0.    COUNTER = COUNTER + 1.  ENDIF.  IF COUNTER EQ 3.    CALL FUNCTION 'POPUP_TO_INFORM'      EXPORTING        TITEL = 'Successful Download'        TXT1  = 'The Function was succesfully'        TXT2  = 'downloaded.'.  ENDIF.ENDFORM.                    "DOWNLOAD_FUNCTION*---------------------------------------------------------------------**       FORM UPLOAD_TABLE                                             **---------------------------------------------------------------------**       Function Uploads.*---------------------------------------------------------------------*FORM UPLOAD_FUNCTION TABLES TAB                     USING FUNCNAME.  CALL FUNCTION 'GUI_UPLOAD'    EXPORTING      FILENAME                = FUNCNAME      FILETYPE                = 'ASC'      READ_BY_LINE            = 'X'    TABLES      DATA_TAB                = TAB    EXCEPTIONS      FILE_OPEN_ERROR         = 1      FILE_READ_ERROR         = 2      NO_BATCH                = 3      GUI_REFUSE_FILETRANSFER = 4      INVALID_TYPE            = 5      NO_AUTHORITY            = 6      UNKNOWN_ERROR           = 7.ENDFORM.                    "UPLOAD_FUNCTION*&---------------------------------------------------------------------**&      Form  VERIFY_TABLE*&---------------------------------------------------------------------**       The function must exist!*----------------------------------------------------------------------*FORM VERIFY_TABLE USING FUNCNAM CHANGING FLAG.  SELECT SINGLE FUNCNAME  INTO (FUNCNAM)  FROM FUPARAREF  WHERE FUNCNAME EQ FUNCNAM.  IF SY-SUBRC NE 0.    FLAG = 'X'.  ENDIF.ENDFORM.                    "VERIFY_TABLE

If you don't like it, don't buy it...But if you like it, please use it and spread it -:)