Thank you Phil for this information.
Now, how I am supposed to call the CLP?
Peter Vidal
MAPICS IT Technical Support Team / SR System Analyst
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
Tel:727-849-9999, x2414 Fax:727-815-3120
http://www.pall.com
"I don't know what tomorrow holds, but I know who holds tomorrow."
Anonymous
<Phil.Brewer@xxxxxxxxxxxxxxxxxxxxxxxxx>
Sent by: mapics-l-bounces@xxxxxxxxxxxx
08/02/2007 04:25 AM
Please respond to
MAPICS ERP System Discussion <mapics-l@xxxxxxxxxxxx>
To
<mapics-l@xxxxxxxxxxxx>
cc
Subject
Re: [MAPICS-L] Locking the Browser
Peter,
Program PSZIME0C initiates Mapics from browser (at R6, at least). We
have created a shell program around PSZIME0C that allows us to control
access to a Mapics environment from browser. The source looks something
like:
PGM PARM(&ENV &UNK &MSG &ID)
DCL VAR(&ENV) TYPE(*CHAR) LEN(2) /* Environment
DCL VAR(&UNK) TYPE(*CHAR) LEN(10) /* Unknown
DCL VAR(&MSG) TYPE(*CHAR) LEN(80) /* Message text
DCL VAR(&ID) TYPE(*CHAR) LEN(7) /* Message id
DCL VAR(&STS) TYPE(*CHAR) LEN(1) /* Environment available?
/* Get environment status */
CALL PGM(SOMEPGM) PARM(&ENV &STS)
/* If environment is unlocked then shell Mapics security
function */
IF COND(&STS *EQ 'Y') THEN(DO)
CALL PGM(PSZIME0C) PARM(&ENV &UNK &MSG &ID)
ENDDO
/* If environment is locked then send message to user and exit
*/
ELSE (DO)
CHGVAR VAR(&UNK) VALUE(' ')
CHGVAR VAR(&MSG) VALUE('Environment ' *CAT &ENV *CAT +
' is currently unavailable. Please try +
again later.')
CHGVAR VAR(&ID) VALUE('BIB0000')
ENDDO
ENDPGM
Phil
message: 2
date: Tue, 31 Jul 2007 14:15:36 -0400
from: Peter Vidal <Peter_Vidal@xxxxxxxx>
subject: [MAPICS-L] Locking the Browser
List:
How I "lock" the browser to be available for use? I want the user to
see that the environment is in dedicated mode and I do not want him to
have
any access at all. I know I found/read somewhere that there is a data
area that controls this for the browser. In other words, if there is a
value there (a program or something) the system is under a dedicated
mode.
Any ideas?
TIA
Peter Vidal
MAPICS IT Technical Support Team / SR System Analyst 10540 Ridge Rd.,
Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com
"Learning is not compulsory... neither is survival."
W. Edwards Deming (1900-1993)
------------------------------------------------------------------------
--------
This email message and its content are confidential and may contain
proprietary or privileged information. If you are not the intended
recipient, please notify the sender immediately, and do not read, copy,
disclose, distribute or use the information in any way. Any views
expressed in this message are those of the individual sender, except where
the message states otherwise. Barloworld Scientific Ltd. and its
subsidiaries ("the company") does not accept responsibility for such views
and opinions and this message should not be read as representing the views
and opinions of the company. No liability shall attach to the company,
except where the message states otherwise and the sender is authorised to
make such a statement.
This e-mail has been swept for the presence of computer viruses, but no
warranty is given that this e-mail and any attachments are virus free. You
should undertake your own virus checking. The right to monitor e-mail
communications through our networks is reserved by us.
Registered office: Barloworld Scientific Ltd., Statesman House, Stafferton
Way, Maidenhead, Berkshire, SL6 1AD. Registered in England & Wales no.
1631004
midrange.com
