********************************************************************** * DB90S 5.4 Tech note CD104.T03 March 2002 * * * * Keywords : INSTXITS IDMSDBIO LINKEDIT #COEXIT STARTUP ABEND * * * * INSTXITS as supplied in the C10401.SRCLIB for IDMS R15, contains * * incorrect linkedit details for IDMSDBIO. The linkedit for * * IDMSDBIO as supplied in INSTMAIN is correct. * * * * If you linkedit IDMSDBIO for IDMS R15 with the INCLUDE statements * * from the original INSTXITS, CV will abend at startup. * * * * You may copy the linkedit details for IDMSDBIO from INSTMAIN to * * replace those in the original INSTXITS members. * * * * Alternatively, you may replace the INSTXITS member with that * * listed below. Note, this also contains the change detailed in * * technote CD104.T02. * * * * * ********************************************************************** * Replacement INSTXITS member for IDMS R15 only. * ********************************************************************** //********************************************************************* //* * //* INSTXITS * //* * //* This member "INSTXITS" contains instructions and JCL for * //* installers who have existing IDMSDPLX and/or * //* IDMSIOXT exits. * //* * //* If you have an existing IDMSIOXT or IDMSDPLX exit, you must * //* run the applicable steps in this member to re-generate the * //* IDMSDPLX and/or IDMSIOXT stub, and relink IDMSDBIO. * //* * //********************************************************************* //* * //* The following steps are only run if you have an existing * //* IDMSDPLX exit: * //* * //* DPLXNAM - Rename existing IDMSDPLX exit. * //* DPLXGEN - Assemble and link IDMSDPLX stub. * //* DPLXLNK * //* * //* The following steps are only run if you have an existing * //* IDMSIOXT exit: * //* * //* IOXTNAM - Rename existing IDMSIOXT exit. * //* IOXTGEN - Assemble and link IDMSIOXT stub. * //* IOXTLNK * //* * //* * //********************************************************************* //* THE FOLLOWING GLOBAL CHANGES SHOULD BE MADE BEFORE SUBMITTING* //* THIS JOB STREAM. IT IS SUGGESTED THAT YOU SAVE A COPY OF THIS* //* FILE FIRST. * //* * //* 1. CHANGE EZ-DB.srclib TO THE NAME OF THE LIBRARY * //* TO WHICH YOU UNLOADED THE EZ-DB SOURCE LIBRARY * //* FROM THE INSTALL TAPE. * //* * //* 2. CHANGE EZ-DB.cdmslib TO THE NAME OF THE LIBRARY * //* TO WHICH YOU UNLOADED THE DB-SYNCHRO LOAD LIBRARY * //* FROM THE INSTALL TAPE. * //* * //* 3. CHANGE caidms.maclib TO THE NAME OF THE STANDARD * //* CA-IDMS SOURCE LIBRARY. (CONTAINS IDMS MACROS). * //* * //* 4. CHANGE user.exitlib TO THE NAME OF THE LIBRARY * //* CONTAINING YOUR EXISTING IDMSDPLX/IDMSIOXT EXITS. * //* * //* 5. CHANGE exitdplx TO THE NEW NAME TO BE GIVEN TO YOUR * //* EXISTING IDMSDPLX EXIT. * //* * //* 6. CHANGE exitioxt TO THE NEW NAME TO BE GIVEN TO YOUR * //* EXISTING IDMSIOXT EXIT. * //* * //********************************************************************* //IEFBR14 EXEC PGM=IEFBR14 //************************************************************* //* IF YOU HAVE AN EXISTING IDMSDPLX EXIT YOU MUST RUN * //* THIS STEP TO RENAME IT TO SOMETHING ELSE. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //DPLXNAM EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K,COND=(0,LE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSLMOD DD DSN=user.exitlib,DISP=SHR //SYSIN DD DUMMY //SYSLIN DD * CHANGE IDMSDPLX(exitdplx) INCLUDE SYSLMOD(IDMSDPLX) ENTRY exitdplx NAME exitdplx(R) //* //************************************************************* //* IF YOU HAVE AN EXISTING IDMSIOXT EXIT YOU MUST RUN * //* THIS STEP TO RENAME IT TO SOMETHING ELSE. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //IOXTNAM EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K,COND=(0,LE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSLMOD DD DSN=user.exitlib,DISP=SHR //SYSIN DD DUMMY //SYSLIN DD * CHANGE IDMSIOXT(exitioxt) INCLUDE SYSLMOD(IDMSIOXT) ENTRY exitioxt NAME exitioxt(R) //* //************************************************************* //* ASSEMBLE #COEXIT TO CREATE IDMSDPLX STUB. * //* IF YOU HAVE AN EXISTING IDMSDPLX EXIT YOU MUST RUN * //* THIS STEP TO HAVE IT INVOKED BY THE IDMSDPLX STUB. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //* //DPLXGEN EXEC PGM=IEV90,REGION=1024K,COND=(0,LE) //SYSLIB DD DSN=EZ-DB.SRCLIB,DISP=SHR // DD DSN=CAIDMS.MACLIB,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSUT2 DD DSN=&&WRKB,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSUT3 DD DSN=&&WRKC,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=&&OBJ,UNIT=SYSDA,DISP=(NEW,PASS), // DCB=BLKSIZE=80,SPACE=(CYL,(6),,CONTIG) //SYSIN DD * #COEXIT EPNAME=IDMSDPLX,EPLIST=(COGDPLX3,COGDPLX2,COGDPLX1,exitdplx) //* //************************************************************* //* RUN THIS STEP IF YOU HAVE AN EXISTING IDMSDPLX EXIT. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //DPLXLNK EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K,COND=(0,LE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSLMOD DD DSN=EZ-DB.CDMSLIB,DISP=SHR //SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) // DD * NAME IDMSDPLX(R) //* //************************************************************* //* ASSEMBLE AND LINK #COEXIT TO CREATE IDMSIOXT STUB. * //* IF YOU HAVE AN EXISTING IDMSIOXT EXIT YOU MUST RUN * //* THIS STEP TO HAVE IT INVOKED BY THE IDMSIOXT STUB. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //IOXTGEN EXEC PGM=IEV90,REGION=1024K,COND=(0,LE) //SYSLIB DD DSN=EZ-DB.SRCLIB,DISP=SHR // DD DSN=CAIDMS.MACLIB,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSUT2 DD DSN=&&WRKB,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSUT3 DD DSN=&&WRKC,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=&&OBJ,UNIT=SYSDA,DISP=(NEW,PASS), // DCB=BLKSIZE=80,SPACE=(CYL,(6),,CONTIG) //SYSIN DD * #COEXIT EPNAME=IDMSIOXT,EPLIST=(COXAIOEP,exitioxt) //* //************************************************************* //* RUN THIS STEP IF YOU HAVE AN EXITING IDMSIOXT EXIT. * //* (CHANGE THE CONDITION CODE TO COND=(0,LT) * //************************************************************* //IOXTLNK EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K,COND=(0,LE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //SYSLMOD DD DSN=EZ-DB.CDMSLIB,DISP=SHR //SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) // DD * NAME IDMSIOXT(R) //* //************************************************************* //* LINK EDIT IDMSDBIO - R15 ONLY * //************************************************************* //LNKDBIO EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K,COND=(0,LT) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKD,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //IDMSLIB DD DSN=CAIDMS.LOADLIB,DISP=SHR //COGLIB DD DSN=EZ-DB.CDMSLIB,DISP=SHR //SYSLMOD DD DSN=EZ-DB.CDMSLIB,DISP=SHR //EXITLIB DD DSN=user.exitlib,DISP=SHR //SYSLIN DD * INCLUDE COGLIB(CODBIOLD) INCLUDE COGLIB(IDMSDPLX) INCLUDE COGLIB(IDMSIOXT) INCLUDE COGLIB(IDMSIOX2) *INCLUDE COGLIB(IDMSJNL2) * optional for DB-MEGabuf Sequential INCLUDE EXITLIB(exitioxt) * omit if no user I/O exit INCLUDE EXITLIB(exitdplx) * omit if no user DPLX exit CHANGE #EPMAP(DBIOMAP) INCLUDE IDMSLIB(IDMSDBIO) ENTRY #EPMAP NAME IDMSDBIO(R) //*