PROFILE_NUMBER=0
SUBASM_NUMBER=0
PROJECT_SHORT=REL_MODEL_NAME
CMASS=PRO_MP_MASS
CINDEX=REL_MODEL_NAME
CNAME=PTC_COMMON_NAME
ORITEXT = "_"
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP+"." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(CINDEX)\
-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "."+  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "."+  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF