IDMS

 View Only
  • 1.  DC-BATCH

    Posted Oct 27, 2009 12:25 AM
    Is there a way to run DC-BATCH in local mode?
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: DC-BATCH
    "In a word - NO. The IDMS-DC facilities that are available to DC-BATCH protocol programs are WRITE PRINTER and GET/PUT/DELETE QUEUE. Both Printer and Queue commands require DDDLDCQUE in Update - since they are already in update for the DB/DC region you will not be able to access them. Also the routines used within IDMS-DC are only available to batch through the IDMSDCBI Batch interface - which requires you to use CV mode at run-time.

    HTH - cheers - Gary


    Gary Cherlet
    Justice Technology Services
    Department of Justice, SA Government
    Telephone +61 (0)8 8226 5199
    Facsimile +61 (0)8 8226 5311
    Mobile +61 (0)41 333 1613
    MailTo:gary.cherlet@sa.gov.au

    This e-mail message and any attachments are qualified as follows: Addressing: If you have received this e-mail in error, please advise by reply e-mail to the sender. Please also destroy the original transmission and its contents. Confidentiality: This e-mail may contain confidential information which also may be legally privileged. Only the intended recipient(s) may access, use, distribute or copy this e-mail. Individual Views: Unless otherwise indicated, the views expressed are those of the sender, not Justice Technology Services. Computer Viruses: It is the recipient's responsibility to check the e-mail and any attached files for viruses.


  • 2.  Re:DC-BATCH

    Posted Oct 27, 2009 12:25 AM
    Is there a way to run DC-BATCH in local mode?
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    FW: XA REENTRANT PROGRAM POOL SIZE
    "I didn't see a lot of replies to this query - so I thought I'd provide the =
    following feedback - for what it's worth?

    As you can see from the following display our XA Reentrant Pool is 66,867,=
    200 bytes ( approx 67 Mb) and we have no problems. How did we pick the si=
    ze? At most sites I've worked at I run a Load Module Size report against th=
    e application DDLDCLOD area to total the size of all Maps, Dialogs, Subsche=
    mas and Tables. I then add this to the amount of pool used immediately afte=
    r startup and use that value as my pool size.

    With this approach my ""Loads into unallocated space"" is very close to 100% =
    - ""Loads overlaying program not in use"" is thus very close to 0%. My ""Pages=
    in pool"" and ""Pages loaded"" are almost the same under these conditions.

    Prior to this action I have seen sites with ""Pages loaded"" of 5, 10, 50 tim=
    es or more than ""Pages in pool"". This of course means a lot of needless I/O=
    to DDLDCLOD. After the changes I have seen PMRM show I/O against DDLDCLOD =
    drop from top 5 to 10 hit areas - right down to the bottom. This frees up m=
    uch needed I/O bandwidth for application databases.

    That I can't achieve this as shown in the figures below (for my current sit=
    e) is due to a few things: 1) our single DB/DC region supports 3 complete b=
    usinesses, each of which has its own suite of applications, 2) the applicat=
    ions in use change at shift changes and as we move from day shift to night =
    shift in each agency, 3) to use the approach of making the XA RE Pool large=
    enough to hold all the applications for all the agencies would likely caus=
    e our system paging rates to go through the roof.

    Our trade off to causing system wide paging problems is to allow our XA RE =
    pool to reload itself about 5-10 times a day - this is a relatively smooth =
    process spread across the entire day as the agency/application usage profil=
    e changes - so we don't get a really heavy hit on DDLDCLOD all day long.

    Hopefully this allays any fears of horrible consequences of large program p=
    ool sizes, and also provides some insight into a couple of approaches to a =
    XA RE Program pool sizing exercise.

    HTH - cheers - Gary=20



    d ac xa re prog pool =20
    *** Display of XA Reentrant Pool *** =20
    Pages in pool 130600 =20
    Bytes in pool 66867200 =20
    Loads to pool 19832 =20
    Pages loaded 1389188 =20
    Load conflicts 0 =20
    =20
    CURRENT ALLOCATIONS =20
    Pages allocated 30575 100% of pool =20
    Pages in use by one program 5925 5% of pool =20
    Pages in use by multiple programs 0 0% of pool =20
    High-Water mark of pages allocated 30600 100% of pool =20
    Loads into unallocated space 4167 21% of loads =20
    Loads overlaying program not in use 15665 79% of loads =20
    Loads overlaying program in use 0 0% of loads =
    =20

    Gary Cherlet
    Justice Technology Services
    Department of Justice, SA Government

    """""""" Telephone +61 (0)8 8226 5199
    @@ Facsimile +61 (0)8 8226 5311
    > Mobile +61 (0)41 333 1613
    /\ MailTo:gary.cherlet@sa.gov.au

    On this page I appear to be deeply concerned about one thing or another ...=
    .... this is merely an old habit of the face Leonard Cohen

    This e-mail message and any attachments are qualified as follows: Addressin=
    g: If you have received this e-mail in error, please advise by reply e-mai=
    l to the sender. Please also destroy the original transmission and its con=
    tents. Confidentiality: This e-mail may contain confidential information w=
    hich also may be legally privileged. Only the intended recipient(s) may ac=
    cess, use, distribute or copy this e-mail. Individual Views: Unless otherw=
    ise indicated, the views expressed are those of the sender, not Justice Tec=
    hnology Services. Computer Viruses: It is the recipient's responsibility t=
    o check the e-mail and any attached files for viruses.


  • 3.  Re:DC-BATCH

    Posted Oct 27, 2009 12:25 AM
    Is there a way to run DC-BATCH in local mode?
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: CTABGEN
    "This is a multipart message in MIME format.
    --=_related 006A47948625765C_=
    Content-Type: multipart/alternative; boundary=""=_alternative 006A47948625765C_=""


    --=_alternative 006A47948625765C_=
    Content-Type: text/plain; charset=""US-ASCII""

    // JOB CARD STUFF

    //ASMFCL EXEC ASMFCL
    //ASM.SYSLIB DD DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
    // DD DSN=SYS1.MACLIB,DISP=SHR
    // DD DSN=SYS1.MODGEN,DISP=SHR
    // DD DSN=CEE.SCEEMAC,DISP=SHR
    //ASM.SYSIN DD *
    #CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES, X
    (N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A), X
    (N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A), X
    (N036,A,N037,A,N040,A,N047,A,N058,A,N090,A), X
    (N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B), X
    (N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B), X
    (N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B), X
    (N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B), X
    (N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B), X
    (N056,B,N059,B,N060,B,N061,B,N062,B,N063,B), X
    (N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B), X
    (N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B), X
    (N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B), X
    (N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B), X
    (N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B), X
    (N009001,C,N009002,C,N009003,C,N025004,C,N091001,C), X
    (N091002,C,N091003,C), X
    (N001,D)
    END
    /*
    //LKED.SYSLMOD DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
    //LKED.SYSMT00 DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
    //LKED.SYSIN DD *
    REPLACE RHDCCTAB
    INCLUDE SYSMT00(RHDCMT00)
    ENTRY MT00EP1
    MODE AMODE(31),RMODE(ANY)
    NAME RHDCMT00(R)
    /*

    Hope this helps..



    George H Lewandowski
    Database Administrator
    GIS
    7x24 Operations
    GA-25, J46-2E

    Work (847) 938-5526
    Pager (800) 209-1305
    george.lewandowski@abbott.com




    This communication may contain information that is proprietary,
    confidential, or exempt from disclosure. If you are not the intended
    recipient, please note that any other dissemination, distribution, use or
    copying of this communication is strictly prohibited. Anyone who receives
    this message in error should notify the sender immediately by telephone or
    by return e-mail and delete it from his or her computer.




    From:
    Bob Wiklund <wiklund@TIBURONTECH.COM>
    To:
    IDMS-L@LISTSERV.IUASSN.COM
    Date:
    10/27/2009 02:10 PM
    Subject:
    CTABGEN
    Sent by:
    IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>



    Does anyone have JCL to assemble and link the CTABGEN macro outside of
    SMP? A copy would be greatly appreciated.

    Tia,

    Bob

    Bob Wiklund
    Tiburon Technologies
    623 594-6022



    --=_alternative 006A47948625765C_=
    Content-Type: text/html; charset=""US-ASCII""


    <br><font size=2 face=""Courier New""><b>//   JOB CARD STUFF</b></font>
    <br><font size=2 face=""Courier New""><b>   </b></font>
    <br><font size=2 face=""Courier New""><b>//ASMFCL    EXEC ASMFCL
                         
                         
         </b></font>
    <br><font size=2 face=""Courier New""><b>//ASM.SYSLIB DD  DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
                      </b></font>
    <br><font size=2 face=""Courier New""><b>//          
    DD  DSN=SYS1.MACLIB,DISP=SHR            
                      </b></font>
    <br><font size=2 face=""Courier New""><b>//          
    DD  DSN=SYS1.MODGEN,DISP=SHR            
                      </b></font>
    <br><font size=2 face=""Courier New""><b>//          
    DD  DSN=CEE.SCEEMAC,DISP=SHR            
                      </b></font>
    <br><font size=2 face=""Courier New""><b>//ASM.SYSIN  DD  *  
                         
                         
           </b></font>
    <br><font size=2 face=""Courier New""><b>      #CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES,
                         
      X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N036,A,N037,A,N040,A,N047,A,N058,A,N090,A),  
             X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N056,B,N059,B,N060,B,N061,B,N062,B,N063,B),  
             X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B),
        X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N009001,C,N009002,C,N009003,C,N025004,C,N091001,C),
       X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N091002,C,N091003,C),        
                         
       X</b></font>
    <br><font size=2 face=""Courier New""><b>         
         (N001,D)            
                         
                  </b></font>
    <br><font size=2 face=""Courier New""><b>         END
                         
                         
                   </b></font>
    <br><font size=2 face=""Courier New""><b>/*          
                         
                         
                   </b></font>
    <br><font size=2 face=""Courier New""><b>//LKED.SYSLMOD  DD  DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
          </b></font>
    <br><font size=2 face=""Courier New""><b>//LKED.SYSMT00  DD  DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
          </b></font>
    <br><font size=2 face=""Courier New""><b>//LKED.SYSIN    DD  *
                         
                         
          </b></font>
    <br><font size=2 face=""Courier New""><b> REPLACE RHDCCTAB    
                         
                         
          </b></font>
    <br><font size=2 face=""Courier New""><b> INCLUDE SYSMT00(RHDCMT00)
                         
                         
     </b></font>
    <br><font size=2 face=""Courier New""><b> ENTRY   MT00EP1  
                </b></font>
    <br><font size=2 face=""Courier New""><b> MODE    AMODE(31),RMODE(ANY)
     </b></font>
    <br><font size=2 face=""Courier New""><b> NAME    RHDCMT00(R)
              </b></font>
    <br><font size=2 face=""Courier New""><b>/*          
                      </b></font><font size=2 face=""sans-serif""><br>
    </font>
    <br><font size=3>Hope this helps..</font>
    <br><font size=3><br>
    </font>
    <table>
    <tr>
    <td colspan=4>
    <div align=center>
    <hr noshade></div>
    <tr valign=top>
    <td bgcolor=white><font size=1 face=""Arial""><b>George H Lewandowski</b></font>
    <br><font size=1 face=""Arial"">Database Administrator<br>
    GIS <br>
    7x24 Operations<br>
    GA-25, J46-2E</font>
    <td bgcolor=white>
    <td bgcolor=white><font size=1 face=""Arial"">Work (847) 938-5526<br>
    Pager (800) 209-1305</font><font size=1 color=blue face=""Arial""><u><br>
    </u></font><font size=1 color=blue face=""Arial""><u>george.lewandowski@abbott.com</u></font>
    <td bgcolor=white>
    <div align=right><font size=1 face=""Arial""><br>
    </font><img src=cid:_1_08F2453008F24130006A47948625765C><font size=1 face=""Arial""><br>
    </font></div>
    <tr>
    <td colspan=4>
    <div align=center>
    <hr noshade></div>
    <tr>
    <td colspan=4><font size=1 color=#808080 face=""Arial"">This communication
    may contain information that is proprietary, confidential, or exempt from
    disclosure. If you are not the intended recipient, please note that any
    other dissemination, distribution, use or copying of this communication
    is strictly prohibited. Anyone who receives this message in error should
    notify the sender immediately by telephone or by return e-mail and delete
    it from his or her computer.</font></table>
    <br>
    <br>
    <br>
    <br>
    <table width=100%>
    <tr valign=top>
    <td><font size=1 color=#5f5f5f face=""sans-serif"">From:</font>
    <td><font size=1 face=""sans-serif"">Bob Wiklund &lt;wiklund@TIBURONTECH.COM&gt;</font>
    <tr valign=top>
    <td><font size=1 color=#5f5f5f face=""sans-serif"">To:</font>
    <td><font size=1 face=""sans-serif"">IDMS-L@LISTSERV.IUASSN.COM</font>
    <tr valign=top>
    <td><font size=1 color=#5f5f5f face=""sans-serif"">Date:</font>
    <td><font size=1 face=""sans-serif"">10/27/2009 02:10 PM</font>
    <tr valign=top>
    <td><font size=1 color=#5f5f5f face=""sans-serif"">Subject:</font>
    <td><font size=1 face=""sans-serif"">CTABGEN</font>
    <tr valign=top>
    <td><font size=1 color=#5f5f5f face=""sans-serif"">Sent by:</font>
    <td><font size=1 face=""sans-serif"">IDMS Public Discussion Forum &lt;IDMS-L@LISTSERV.IUASSN.COM&gt;</font></table>
    <br>
    <hr noshade>
    <br>
    <br>
    <br><tt><font size=2>Does anyone have JCL to assemble and link the CTABGEN
    macro outside of SMP?  A copy would be greatly appreciated.<br>
    <br>
    Tia,<br>
    <br>
    Bob<br>
    <br>
    Bob Wiklund<br>
    Tiburon Technologies<br>
    623 594-6022<br>
    </font></tt>
    <br>
    <br>
    --=_alternative 006A47948625765C_=--
    --=_related 006A47948625765C_=
    Content-Type: image/gif
    Content-ID: <_1_08F2453008F24130006A47948625765C>
    Content-Transfer-Encoding: base64

    R0lGODlhcAAdAMQAAAAAANva2v8AAISEhE5OTv9+fiMjI////7W1tf/MzP9PT3BwcObm5pmZmUFB
    Qf/W1szMzBMTE2ZmZvf39/+MjP8YGKioqMHBwTMzM3t7e1taWo+Pj/+kpAgICO/v7/9bWyH5BAUU
    AAcALAAAAABwAB0AAAX/oCCOZGmeY0UdbOu+hyVbjAs1MwJfuHzBwOAkUHsFAi6Ucmn6TILGSGea
    cWUA0w4BpsFOJdAwy2LQvCAGg6fFbDM/YtYVQDe4LpkI3QFDLDp0ZnFBXXwuDVhrLG6MKCtiBnSS
    Py4Oe0GRAIKDLx56hi0YABFPi42nKWIQWBKSCy+WAFsIAzQtmWAWtYotEwgbtUW+ogAYEMcXXVgX
    EDUPz9DR0tPUDwkKJWJXDgyAAAalLLEOBJIRFiyZDsSjlDGZdB2vq5L19nRgnPoHD9lhkQMOxALg
    TqAkDA3YIYFHoEGmCGsQSGpwAZeHDJkMZNiYgZi8DDr2cepHIswFLDUs/0jKJy7eGnoAqmQcM/FA
    pi0xJhmUZYVOBJEiSY4IswCLBg3lfIaLhYHFBD0A+NxkEWBlVTpVDsB8Nc5F0VG8XFhLQLas2bNn
    wwkV8e+epJA7QWVqmklQt0An6QQ8cFVT3AMMIByYA9EDBCQHOFRAVSJBi7UCoORFcAzCAEmbuh6Y
    MNdmIBZ3NcHc2xdM1ysBLo86ILEpB8YmHLOADKVV017eSLX8Btqbmc5aJQ2Y4C1fXgAN/qImfOCk
    gwSLYZOQzc/fmQaAMFgQDMECVE06BjaY8BWADngIJigDIPirgRqtvj1JioGBJQ8b4qXWFF36COq0
    wTAQHVuwU48HomiBBf9mLOgRgSXeAPDKZkl1kJFgOdXDRwARfhNACRUUIOKIJJZYIi8BvmDBAiyy
    iE4DLbaYwQQwJrcBBgY4sEELAyyAzgA4OoCOCxZokIYDA4RlgQMGYLCAIhcQkIYGSDQGFAwpXqnl
    loOU8ACXs1kH5phkHuDlmFmWqeaVZ4KZ5ppwctIml2/GaScUc25Z5518JkHCl26KGYcHRxSxZgBh
    wRBOL4ix8SeaghK5CQsaDNDjXoMOaZIEhsLAQFYHeGDjcH6OoEAC1aQqzTWRtpCBBI2S1wKsE9TA
    QKMMrIFYDUO0gGgvGwz562ZFMMBSrR4sIFivB/Tn3xIVBMEDBDs6JcH9MX40oAECCGQwQHKVSjBA
    BhtMsMGnDQy3wQYZYGisBPhtsEAAUQ7JwISANQABARtAkEEDG3hAwbNtPAKDBPrixAIBA6zLQAM6
    SPCEsmA0kFwGnwZwrWEE8LAJAswElNovLdxb8ivlLrBBMjt+QLAScADBAAEybOsUvgdQdMCEIAUE
    8WCfAqaLH5W1YMEFPIQKkqYmg1bFAMZSdthmLr9cghNBBEtVPrK2oHOwFyRZxc8YD0CtvwG0K4PR
    CCR7wQbcaurBttxadgDUv5zdAgXOPqtCGBbwYkEpcGlVxAIarPHD1BdM8MMGGggWgAYLhHOEVhrs
    eHkL8rJ4THNrQAOuQwgAOw==
    --=_related 006A47948625765C_=--
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: CTABGEN
    "
    // JOB CARD STUFF

    //ASMFCL EXEC ASMFCL
    //ASM.SYSLIB DD DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
    // DD DSN=SYS1.MACLIB,DISP=SHR
    // DD DSN=SYS1.MODGEN,DISP=SHR
    // DD DSN=CEE.SCEEMAC,DISP=SHR
    //ASM.SYSIN DD *
    #CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES, X
    (N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A), X
    (N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A), X
    (N036,A,N037,A,N040,A,N047,A,N058,A,N090,A), X
    (N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B), X
    (N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B), X
    (N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B), X
    (N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B), X
    (N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B), X
    (N056,B,N059,B,N060,B,N061,B,N062,B,N063,B), X
    (N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B), X
    (N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B), X
    (N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B), X
    (N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B), X
    (N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B), X
    (N009001,C,N009002,C,N009003,C,N025004,C,N091001,C), X
    (N091002,C,N091003,C), X
    (N001,D)
    END
    /*
    //LKED.SYSLMOD DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
    //LKED.SYSMT00 DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
    //LKED.SYSIN DD *
    REPLACE RHDCCTAB
    INCLUDE SYSMT00(RHDCMT00)
    ENTRY MT00EP1
    MODE AMODE(31),RMODE(ANY)
    NAME RHDCMT00(R)
    /*

    Hope this helps..


    ________________________________

    George H Lewandowski
    Database Administrator
    GIS
    7x24 Operations
    GA-25, J46-2E

    Work (847) 938-5526
    Pager (800) 209-1305
    george.lewandowski@abbott.com <mailTo:george.lewandowski@abbott.com>




    ________________________________

    This communication may contain information that is proprietary, confidential, or exempt from disclosure. If you are not the intended recipient, please note that any other dissemination, distribution, use or copying of this communication is strictly prohibited. Anyone who receives this message in error should notify the sender immediately by telephone or by return e-mail and delete it from his or her computer.




    From:
    Bob Wiklund <wiklund@TIBURONTECH.COM>
    To:
    IDMS-L@LISTSERV.IUASSN.COM
    Date:
    10/27/2009 02:10 PM
    Subject:
    CTABGEN
    Sent by:
    IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>

    ________________________________




    Does anyone have JCL to assemble and link the CTABGEN macro outside of SMP? A copy would be greatly appreciated.

    Tia,

    Bob

    Bob Wiklund
    Tiburon Technologies
    623 594-6022



    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    CTABGEN
    "Geez. Seems hard to post JCL . . .=20


    //ASMLCTAB JOB (2330,X7264,216D),'DMATTHEW',CLASS=3DA,
    // MSGCLASS=3DU,MSGLEVEL=3D(1,1),NOTIFY=3DSCXDEM
    //* ------------------------------------------------------------------
    //* --- CURRENT SOURCE. DEM 9/27/06
    //* ------------------------------------------------------------------
    // SET CV=3DDC
    //ASM EXEC PGM=3DASMA90,PARM=3D'NOXREF,NORLD,NOOBJ,DECK'
    //SYSOUT DD SYSOUT=3D*
    //SYSPRINT DD SYSOUT=3D*
    //SYSUDUMP DD SYSOUT=3D*
    //SYSPUNCH DD UNIT=3DSYSDA,DSN=3D&&TEMP(RHDCCTAB),
    // DISP=3D(,PASS,DELETE),SPACE=3D(TRK,(5,5,5)),
    // DCB=3D(LRECL=3D80,BLKSIZE=3D9040,RECFM=3DFB,DSORG=3DPO)
    //SYSUT1 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
    //SYSUT2 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
    //SYSUT3 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
    //SYSUT4 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
    //SYSLIB DD DISP=3DSHR,DSN=3DSYS1.MACLIB
    // DD DISP=3DSHR,DSN=3DSYS0.IDMS.R160.DISTMAC
    //SYSIN DD *
    (ctab macro statements)
    /*
    //LINK EXEC PGM=3DIEWL,PARM=3D'LET,NOMAP,NOXREF,LIST=3DSTMT'
    //SYSOUT DD SYSOUT=3D*
    //SYSPRINT DD SYSOUT=3D*
    //SYSUDUMP DD SYSOUT=3D*
    //TEMPOBJ DD DISP=3D(OLD,DELETE,DELETE),DSN=3D&&TEMP
    //LOADLIB DD DISP=3DSHR,DSN=3DSYS0.IDMS.R160.LOADLIB.SP2
    //SYSLMOD DD DISP=3DSHR,DSN=3DCAI.IDMS&CV..LOADLIB
    //SYSLIN DD *
    REPLACE RHDCCTAB
    INCLUDE LOADLIB(RHDCMT00)
    INCLUDE TEMPOBJ(RHDCCTAB)
    MODE AMODE(31),RMODE(ANY)
    ENTRY MT00EP1
    NAME NHDCMT00(R)
    //* prefix ""N"" used to prevent premature implementation . . .=20
    //

    Best regards to Bob,
    dem


  • 4.  Re:DC-BATCH

    Posted Oct 27, 2009 12:25 AM
    Is there a way to run DC-BATCH in local mode?
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: DC-BATCH
    "I was pretty sure that was the answer - thanks, Gary.

    Tim Gortner