Looks to me like you're still in MAIL or EDITOR when the EOJ is issued.

Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 2R-32
Seattle, WA  98124-2207
(v) 206-544-5679  (f) 206-544-5788  (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.



-----Original Message-----
From: Donald N. Frantum [mailto:[log in to unmask]]
Sent: Tuesday, May 21, 2002 1:55 PM
To: [log in to unmask]
Subject: [HP3000-L] Problems with while loop


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 *

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