Try this: //IGYWC PROC LNGPRFX='IGY.V3R3M0',SYSLBLK=3200 //COBOL EXEC PGM=IGYCRCTL,REGION=2048K //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP, // DISP=SHR //* //SYSLIB DD DDNAME=OWNSYSLB // DD DISP=SHR,DSN=APPL.PROD.COPYLIB //* //OWNSYSLB DD DISP=(NEW,KEEP),DSN=&&OWNSYSLB, // SPACE=(TRK,(1,,1)),RECFM=U,LRECL=32760 //* ... ...
If you don't need any personal SYSLIB library, code: //S1 EXEC IGYWC.... //* //COBOL.SYSIN DD * your cobol code goes here.... /* and the compiler will only see APPL.PROD.COPYLIB If you need one private library ahead of the APPL-lib, code: //S1 EXEC IGYWC.... //* //OWNSYSLB DD DISP=SHR,DSN=your.own.private.copy.lib1 //* //COBOL.SYSIN DD * your cobol code goes here.... /* and the compiler will see your private library ahead of the APPL.PROD.COPYLIB library. If you need more than one private library, three in this example, code: //S1 EXEC IGYWC.... //* //OWNSYSLB DD DISP=SHR,DSN=your.own.private.copy.lib1 // DD DISP=SHR,DSN=your.own.private.copy.lib2 // DD DISP=SHR,DSN=your.own.private.copy.lib3 //* //COBOL.SYSIN DD * your cobol code goes here.... /* and the compiler will see all the three private libraries ahead of the APPL.PROD.COPYLIB library. -- Peter Hunkeler CREDIT SUISSE ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
