|
Yes xtools is on the library list, I am not sure how to display the job log while running the program in debug mode.... -----Original Message----- From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of cozzi@xxxxxxxxx Sent: Sunday, October 09, 2005 8:53 PM To: Web Enabling the AS400 / iSeries Subject: RE: [WEB400] Combining numeric values Are there any messages in the joblog after it returns -1? Is XTOOLS on the library list, etc.?? > -------- Original Message -------- > Subject: RE: [WEB400] Combining numeric values > From: "D.W." <dpalme@xxxxxxxxxxx> > Date: Sun, October 09, 2005 7:27 pm > To: "'Web Enabling the AS400 / iSeries'" <web400@xxxxxxxxxxxx> > > Bob here is something else I found tonight > > I created a simpler program that calls the cgiInit() and then it tests > to see if the cgiInit() has a value <= 0 and it does....so it appears > that the cginit() is not loading correctly > > Here is the program code > > ********************************************************************** > ** > ******** > * HEADER FILES > > > ********************************************************************** > ** > ******** > H BNDDIR('CGILIB') > > > ********************************************************************** > ** > ******** > * FILES > > > ********************************************************************** > ** > ******** > > ********************************************************************** > ** > ******** > * INCLUDE STATEMENT > > > ********************************************************************** > ** > ******** > /include xtools/qcpysrc,cgilib > > > ********************************************************************** > ** > ******** > > ********************************************************************** > ** > ******** > * STANDALONE VARIABLES > > > ********************************************************************** > ** > ******** > DLNAME S 20A > > DSZHEADER C 'Content-type: text/html\n\n' > > DSZHTML S 1000A VARYING > > DNCOUNT S 10I 0 > > > ************************************************************************ > ******** > * MAINLINE > > > ************************************************************************ > ******** > C callp cgiInit() > > C if cgiInit() <= 0 > > C eval *inlr = *on > > C return > C else > > C eval lname = cgiGetVar('LAST') > C endif > C eval *inlr = *on > C return > > I compiled it and then ran it through debug that is where I noticed it > was failing. > > Douglas > > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] > On Behalf Of D.W. > Sent: Sunday, October 09, 2005 3:04 PM > To: 'Web Enabling the AS400 / iSeries' > Subject: RE: [WEB400] Combining numeric values > > > I changed the code so that it is using an EVAL statement to write the > record directly to the PF but it still does not show any data.....so I > am wondering if it is in fact passing data or the cgi program > receiving it.....the output to the screen which I am using with a > cgiStdout line is working so the service program seems to be ok from > what I can tell at this point. > > I am at a loss on where to go from here Bob. > > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] > On Behalf Of D.W. > Sent: Sunday, October 09, 2005 9:49 AM > To: 'Web Enabling the AS400 / iSeries' > Subject: RE: [WEB400] Combining numeric values > > > I am doing that when I get the data from the browser but was using the > MOVE statement to actually place the data in the PF > > > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] > On Behalf Of Bob Cozzi > Sent: Sunday, October 09, 2005 8:59 AM > To: 'Web Enabling the AS400 / iSeries' > Subject: RE: [WEB400] Combining numeric values > > > Did you try what Scott suggested? Is your LASTNAME field longer than > LANME and therefore since you're using MOVE (which is "move right") > you're simply not seeing the data in the LNAME field. Normally would > you would do this: > > Eval LNAME = cgiGetVar('LAST') > > > -Bob Cozzi > www.RPGxTools.com > RPG xTools - Enjoy programming again. > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] > On Behalf Of D.W. > Sent: Sunday, October 09, 2005 12:01 AM > To: 'Web Enabling the AS400 / iSeries' > Subject: RE: [WEB400] Combining numeric values > > Here is a copy of the HTML > > <HTML> > <HEAD> > <TITLE>This is a test</TITLE> > </HEAD> > <BODY> > <FORM ACTION="http://192.168.0.200/cgi-bin/test1"; METHOD="GET"> > <INPUT TYPE="text" NAME="LAST"> > <INPUT TYPE="SUBMIT"> > </FORM> > </BODY> > </HTML> > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] > On Behalf Of cozzi@xxxxxxxxx > Sent: Saturday, October 08, 2005 11:51 PM > To: Web Enabling the AS400 / iSeries > Subject: RE: [WEB400] Combining numeric values > > > > Look at you <INPUT> tag in your HTML. > Is the name="LAST" exactly the same as your cgiGetVar('LAST') call? If > not, that's your problem. These names are case sensitive--A common > problem. > > -Bob > > > > -------- Original Message -------- > > Subject: RE: [WEB400] Combining numeric values > > From: "D.W." <dpalme@xxxxxxxxxxx> > > Date: Sat, October 08, 2005 10:16 pm > > To: "'Web Enabling the AS400 / iSeries'" <web400@xxxxxxxxxxxx> > > > > This is turning into one of those projects that always takes twice > > as long as it should :) > > > > This is probably more for Bob Cozzi but if anyone else can assist I > > promise to READ EVERY SINGLE post and respond appropriately. > > > > I have setup a very simple webpage that has one input tag called > > LAST (for last name) and by using the GET method I can see it being > > passed so I know this part is working correctly. > > > > My program takes this input via cgiGetVar and assigns it to LAST > > NAME with the following lines of code: > > > > C CALLP cgiinit() > > C EVAL LASTNAME = cgiGetVar('LAST') > > > > I am then attempting to write this to a PF called RECM with the > > following: > > > > C MOVE LASTNAME LNAME > > C WRITE RECM > > > > A blank record is written to the file but nothing in the LNAME > > field...so either I am not getting the data correctly from the web > > or I am missing something else along the way....any suggestions, > > hints would be appreciated. > > > > Douglas > > > > > > -----Original Message----- > > From: web400-bounces@xxxxxxxxxxxx > > [mailto:web400-bounces@xxxxxxxxxxxx] > > On Behalf Of cozzi@xxxxxxxxx > > Sent: Saturday, October 08, 2005 5:46 PM > > To: Web Enabling the AS400 / iSeries > > Subject: RE: [WEB400] Combining numeric values > > > > > > Douglas, > > > > Are you saying that you have 3 input fields on the web page. You > > want to take them and combined them into one long field in the CGI > > program? > > > Is that right? > > > > Then, yes, use + in EVAL to do that. eval ssn = SSN1+SSN2+SSN3 > > > > Of course you'd have to do the appropriate edit check before this to > > insure they have the right number of digits. > > > > -Bob > > > > > > > -------- Original Message -------- > > > Subject: [WEB400] Combining numeric values > > > From: "D.W." <dpalme@xxxxxxxxxxx> > > > Date: Sat, October 08, 2005 3:36 pm > > > To: "Web Enabling the AS400 / iSeries" <web400@xxxxxxxxxxxx> > > > > > > One of our physical files has a field that is used for holding SSN > > > data, 9 characters in length with no decimals. > > > > > > With cgi, we are parsing the data into three separate variables to > > > ensure the length is correct and contains only numeric values..IE: > SS1 > > > > > 3 characters in length, SS2 2 characters in length and SS3 4 > > > characters in length. > > > > > > Where I am stumped is attempting to combine these into a fourth so > > > that if I have 123-45-6789 as a SSN it will come in via the browser > as > > > > > SS1=123, SS2=45, SS3=6789 I can turn it into 123456789. > > > > > > I thought about defining the variables as character type and then > > > concatenate them with an EVAL statement and then just write it to > the > > > PF...anyone have any issues with this? Any suggestions would be > > > appreciated. > > > > > > Douglas > > > > > > -- > > > This is the Web Enabling the AS400 / 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. > > > > -- > > This is the Web Enabling the AS400 / 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. > > > > > > -- > > This is the Web Enabling the AS400 / 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. > > -- > This is the Web Enabling the AS400 / 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. > > > -- > This is the Web Enabling the AS400 / 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. > > > > > -- > This is the Web Enabling the AS400 / 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. > > > -- > This is the Web Enabling the AS400 / 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. > > > -- > This is the Web Enabling the AS400 / 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. > > > -- > This is the Web Enabling the AS400 / 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.
midrange.com
