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

Need to write jcl for the cobol program.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
bhim_sb
Warnings : 1

New User


Joined: 31 Mar 2005
Posts: 24

PostPosted: Wed Jun 15, 2005 5:46 pm
Reply with quote

I have written a Cobol program CPROG1 and compiled successfully.

And also written a input file for named ICPROG1 for this program.

Now I want to write JCL for it.

Can any body help me to solve it out.
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed Jun 15, 2005 5:49 pm
Reply with quote

Where are you stuck? Why don't you post the JCL code you have so far?
Back to top
View user's profile Send private message
bhim_sb
Warnings : 1

New User


Joined: 31 Mar 2005
Posts: 24

PostPosted: Thu Jun 16, 2005 4:01 pm
Reply with quote

superk wrote:
Where are you stuck? Why don't you post the JCL code you have so far?


Code:

//CPROG1  JOB (@),'TEST',CLASS=A,                     
//             MSGCLASS=A,NOTIFY=DBSING               
//STEP1   EXEC  PGM=CPROG1                             
//STEPLIB DD   DSN=WXX322.DBSING.WALK,DISP=(SHR,KEEP) 
//INFILE  DD   DSN=DBSING.ICPROG1,DISP=SHR             
//OUTIFLE DD   DSN=DBSING.OUTCPROG1,                   
//             DISP=(NEW,CATLG,DELETE),               
//             UNIT=&DUNIT,                           
//             LRECL=133,                             
//             BLKSIZE=0,                             
//             RECFM=FBA,                             
//             DATACLAS=STANDARD
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Thu Jun 16, 2005 4:11 pm
Reply with quote

Hi bhim_sb,

What prob u are facing...Is ur JCL not working.....If yes, whats the error....

I m not considering syntax errors here......

Regards,

Priyesh.
Back to top
View user's profile Send private message
bhim_sb
Warnings : 1

New User


Joined: 31 Mar 2005
Posts: 24

PostPosted: Thu Jun 16, 2005 5:09 pm
Reply with quote

priyesh.agrawal wrote:
Hi bhim_sb,

What prob u are facing...Is ur JCL not working.....If yes, whats the error....

I m not considering syntax errors here......

Regards,

Priyesh.


I am facing the follwing errors:
6 8 DSS5210E - IMPROPER ATTRIBUTES FOR A JOBLIB/STEPLIB
7 0 DSS2052A - LIBRARY NOT SEARCHED FOR PROGRAMNAME
16 8 DSS2170E - SYMBOLIC "DUNIT " NOT RESOLVED
17 8 DSS4500E - INVALID DATA SET NAME FORMAT IN DSN=OPERAND
18 8 DSS4940E - UNABLE TO IDENTIFY UNIT NAME "&DUNIT "
19 4 DSS2050W - PROGRAM "CPROG1 " NOT FOUND
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Thu Jun 16, 2005 5:33 pm
Reply with quote

I think that you need to read the first post of this forum but in each case
you jcl must be:
Code:
//CPROG1  JOB (@),'TEST',CLASS=A,                     
//             MSGCLASS=A,NOTIFY=DBSING               
//STEP1   EXEC  PGM=CPROG1                             
//STEPLIB  DD DISP=SHR,DSN=library of load modules
//INFILE  DD   DISP=SHR,DSN=input file specified in FD
//OUTIFLE DD   DSN=output file specified in FD,                   
//             DISP=(NEW,CATLG,DELETE),               
//             UNIT=SYSDA,  <-If you use a variable you must override it!
//             LRECL=133,                             
//             BLKSIZE=0,                             
//             RECFM=FBA,                             
//*             DATACLAS=STANDARD <-Is not necessary
//             SPACE=(CYL,(1,1),RLSE) <- this is useful but change the quantity as you want


In your dataset you must use qualifiers in correct form.
Any segment of qualifier cannot be greater than 8 CHAR.
You cannot exceed 44 CHAR of dataset length and in this you
cannot have more than 8 point!

To retrieve the library where your load is stored search in
sysout of compiler and search the SYSIN of program PGM=IGYCRCTL.
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Thu Jun 16, 2005 5:43 pm
Reply with quote

Quote:
6 8 DSS5210E - IMPROPER ATTRIBUTES FOR A JOBLIB/STEPLIB


//STEPLIB DD DISP=SHR, DSN=WXX322.DBSING.WALK

verify again ur LIB name.

Quote:
16 8 DSS2170E - SYMBOLIC "DUNIT " NOT RESOLVED


Give UNIT=SYSDA or UNIT=TAPE

Quote:
17 8 DSS4500E - INVALID DATA SET NAME FORMAT IN DSN=OPERAND


//OUTIFLE DD DSN=DBSING.OUTCPROG1,

make this string within 8 char.

Quote:
18 8 DSS4940E - UNABLE TO IDENTIFY UNIT NAME "&DUNIT "


As written above Give UNIT=SYSDA or UNIT=TAPE


Regards,

Priyesh.
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Jun 16, 2005 5:45 pm
Reply with quote

See this document on dataset names:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D430/1.1.9?DT=20040624112123
Back to top
View user's profile Send private message
bhim_sb
Warnings : 1

New User


Joined: 31 Mar 2005
Posts: 24

PostPosted: Fri Jun 24, 2005 2:50 pm
Reply with quote

Thanks to all i solved the problem.

My program is now activated and running succefully
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts Using API Gateway from CICS program CICS 0
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
Search our Forums:

Back to Top