|
View previous topic :: View next topic
|
| Author |
Message |
mcmillan
Site Admin
Joined: 18 May 2003
Posts: 1213
Location: India
|
|
|
|
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 |
|
 |
vinoddevkar
New User
Joined: 13 Apr 2005
Posts: 9
Location: pune
|
|
|
|
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 |
|
|
santhakumar
New User
.jpg)
Joined: 16 May 2005
Posts: 4
Location: chennai
|
|
|
|
Hi ,
Please see the attachment for your reference..
Santha Kumar |
|
| Back to top |
|
|
prasannanjaneya
Warnings : 1
New User
Joined: 14 Mar 2005
Posts: 10
Location: pune
|
|
|
|
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 |
|
|
babuprasad_g
Currently Banned
New User
.jpg)
Joined: 26 May 2005
Posts: 45
Location: gurgaon
|
|
|
|
Hi,
Standard approach is Using PROC. Go through my approach u can find the difference. |
|
| Back to top |
|
|
spanda
New User
Joined: 31 Aug 2005
Posts: 48
Location: U.K.
|
|
|
|
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 |
|
|
vanji
New User
Joined: 26 Dec 2005
Posts: 7
Location: pune
|
|
|
|
| can someone be more specific |
|
| Back to top |
|
|
vijay_bn79
New User
Joined: 20 Nov 2006
Posts: 48
Location: Hyderabad
|
|
|
|
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 [email protected]@.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 |
|
|
sandip_mainframe
Warnings : 2
New User
Joined: 20 Sep 2006
Posts: 63
Location: pune
|
|
|
|
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
