Re: Wiping a file on open in RPG

Hi James,

what about SQL? If OK, you can use the SQL TRUNCATE statement:

https://www.ibm.com/docs/en/i/7.5?topic=statements-truncate

This is essentially like CLRPFM - but with a lot more options.

- drop or reuse storage
- restart or continue ID values
- ignore or restrict on delete triggers

This is all standard SQL - not DB2 specific - and should work with every table.

HTH and kind regards,
Daniel

Am 09.01.2024 um 21:37 schrieb Mark Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>:

James,

For a more "native" method, see also:

QUSRTOOL/QATTINFO member TGPARCSI
and
QUSRTOOL/QATTSYSC member TGPATRN

Cheers,

Mark S. Waterbury

On Tuesday, January 9, 2024 at 03:24:25 PM EST, James H. H. Lampert via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

On 1/9/24 12:11 PM, Bryan Dietz wrote:
i scanned some source i accumlated for "_Ropen"

it can be used in RPGLE.

Right. I've had more than one occasion to use runtime calls more
idiomatic to C, but here, I was looking for something that was
RPG-native and RPG-idiomatic.

And Scott said:

I mean... yes you can do this, but... if the only reason is to
clear the file, wouldn't it be easier to just run CLRPFM prior to
opening it?

I quite agree. In this case, lacking a native equivalent, it would
probably be easier to make the file USROPN, and wipe the file by
shelling out a CLRPFM with QCMDEXC, than to use the _Rxxxxx calls.

JHHL

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