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:
Reply To:
Date:
Mon, 26 Jun 2000 12:11:18 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (58 lines)
Hi to all,

I have the following piece of JCL which tries to read the status of another
job it has streamed earlier.. Everything goes through fine in this parent
job. But when it enters this WHILE LOOP, it gets out showing the following
error and the rest of the job does not go through at all..

 This ENDWHILE command does not have a corresponding WHILE.
 The ENDWHILE is ignored. (CIWARN 10303)

I have the following code inside the JCL which has the WHILE LOOP where it
aborts. The check for CIERROR being 4809 and 9032 goes through fine and I
tested this with the CHILDT01 falling under both those CIERROR conditions
and it was successfull. But this WHILE LOOP only executes once and then
comes out with CIERROR 10303. I have 2 WHILE Loops prior to this and both of
them go through the ENDWHILE perfectly and do not give this message but it
specifically happens only in this WHILE Loop.

!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
        ENDIF
!    ENDIF
!ENDWHILE
!DELETEVAR COUNT010 > $NULL

I guess it has something to do with the Syntax of the WHILE LOOP which I am
missing here.. So if anyone has has any idea on why this is happening then
please let me know a proper solution for this.. Thanks in advance.

With Best Regards
Raghu
I/S GOVT. (BLUE CARE) SYSTEMS.
* 423-757-7888

ATOM RSS1 RSS2