× 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 made it nothing and now its working....thanks for all the help over the 
weekend Bob, including everyone else.

I know some of my questions might have been stupid ones but I learned more 
this weekend than I could have possibly imagined and to that end I say 
thanks to everyone.

Douglas


On Mon, 10 Oct 2005 07:30:14 -0500, Bob Cozzi wrote
> I think nothing or %%EBCDIC%% is fine.
> 
> -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 10:01 PM To: 'Web Enabling the AS400 / iSeries' Subject: RE: 
> [WEB400] Combining numeric values
> 
> So should I set it to %%EBCDIC%% ?
> 
> -----Original Message-----
> From: web400-bounces@xxxxxxxxxxxx [mailto:web400-
> bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi Sent: Sunday, October 
> 09, 2005 9:55 PM To: 'Web Enabling the AS400 / iSeries' Subject: RE: 
> [WEB400] Combining numeric values
> 
> With Apache, you don't need mixed. 
> My system is being updated at the moment so I don't have access to 
> it. The old "native" HTTP service supported mixed mode-but the CGI stuff
> does not.
> 
> -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:44 PM To: 'Web Enabling the 
> AS400 / iSeries' Subject: RE: [WEB400] 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.
> 
> -- 
> 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.


If you bought, it was hauled by a truck - somewhere, sometime.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
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.