Re: _Rreadnc() and _Rwrited() from RPG

On 1/4/2014 11:14 AM, Pascal Polverini wrote:

In my test, I can see the subfile, exit, select a subfile-row and get the
detail screen but it crashes when there is no (or no more) subfile changed
record.

When you say 'crash' do you get an escape message or an informational
message in the job log?

Another issue I encounter is in the write Subfile when the number or rows
reaches the SFLSIZ limit: I/O error CPF5003.

Here the RPG code I am using:

d RIOFB ds likeds(RIOFB_T) based(pRIOFB)
D pRvoid s *
D pRFile s *
D myPointer s *
/free
if operation = 'OPEN';
myPointer = Ropen('MYLIB/MYDSPF':'rr+');
...
elseif operation = 'WRITE';
if isSFL;
pRvoid = Rformat(myPointer:'MYSFL');
pRFile = Rwrited(myPointer:myOutputBuffer
:myOutputBufferLen
:myRrn);
else;
...
endif;
...
elseif operation = 'READC';
pRvoid = Rformat(myPointer:'MYSFL');
monitor;
pRIOFB = Rreadnc(myPointer:myInputBuffer
:myInputBufferLen);
on-error;
myEof = '1';
endmon;
// RIOFB.num_bytes = -1 means EOF
if RIOFB.num_bytes = myInputBufferLen;
myRrn = RIOFB.rrn;
else;
myEof = '1';
endif;
...

- When some subfile row are changed it works OK but when there is no (or
not anymore) subfile row changed Rreadnc throws an I/O error CPF5037
despite the monitor instruction.
- When the number of rows (myRrn) is greater than SFLSIZ (describe in
theSFLCTL)
Rwrited throws an I/O error CPF5003.

I would need the prototypes in order to get this to compile on my
system. Normally, if I need _Rxxx, I write the code in the C language,
not in RPG, so I don't have any of the prototypes ready for RPG.
--buck