CA IDMS IUA EIUA

Expand all | Collapse all

CTABGEN

  • 1.  CTABGEN

    Posted 10-27-2009 04:04 PM
    Does anyone have JCL to assemble and link the CTABGEN macro outside of
    SMP? A copy would be greatly appreciated.
    =20
    Tia,
    =20
    Bob
    =20
    Bob Wiklund
    Tiburon Technologies
    623 594-6022
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

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


    //ASMLCTAB JOB (2330,X7264,216D),'DMATTHEW',CLASS=A,
    // MSGCLASS=U,MSGLEVEL=(1,1),NOTIFY=SCXDEM
    //* ------------------------------------------------------------------
    //* --- CURRENT SOURCE. DEM 9/27/06
    //* ------------------------------------------------------------------
    // SET CV=DC
    //ASM EXEC PGM=ASMA90,PARM='NOXREF,NORLD,NOOBJ,DECK'
    //SYSOUT DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*
    //SYSUDUMP DD SYSOUT=*
    //SYSPUNCH DD UNIT=SYSDA,DSN=&&TEMP(RHDCCTAB),
    // DISP=(,PASS,DELETE),SPACE=(TRK,(5,5,5)),
    // DCB=(LRECL=80,BLKSIZE=9040,RECFM=FB,DSORG=PO)
    //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
    //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
    //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
    //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
    //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
    // DD DISP=SHR,DSN=SYS0.IDMS.R160.DISTMAC
    //SYSIN DD *
    (ctab macro statements)
    /*
    //LINK EXEC PGM=IEWL,PARM='LET,NOMAP,NOXREF,LIST=STMT'
    //SYSOUT DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*
    //SYSUDUMP DD SYSOUT=*
    //TEMPOBJ DD DISP=(OLD,DELETE,DELETE),DSN=&&TEMP
    //LOADLIB DD DISP=SHR,DSN=SYS0.IDMS.R160.LOADLIB.SP2
    //SYSLMOD DD DISP=SHR,DSN=CAI.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 . . .
    //

    Best regards to Bob,
    dem


  • 2.  Re:CTABGEN

    Posted 10-27-2009 04:04 PM
    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
    Re: CTABGEN
    "Thanks to all who responded!
    =20
    Naturally, as soon as I sent the email looking for a copy, I found one =
    in a totally unrelated library....ARGGGGHHHHH!!!
    =20
    Bob Wiklund
    Tiburon Technologies
    623 594-6022

    ________________________________

    From: IDMS 3rd-party providers forum on behalf of Bob Wiklund
    Sent: Tue 10/27/2009 12:04 PM
    To: IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Subject: CTABGEN



    Does anyone have JCL to assemble and link the CTABGEN macro outside of =
    =3D
    SMP? A copy would be greatly appreciated.
    =3D20
    Tia,
    =3D20
    Bob
    =3D20
    Bob Wiklund
    Tiburon Technologies
    623 594-6022

    ______________________________________________________________________
    This email has been scanned by the MessageLabs Email Security System.
    For more information please visit http://www.messagelabs.com/email
    ______________________________________________________________________

    ______________________________________________________________________
    This email has been scanned by the MessageLabs Email Security System.
    For more information please visit http://www.messagelabs.com/email
    ______________________________________________________________________
    "
    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
    "Thanks to all who responded!

    Naturally, as soon as I sent the email looking for a copy, I found one in a totally unrelated library....ARGGGGHHHHH!!!

    Bob Wiklund
    Tiburon Technologies
    623 594-6022

    ________________________________

    From: IDMS 3rd-party providers forum on behalf of Bob Wiklund
    Sent: Tue 10/27/2009 12:04 PM
    To: IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Subject: CTABGEN



    Does anyone have JCL to assemble and link the CTABGEN macro outside of =
    SMP? A copy would be greatly appreciated.
    =20
    Tia,
    =20
    Bob
    =20
    Bob Wiklund
    Tiburon Technologies
    623 594-6022

    ______________________________________________________________________
    This email has been scanned by the MessageLabs Email Security System.
    For more information please visit http://www.messagelabs.com/email
    ______________________________________________________________________

    ______________________________________________________________________
    This email has been scanned by the MessageLabs Email Security System.
    For more information please visit http://www.messagelabs.com/email
    ______________________________________________________________________
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    XA REENTRANT PROGRAM POOL SIZE
    "Gary,=20

    Better check your math. Your pool is exactly 64 MB. 1MB =3D 1,048,576
    bytes.

    John

    -------------------

    Date: Tue, 27 Oct 2009 20:40:52 +1030
    =46From: ""Cherlet, Gary (JTS)"" <Gary.Cherlet@SA.GOV.AU>
    Subject: FW: XA REENTRANT PROGRAM POOL SIZE

    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.=20

    =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
    =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

    P Please consider the environment before printing this e-mail

    Cleveland Clinic is ranked one of the top hospitals
    in America by U.S. News & World Report (2008). =20
    Visit us online at http://www.clevelandclinic.org for
    a complete listing of our services, staff and
    locations.


    Confidentiality Note: This message is intended for use
    only by the individual or entity to which it is addressed
    and may contain information that is privileged,
    confidential, and exempt from disclosure under applicable
    law. If the reader of this message is not the intended
    recipient or the employee or agent responsible for
    delivering the message to the intended recipient, you are
    hereby notified that any dissemination, distribution or
    copying of this communication is strictly prohibited. If
    you have received this communication in error, please
    contact the sender immediately and destroy the material in
    its entirety, whether electronic or hard copy. Thank you.
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    XA REENTRANT PROGRAM POOL SIZE
    "Gary,

    Better check your math. Your pool is exactly 64 MB. 1MB = 1,048,576
    bytes.

    John

    -------------------

    Date: Tue, 27 Oct 2009 20:40:52 +1030
    From: ""Cherlet, Gary (JTS)"" <Gary.Cherlet@SA.GOV.AU>
    Subject: FW: XA REENTRANT PROGRAM POOL SIZE

    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.

    ===================================

    P Please consider the environment before printing this e-mail

    Cleveland Clinic is ranked one of the top hospitals
    in America by U.S. News & World Report (2008).
    Visit us online at http://www.clevelandclinic.org for
    a complete listing of our services, staff and
    locations.


    Confidentiality Note: This message is intended for use
    only by the individual or entity to which it is addressed
    and may contain information that is privileged,
    confidential, and exempt from disclosure under applicable
    law. If the reader of this message is not the intended
    recipient or the employee or agent responsible for
    delivering the message to the intended recipient, you are
    hereby notified that any dissemination, distribution or
    copying of this communication is strictly prohibited. If
    you have received this communication in error, please
    contact the sender immediately and destroy the material in
    its entirety, whether electronic or hard copy. Thank you.
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: Technique for changed a chained set to sorted chained set
    "i do not know if altering the set followed by an unload/reload would
    work but
    being a one-time thing - you could do the following:

    disconnect all members from all set occurrances (using a temp schema if
    necessary), saving off owner symbolic key, member (new) symbolic key,
    member dbkey
    make schema change
    sort output file by owner symbolic key (ascending) , member symbolic
    key (descending)

    for each record in sorted extract file
    find xxxxx dbkey is
    connect to xxxxxxxx set


    this would allow to to build the set from back to front for each set
    occurrance

    others can enhance this - just something i thought of off the top of my
    head at halftime

    GO BUCKEYES!!!!!

    William M. Allen, Jr. wrote:
    Hello All:



    Can you share with me your method for converting a chained set to a sorted
    chained set?



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296


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








    Normal

    Normal
    Re: Technique for changed a chained set to sorted chained set
    "i do not know if altering the set followed by an unload/reload would
    work but
    being a one-time thing - you could do the following:

    disconnect all members from all set occurrances (using a temp schema if
    necessary), saving off owner symbolic key, member (new) symbolic key,
    member dbkey
    make schema change
    sort output file by owner symbolic key (ascending) , member symbolic
    key (descending)

    for each record in sorted extract file
    find xxxxx dbkey is
    connect to xxxxxxxx set


    this would allow to to build the set from back to front for each set
    occurrance

    others can enhance this - just something i thought of off the top of my
    head at halftime

    GO BUCKEYES!!!!!

    William M. Allen, Jr. wrote:
    Hello All:



    Can you share with me your method for converting a chained set to a sorted
    chained set?



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296


    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Technique for changed a chained set to sorted chained set
    "Hello All:



    Can you share with me your method for converting a chained set to a sorted
    chained set?



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Technique for changed a chained set to sorted chained set
    "Hello All:



    Can you share with me your method for converting a chained set to a sorted
    chained set?



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: Technique for changed a chained set to sorted chained set
    "This is a multi-part message in MIME format.

    ------_=_NextPart_001_01CA5B8A.73E66637
    Content-Type: text/plain;
    charset=""US-ASCII""
    Content-Transfer-Encoding: quoted-printable

    Trying to attach programs here
    UDMSMDIS ( Disconnect the members and store in flat file with DBKeys)
    UDMSRCON ( Reconnect members using flatfile with DBKEYs)
    #FMODJPA ( macro called by MDIS & RCON to find subschema in JPA during
    runtime, so the set option can be dynamically set to Optional from
    Mandatory -- so no new schema/subschema needed).

    * extract record format...
    DBCBUF DSECT ,
    DBCXLN DS H EXTRACT REC LENGTH
    DS H FILLER
    DBCRID DS H SCHEMA RID
    DBCREC DS 9H RECORD NAME (MAX PRACTICAL)
    DBCDBK DS F SOURCE DB DBKEY (OR ~F-O,~CON)
    DBCPFXL EQU *-DBCBUF            DBC RECORD PREFIX LENGTH
    DBCDATA DS 999F AMPLE SPACE
    *

    Vary DB OFF/RET=20
    Execute MDIS=20
    Modify Schema
    Restructure DB (If needed (converting to Index, not sorted set))
    Execute RCON
    Vary DB ON

    Regards,
    dem