Your JCL should look something like this and your proc like below.
//compile exec procname
//COBOL.SYSLIB DD DSN=USER.CICS.COPYLIB,DISP=SHR
//COBOL.SYSIN DD DSN=USER.COBOL.BATCH(SAMPLE),DISP=SHR
Compile proc
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K
//STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
// DCB=(BLKSIZE=&SYSLBLK)
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
//SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
Another good way is this: You would have more flexibility.
Your jcl would look like this:
//compile exec procname,
// SORLIB=USER.COBOL.BATCH,
// COPYLIB=USER.CICS.COPYLIB,
// MEMBER=Your program source name
Proc with sybolics
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K
//STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
// DCB=(BLKSIZE=&SYSLBLK)
//SYSIN DD DSN=&SORLIB(&MEMBER),DISP=SHR
//SYSLIB DD DSN=©LIB,DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
//SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Sergio Lima
Sent: Thursday, July 08, 2010 4:08 PM
To: IBM-MAIN@bama.ua.edu
Subject: COBOL COPY Problem
Hello List,
We need compile some batch Cobol programs here, and have a problem.
First, if compile without CBL LIB, received this error :
IGYDS0010-S A "COPY" statement was found but the "LIB" compiler option was not i
effect. Scanning was resumed at the item following the next period.
Then, after include my LIB where are the COPYBOOKS, and insert CBL LIB In the
COBOL SOURCE received this error :
10.58.48 JOB02869 ---- THURSDAY, 08 JUL 2010 ----
10.58.48 JOB02869 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
10.58.49 JOB02869 ICH70001I IBMUSER LAST ACCESS AT 10:58:02 ON THURSDAY, JULY
10.58.49 JOB02869 $HASP373 COMPBAT STARTED - INIT 1 - CLASS A - SYS SYS1
10.58.49 JOB02869 IEF403I COMPBAT - STARTED - TIME=10.58.49
10.58.51 JOB02869 IEC130I SYSLIB DD STATEMENT MISSING
10.58.51 JOB02869 IEC130I SYSLIB DD STATEMENT MISSING
10.58.51 JOB02869 IEC130I SYSLIB DD STATEMENT MISSING
10.58.51 JOB02869 IEC130I SYSLIB DD STATEMENT MISSING
10.58.51 JOB02869 IEC130I SYSLIB DD STATEMENT MISSING
10.58.52 JOB02869 IEF404I COMPBAT - ENDED - TIME=10.58.52
10.58.52 JOB02869 $HASP395 COMPBAT ENDED
My PROC is this :
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K
//STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
// DCB=(BLKSIZE=&SYSLBLK)
//COBOL.SYSIN DD DSN=USER.COBOL.BATCH(SAMPLE),DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
//SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
// DISP=SHR
//COBOL.SYSLIB DD DSN=USER.CICS.COPYLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
Anybody can help please ?
Thanks,
Sergio Lima Costa
_________________________________________________________________
QUER ANEXAR VÁRIAS FOTOS NUM EMAIL? PREPARE-SE PARA O NOVO HOTMAIL. CLIQUE AQUI.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:QUERANEXAR80:-
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
