|
View previous topic :: View next topic
|
| Author |
Message |
saran kumar yeddula
New User
.jpg)
Joined: 08 Jan 2014
Posts: 3
Location: Bangalore,India
|
|
|
|
Hi! when i'm executing a cobol code its giving the warning as 'A required compiler work file, "SYSUT1 ", was not allocated'.Plz suggest me whats wrong with my compiler.
//IBM1B2GT JOB (T00101,950,O195000,000,000,000),'SRS',PRTY=5,
// MSGCLASS=G,MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID
/*JOBPARM P=PROC02,T=(5),H=ALL,L=399,S=ESYS
//*-------------------------------------------------------------*
//* C O B O L C O M P I L E J C L *
//*-------------------------------------------------------------*
//* SYSIN = WHERE THE SOURCE MODULE IS LOCATED *
//* SYSLMOD = WHERE THE OBJECT MODULE IS TO BE LOCATED *
//*-------------------------------------------------------------*
//*NET ID=10951,AB=D
//COBOL EXEC PGM=IGYCRCTL,REGION=400K,
// PARM='LIB,APOST,XREF,MAP'
//STEPLIB DD DSN=SYS1.ADCOBA.SIGYCOMP,DISP=SHR
//COBOL.SYSIN DD DSN=IBM1B2G.ECOBOL.COMP(ECOBMV),DISP=SHR
//LKED.SYSLIB DD DISP=SHR,DSN=IBM1B2G.ECOBOL.COMP(SUBCOB)
//LKED.SYSLMOD DD DISP=SHR,DSN=IBM1B2G.ECOBOL.COMP(NUMERMOV)
//SYSOUT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSDEBUG DD SYSOUT=A |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
Every system has standard compile/link/bind processes. You need to use these instead of something you created or pulled from somewhere on the internet.
Please do NOT post screenshots. They do not work well and waste considerable space on the forum. Best to use copy/paste and apply the Code tag. There is a Preview funcstion so you can see how your post will appear to the forum. Once you have the post as you want it, Submit. |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| If youi really want to know what the JCL for the compiler is and does then read the Programming Guide where each JCL statement that is, or may be, required is described. |
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
In my compile, which has been handed down and down and down through the years, we have these DDs in the compile step:
| Code: |
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
|
That word 'SYSDA' is a site-defined word that means something like 'disk storage' because it's defined in a list here. Yours will probably be something different.
If I were sitting in your chairr, I would start looking at some sort JCL to see what they use for SORTWK DDs. They will have something similar and you can probably copy it over to your compile JCL. |
|
| Back to top |
|
|
saran kumar yeddula
New User
Joined: 08 Jan 2014
Posts: 3
Location: Bangalore,India
|
|
|
|
finally i executed the cobol code with my compile jcl...
Here its......
| Code: |
//COB EXEC PGM=IGYCRCTL,REGION=400K,
// PARM='LIB,APOST,XREF,MAP'
//STEPLIB DD DSN=SYS1.ADCOBA.SIGYCOMP,DISP=SHR
//COBOL.SYSIN DD DSN=IBM1B2G.ECOBOL.COMP(ECOBMV),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,//COB EXEC PGM=IGYCRCTL,REGION=400K,
// PARM='LIB,APOST,XREF,MAP'
//STEPLIB DD DSN=SYS1.ADCOBA.SIGYCOMP,DISP=SHR
//COBOL.SYSIN DD DSN=IBM1B2G.ECOBOL.COMP(ECOBMV),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN DD DSN=&LOADSET,UNIT=TEMPDA,DISP=(MOD,PASS),
// SPACE=(TRK,(5,5)),DCB=(BLKSIZE=80,LRECL=80,RECFM=FB)
//LKED.SYSLIB DD DISP=SHR,DSN=IBM1B2G.ECOBOL.COMP(NUMERMOV)
//SYSTERM DD SYSOUT=*
//SYSDEBUG DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//LKED EXEC PGM=IEWL,REGION=2048K,COND=(4,LT,COB)
//LKED.SYSLMOD DD DISP=SHR,DSN=IBM1B2G.BANGL1.LOADLIB(ECOBMV)
//SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
//SYSDEBUG DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN DD DSN=&LOADSET,UNIT=TEMPDA,DISP=(MOD,PASS),
// SPACE=(TRK,(5,5)),DCB=(BLKSIZE=80,LRECL=80,RECFM=FB)
//LKED.SYSLIB DD DISP=SHR,DSN=IBM1B2G.ECOBOL.COMP(NUMERMOV)
//SYSTERM DD SYSOUT=*
//SYSDEBUG DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//LKED EXEC PGM=IEWL,REGION=2048K,COND=(4,LT,COB)
//LKED.SYSLMOD DD DISP=SHR,DSN=IBM1B2G.BANGL1.LOADLIB(ECOBMV)
//SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
//SYSDEBUG DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// |
Code'd |
|
| Back to top |
|
|
Peter cobolskolan
Active User
Joined: 06 Feb 2012
Posts: 104
Location: Sweden
|
|
|
|
It seems that you need some futher advice. The JCL you are showing contains some overrides. Overrides are normally used to override or add JCL statements to procedures. You are not executing a procedure.
Why not have a look at the standard procedure IGYWCL, supplied by IBM, and do the necessary overrides. Comments in the procedure tells you what to do. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| finally i executed the cobol code with my compile jcl... |
Is this for a class?
If not, you should NOT use your own jcl - you should use the standard jcl for the system that all of the developers use.
Several places i have supported will terminate people who will not follow the standards . . . There is no good reason to use your own jcl for "real" work.
fwiw |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
