Re: Problem in compiling C program

Scott Klement <[email protected]> Wed, 19 Apr 2023 02:25:23 -0500
Newsgroups gmane.comp.lang.as400.c
Message-ID <[email protected]>
In addition to the problem Alexei describes, you also have this in your 
init_subfile() function:

Rformat(subf, "SFL");

It should be _Rformat (leading underscore) not Rformat.

-SK


On 4/19/2023 2:02 AM, Alexei Baranov wrote:
> Look at this code:
>
>   if ((pf = _Ropen(PFILENAME, "rr")) == NULL)
>     {
>       printf("can't open file %s\n", PFILENAME);
>       exit(1);
> Working with File Systems and Devices 223
>     }
>
> ==>> Working with File Systems and Devices 223
> This is copy-paste artifact, you should remove it
>
> Regards,
> Alexei
>
> -------- Original Message --------
> Subject : [C400-L] Problem in compiling C program
>  From    : Thomas Burrows [email protected]
> To      : "Bare Metal Programming IBM i (AS/400 and iSeries)" <[email protected]>
> Cc      :
> Date    : Wednesday, April 19, 2023 9:50
>
> I pulled this program from the IBM C/C++ manual. Around page 412 or
> so.
>
> Have attached the manual. And a copy of the program I put into a text file.
> Using NOTEPAD++ to edit my text.
>
> Kind of stuck.
>
> Thomas Burrows
> mobile 469 693 2533
>
>   65       |      _Rclose(pf);
>   66       |      _Rclose(subf);
>   67       |
>   68       |    } /*close of main routine */
>   69       |
>   70       | void init_subfile(_RFILE *pf, _RFILE *subf)
>   71       |   {
>   72       |      _RIOFB_T      *fb;
>   73       |      int           i;
>   74       |      pf_t          record;
>   75       |
>   76       |      /* Select the subfile record format. */
> SEVERE==========>     CZM0046  Syntax error.
>   77       |
>   78       |      _Rformat(subf, "SFL");
>
-- 
This is the Bare Metal Programming IBM i (AS/400 and iSeries) (C400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/c400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/c400-l.