//COMPILE   JOB ,CLASS=6,MSGCLASS=X,NOTIFY=&SYSUID             
//*            
//STEP1     EXEC IGYCRCTL,PARM=RMODE,DYNAM,SSRANGE
//SYSIN     DD DSN=MYDATA.URMI.SOURCES(MYCOBB),DISP=SHR
//SYSLIB    DD DSN=MYDATA.URMI.COPYBOOK(MYCOPY),DISP=SHR
//SYSLMOD   DD DSN=MYDATA.URMI.LOAD(MYCOBB),DISP=SHR
//SYSPRINT  DD SYSOUT=*
//*

IGYCRCTL是IBM COBOL編譯器工具。編譯器選項使用PARM參數(shù)傳遞。在上面的例子中，RMODE指示在程序中使用相對尋址模式的編譯器。 COBOL程序正在使用SYSIN參數(shù)傳遞和復(fù)寫簿使用由在SYSLIB程序庫提供。

執(zhí)行COBOL程序

下面，說明使用該輸入文件MYDATA.URMI.INPUT執(zhí)行該程序MYPROG并產(chǎn)生寫入卷軸兩個輸出文件的JCL例子。

//COBBSTEP  JOB CLASS=6,NOTIFY=&SYSUID
//
//STEP10    EXEC PGM=MYPROG,PARM=ACCT5000
//STEPLIB   DD DSN=MYDATA.URMI.LOADLIB,DISP=SHR
//INPUT1    DD DSN=MYDATA.URMI.INPUT,DISP=SHR
//OUT1      DD SYSOUT=*
//OUT2      DD SYSOUT=*
//SYSIN     DD *
//CUST1     1000
//CUST2     1001
/*

MYPROG負載模塊位于MYDATA.URMI.LOADLIB。這是很重要，要注意的是，上述的JCL可以用于只是一個非DB2 COBOL模塊。

執(zhí)行COBOL-DB2程序

對于運行的COBOL DB2 程序，IBM的專業(yè)工具被用在JCL程序; DB2區(qū)域和所需的參數(shù)作為輸入傳遞給該實用程序。

運行的COBOL-DB2程序的步驟如下面：

當(dāng)一個COBOL-DB2程序被編譯一個DBRM（數(shù)據(jù)庫請求模塊）一起裝入模塊創(chuàng)建的。該DBRM包含了COBOL程序的SQL語句的語法正確檢查。
DBRM綁定到DB2的區(qū)域（環(huán)境），其中COBOL運行。這可以通過使用IKJEFT01實用的JCL來完成。
綁定步驟之后，COBOL-DB2 程序正在使用IKJEFT01（再次）與負載庫和DBRM庫作為輸入到JCL運行。

//STEP001  EXEC PGM=IKJEFT01
//*
//STEPLIB  DD DSN=MYDATA.URMI.DBRMLIB,DISP=SHR
//*
//input files
//output files
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPLAY  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
    DSN SYSTEM(SSID)
    RUN PROGRAM(MYCOBB) PLAN(PLANNAME) PARM(parameters to cobol program) -
    LIB('MYDATA.URMI.LOADLIB')
    END
/*

在上面的例子中，MYCOBB使用IKJEFT01的COBOL-DB2程序運行。請注意，該程序的名稱，DB2子系統(tǒng)名稱（SSID），DB2的程序名稱是通過在SYSTSIN DD語句指定。該DBRM庫指定STEPLIB。

上一篇：COBOL程序結(jié)構(gòu)