Re: Wiping a file on open in RPG

Hi, Peter,

Hmm... that might still work, if compiled with CRTS36PGM ...

Mark S. Waterbury






On Thursday, January 11, 2024 at 05:18:38 PM EST, Peter Dow <
petercdow@xxxxxxxxx> wrote:





I think it was in RPG II that when a file was specified as Output, and no
Add flag, the file was cleared before writing to it. Assuming it was a
sequential file and not a direct load where you had to specify the rrn of
each record written.

On Thu, Jan 11, 2024 at 1:35 PM Roger Harman <roger.harman@xxxxxxxxxxx>
wrote:

Maybe Vern is thinking of a program designed for use with a "SPECIAL"

file

(Device parameter value)?

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power



-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Mark
Waterbury
Sent: Thursday, January 11, 2024 12:51 PM
To: VERNON HAMBERG Owner via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Wiping a file on open in RPG

Hi, Vern,

Happy New Year!

It is simply not possible to create a service program using any of the

OPM

languages or compilers, including RPG/400. Perhaps it was ILE RPG IV?

All the best,

Mark S. Waterbury

On Thursday, January 11, 2024 at 03:18:02 PM EST, VERNON HAMBERG Owner

via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

I found it interesting some years ago to look at the _R* functions -

there

are some functions there that just are not available in RPG - IBM just
didn't choose to include them.

There was a community-offered generic tool to work with data in RPG -
probably a service program. This was in RPG III, IIRC, and there were
things it would not handle - like columns with null attributes, maybe. We
used it when I worked at RJS Software.

So I looked at the _R* functions, and they could have handled all that

the

tool did not, so far as I could tell. Never did continue with it - would

be

interested, just for fun, to see it again, though.

Cheers
Vern
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.