Thanks to all who responded to my previous post. Fred at Intercim
(AustinNC) came up with the winning solution (again). Thanks Fred!.
$$*********************************************************************
$$ T H R E A D S E C T I O N
$$*********************************************************************
CIMFIL/ON,THREAD
JHD=POSTF(20) $$ SAVE THE RECORD
$$ CHECK TO BE IN RPM MODE
JHDSPD=POSTF(01, 01, 1517)
IF( JHDSPD .GT. 79 ) THEN
ERR1=TEXT/'** ERROR **, MUST BE IN RPM MODE TO THREAD'
PPRINT/ERR1 $$ WRITE THE ERROR MESSAGE TO THE .LST FILE
REWIND/PUNCH $$ EMPTY THE PUNCH FILE
XX=FILEF(4,1,ERR1) $$ WRITE ERROR MESSAGE TO THE PUNCH FILE
XX=FILEF(0,1,ERR1) $$ WRITE ERROR MESSAGE TO THE SCREEN
XX=POSTF(9,2,14000) $$ MAKE THE CURRENT CL RECORD A FINI
XX=POSTF(13) $$ EXECUTE THE FINI
ENDIF
JHD=POSTF(21) $$ RESTORE THE RECORD
JHD=POSTF(13) $$ EXECUTE THE THREAD COMMAND
CIMFIL/OFF
John H. Durrant
ATK Thiokol Propulsion
Pro/E Wildfire
-
(435) 863-6135
