1.00 |
/$top |
2.00 |
Content-Type: text/html |
3.00 |
|
4.00 |
<HTML> |
5.00 |
<HEAD><title>Example of using "qchar2hex" subprocedure</title> |
6.00 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> |
7.00 |
|
8.00 |
<style type="text/css"> |
9.00 |
<!-- |
10.00 |
.title { color: blue; font-weight: bold; font-size: 24pt; font-family: souvenir lt bt, verdana, serif; align: center} |
11.00 |
.subtitle { color: black; font-weight: bold; font-size: 12pt; font-family: souvenir lt bt, verdana, serif; align: center} |
12.00 |
.reg {font-size: 10pt; font-family: arial, helvetica, helv} |
13.00 |
.boldtitle { font-family: Arial Black, Arial, sans-serif; font-weight: Helvetica Black, bold; font-size: 24px; } |
14.00 |
.mono { font-family: courier; font-size: 10pt; } |
15.00 |
td,th,caption { font-family: Arial, sans-serif; font-size: 10pt; } |
16.00 |
pre { font-family: monospace; font-weight: normal; font-size: 10pt; } |
17.00 |
--> |
18.00 |
</style> |
19.00 |
</HEAD> |
20.00 |
|
21.00 |
<BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white"> |
22.00 |
|
23.00 |
<table width="600"> |
24.00 |
<tr><td><table width="100%" cellspacing="0" cellpadding="0"> |
25.00 |
<tr><td valign=top><img src="/cgicbldev2/graphics/pears.gif" |
26.00 |
alt="Giovanni's logo"></td> |
27.00 |
<td valign=middle> |
28.00 |
<div class=title> |
29.00 |
Example of using "qchar2hex" subprocedure |
30.00 |
</div> |
31.00 |
</td> |
32.00 |
<td valign=middle><img src="/cgicbldev2/graphics/v2.gif" |
33.00 |
alt="this means Version 2"> |
34.00 |
</td></tr> |
35.00 |
<tr><td colspan=3> |
36.00 |
<table width="100%" cellspacing="0" cellpadding="0"> |
37.00 |
<tr><td width="100%"> |
38.00 |
<img src="/cgicbldev2/graphics/blue.gif" alt="blue line" border="0" |
39.00 |
height="1" width="100%"> |
40.00 |
</td></tr> |
41.00 |
</table> |
42.00 |
</td></tr> |
43.00 |
</table> |
44.00 |
</td></tr> |
45.00 |
</table> |
46.00 |
<br><br> |
47.00 |
|
48.00 |
<table width=600> |
49.00 |
<tr><td><p><b>Converting a character to its hexadecimal representation</b> |
50.00 |
/$case1 |
51.00 |
<p><form method=post> |
52.00 |
<input type=hidden name=request value=case2> |
53.00 |
Character to be converted: <input type=text name=mychar size=1 maxlength=1> |
54.00 |
<input type=submit value="send"></form> |
55.00 |
/$case2 |
56.00 |
<p>The hexadecimal representation of character "<b>/%mychar%/</b>" |
57.00 |
is <b>/%myescape%/</b>.<br> |
58.00 |
<p><form method=post> |
59.00 |
<input type=hidden name=request value=case2> |
60.00 |
New character to be converted: <input type=text name=mychar size=1 maxlength=1> |
61.00 |
<input type=submit value="send"></form> |
62.00 |
|
63.00 |
/$end |
64.00 |
</td></tr> |
65.00 |
</table> |
66.00 |
<table width="600"> |
67.00 |
<tr><td><a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=htmlexampl&srcmbr=tchar2hex" |
68.00 |
target="_blank"><b>Display the external html source</b></a></td> |
69.00 |
<td align=right> |
70.00 |
<a href="/cgicbldev2p/dspsrc.cgi?srclib=cgicbldev2&srcfile=qcbllesrc&srcmbr=tchar2hex" |
71.00 |
target="_blank"><b>Display the COBOL source</b></a></td> |
72.00 |
</td></tr> |
73.00 |
</table> |
74.00 |
</body></html> |