File Edit Confirm Menu Utilities Compilers Test Help
EDIT
IBMMFS.MAC.DB2(DB2ALL) - 01.05 Columns 00001 - 00072
****** ***************************** Top of Data ************************************** 000001 //DB2ALL JOB 'IBMMFS','MAC',CLASS=C,MSGCLASS=X,
000002 // NOTIFY=&SYSUID,REGION=0M
000003 //*
000004 //********************************************************************
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 //*
000080 //*
000081 //* DBRMLIB <== DBRMLIB NAME
000082 //*
000083 //*
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=COBOL <== MEM NAME
000091 //* WITH MEM
000092 //DB2TSO EXEC PGM=IKJEFT01,
000093 // DYNAMNBR=20
000094 //STEPLIB DD DSN=DSN510.SDSNLOAD,DISP=SHR
000095 // DD DSN=SYS1.DSN510.SDSNEXIT,DISP=SHR
000096 // DD DSN=DSN510.RUNLIB.LOAD,DISP=SHR
000097 // DD DSN=IBMMFS.CICS410.LOADLIB,DISP=SHR
000098 //DBRMLIB DD DSN=IBMMFS.MACC.DBRM,DISP=SHR
000099 //SYSTSPRT DD SYSOUT=A
000100 //SYSPRINT DD SYSOUT=A
000101 //SYSUDUMP DD SYSOUT=A
000102 //SYSTSIN DD *
000103 DSN SYSTEM(DSN)
000104 BIND PLAN(COBOLN) MEM(COBOL) -
000105 LIBRARY ('IBMMFS.MACC.DBRM') -
000106 RELEASE(COMMIT) ISOLATION(CS) -
000107 VALIDATE(BIND) -
000108 ACTION(REPLACE) OWNER(IBMMFS)
000109 RUN PROGRAM(COBOL) PLAN(COBOLN) -
000110 LIB('IBMMFS.MACC.LOAD')
000111 END
000112 /*
000113 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|