I am trying to compile and link a sample IMS PL/I program. And in doing so, I am facing the following error:
Code: Select all
IEW2648E 5111 ENTRY CALLPLIM IS NOT A CSECT OR AN EXTERNAL NAME IN THE MODULE.
Please help in resolving this.
JCL :
Code: Select all
// PROC MBR=TEMPNAME
//* COMPILE PL/I PROG
//C EXEC PGM=IBMZPLI,REGION=0M
//STEPLIB DD DSN=IEL370.SIBMZCMP,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
//*
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(1024,(200,50),RLSE,,ROUND),
// DCB=BLKSIZE=1024,DISP=(,DELETE)
//*
//SYSPRINT DD SYSOUT=*
//*
//SYSLIN DD DISP=SHR,DSN=XXXX.IMS.OBJ(&MBR)
//*
//* LINK EDIT
//*
//L EXEC PGM=IEWL,PARM='XREF,LIST,LET',
// COND=(9,LT,C),REGION=4M
//*
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
//SDFSRESL DD DSN=IMS1010.SDFSRESL,DISP=SHR
//*
//*SYSLIN DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
//* DD DISP=SHR,DSN=IMS1010.PROCLIB(PLITDLI)
//*
//SYSLIN DD DISP=SHR,DSN=XXXX.IMS.OBJ(&MBR)
// DD DISP=SHR,DSN=XXXX.IMS.JCL(PLITDLI2)
// DD DDNAME=SYSIN
//*
//*SYSLMOD DD DISP=SHR,DSN=IMS1010.PGMLIB(&MBR)
//SYSLMOD DD DISP=SHR,DSN=XXXX.IMS.LOAD(&MBR)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(5,1),RLSE)