1.00 |
/$top **** START HTML |
2.00 |
Content-type: text/html |
3.00 |
Expires: 0 |
4.00 |
|
5.00 |
<html> |
6.00 |
<head> |
7.00 |
<title>Example 1 of listing a database file</title> |
8.00 |
<meta name="author" content="Giovanni B. Perotti"> |
9.00 |
<meta name="contact" content="gb_perotti@www.easy400.net" /> |
10.00 |
<meta name="last update" content="2004-06-30" /> |
11.00 |
<meta name="review" content="2004-06-30" /> |
12.00 |
<meta name="security" content="Public" /> |
13.00 |
<meta name="expiration date" content="2010-12-31" /> |
14.00 |
<meta name="industries" content="Not Industry Specific" /> |
15.00 |
<meta name="ibm.country" content="IT" /> |
16.00 |
<meta name="language" content="EN" /> |
17.00 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> |
18.00 |
<meta name="robots" content="all" /> |
19.00 |
|
20.00 |
<script src="/cgicbldev2/css/ibmcss.js" language="JavaScript" type="text/javascript"> |
21.00 |
</script> |
22.00 |
<noscript><link type="text/css" href="/cgicbldev2/css/r1.css" rel="stylesheet"/></noscript> |
23.00 |
|
24.00 |
<style TYPE="text/css"> |
25.00 |
<!-- |
26.00 |
.title { color: blue; font-weight: bold; font-size: 24pt; font-family: souvenir lt bt, verdana, serif; align: center} |
27.00 |
.subtitle { color: black; font-weight: bold; font-size: 12pt; font-family: souvenir lt bt, verdana, serif; align: center} |
28.00 |
.reg {font-size: 10pt; font-family: arial, helvetica, helv} |
29.00 |
.boldtitle { font-family: Arial Black, Arial, sans-serif; font-weight: Helvetica Black, bold; font-size: 24px; } |
30.00 |
.mono { font-family: courier; font-size: 10pt; } |
31.00 |
td,th,caption { font-family: Arial, sans-serif; font-size: 10pt; } |
32.00 |
pre { font-family: monospace; font-weight: normal; font-size: 10pt; } |
33.00 |
--> |
34.00 |
</style> |
35.00 |
</head> |
36.00 |
|
37.00 |
<BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white"> |
38.00 |
|
39.00 |
<table width="600"> |
40.00 |
<tr><td><table width="100%" cellspacing="0" cellpadding="0"> |
41.00 |
<tr><td valign=top><img src="/cgicbldev2/graphics/pears.gif" |
42.00 |
alt="Giovanni's logo"></td> |
43.00 |
<td valign=middle> |
44.00 |
<div class=title> |
45.00 |
Example 1 of listing a database file |
46.00 |
</div> |
47.00 |
(Using GETHTML) |
48.00 |
</td> |
49.00 |
<td valign=middle><img src="/cgicbldev2/graphics/v2.gif" |
50.00 |
alt="this means Version 2"> |
51.00 |
</td></tr> |
52.00 |
<tr><td colspan=3> |
53.00 |
<table width="100%" cellspacing="0" cellpadding="0"> |
54.00 |
<tr><td width="100%"> |
55.00 |
<img src="/cgicbldev2/graphics/blue.gif" alt="blue line" border="0" |
56.00 |
height="1" width="100%"> |
57.00 |
</td></tr> |
58.00 |
</table> |
59.00 |
</td></tr> |
60.00 |
</table> |
61.00 |
</td></tr> |
62.00 |
</table> |
63.00 |
<br><br> |
64.00 |
|
65.00 |
/$case1 |
66.00 |
<table width="600" cellspacing="0" cellpadding="0"> |
67.00 |
<tr><td><form method=post action="/cgicbldev2p/listctr.cgi"> |
68.00 |
<input type=hidden name=request value="case2"> |
69.00 |
Enter your name |
70.00 |
<input type=text name="xyrname" size="15" maxlength="30"> |
71.00 |
and press |
72.00 |
<input type=submit value=" Enter "> |
73.00 |
</form> |
74.00 |
</td></tr> |
75.00 |
</table> |
76.00 |
<br><br> |
77.00 |
<table width="600"> |
78.00 |
<tr><td> |
79.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlexampl&srcmbr=listctr" |
80.00 |
target="_blank"><b>Display the external html source</b></a></td> |
81.00 |
<td align=right> |
82.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=listctr" |
83.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
84.00 |
</td></tr> |
85.00 |
</table> |
86.00 |
<br><br> |
87.00 |
|
88.00 |
</body></html> |
89.00 |
|
90.00 |
/$case2 |
91.00 |
<table width="600" cellspacing="0" cellpadding="0"> |
92.00 |
<tr><td> |
93.00 |
Hi <font color="red"><b>/%xyrname%/</b></font>!<br> |
94.00 |
Here comes our "delivery times" database file:<br><br> |
95.00 |
</td></tr> |
96.00 |
</table> |
97.00 |
|
98.00 |
/$none **** NO COUNTRIES |
99.00 |
<font color="red"><b>No country available</b></font> |
100.00 |
|
101.00 |
/$tabstr **** START TABLE |
102.00 |
<table border=1> |
103.00 |
<th align=left> |
104.00 |
<b>Country name</th> |
105.00 |
<th align=center> |
106.00 |
<b>Delivery time<br>(days)</th> |
107.00 |
/$tabrow **** TABLE ROW |
108.00 |
<tr><td>/%country%/</td> |
109.00 |
<td align=right>/%delvDays%/</td></tr> |
110.00 |
/$tabend **** END TABLE |
111.00 |
</table> |
112.00 |
<br><br> |
113.00 |
<table width="600"> |
114.00 |
<tr><td> |
115.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlsrc&srcmbr=listctr" |
116.00 |
target="_blank"><b>Display the external html source</b></a></td> |
117.00 |
<td align=right> |
118.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=listctr" |
119.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
120.00 |
</td></tr> |
121.00 |
</table> |
122.00 |
<br><br> |
123.00 |
|
124.00 |
/$end |
125.00 |
</body></html> |