Re: actgrp for service program

[funderwood@xxxxxxxxxxxxxxxxxxxxxxxxxx]

I found that this works well for us:

0182.00  /If defined(*CrtBndRpg) 
0183.00 H DftActGrp(*No) ActGrp('XXXX') Bnddir('XXXXXX') 
0184.00  /Endif 
0185.00 H Option(*NoDebugIO:*Srcstmt) Datfmt(*usa) 

Just fill in your values for group and directory.

hth

Fred Underwood
North American Stainless
(502) 347-6187

mailto:funderwood@xxxxxxxxxxxxxxxxxxxxxxxxxx




michaelr_41@xxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/03/2004 03:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: actgrp for service program






That's the way to do it. You also have to specify DFTACTGRP(*NO) in the
Header spec.

On Tue, 3 Aug 2004 13:35:05 -0500, "Lim Hock-Chai"
<Lim.Hock-Chai@xxxxxxxx> said:
> Is there a way to hardcode the activation group in the RPG source?  I
> tried to use ACTGRP keyword in the H spec but getting the compile error
> when try to create the module.
> 
> thanks.
> 
> 
> --
> 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.
> 
-- 
 
  michaelr_41@xxxxxxxxxxxxxx

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