× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

I pulled this program from the IBM C/C++ manual. Around page 412 or

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 program illustrates how to use subfiles. */
#include <stdio.h>
#include <stdlib.h>
#include <recio.h>
#define LEN 10
#define NUM_RECS 20
#define PFILENAME "*LIBL/T1520DDH"
typedef struct
char name[LEN];
char phone[LEN];

#define RECLEN sizeof(pf_t)
void init_subfile(_RFILE *, _RFILE *);
int main(void)
_RFILE *pf;
_RFILE *subf;
/* Open the subfile and the physical file. */
if ((pf = _Ropen(PFILENAME, "rr")) == NULL)
printf("can't open file %s\n", PFILENAME);
Working with File Systems and Devices 223

if ((subf = _Ropen(SUBFILENAME, "ar+")) == NULL)
printf("can't open file %s\n", SUBFILENAME);
/* Initialize the subfile with records from the physical file. */
init_subfile(pf, subf);
/* Write the subfile to the display by writing a record to the */
/* subfile control format. */
_Rformat(subf, "SFLCTL");
_Rwrite(subf, "", 0);
_Rreadn(subf, "", 0, __DFT);
/* Close the physical file and the subfile. */
void init_subfile(_RFILE *pf, _RFILE *subf)
_RIOFB_T *fb;
int i;
pf_t record;
/* Select the subfile record format. */
Rformat(subf, "SFL");

for (i = 1; i <= NUM_RECS; i++)
fb = _Rreadn(pf, &record, RECLEN, __DFT);

if (fb->num_bytes != EOF)
fb = _Rwrited(subf, &record, RECLEN, i);

if (fb->num_bytes != RECLEN)
printf("error occurred during write\n");

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2023 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.