RTT module on IMS TM -DB2

jake anderson

RTT module on IMS TM -DB2

Hello,

Does anyone have a "real life" example they can share of the DSNMAPN macro IMS APNs (applications/PSBs) and DB2 PLANs ? 

Regards,

Jake

Marcel Harleman

Betr: RTT module on IMS TM -DB2
(in response to jake anderson)



Hi Jake

here is one (well, not really reallife, but a modified example). You
probably have the setup already, but just in case:

In the IMS.PROCLIB(DFSPBxxx) you specify:

SSM=<ssm>,

The you create a member IMS.PROCLIB(<imsid><ssm>) and speicfy:

<db2mbr>,SYS1,DSNMIN10,<rtt modulename>,R,-


And you run the following JCL:

//GEN EXEC PGM=IEV90,PARM='OBJECT,REUSE'
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=DB2.SDSNMACS,DISP=SHR
//SYSLIN DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)),
// DCB=(BLKSIZE=400)
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSUT1 DD UNIT=DISK,DISP=(,DELETE),
// SPACE=(1700,(100,50))
//SYSUT2 DD UNIT=DISK,DISP=(,DELETE),
// SPACE=(1700,(100,50))
//SYSUT3 DD UNIT=(DISK,SEP=(SYSLIB,SYSUT1,SYSUT2)),
// SPACE=(1700,(100,50))
//SYSIN DD *
<rtt modulename> DSNMAPN APN=<psb>,PLAN=<planname>,OPTION=R,END=NO
DSNMAPN APN=<lastpsb>,PLAN=<plan>,OPTION=R,END=YES
END
/*
//LKED EXEC PGM=IEWL,PARM='XREF,LET,LIST,RENT,RMODE(24)',
// COND=(5,LT,GEN),REGION=0K
//SYSLIN DD DSN=*.GEN.SYSLIN,DISP=(OLD,DELETE)
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=IMS.SDFSRESL(<rtt modulename>),DISP=SHR
//SYSUT1 DD UNIT=(DISK,SEP=(SYSLMOD,SYSLIN)),
// SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)


Regards, Marcel.


------------------------------------------------------------------------
De Belastingdienst gebruikt e-mail niet voor de uitwisseling van
vertrouwelijke informatie met de burger of voor de bekendmaking
van beslissingen. De Belastingdienst hanteert conventies voor het
gebruik van e-mail. Deze zijn te vinden op www.belastingdienst.nl.

Cuneyt Goksu

RTT module on IMS TM -DB2
(in response to jake anderson)
Hello Jake;



I'll send you a real example in a minute offline.



Regards, Cuneyt



From: jake anderson [mailto:[login to unmask email]
Sent: Friday, March 02, 2012 8:04 AM
To: [login to unmask email]
Subject: [DB2-L] - RTT module on IMS TM -DB2



Hello,

Does anyone have a "real life" example they can share of the DSNMAPN macro
IMS APNs (applications/PSBs) and DB2 PLANs ?

Regards,

Jake



-----End Original Message-----

Johnny Mossin

RE: RTT module on IMS TM -DB2
(in response to jake anderson)

Here is a subset copy of our rtt source:

 

RTTDBF0 DSNMAPN APN=AE000,PLAN=BFAE0000,OPTION=R,END=NO

              DSNMAPN APN=AFME1,PLAN=BFAFME10,OPTION=R,END=NO

              ..... (some lines not included)

              DSNMAPN APN=YB999,PLAN=BFYB9990,OPTION=R,END=YES

              END

This source is 'compiled' into load module RTTDBF0 in RTTLOAD library, allocated in batch bmp jcl to dd DFSESL

and in the run of the batch bmp, we put in parm TTF0 (after AGN parm), this points to a proclib member IMS?TTF0 containing a line:

DB2T,SYS1,DSNMIN10,RTTDBF0,R

Hope this is what you are looking for..

Johnny