<HTML>
<HEAD> <META http-equiv="Content-Type" content="text/html; charset=windows-1252"> <META name="GENERATOR" content="Microsoft FrontPage 4.0"> <META name="ProgId" content="FrontPage.Editor.Document"> <TITLE>PROVIDE .. ENDPROVIDE</TITLE> <link rel="stylesheet" href="../../gaussr3.css" tppabs="http://www.gaussr3.com/gaussr3.css" type="text/css"> </HEAD> <BODY><p align="left">⚠ <b>
<span class="titulo">PROVIDE .. ENDPROVIDE</span>⚠ </b>
</p>
⚠ <B>
Definicin⚠ </B>
</P>
<p align="left" class="gaussr3">Recupera objetos de datos de tablas internas.</p>
<p align="left" class="gaussr3">⚠ <B>
Sintaxis:⚠ </B>
</p>
<pre class="gaussr3">PROVIDE <campo11> <campo12> ... FROM <tabla1>
<campo21> <campo22> ... FROM <tabla2>
...
* FROM <tablan>
...
BETWEEN <valor1> AND <valor2>.</pre> <p align="left" class="gaussr3">⚠ <b>
Ejemplo:⚠ </b>
</p>
<pre class="gaussr3">DATA: BEGIN OF SE OCCURS 3,
FROM TYPE D, TO TYPE D, NAME(15) TYPE C, AGE TYPE I, END OF SE,</pre>
<pre class="gaussr3"> BEGIN OF PR OCCURS 4,
START TYPE D, END TYPE D, PRICE TYPE I, NAME(10) TYPE C, END OF PR,</pre>
<pre class="gaussr3"> BEGIN OF SH OCCURS 2,
CLOSED TYPE D, STR(20) TYPE C, OPENED TYPE D, END OF SH VALID BETWEEN OPENED AND CLOSED,</pre>
<pre class="gaussr3"> BEGIN TYPE D VALUE '19910701',
END TYPE D VALUE '19921001'.</pre>
<pre class="gaussr3">SE-FROM = '19910801'. SE-TO = '19910930'.
SE-NAME = 'Shorty'. SE-AGE = 19. APPEND SE. SE-FROM = '19911005'. SE-TO = '19920315'. SE-NAME = 'Snowman'. SE-AGE = 35. APPEND SE. SE-FROM = '19920318'. SE-TO = '19921231'. SE-NAME = 'Tom'. SE-AGE = 25. APPEND SE.</pre> <pre class="gaussr3">PR-START = '19910901'. PR-END = '19911130'. PR-NAME = 'Car'. PR-PRICE = 30000. APPEND PR. PR-START = '19911201'. PR-END = '19920315'. PR-NAME = 'Wood'. PR-PRICE = 10. APPEND PR. PR-START = '19920318'. PR-END = '19920801'. PR-NAME = 'TV'. PR-PRICE = 1000. APPEND PR. PR-START = '19920802'. PR-END = '19921031'. PR-NAME = 'Medal'. PR-PRICE = 5000. APPEND PR.</pre> <pre class="gaussr3">SH-CLOSED = '19920315'. SH-STR = 'Gold Avenue'. SH-OPENED = '19910801'. APPEND SH. SH-CLOSED = '19921031'. SH-STR = 'Wall Street'. SH-OPENED = '19920318'. APPEND SH.</pre> <pre class="gaussr3">PROVIDE NAME AGE FROM SENAME FROM PR * FROM SH BETWEEN BEGIN AND END. ...
ENDPROVIDE.</pre>
</BODY>
</HTML>