W Pub: ABAP Cursosentenciareadreport

<html>

<head>

<title>READ REPORT</title>

</head>

<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#0099FF" VLINK="#AA0000">

<p align="left">⚠ &lt;b&gt;<span class="titulo">READ REPORT</span>⚠ &lt;/b&gt;</p>

<p align="left">⚠ &lt;b&gt;Definicin⚠ &lt;/b&gt;</p>

<p align="left">Lee un programa de la base de datos.</p>

<p align="left">⚠ &lt;b&gt;Sintaxis:⚠ &lt;/b&gt;</p>

<pre>READ REPORT <programa> INTO <tabla>.</pre>

<p>Lee el programa <programa> de la base de datos sobre 

  la tabla interna <tabla>. La longitud de la lnea de la tabla interna 
  debe ser, al menos, de 72 caracteres. Si el programa lee, SY-SUBRC vale 0, en 
  caso contrario vale distinto de 0.</p>

<p>⚠ &lt;b&gt;Ejemplo:⚠ &lt;/b&gt;</p>

<pre>DATA: BEGIN OF INT_TABLE OCCURS 100, 

        COMP1,
        COMP2,
        COMP3,
      END OF INT_TABLE.</pre>

<pre>FORM PUT_ENTRY USING ENTRY LIKE LINE OF INT_TABLE. 

  READ TABLE INT_TABLE WITH KEY COMP2 = ENTRY-COMP2
                       BINARY SEARCH
                       TRANSPORTING NO FIELDS.
  IF SY-SUBRC <> 0.
    INSERT ENTRY INTO INT_TABLE INDEX SY-TABIX.
  ENDIF.

ENDFORM.</pre>

<p>⚠ &lt;b&gt;Vase tambin:⚠ &lt;/b&gt; ⚠ &lt;a href="loop_endloop.htm" tppabs="loop_endloop.htm"&gt;LOOP .. AT⚠ &lt;/a&gt;, 

  ⚠ &lt;a href="insert.htm" tppabs="insert.htm"&gt;INSERT⚠ &lt;/a&gt;, ⚠ &lt;a href="modify.htm" tppabs="modify.htm"&gt;MODIFY⚠ &lt;/a&gt;.</p>

</body>

</html>