!***************************************************************
! PROFLIBHND       / 2002-03-22 / Vertex Systems
!***************************************************************
!
#CODETOPARAMS#
!
C$= get(CODE)
A$= ""
!
if cmp(C$[1,4],"RC1-") == 0 then exit
A$= C$[5,0]
L= len(A$)
if L < 1 then exit
!
set "ANGLE" A$
!
#CODETOPARAMS#
!
#PARAMSTOCODE#
!
A$= get(ANGLE)
!
C$= "RC1-"&A$
set "CODE" C$
!
#PARAMSTOCODE#
!
#ADDNEWCODE#
!
C$= get(CODE)
Dir$= get("LIBPATH")
!
if cmp(C$[1,4],"RC1-") == 0 then exit
A$= C$[5,0]
if len(A$) < 1 then exit
!
IdD= 1
IdP= 2
!
Path$= Dir$&"d_PROFDATA"
dbopen(IdD) Path$,1
Path$= Dir$&"d_PROFPAR"
dbopen(IdP) Path$,1
!
if dbvalid(IdD) < 1  || dbvalid(IdP) < 1 then
  dbclose(IdD)
  dbclose(IdP)
  exit
endif
!
RidP= dbaddrow(IdP,1,"CODE",C$)
dbputf(IdP) RidP,"FL_L1","150"
dbputf(IdP) RidP,"FL_L2","150"
dbputf(IdP) RidP,"ANG_U",A$
dbputf(IdP) RidP,"PROF_T","2"
!
RidD= dbaddrow(IdD,1,"CODE",C$)
dbputf(IdD) RidD,"ACCURATE","TRIMRC"
dbputf(IdD) RidD,"COARSE","TRIMRC"
!
if RidP < 0 || RidD < 0 then 
  dbdelrow(IdD) RidD
  dbdelrow(IdP) RidP
else
  set RETURN "1"
endif
!
dbclose(IdD)
dbclose(IdP)
!
#ADDNEWCODE#
!