Re: copy records from one file to another

Sean,

Here's a sample program of what I've done in the past:
===========================
FAmhl06    ipe  e           k disk    Rename(Ipa100mh:FrAmh) Prefix(Fr)
FAmh       o  a e             disk    Rename(Ipa100mh:ToAmh) Prefix(To)
F*
D*  Prototypes
D*
DgetPC            pr                  Like(toAmhcpc)
D  gpcSite                       2
D  gpcPC                              Like(frAmhcpc)
D*
D*
D edsFrAmh      e ds                  ExtName(Amh) Prefix(Fr)
D edsToAmh      e ds                  ExtName(Amh) Prefix(To)
D*
D cSite           s              2
D*
C     *Entry        PList
C                   Parm                    cSite
C*
C                   Clear                   ToAmh
C                   Eval      edsToAmh = edsFrAmh
C                   Eval      toAmhcpc = getPc(cSite:frAmhcpc)
C                   Eval      toAmhfpc = getPc(cSite:frAmhfpc)
C*
C                   Write     ToAmh
C*
===========================

Bill

> I am basically copying information from one file to another, but some of
> the data needs to change, and I need to break out (create) detail records
> where there are summary.