What Tracy said. To turn suspension off, add a ;PARM=32 to your RUN
SUPRTOOL... command.

At 04:15 PM 1/13/2004, Shahan, Ray wrote:
>Hi all,
>
>         I needed to do a quick and dirty, but I can't seem to get it to work
>as I thought it would.  Everything works except at the end of the suprtool
>input, i get the following errror (the script won't do the MPEX loop):
>
>Error:  EOF on stdin file
>
>  Program terminated in an error state. (CIERR 976)
>
>
>I'm sure it's a lame error, but I can't fix it, and I'm in a jam to get this
>done ASAP.
>
>
>TIA!!
>
>:-)
>
>
>!MPEX
>REPEAT
>  setvar SCFILENAME str("!MPEXCURRENTFILE",1,8)
>  ECHO   SET VARSUB ON                                        > SUPRIN
>  ECHO   IN !SCFILENAME.SHAHAN.DEVRNS                        >> SUPRIN
>  ECHO    PURGE KEYTOADD                                     >> SUPRIN
>  ECHO    DEF SHIPMENTNO,165,24                              >> SUPRIN
>  ECHO    DEF KEY-TO-ADD,1,32                                >> SUPRIN
>  ECHO    IF SHIPMENTNO <> " "                               >> SUPRIN
>  ECHO     EXT KEY-TO-ADD = (SHIPMENTNO + "!SCFILENAME")     >> SUPRIN
>  ECHO     SO SHIPMENTNO                                     >> SUPRIN
>  ECHO      DUP NONE KEYS                                    >> SUPRIN
>  ECHO     O KEYTOADD                                        >> SUPRIN
>  ECHO   XEQ                                                 >> SUPRIN
>  ECHO                                                       >> SUPRIN
>  ECHO   BA YTCTRL.DATAVSS.SFD,1,MGR                         >> SUPRIN
>  ECHO   IN KEYTOADD                                         >> SUPRIN
>  ECHO    PUT M-SHIPMENTNO                                   >> SUPRIN
>  ECHO   XEQ                                                 >> SUPRIN
>  ECHO   EXIT                                                >> SUPRIN
>
>  SUPR < SUPRIN
>
>FORFILES SC######.SHAHAN.DEVRNS (CREDATE > 12/31/03)AND (NOT OPENED)
>EXIT
>
>Ray Shahan
>
>"There is so much good in the worst of us,
>and so much bad in the best of us,
>that it behooves none of us
>to talk about the rest of us"
>                   --Robert Louis Stevenson?
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

--
Tom Brandt
Northtech Systems, Inc.
130 S. 1st Street, Suite 220
Ann Arbor, MI 48104-1343
http://www.northtech.com/

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *