RE: Running a command midjob not working.

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

Do I set the activation group the same way as I set it for subproceedures
and such?

-----Original Message-----
From: Scott Mildenberger [mailto:Smildenber@Washcorp.com]
Sent: Wednesday, May 15, 2002 3:49 PM
To: 'rpg400-l@midrange.com'
Subject: 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
>
_______________________________________________
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.