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.
(723/700) Continue?
 CPU sec. = 117.  elapsed min. = 3.  TUE, MAY 21, 2002, 12:16 PM.



Here is the list of commands:


!BUILD UPSTRK7.PUB;REC=-140,,F,ASCII;DISC=100000,10,1;MSG
!FCOPY FROM=UPSTRK6.PUB;TO=UPSTRK7.PUB;NOUSERLABELS
!WHILE FINFO("UPSTRK7.PUB.HITEST",'EOF') > 0 DO
!     PURGE UPSTRK6B.PUB
!     PURGE UPSTRK6C.PUB
!     PAUSE 15
!     CONTINUE
!     PURGE UPSTMP,TEMP
!     INPUT _VAR_1<UPSTRK7.PUB
!     SETVAR _VAR_EDP STR('!_VAR_1',1,10)
!     SETVAR _VAR_2 STR('!_VAR_1',12,12)
!     SETVAR _VAR_3 STR('!_VAR_1',24,2)
!     SETVAR _VAR_5 [log in to unmask]
!     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
!     IF "!_VAR_3" = "85" THEN
!         SETVAR _SM "FED-EX"
!     ELSEIF "!_VAR_3" = "02" THEN
!         SETVAR _SM "UPS GROUND"
!     ELSEIF "!_VAR_3" = "01" THEN
!         SETVAR _SM "UPS PRIORITY"
!     ELSEIF "!_VAR_3" = "03" THEN
!         SETVAR _SM "UPS NEXT-DAY"
!     ENDIF
!     BUILD UPSTMP;REC=-1008,,F,ASCII;TEMP
!          ECHO T
UPSTRK6B.PUB                                                    >UPSTMP
!          ECHO
A .5                                                             >>UPSTMP
!          ECHO Your Wine Country Gift Basket(s) shipped today via !
_SM.         >>UPSTMP
!          ECHO Please use the link(s) below to track the shipment
progress      >>UPSTMP
!          ECHO of your order.  If you have any questions or concerns,
please    >>UPSTMP
!          ECHO do contact us at 1-800-555-
1212.                                 >>UPSTMP
!
ECHO
>>UPSTMP
!
ECHO
>>UPSTMP
!          ECHO
Sincerely,
>>UPSTMP
!          ECHO Customer
Service                                                 >>UPSTMP
!
ECHO //
>>UPSTMP
!          ECHO K
UPSTRK6C.PUB,UNN                                               >>UPSTMP
!          ECHO
EXIT                                                             >>UPSTMP
!     RUN EDITOR.PUB.SYS<UPSTMP
!     CONTINUE
!        SETVAR _REC_1 "UPSTRK6C.PUB.HITEST"
!        SETVAR _TO_ "-t !_VAR_5"
!        SETVAR _FROM_ " -f !_VAR_6"
!        SETVAR _SUBJECT " -s 'Wine Country Gift Basket Order !_VAR_2'"
!        SETVAR _HOST_ " -h 10.1.1.5"
!        SETVAR _MSG_ " -m !_REC_1"
!        SETVAR _INFO_ "!_TO_!_FROM_!_SUBJECT!_HOST_!_MSG_"
!        DELETEVAR _VAR_TST
!        SETVAR _VAR_TST "!_VAR_2!_VAR_3"
!        IF _VAR_TST <> " " THEN
!     RUN MAIL.PUB.HITEST;INFO="!_INFO_"
!        ELSE
!         CONTINUE
!          ENDIF
!         CONTINUE
!ENDWHILE
!CONTINUE
!
!EOJ


Thanks in advance for your help.

Donald

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