Re:Copy IBM/IDMS files

[ca.portal.admin]

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

[e-mail]
"
IDMS Public Discussion Forum
[e-mail]
SMTP
[e-mail]
[e-mail]
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: [phone] (T/L: 349-2446)
VOIP Users 1-513-897-8148
ITN: 23492446
Email: [e-mail]



""William M. Allen, Jr."" <[e-mail]>
Sent by: IDMS Public Discussion Forum <[e-mail]>
04/18/2008 11:27 AM
Please respond to
[e-mail]


To
[e-mail]
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.
[phone]