Re: No %editc in V3R2!!!

[D.BALE@xxxxxxxxxxxxx]

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
+---