jcl10102

来自「很多人编写了cobol程序后 却不知道怎么编写编译程序,呵呵,我给大家提供几个例」· 代码 · 共 17 行

//STEP1    EXEC PGM=IKJEFT01,COND=(4,LT)
//STEPLIB  DD  DSN=DSN810.SDSNLOAD,DISP=SHR
//         DD  DSN=DSN810.SDSNEXIT,DISP=SHR
//         DD  DSN=IFRFNS.FNETIBCH.LOAD,DISP=SHR
//         DD  DSN=IFRFNS.FNETIBCH.LOAD.DBIO,DISP=SHR
//RPMPD101 DD  DSN=FNSAP06.QFILE101,DISP=SHR
//RPMPD102 DD  DSN=FNSAP06.QFILE102,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DD11)
  RUN PROGRAM(RPBPD101) PLAN(RPDBPLAN) LIB('IFRFNS.FNETIBCH.LOAD')
  END
/*