How to add cobol compiler.
1. Upload the proc ‘COBLINK.TXT’ to 'SYS2.PROCLIB' or create a member ‘coblink’ to 'SYS2.PROCLIB' with these codes
//COBUCL PROC SOUT='*',
// UNT=SYSDA,
// CBLPARM='SUPMAP',
// HLQ=MISSING
//COB EXEC PGM=IKFCBL00,
// REGION=4096K,
// PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'
//SYSPRINT DD SYSOUT=&SOUT
//SYSLIN DD DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))
//SYSUT1 DD UNIT=&UNT,SPACE=(460,(700,100))
//SYSUT2 DD UNIT=&UNT,SPACE=(460,(700,100))
//SYSUT3 DD UNIT=&UNT,SPACE=(460,(700,100))
//SYSUT4 DD UNIT=&UNT,SPACE=(460,(700,100))
//SYSPUNCH DD DUMMY
//LKED EXEC PGM=IEWL,
// COND=(4,LT,COB),
// PARM='XREF,LIST,LET,MAP',
// REGION=1024K
//SYSLIN DD DISP=(OLD,DELETE),DSN=*.COB.SYSLIN
// DD DDNAME=SYSIN
//*YSLMOD DD DISP=SHR,DSN=SYS2.LINKLIB
//SYSLMOD DD DSN=&HLQ..TEST.LOADLIB(&MBR),
// UNIT=&UNT,SPACE=(1024,(50,20,1)),
// DISP=(MOD,CATLG)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
2. This is a sample JCL that invokes COBLINK. The load module of
the program being compiled will be created in xxx.TEST.LOADLIB where xxx
is their userid.
//PT8102G JOB (001),'COB HELLO WORLD',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//*OMPLINK EXEC COBLINK,PARM='LIST,LOAD,NODECK',MBR='CBLHO1J2'
//COMPLINK EXEC COBLINK,MBR='CBLHO1J2',HLQ='PT8102'
//COB.SYSIN DD *
***********************************************************
* The above * after DD can be replaced with DSN *
* *
***********************************************************
* This is a sample program *
* *
***********************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. CBLHO1JP.
AUTHOR. DIRK.
DATE-WRITTEN. 5 JULY 2006
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT TPY-FILE
ASSIGN TO DA-S-CBLHO1I1.
SELECT RPT-FILE
ASSIGN TO UR-S-CBLHO1O1.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR
// DD DSNAME=SYS1.LINKLIB,DISP=SHR
//*GO.SYSPRINT DD SYSOUT=A
//