JCL Error in IF ELSE: EXPECTED CONTINUATION NOT RECEIVED

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi All,

Can any one solve this error

//IFELSE JOB 'IF ELSE STRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
// JCLLIB ORDER=OSOP.BCB1O.PROC
//STEP1 EXEC PROC=VTOCLIST
//SYSIN DD *
LISTVTOC FORMAT,VOL=3390=WORKY1
/*
//IFPART IF STEP1.RC=0THEN
//STEP2 EXEC PROC=LISTPDS
//SYSIN DD *
LISTPDS DSN=OSOP.BCB1O.JCL,VOL=3390=WORKY1
//ELSEPART ELSE
//ELSECOND EXEC PROC=BHAVESH
// ENDIF

JESYSMSG

********************************* TOP OF DATA ****************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
10 IEFC621I EXPECTED CONTINUATION NOT RECEIVED
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC

******************************** BOTTOM OF DATA *************

JESJCL

1 //IFELSE JOB 'IF ELSE STRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
IEFC653I SUBSTITUTION JCL - 'IF ELSE STRUCTURE',NOTIFY=BCB1O,CLASS=Y
2 // JCLLIB ORDER=OSOP.BCB1O.PROC
3 //STEP1 EXEC PROC=VTOCLIST
4 XXVTOCLIST PROC
5 XXSTEP1 EXEC PGM=IEHLIST
6 XXSYSPRINT DD SYSOUT=*
7 XXDISK DD UNIT=3390,VOL=SER=WORKY1
8 //SYSIN DD *
9 XX PEND
10 //IFPART IF STEP1.RC=JCLERRORTHEN
11 //STEP2 EXEC PROC=LISTPDS
12 XXLISTPDS PROC
13 XXSTEP2 EXEC PGM=IEHLIST
14 XXSYSPRINT DD SYSOUT=*
15 XXDRUM DD UNIT=3390,VOL=SER=WORKY1,DISP=OLD
16 //SYSIN DD *
17 XX PEND
18 //ELSEPART ELSE
19 //ELSECOND EXEC PROC=BHAVESH
20 XXBHAVESH PROC
21 XXSTEP3 EXEC PGM=IEFBR14
22 XXSYSPRINT DD SYSOUT=*
23 XXALLOC DD DSN=OSOP.BCB1O.ALLOC,DISP=(NEW,CATLG,DELETE),
XX UNIT=3390,VOL=SER=WORKY1,
XX SPACE=(TRK,(2,2)),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
24 XXSYSOUT DD SYSOUT=*
25 XX PEND
26 // ENDIF

murmohk1 · Posted: Thu Apr 05, 2007 11:42 am Post subject:

Bhavesh,

monga · New User Joined: 18 Apr 2006 Posts: 13

IEFC621I lists the reason as expected continuation not received.

Can you modify this text as below:

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi
i replace JCLERROR WITH
//IFPART IF STEP1.RC=0THEN
then also it is giving the jclerror message

********************************* TOP OF DATA ***************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCb1O.PROC
10 IEFC621I EXPECTED CONTINUATION NOT RECEIVED
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
******************************** BOTTOM OF DATA *************

vkphani · New User Joined: 29 Oct 2003 Posts: 29

In the 8th line, after SYSIN DD *, where is the delimter /* ? Give that and try and give a space in between 0 and THEN in 10th line.

expat · Posted: Thu Apr 05, 2007 1:48 pm Post subject:

Is the SYSIN DD * defined in the PROC ?

If so, it's invalid.

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi all

i am again getting error

********************************* TOP OF DATA ***************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
10 IEF645I INVALID REFERBACK IN THE RC FIELD
******************************** BOTTOM OF DATA ************

i have modified as you said

JESJCL

********************************* TOP OF DATA ***************
1 //IFELSE JOB 'IFELSSTRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
2 // JCLLIB ORDER=OSOP.BCB1O.PROC
3 //STEP1 EXEC PROC=VTOCLIST
4 XXVTOCLIST PROC
5 XXSTEP1 EXEC PGM=IEHLIST
6 XXSYSPRINT DD SYSOUT=*
7 XXDISK DD UNIT=3390,VOL=SER=WORKY1
8 //SYSIN DD *
9 XX PEND
10 //IFPART IF STEP1.RC=0 THEN
11 //STEP2 EXEC PROC=LISTPDS
12 XXLISTPDS PROC
13 XXSTEP2 EXEC PGM=IEHLIST
14 XXSYSPRINT DD SYSOUT=*
15 XXDRUM DD UNIT=3390,VOL=SER=WORKY1,DISP=OLD
16 //SYSIN DD *
17 XX PEND
18 //ELSEPART ELSE
19 //ELSECOND EXEC PROC=BHAVESH
20 XXBHAVESH PROC
21 XXSTEP3 EXEC PGM=IEFBR14
22 XXSYSPRINT DD SYSOUT=*
23 XXALLOC DD DSN=OSOP.BCB1O.ALLOC,DISP=(NEW,CATLG,DELETE),
XX UNIT=3390,VOL=SER=WORKY1,
XX SPACE=(TRK,(2,2)),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
24 XXSYSOUT DD SYSOUT=*
25 XX PEND
26 // ENDIF

expat · Posted: Thu Apr 05, 2007 2:33 pm Post subject:

Here's a link to the fine manual which will tell you how yo fix your problem.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2B650/17.0?DT=20040712170508

murmohk1 · Posted: Thu Apr 05, 2007 2:34 pm Post subject:

Give stepname.procname in the IF condition.

expat · Posted: Thu Apr 05, 2007 2:41 pm Post subject:

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi

I am still getting error

even i have given the same name

10 IEF645I INVALID REFERBACK IN THE RC FIELD

JCl of VTOCLIST

//VTOCLIST PROC
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//DISK DD UNIT=3390,VOL=SER=WORKY1
// PEND

JCL of IFELSE

//IFELSE JOB 'IF ELSE STRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
// JCLLIB ORDER=OSOP.BCB1O.PROC
//STEP1 EXEC PROC=VTOCLIST
//SYSIN DD *
LISTVTOC FORMAT,VOL=3390=WORKY1
/*
//IFPART IF STEP1.VTOCLIST.RC=0 THEN
//STEP2 EXEC PROC=LISTPDS
//SYSIN DD *
LISTPDS DSN=OSOP.BCB1O.JCL,VOL=3390=WORKY1
/*
//ELSEPART ELSE
//ELSECOND EXEC PROC=BHAVESH
// ENDIF

dick scherrer · Posted: Fri Apr 06, 2007 8:20 am Post subject:

Hello,

You need to post all of the jcl and control statements together - the same as are submitted - and all of the messages from the actual job output. Please do not add anything to the submitted jcl.

The pieces posted are not complete.

Post the sysout that shows the jcl with line numbers.

When you post this information, use the "Code" tab at the top of the reply panel.

What you posted does not say anything about the "same name" - it says there is an invalid backward reference.

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi Dick

********************************* TOP OF DATA ***************
1 //IFELSE JOB 'IF ELSE STRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
IEFC653I SUBSTITUTION JCL - 'IF ELSE STRUCTURE',NOTIFY=BCB1O,CLASS=Y,MSGCLASS=X,MSGLEVEL=(1,1)
2 // JCLLIB ORDER=OSOP.BCB1O.PROC
3 //STEP1 EXEC PROC=VTOCLIST
4 XXVTOCLIST PROC
5 XXSTEP1 EXEC PGM=IEHLIST
6 XXSYSPRINT DD SYSOUT=*
7 XXDISK DD UNIT=3390,VOL=SER=WORKY1
8 //SYSIN DD *
9 XX PEND
10 //IFPART IF STEP1.VTOCLIST.RC=0 THEN
11 //STEP2 EXEC PROC=LISTPDS
12 XXLISTPDS PROC
13 XXSTEP2 EXEC PGM=IEHLIST
14 XXSYSPRINT DD SYSOUT=*
15 XXDRUM DD UNIT=3390,VOL=SER=WORKY1,DISP=OLD
16 //SYSIN DD *
17 XX PEND
18 //ELSEPART ELSE
19 //ELSECOND EXEC PROC=BHAVESH
20 XXBHAVESH PROC
21 XXSTEP3 EXEC PGM=IEFBR14
22 XXSYSPRINT DD SYSOUT=*
23 XXALLOC DD DSN=OSOP.BCB1O.ALLOC,DISP=(NEW,CATLG,DELETE),
XX UNIT=3390,VOL=SER=WORKY1,
XX SPACE=(TRK,(2,2)),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
24 XXSYSOUT DD SYSOUT=*
25 XX PEND
26 // ENDIF

JESYSMSG

********************************* TOP OF DATA ***************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
10 IEF645I INVALID REFERBACK IN THE RC FIELD
******************************** BOTTOM OF DATA *******

OSOP.BCB1O.PROC(VTOCLIST)

//VTOCLIST PROC
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//DISK DD UNIT=3390,VOL=SER=WORKY1
// PEND

OSOP.BCB1O.PROC(LISTPDS)

//LISTPDS PROC
//STEP2 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//DRUM DD UNIT=3390,VOL=SER=WORKY1,DISP=OLD
// PEND

OSOP.BCB1O.PROC(BHAVESH)

//BHAVESH PROC
//STEP3 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//ALLOC DD DSN=OSOP.BCB1O.ALLOC,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,VOL=SER=WORKY1,
// SPACE=(TRK,(2,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSOUT DD SYSOUT=*
// PEND

THIS IS THE CODE NOW PLEASE TELL ME WHAT IS WRONG WITH WHAT

***************************** Top of Data ********************
//IFELSE JOB 'IF ELSE STRUCTURE',NOTIFY=&SYSUID,CLASS=Y,
// MSGCLASS=X,MSGLEVEL=(1,1)
// JCLLIB ORDER=OSOP.BCB1O.PROC
//STEP1 EXEC PROC=VTOCLIST
//SYSIN DD *
LISTVTOC FORMAT,VOL=3390=WORKY1
/*
//IFPART IF STEP1.VTOCLIST.RC=0 THEN
//STEP2 EXEC PROC=LISTPDS
//SYSIN DD *
LISTPDS DSN=OSOP.BCB1O.JCL,VOL=3390=WORKY1
/*
//ELSEPART ELSE
//ELSECOND EXEC PROC=BHAVESH
// ENDIF
**************************** Bottom of Data ******************

agkshirsagar · Posted: Fri Apr 06, 2007 12:49 pm Post subject:

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi agkshirsagar

i have changed SYSOUT=* in PROC Change to a dataset.

but still it is giving error in 10 IEF645I INVALID REFERBACK IN THE RC FIELD
the jcl is same as above i have only changed the SYSOUT=* in PROC with a dataset

JESYSMSG

********************************* TOP OF DATA ***************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
10 IEF645I INVALID REFERBACK IN THE RC FIELD
******************************** BOTTOM OF DATA *******

expat · Posted: Fri Apr 06, 2007 2:18 pm Post subject:

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Hi expat

i have change it
//IFPART IF STEP1.VTOCLIST.RC = 0 THEN
and saved it and submitted it but still it is generating an error same as before

********************************* TOP OF DATA ***************
STMT NO. MESSAGE
3 IEFC001I PROCEDURE VTOCLIST WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
11 IEFC001I PROCEDURE LISTPDS WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
19 IEFC001I PROCEDURE BHAVESH WAS EXPANDED USING PRIVATE LIBRARY OSOP.BCB1O.PROC
10 IEF645I INVALID REFERBACK IN THE RC FIELD
******************************** BOTTOM OF DATA *******

dick scherrer · Posted: Fri Apr 06, 2007 8:31 pm Post subject:

Hello,

SYSOUT=* is quite normal in cataloged PROCedures. We have many coded this way.

The problem is the backward reference to

ybhavesh · New User Joined: 17 Feb 2007 Posts: 47 Location: mumbai

Yes Dick

It is working fine
after spending Two days on that program i want to know the reason why it is not accepting
STEP1.VTOCLIST.RC=0 THEN
and accepting
IF RC=0 THEN

dick scherrer · Posted: Sat Apr 07, 2007 8:33 am Post subject:

Hi Bhavesh,

Going forward from the simpler example i gave, you will want to change this synntax "STEP1.VTOCLIST.RC=0". Among other things, you've used STEP1 as the procstepname as well as the stepname in the VTOCLIST PROC.

Please look at this example from the Fine Manual and try making the same type of changes to your syntax.