0% found this document useful (0 votes)
315 views

Cobol Compilers

The document discusses different compilers used for COBOL, DB2, and CICS programs. COBOL compilers use utilities like IGYWCL and IGWCRCTL. The source program is specified in SYSIN and copy library in SYSLIB. The object code is stored in the specified load library. DB2 compilers use utilities like DB2COB for precompilation and DB2BIND for binding. The source is in SRCLIB, stripped SQL in DBRMLIB, and loaded code in LOADLIB. CICS compilers like CICSMAP and CICSCOB are used. CICSMAP compiles map sets and CICSCOB compiles programs

Uploaded by

badsoft
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
315 views

Cobol Compilers

The document discusses different compilers used for COBOL, DB2, and CICS programs. COBOL compilers use utilities like IGYWCL and IGWCRCTL. The source program is specified in SYSIN and copy library in SYSLIB. The object code is stored in the specified load library. DB2 compilers use utilities like DB2COB for precompilation and DB2BIND for binding. The source is in SRCLIB, stripped SQL in DBRMLIB, and loaded code in LOADLIB. CICS compilers like CICSMAP and CICSCOB are used. CICSMAP compiles map sets and CICSCOB compiles programs

Uploaded by

badsoft
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 5

COMPILERS

COBOL COMPILERS
COBCOMP //MTPLB21S 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, =>LOADMODULE DATASET NAME // GOPGM=INITIAL //COBOL.SYSIN DD DSN=MTPLB21.COBOL.JAIKUM(SORTFILE),DISP=SHR //COBOL.SYSLIB DD DSN=MTPLB21.COBOL.JAIKUM,DISP=SHR ==>COPY LIBRARY // [IGYWCL & IGWCRCTL - the utilitiies used in COBOL compiler. PGMLIB=MTPLB21.COBOL.LOADLIB - specifies the load libarary. COBOL.SYSIN - the keyword for DDName used to specify the source libaray COBOL.SYSLIB -the keyword for DDName that is used to specify the the LINK EDITOR. IN LOADLIB CORRESPONDING OBJECT MODULE FOR THE PROGRAM 'sortfile' IN SOURCE LIBRARY WILL BE STORED AS 'INITIAL'] COBRUN //MTPLB21J 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 // [WHEN WE DO COBOL PGMS. IN ORDER TO EXECUTE THE PROGRAMS COPY COBCOMP & COBRUN TO THE PDS CONTAINING OUR COBOL PGMS

COBCOMP ------IF PDS IS MTPLB21.COBOL.JAIKUM & MEMBER = SORTFILE THEN IN COBCOMP GIVE //COBOL.SYSIN DD DSN=MTPLB21.COBOL.JAIKUM(SORTFILE),DISP=SHR //COBOL.SYSLIB DD DSN=MTPLB21.COBOL.JAIKUM,DISP=SHR ==>COPY LIBRARY COBRUN -----IF THERE IS INPUT TO GIVE CHANGE //SYSIN DD DUMMY AS //SYSIN DD * ------- (INPUT) // IT IS A MUST IN SORT & MERGE PGMS TO GIVE //SYSOUT DD SYSOUT=* IF THERE IS DD NAMES GIVE THAT AS //DD1 DD DSN=MTPLB21.COBOL.PRI4,DISP=SHR //DD3 DD DSN=MTPLB21.COBOL.PRI5,DISP=OLD ]

DB2 COMPILERS
DB2COB (precompilation) //MTPLB21A JOB ,'ASN',NOTIFY=MTPLB21,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H //JOBPROC JCLLIB ORDER=NREDDY.MAINTEC.COMPILER //EXEC1 EXEC DB2JCL, // SRCLIB=MTPLB21.DB2.JAIKUM, ==> SOURCE LIB // DBRMLIB=MTPLB21.DB2.DBRM, ==> LIBRARY NAME // MEM=FIRSTPM, ==> MEMBER NAME // INCLIB=MTPLB21.DB2.DCLGEN, ==> INCLUDE LIBRARY // DCLLIB=MTPLB21.DB2.DCLGEN, ==> PRECOMPILE INCLUDE LIBRARY // COPYLIB=MTPLB21.DB2.JAIKUM, ==> COPY LIBRARY // LOADLIB=MTPLB21.DB2.LOADLIB ==> LOADLIBRARY NAME [NOTE : MEM=FIRSTPM - PGM MEMBER NAME IN PDS MTPLB21.DB2.JAIKUM IS SPECIFIED AFTER COMPILING THE STRIPPED OUT SQL STMTS ARE STORED IN MTPLB21.DB2.DBRM.FIRSTPM ] DB2BIND //MTPLB21A JOB ,'SAM',NOTIFY=MTPLB21,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H

//JOBLIB DD DISP=SHR, // DSN=DSN710.SDSNEXIT // DD DISP=SHR, // DSN=DSN710.SDSNLOAD //* 4: BIND AND RUN PROGRAMS //BIND EXEC PGM=IKJEFT01,DYNAMNBR=20 //DBRMLIB DD DISP=SHR, // DSN=MTPLB21.DB2.DBRM ==> DBRM LIBRARY //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //REPORT DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(DSN1) BIND PLAN(MTPLB21) MEMBER(FIRSTPM) ISOLATION(CS) ACTION(REP) //* [NOTE : PLAN(MTPLB21) - USERID IS SPECIFIED MEMBER(FIRSTPM) - IS THE PGM MEMBER NAME IN PDS MTPLB21.DB2.JAIKUM ] DB2RUN //MTPLB21J JOB ,'SAM',NOTIFY=MTPLB21,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=X //JOBLIB DD DISP=SHR, // DSN=DSN710.SDSNEXIT // DD DISP=SHR, // DSN=DSN710.SDSNLOAD // DD DISP=SHR, // DSN=CEE.SCEERUN //* 4: RUN PROGRAMS //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //*DD1 DD DSN=MTPLB52.VSAM.KSDS10,DISP=SHR //SYSIN DD DUMMY //SYSTSIN DD * DSN SYSTEM(DSN1) RUN PROGRAM(FIRSTPM) PLAN(MTPLB21) LIB('MTPLB21.DB2.LOADLIB') END [NOTE : PROGRAM(FIRSTPM) - PGM MEMBER NAME IN PDS MTPLB21.DB2.JAIKUM PLAN(MTPLB21) - USERID ]

CICS COMPILERS
CICSMAP

//MTPLB21B JOB ,,CLASS=C, // MSGCLASS=X,MSGLEVEL=(1,1), // NOTIFY=&SYSUID //JOBPROC JCLLIB ORDER=NREDDY.DATADEL.COMPILER //CICSMAP EXEC CICSMAP, // OUTC=*, // COPYLIB=MTPLB21.CICS.COPYLIB, ==> DO NOT CHANGE // LOADLIB=MTPLTRG.CICS.LOADLIB, ==> DO NOT CHANGE // MAPNAME=MSETAN ==> MAPSET NAME //COPY.SYSUT1 DD DSN=MTPLB21.CICS.JAIKUM(LAB1),DISP=SHR ==>SOURCE [MSETAN ==>MAPSET NAME MTPLB21.CICS.JAIKUM(LAB1)==>PGM NAME] [NOTE: IF THERE IS ANY ERROR AND WHEN WE GO TO TSO SDSF ST GIVE COMMAND INPUT ===>F MNOTE ---TO SPECIFICALLY POINT TO THE ERROR] CICSCOB //MTPLB21A //JOBPROC //CICSCOB // NAME // // // // JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=X JCLLIB ORDER=NREDDY.MAINTEC.COMPILER EXEC CICSCOB, SRCLIB=MTPLB21.CICS.JAIKUM, ==>SOURCE DATASET MEM=SENDCOB, COPYLIB=MTPLB21.CICS.COPYLIB, BMSLIB=MTPLB21.CICS.COPYLIB, LOADLIB=MTPLTRG.CICS.LOADLIB ==>DO NOT CHANGE ==>DO NOT CHANGE ==>DO NOT CHANGE

MEM===>SENDCOB (MEMBER NAME IN WHICH THE PGM IS CODED)

DB2CICS //NREDDYJ JOB ,,CLASS=C,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID //JOBPROC JCLLIB ORDER=(NREDDY.DATADEL.COMPILER) //DB2CICS EXEC DB2CICS, // DBRMLIB='NREDDY.DB2.DBRM', // DB2COPY='NREDDY.CICS.SYMBMAP', // COPYLIB='NREDDY.DB2.DCLGEN', // LOADLIB='MTPLTRG.CICS.LOADLIB', // MEM=CICSPGM //DB2PC.SYSIN DD DSN=NREDDY.ALL.COMP(CICSPGM),DISP=SHR //LKED.SYSIN DD * NAME DB2CICS(R) //

You might also like