Michael,

This works great. Thank you so much for you help and quick response.

Jim


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, August 13, 2008 12:27 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is there a way to do a MOVEL of a file record format to a
charfield?

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.

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

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].