Properties | SourceCde
Title | SoftCopy - try |
Original language | DE | Englisch
Created | 04.01.2013 |  | CREYTZ |
Last changed by | 23.02.2021 |  | CREYTZ |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Customer production program |
Application |  |
Authorization Group |  |
Package | ZSOFTCOPY | SoftCopy
| Editor lock
txt
    1
    *&---------------------------------------------------------------------*
    2
    *&  Include           ZSOFTCOPY__TRY                                   *
    3
    *&                                                                     *
    4
    *&---------------------------------------------------------------------*
    5
    *&                                                                     *
    6
    *& This file is part of ZSOFTCOPY.                                     *
    7
    *&                                                                     *
    8
    *& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
    9
    *& it under the terms of the GNU General Public License as published   *
    10
    *& by the Free Software Foundation, either version 3 of the License,   *
    11
    *& or any later version.                                               *
    12
    *&                                                                     *
    13
    *& ZSOFTCOPY is distributed in the hope that it will be useful,        *
    14
    *& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
    15
    *& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
    16
    *& GNU General Public License for more details.                        *
    17
    *&                                                                     *
    18
    *& You should have received a copy of the GNU General Public License   *
    19
    *& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
    20
    *&                                                                     *
    21
    *&---------------------------------------------------------------------*
    22
    *&                                                                     *
    23
    *&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
    24
    *&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
    25
    *&                                                                     *
    26
    *&---------------------------------------------------------------------*
    27
    28
    29
    *-----------------------------------------------------------------------
    30
    * try_create_src_no_includes
    31
    *-----------------------------------------------------------------------
    32
    FORM try_create_src_no_includes
    33
      USING
    34
        it_src TYPE it_string
    35
        value(i_src_name)
    36
        value(i_progname)
    37
      CHANGING
    38
        ct_src_no_includes TYPE it_string.
    39
    40
      DATA lt_index TYPE it_src_include_index.
    41
    42
      REFRESH ct_src_no_includes.
    43
    44
      TRY.
    45
    *      CALL FUNCTION 'CREATE_SOURCE_WITHOUT_INCLUDES'
    46
    *        EXPORTING
    47
    *          source_i         = it_src
    48
    *          source_name      = i_src_name
    49
    *          global_check     = abap_true
    50
    *          global_program   = i_progname
    51
    *          replacing_source = space
    52
    *        IMPORTING
    53
    *          source_o         = ct_src_no_includes
    54
    *        EXCEPTIONS
    55
    *          OTHERS           = 1.
    56
    57
          PERFORM get_src_without_includes
    58
            USING
    59
              it_src
    60
              i_src_name
    61
              abap_true
    62
              i_progname
    63
              space
    64
            CHANGING
    65
              ct_src_no_includes
    66
              lt_index.
    67
        CATCH cx_root.
    68
      ENDTRY.
    69
    ENDFORM.                    "try_create_src_no_includes
    70
    71
    72
    *-----------------------------------------------------------------------
    73
    * try_read_report
    74
    *-----------------------------------------------------------------------
    75
    FORM try_read_report
    76
      USING
    77
        value(i_progname)
    78
      CHANGING
    79
        ct_src TYPE it_string.
    80
    81
      REFRESH ct_src.
    82
    83
      TRY.
    84
          READ REPORT i_progname INTO ct_src STATE 'A'.
    85
        CATCH cx_sy_read_src_line_too_long.
    86
        CATCH cx_root.
    87
      ENDTRY.
    88
    ENDFORM.                    "try_read_report