RE: fputs() in RPGLE

Too funny that we're now referring to Old-Style free form RPG.


Regards,


Richard Schoen
Director of Document Management
e. richard.schoen@xxxxxxxxxxxxxxx
p. 952.486.6802
w. helpsystems.com

----------------------------------------------------------------------

message: 1
date: Thu, 25 May 2017 22:10:29 +0000
from: Roger Harman <roger.harman@xxxxxxxxxxx>
subject: fputs() in RPGLE

I am having a brain freeze on using fputs() in an RPGLE program. It needs to be in old-style /free format for another user.

I have this and it is showing 18 bytes written (retBytes) but the IFS file (in /tmp) is zero bytes - checked with Windows Explorer and wrklnk.

I must be missing something very obvious. Thanks.

// call proc to call _C_IFS_fopen mode 'w'

TextData = 'One Line Of Data' ;
TextBytes = IFS_Write(TextData : TextFileHandle);

// invoke proc to call _C_IFS_fclose

**======================================================================
**
**
**
**======================================================================
p IFS_Write b
d IFS_Write pi 10i 0
d pText 32767a const
d pFileHandle *
**----------
d Sys_IFS_Write PR 10i 0 extproc('_C_IFS_fputs')
d pString * value options(*string)
d pHandle * value
**----------
d retBytes s 10i 0 inz
d wkText s 32767a inz
d CRLF s 2a inz(x'0D25')
**----------

wkText = %trim(pText) + CRLF + x'00';
retBytes = Sys_IFS_Write(%addr(wkText) : pFileHandle);
if retBytes = 0;
dsply ('fputs error - Errno = CPE' + %editc(getErrno() : 'Z'));
endif;

return retBytes;

p IFS_Write e


Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power

?
?