Forums & Discussions Home

    A place for members, communities, and committees to have discussions online and via e-mail.
    Click a category or topic to below to start the conversation...

    You are currently in view only mode for this forum. Please click the appropriate below to login as a member and participate. If you are not a member, please CLICK HERE for more information.


    jake anderson
    [ma consultancy services]

    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
    [B\CICT]



    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
    [IBM]
    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
    [Nordea]

    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


    All Times America/New_York

    Copyright © 2014 IDUG. All Rights Reserved

    All material, files, logos and trademarks within this site are properties of their respective organizations.

    Terms of Service - Privacy Policy - Contact