× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. WEB400
  3. October 2005

RE: 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 thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 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.