RE: Plea from a old lost RPG/400 war horse

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Doug,

Sounds as if the command default for DFTACTGRP on the CRTBNDRPG command was set 
to *NO when the program was first created.  Since then it has been reset to 
*YES, possibly by an upgrade.  The CRTSQLRPGI command calls the CRTBNDRPG 
command behind the scenes.


Best way to handle this is to add the following h-spec
h dftactgrp(*NO) actgrp(????)

where the ???? is either a name or *CALLER.

Now the other possibility is that the program was created via CRTSQLRPGI 
OBJTYP(*MODULE) then the CRTPGM was run manually.

HTH,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Doug Griffin
> Sent: Thursday, May 19, 2005 12:00 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Plea from a old lost RPG/400 war horse
> 
> 
> Hi y'all,
> I've been dropped into RPG LE after many years of not coding. 
>  I'm trying to
> make a one line change to an existing SQLRPGLE program.  Just 
> trying to
> change the value of a field with a move op.  The source has a 
> H spec with
> BNDDIR and a value (gulp!)  when I do a 14 from good old 
> wrkmbrpdm, it does
> not like the dftactgrp setting.   I poked around and found 
> the crtbndrpg
> command (double gulp!).  When I run it with *no in dftactgrp, 
> I get errors
> on a  /exec sql.  Its a nice little sql statement, and I 
> don't think it
> deserves such harsh treatment.  I looked at the archives at 
> midrange.com,
> and found I'm way behind on lotta stuff.  Any general 
> (especially thumbnail)
> or specific advice would be appreciated.
> Thanks,
> 
> Doug Griffin
> AMZ Associates
> 708-261-5300
> 
> -- 
> 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.
> 
>