Re: Wiping a file on open in RPG

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

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?

On 1/9/2024 2:11 PM, Bryan Dietz wrote:
> 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