fichier Macro HTML pour Net.Data

BoTTom | 
 
%define {
DATABASE="*LOCAL"
fichier ="af4mbrp1"
 %}
 
 
%html(input){ </p>
<html>
<title>Exemple net.data</title>
<body>
<h1>requete sur le fichier $(fichier)</h1>
<p>Entrez un SUJET: </p>
<form action="result" method="POST">
<p><input type=text size=30 maxlength=256 name="sujet"> </p>
<p><input type=submit> <input type=reset> </p>
</form>
</body>
</html>
%}
 
 
 
 
 
%html(result){
<html>
<title>resultat de net.data</title>
<body>
 
<h1>Requete sur $(fichier) - Liste des cours</h1>
<p>Votre critere <b>$(sujet) </b></p>
<p>@query() </p>
<p><a href="input">Autre requete</a> </p>
<p>
</body>
</html>
%}
 
 
 
 
 
 

| 
 
%function(DTW_SQL) query() {
 select AF4MDL, AF4MBR, AF4TXT from
   AF4TEMP.$(fichier) where sujet LIKE '%$(sujet)%'
 
%report{
 
<table border=1>
<tr><th align=left>$(N1)</th><th align=left>$(N2)</th><th align=left>$(N3)</th><
<tr><td>%row{ </td></tr>
<tr><td>$(V1)</td><td>$(V2)</td><td>$(V3)</td></tr>
<tr><td>%} </td></tr>
</table>
 
<p>%} %message{
100: "Aucun cours ... $(sujet)":CONTINUE
%}
 
%}
 
 




©AF400