RE: Running a command midjob not working.

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

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
>