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


  • Subject: Re: No %editc in V3R2!!!
  • From: D.BALE@xxxxxxxxxxxxx
  • Date: Thu, 28 Dec 2000 14:32:00 -0500

Thanks to all for the info!  I did work up a sample app calling the APIs
directly inline.  The sample provided on the IBM snippets page - the one
written by Mel Rothman - did not suit my needs because I've got to keep this
code in the same source as the application.  Reasons:  Still fighting the
RPG-IV battles here and the minute I start mentioning service programs, I get
squinty-eye responses.  Heck, just mentioning RPG-IV gets me "beleaguered
sighs" around here.  I'm not giving up the battle, but sometimes you just have
to work discreetly.  Since all development has to pass through the Aldon CMS,
I'm not able to sneak in stuff like service programs.

Scott, your example worked perfectly, except (?!?!?) that the app needs to be
compiled with DFTACTGRP(*NO) ACTGRP(QILE).  Of course, you can't specify these
on the H-spec in V3R2 <groan>, but only in the CRTBNDRPG command, which I have
no control over in the aforementioned Aldon CMS.  I see in my v4r4 softcopy
that the H-spec supports these but, then, if it were v4r4 I was running on,
I'd had %editc and avoided this whole mess!  Gotta start pushing some hot
buttons around here to upgrade!

Actually, when I did a straight compile, I got an error message:
     1 d EditC           PR            43A
======>  aaaaa
*RNF3788 30 a  000100  Keyword EXTPGM must be specified when DFTACTGRP(*YES) is
                       specified on the CRTBNDRPG command.

Is there a way to specify EXTPGM for how I would like to use this subprocedure
(source inline) without having to mess with compiler options?

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
<snip>
Here's a subprocedure that I use for editing numerics, since I'm also
stuck at V3R2.  It includes some examples of using it.   After adjusting
it to your tastes, I'd recommend seperating the prototype into a seperate
source member, then throwing the subprocedure into a service program.
For the sake of this example, however, its easier to just use one source
member.

Here it is:

     D EditC           PR            43A
     D   p_SrcVar                      *   value
     D   peEditCode                   1A   const
     D   peVarType                   10A   const
     D   peDigits                    10I 0 value
     D   peDecPos                    10I 0 value
     D   peFillChar                   1A   const options(*nopass)
<snip>
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

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.