1.00 |
/$header **** HEADER for CGI RESPONSE |
2.00 |
Content-type: text/html |
3.00 |
Expires: 0 |
4.00 |
|
5.00 |
/$top **** START HTML |
6.00 |
<html> |
7.00 |
<head> |
8.00 |
<title>QWrtSectionToStmf example</title> |
9.00 |
<meta name="author" content="Giovanni B. Perotti"> |
10.00 |
<meta name="contact" content="gb_perotti@www.easy400.net" /> |
11.00 |
<meta name="last update" content="2017-04-01" /> |
12.00 |
<meta name="review" content="2017-04-01" /> |
13.00 |
<meta name="security" content="Public" /> |
14.00 |
<meta name="expiration date" content="3017-03-31" /> |
15.00 |
<meta name="industries" content="Not Industry Specific" /> |
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 |
<script src="/cgicbldev2/css/ibmcss.js" language="JavaScript" type="text/javascript"> |
20.00 |
</script> |
21.00 |
<noscript><link type="text/css" href="/cgicbldev2/css/r1.css" rel="stylesheet"/></noscript> |
22.00 |
<style type="text/css"> |
23.00 |
.title { color: blue; font-weight: bold; font-size: 24pt; font-family: souvenir lt bt, verdana, serif; align: center} |
24.00 |
p {font-family: "arial narrow",arial,Helv; font-size: 18px; } |
25.00 |
.mono {font-family: "courier"; font-size: 16px;} |
26.00 |
.but {font-family: arial; font-size: 14px; font-weight: bold; } |
27.00 |
</style> |
28.00 |
</head> |
29.00 |
|
30.00 |
<BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white"> |
31.00 |
<table width="730"> |
32.00 |
<tr><td><table width="100%" cellspacing="0" cellpadding="0"> |
33.00 |
<tr><td valign=top><img src="/cgicbldev2/graphics/pears.gif" |
34.00 |
alt="Giovanni's logo"></td> |
35.00 |
<td valign="middle" align="center"> |
36.00 |
<span class="title"> |
37.00 |
Example of using subprocedure QWRTSECTIONTOSTMF |
38.00 |
</span> |
39.00 |
</td> |
40.00 |
<td valign=middle><img src="/cgicbldev2/graphics/v2.gif" |
41.00 |
alt="this means Version 2"> |
42.00 |
</td></tr> |
43.00 |
<tr><td colspan=3> |
44.00 |
<table width="100%" cellspacing="0" cellpadding="0"> |
45.00 |
<tr><td width="100%"> |
46.00 |
<img src="/cgicbldev2/graphics/blue.gif" alt="blue line" border="0" |
47.00 |
height="1" width="100%"> |
48.00 |
</td></tr> |
49.00 |
</table> |
50.00 |
</td></tr> |
51.00 |
</table> |
52.00 |
</td></tr> |
53.00 |
|
54.00 |
/$question **** INITIAL QUESTION |
55.00 |
<tr><td align="center"> |
56.00 |
<form name=form1 method="post"> |
57.00 |
<input type=hidden name=xrequest value="go"> |
58.00 |
<h3>Select the size of the stream file<br>(no. of stripes)<br>and press "<b>go</b>" to create it</h3> |
59.00 |
<select name="xqty" class="mono" size="5"> |
60.00 |
<option value="200"> 200 ( .034MB) |
61.00 |
<option value="500" > 500 ( .087MB) |
62.00 |
<option value="2000" > 2000 ( .347MB) |
63.00 |
<option value="5000" > 5000 ( .869MB) |
64.00 |
<option value="105000" >105000 (18.369MB) |
65.00 |
</select><br><br> |
66.00 |
<input type="submit" value="go" class="but"></form> |
67.00 |
</td></tr> |
68.00 |
|
69.00 |
/$answer **** JOB DONE |
70.00 |
<tr><td align="center"> |
71.00 |
<br><br> |
72.00 |
<p><b>Press <a href="/tmp/stripes.html" target="_blank">this</a> to display the created stream file.</b> |
73.00 |
</td></tr> |
74.00 |
/$bottom **** END HTML |
75.00 |
<tr><td> |
76.00 |
<table width="730"> |
77.00 |
<tr><td><a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlexampl&srcmbr=secttostmf" |
78.00 |
target="_blank"><b>Display the external html source</b></a></td> |
79.00 |
<td align=right> |
80.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=secttostmf" |
81.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
82.00 |
</td></tr> |
83.00 |
</table> |
84.00 |
</td></tr> |
85.00 |
|
86.00 |
</table> |
87.00 |
</body></html> |
88.00 |
/$tabstr **** START TABLE |
89.00 |
<tr><td align="center"> |
90.00 |
<table cellspacing="0" cellpadding="0" width="500"> |
91.00 |
/$tabrow **** TABLE ROW |
92.00 |
<tr><td bgcolor="#ff0000"> <td><td align="right" width="5%"> /%rownbr%/</td></tr> |
93.00 |
<tr><td bgcolor="#00ff00"> <td></tr> |
94.00 |
<tr><td bgcolor="#0000ff"> <td></tr> |
95.00 |
/$tabend **** END TABLE |
96.00 |
</table></td></tr> |