Re: Wiping a file on open in RPG

i scanned some source i accumlated for "_Ropen"

it can be used in RPGLE. one random source

**-------------------------------------------------------
* _Ropen -- open a record file for processing:
*
* _RFILE *_Ropen(const char * filename, const char * mode, ...);
**-------------------------------------------------------
D Ropen PR * ExtProc('_Ropen')
D filename * value options(*string)
D mode * value options(*string)
----------------------------------------
<snip>
B01 c select
c when peRWFlag='R'
c and (wwType='*FILE' or wwType='*MBR')
c eval wkRF = Ropen(%addr(wwRfile):
c %addr(wwRRflags))
</snip>

and from the same author in CL, Thanks Scott!
<snip>
DCL VAR(&FILEZ) TYPE(*CHAR) LEN(33)
DCL VAR(&MODE) TYPE(*CHAR) LEN(33)
DCL VAR(&HANDLE) TYPE(*PTR)
/* This API opens the file in read-only mode (rr) +
and in RRN sequence (arrseq=Y)' */

CHGVAR VAR(&FILEZ) VALUE(&FILE *TCAT &NULL)
CHGVAR VAR(&MODE) VALUE('rr, arrseq=Y' *TCAT &NULL)
CALLPRC PRC('_Ropen') PARM((&FILEZ *BYREF) +
(&MODE *BYREF)) +
RTNVAL(&HANDLE)
</snip>


James H. H. Lampert via RPG400-L wrote on 1/9/2024 1:47 PM:

I must be getting old:

In ILE C, if you _Ropen a physical file with mode "rw," the file is cleared on open.

I can't recall whether there's anything equivalent to this in ILE RPG. Is there?

--
JHHL