RE: Running a command midjob not working.

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
>