RE: RE: Running a command midjob not working.

["Wills, Mike N. (TC)" <MNWills@xxxxxxxxxxxxxx>]

Thanks. Between that and a bug I discovered it is working now.

-----Original Message-----
From: Mike Naughton [mailto:mnaughton@juddwire.com]
Sent: Thursday, May 16, 2002 4:25 PM
To: rpg400-l@midrange.com
Subject: Re: RE: Running a command midjob not working.


You set the activation group when you compile the program; you can check
what a program's activation group is with DSPPGM.

You might also try OVRSCOPE(*CALLLVL) -- it's less extensive than *JOB,
but I've found it does the trick for me. (I'm not sure what the trade-offs
are of using one over the other -- any theories, anyone?)

good luck!

rpg400-l@midrange.com writes:
>What activation group is the CL running in?  If it is not the same as the
>RPG then you will have to change the the OVRPRTF to include
>OVRSCOPE(*JOB).
>
>Scott Mildenberger
>
>> -----Original Message-----
>> From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
>> Sent: Wednesday, May 15, 2002 2:46 PM
>> To: 'rpg400-l@midrange.com'
>> Subject: RE: Running a command midjob not working.
>>
>>
>> ... and the CL program
>>              PGM        PARM(&CMPNY)
>>
>>              DCL        VAR(&CMPNY) TYPE(*CHAR) LEN(4)
>>              DCL        VAR(&OVRLYNAME) TYPE(*CHAR) LEN(6)
>>
>>              CHGVAR     VAR(&OVRLYNAME) VALUE('CO' || &CMPNY)
>>
>>     /* Remove the override */
>>              DLTOVR     FILE(*PRTF)
>>              MONMSG     MSGID(CPF9841)
>>
>>     /* Set the overlay */
>>              OVRPRTF    FILE(*PRTF) FRONTOVL(OVERLAYLIB/&OVRLYNAME)
>>     /*       CHGSPLFA   FILE(CUTPO120) SPLNBR(*LAST) SELECT(*ALL) +
>>                           FRONTOVL(OVERLAYLIB/&OVRLYNAME)
>>        */
>>
>>  EXIT:       ENDPGM
>>
>_______________________________________________


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.