Function:     GDSA_TABLIS

Purpose:      List all tables present in a descriptor file

Category:     TABLES

File:         gdsa_table.c

Author:       K.G. Begeman

Use:          CALL GDSA_TABLIS( SET,       Input    CHARACTER*(*)
                                SUBSETS,   Output   INTEGER
                                TNAMES,    Output   CHARACTER*8
                                NITEMS,    Input    INTEGER
                                NFOUND,    Output   INTEGER
                                ERROR )    Output   INTEGER

              SET         Name of GDS set.
              SUBSETS     List of subsets where tables were found.
              TNAMES      List of GDS tables present.
              NITEMS      Size of TNAMES and SUBSETS.
              NFOUND      Number of tables found.
              ERROR       Error return code.

Updates:      Jul  1, 1987: KGB Document created.
              Nov 13, 1990: KGB Converted to C.