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

Sample Compile & Run JCLs
IBM Mainframe Forums -> JCL & VSAM
Post new topic   This topic is locked: you cannot edit posts or make replies. Quick References
View previous topic :: View next topic  
Author Message
mcmillan

Site Admin


Joined: 18 May 2003
Posts: 1210
Location: India
PostPosted: Wed Feb 16, 2005 2:40 pm
 Reply with quote
For sample JCLs to compile/Run your COBOL/CICS/PL/I programs, try this link first before asking in the Forum.

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
 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
 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
 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
 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
 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
 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
 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: 63
Location: pune
PostPosted: Fri Dec 01, 2006 6:19 pm
 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. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Compile Sp Cobol base COBOL Programming 1
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts C Compile time time stamps Java & MQSeries 10
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us