Re: CPYF with *MAP/*DROP and deleted Records

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

If you specify fromrcd(1), CPYF works.  For example:

CPYF FROMFILE(TEST1) TOFILE(TEST2) MBROPT(*REPLACE) FROMRCD(1) FMTOPT(*MAP
*DROP) COMPRESS(*NO)


Mel Rothman, CGIDEV2 Author
IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota
http://www-1.ibm.com/servers/eserver/iseries/service/ctc/
http://www.easy400.ibm.it/en


Buck Calabro wrote:
>
> >Is there a method of using CPYF with *MAP
> >and *DROP which will keep deleted records
>
> Save the file to a *SAVF
> Spin through the *SAVF with your RPG program and do your favourite
> move/z-add/eval to populate the new fields in the target file.  When you
> come across a deleted record, WRITE it like the others, but DELETE it after
> it's written.  That should map/drop fields as well as preserve the deleted
> records.  Perhaps someone on the MI400-L list would know an easier way.
> This is an interesting requirement!
>   --buck
> _______________________________________________
> 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.