Teaching points with a name from string variable

DEF new_cycle_test( )


;FOLD PTP HOME bla bla inline bla


lift=30


REPEAT


;this in the beginning of riveting
BASE_DATA[32].z=BASE_DATA[32].z+lift


;FASTENER 1
;FOLD LIN P12 bla bla inline bla
pointNumber[]="12"
riveting(pointNumber[])


;and this in the end of riveting
BASE_DATA[32].z=0


;this is only for visual confirmation
;FOLD LIN P12 bla bla inline bla


UNTIL single_drive==TRUE


;FOLD PTP HOME bla bla inline bla


END




DEF riveting (numVar[]:OUT)


INT null
E6POS e6posVar
CHAR numVar[]
CHAR prevPointName[24]


$flag[1]=StrClear(prevPointName[])
prevPointName[] = "XP"
null = StrAdd(prevPointname[], numVar[])


above_pin=$POS_ACT
pos_newPoint=$POS_ACT
;toolready() ;checking that the right haeger tool is ready for fastening


if base_data[32].z==$world.z then
  halt ;something is not right...
endif


$BASE.z=1
LIN above_pin


$BASE.z=0
LIN above_pin


;step below handles the position correction and haeger commands and is disabled for testing purposes
;step()


;IF teaching==TRUE THEN
; IF ((pos_newPoint.X<>above_pin.X) OR (pos_newPoint.Y<>above_pin.Y)) THEN
pos_newPoint.x=pos_newPoint.X+100 ;only for testing
$flag[1]=strtoe6pos(prevPointName[], pos_newPoint)  ;this is what I tried but obviously it worked in the opposite way I was hoping


;????????????????????????


; ENDIF
;ENDIF


BASE_DATA[32].z=BASE_DATA[32].z+lift
LIN above_pin
;lower_tool_check()  ;checking that the Haeger lower tool didn't get stuck with the fastener


$flag[1]=StrClear(pointNumber[])


END