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



Hi Jaques,

Here's a freeform and fixed form example.

dcl-ds stringDS;
*n Like( lStringArray ) Inz( 'toto' );
*n Like( lStringArray ) Inz( 'tutu' );
*n Like( lStringArray ) Inz( 'tata' );
lStringArray varchar( 100 ) Dim( 3 );
end-ds;

return lStringArray;

D stringDS DS
D *n Like( lStringArray ) Inz( 'toto' )
D *n Like( lStringArray ) Inz( 'tutu' )
D *n Like( lStringArray ) Inz( 'tata' )
D lStringArray 100a Varying Dim( 3 )

return lStringArray;

I wasn't aware of *n until the new freeform came out, so I don't know if that's available in fixed format on older versions or not. If not, simply replace with a name. I also went with a random size for your string array.

Note: these aren't null-terminated strings.

Kurt Anderson
Sr. Programmer/Analyst - Application Development, Service Delivery Platform

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DEVILLE Jacques
Sent: Wednesday, August 05, 2015 4:12 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: How to access to an Array of String

Hello,

I would like to access to a String[] Array .The data is a list (I think a null terminated string but not sure) .

The java code is like this :
/**
* @return A String array
*/
public String[] getStringArray() {
String[] lStringArray = new String[]{ "toto", "tutu", "tata" };
return lStringArray;
}




Does anyone have an example of how this can be done from RPG.
Jacques
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.