RE: Moving an entire record to another file

["Klein, Ron" <ron.klein@xxxxxxxxxxx>]

The reason I cannot use CPYF is that I am trying to capture a history record
for a record that needed to be deleted.  There is a series of 8 files that
all relate to each other and to clean up the data I wrote a cleanup program
for the users to delete the record plus all related data.  However, as sure
as I am type ing this, the user will either delete the wrong data or they
will want a log of what was deleted at some later date.

I did have the EXTNAME keyword missing and that solved my problem.
Thanks to all who replied.

Ron

-----Original Message-----
From: Tom Daly [mailto:Tdaly@sddsystems.com]
Sent: Tuesday, May 21, 2002 9:40 AM
To: 'rpg400-l@midrange.com'
Subject: RE: Moving an entire record to another file


Peter,

Is it possible to use CPYF?  Why write a program if you don't have to?

Tom

 |  -----Original Message-----
 |  From: Peter_Vidal@pall.com [mailto:Peter_Vidal@pall.com]
 |  Sent: Tuesday, May 21, 2002 10:44
 |  To: rpg400-l@midrange.com
 |  Subject: Re: Moving an entire record to another file
 |
 |
 |
 |  "I need some help within one of my programs.  I need to
 |  write an entire
 |  record from one file to another.  The layouts of the files
 |  are indentical
 |  except that the field names are prefixed differently.  All
 |  that I want to do
 |  is to move the record from CADJ(format name) to CADH(format
 |  name) and write
 |  it out.
 |
 |  I tried to externally describe the files in data
 |  sturctures, but still get
 |  error messages."
 |
 |  I tried this:
 |
 |       ftest1     ip   e           k disk
 |       ftest2     if a e           k disk
 |        *
 |       d ds1           e ds                  extname(test1)
 |       d ds2           e ds                  extname(test2)
 |        *
 |       c                   eval      ds2 = ds1
 |       c                   write     CGIR2
 |
 |  Good luck!!!
 |
 |  PALL Corporation
 |  Peter Vidal
 |  Senior System Analyst
 |
 |
 |
 |  _______________________________________________
 |  This is the RPG programming on the AS400 / iSeries
 |  (RPG400-L) mailing list
 |  To post a message email: RPG400-L@midrange.com
 |  To subscribe, unsubscribe, or change list options,
 |  visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
 |  or email: RPG400-L-request@midrange.com
 |  Before posting, please take a moment to review the archives
 |  at http://archive.midrange.com/rpg400-l.
 |
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.