Try 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) //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)) //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=USER.CICS.COPYLIB,DISP=SHR //SYSIN DD DSN=USER.COBOL.BATCH(SAMPLE),DISP=SHR //********************** //LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED, // DISP=SHR
-----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
