Re: Is there a way to do a MOVEL of a file record format to a char field?

FFILE IF E K DISK

D CHAINEDFILE E DS EXTNAME(FILE)
D DELETEDFILE E DS EXTNAME(FILE) PREFIX(@)

May work for you.

When you first chain to the file, CHAINEDFILE datastructure will be
automatically populated because the field names are the same, then....

DELETEDFILE = CHAINDEDFILE

Now DELETEDFILE is populated with the field names being prefixed with an @


Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/13/2008 12:49:16 PM:

I have a program where we are chaining or reading to get a record(s) and
then if found, delete the record. I want to move the files record
format to a 195 char field for outputting to a report before the
deletion occurs. Can I do this without having to create a DS with the
files record format name? My program is an RPGLE program.

TIA,
Regards,
Jim Rubino
Fike Corporation


This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
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@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.