ca.portal.admin

Re: Copy IBM/IDMS files

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