#include	"focas1.h"

catlist (catalog, fields)
char	*catalog;
char	*fields;
{
    struct objrec ob;

    cfd = catopen (catalog, 0);

    for (;;) {
	if (rdcatob (cfd, 0L, &ob))
	    break;
	if (ffilter (&ob) != 1)
	    continue;
	if (stctlst (fields, &ob))
	    break;
    }

    fclose (cfd);
}