|
midrange.com
In a message dated 02/01/2000 2:18:50 PM Central Standard Time,
anup_k@hotmail.com writes:
<< anup_k@hotmail.com >>
Try this it worked for me.
I have had success automating with the following example. This was done in
BPCS version 6.02.
Good Luck Kevin W.
Getting INV920B to run at night through the IBM job scheduler to post
Inventory to G/l
This example works in BPCS 6.02 for me. Check
Job: INV920B Entry number: 000189
Status: SCD
Last attempted submission:
Status . . . . . . . . . . . : Job successfully submitted.
Date . . . . . . . . . . . . : 02/01/00
Time . . . . . . . . . . . . : 03:00:00
Last successful submission:
Job . . . . . . . . . . . . : INV920B
User . . . . . . . . . . . : MYUSER
Number . . . . . . . . . . : 503687
Date . . . . . . . . . . . . : 02/01/00
Time . . . . . . . . . . . . : 04:00:00
Schedule day . . . . . . . . . : *MON *TUE *WED *THU
*FRI
Schedule time . . . . . . . . : 03:00:00
Frequency . . . . . . . . . . : *WEEKLY
Recovery action . . . . . . . : *SBMRLS
Next submit date . . . . . . . : 02/02/00
Command . . . . . . . . . . . : CALL PGM(V6BPCSUSR/INV920C)
PARM('1' 'YES' ' ')
Job queue . . . . . . . . . . : BACKUP
Library . . . . . . . . . . : QGPL
Job queue status . . . . . . . : RLS/SBS
Job description . . . . . . . : BPCSJOBD
Library . . . . . . . . . . : V6BPCSUSR
Scheduled by . . . . . . . . . : MYUSER
User profile . . . . . . . . . : MYUSER
Message queue . . . . . . . . : MYUSER
Library . . . . . . . . . . : QUSRSYS
Text . . . . . . . . . . . . . : Post Inventory Transactions to
G/L MON - FRI
Create a CL Program similar to this.
/* PROGRAM ID - INV920C */
/* PROGRAM NAME - Calls INV920 */
/* */
/* BMR Date Description */
/* ---- ------- ----------------------------------------------- */
/* 0000 31Mar93 Version 4.0 (BMR markings removed.) */
/* 0000 31MAY1999 TO RUN FROM JOB SCHEDULER */
/* 2000 09Jun1999 Changed to run INV921B instead of INV920B. */
/* */
/*********************************************************************/
PGM PARM(&JOBTYP &YESNO &BLANK)
DCL VAR(&PGMNAM) TYPE(*CHAR) LEN(10) +
VALUE('INV921B ')
DCL VAR(&JOBTYP) TYPE(*CHAR) LEN(1)
DCL VAR(&YESNO) TYPE(*CHAR) LEN(3)
DCL VAR(&BLANK) TYPE(*CHAR) LEN(1)
CALL PGM(SYS664) PARM(&PGMNAM)
/* 2000d CALL PGM(*LIBL/INV920B) PARM(&JOBTYP &YESNO +
&BLANK) */
/* 2000a */ CALL PGM(*LIBL/INV921B) PARM(&JOBTYP &YESNO +
&BLANK)
MONMSG MSGID(CPF0000) /* Security */
ENDPGM: ENDPGM
+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
