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