opjproc

用COBOL语言基于IBM大型机实现的一系列样例程序。

//OPJPROC  JOB ,'OPJPROC  ',MSGLEVEL=(1,1),MSGCLASS=X,
//         CLASS=A,NOTIFY=&SYSUID,REGION=4M
//         SET LVL=CVT,J=2,M=1,N=1
//         SET SRCLIB=DEVBYJ.SRCLIB,LISTLIB=DEVBYJ.LISTS
//         SET MEMBER=XXXXXXXX
//SEARCH   JCLLIB ORDER=(&LVL..IBS.PROCLIB,&LVL..BAT.PROCLIB,
//          &LVL..BAT.PARMLIB,&LVL..IBS.PARMLIB,&LVL..ONL.INSTLIB)
//         INCLUDE MEMBER=SCPENV
//JOBLIB   DD DSN=&DBLOAD,DISP=SHR
//         DD DSN=&LVL..IBS.LOADLIB,DISP=SHR
//         DD DSN=&LVL..BAT.LOADLIB,DISP=SHR
//*--------------------------------------------------------------------*
//COPYBOOK EXEC PGM=ISRLEMX,
//         PARM=('COB,&MEMBER,B,N,E,9,,,ENU,4,7,1,/,UNIT,,')
//ISRLCODE DD   DSN=&SRCLIB,DISP=SHR
//         DD   DSN=TST.ONL.COPYLIB,DISP=SHR
//         DD   DSN=TST.IBS.COPYLIB,DISP=SHR
//         DD   DSN=CVT.ONL.COPYLIB,DISP=SHR
//ISRLEXPD DD   DSNAME=&LISTLIB(&MEMBER),DISP=SHR
//ISRLXREF DD   DSNAME=&&ISRLXREF,UNIT=SYSDA,
//         DISP=(MOD,DELETE),SPACE=(TRK,(5,5)),
//         DCB=(BLKSIZE=3200)
//ISRLMSG  DD   SYSOUT=(A)
//*
//*-------------------------------------------------------------------*
//IBSCOPY  EXEC PGM=IBSCOPY
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//STEPLIB  DD   DSNAME=CVT.BAT.LOADLIB,DISP=SHR
//SYSLIB   DD   DSNAME=DV2.IBS.COPYLIB,DISP=SHR
//         DD   DSNAME=DV2.ONL.COPYLIB,DISP=SHR
//         DD   DSN=CVT.ONL.COPYLIB,DISP=SHR
//SYSLIN   DD   DSN=&&COPYOUT,DISP=(MOD,PASS),UNIT=SYSDA,
//         SPACE=(1000,(800,800))
//SYSIN    DD   DSN=&LISTLIB(&MEMBER),DISP=SHR
//*
//*-------------------------------------------------------------------*
//TRANS    EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(7,LT)
//STEPLIB  DD   DSN=DSN710.SDSNEXIT,DISP=SHR
//         DD   DSN=DSN710.SDSNLOAD,DISP=SHR
//SYSTSPRT DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSPUNCH DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//TOOLOUT  DD   DSN=&&TOOLOUT,DISP=(MOD,CATLG),UNIT=SYSDA,
//         SPACE=(800,(500,500))
//TOOLIN   DD   DSN=&&COPYOUT,DISP=(OLD,DELETE)
//SYSTSIN  DD  *
DSN SYSTEM(DSN1)
RUN  PROGRAM(IBSTRANS) PLAN(IBSTRANS) PARMS('CVT B') -
LIB('CVT.BAT.LOADLIB')
/*
//*
//*-------------------------------------------------------------------*
//* D4CB- FOR COMPILE A BATCH COBOL PROGRAM WITH DB2 IN CVT ENV       *
//*-------------------------------------------------------------------*
//PC       EXEC PGM=DSNHPC,
//         PARM='HOST(COB2),XREF,SOURCE,APOST,APOSTSQL',
//         REGION=4M,COND=(7,LT)
//DBRMLIB  DD   DSN=CVT.ONL.DBRMLIB(&MEMBER),
//         DISP=SHR
//STEPLIB  DD   DISP=SHR,DSN=DSN710.SDSNEXIT
//         DD   DISP=SHR,DSN=DSN710.SDSNLOAD
//SYSLIB   DD   DISP=SHR,DSN=DV2.ONL.COPYLIB
//         DD   DISP=SHR,DSN=CVT.ONL.COPYLIB
//SYSCIN   DD   DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
//         SPACE=(800,(500,500))
//SYSPRINT DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//SYSUT1   DD   SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT2   DD   SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSIN    DD   DSN=&&TOOLOUT,DISP=(OLD,DELETE)
//*
//COB      EXEC PGM=IGYCRCTL,REGION=2048K,COND=(4,LT),
//     PARM='LIB,OBJECT,APOST,MAP,OFFSET,NOLIST,XREF,RENT,TEST'
//STEPLIB  DD   DSNAME=IGY.SIGYCOMP,DISP=SHR
//SYSIN    DD   DSNAME=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSLIB   DD   DSNAME=DV2.IBS.COPYLIB,DISP=SHR
//         DD   DSNAME=DV2.ONL.COPYLIB,DISP=SHR
//         DD   DSNAME=CVT.ONL.COPYLIB,DISP=SHR
//SYSLIN   DD   DSNAME=&&LOADSET,UNIT=SYSDA,
//         DISP=(MOD,CATLG),SPACE=(TRK,(5,5)),
//         DCB=(BLKSIZE=3200)
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
//*
//LKED     EXEC PGM=IEWL,COND=(4,LT),REGION=2M,PARM='XREF'
//SYSLIB   DD   DSNAME=CEE.SCEELKED,DISP=SHR
//         DD   DSNAME=CVT.BAT.LOADLIB,DISP=SHR
//         DD   DISP=SHR,DSN=DSN710.SDSNLOAD
//         DD   DISP=SHR,DSN=DSN710.SDSNEXIT
//RUNLIB   DD   DSN=DSN710.RUNLIB.LOAD,DISP=SHR
//SYSPRINT DD   SYSOUT=*
//SYSLIN   DD   DSNAME=&&LOADSET,DISP=(OLD,DELETE)
//         DD   DDNAME=SYSIN
//SYSLMOD  DD   DSNAME=CVT.BAT.LOADLIB(&MEMBER),DISP=SHR
//SYSUT1   DD   UNIT=SYSDA,SPACE=(TRK,(10,10))
//*
//*           BIND IF LINK-EDITED CODE ARE 4 OR LESS
//*
//BINDCHK  EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(7,LT),
//   PARM='EXEC ''DEVHXQ.CLIST(BINDCHK)'' ''&MEMBER'' '
//SYSTSPRT DD  SYSOUT=*
//SYSPROC  DD  DISP=SHR,DSN=DEVHXQ.CLIST
//SYSPRINT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*
//         IF COB.RC<5 THEN
//         IF BINDCHK.RC<3 THEN
//BIND     EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB  DD DISP=SHR,DSN=CVT.ONL.DBRMLIB
//SYSTSPRT DD SYSOUT=*
//*YSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSIN  DD *
DSN SYSTEM(DSN1)
BIND PACKAGE(CVBPKCV) MEMBER(XXXXXXXX) ACT(REP) VALIDATE(BIND) -
QUALIFIER(CVT) ISOLATION(CS)
/*
//         ENDIF
//         ENDIF
//*