ca.portal.admin

Re:Copy IBM/IDMS files

Discussion created by ca.portal.admin on Apr 18, 2008
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

Outcomes