CA IDMS IUA EIUA

Re:Copy IBM/IDMS files

  • 1.  Re:Copy IBM/IDMS files

    Posted 04-18-2008 06:57 AM
    I have a lot of IDMS files to copy (and rename) to other packs. I cannot
    use FDR or DFDSS. So that leaves me with IEBGENER.

    I have nothing against 'gener but I have to preallocate the files first
    before I copy them. Is there a utility or something else to copy BDAM
    files without preallocating them first? Of course this doesn't involve
    GDG's.



    Thanks.



    J. Wayne Doneker

    BAE Systems

    York Pa.,

    717 225 8109

    John.Doneker@baesystems.com
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: Copy IBM/IDMS files
    "Another lazy man's way

    //IEBGENER EXEC PGM=IEBGENER
    //SYSPRINT DD SYSOUT=*
    //SYSOUT DD SYSOUT=*
    //SYSUDUMP DD SYSOUT=*
    //SYSUT1 DD DSN=IDMSPROD.JOURNAL.ARCHIVE.G0010V00
    // DISP=SHR
    //SYSUT2 DD DISP=(NEW,KEEP,DELETE),LIKE=AECTRKT.HOLDUMP,
    // DSN=GE.PERMAC.S0CF
    //SYSIN DD DUMMY
    //
    ******************************** Bottom of Data ***************

    Rob Klan/Cincinnati/IBM
    Phone: 1-877-205-4871 (T/L: 349-2446)
    VOIP Users 1-513-897-8148
    ITN: 23492446
    Email: rklan@us.ibm.com



    ""William M. Allen, Jr."" <archcons@bellsouth.net>
    Sent by: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
    04/18/2008 11:27 AM
    Please respond to
    archcons@bellsouth.net


    To
    IDMS-L@LISTSERV.IUASSN.COM
    cc

    Subject
    Re: Copy IBM/IDMS files






    Here is what I use:

    //COPY0001 EXEC PGM=IDCAMS,REGION=0M,COND=(0,LT)
    //IDS DD DSN=IDMS.CV05.AAUTOPK,DISP=SHR,DCB=BUFNO=100
    //ODS DD DSN=IDMS.CV04.AAUTOPK,DISP=SHR,DCB=BUFNO=100
    //SYSPRINT DD SYSOUT=*
    //SYSIN DD *
    REPRO IFILE(IDS) -
    OFILE(ODS)
    /*

    William M. Allen, Jr.
    ARCH Consulting Associates, Ltd.
    (704) 641-0296