c
c Get a before record count
c
INTEGER ARRAY OLDCOUNT (30)
COMPUTE NRECS = NRECS(0)+1
REDEFINE ARRAY "OLDCOUNT" (NRECS)
FOR REC= 0,NRECS(0)
COMPUTE OLDCOUNT(REC+1)=NUMRECS(REC)
END FOR
...
execute dbms unload...
execute dbms purge...
execute dbms reload...
...
c
c check after record count
c
FOR REC= 0,NRECS(0)
IFTHEN (OLDCOUNT(REC+1) GT NUMRECS(REC))
SET ITEM FONT IDLAB4,0,0,0,0,"#A0A000"
SET ITEM IDLAB4,"Reloading Database - Some records were removed"
WRITE "*** " [OLDCOUNT(REC+1) - NUMRECS(REC)] [TRIM(RECNAME(REC))] "(" REC ") Records have been removed by the restructure."
ENDIF
END FOR
|