********************************* 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 *************
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 *************
********************************* 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
Joined: 23 Nov 2006 Posts: 19270 Location: Inside the Matrix
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.
********************************* 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 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 *******
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 *******
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
Joined: 23 Nov 2006 Posts: 19270 Location: Inside the Matrix
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.