IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

A compiler work file, "SYSUT1 ", was not allocated


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
saran kumar yeddula

New User


Joined: 08 Jan 2014
Posts: 3
Location: Bangalore,India

PostPosted: Wed Jan 08, 2014 7:47 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Jan 08, 2014 7:53 pm
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Jan 08, 2014 8:04 pm
Reply with quote

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
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Wed Jan 08, 2014 8:50 pm
Reply with quote

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
View user's profile Send private message
saran kumar yeddula

New User


Joined: 08 Jan 2014
Posts: 3
Location: Bangalore,India

PostPosted: Tue Jan 21, 2014 1:10 pm
Reply with quote

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
View user's profile Send private message
Peter cobolskolan

Active User


Joined: 06 Feb 2012
Posts: 104
Location: Sweden

PostPosted: Tue Jan 21, 2014 2:38 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Jan 21, 2014 7:26 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 2
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top