USAGE
   signed int scdtpack(
           signed int datafile,
           signed int *memofile );

PROTOTYPE IN
   sc_base.h

DESCRIPTION
   scdtpack will remove all memofile records which are not referenced
   by records in the datafile. The memofile will be compressed so
   that all active records will be contiguous after the pack. Files opened
   with the read only flag (SC_RDONLY) cannot be packed.

EXAMPLE
   #include <softc.h>
   #include <sc_base.h>

   void main()
   {
     int dbf, dbt;

     scdinit(20,0);
     if (scddopenx(&dbf,"TOC.DBF",SC_SHARED) == SC_SUCCESS) {
       if (scddopenx(&dbt,"TOC.DBT",SC_SHARED) == SC_SUCCESS) {
         scdtpack(dbf, &dbt);
         scdtclose(dbt);
       }
       scddclose(dbf);
     }
     scdterm();
   }