Binary Upload / Download from/to SAP Server

Nützliche Abap Codes und Code Fragmente

Binary Upload / Download from/to SAP Server

Postby Tron » Mon Mar 23, 2020 8:32 am

Hi.
Here 2 Function Modules for Up/Download binary file from / to the Application Server.
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION YBC_FILE_DOWNLOAD_BINARY.
  2. *"----------------------------------------------------------------------
  3. *"*"Lokale Schnittstelle:
  4. *"       IMPORTING
  5. *"             VALUE(I_FILE_FRONT_END) LIKE  RCGFILETR-FTFRONT
  6. *"             VALUE(I_FILE_APPL) LIKE  RCGFILETR-FTAPPL
  7. *"             VALUE(I_FILE_OVERWRITE) TYPE  ESP1_BOOLEAN
  8. *"                             DEFAULT ESP1_FALSE
  9. *"       EXPORTING
  10. *"             VALUE(E_FLG_OPEN_ERROR) TYPE  ESP1_BOOLEAN
  11. *"             VALUE(E_OS_MESSAGE) TYPE  C
  12. *"       EXCEPTIONS
  13. *"              FE_FILE_OPEN_ERROR
  14. *"              FE_FILE_EXISTS
  15. *"              FE_FILE_WRITE_ERROR
  16. *"              AP_NO_AUTHORITY
  17. *"              AP_FILE_OPEN_ERROR
  18. *"              AP_FILE_EMPTY
  19. *"----------------------------------------------------------------------
  20.  
  21. * Local data ----------------------------------------------------------
  22.  
  23.   DATA: L_FILELENGTH    TYPE I.
  24.   DATA: L_ORLN          LIKE DRAO-ORLN.
  25.   DATA: L_DATA_TAB      LIKE RCGREPFILE OCCURS 10 WITH HEADER LINE.
  26.   DATA: L_FILENAME      LIKE RLGRAP-FILENAME.
  27.   DATA: L_AUTH_FILENAME LIKE AUTHB-FILENAME.
  28.   DATA: L_RETURN        TYPE C.
  29.   DATA: L_LINES         TYPE I.
  30.  
  31. * Function body -------------------------------------------------------
  32.  
  33. * init
  34.   E_FLG_OPEN_ERROR = FALSE.
  35.   CLEAR E_OS_MESSAGE.
  36.  
  37. * check the authority to read the file from the application server
  38.   L_AUTH_FILENAME = I_FILE_APPL.
  39.   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
  40.        EXPORTING
  41. *           PROGRAM          =
  42.             ACTIVITY         = SABC_ACT_READ
  43.             FILENAME         = L_AUTH_FILENAME
  44.        EXCEPTIONS
  45.             NO_AUTHORITY     = 1
  46.             ACTIVITY_UNKNOWN = 2
  47.             OTHERS           = 3.
  48.   IF NOT SY-SUBRC IS INITIAL.
  49.     CASE SY-SUBRC.
  50.       WHEN 1.
  51. *       no auhtority
  52.         RAISE AP_NO_AUTHORITY.
  53.       WHEN OTHERS.
  54.         RAISE AP_FILE_OPEN_ERROR.
  55.     ENDCASE.
  56.   ENDIF.
  57.  
  58.  
  59. * check if the file on the front-end exists
  60.   CALL FUNCTION 'C13Z_UPLOAD'
  61.     EXPORTING
  62. *     CODEPAGE                      = ' '
  63.       FILENAME                      = I_FILE_FRONT_END
  64.       FILETYPE                      = 'BIN'
  65. *     HEADLEN                       = ' '
  66. *     LINE_EXIT                     = ' '
  67. *     TRUNCLEN                      = ' '
  68. *     USER_FORM                     = ' '
  69. *     USER_PROG                     = ' '
  70. *     DAT_D_FORMAT                  = ' '
  71. *   IMPORTING
  72. *     FILELENGTH                    =
  73.     TABLES
  74.       DATA_TAB                      = L_DATA_TAB
  75.     EXCEPTIONS
  76.       CONVERSION_ERROR              = 1
  77.       FILE_OPEN_ERROR               = 2
  78.       FILE_READ_ERROR               = 3
  79.       INVALID_TYPE                  = 4
  80.       NO_BATCH                      = 5
  81.       UNKNOWN_ERROR                 = 6
  82.       INVALID_TABLE_WIDTH           = 7
  83.       GUI_REFUSE_FILETRANSFER       = 8
  84.       CUSTOMER_ERROR                = 9
  85.       NO_AUTHORITY                  = 10
  86.       BAD_DATA_FORMAT               = 11
  87.       HEADER_NOT_ALLOWED            = 12
  88.       SEPARATOR_NOT_ALLOWED         = 13
  89.       HEADER_TOO_LONG               = 14
  90.       UNKNOWN_DP_ERROR              = 15
  91.       ACCESS_DENIED                 = 16
  92.       DP_OUT_OF_MEMORY              = 17
  93.       DISK_FULL                     = 18
  94.       DP_TIMEOUT                    = 19
  95.       NOT_SUPPORTED_BY_GUI          = 20
  96.       ERROR_NO_GUI                  = 21
  97.       OTHERS                        = 22.
  98.             .
  99. * if file exists continue only if parameter is specified
  100.   IF SY-SUBRC = 0.
  101.     IF I_FILE_OVERWRITE = FALSE.
  102.       RAISE FE_FILE_EXISTS.
  103.     ENDIF.
  104.   ELSEIF SY-SUBRC <> 2 AND SY-SUBRC <> 3.
  105.     RAISE FE_FILE_OPEN_ERROR.
  106.   ENDIF.                          " not sy-subrc is initial.
  107.  
  108.  
  109. * open the file on the application server
  110.   OPEN DATASET I_FILE_APPL FOR INPUT MESSAGE E_OS_MESSAGE
  111.                IN BINARY MODE.
  112.   IF NOT SY-SUBRC IS INITIAL.
  113.     E_FLG_OPEN_ERROR = TRUE.
  114.     EXIT.
  115.   ENDIF.                            " not sy-subrc is initial
  116.   CLOSE DATASET I_FILE_APPL.
  117.  
  118. * read data from application server
  119.   CALL FUNCTION 'C13Z_RAWDATA_READ'
  120.     EXPORTING
  121.       I_FILE           = I_FILE_APPL
  122.     IMPORTING
  123.       E_FILE_SIZE      = L_ORLN
  124.       E_LINES          = L_LINES
  125.     TABLES
  126.       E_RCGREPFILE_TAB = L_DATA_TAB
  127.     EXCEPTIONS
  128.       NO_PERMISSION    = 1
  129.       OPEN_FAILED      = 2
  130. * Begin Correction 21.03.2005 816266 *******************
  131.             READ_ERROR       = 3
  132. * End Correction 21.03.2005 816266 *********************
  133.             OTHERS           = 4.
  134.   IF NOT SY-SUBRC IS INITIAL.
  135.     CASE SY-SUBRC.
  136.       WHEN 1.
  137. *       no auhtority
  138.         RAISE AP_NO_AUTHORITY.
  139.       WHEN OTHERS.
  140.         RAISE AP_FILE_OPEN_ERROR.
  141.     ENDCASE.
  142.   ENDIF.
  143.  
  144.  
  145. *  check if data table is empty
  146.   READ TABLE L_DATA_TAB INDEX 1.
  147.   IF SY-SUBRC IS INITIAL.
  148.  
  149.     L_FILENAME   = I_FILE_FRONT_END.
  150.     L_FILELENGTH = L_ORLN.
  151.     CALL FUNCTION 'C13Z_DOWNLOAD'
  152.         EXPORTING
  153.                BIN_FILESIZE        = L_FILELENGTH
  154. *               CODEPAGE            = ' '
  155.                FILENAME            = L_FILENAME
  156.                FILETYPE            = LC_FILEFORMAT_BINARY
  157. *               mode                = ' '
  158. *               WK1_N_FORMAT        = ' '
  159. *               WK1_N_SIZE          = ' '
  160. *               WK1_T_FORMAT        = ' '
  161. *               WK1_T_SIZE          = ' '
  162. *               COL_SELECT          = ' '
  163. *               COL_SELECTMASK      = ' '
  164.           IMPORTING
  165.                FILELENGTH          = L_FILELENGTH
  166.           TABLES
  167.                DATA_TAB            = L_DATA_TAB
  168. *               FIELDNAMES          =
  169.           EXCEPTIONS
  170.                FILE_OPEN_ERROR     = 1
  171.                FILE_WRITE_ERROR    = 2
  172.                INVALID_FILESIZE    = 3
  173.                INVALID_TABLE_WIDTH = 4
  174.                INVALID_TYPE        = 5
  175.                NO_BATCH            = 6
  176.                UNKNOWN_ERROR       = 7
  177.                OTHERS              = 8.
  178.     IF NOT SY-SUBRC IS INITIAL.
  179.       CASE SY-SUBRC.
  180.         WHEN 2 .
  181.           RAISE FE_FILE_OPEN_ERROR.
  182.         WHEN OTHERS.
  183.           RAISE FE_FILE_WRITE_ERROR.
  184.       ENDCASE.
  185.     ENDIF.                          " not sy-subrc is initial
  186.  
  187.   ELSE.
  188.  
  189. *   file on application server has no contents
  190.     RAISE AP_FILE_EMPTY.
  191.  
  192.   ENDIF.                            " sy-subrc is initial
  193.  
  194.  
GeSHi ©


Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION YBC_FILE_UPLOAD_BINARY.
  2. *"----------------------------------------------------------------------
  3. *"*"Lokale Schnittstelle:
  4. *"       IMPORTING
  5. *"             VALUE(I_FILE_FRONT_END) LIKE  RCGFILETR-FTFRONT
  6. *"             VALUE(I_FILE_APPL) LIKE  RCGFILETR-FTAPPL
  7. *"             VALUE(I_FILE_OVERWRITE) TYPE  ESP1_BOOLEAN
  8. *"                             DEFAULT ESP1_FALSE
  9. *"       EXPORTING
  10. *"             VALUE(E_FLG_OPEN_ERROR) TYPE  ESP1_BOOLEAN
  11. *"             VALUE(E_OS_MESSAGE) TYPE  C
  12. *"       EXCEPTIONS
  13. *"              FE_FILE_NOT_EXISTS
  14. *"              FE_FILE_READ_ERROR
  15. *"              AP_NO_AUTHORITY
  16. *"              AP_FILE_OPEN_ERROR
  17. *"              AP_FILE_EXISTS
  18. *"----------------------------------------------------------------------
  19.  
  20. * Local data ----------------------------------------------------------
  21.  
  22.   DATA: L_FILELENGTH    TYPE I.
  23.   DATA: L_DATA_TAB      LIKE RCGREPFILE OCCURS 10 WITH HEADER LINE.
  24.   DATA: L_FILENAME      LIKE RLGRAP-FILENAME.
  25.   DATA: L_AUTH_FILENAME LIKE AUTHB-FILENAME.
  26.   DATA: L_LINES         TYPE I.
  27.  
  28. * Function body -------------------------------------------------------
  29. * init
  30.   E_FLG_OPEN_ERROR = FALSE.
  31.   CLEAR E_OS_MESSAGE.
  32.  
  33. * check the authority to write the file to the application server
  34.   L_AUTH_FILENAME = I_FILE_APPL.
  35.   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
  36.        EXPORTING
  37. *           PROGRAM          =
  38.             ACTIVITY         = SABC_ACT_WRITE
  39.             FILENAME         = L_AUTH_FILENAME
  40.        EXCEPTIONS
  41.             NO_AUTHORITY     = 1
  42.             ACTIVITY_UNKNOWN = 2
  43.             OTHERS           = 3.
  44.   IF NOT SY-SUBRC IS INITIAL.
  45.     CASE SY-SUBRC.
  46.       WHEN 1.
  47. *       no auhtority
  48.         RAISE AP_NO_AUTHORITY.
  49.       WHEN OTHERS.
  50.         RAISE AP_FILE_OPEN_ERROR.
  51.     ENDCASE.
  52.   ENDIF.
  53.  
  54. * open the file on the application server for reading to check if the
  55. * file exists on the application server
  56.   OPEN DATASET I_FILE_APPL FOR INPUT MESSAGE E_OS_MESSAGE
  57.        IN BINARY MODE.
  58.   IF SY-SUBRC <> 0.
  59. *   nothing to do
  60.   ELSEIF I_FILE_OVERWRITE = FALSE.
  61.     CLOSE DATASET I_FILE_APPL.
  62.     RAISE AP_FILE_EXISTS.
  63.   ENDIF.
  64.   CLOSE DATASET I_FILE_APPL.
  65.  
  66. * upload the file
  67.   L_FILENAME = I_FILE_FRONT_END.
  68.   CALL FUNCTION 'C13Z_UPLOAD'
  69.        EXPORTING
  70. *           CODEPAGE            = ' '
  71.             FILENAME            = L_FILENAME
  72.             FILETYPE            = LC_FILEFORMAT_BINARY
  73. *           HEADLEN             = ' '
  74. *           LINE_EXIT           = ' '
  75. *           TRUNCLEN            = ' '
  76. *           USER_FORM           = ' '
  77. *           USER_PROG           = ' '
  78.        IMPORTING
  79.             FILELENGTH          = L_FILELENGTH
  80.        TABLES
  81.             DATA_TAB            = L_DATA_TAB
  82.        EXCEPTIONS
  83.             CONVERSION_ERROR    = 1
  84.             FILE_OPEN_ERROR     = 2
  85.             FILE_READ_ERROR     = 3
  86.             INVALID_TABLE_WIDTH = 4
  87.             INVALID_TYPE        = 5
  88.             NO_BATCH            = 6
  89.             UNKNOWN_ERROR       = 7
  90.             OTHERS              = 8.
  91.   IF NOT SY-SUBRC IS INITIAL.
  92.     CASE SY-SUBRC.
  93.       WHEN 2 .
  94.         RAISE FE_FILE_NOT_EXISTS.
  95.       WHEN OTHERS.
  96.         RAISE FE_FILE_READ_ERROR.
  97.     ENDCASE.
  98.   ENDIF.
  99.  
  100. * count lines in rawdata table
  101.   DESCRIBE TABLE L_DATA_TAB LINES L_LINES.
  102.  
  103. * write file to frontend
  104.   CALL FUNCTION 'C13Z_RAWDATA_WRITE'
  105.     EXPORTING
  106.       I_FILE           = I_FILE_APPL
  107.       I_FILE_SIZE      = L_FILELENGTH
  108.       I_LINES          = L_LINES
  109.     TABLES
  110.       I_RCGREPFILE_TAB = L_DATA_TAB
  111.     EXCEPTIONS
  112.       NO_PERMISSION    = 1
  113.       OPEN_FAILED      = 2
  114.       OTHERS           = 3.
  115.  
  116.   IF NOT SY-SUBRC IS INITIAL.
  117.     CASE SY-SUBRC.
  118.       WHEN 1.
  119. *       no auhtority
  120.         RAISE AP_NO_AUTHORITY.
  121.       WHEN OTHERS.
  122.         RAISE AP_FILE_OPEN_ERROR.
  123.     ENDCASE.
  124.   ENDIF.
  125.  
  126.  
GeSHi ©


Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION YBC_RAWDATA_WRITE.
  2. *"----------------------------------------------------------------------
  3. *"*"Lokale Schnittstelle:
  4. *"  IMPORTING
  5. *"     VALUE(I_FILE) LIKE  RCGIEDIAL-IEFILE
  6. *"     VALUE(I_FILE_SIZE) TYPE  I OPTIONAL
  7. *"     VALUE(I_LINES) TYPE  I DEFAULT 0
  8. *"     VALUE(I_FILE_OVERWRITE) TYPE  ESP1_BOOLEAN DEFAULT ESP1_TRUE
  9. *"  TABLES
  10. *"      I_RCGREPFILE_TAB STRUCTURE  RCGREPFILE
  11. *"  EXCEPTIONS
  12. *"      NO_PERMISSION
  13. *"      OPEN_FAILED
  14. *"      AP_FILE_EXISTS
  15. *"      CLOSE_FAILED
  16. *"      WRITE_FAILED
  17. *"----------------------------------------------------------------------
  18.  
  19. * lokal data -----------------------------------------------------------
  20.  
  21.   DATA L_LEN TYPE I.
  22.   DATA L_ALL_LINES_LEN TYPE I.
  23.   DATA L_DIFF_LEN TYPE I.
  24. * Begin Correction 20.11.2005 899632 *******************
  25.   DATA L_SUBRC LIKE SY-SUBRC.
  26. * End Correction 20.11.2005 899632 *********************
  27.  
  28. * function body --------------------------------------------------------
  29.  
  30. * check the authority for file
  31.   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
  32.        EXPORTING
  33. *           PROGRAM          =
  34.             ACTIVITY         = SABC_ACT_WRITE
  35.             FILENAME         = I_FILE
  36.        EXCEPTIONS
  37.             NO_AUTHORITY     = 1
  38.             ACTIVITY_UNKNOWN = 2
  39.             OTHERS           = 3.
  40.   IF SY-SUBRC <> 0.
  41.     RAISE NO_PERMISSION.
  42.   ENDIF.
  43.  
  44. * Begin Correction 0202B0300F01 05.10.1998 BS **************************
  45. * check if file exists if we arn't allowed to overwrite file
  46.   IF I_FILE_OVERWRITE = FALSE.
  47. * Begin Correction 20.11.2005 899632 *******************
  48.     CLEAR L_SUBRC.
  49.     CATCH SYSTEM-EXCEPTIONS OPEN_DATASET_NO_AUTHORITY = 1
  50.                             DATASET_TOO_MANY_FILES = 2
  51.                             OTHERS = 4.
  52.       OPEN DATASET I_FILE FOR INPUT IN BINARY MODE.
  53.       L_SUBRC = SY-SUBRC.
  54.     ENDCATCH.
  55.     IF L_SUBRC <> 0.
  56. *     nothing
  57.     ELSE.
  58.       CATCH SYSTEM-EXCEPTIONS OTHERS = 4.
  59.         CLOSE DATASET I_FILE.
  60.       ENDCATCH.
  61.       RAISE AP_FILE_EXISTS.
  62.     ENDIF.
  63.     CATCH SYSTEM-EXCEPTIONS OTHERS = 4.
  64.       CLOSE DATASET I_FILE.
  65.     ENDCATCH.
  66. * End Correction 20.11.2005 899632 *********************
  67.   ENDIF.
  68. * End Correction 0202B0300F01 05.10.1998 MS ****************************
  69.  
  70. * open dataset for writing
  71.   OPEN DATASET I_FILE FOR OUTPUT IN BINARY MODE.
  72.   IF NOT SY-SUBRC IS INITIAL.
  73.     RAISE OPEN_FAILED.
  74.   ELSE.
  75.  
  76.     L_LEN = LG_MAX_LEN.
  77.     LOOP AT I_RCGREPFILE_TAB.
  78. *     last line is shorter perhaps
  79.       IF SY-TABIX = I_LINES.
  80.         L_ALL_LINES_LEN = LG_MAX_LEN * ( I_LINES - 1 ).
  81.         L_DIFF_LEN = I_FILE_SIZE - L_ALL_LINES_LEN.
  82.         L_LEN = L_DIFF_LEN.
  83.       ENDIF.
  84. *     write data in file
  85. * Begin Correction 20.11.2005 899632 *******************
  86.       CATCH SYSTEM-EXCEPTIONS DATASET_WRITE_ERROR = 1
  87.                               OTHERS = 4.
  88.         TRANSFER I_RCGREPFILE_TAB TO I_FILE LENGTH L_LEN.
  89.       ENDCATCH.
  90. * End Correction 20.11.2005 899632 *********************
  91. * Begin Correction 0682669 20.11.2003 **********************************
  92.       IF NOT SY-SUBRC IS INITIAL.
  93.          RAISE WRITE_FAILED.
  94.       ENDIF.
  95. * End Correction 0682669 20.11.2003 ************************************
  96.  
  97.     ENDLOOP.
  98.   ENDIF.
  99.  
  100. * close the dataset
  101. * Begin Correction 20.11.2005 899632 *******************
  102.   CATCH SYSTEM-EXCEPTIONS DATASET_CANT_CLOSE = 1
  103.                           OTHERS = 4.
  104.     CLOSE DATASET I_FILE.
  105. * End Correction 20.11.2005 899632 *********************
  106. * Begin Correction 0682669 20.11.2003 **********************************
  107.   IF NOT SY-SUBRC IS INITIAL.
  108.     RAISE CLOSE_FAILED.
  109.   ENDIF.
  110. * End Correction 0682669 20.11.2003 ************************************
  111.  
  112.  
  113.  
GeSHi ©


Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION YBC_RAWDATA_READ.
  2. *"----------------------------------------------------------------------
  3. *"*"Lokale Schnittstelle:
  4. *"  IMPORTING
  5. *"     VALUE(I_FILE) LIKE  RCGIEDIAL-IEFILE
  6. *"  EXPORTING
  7. *"     VALUE(E_FILE_SIZE) LIKE  DRAO-ORLN
  8. *"     VALUE(E_LINES) TYPE  I
  9. *"  TABLES
  10. *"      E_RCGREPFILE_TAB STRUCTURE  RCGREPFILE
  11. *"  EXCEPTIONS
  12. *"      NO_PERMISSION
  13. *"      OPEN_FAILED
  14. *"      READ_ERROR
  15. *"----------------------------------------------------------------------
  16.  
  17. * lokal data -----------------------------------------------------------
  18.   DATA : L_LEN LIKE SY-TABIX.
  19. * Begin Correction 20.11.2005 899632 *******************
  20.   DATA L_SUBRC LIKE SY-SUBRC.
  21. * End Correction 20.11.2005 899632 *********************
  22.  
  23. * function body --------------------------------------------------------
  24. * Begin Correction 14.03.2006 931560 **********************************
  25.   REFRESH E_RCGREPFILE_TAB.
  26. * End Correction 14.03.2006 931560 ************************************
  27. * check the authority for file
  28.   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
  29.        EXPORTING
  30. *           PROGRAM          =
  31.             ACTIVITY         = SABC_ACT_READ
  32.             FILENAME         = I_FILE
  33.        EXCEPTIONS
  34.             NO_AUTHORITY     = 1
  35.             ACTIVITY_UNKNOWN = 2
  36.             OTHERS           = 3.
  37.   IF SY-SUBRC <> 0.
  38.     RAISE NO_PERMISSION.
  39.   ENDIF.
  40.  
  41. * read the raw-file from the appl.server
  42. * Begin Correction 20.11.2005 899632 *******************
  43.   CLEAR L_SUBRC.
  44.   CATCH SYSTEM-EXCEPTIONS OPEN_DATASET_NO_AUTHORITY = 1
  45.                           DATASET_TOO_MANY_FILES = 2
  46.                           OTHERS = 4.
  47.     OPEN DATASET I_FILE FOR INPUT IN BINARY MODE.
  48.     L_SUBRC = SY-SUBRC.
  49.   IF SY-SUBRC <> 0 OR
  50.       L_SUBRC <> 0.
  51.     RAISE OPEN_FAILED.
  52.   ENDIF.
  53. * End Correction 20.11.2005 899632 *********************
  54.  
  55. * Begin Correction 21.03.2005 816266 *******************
  56.   CATCH SYSTEM-EXCEPTIONS DATASET_READ_ERROR = 11
  57.                           OTHERS = 12.
  58.     DO.
  59.     CLEAR L_LEN.
  60.     CLEAR E_RCGREPFILE_TAB.
  61.     READ DATASET I_FILE INTO E_RCGREPFILE_TAB-ORBLK LENGTH L_LEN.
  62.     IF SY-SUBRC <> 0.
  63. * Begin Correction 20.11.2005 899632 *******************
  64.       IF L_LEN > 0.
  65. * End Correction 20.11.2005 899632 *********************
  66.         E_FILE_SIZE = E_FILE_SIZE + L_LEN.
  67.         APPEND E_RCGREPFILE_TAB.
  68.       ENDIF.
  69.       EXIT.
  70.     ENDIF.
  71.     E_FILE_SIZE = E_FILE_SIZE + L_LEN.
  72.     APPEND E_RCGREPFILE_TAB.
  73.   ENDDO.
  74.   IF SY-SUBRC > 10.
  75.     RAISE READ_ERROR.
  76.   ENDIF.
  77. * End Correction 31.03.2005 816266 *********************
  78.  
  79.   DESCRIBE TABLE E_RCGREPFILE_TAB LINES E_LINES.
  80.  
  81. * Begin Correction 20.11.2005 899632 *******************
  82.   CATCH SYSTEM-EXCEPTIONS DATASET_CANT_CLOSE = 1
  83.                           OTHERS = 4.
  84.     CLOSE DATASET I_FILE.
  85.   IF NOT SY-SUBRC IS INITIAL.
  86. *  but there wasn't any error at the reading of the data
  87.   ENDIF.
  88. * End Correction 20.11.2005 899632 *********************
  89.  
  90.  
  91.  
GeSHi ©


br Jens
Attachments
FILE_DOWNLOAD_Up_dwn_BINARY.zip
(3.04 KiB) Downloaded 13 times
Tron
.....
.....
 
Posts: 1098
Joined: Sat Aug 04, 2007 10:21 pm

Return to Code Snippets

Who is online

Users browsing this forum: No registered users and 1 guest

cron
  • Latest Topics