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.
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 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
No new posts Help needed to assemble IMS sample co... ABENDS & Debugging 4
No new posts Print out all lines with 'IBM' compil... CLIST & REXX 8
Search our Forums:

Back to Top