1.00 |
/$top |
2.00 |
Content-type: text/html |
3.00 |
expires: 0 |
4.00 |
|
5.00 |
<HTML> |
6.00 |
<HEAD> |
7.00 |
<TITLE>Example of using subprocedure QRANDOMSTRING</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 |
.mono { font-family: courier; font-size: 10pt; } |
17.00 |
td,th,caption { font-family: Arial, sans-serif; font-size: 10pt; } |
18.00 |
pre { font-family: monospace; font-weight: normal; font-size: 10pt; } |
19.00 |
--> |
20.00 |
</style> |
21.00 |
</HEAD> |
22.00 |
|
23.00 |
<BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white"> |
24.00 |
|
25.00 |
<table width="600"> |
26.00 |
<tr><td><table width="100%" cellspacing="0" cellpadding="0"> |
27.00 |
<tr><td valign=top><img src="/cgicbldev2/graphics/pears.gif" |
28.00 |
alt="Giovanni's logo"></td> |
29.00 |
<td valign=middle> |
30.00 |
<div class=title> |
31.00 |
Example of using subprocedure QRANDOMSTRING |
32.00 |
</div> |
33.00 |
</td> |
34.00 |
<td valign=middle><img src="/cgicbldev2/graphics/v2.gif" |
35.00 |
alt="this means Version 2"> |
36.00 |
</td></tr> |
37.00 |
<tr><td colspan=3> |
38.00 |
<table width="100%" cellspacing="0" cellpadding="0"> |
39.00 |
<tr><td width="100%"> |
40.00 |
<img src="/cgicbldev2/graphics/blue.gif" alt="blue line" border="0" |
41.00 |
height="1" width="100%"> |
42.00 |
</td></tr> |
43.00 |
</table> |
44.00 |
</td></tr> |
45.00 |
</table> |
46.00 |
</td></tr> |
47.00 |
</table> |
48.00 |
<br><br> |
49.00 |
/$badlen |
50.00 |
<div class=reg><b>String length "/%stringLenC%/" not numeric!</b></div><br><br> |
51.00 |
/$case1 |
52.00 |
<form name=form1 method=get action="/cgicbldev2p/randomstrg.pgm"> |
53.00 |
<input type=hidden name=request value=x> |
54.00 |
<table width=600> |
55.00 |
<tr><td colspan=3><h3>Generate a random string made as follow:</h3></td></tr> |
56.00 |
<th align=left>length</th><th align=left>first character</th><th align=left>remaining characters</th> |
57.00 |
<tr><td><input type=text name=stringLenC size=2 maxlength=2 value="/%stringLenC%/"></td> |
58.00 |
<td><select name=firstChar> |
59.00 |
<option value="*upperLetter" /%sltfchar1%/>*upperLetter |
60.00 |
<option value="*lowerLetter" /%sltfchar2%/>*lowerLetter |
61.00 |
<option value="*mixedLetter" /%sltfchar3%/>*mixedLetter |
62.00 |
<option value="*upperDigit" /%sltfchar4%/>*upperDigit |
63.00 |
<option value="*lowerDigit" /%sltfchar5%/>*lowerDigit |
64.00 |
<option value="*mixedDigit" /%sltfchar6%/>*mixedDigit |
65.00 |
<option value="*digit" /%sltfchar7%/>*digit |
66.00 |
</select></td> |
67.00 |
<td><select name=remainChar> |
68.00 |
<option value="*upperLetter" /%sltrchar1%/>*upperLetter |
69.00 |
<option value="*lowerLetter" /%sltrchar2%/>*lowerLetter |
70.00 |
<option value="*mixedLetter" /%sltrchar3%/>*mixedLetter |
71.00 |
<option value="*upperDigit" /%sltrchar4%/>*upperDigit |
72.00 |
<option value="*lowerDigit" /%sltrchar5%/>*lowerDigit |
73.00 |
<option value="*mixedDigit" /%sltrchar6%/>*mixedDigit |
74.00 |
<option value="*digit" /%sltrchar7%/>*digit |
75.00 |
</select></td></tr> |
76.00 |
<tr><td align=center colspan=3><br> |
77.00 |
<input type=submit value="go"> |
78.00 |
</td></tr> |
79.00 |
</table></form> |
80.00 |
/$case2 |
81.00 |
<table width=600> |
82.00 |
<tr><td align=center> |
83.00 |
<div class=reg>The following random string has been generated:</div> |
84.00 |
<table border=1><tr><td class=mono>/%randomString%/</td></tr></table> |
85.00 |
</td></tr> |
86.00 |
</table> |
87.00 |
/$end |
88.00 |
<br><br> |
89.00 |
<table width="600"> |
90.00 |
<tr><td><a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlexampl&srcmbr=randomstrg" |
91.00 |
target="_blank"><b>Display the external html source</b></a></td> |
92.00 |
<td align=right> |
93.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=randomstrg" |
94.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
95.00 |
</td></tr> |
96.00 |
</table> |
97.00 |
</BODY></HTML> |