PROGRAM
STRING*32 NAME CCB RECNAME
STRING*254 CMDSTR
INTEGER BLINE
SET CCB ("Current Command Buffer") BLINE (1)
DELETE BUFFER CCB
CREATE BUFFER CCB

FOR INXNO = 1,DBINDS(0)
. COMPUTE NAME = DBINDN(INXNO)
. COMPUTE  RECNAME = RECNAME(DBINDR(INXNO))
. COMPUTE CMDSTR = 'REMARK "Rebuilding index ' + NAME + ' ON ' + RECNAME+'"'
. PUT LINE TO BUFFER CCB NUMBERED BLINE FROM CMDSTR
. COMPUTE BLINE = BLINE + 1

. COMPUTE CMDSTR = "DROP DBINDEX " + NAME + " ON " + RECNAME
. PUT LINE TO BUFFER CCB NUMBERED BLINE FROM CMDSTR
. COMPUTE BLINE = BLINE + 1

. COMPUTE CMDSTR = "CREATE DBINDEX " + NAME + " ON " + RECNAME
. PUT LINE TO BUFFER CCB NUMBERED BLINE FROM CMDSTR
. COMPUTE BLINE = BLINE + 1

. COMPUTE CMDSTR = "               (" 

. FOR I = 1,DBINDV(inxno)
.   COMPUTE CMDSTR = CMDSTR + DBINDT(inxno,I)
.   PUT LINE TO BUFFER CCB NUMBERED BLINE FROM CMDSTR
.   COMPUTE BLINE = BLINE + 1
.   COMPUTE CMDSTR = "                " 
. END FOR

. COMPUTE CMDSTR = "               )" 
. IFTHEN (DBINDU(inxno) EQ 1)
.   COMPUTE CMDSTR = CMDSTR + " /UNIQUE"
. ENDIF
. PUT LINE TO BUFFER CCB NUMBERED BLINE FROM CMDSTR
. COMPUTE BLINE = BLINE + 1
END FOR
END PROGRAM

INCLUDE BUFFER "Current Command Buffer"