Re: RE: Running a command midjob not working.

["Mike Naughton" <mnaughton@xxxxxxxxxxxx>]

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