|
midrange.com
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.
