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



Tom,

It seems to be that I see a bunch of those codes with all your posts.

Jim

At 07:13 PM 6/20/2002 -0400, you wrote:
>Jon Paris wrote:
>
> >You should be able to use this which is a little shorter and (I think) mor=
>e
> >obvious - plus if you change the size of the field W-Path the compiler wil=
>l
> >automagically adjust for you.
> >
> >call 'Qp0lGetPathFromFileID'
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 using
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 by reference =3DA0 =
>=3DA0W-Path
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 by value =3DA0 =3DA=
>0 =A0 =A0 =A0Length of =3DA0 =3D
> >=3DA0W-Path =A0<<<<<<<<<<
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 by reference =3DA0 =
>=3DA0W-FileID
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 giving
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 W-PathPtr
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 end-call
> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0
>
>First, to Jon, thanks for the comment. Probably true that it's a bit more o=
>bvious. The actual code that I posted was from a small program that was cop=
>y/pasted together and modified a couple dozen ways in order to get somethin=
>g to work. Though I tried to keep the code readable, some aspects naturally=
>  suffered. Your way may be better in this case and in most cases.
>
>But more importantly, I'm curious if everyone else sees a bunch of "=3DA0" =
>strings in what I've posted and various "=3D" characters at end-of-line whe=
>re words break instead of word-wrap. (The included 'Reply' text above has s=
>ome, but what about the rest of the text in this note?)
>
>I set up some Netscape Webmail accounts and was experimenting with them. If=
>  the messages are going to look that bad and be unreadable, I'll take care =
>with what I subject you other subscribers to.
>
>So...
>    Any complaints about this note?
>    How's it look?
>
>(I'm curious about the leading blanks on those previous lines.)
>
>Thanks.
>
>Tom Liotta
>
>--
>Tom Liotta
>The PowerTech Group, Inc.
>19426 68th Avenue South
>Kent, WA 98032
>Phone =A0253-872-7788
>Fax =A0 =A0253-872-7904
>http://www.powertechgroup.com
>
>
>
>__________________________________________________________________
>Your favorite stores, helpful shopping tools and great gift ideas. Experien=
>ce the convenience of buying online with Shop@Netscape! http://shopnow.nets=
>cape.com/
>
>Get your own FREE, personal Netscape Mail account today at http://webmail.n=
>etscape.com/
>
>_______________________________________________
>This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
>To post a message email: COBOL400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
>or email: COBOL400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/cobol400-l.



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.