RE: Varying length fields -- RPG400-L

Hold on! I didn't spell the VARYING keyword right, so the program didn't
compile and I ended up looking at the original without the VARYING
keyword. I since redid it, and it works the way I would expect it to
work, each element's length is set to the length of the data in the
compile-time array.  That's nice!

Bob


> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of Bob Cozzi
> Sent: Wednesday, July 17, 2002 3:16 PM
> To: rpg400-l@midrange.com
> Subject: RE: Varying length fields
>
>
> Never mind, I just did a debug on it, and each element %LEN()
> return 80. :(
>
> > -----Original Message-----
> > From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com]
> > On Behalf Of Bob Cozzi
> > Sent: Wednesday, July 17, 2002 3:09 PM
> > To: rpg400-l@midrange.com
> > Subject: Varying length fields
> >
> >
> > Hans,
> >
> > In an array situation with compile-time data, what are the
> lengths of
> > the array elements if %len() is used on them, as follows?
> Would they
> > each be 80 bytes long, or would the length of the data in
> the element
> > initially set the length of the array elements?
> >
> >
> >
> >      D MyHTML          S             80A   Dim(10) VARYING CTDATA
> > PERRCD(1)
> > ...
> > **CTDATA MYHTML
> > <HTML>
> > <HEAD>
> > <TITLE>My First Web Page</TITLE>
> > </HEAD>
> > <BODY>
> > <h2>Hello world!</h2>
> > My Name is <b>Bob Cozzi!</b>
> > </Body>
> > </HTML>
> > <!-- End of HTML -->
> >
> >
> > _______________________________________________
> > 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.
> >
> >
>
> _______________________________________________
> 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.
>
>

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.