!
! LIBGENLST -- PROCEDURE TO GENERATE THE TABLE OF CONTENTS FILES
!
DELETE GEN-LISTS;
DEFINE PROCEDURE GEN-LISTS
READY MACRDOCS READ
:LIST-DOCS
:LIST-DOCNUM
:LIST-STATUS
:LIST-DIST
:LIST-GROUP
:LIST-CURRENT
:LIST-ALL
END-PROCEDURE