/$top
Content-type: text/html
Expires: 0
<html>
<head><title>Sample subfile read-change</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1"/>
<style type="text/css">
<!--
body {font-size: 12px; font-family: Arial,Helvetica,sans-serif,Verdana;}
a {font-weight: normal; font-size: 12px; font-family: Verdana,Arial,Helvetica,sans-serif; line-height: 18px;
font-style: normal; background-color: #ffffff; color: #000000; text-decoration: none;}
a:hover {font-weight: bold; font-size: 12px; font-family: Verdana,Arial,Helvetica,sans-serif; line-height: 18px;
font-style: normal; background-color: #16A22F; color: #ffffff; text-decoration: none;}
.border4gold {padding-top: .04in; padding-bottom: .04in; padding-right: .04in; padding-left: .04in;
border-left: gold 2px solid; border-right: gold 2px solid; border-top: gold 2px solid;
border-bottom: gold 2px solid; }
p.title {font-weight: bold; font-size: 22px; color: #003366; text-align: center; }
td.small {font-weight: normal; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.buttons {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold;
color: #003366; text-align: center; }
.iform {font-weight: normal; font-size: 11px; font-family: Courier;
background-color: #faf890; }
-->
</style>
</head>
<body bgcolor="#ffffff" marginheight="2" marginwidth="2" topmargin="2" leftmargin="2">
<table cellspacing="0" cellpadding="0">
<tr><td align=center>
<table>
<tr><td align=center>
<a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=qddssrc&cgiinp03=iteminv"
target="_blank">Display the DDS source of the Item Inventory file
</td></tr>
<tr><td align=center>
<a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=demohtml&cgiinp03=readcsfl"
target="_blank">Display the HTML source of this page
</td></tr>
<tr><td align=center>
<a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=qrpglesrc&cgiinp03=readcsfl"
target="_blank">Display the RPG source of this page
</td></tr>
</table>
</td></tr>
<tr><td>
<p> </p>
<p class=title>Sample subfile read-change</p>
<form name=form1 method=post>
<input type=hidden name=request value=readc>
<table> <!--
<tr><td align=center colspan=4>
<table class=border4gold>
<tr><td align=center>
In this system, system value QDECFMT is "<b>/%qdecfmt%/</b>" <br>
which means<br>
<i>/%qdecfmtx%/</i>
</td></tr>
</table>
</td></tr> -->
<th align=left valign=bottom>Item<br>code</th>
<th align=left valign=bottom>Description</th>
<th align=left valign=bottom>Unit<br>price</th>
<th align=left valign=bottom>Quantity</th> <!--
<tr><td></td><td></td>
<td class=small>/%sample1%/</td>
<td class=small>/%sample2%/</td></tr> -->
/$tabrow
<tr><td><input type=hidden name=prvitmcod value="/%itmcod%/">
<input type=hidden name=prvitmdes value="/%itmdes%/">
<input type=hidden name=prvitmprc value="/%itmprc%/">
<input type=hidden name=prvitmqty value="/%itmqty%/">
<input class=iform type=text name=newitmcod size=5 maxlength=5 value="/%itmcod%/"></td>
<td><input class=iform type=text name=newitmdes size=30 maxlength=50 value="/%itmdes%/"></td>
<td align=right><input class=iform type=text name=newitmprc size=10 maxlength=10 value="/%itmprc%/"></td>
<td align=right><input class=iform type=text name=newitmqty size=9 maxlength=9 value="/%itmqty%/"></td></tr>
/$newitem
<tr><td colspan=4><b>New item:</b></td></tr>
<tr><td><input type=hidden name=prvitmcod>
<input type=hidden name=prvitmdes>
<input type=hidden name=prvitmprc>
<input type=hidden name=prvitmqty>
<input class=iform type=text name=newitmcod size=5 maxlength=5></td>
<td><input class=iform type=text name=newitmdes size=30 maxlength=50></td>
<td align=right><input class=iform type=text name=newitmprc size=10 maxlength=10></td>
<td align=right><input class=iform type=text name=newitmqty size=9 maxlength=9></td></tr> <!--
<tr><td></td><td></td>
<td class=small>/%newsample1%/</td>
<td class=small>/%newsample2%/</td></tr> -->
<tr><td colspan=4 align=center><br>
<input type=submit class=buttons value="Send"></td></tr>
</table>
</td></tr>
</table>
</body></html>
|