File Edit Confirm Menu Utilities Compilers Test Help
EDIT
IBMMFS.MACC.MACC(DB2COMP) - 01.05 Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //DB2COM JOB 'IBMMFS','MAC',CLASS=C,MSGCLASS=X, NOTIFY=&SYSUID
000002 //* - DCL PDS, INPUT PGM, DBRM & LOAD PDS MUST ALREADY EXIST
000003 //* - ASSUME THAT PROGRAM & DBRM & LOAD MODULE
000004 //* - MAY HAVE THE SAME MEMBER NAME ON DIFFERENT PDS
000005 //* COBMDSN5 - DB2 PRECOMPILE (PC), *
000006 //* IBM COBOL COMPILE (COB), *
000007 //* PRELINK (PLKED), *
000008 //* AND LINK EDIT (LKED) A DB2 SQL PROGRAM. *
000009 //********************************************************************
000010 //COBMDSN5 PROC WSPC=500,MEM=TEMPNAME
000011 //********************************************************************
000012 //* PRECOMPILE THE IBM COBOL PROGRAM *
000013 //********************************************************************
000014 //PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K
000015 //DBRMLIB DD DSN=IBMMFS.MACC.DBRM(&MEM), <== DBRM LIB
000016 // DISP=SHR
000017 //STEPLIB DD DISP=SHR,DSN=SYS1.DSN510.SDSNEXIT
000018 // DD DISP=SHR,DSN=DSN510.SDSNLOAD
000019 //SYSIN DD DSN=IBMMFS.MACC.MACC(&MEM),DISP=SHR <==IP PGM
000020 //SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
000021 // SPACE=(800,(&WSPC,&WSPC))
000022 //SYSLIB DD DSN='IBMMFS.MACC.DB2', <== DB2 DCL LIB
000023 // DISP=SHR
000024 //SYSPRINT DD SYSOUT=*
000025 //SYSTERM DD SYSOUT=*
000026 //SYSUDUMP DD SYSOUT=*
000027 //SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000028 //SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000029 //********************************************************************
000030 //* COMPILE THE IBM COBOL PROGRAM IF THE PRECOMPILE *
000031 //* RETURN CODE IS 4 OR LESS. *
000032 //********************************************************************
000033 //COB EXEC PGM=IGYCRCTL,REGION=2048K,
000034 // COND=(4,LT,PC)
000035 //STEPLIB DD DSN=IGY.V2R1M0.SIGYCOMP,DISP=SHR
000036 //SYSPRINT DD SYSOUT=*
000037 //SYSTERM DD SYSOUT=*
000038 //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
000039 // SPACE=(800,(&WSPC,&WSPC))
000040 //SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
000041 //SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000042 //SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000043 //SYSUT3 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000044 //SYSUT4 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000045 //SYSUT5 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000046 //SYSUT6 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000047 //SYSUT7 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
000048 //********************************************************************
000049 //* PRELINK STEP. *
000050 //********************************************************************
000051 //PLKED EXEC PGM=EDCPRLK,REGION=2048K,COND=((4,LT,PC),(4,LT,COB))
000052 //STEPLIB DD DSN=CEE.SCEERUN,DISP=SHR
000053 //SYSMSGS DD DSN=CEE.SCEEMSGP(EDCPMSGE),DISP=SHR
000054 //SYSIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
000055 //SYSLIB DD DSN=SOMMVS.SGOSLNKL,DISP=SHR
000056 //SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
000057 // SPACE=(32000,(30,30)),
000058 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
000059 //SYSDEFSD DD DUMMY
000060 //SYSOUT DD SYSOUT=*
000061 //SYSPRINT DD SYSOUT=*
000062 //SYSTERM DD SYSOUT=*
000063 //********************************************************************
000064 //* LINKEDIT IF THE PRECOMPILE AND COMPILE *
000065 //* RETURN CODES ARE 4 OR LESS. *
000066 //********************************************************************
000067 //LKED EXEC PGM=IEWL,PARM='MAP',
000068 // COND=((4,LT,PC),(4,LT,COB),(4,LT,PLKED))
000069 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
000070 // DD DISP=SHR,DSN=DSN510.SDSNLOAD
000071 // DD DISP=SHR,DSN=CICS410.SDFHLOAD
000072 // DD DISP=SHR,DSN=ISP.SISPLOAD
000073 //SYSLIN DD DSN=&&PLKSET,DISP=(OLD,DELETE)
000074 // DD DDNAME=SYSIN
000075 //**************************************************************
000076 //*
000077 //* SYSMOD <== LOADLIB WITH MEM NAME
000078 //* MEM <== MEM NAME
000079 //* NOTE: PROGRAM NAME = DBRM NAME = LOAD MODULE
000080 //* DBRM IS CREATED BY DB2 PRECOMPILER WITH SAME
000081 //* NAME AS PROGRAM NAME (HERE MEM NAME)
000082 //* LOAD MODULE IS CREATED BY COBOL COMPILER
000083 //* WITH SAME NAME AS PROGRAM NAME//YOU CAN OVERLOAD THIS
000084 //**************************************************************
000085 //SYSLMOD DD DSN=IBMMFS.MACC.LOAD(&MEM), <== LOAD LIB
000086 // DISP=SHR
000087 //SYSPRINT DD SYSOUT=*
000088 //SYSUT1 DD SPACE=(1024,(50,50)),UNIT=SYSDA
000089 // PEND
000090 // EXEC COBMDSN5,MEM=PGM157 <== MEM NAME (PGM/DBRM/LOAD)
000091 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|