× 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.



Peter,

you can't rely on the data being of a certain size when read
from a web page.  You can control it's Max size, but that's
about it.

You really should be using 1 of 2 options.

1.  Read the data in (QtmhGetEnv or QtmhRdStin, depending if
it's a GET or POST).  Then, use QtmhCvtDB to convert the
data into a usable format.
2.  Use the QzhbCGIParse API to read in each variable at a
time.  (my preferred method).

#1 is cumbersome and yucky.  #2 is as easy as pie.  My first
e-RPG book explains #1, and my 2nd will also include #2
(hopefully out in 3 or so months).

In the meantime, I do have some wrappers that may help on my
webpage at:
http://www.bvstools.com/download.html

The "2nd set of HTTP Procedures" contains a wrapper for the
QzhbCGIParse API that you can use like this:

eval Myfield = #CGIParse('-value myField')

VERY easy to use.

On Tue, 26 Feb 2002 16:04:49 -0500
 Peter_Vidal@pall.com wrote:
> Hi group!
>
> I have a Program A that is sending three parameters to a
> Program B:
>
> Field 1 = 5 char long, value is '1'
> Field 2 = 15 char long, value is '1364647'
> Field 3 = 7 char long, value is M111110
>
> When I display my values on program B, I am only able to
> receive them using a
> data structure like this:
>
> DEnvData          DS
> D   StartAtLoc                        Like(RQGDML)  (is 5
> long)
> D   StartAtItem                       Like(RQGDGR)  (is
> 15 long)
> D   StartAtOrd                   7
>
> However, while debugging Program B, EnvData contains the
> following value:
> EVAL EnvData
> STARTATLOC OF ENVDATA = '21307'
> STARTATITEM OF ENVDATA = '459M111110     '
> STARTATORD OF ENVDATA = '       '
>
> How I can determine the right positions of the data?  Is
> the data structure
> poorly defined?
>
> TIA
>
> Peter Vidal
> Pall Aeropower Corp.
> Programmer Analyst
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
>

Bradley V. Stone
BVS.Tools
www.bvstools.com


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.