|
On 18 Nov 2014, at 21:09, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx> wrote:
I'm going to try and clarify some things and then if I need to drop from here and go to easy400, I will.
First my program is loosely based on an article by Jay Oswal(A business-Quality RPG Web Application) in Iprodevoper.com Also linked to here.
http://nebula.wsimg.com/81237fbf24a2c79838349393b56bb1b9?AccessKeyId=A9AB1C330F5311638C82&disposition=0&alloworigin=1
Secondly, to explain a little bit of what I'm trying to accomplish.
I'm creating a calender program to help keep track of when tapes were used. We have a tape inventory program now but the main user would like to see historically where the tapes were and challenged me to make it look like a calendar.
I have this working in green screen, but now I want to see if I can get it working in a browser.
I'm using tables, but not in a 'GRID' like a subfile.
I can currently display the current month and the tapes associated with each day in the month.
The page up and page down are to scroll back and forth between the months.
Here is my little bit of javascript. It is condensed from the original
<script language="javascript" type="text/JavaScript">
function sbmform1()
{
document.Tape.Irequest.value = document.pressed;
if (document.pressed == "Pageup" ||
document.pressed == "Pagedown" ||
document.pressed == "Refresh")
{document.Tape.target="";}
else{document.Tape.target="_blank";}
The original javascript
<script language="javascript" type="text/JavaScript">
function sbmform1()
{
document.form1.Irequest.value = document.pressed;
if (document.pressed == "Pageup" ||
document.pressed == "Pagedown" ||
document.pressed == "Refresh")
{document.form1.target="";}
else{document.form1.target="_blank";}
document.form1.Iselkey.value =" ";
var nnn = parseInt(document.form1.Idsprows.value, 10);
if (nnn > 1)
{var i=0;
do
{if (document.form1.Iselect[i].checked==true)
{
document.form1.Iselkey.value = document.form1.Iselect[i].value;
break;
}
i++;
}
while (i < nnn );
}
else
{document.form1.Iselkey.value = document.form1.Iselect.value;}
}
-----Original Message-----
From: WEB400 [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Kevin Turner
Sent: Tuesday, November 18, 2014 3:50 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] problems with CGIDEV2 zgbgetvarupper
Firstly you probably need the easy400 forum rather than the web400 forum.
That aside, /%orequest%/ is a replacement variable that gets set by the RPG program (by updhtmlvar) when it delivers output to the browser. It does happen in reverse. So, assuming lrequest is on the form that gets submitted when the button is pressed, what is your JavaScript doing to set the value of the lrequest input field?
What does the JavaScript look like?
Sent from my iPad
On 18 Nov 2014, at 20:33, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx> wrote:
Raul,
Thanks for the info. I think if I understand correctly, I am doing that.
I have a section in my form like this.
<input type=hidden name="Irequest" value="/%Orequest%/">
-----Original Message-----
From: WEB400 [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Raul A. Jager W.
Sent: Tuesday, November 18, 2014 3:16 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] problems with CGIDEV2 zgbgetvarupper
The javascript variables do not get passed to the RPG, you need to put the value in an input field or in the URL that calls the rpg program.
Smith, Mike wrote:
I am trying my first meaningful program with CGIDEV2.
I have it populating the first screen of the HTML, but I cannot get the response from the pageup or pagedown button to show up in my program.
I'm basing my program loosely on a sample I found from a few years ago.
The buttons are defined as SUBMITs and call a little javascript to determine if pageup/pagedown or refresh is pressed.
I can see that it is hitting the java script and the value of field Irequest is populated with 'Pageup'
But when I get back into my program and execute
Irequest = zhbgetvarupper('Irequest') ;
The result always comes back blank and I'm at a loss as what to look for.
Thanks
Mike
Ps, I'll probably have more questions as I work through this program.
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.
-- Este e-mail fue enviado desde el Mail Server del diario ABC Color --
-- Verificado por Anti-Virus Corporativo Symantec --
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400)
mailing list To post a message email: WEB400@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/web400.
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400)
mailing list To post a message email: WEB400@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
NOTICE: The information in this electronic mail transmission is intended by CoralTree Systems Ltd for the use of the named individuals or entity to which it is directed and may contain information that is privileged or otherwise confidential. If you have received this electronic mail transmission in error, please delete it from your system without copying or forwarding it, and notify the sender of the error by reply email or by telephone, so that the sender's address records can be corrected.
--------------------------------------------------------------------------------
CoralTree Systems Limited
Company Registration Number 5021022.
Registered Office:
12-14 Carlton Place
Southampton
Hampshire
SO15 2EA
VAT Registration Number 834 1020 74.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/web400.
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.