Bhavesh
Beginner
Joined: 29 Mar 2007
Posts: 2
Topics: 1
Location: MUMBAI
|
 Posted: Thu Apr 05, 2007 10:36 pm Post subject: JCL Error in IF ELSE: EXPECTED CONTINUATION NOT RECEIVED |
 |
|
Hi All
Can any one solve this error
| Code: |
********************************* 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 ****************** |
_________________
Thanks and Regards,
Bhavesh |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
