RE: actgrp for service program

When compiling a NOMAIN module using PDF option 15 or the CRTRPGMOD command,
the DFTACTGRP(*NO) keyword may NOT be specified on the HEADER spec in the
source.
If you're using PDM option 15 or the CRTBNDRPG command, then both the
DFTACTGRP(*NO) keyword and the ACTGRP('MYAG') keyword may be specified.
However, if you do not specify DFTACTGRP(*NO) and you (for some reason) try
to compile with PDM option 14, you will get the error you've reported.
I usually code the following on my Header specs just for good measure:

.....H  OPTION(*NODEBUGIO : *SRCSTMT)
     H/IF DEFINED(*CRTRPGMOD)
     H  NOMAIN ACTGRP('MYAG')
     H/ELSE
     H  DFTACTGRP(*NO)  ACTGRP('MYAG')
     H/ENDIF

-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of michaelr_41@xxxxxxxxxxxxxx
Sent: Tuesday, August 03, 2004 2:15 PM
To: RPG programming on the AS400 / iSeries
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.