Re: fputs() in RPGLE

Yeah, I chuckled when I wrote that.  But, I really do think of it that way.

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

 
 





From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Richard Schoen <Richard.Schoen@xxxxxxxxxxxxxxx>
Sent: Friday, May 26, 2017 9:51 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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
 
 ?
 ?