|
midrange.com
The following code is our version of a scheduled reorganisation.
We have numerous BPCS environments, the program below is setup within the ROBOT
product to run after our month-end procedures for each BPCS environment. The
call to the program is CALL mylibrary/myprogram 'myenvironment'
('myenvironment' would contain the name of the library that contains the INLIBL
data area relating to the BPCS environment.
PGM PARM(&USRLIB)
DCL VAR(&RTPARM) TYPE(*CHAR) LEN(1) VALUE('I')
DCL VAR(&W7PLST) TYPE(*CHAR) LEN(256)
DCL VAR(&W7SLCT) TYPE(*CHAR) LEN(256)
DCL VAR(&CMD) TYPE(*CHAR) LEN(450)
DCL VAR(&LEN) TYPE(*DEC) LEN(15 5) VALUE(450)
DCL VAR(&USRLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&LIBL) TYPE(*CHAR) LEN(396)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&NLVMASK) TYPE(*CHAR) LEN(7)
DCL VAR(&LANG) TYPE(*CHAR) LEN(3)
DCL VAR(&LANGLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&BPCSF) TYPE(*CHAR) LEN(10)
/***********************************************************/
/* Get initial library list from data area, add in the */
/* system libraries in the user potion of the library list */
/* and change the library list via QCMDEXEC */
/***********************************************************/
MONMSG MSGID(CPF0000)
RTVDTAARA DTAARA(&USRLIB/INLIBL) RTNVAR(&LIBL)
CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *CAT &LIBL +
*BCAT 'QGPL QTEMP' *TCAT ')')
CALL PGM(QCMDEXC) PARM(&CMD &LEN)
CALL PGM(SYS664) PARM('SYS664')
/***********************************************************/
/* Get user's language library and add to top of library */
/* list */
/***********************************************************/
CALL PGM(SYS098B) PARM(&RTPARM &USER &LANG)
MONMSG MSGID(CPF0000)
IF COND(&LANG *NE ' ') THEN(DO)
RTVDTAARA DTAARA(SSASYS2 (1 7)) RTNVAR(&NLVMASK)
CHGVAR VAR(&LANGLIB) VALUE(&NLVMASK *TCAT &LANG)
RMVLIBLE LIB(&LANGLIB)
MONMSG MSGID(CPF0000)
RTVDTAARA DTAARA(SSASYS (170 10)) RTNVAR(&BPCSF)
ADDLIBLE LIB(&LANGLIB) POSITION(*BEFORE &BPCSF)
MONMSG MSGID(CPF0000)
ENDDO
CALL PGM(SFC990B) PARM(&RTPARM &W7PLST &W7SLCT)
CALL PGM(SFC973B) PARM(&RTPARM)
CALL PGM(ORD990B) PARM(&RTPARM)
CALL PGM(ORD991B) PARM(&RTPARM)
CALL PGM(SYS990B) PARM(&RTPARM)
CALL PGM(SYS991B) PARM(&RTPARM)
CALL PGM(INV971B) PARM(&RTPARM)
CALL PGM(INV972B) PARM(&RTPARM)
CALL PGM(ACR970B) PARM(&RTPARM)
CALL PGM(ORD992B) PARM(&RTPARM)
CALL PGM(INV970B) PARM(&RTPARM)
RCLRSC
ENDPGM
-----Original Message-----
From: bpcs-l-bounces+sean.mcgovern=emea.tycohealthcare.com@xxxxxxxxxxxx
[mailto:bpcs-l-bounces+sean.mcgovern=emea.tycohealthcare.com@xxxxxxxxxxxx] On
Behalf Of kobie.jooste@xxxxxxxxxxxx
Sent: 16 February 2007 10:04
To: SSA's BPCS ERP System
Subject: [BPCS-L] BPCS V8.2.01 - Automate System Reorganization.
Pls. assist if possible.
From time to time we need to run the clean-up on the systems due to
communication problems. This requires us to run SYS 59 (System Reorganization),
options 3: Reset On Order Allocated, 5: Clean-up ECL & ECS Files and 6:
Clean-up Allocations.
This works easy if you are signed-into the environment, but what if you want to
schedule it to run late at night and it's not called from within the
environment, what then?
I have created a CL Program to call that 3 programs, and with the JobScdE used
a Job Description used in that environment, as well as a UserProfile that has
authorization to that programs. I have not hardcoded the library where this
programs resides in as the JobDescription or UserProfile is supposed to pick it
up - Well, it doesn't.
Any suggestions would be appreciated.
Kobie Jooste
Clover Information Services
Tel: +2711 758 5387 / Mobile: +2783 798 3155 / Fax: +2711 758 5301
E-mail: kobie.jooste@xxxxxxxxxxxx
Web: www.clover.co.za
"Davide Roveda"
<davide.roveda@in
for.com> To
Sent by: "SSA's BPCS ERP System"
bpcs-l-bounces+ko <bpcs-l@xxxxxxxxxxxx>
bie.jooste=clover cc
.co.za@xxxxxxxxxx
om Subject
Re: [BPCS-L] Newbie needs printer
file help
2007/01/26 11:37
AM
Please respond to
SSA's BPCS ERP
System
<bpcs-l@midrange.
com>
Hello
As a suggestion, you can try to set up from SYS501C a your own simply procedure
to allow, based on User/Workstation + Program name the list of the needed
OVRPRTF OVRSCOPE(*JOB) + DLTOVR to set up your needs, and override the OVRPRTF
FILE(*PRTF)from SSASYS *DTAARA LX does.
Regards
Davide
-----Original Message-----
From: bpcs-l-bounces+davide.roveda=infor.com@xxxxxxxxxxxx
[mailto:bpcs-l-bounces+davide.roveda=infor.com@xxxxxxxxxxxx] On Behalf Of
Bonnie Lokenvitz
Sent: venerdì 26 gennaio 2007 3.31
To: bpcs-l@xxxxxxxxxxxx
Subject: [BPCS-L] Newbie needs printer file help
I am working in ERP LX (8.3). I have changed the packing list format
(OLM591O) to print portrait. Works great interactively when I do an override
printer file on the command line.
Where do I change the 'system' printer control so the batch print works?
Also, where do I indicate different printers for various warehouse users in
different states?
Thank you,
Bonnie Lokenvitz
Technology Consulting Inc
320.679.2599
--
This is the SSA's BPCS ERP System (BPCS-L) mailing list To post a message
email: BPCS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/bpcs-l
or email: BPCS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/bpcs-l.
Delivered-To: davide.roveda@xxxxxxxxx
--
This is the SSA's BPCS ERP System (BPCS-L) mailing list To post a message
email: BPCS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/bpcs-l
or email: BPCS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/bpcs-l.
Delivered-To: kobie.jooste@xxxxxxxxxxxx
--
This is the SSA's BPCS ERP System (BPCS-L) mailing list To post a message
email: BPCS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/bpcs-l
or email: BPCS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/bpcs-l.
Delivered-To: sean.mcgovern@xxxxxxxxxxxxxxxxxxxxxxx
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
