File Edit Confirm Menu Utilities Compilers Test Help
EDIT
IBMMFS.PROC.DB2(DB2CICSC) - 01.05 Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //DB2CICSC PROC INLIB=,SRCLIB=,DBRMLIB=,RPLLIB=,
000002 // MEM=,
000003 // DB2VER=DSN510,WKSPC=500,
000004 // LNGPRFX='IGY.V2R1M0',SYSLBLK=3200,
000005 // LIBPRFX='CEE', <<LANGUAGE ENVIRONMENT>>
000006 // INDEX2='CICS410',
000007 // OUTC=*,REG=4096K,SUFFIX=1$
000008 //* PARAMETER DEFAULT VALUE USAGE
000009 //* DB2VER DSN510 DB2 SYSTEM LIBS(+ SYS1. .SDSNEXIT)
000010 //* INDEX2 CICS410 VERSION FOR CICS SDFHLOAD LIB
000011 //* LIBPRFX CEE PREFIX FOR LANG ENVIRO LIB DSNS
000012 //* LNGPRFX IGY.V2R1M0 PREFIX FOR LANGUAGE DSNAMES
000013 //* WKSPC 500 TRACKS FOR PRECOMPILE WORKSPACE
000014 //* SYSLBLK 3200 BLOCKSIZE FOR OBJECT DATA SET
000015 //* INLIB NO DEFAULT DSNAME FOR USER SOURCE LIB
000016 //* SRCLIB NO DEFAULT DSNAME FOR USER AUX INPUT (COPY?)
000017 //* DBRMLIB NO DEFAULT HIGH INDEX FOR DB2 PLAN LIB
000018 //* RPLLIB NO DEFAULT DSNAME FOR OUTPUT LOAD MODULE
000019 //* MEM NO DEFAULT MEMBER NAME FOR SOURCE PROGAM
000020 //*
000021 //* ======== DB2 5.1 / CICS 4.10 / COBOLM / COMPILE & LINK
000022 //*
000023 //* - DB2 PRECOMPILE (PC),
000024 //* - CICS TRANSLATION STEP,
000025 //* - IBM COBOL COMPILE (COB),
000026 //* - REBLOCK CICS STUB,
000027 //* - PRELINK (PLKED),
000028 //* - AND LINK EDIT (LKED) A DB2 SQL PROGRAM.
000029 //*
000030 //********************************************************************
000031 //* DB2 PRECOMPILE OF THE IBM COBOL PROGRAM *
000032 //********************************************************************
000033 //PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K
000034 //DBRMLIB DD DSN=&DBRMLIB(&MEM),DISP=SHR <== PLANINFO
000035 //STEPLIB DD DISP=SHR,DSN=SYS1.&DB2VER..SDSNEXIT
000036 // DD DISP=SHR,DSN=&DB2VER..SDSNLOAD
000037 //SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS), <== ALTEREDSOURCE
000038 // UNIT=SYSDA,SPACE=(800,(&WKSPC,&WKSPC))
000039 //SYSLIB DD DSN=&SRCLIB,DISP=SHR
000040 //SYSPRINT DD SYSOUT=*
000041 //SYSTERM DD SYSOUT=*
000042 //SYSUDUMP DD SYSOUT=*
000043 //SYSUT1 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
000044 //SYSUT2 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
000045 //SYSIN DD DSN=&INLIB(&MEM),DISP=SHR
000046 //*
000047 //********************************************************************
000048 //* PASS THE OUTPUT OF PRECOMPILE TO CICS TRANSLATOR *
000049 //********************************************************************
000050 //TRN EXEC PGM=DFHECP&SUFFIX,REGION=®,COND=(4,LT,PC),
000051 // PARM='COBOL3,LANGLVL(2),NODEBUG,NOSOURCE,SP,NOOPT'
000052 //STEPLIB DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
000053 //SYSPRINT DD SYSOUT=&OUTC
000054 //SYSPUNCH DD DSN=&&SYSCIN,DISP=(,PASS),
000055 // UNIT=SYSDA,DCB=BLKSIZE=400,
000056 // SPACE=(400,(400,400))
000057 //SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
000058 //*
000059 //********************************************************************
000060 //* COMPILE THE NEW MODIFIED SOURCE FROM THE TRANSLATE STEP *
000061 //********************************************************************
000062 //COB EXEC PGM=IGYCRCTL,REGION=2048K,COND=(4,LT,TRN)
000063 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR
000064 //SYSPRINT DD SYSOUT=*
000065 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
000066 // DISP=(MOD,PASS),SPACE=(CYL,(1,1)),
000067 // DCB=(BLKSIZE=&SYSLBLK)
000068 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000069 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000070 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000071 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000072 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000073 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000074 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000075 //SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
000076 //*
000077 //********************************************************************
000078 //* MAKE SURE THE SYSTEM CICS STUB IS BLOCKSIZE WE CAN USE *
000079 //********************************************************************
000080 //CPY4LNK EXEC PGM=IEBGENER,COND=(7,LT,COB)
000081 //SYSUT1 DD DSN=&INDEX2..SDFHCOB(DFHEILIC),DISP=SHR
000082 //SYSUT2 DD UNIT=SYSDA,DSN=&&EI1STUB,DISP=(,PASS),
000083 // DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),SPACE=(400,(20,20))
000084 //SYSPRINT DD SYSOUT=*
000085 //SYSIN DD DUMMY
000086 //*
000087 //********************************************************************
000088 //* PRELINK STEP FOR CEE MODULES AND UNIX SERVICES *
000089 //********************************************************************
000090 //PLKED EXEC PGM=EDCPRLK,REGION=2048K,COND=((4,LT,PC),(4,LT,COB))
000091 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
000092 //SYSMSGS DD DSN=&LIBPRFX..SCEEMSGP(EDCPMSGE),DISP=SHR
000093 //SYSIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
000094 //SYSLIB DD DSN=SOMMVS.SGOSLNKL,DISP=SHR
000095 //SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
000096 // SPACE=(32000,(30,30)),
000097 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
000098 //SYSDEFSD DD DUMMY
000099 //SYSOUT DD SYSOUT=*
000100 //SYSPRINT DD SYSOUT=*
000101 //SYSTERM DD SYSOUT=*
000102 //********************************************************************
000103 //* LINKEDIT OUTPUT FROM CPY4LNK & PRELINK & SYSIN OVERRIDE *
000104 //********************************************************************
000105 //LKED EXEC PGM=HEWL,COND=(8,LT,COB),REGION=1024K
000106 //SYSLIB DD DSNAME=&INDEX2..SDFHLOAD,DISP=SHR
000107 // DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
000108 // DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR
000109 // DD DSNAME=&LIBPRFX..SCEECICS,DISP=SHR
000110 //SYSPRINT DD SYSOUT=*
000111 //SYSLIN DD DSNAME=&&EI1STUB,DISP=(OLD,DELETE)
000112 // DD DSN=&&PLKSET,DISP=(OLD,DELETE)
000113 // DD DDNAME=SYSIN
000114 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
000115 //SYSLMOD DD DSNAME=&RPLLIB,DISP=SHR
000116 //DB2LOAD DD DSNAME=&DB2VER..SDSNLOAD,DISP=SHR
000117 //SYSIN DD DUMMY <= LKED.SYSIN SHOULD OVERLOAD DSNCLI & PGMNAME
000118 //*
000119 // PEND <= END OF DB2CICSC PROC
000120 //*
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|