*&---------------------------------------------------------------------*
*& Report  ZTEST6112                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZTEST6112                               .

DATA  MIME LIKE ABAPTXT255 OCCURS 0.

DATA: BEGIN OF OBJ,
          OBJSUBTYPE LIKE VRSX2-OBJSUBTYPE,
          OBJNAME    LIKE VRSX2-OBJNAME,
          VERSNO     LIKE VRSX2-VERSNO,
      END OF OBJ.


OBJ-OBJNAME = 'ZTEST611'.  "Имя программы
OBJ-VERSNO = '00000'.     "Версия.  Посмотри существующие в табличке VRSD

OBJ-OBJSUBTYPE = 'REPS'.


CLEAR: MIME, MIME[].

IMPORT ABAPTEXT_PRI TO MIME FROM DATABASE VRSX2(RE) ID OBJ
                IGNORING STRUCTURE BOUNDARIES.
IF NOT MIME[] IS INITIAL.
  EDITOR-CALL FOR MIME.
ELSE.
  WRITE:/ 'УВЫ...'   .
ENDIF.