× 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.


  1.  Home
  2. RPG400-L
  3. May 2017

Null terminated string question

Hello
Can anybody explain why with the following code which works well , if I have the two fields l_path-1 and l_path_2 declared as char(70) the results from the %str function do not have the null terminator added to the end of the string. We are at RELEASE = V7R1M0
Thank you in advance

*******************************************************
* Fonction EX_DELETE_DIR *
* ==> PPW Mai 2017 *
*******************************************************
p EX_DELETE_DIR...
P b export
d EX_DELETE_DIR...
D Pi 2a
d p_path 70a
d l_path_1 s 60a
d l_path_2 s 60a
d rmdir pr 10i 0 Extproc('rmdir')
d path * value options(*string)
/free
l_path_2 = p_path ;
%Str(%Addr(l_path_1) :
%Size(l_path_1)) = %trimr(l_path_2) ;

if rmdir(l_path_1) < 0 ;
return 'KO' ;
else ;
return 'OK' ;
endif ;

/end-free
P EX_DELETE_DIR...
P e

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.