1.00 |
/$top |
2.00 |
Content-type: text/html |
3.00 |
|
4.00 |
/$dynatop |
5.00 |
<HTML> |
6.00 |
<HEAD> |
7.00 |
<TITLE>Example of using subprocedure QWRTHTMLTOSTMF</title> |
8.00 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> |
9.00 |
|
10.00 |
<style type="text/css"> |
11.00 |
<!-- |
12.00 |
.title { color: blue; font-weight: bold; font-size: 24pt; font-family: souvenir lt bt, verdana, serif; align: center} |
13.00 |
.subtitle { color: black; font-weight: bold; font-size: 12pt; font-family: souvenir lt bt, verdana, serif; align: center} |
14.00 |
.reg {font-size: 10pt; font-family: arial, helvetica, helv} |
15.00 |
.boldtitle { font-family: Arial Black, Arial, sans-serif; font-weight: Helvetica Black, bold; font-size: 24px; } |
16.00 |
.bigblue { font-family: Verdana, Arial Black; font-weight: bold; font-size: 20px; color: blue; } |
17.00 |
.bigred { font-family: Verdana, Arial Black; font-weight: bold; font-size: 20px; color: red; } |
18.00 |
.mono { font-family: courier; font-size: 10pt; } |
19.00 |
td,th,caption { font-family: Arial, sans-serif; font-size: 10pt; } |
20.00 |
pre { font-family: monospace; font-weight: normal; font-size: 10pt; } |
21.00 |
--> |
22.00 |
</style> |
23.00 |
|
24.00 |
<SCRIPT language="JavaScript"> |
25.00 |
//===================================================================== |
26.00 |
// Time stamp to make an URL unique |
27.00 |
//===================================================================== |
28.00 |
function TS() { |
29.00 |
RightNow = new Date(); |
30.00 |
year=RightNow.getFullYear(); |
31.00 |
month=(RightNow.getMonth()+1); |
32.00 |
day=RightNow.getDate(); |
33.00 |
hours=RightNow.getHours(); |
34.00 |
minutes=RightNow.getMinutes(); |
35.00 |
seconds=RightNow.getSeconds(); |
36.00 |
TimeStamp="ts"+year+month+day+hours+minutes+seconds; |
37.00 |
return TimeStamp; |
38.00 |
} |
39.00 |
</SCRIPT> |
40.00 |
|
41.00 |
</HEAD> |
42.00 |
|
43.00 |
<BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white" marginheight="2" marginwidth="2" topmargin="2" leftmargin="2"> |
44.00 |
|
45.00 |
/$jplogo |
46.00 |
<table width="730"> |
47.00 |
<tr><td><table width="100%" cellspacing="0" cellpadding="0"> |
48.00 |
<tr><td valign=top><img src="/cgicbldev2/graphics/pears.gif" |
49.00 |
alt="Giovanni's logo"></td> |
50.00 |
<td valign=middle> |
51.00 |
<div class=title> |
52.00 |
Example of using subprocedure QWRTHTMLTOSTMF |
53.00 |
</div> |
54.00 |
</td> |
55.00 |
<td valign=middle><img src="/cgicbldev2/graphics/v2.gif" |
56.00 |
alt="this means Version 2"> |
57.00 |
</td></tr> |
58.00 |
<tr><td colspan=3> |
59.00 |
<table width="100%" cellspacing="0" cellpadding="0"> |
60.00 |
<tr><td width="100%"> |
61.00 |
<img src="/cgicbldev2/graphics/blue.gif" alt="blue line" border="0" |
62.00 |
height="1" width="100%"> |
63.00 |
</td></tr> |
64.00 |
</table> |
65.00 |
</td></tr> |
66.00 |
</table> |
67.00 |
</td></tr> |
68.00 |
</table> |
69.00 |
/$weblogo |
70.00 |
<table width=730> |
71.00 |
<tr><td align=center><img src="/cgicbldev2/graphics/weblottery.jpg"></td></tr> |
72.00 |
</table> |
73.00 |
<br><br> |
74.00 |
/$press |
75.00 |
<form name=form1 method=get action="/cgicbldev2p/htmltostmf.pgm"> |
76.00 |
<input type=hidden name=request value=x> |
77.00 |
<table width=730><tr><td align=center> |
78.00 |
<table width=600> |
79.00 |
<tr><td><input type=image src="/cgicbldev2/graphics/panther.jpg" alt="pink panther" border=0></td></form> |
80.00 |
<td class=bigblue> |
81.00 |
<ul> |
82.00 |
<li>Press the pink panther to generate a new dynastatic page |
83.00 |
<li>Click |
84.00 |
<script language=javascript> |
85.00 |
document.write("<a href=/cgicbldev2/dynastatic/lottery.html?ts=" + TS() + ">") |
86.00 |
</script> |
87.00 |
here</a> to display the last dynastatic page |
88.00 |
</ul> |
89.00 |
</td></tr> |
90.00 |
</table> |
91.00 |
</td></tr></table> |
92.00 |
/$winner |
93.00 |
<table width=730><tr><td align=center> |
94.00 |
<table width=600> |
95.00 |
<tr><td><img src="/cgicbldev2/graphics/panther.jpg" alt="pink panter" border=0></td> |
96.00 |
<td align=center><font class=bigblue> |
97.00 |
The winner is ...</font><br><br> |
98.00 |
<font class=bigred>/%winner1%/-/%winner2%/</font> |
99.00 |
<ul> |
100.00 |
<li><a href="/cgicbldev2p/htmltostmf.pgm">Back to the WrtHtmlToStmf example program</a> |
101.00 |
</ul> |
102.00 |
</td></tr> |
103.00 |
</table> |
104.00 |
</td></tr></table> |
105.00 |
/$end |
106.00 |
<br><br> |
107.00 |
<table width="600"> |
108.00 |
<tr><td><a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlexampl&srcmbr=htmltostmf" |
109.00 |
target="_blank"><b>Display the external html source</b></a></td> |
110.00 |
<td align=right> |
111.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=htmltostmf" |
112.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
113.00 |
</td></tr> |
114.00 |
</table> |
115.00 |
/$endend |
116.00 |
</BODY></HTML> |