*
*
* DNRECLAS.CMD   This command file is used to edit the cl field in dnn.dbf
*
* This requires that you SET DEFAULT TO the drive letter containing
* dNAMES data files.
******************************************************************************
CLEAR
ERASE
SET talk OFF
RESTORE FROM dnmem
USE dnn
SELECT seco
USE dnc
SELECT PRIMARY
INPUT 'Enter which record number you want to start at. ' TO start
IF start=0
 GO TOP
ELSE
 GO start
ENDIF start=0 
ERASE
@ 8,0 SAY 'To Exit this program, enter "99"'
@ 10,00 SAY 'Enter classification '
@ 12,0 SAY mcl1
@ 13,0 SAY mcl2
@ 14,0 SAY mcl3
@ 15,0 SAY mcl4
@ 16,0 SAY mcl5
@ 17,0 SAY mcl6
@ 18,0 SAY mcl7
@ 19,0 SAY mcl8
@ 20,0 SAY mcl9
@ 21,0 SAY mcl10
DO WHILE t
 SELE PRIM
 STORE # TO nn
 STORE cl TO tcl
 @ 1,0 SAY name,trim(city)+ ', ' +trim(state)
 SELECT seco
 GO nn
 @ 2,0 SAY com+'RECORD #'+STR(#,5)
 SELECT PRIMARY
 IF code= '*' 
  STORE str(no,5) TO nnn
  SELECT seco
  USE dnmc INDEX dnxmc
  FIND &nnn
  @ 3,0 SAY line1
  @ 4,0 SAY line2
  @ 5,0 SAY line3
  USE dnc
  GO no
  SELECT PRIMARY
 ELSE
  @ 3,0
  @ 4,0
  @ 5,0
 ENDIF code= '*'  
 STORE t TO checkcl
 DO WHILE checkcl
 @ 10,21 GET tcl PICTURE '99-99-99-99-99-99' 
 READ
 IF tcl='99'
  RETURN
 ENDIF
   IF val($(tcl,1,2))>endcl.OR.val($(tcl,4,2))>endcl.OR.;
    val($(tcl,7,2))>endcl.OR.val($(tcl,10,2))>endcl.OR.;
    val($(tcl,13,2))>endcl.OR.val($(tcl,16,2))>endcl.OR.$(tcl,1,2)='00'
    SET inte OFF
    @ 10,45 SAY 'INVALID ENTRY' 
    SET inte ON
   ELSE
    @ 10,45 SAY '               ' 
    STORE f TO checkcl
   ENDIF
 ENDDO
 REPL cl WITH tcl
 SKIP
ENDDO WHILE t 
RELEASE tcl,checkcl,start,nn,nnn
RETURN