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



That's a pointer to a pointer, so you'd need to pass the value like this:

D myvalue          S                 250A
D ptr              S                    *  Inz(%addr(myValue))

C                  eval      pRtnVal = strsep(%addr(ptr):'whatever-in-here')


Bob Cozzi
Cozzi Consulting
www.rpgiv.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wayne Achenbaum
Sent: Wednesday, June 18, 2003 2:54 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: strsep interface

Help, can anyone lead me in the right direction.

I tried using the below C Function incapsulated in an ile Service Pgm. When
I debug the call to the function strsep, the paramter delimiter has the
delimiter(s)  I passed but the stringp Parm always starts off as NULLand the
function promptly ends as the code says to. I don't Understand what the
prototype in Rpg must be for this function to work properly. I thought the
interface was identical to Strtok(). What does **stringp mean??

This is the prototype I am using. Its works for Strtok but not Strsep.

 d StrSep          PR             *   ExtProc('strsep')
 d  String@                          *   Value Options(*string)
 d  Delimiters@                  *   Value Options(*string)

TIA
Wayne Achenbaum
Slomins Inc.

1 /* 2  * Copyright (C) 2001  Roy Keene
 3  *
 4  * This program is free software; you can redistribute it and/or
 5  * modify it under the terms of the GNU General Public License
 6  * as published by the Free Software Foundation; either version 2
 7  * of the License, or (at your option) any later version.
 8  *
 9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,
USA.
17  *
18  *      email: dact@xxxxxxxxxx
19  */
20
21 /* Compliments of Jay Freeman <saurik@xxxxxxxxxx> */
22
23 #include <string.h>
24
25 char *strsep(char **stringp, const char *delim) {
26     char *ret = *stringp;
27     if (ret == NULL) return(NULL); /* grrr */
28     if ((*stringp = strpbrk(*stringp, delim)) != NULL) {
29         *((*stringp)++) = '\0';
30     }
31     return(ret);
32 }
_______________________________________________
This is the RPG programming on the AS400 / 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 ...

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.