Re: Easy way to get file documentation

["hwarangron" <hwarangron@xxxxxxx>]

Mike,
We published an article on how to do this ages ago in Midrange (and it's
included in one of our books). I'd be glad to send you the code (off line if
you want - its about 450 lines in rgpiv, plus the display file). It produces
a screen that looks something like this.

                           Display Access Paths

Physical File  . . . . . . . .:  FAMLY       Number of logicals. . . . .:
0021
Library  . . . . . . . . . . .:  *LIBL

Library         File                Format         Key Field   Seq
Select/Omit Values
C51FILES   FAMLY         FAMREC     FMNUM      A    Family Number

C51FILES   FAMLYLB    FAMREC     FMHARA      A   Home Phone Area Code
                                                               FMHPHN     A
Home Phone Number
                                                               FMNUM       A
Family Number

C51FILES   FAMLYLA    FAMREC     FMNAME     A    Family Name
                                                               FMNUM       A
Family Number
                                                               FMDELT
O   EQ '*'

C51FILES   FAMLYLC    FAMREC     FMCLAS     A     Financial Class
                                                               FMNAME     A
Family Name

                  More...



  F3=Exit       F12=Previous













> Subject: RE: Easy way to get file documentation