!***************************************************************
! PROFLIBHND       / 2002-03-22 / Vertex Systems
!***************************************************************
!
#CODETOPARAMS#
!
Code$= get(CODE)

if cmp(Code$[1,1],"Z") == 0 then exit

A$= Code$[2,0]
P= findstr(A$,"-")
if P > 1 then FL$= A$[1,P-1]

B$ = A$[P+1,0]
P= findstr(B$,"-")
if P > 1 then H$= B$[1,P-1]

C$ = B$[P+1,0]
P= findstr(C$,"-")
if P > 1 then FR$= C$[1,P-1]

D$ = C$[P+1,0]
T$= D$
!
set "FL_LEFT" FL$
set "FL_RIGHT" FR$
set "HEIGHT" H$
set "THICK" T$
!
#CODETOPARAMS#
!
#PARAMSTOCODE#
!
H$= get(HEIGHT)
T$= get(THICK)
FL$=get(FL_LEFT)
FR$=get(FL_RIGHT)
!
C$= "Z"&FL$&"-"&H$&"-"&FR$&"-"&T$
set "CODE" C$
!
#PARAMSTOCODE#
!
#ADDNEWCODE#
!
debug ./addnewcode.dbg

Code$= get(CODE)
Dir$= get("LIBPATH")
!
if cmp(Code$[1,1],"Z") == 0 then exit

A$= Code$[2,0]
P= findstr(A$,"-")
if P > 1 then FL$= A$[1,P-1]

B$ = A$[P+1,0]
P= findstr(B$,"-")
if P > 1 then H$= B$[1,P-1]

C$ = B$[P+1,0]
P= findstr(C$,"-")
if P > 1 then FR$= C$[1,P-1]

D$ = C$[P+1,0]
T$= D$

Height = H$
Thick = T$
TotHeight = Height + Thick + Thick
TotHeight$ = TotHeight
!
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",Code$)
dbputf(IdP) RidP,"HEIGHT",TotHeight$
dbputf(IdP) RidP,"FL_LEFT",FL$
dbputf(IdP) RidP,"FL_RIGHT",FR$
dbputf(IdP) RidP,"THICK",T$
!
RidD= dbaddrow(IdD,1,"CODE",Code$)
dbputf(IdD) RidD,"A",Area$
dbputf(IdD) RidD,"ACCURATE","Zed"
dbputf(IdD) RidD,"COARSE","Zed"
dbputf(IdD) RidD,"T",T$
dbputf(IdD) RidD,"IY",IY$
dbputf(IdD) RidD,"U",U$
dbputf(IdD) RidD,"PUNIT","1"
!
if RidP < 0 || RidD < 0 then 
  dbdelrow(IdD) RidD
  dbdelrow(IdP) RidP
else
  set RETURN "1"
endif
!
dbclose(IdD)
dbclose(IdP)
!
#ADDNEWCODE#
!