RE: Moving an entire record to another file

["Phil" <sublime78ska@xxxxxxxxx>]

Another idea: You could journal these 8 files.  Mark's suggestion for a
delete trigger is also good.  In the trigger pgm you could write to the back
up files.

Phil

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Klein, Ron
> Sent: Tuesday, May 21, 2002 11:04 AM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Moving an entire record to another file
>
>
> 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.
> _______________________________________________
> 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.
>
>