RE: Wiping a file on open in RPG

I know COBOL will do that - 'Output only' file clears the file on open. (Or it used to ..... way back when). That was another lifetime ago.


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Peter Dow
Sent: Thursday, January 11, 2024 5:18 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Wiping a file on open in RPG

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.