Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Sample Compile & Run JCLs

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mcmillan

Site Admin


Joined: 18 May 2003
Posts: 1203
Location: India

PostPosted: Wed Feb 16, 2005 2:40 pm    Post subject: Sample Compile & Run JCLs
Reply with quote

For sample JCLs to compile/Run your COBOL/CICS/PL/I programs, try this link first before asking in the Forum.

http://ibmmainframes.com/jcls.php
Back to top
View user's profile Send private message

vinoddevkar

New User


Joined: 13 Apr 2005
Posts: 9
Location: pune

PostPosted: Mon May 16, 2005 5:46 pm    Post subject: Re: Sample Compile & Run JCLs
Reply with quote

Here are the sample JCL's to compile and run cobol programs


COBCOMP

Code:
//abcd1 JOB ,,LINES=(1,CANCEL),                                     
 //         CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),                         
 //         NOTIFY=MTPLB21                                             
 //*  EXAMPLE JCL TO COMPILE & LINK COBOL BATCH PROGRAM                 
 //*JOBPROC JCLLIB ORDER=NREDDY.SAMPLE.PROC                             
 //COBCL EXEC IGYWCL,                                                   
 //           PGMLIB=MTPLB21.COBOL.LOADLIB,  =>LOADMOUDEL DATASET NAME 
 //           GOPGM=INITIAL                                             
 //COBOL.SYSIN DD DSN=MTPLB21.COBOL.ANJALI(SORTFILE),DISP=SHR           
 //COBOL.SYSLIB DD DSN=MTPLB21.COBOL.ANJALI,DISP=SHR ==>COPY LIBRARY   
 //                                 


COBRUN

Code:
//abcd JOB ,,                                               
//         CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),LINES=(1,CANCEL), 
//         NOTIFY=MTPLB21                                       
//RUN EXEC PGM=INITIAL                                         
//*DD1 DD DSN=MTPLB21.COBOL.PRI4,DISP=SHR                       
//*DD3 DD DSN=MTPLB21.COBOL.PRI5,DISP=OLD                       
//*          UNIT=SYSDA,VOL=SER=MTBLR1,                         
//*          SPACE=(TRK,(1,2),RLSE),                           
//*          DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)               
//STEPLIB DD DSN=MTPLB21.COBOL.LOADLIB,DISP=SHR                 
//SYSOUT DD SYSOUT=*                                           
//SYSPRINT DD SYSOUT=*                                         
//SYSIN DD DUMMY                                               
//
Back to top
View user's profile Send private message
santhakumar

New User


Joined: 16 May 2005
Posts: 4
Location: chennai

PostPosted: Thu May 19, 2005 8:45 am    Post subject: Re: Sample Compile & Run JCLs
Reply with quote

Hi ,

Please see the attachment for your reference..

Santha Kumar
Back to top
View user's profile Send private message
prasannanjaneya
Warnings : 1

New User


Joined: 14 Mar 2005
Posts: 10
Location: pune

PostPosted: Thu May 19, 2005 5:45 pm    Post subject: try this.
Reply with quote

hi,

in every mainframe system there is one system file sys1.proclib.

go to this and search for cob????

i mean u can get one of cob2uclg or cobuclg.

here c stands for compile.
l " link edit.
g" run.

so run this cataloged procedure into ur jcl and make ur program in sysin card of this proc. if ur programs contians any file handling please give those under GO step.

try this . very simple way to compile,link edit and run. i am giving u a simple example.

//JCL00001 JOB 'TEST COPY',
// CLASS=P,MSGCLASS=E,REGION=4096K,NOTIFY=&SYSUID
//JCLL JCLLIB ORDER=(PD8474.CLG.SOURCE)
//STEP1 EXEC COB2UCLG
//COB2.SYSIN DD DSN=PD8474.PRACTICE.CBL(CBL01),DISP=SHR
//GO.SYSOUT DD SYSOUT=*
Back to top
View user's profile Send private message
babuprasad_g
Currently Banned

New User


Joined: 26 May 2005
Posts: 45
Location: gurgaon

PostPosted: Thu May 26, 2005 5:56 pm    Post subject: Re: Sample Compile & Run JCLs
Reply with quote


Hi,
Standard approach is Using PROC. Go through my approach u can find the difference.
Back to top
View user's profile Send private message
spanda

New User


Joined: 31 Aug 2005
Posts: 48
Location: U.K.

PostPosted: Tue Sep 06, 2005 9:03 pm    Post subject: Re: Sample Compile & Run JCLs
Reply with quote

I suppose the list of sample JCLs for compile and link-edit should also include assembler JCL as well. For the benefit of the dying breed of assembler programmers, I have attached a screen shot for compiling (or assembly) and link-edit. The assembler is the High-Level assembler (ASMA90).

Could I request the moderator to kindly add this to the JCL section of the site (after appropriate validation, of course). Any questions, let me know.

Thanks,
Panda.
Back to top
View user's profile Send private message
vanji

New User


Joined: 26 Dec 2005
Posts: 7
Location: pune

PostPosted: Tue Jul 18, 2006 2:25 pm    Post subject:
Reply with quote

can someone be more specific
Back to top
View user's profile Send private message
vijay_bn79

New User


Joined: 20 Nov 2006
Posts: 48
Location: Hyderabad

PostPosted: Tue Nov 21, 2006 6:26 pm    Post subject:
Reply with quote

this will help you to understand clearly

Compile JCL
Code:

//COMPJCL1 JOB (AB3R03,T20),'VIJAY',                                   
//             CLASS=T,MSGCLASS=X,                                     
//             REGION=8M,NOTIFY=USERID                                 
//*********************************************************************
//*          OS390 COBOL LE COMPILER                                   
//*********************************************************************
//PROCCM PROC CMP='SYS1.SIGYCOMP',LIB='SYS1.SIGYCOMP',                 
//    PRM='OBJECT',MEMBER='TESTPRG'                                     
//*********************************************************************
//*             COBOL LE COMPILE STEP                                 *
//*********************************************************************
//COBLE    EXEC  PGM=IGYCRCTL,REGION=4096K,                             
// PARM=('DATA(31),SIZE(12800K),TRUNC(BIN)',NUMPROC(MIG),RENT,         
//       '&PRM')                                                       
//STEPLIB  DD  DSN=&CMP,DISP=SHR                                       
//SYSIN    DD  DSN=S51728.TEST.COBOL(&MEMBER),DISP=SHR                 
//SYSLIB   DD  DSN=SYS1.SCEESAMP,DISP=SHR                               
//         DD  DSN=S51728.MASTLIB.COBCOPY,DISP=SHR                     
//         DD  DSN=S51728.CISPROD.COBCOPY,DISP=SHR                     
//SYSLIN   DD  UNIT=VIO,DSN=&&LOADSET,                                 
//             SPACE=(3200,(2000,2000),,,ROUND),                       
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),                   
//             DISP=(NEW,PASS)                                         
//SYSPUNCH DD  DUMMY,DCB=BLKSIZE=80                                     
//SYSPRINT DD  SYSOUT=*                                                 
//SYSABEND DD  SYSOUT=*                                                 
//SYSMDUMP DD  SYSOUT=*                                                 
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(20,10))                           
//SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(20,10))                           
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(20,10))                           
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(20,10))                           
//SYSUT5   DD  UNIT=SYSDA,SPACE=(CYL,(20,10))                           
//SYSUT6   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))                           
//SYSUT7   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))                           
//*********************************************************************
//*          LINKAGE EDITOR STEP                                      *
//*********************************************************************
//*                                                                     
//LKED     EXEC PGM=IEWL,PARM=('LIST=SUMMARY',XREF,LET,MAP,'AMODE(31)',
//             'RMODE(ANY)'),COND=(5,LT,COBLE),REGION=1024K             
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)                         
//         DD  DDNAME=SYSIN                                             
//SYSLMOD  DD  DSN=S51728.TEST.LOAD(&MEMBER),DISP=SHR           
//SYSLIB   DD  DSN=&LIB,DISP=SHR                                       
//         DD  DSN=@DB2.SYS@.DSNLOAD,DISP=SHR                           
//         DD  DSN=$DB2.SYS$.DSNLOAD,DISP=SHR                           
//         DD  DSN=SYS1.SCEELKED,DISP=SHR                               
//         DD  DSN=SYS1.LINKLIB,DISP=SHR                               
//         DD  DSN=S51728.MASTLIB.LOADII,DISP=SHR                       
//SYSUT1   DD  UNIT=VIO,SPACE=(1024,(50,50),,,ROUND)                   
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN    DD DUMMY                                                     
//     PEND                                                             
//******************************************************************** 
//COMPILE2 EXEC PROCCM,MEMBER=TESTPRG                                 
**************************** Bottom of Data ***************************


RUN JCL
Code:


//TESTPRG JOB (AB3R03,T20),'VIJAY',                                 
//         MSGCLASS=X,CLASS=T,NOTIFY=&SYSUID,REGION=4096K               
//JOBLIB   DD DSN S51728.TEST.LOAD,DISP=SHR                     
//STEP1 EXEC PGM=TESTPRG                                               
//TRANSIN   DD  DSN S51728.TEST.TEST1.TRAN10,DISP=OLD                 
//SYSPRT    DD SYSOUT=*                                                 
//SYSOUT    DD SYSOUT=*                                                 
//SYSOUX    DD SYSOUT=*                                                 
//SYSPRINT  DD SYSOUT=*                                                 
**************************** Bottom of Data ***************************



Thanks
Back to top
View user's profile Send private message
sandip_mainframe
Warnings : 2

New User


Joined: 20 Sep 2006
Posts: 61
Location: pune

PostPosted: Fri Dec 01, 2006 6:19 pm    Post subject: Jcl To Complie And Run
Reply with quote

hi,
see the jcl to compile and run a prog. by using a catlog procedure
IGYWCLG.

//IGYWCLG JOB ,, CLASS=A,MSGCLASS=*
// MSGLEVEL=(1,1),NOTIFY=&SYSUID,TIME=(1)
// JCLLIB ORDER=CATPROC.PROC.LIB
//STEP1 EXEC IGYWCLG,MEM=CODE
//COBOL.SYSIN DD DSN=COBOL.SOURCE.CODE(&MEM),DISP=SHR
//LKED.SYSLMOD DD DSN=COBOL.LOAD.MODULELIB,DISP=SHR
//GO.SYSIN DD *
//
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts COBOL 5 Compile oerdgie COBOL Programming 3 Thu Oct 06, 2016 6:14 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts compile and link program in 6.1 brigitte pruett COBOL Programming 3 Tue Aug 16, 2016 12:09 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us