runjb705

这是在大型机的环境下,利用cobol语言编写的银行报表系统开发的一个例子.其中还包含了JCL编译运行文件.

//RUNJB705 JOB MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A
//*------------------------------------------------------------------*
//* DESCRIPTION: GENERATE INPUT DATA FOR REPORT RPTDD705              *
//*------------------------------------------------------------------*
//*  DELETE FILE                                                     *
//*------------------------------------------------------------------*
//STEP010  EXEC PGM=IEFBR14
//DELFILE1 DD DSN=FNSAP04.RPMDD705,DISP=(MOD,DELETE,DELETE),
//         SPACE=(TRK,0)
//DELFILE2 DD DSN=FNSAP04.DEPD705,DISP=(MOD,DELETE,DELETE),
//         SPACE=(TRK,0)
//DELFILE3 DD DSN=FNSAP04.QMID705,DISP=(MOD,DELETE,DELETE),
//         SPACE=(TRK,0)
           IF MAXCC = 8 THEN SET MAXCC = 0
//*------------------------------------------------------------------*
//*  CREATE FILE                                                     *
//*------------------------------------------------------------------*
//IF010    IF (STEP010.RC<=4 AND STEP010.RUN) THEN
//STEP020  EXEC PGM=IEFBR14
//CREFILE1 DD DSN=FNSAP04.RPMDD705,
//         DISP=(,CATLG),DCB=(RECFM=FB,LRECL=117,DSORG=PS),
//         VOL=SER=BDMTS1,SPACE=(CYL,1)
//CREFILE2 DD DSN=FNSAP04.DEPD705,
//         DISP=(,CATLG),DCB=(RECFM=FB,LRECL=133,DSORG=PS),
//         VOL=SER=BDMTS1,SPACE=(CYL,1)
//CREFILE3 DD DSN=FNSAP04.QMID705,
//         DISP=(,CATLG),DCB=(RECFM=FB,LRECL=117,DSORG=PS),
//         VOL=SER=BDMTS1,SPACE=(CYL,1)
/*
//ENDIF010 ENDIF
//*------------------------------------------------------------------*
//*  BUILD RPMDD705 FILE                                             *
//*------------------------------------------------------------------*
//IF020    IF (STEP020.RC<=4 AND STEP020.RUN) THEN
//STEP030  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
//RPMDD705 DD  DSN=FNSAP04.RPMDD705,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DD11)
  RUN PROGRAM(RPIND705) PLAN(RPDBPLAN) LIB('IFRFNS.FNETIBCH.LOAD')
  END
/*
//ENDIF020 ENDIF
//*------------------------------------------------------------------*
//*  SORT FILE                                                       *
//*------------------------------------------------------------------*
//IF030    IF (STEP030.RC<=4 AND STEP030.RUN) THEN
//STEP040  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=A
//SORTIN   DD DSN=FNSAP04.RPMDD705,DISP=SHR
//SORTOUT  DD DSN=FNSAP04.QMID705,DISP=SHR
//SYSIN    DD *
  SORT     FIELDS=(1,5,CH,A)
/*
//ENDIF030 ENDIF
//*------------------------------------------------------------------*
//*  BUILD RPT FILE                                                  *
//*------------------------------------------------------------------*
//IF040    IF (STEP040.RC<=4 AND STEP040.RUN) THEN
//STEP050  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
//FIN      DD  DSN=FNSAP04.QMID705,DISP=SHR
//FOUT     DD  DSN=FNSAP04.DEPD705,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DD11)
  RUN PROGRAM(RPTDD705) PLAN(RPDBPLAN) LIB('IFRFNS.FNETIBCH.LOAD')
  END
//ENDIF040 ENDIF