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



As you can not execute a module, it is only a building block for a
program, you can not specify an ACTGRP for the module.  If you are
thinking of CRTBNDRPG (PDM option 14), it creates a module in QTEMP
(CRTRPGMOD) and and then creates a program (CRTPGM), two distinct steps.

To create a service program you use the command CRTSRVPGM and you can
then specify the activation group.

I /COPY the follwing H SPEC into my RPG programs so that I can use the
PDM option 14 to create my non-service programs.

H BndDir('ILE_UTIL') Option(*SrcStmt:*NoDebugIO)            
H Copyright('World Class Information Systems, Inc. 2003') 
 /If Defined(*CRTBNDRPG)                                    
H DftActGrp(*No) ActGrp(*Caller)                            
 /EndIf                                                     

Support for the *CRTBNDRPG parameter has been fairly recent (V5R1?) so
if you are not current you might not be able to make use of the "/If
Defined"

Also, if you are new to service programs, I would advise you to review
binder language if you haven't already.

<THarteau=hNZAmSK30DGruEYLHyeBMNBPR1lH4CV8@xxxxxxxxxxxxxxxx> wrote in
message
news:<OFD8BB0C47.1FC2C550-ON86256DB0.004E4FC1-86256DB0.004EBDBA@xxxxxxxx
OM>...
> 
> Hi,
>       I have created my first service program that contains 7 
> different modules.  I want to add DftActGrp(*NO) ActGrp(*Caller) to 
> the H spec.  I want it there so it doesn't get forgotten on the 
> compile.  Do I need to put this in each module that is than bound to 
> the service program?  If that is the case, do I need to recreate the 
> service program (its isn't used anywhere yet)?  Thanks for the help. 
> The more I use ILE the better I'm understanding it.
> 
> <===================================================>
> 
> Terri Harteau
> Felker Brothers Corp.
> ****************
> "There's no point in being grown up if you can't be childish 
> sometimes."
> - Dr. Who
> ****************
> 
> 
> 
> 
> 
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> list To post a message email: 
> RPG400-L=Zwy7GipZuJhWk0Htik3J/w@xxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request=Zwy7GipZuJhWk0Htik3J/w@xxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 



As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.