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



Live and learn.  (me that is)

I did it in RPG III like this:
FPF1     IT  F      10           EDISK
E    PF1             ARE     1   1  9P0
C           ARE,1     DSPLY
C                     SETON                     LR

Then I did a CVTRPGSRC and got this:
FPF1       IT   F   10        DISK
D ARE             S              9  0 DIM(1) EXTFMT(P) FROMFILE(PF1)
D                                     PERRCD(1)
C     ARE(1)        DSPLY
C                   SETON                                        LR

I stand (gratefully) corrected once again.
  --buck


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.