jcl

很多人编写了cobol程序后 却不知道怎么编写编译程序,呵呵,我给大家提供几个例子哦.

//STEP1    EXEC PGM=IKJEFT01,COND=(4,LT)
//STEPLIB  DD  DSN=DSN810.SDSNLOAD,DISP=SHR
//         DD  DSN=DSN810.SDSNEXIT,DISP=SHR
//         DD  DSN=IFRFNS.FNETICOM.BINDCARD,DISP=SHR
//         DD  DSN=IFRFNS.FNETICOM.GRANTLIB,DISP=SHR
//         DD  DSN=IFRFNS.FNETIBCH.LOAD,DISP=SHR
//         DD  DSN=IFRFNS.FNETIBCH.LOAD.DBIO,DISP=SHR
//RPMID002 DD  DSN=FNSAP03.RPMID002,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DD11)
  RUN PROGRAM(JJCFB)  PLAN(IPYID002) LIB('IFRFNS.FNETIBCH.LOAD')
  END
/*