|
Bruce: I'll test this technique soon but have a question... How did you work out the reasoning for 'USING... BY REFERENCE FILE-ID'????? That seems to be the significant difference between everything I tried and what you suggest. I was using BY VALUE for that parm. Thanks major. Tom Liotta "Bruce Vining" <bvining@us.ibm.com> wrote: > WORKING-STORAGE SECTION. > 01 FILE-ID PIC X(16) > VALUE X'0000000000000001843E02D800004C26'. > 01 PATH-BY-BUFFER PIC X(1024). > 01 PATH-SIZE PIC S9(09) BINARY VALUE 1024. > 01 PATH-POINTER POINTER. > LINKAGE SECTION. > 01 PATH-BY-POINTER PIC X(1024). > PROCEDURE DIVISION. > MAIN-LINE. > CALL "Qp0lGetPathFromFileID" > USING BY REFERENCE PATH-BY-BUFFER, > BY VALUE PATH-SIZE, > BY REFERENCE FILE-ID > GIVING PATH-POINTER. -- Tom Liotta The PowerTech Group, Inc. 19426 68th Avenue South Kent, WA 98032 Phone 253-872-7788 Fax 253-872-7904 http://www.powertechgroup.com __________________________________________________________________ Your favorite stores, helpful shopping tools and great gift ideas. Experience the convenience of buying online with Shop@Netscape! http://shopnow.netscape.com/ Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/
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.
midrange.com
