|
Here is an example of not using the file as Externaly described. ___________________________________________________ A R TESTDSR A FIELD1 1 A FIELD2 3 0 * A PRD1 9 2 A PRD2 9 2 A PRD3 9 2 A PRD4 9 2 A PRD5 9 2 A PRD6 9 2 A PRD7 9 2 A PRD8 9 2 A PRD9 9 2 A PRD10 9 2 A PRD11 9 2 A PRD12 9 2 ___________________________________________________ fTestDs IF F 63 Disk * Define the Record format for the File TestDs. d Test ds d Fld1 1 d Fld2 3p 0 d Prd 9p 2 dim(12) * Use the Record format of the Data Structure Test. iTestDs aa i 1 63 Test c Read TESTDS c DoW not %eof(testds) c fld1 DSPLY c Read TESTDS c Enddo c Eval *inlr = *on ______________________________________________________ Send your holiday cheer with http://greetings.yahoo.ca
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.