You may have to echo your suprtool commands to a file. Then use the ;stdin=
parm of the run statement. Sometimes when programs are run in a loop, they
don't react the same way as if they are run outside a loop.
Ron Horner
HP3000 Systems Administrator
JCPenney Logistics
[log in to unmask]
(414) 259-2274
AIM: hornerrr
----- Original Message -----
From: "Donald N. Frantum" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, May 21, 2002 3:55 PM
Subject: 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 *
>
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby notified that you have received this message in error and
that any review, dissemination, distribution or copying of this message
including any attachments is strictly prohibited. If you received this
in error, please contact the sender and delete the material from any
computer.
|
