× 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

I think we are making some progress, what is the recommended cgimode for
your software Bob?  That is, in the HTTPD config file?

We have been using mixed mode but it appears that might not be correct
from what I found in the job log for the PGM-QZSRCGI 


-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Cozzi
Sent: Sunday, October 09, 2005 9:30 PM
To: 'Web Enabling the AS400 / iSeries'
Subject: RE: [WEB400] Combining numeric values


Use F9 then type DSPJOBLOG
Also, if you add this to the CGI Program:

Callp  cgiDebug(*ON)

Before you call cgiInit() the routine will write data to the joblog,
such as the URL encoded string and other information. That info might
help determine what's wrong.

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: web400-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:web400-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of D.W.
Sent: Sunday, October 09, 2005 9:25 PM
To: 'Web Enabling the AS400 / iSeries'
Subject: RE: [WEB400] Combining numeric values

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

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.