REPORT Y9030013 LINE-SIZE 130.    "Release 3.1G, 4.5A
************************************************************************
* Copyright (c) 1999 by CT-Team, 33415 Verl, http://www.ct-software.com
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
* only use with the CT-DEBUG_Simulator
************************************************************************
*BREAK-POINT.
*//////////////////////////////////////////////////////////////////////*
 MOVE: 'Read tables and use a VARTAB (DEFINE-Macro)'
        TO SY-TITLE.
*//////////////////////////////////////////////////////////////////////*
***************         External tables           **********************
 TABLES: YT100.
*
***************         Macro definitions         **********************
DEFINE VARTAB.
  DATA: BEGIN OF &1 OCCURS 0.
  DATA: &2(30) TYPE C.
     INCLUDE STRUCTURE &3.
  DATA: END OF &1.
 END-OF-DEFINITION.
*
 DEFINE FILLTAB1.
   MOVE &1 TO &2+30.
   MOVE &3 TO &2-FIELDNAME.
   APPEND &2.
 END-OF-DEFINITION.
*
*//////////////////////////////////////////////////////////////////////*
*************            -  Main Section             *******************
*//////////////////////////////////////////////////////////////////////*
*
 PERFORM READ-DISPLAY-YT100.
*
*//////////////////////////////////////////////////////////////////////*
*************                Subroutines             *******************
*//////////////////////////////////////////////////////////////////////*
************************************************************************
*           Read and display a few rows of T100
************************************************************************
 FORM READ-DISPLAY-YT100.
*
  ULINE. SKIP 2.
  WRITE: /5 'Step 1: Read and display IT100 ' COLOR 5.
*.......................................................................
*
  VARTAB IT100 FIELDNAME YT100.                                  "macro
*.......................................................................
  SELECT * FROM YT100
    UP TO  50 ROWS
    WHERE ZSPRSL EQ 'E'
     AND  ZARBGB GT 'Z10'.
*
      FILLTAB1 YT100 IT100 'YT100                         '.   "macro
*
  ENDSELECT.
*#######################################################################
      WRITE: /1 'ZSPRSL',
              8 'ZARBGB',
             29 'ZMSGNR',
             36 'Messagetext1',
             77 'Messagetext2'.
      ULINE. SKIP.
*
   LOOP AT IT100.
      WRITE: /1 IT100-ZSPRSL,
              8 IT100-ZARBGB,
             29 IT100-ZMSGNR,
             36(40) IT100-ZTEXT1,
             77(40) IT100-ZTEXT2.
   ENDLOOP.
*
 ENDFORM.
************************************************************************
************************************************************************
******************* END OF PROGRAM *************************************