HP3000-L Archives

June 2000, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Gerald R. Dillard" <[log in to unmask]>
Reply To:
Date:
Mon, 26 Jun 2000 13:05:15 EDT
Content-Type:
text/plain
Parts/Attachments:
text/plain (47 lines)
In a message dated 06/26/2000 12:18:43 PM Eastern Daylight Time,
[log in to unmask] writes:

> !SETVAR CH_JOBNO010 "J" + CH_JOBNO010
>  !SETVAR COUNT010 FALSE
>  !WHILE COUNT010 <> TRUE DO
>  !    PAUSE 60;JOB="CHILDT01,ISDEV.AIHWORK";INTERVAL=10;EXIST
>  !    IF CIERROR = 0
>  !       LISTSPF O@;SELEQ=[JOBNUM=!CH_JOBNO010 AND &
>  !       JOBNAME=!CH_JOBNM010 AND FILEDES = $STDLIST AND JOBABORT = FALSE]
>  !       IF CIERROR = 4809
>  !          TELL @.!HPACCOUNT *E*
>  !          TELL @.!HPACCOUNT *E* !CH_JOBNM010 HAS ABORTED......
>  !          TELL @.!HPACCOUNT *E* !HPJOBNAME IS ABORTING IN STEP : 020
>  !          TELL @.!HPACCOUNT *E*
>  !          ABORT > $NULL
>  !       ENDIF
>  !       SETVAR COUNT010 TRUE
>  !    ELSE
>  !       IF CIERROR = 9032
>  !          COMMENT ** TIME LIMIT EXCEEDED. STARTING PAUSE FROM FRESH **
>  !          TELL @.!HPACCOUNT *I* !HPJOBNAME IS WAITING ON !CH_JOBNM010
>  !          PAUSE 120
>  !          SETJCW CIERROR 0
>  !       ELSE
>  !          ECHO *E*
>  !          ECHO *E* !HPJOBNAME ABORT : PAUSE ON !CH_JOBNM010 ABORTED..
>  !          ECHO *E*
>  !          ABORT > $NULL

Is this a typo in the following line or should this line be prefixed with a
"!"?

>          ENDIF
>  !    ENDIF
>  !ENDWHILE
>  !DELETEVAR COUNT010 > $NULL
>

Hope this helps.

Gerald R. Dillard
Outer Banks Solutions, Inc.
<A HREF="[log in to unmask]">[log in to unmask]</A>
<A HREF="www.outerbankssolutions.com">www.outerbankssolutions.com</A>
Phone: 919-231-2171 Fax: 919-231-7077 Sales: 800-558-5336

ATOM RSS1 RSS2