PeterProgress
New Member
Forma (CGI_Wrapper) calls Formb.
Forma has hidden field.
Formb when using get-value does not retrieve the value of the hidden field from forma.
Code
Forma program
{&out}
'<form name="form1" method="POST">' SKIP
'<table border="1">' SKIP
'<tr>' SKIP
'<td>Customer Name:</td>' skip
'<td><input type="text" size="15" name="custName" value="' CustomerName '"></td>' SKIP
'</tr>' SKIP
'<tr>'
'<td>Customer Num :</td>' skip
'<td><input type="text" name="custnum" value=' CustomerNumber '></td>' SKIP
'</tr>'
'<tr>'
'<td>w-city :</td>' SKIP
'<td>' w-city '</td>' SKIP
'<input type="hidden" name="custnum2" value=' CustomerNumber '>'
'</tr>' SKIP
'<tr>' SKIP
'<td><input type="submit" name="Submit" value="OK"></td>' SKIP
'</tr>' SKIP
'</table>' SKIP
'</form>' SKIP.
FormB Program
RUN outputHeader.
Assign vCustNum = integer(GET-VALUE ("custnum2")).
{&OUT}
"<HTML>":U SKIP
"<HEAD>":U SKIP
"<TITLE> {&FILE-NAME} </TITLE>":U SKIP
"</HEAD>":U SKIP
"<BODY>":U SKIP
.
FIND customer WHERE customer.cust-num = vCustnum NO-LOCK NO-ERROR.
/* Output your custom HTML to WEBSTREAM here (using {&OUT}). */
{&out} 'trying cgiwrapper again'.
{&OUT}
'vCustnum:' vCustnum SKIP
'Name :' customer.NAME SKIP
"</BODY>":U SKIP
"</HTML>":U SKIP
.
Any help appreciated
Peter
Forma has hidden field.
Formb when using get-value does not retrieve the value of the hidden field from forma.
Code
Forma program
{&out}
'<form name="form1" method="POST">' SKIP
'<table border="1">' SKIP
'<tr>' SKIP
'<td>Customer Name:</td>' skip
'<td><input type="text" size="15" name="custName" value="' CustomerName '"></td>' SKIP
'</tr>' SKIP
'<tr>'
'<td>Customer Num :</td>' skip
'<td><input type="text" name="custnum" value=' CustomerNumber '></td>' SKIP
'</tr>'
'<tr>'
'<td>w-city :</td>' SKIP
'<td>' w-city '</td>' SKIP
'<input type="hidden" name="custnum2" value=' CustomerNumber '>'
'</tr>' SKIP
'<tr>' SKIP
'<td><input type="submit" name="Submit" value="OK"></td>' SKIP
'</tr>' SKIP
'</table>' SKIP
'</form>' SKIP.
FormB Program
RUN outputHeader.
Assign vCustNum = integer(GET-VALUE ("custnum2")).
{&OUT}
"<HTML>":U SKIP
"<HEAD>":U SKIP
"<TITLE> {&FILE-NAME} </TITLE>":U SKIP
"</HEAD>":U SKIP
"<BODY>":U SKIP
.
FIND customer WHERE customer.cust-num = vCustnum NO-LOCK NO-ERROR.
/* Output your custom HTML to WEBSTREAM here (using {&OUT}). */
{&out} 'trying cgiwrapper again'.
{&OUT}
'vCustnum:' vCustnum SKIP
'Name :' customer.NAME SKIP
"</BODY>":U SKIP
"</HTML>":U SKIP
.
Any help appreciated
Peter