At 16:55 -0400 5/21/02, Donald N. Frantum wrote:
>I am trying to invoke the following set of commands in a job, however the
>following error occurs:
>
>:EOJ
> EOJ
> Command not programmatically executable. (CIERR 12)
>
> Error:  Fatal problem during processing
>
>
> RUN SUPRTOOL.PUB.ROBELLE
> Program terminated in an error state. (CIERR 976)
> Error executing commands in WHILE loop. (CIERR 10310)
> REMAINDER OF JOB FLUSHED.
...
>!WHILE FINFO("UPSTRK7.PUB.HITEST",'EOF') > 0 DO
...
>!     SETVAR _VAR_6 [log in to unmask]
>!     RUN SUPRTOOL.PUB.ROBELLE
>          SET VARSUB ON
>          IN UPSTRK6A.PUB
>          DEF THEREST,12,161
>          IF C-EDP = !_VAR_EDP
>          EXT THEREST
>          OUT UPSTRK6B.PUB,ASCII
>          XEQ
>          SET VARSUB OFF
>      EXIT
>!     CONTINUE
...
>!         CONTINUE
>!ENDWHILE
>!CONTINUE
>!
>!EOJ


You can't run Suprtool (or any program) within a loop like this. Instead,
create a "use" file and run Suprtool within the loop with STDIN redirected.
Something like this:

  while finfo('myfile7','eof') > 0
    echo in myfile6            > supruse
    echo def therest,12,161   >> supruse
    echo if c-edp = !_var_edp >> supruse
    echo ext threset          >> supruse
    echo out,myfile6b         >> supruse
    echo exit                 >> supruse
  run suprtool.pub.robelle < supruse

  # other stuff goes here

  endwhile

HTH,


Barry Lake                               [log in to unmask]
Allegro Consultants, Inc.                http://www.knowspam.allegro.com
(408)252-2330
-------------

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