CIMFIL/ON,PPRINT
$$ Macro to store the tool name in a variable
$$ to re-issue with the tool change
TXT=TEXT/CLW $$ Text of message
TEST=TEXT/'TOOL NAME' $$ Text to test for
OKCOM=INDXF(TXT,TEST)
IF (OKCOM.NE.0) THEN
$$ This is a tool comment
MESS=TEXT/OMIT,TXT,1 $$ Omit trailing blank
COL=TEXT/':'
COLPOS=INDXF(MESS,COL) $$ position of : in MESS
LEN=CANF(MESS,1) $$ number of char in MESS
NMESS=TEXT/RANGE,MESS,COLPOS+1,LEN $$ Extract from : to end
ELSE
DMY=POSTF(13) $$ Process
ENDIF
CIMFIL/OFF