RE: Moving an entire record to another file

[Tom Daly <Tdaly@xxxxxxxxxxxxxx>]

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.
 |