IBM Mainframe Forum

//TSOZA50A JOB 3ES10G10000012,'TSOZA48',MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=TSOZA50,CLASS=A,REGION=2M
*********************************************************************************************
//* JOB: SUBMITTED FROM TSOZA50.ES10.CNTL(LAB5#32) ***
//* DOC: RUN A CATALOG PROCEDURE IN D80WW.ES10V15.PROC(COMP) ***
//******************************************************************************************
//COMP PROC INDS=FORGOTTEN,BACK=FORGOTTEN
//********************************************************************
//* DOC: COMPRESS DATA SETS SPECIFIED WITH VARIABLES. ***
//********************************************************************
//**********************************************************
//******** MAKE BACKUP
//**********************************************************
//S1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&INDS.
//SYSUT2 DD DISP=(,CATLG),DSN=&BACK.,
// LIKE=&INDS
//SYSIN DD DUMMY
//IFOK1 IF (S1.RC=0) THEN
//**********************************************************
//******** COMPRESS DATA SET
//**********************************************************
//S2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&INDS.
//SYSUT2 DD DISP=OLD,DSN=&INDS.
//SYSIN DD DUMMY
//IFOKEND1 ENDIF
//IFOK2 IF (S2,RC=0) THEN
//**********************************************************
//******** COMPRESS SUCCESSFUL, DELETE BACKUP
//**********************************************************
//S3 EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE),DSN=&BACK.
//IFOKEND2 ENDIF

I RECEIVED THE FOLLOWING JCL ERROR : IEFC005I PROC STATEMENT WITHOUT MATCHING PEND STATEMENT , any idea why this appears?

because what You are trying to run is NOT a cataloged procedure,
but an inline one, as per

So what's the right syntax ?

the 'right syntax' is explained in the manual.

Also - you again failed to use the code tags to present your code despite repeated requests. Topic locked.
Another 'also' - have your previous topics been resolved - if 'yes' the post the resolution so that people with similar problems can resolve them themselves.