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

RE: Removing punctuation (not using arrays)

And how is this different from a single-line XLATE opcode, except that
is handles two or more of the unwanted charaters when they are
consecutive in the original string?

Bob

-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com] On Behalf Of Jon Paris
Sent: Wednesday, January 15, 2003 9:14 AM
To: rpg400-l@midrange.com
Subject: Removing punctuation (not using arrays)


I have a routine that uses the C function strtok to perform exactly this
task.  This is just the "raw" code - I would wrap it as a subprocedure
but it works nicely.  It is not too long so I will include it here.

D Token@          S               *
D Delims          C                   '.,:;"  '         // put whatever
characters you want eliminated here
D EditedField     S            100a   Varying
   :                  :                :
  EditedField = '';    // Set work field to null

  Token@ = StrTok( Address : Delims );     // Get first token
  If Token@ <> *Null;
    EditedField = %Str(Token@);

    DoW Token@ <> *Null;         // Process second & subsequent tokens
      Token@ = StrTok( *Null : Delims );
      If Token@ <> *Null;
        EditedField = EditedField + Space + %Str(Token@);
      EndIf;
    EndDo;
  EndIf;

  Address = EditedField;  // Copy edited field back to original

This is the prototype I use for strtok.  You'll need to specify bind dir
QC2LE on the compile.  If you want to understand how it works there is a
similar example in the RPG Redbook.

 D StrTok          Pr              *   ExtProc('strtok')
 D  String@                        *   Value Options(*String)
 D  Delimiters@                    *   Value Options(*String)


Jon Paris
Partner400



> -----Original Message-----
> From: rpg400-l-bounces@midrange.com 
> [mailto:rpg400-l-bounces@midrange.com]On Behalf Of 
> rpg400-l-request@midrange.com
> Sent: Wednesday, January 15, 2003 4:04 AM
> To: rpg400-l@midrange.com
> Subject: RPG400-L Digest, Vol 1, Issue 1296
>
>
> Send RPG400-L mailing list submissions to
>       rpg400-l@midrange.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
>       http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or, via email, send a message with subject or body 'help' to
>       rpg400-l-request@midrange.com
>
> You can reach the person managing the list at
>       rpg400-l-owner@midrange.com
>
> When replying, please edit your Subject line so it is more specific 
> than "Re: Contents of RPG400-L digest..."
>
>
> Today's Topics:
>
>    1. RE: Removing punctuation (not using arrays) (Bob Cozzi)
>    2. RE: Removing punctuation (not using arrays) (Buck Calabro)
>    3. RE: Removing punctuation (not using arrays) (Bob Cozzi)
>    4. Re: Removing punctuation (not using arrays) (Gary Guthrie)
>    5. Determine SFLSIZ/SFLPAG (Tom Liotta)
>    6. Re: Determine SFLSIZ/SFLPAG (Gary Guthrie)
>    7. Re: Removing punctuation (not using arrays) (Booth Martin)
>    8. Re: Determine SFLSIZ/SFLPAG (Booth Martin)
>    9. Re: Determine SFLSIZ/SFLPAG (Gary Guthrie)
>   10. Replicating Mainframe Cobol to AS400 ILERPG (N, Muralidhar)
>
>
> ----------------------------------------------------------------------
>
> Date: Tue, 14 Jan 2003 18:33:31 -0600
> From: "Bob Cozzi" <cozzi@rpgiv.com>
> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com>
> Subject: RE: Removing punctuation (not using arrays)
> Message-ID: <000401c2bc2d$bcc17360$227d6520@cozzi600e>
> In-Reply-To: 
> <22698AA01C82684F86199C7AC83C1A2911083C@trimail1.jacksongroup.com>
> Content-Type: text/plain;
>       charset="us-ascii"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 1
>
> Yes, but you'd have to perform a loop for each different character you

> want to delete.
>
> Bob
>
> -----Original Message-----
> From: rpg400-l-bounces@midrange.com 
> [mailto:rpg400-l-bounces@midrange.com] On Behalf Of Tracy Ball
> Sent: Tuesday, January 14, 2003 6:05 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Removing punctuation (not using arrays)
>
>
> The %scan and %replace is easy enough, however, will it eliminate the 
> extra spaces?
>
> Example: "THIS, IS. A, TEST. ONLY"
>
> Even using %xlate can give me this in two statements: "THIS  IS  A  
> TEST ONLY"
>
> But what I need is this: "THIS IS A TEST ONLY"
>
>
> -Tracy
>  Ext. 3107
>
>
> -----Original Message-----
> From: Scott Klement [mailto:klemscot@klements.com]
> Sent: Tuesday, January 14, 2003 6:52 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Removing punctuation (not using arrays)
>
>
>
> On Tue, 14 Jan 2003, Tracy Ball wrote:
> >
> > If I have this field value "RABBIT PACK, 6PC. WINE TOOL KIT", is 
> > there
>
> > a better method of removing the comma and period characters and 
> > discarding the extra spaces created without using an array routine 
> > of reading one byte at a time, translating the unwanted characters 
> > to "blanks" and then reloading the field via array positions?
>
> Instead of reading it one byte at a time, you COULD use the %scan BIF 
> (or SCAN op-code) to find each punctuation character... the down-side 
> to this is that it has to search the entire string over and over for 
> each punctuation symbol you want to remove, which could end up being a

> performance issue (especially if the string is very large)
>
> Still, if this interests you, try searching the archives for the %scan

> and %replace BIFs... I'm sure you'd find an example.
>
> >
> > Can I use the %xlate and %trim %bifs to shorten this task?  I don't 
> > have REXX, so that is not an option.
> >
>
> The BIFs that I would use would actually be %subst and %replace.   I
> would
> still loop through every character, and use %replace to remove the 
> characters that I don't want.
>
> Here's some sample code that illustrates how I'd do it:
>
>      D x               S             10I 0
>      D len             S             10I 0
>      D string          s            100A
>
>      c                   eval      string = '"RABBIT PACK, 6PC. WINE
> TOOL KIT"'
>      c                   eval      len = %len(%trimr(string))
>      c                   eval      x = 1
>
>      c                   dow       x <= len
>
>      c                   if        %subst(string:x:1) = '.'
>      c                               or %subst(string:x:1) = ','
>      c                               or %subst(string:x:1) = ';'
>      c                               or %subst(string:x:1) = '"'
>      c                   eval      string = %replace('': string: x: 1)
>      c                   else
>      c                   eval      x = x + 1
>      c                   endif
>
>      c                   enddo
>
>      c                   eval      *inlr = *on
>
>
> Note that it doesn't advance to the next position unless no %replace 
> was necessary.  This is because the %replace moved all of the 
> characters to the left one space, so you'll already be on the next 
> position.
>
> Hope this is helpful.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> list To post a message email: RPG400-L@midrange.com To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at 
> http://archive.midrange.com/rpg400-l.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> list To post a message email: RPG400-L@midrange.com To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at 
> http://archive.midrange.com/rpg400-l.
>
>
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 19:39:16 -0500
> From: Buck Calabro <Buck.Calabro@commsoft.net>
> To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com>
> Subject: RE: Removing punctuation (not using arrays)
> Message-ID: 
> <A1767D18AF09D511B99A00508B55A9FA97A2A2@commsoft-exchg.commsoft.net>
> Content-Type: text/plain;
>       charset="iso-8859-1"
> MIME-Version: 1.0
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 2
>
> You can even mix XLATE and %replace.  XLATE all of the unwanted 
> punctuation to some single generic unwanted punctuation and then 
> %replace them with an empty string.  The manual reference has an 
> example of deleting text from a
> string: 
> http://publib.boulder.ibm.com/iseries/v5r1/ic2924/books/c092508358
> 5.htm#HDRB
> BREPL
>   --buck
> ------------------------------
>
> Date: Tue, 14 Jan 2003 18:51:47 -0600
> From: "Bob Cozzi" <cozzi@rpgiv.com>
> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com>
> Subject: RE: Removing punctuation (not using arrays)
> Message-ID: <000501c2bc30$4a0ccc40$227d6520@cozzi600e>
> In-Reply-To: 
> <22698AA01C82684F86199C7AC83C1A2911083A@trimail1.jacksongroup.com>
> Content-Type: text/plain;
>       charset="us-ascii"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 3
>
> Tracy,
>
> If you have the RPG ToolKit for OS/400 you can do it in two lines of 
> code. If you don't you can get the FindReplace procedure, out of my 
> article on this topic at
> http://www.mcpressonline.com/mc?1@46.DRG8acAs5B1.104752@.6ae52ffe
>
> If you don't have the toolkit or the FindReplace procedure, you can 
> still do what you want in just 4 lines of code:
>
> Here's some example D specs for the data...
>
>
>      D input           S             30A   Inz('RABBIT PACK, 6PC. WINE
> TOOLKIT')
>      D nPos            S             10I 0
>
>
> First get rid of the garbage and replace them with blanks.
>
>      C     ',.':'  '     xlate     input         input
>
> Now get rid of the duplicate blanks..
>      C                   eval      input = FindReplace('  ':' ':Input)
>
>
> In otherwords:
>
>      C     ',.':'  '     xlate     input         input
>      C                   eval      input = FindReplace('  ':' ':Input)
>
>
>
> If you need to do it with raw RPG IV, its almost as easy. Just replace

> the FindReplace line with the following:
>
>      C                   eval      nPos = %scan('  ':Input:nPos)
>      C                   dow       nPos > 0
>      C                   eval      input = %Replace(' ':Input:nPos:2)
>      C                   eval      nPos = %scan('  ':Input:nPos)
>      C                   enddo
>
>
> Bob Cozzi
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 19:43:28 -0600
> From: Gary Guthrie <garyguthrie@charter.net>
> To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com>
> Subject: Re: Removing punctuation (not using arrays)
> Message-ID: <3E24BCC0.45907B09@charter.net>
> References: <000501c2bc30$4a0ccc40$227d6520@cozzi600e>
> Content-Type: text/plain; charset=us-ascii
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 4
>
> Could be that duplicate blanks are valid. Also, could be that any 
> character you translate to could be valid, so translating and then 
> looking for the character you translated to might not be viable.
>
> Here's a quick and dirty look at a procedure that removes a character 
> from a field. A robust solution would be to place the procedure in a 
> service program with string handling procedures and have it accept 
> varying length input.
>
> The actual "replace" portion occurs in the DoU loop in the procedure. 
> The loop continues until the search argument is not found in the input

> at which time the On-Error section of the Monitor block gains control 
> and shuts the loop dosn.
>
> Gary Guthrie
>
>
> D RmvChar         Pr            30
> D                               30    Value
> D                                1    Value
>
> D MyFld           S             30    Inz('RABBIT PACK, 6PC. WINE
> TOOLKIT')
>
>  /Free
>
>       MyFld = RmvChar( MyFld : ',' ) ;
>       MyFld = RmvChar( MyFld : '.' ) ;
>       Dsply MyFld ;
>
>       *InLR = *On ;
>
>  /End-Free
>
> P RmvChar         B
> D RmvChar         PI            30
> D  Input                        30    Value
> D  Char                          1    Value
>
> D NotFound        S               N   Inz( *Off )
>
>  /Free
>
>       DoU NotFound ;
>         Monitor ;
>           Input = %Replace( '' : Input : %Scan( Char : Input ) : 1 ) ;
>         On-Error ;
>           NotFound = *On ;
>         EndMon ;
>       EndDo ;
>
>       Return Input ;
>
>  /End-Free
>
> P RmvChar         E
>
>
>
> Bob Cozzi wrote:
> >
> > Tracy,
> >
> > If you have the RPG ToolKit for OS/400 you can do it in two lines of

> > code. If you don't you can get the FindReplace procedure, out of my 
> > article on this topic at
> > http://www.mcpressonline.com/mc?1@46.DRG8acAs5B1.104752@.6ae52ffe
> >
> > If you don't have the toolkit or the FindReplace procedure, you can 
> > still do what you want in just 4 lines of code:
> >
> > Here's some example D specs for the data...
> >
> >      D input           S             30A   Inz('RABBIT PACK, 6PC.
WINE
> > TOOLKIT')
> >      D nPos            S             10I 0
> >
> > First get rid of the garbage and replace them with blanks.
> >
> >      C     ',.':'  '     xlate     input         input
> >
> > Now get rid of the duplicate blanks..
> >      C                   eval      input = FindReplace('  ':'
':Input)
> >
> > In otherwords:
> >
> >      C     ',.':'  '     xlate     input         input
> >      C                   eval      input = FindReplace('  ':'
':Input)
> >
> > If you need to do it with raw RPG IV, its almost as easy. Just 
> > replace the FindReplace line with the following:
> >
> >      C                   eval      nPos = %scan('  ':Input:nPos)
> >      C                   dow       nPos > 0
> >      C                   eval      input = %Replace('
':Input:nPos:2)
> >      C                   eval      nPos = %scan('  ':Input:nPos)
> >      C                   enddo
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 20:47:36 -0500
> From: qsrvbas@netscape.net (Tom Liotta)
> To: rpg400-l@midrange.com
> Subject: Determine SFLSIZ/SFLPAG
> Message-ID: <0CB9BD1A.18BA49FC.0021C8A2@netscape.net>
> Content-Type: text/plain; charset=iso-8859-1
> MIME-Version: 1.0
> Content-Transfer-Encoding: 8bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 5
>
> Although I can get SFLSIZ and SFLPAG values for a subfile out of the 
> Retrieve Display File Description (QDFRTVFD) API, it'd sure be easier 
> if it were available in the INFDS for a display file or someplace 
> similar.
>
> Anybody know if these can be found in RPG?
>
> Thanks much.
>
> Tom Liotta
>
> --
> --
> Tom Liotta
> The PowerTech Group, Inc.
> 19426 68th Avenue South
> Kent, WA 98032
> Phone  253-872-7788 x313
> Fax    253-872-7904
> http://www.powertechgroup.com
>
>
> __________________________________________________________________
> The NEW Netscape 7.0 browser is now available. Upgrade now! 
> http://channels.netscape.com/ns/browsers/download.jsp
>
> Get your own FREE, personal Netscape Mail account today at 
> http://webmail.netscape.com/
> ------------------------------
>
> Date: Tue, 14 Jan 2003 20:38:12 -0600
> From: Gary Guthrie <garyguthrie@charter.net>
> To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com>
> Subject: Re: Determine SFLSIZ/SFLPAG
> Message-ID: <3E24C994.CB7F95E0@charter.net>
> References: <0CB9BD1A.18BA49FC.0021C8A2@netscape.net>
> Content-Type: text/plain; charset=us-ascii
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 6
>
> Tom,
>
> In the May 2002 issue of iSeries NEWS, I discuss how to obtain and use

> this information in "Dynamic Subfile Processing". If you're a 
> professional member of the iSeriesNetwork, you can find the article 
> at:
>
> http://www.iseriesnetwork.com/resources/artarchive/index.cfm?fusea
> ction=viewarticle&CO_ContentID=14220&channel=art&PageView=Search
>
> The article includes a service program that encapsulates the function 
> of API QDFRtvFD.
>
> Gary Guthrie
> Senior Technical Editor, iSeries NEWS
>
>
> Tom Liotta wrote:
> >
> > Although I can get SFLSIZ and SFLPAG values for a subfile out
> of the Retrieve Display File Description (QDFRTVFD) API, it'd sure be 
> easier if it were available in the INFDS for a display file or 
> someplace similar.
> >
> > Anybody know if these can be found in RPG?
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 21:43:17 -0500 (Eastern Standard Time)
> From: "Booth Martin" <Booth@MartinVT.com>
> To: <rpg400-l@midrange.com>
> Subject: Re: Removing punctuation (not using arrays)
> Message-ID: <3E24CAC5.000004.24915@office>
> References: 
> <22698AA01C82684F86199C7AC83C1A2911083A@trimail1.jacksongroup.com>
> Content-Type: Multipart/related;
>   type="multipart/alternative";
>   boundary="------------Boundary-00=_58IQBHK0000000000000"
> MIME-Version: 1.0
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 7
>
>
> --------------Boundary-00=_58IQBHK0000000000000
> Content-Type: Text/Plain;
>   charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable
>
> I might try code like this:=0D
> =0D
> C       Eval  Inx =3D 1=0D
> C       Do    30 =0D
> C       If      %SubSt(testField:Inx) >=3D 'a' =0D
> C               Or %SubSt(TestField:Inx) =3D *Blank=0D
> C       Eval  NewField =3D %Trim(NewField) + %SubSt(TestField:inx)=0D
> C       EndIf=0D
> C       Eval   Inx =3D Inx + 1=0D
> C       EndDo=0D
> =0D
> I say "like this" because you need to deal with '~', '{', and '}' 
> (they'r= e above 'a" in the collating table) and you have to deal with

> the blanks because the %Trim will remove them, both trivial exercises 
> left for the reader.=0D
> =0D
> The C   DO   30 =3D (length of the field to be tested)
=0D
>  =0D
>  =0D
> ---------------------------------------------------------=0D
> Booth Martin   http://www.MartinVT.com=0D
> Booth@MartinVT.com=0D
> ---------------------------------------------------------=0D
>  =0D
> -------Original Message-------=0D
>  =0D
> From: RPG programming on the AS400 / iSeries=0D
> Date: Tuesday, January 14, 2003 06:35:24 PM=0D
> To: RPG programming on the AS400 / iSeries=0D
> Subject: Removing punctuation (not using arrays)=0D
>  =0D
> If I have this field value "RABBIT PACK, 6PC. WINE TOOL KIT", is there
a
> better method of removing the comma and period characters and
discarding =
> the
> extra spaces created without using an array routine of reading one
byte a=
> t a
> time, translating the unwanted characters to "blanks" and then
reloading =
> the
> field via array positions?=0D
> =0D
> Can I use the %xlate and %trim %bifs to shorten this task? I don't
have R=
> EXX
>  so that is not an option.=0D
> =0D
> Tracy L. Ball=0D
> Total Response, Inc.=0D
> Sr. Programmer/Analyst =0D
> (317) 781-4600 ext. 3107
> --------------Boundary-00=_58IQBHK0000000000000--
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 21:46:14 -0500 (Eastern Standard Time)
> From: "Booth Martin" <Booth@MartinVT.com>
> To: <rpg400-l@midrange.com>
> Subject: Re: Determine SFLSIZ/SFLPAG
> Message-ID: <3E24CB76.000007.24915@office>
> References: <0CB9BD1A.18BA49FC.0021C8A2@netscape.net>
> Content-Type: Multipart/related;
>   type="multipart/alternative";
>   boundary="------------Boundary-00=_2DIQWCW0000000000000"
> MIME-Version: 1.0
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 8
>
>
> --------------Boundary-00=_2DIQWCW0000000000000
> Content-Type: Text/Plain;
>   charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable
>
> I do not understand the purpose of the question.  If knowing their 
> value = is needed, then why not set it in the RPG program?  What 
> problem are you dealing with Tom?=0D
>  =0D
>  =0D
>  =0D
> ---------------------------------------------------------=0D
> Booth Martin   http://www.MartinVT.com=0D
> Booth@MartinVT.com=0D
> ---------------------------------------------------------=0D
>  =0D
> -------Original Message-------=0D
>  =0D
> From: RPG programming on the AS400 / iSeries=0D
> Date: Tuesday, January 14, 2003 09:18:23 PM=0D
> To: rpg400-l@midrange.com=0D
> Subject: Determine SFLSIZ/SFLPAG=0D
>  =0D
> Although I can get SFLSIZ and SFLPAG values for a subfile out of the
> Retrieve Display File Description (QDFRTVFD) API, it'd sure be easier
if =
> it
> were available in the INFDS for a display file or someplace
similar.=0D
> =0D
> Anybody know if these can be found in RPG?=0D
> =0D
> Thanks much.=0D
> =0D
> Tom Liotta=0D
> =0D
> -- =0D
> -- =0D
> Tom Liotta=0D
> The PowerTech Group, Inc.=0D
> 19426 68th Avenue South=0D
> Kent, WA 98032=0D
> Phone 253-872-7788 x313=0D
> Fax 253-872-7904=0D
> http://www.powertechgroup.com=0D
> =0D
> =0D
> __________________________________________________________________=0D
> The NEW Netscape 7.0 browser is now available. Upgrade now!
http://channe=
> ls.netscape.com/ns/browsers/download.jsp=20
> --------------Boundary-00=_2DIQWCW0000000000000--
>
> ------------------------------
>
> Date: Tue, 14 Jan 2003 21:02:36 -0600
> From: Gary Guthrie <garyguthrie@charter.net>
> To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com>
> Subject: Re: Determine SFLSIZ/SFLPAG
> Message-ID: <3E24CF4C.4BF39DA5@charter.net>
> References: <0CB9BD1A.18BA49FC.0021C8A2@netscape.net>
>       <3E24CB76.000007.24915@office>
> Content-Type: text/plain; charset=us-ascii
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 9
>
> Booth,
>
> Read the article that I pointed Tom to ("Dynamic Subfile Processing") 
> and you'll see reasons. If you're a professional member of the 
> iSeriesNetwork, you can find the article at:
>
> http://www.iseriesnetwork.com/resources/artarchive/index.cfm?fusea
> ction=viewarticle&CO_ContentID=14220&channel=art&PageView=Search
>
>
> Gary Guthrie
> Senior Technical Editor, iSeries NEWS
>
>
> Booth Martin wrote:
> >
> > I do not understand the purpose of the question.  If knowing
> their value is
> > needed, then why not set it in the RPG program?  What problem are 
> > you dealing with Tom?
>
> ------------------------------
>
> Date: Wed, 15 Jan 2003 14:31:08 +0530
> From: "N, Muralidhar" <Muralidhar.N@blr.hpsglobal.com>
> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com>
> Subject: Replicating Mainframe Cobol to AS400 ILERPG
> Message-ID: <5B39DC932004D611868300B0D03E355A015FBAB8@HPSBSEX02>
> Content-Type: text/plain
> MIME-Version: 1.0
> Precedence: list
> Reply-To: RPG programming on the AS400 / iSeries 
> <rpg400-l@midrange.com>
> Message: 10
>
> Hey all,
>  anybody has worked on(or working) conversion projects like this...I 
> need to post some queries related to that....
> Kindly mail me back if anyone has worked on similar lines...
> Regards,
> Murali
>
> > -----Original Message-----
> > From:       TEJ SINGH [SMTP:kalsi_ts@hotmail.com]
> > Sent:       Tuesday, January 14, 2003 9:33 PM
> > To: rpg400-l@midrange.com
> > Subject:    Pointer parameter passed to free or realloc is not valid
> >
> >    Hi Everyone,
> >
> >    I compiled an application on  4.4 and running it on 5.1 and 
> > getting abend
> >    " The Pointer parameter passed to free or realloc is not valid".
I am
> >    running a large volume 10-15 million records. Is this something 
> > to do with
> >    difference of operating system.
> >
> >    Kindly help
> >
> >    Tej
> >
> >
> >
> >
> >
> >
> > --------------------------------------------------------------------
> > --
> >
> >    get 2 months FREE* 
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives at 
> > http://archive.midrange.com/rpg400-l.
> WARNING: The information in this message is confidential and may be 
> legally privileged. It is intended solely for the addressee.  Access 
> to this message
> by anyone else is unauthorised.  If you are not the intended
> recipient, any
> disclosure, copying, or distribution of the message, or any action or
> omission taken by you in reliance on it, is prohibited and may be
> unlawful.
> Please immediately contact the sender if you have received this
message in
> error. Thank you.
> ------------------------------
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 
> list To post a message email: RPG400-L@midrange.com To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at 
> http://archive.midrange.com/rpg400-l.
>
>
>
> End of RPG400-L Digest, Vol 1, Issue 1296
> *****************************************
>

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
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.