Skip to main content
A
AustinN.C.,Inc.1-Visitor
1-Visitor
May 16, 2005
Question

re: Generating FIL errors - and the answer is...

  • May 16, 2005
  • 1 reply
  • 469 views
John,

If you are going to be in Orlando you can by me a beer! 😉

Fred

    1 reply

    P
    ptc-2783361-Visitor
    1-Visitor
    May 16, 2005
    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
    Terms & ConditionsAccessibility statement