RE: Submit reorganisation programs

["Lacelle, Marc" <LACELLE@xxxxxxxxx>]

HiHo

        Another beautiful week. No rain, yet. First my carrots, now my 
cucumbers. They are so small, my neighbor suggested maybe I could hollow the 
middle out and use them as straws.

Here is the CL I use every month end

PGM

CALL       PGM(*LIBL/INV970B)
CALL       PGM(*LIBL/ORD990B)
CALL       PGM(*LIBL/INV972B)
CALL       PGM(*LIBL/SFC990B)
CALL       PGM(*LIBL/INV971B)
CALL       PGM(*LIBL/ACR970B) PARM(' ')
CALL       PGM(*LIBL/SYS990B)
CALL       PGM(*LIBL/SFC971B)
CALL       PGM(*LIBL/ORD970B)


ENDPGM

To be used in conjunction with another CL that call this CL. See first e-mail.
VERY IMPORTANT. Always submit program in that order

Hope this helps

Marc Lacelle
Royal Canadian Mint



> ----------
> From:         Lim, ChangYang[SMTP:cylim@kcc.com]
> Reply To:     bpcs-l@midrange.com
> Sent:         Thursday, September 05, 2002 12:17 AM
> To:   'bpcs-l@midrange.com'
> Subject:      RE: Submit reorganisation programs
>
> Has anyone got the solutions to automate the system reorganisation program
> ACR970D?
>
> Please advise.
>
>
> Regards,
>
>
>
> Today's Topics:
>
>    1. RE: Submit reorganisation programs (Lacelle, Marc)
>
> --__--__--
>
> Message: 1
> Subject: RE: Submit reorganisation programs
> Date: Wed, 4 Sep 2002 09:04:50 -0400
> From: "Lacelle, Marc" <LACELLE@rcmint.ca>
> To: "bpcs-l@midrange.com" <'bpcs-l@midrange.com'>
> Reply-To: bpcs-l@midrange.com
>
> HiHo
>
>       Nice weather, very warm this summer and no rain. My garden had
> problems. My carrots where about 1 inch long and about the size of a pencil.
>
> Try this
>
> 1. Create one CL that calls the Re-Org Programs (Let's call this program
> REORG901C)
>
> PGM
>
> CALL       PGM(*LIBL/INV972B)
> CALL       PGM(*LIBL/INV971B)
> CALL       PGM(*LIBL/SYS990B)
>
> ENDPGM
>
> 2. Create CL that calls REORG901C (Let's call this program REORG900C)
>
> PGM
>
> SBMJOB     CMD(CALL PGM(REORG901C)) JOB(REORG) +
>               JOBQ(QGPL/BPCSMTHEQ) JOBPTY(*JOBD) +
>               LOG(*JOBD 00 *SECLVL)
>
> ENDPGM
>
>
> Important things to remember
>
> 1. Always run INV972,INV971,SYS990 in this order. (ALWAYS)
> 2. In program REORG900C you will notice a special JOBQ. It is BPCSMTHEQ (you
> can call it anything you want). This JOBQ is always held. It's a safe guard
> in-case of accidental submission of REORG900C.
>
> I hope this helps
>
> Marc "Need to water my garden more often" Lacelle
> Royal Canadian Mint
>
>
>
>
> ------------------------------------------------------------------------------
> This e-mail is intended for the use of the addressee(s) only and may contain 
>privileged, confidential, or proprietary information that is exempt from 
>disclosure under law.  If you have received this message in error, please 
>inform us promptly by reply e-mail, then delete the e-mail and destroy any 
>printed copy.   Thank you.
>
> ==============================================================================
> _______________________________________________
> This is the SSA's BPCS ERP System (BPCS-L) mailing list
> To post a message email: BPCS-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/bpcs-l
> or email: BPCS-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/bpcs-l.
>
>