Peter,
Calling the CL is done by changing stored procedure MXACS_PSZIME0C_1 to
call our CL rather than PSZIME0C. Here are the instructions we follow:
1. Copy the shell to the correct Mapics program library;
CRTDUPOBJ OBJ(PSZIME0C@@) FROMLIB(DEVELOPMENTLIB) OBJTYPE(*PGM)
TOLIB(AMALIBx)
[PSZIME0C@@ is the shell CL program that we created]
2. Create code to replace the stored procedure;
Create a text file in DEVELOPMENTLIB/QTXTSRC called PSZIME0C_x.
If the member already exists then you can skip to step 3, otherwise
paste the following code into the empty member;
DROP SPECIFIC PROCEDURE AMALIBx/MXACS_PSZIME0C_1;
CREATE PROCEDURE AMALIBx/MXACS_PSZIME0C_1
(IN CHARACTER(2),
OUT CHARACTER(10),
OUT CHARACTER(80),
OUT CHARACTER(7))
RESULT SETS 0
EXTERNAL NAME PSZIME0C@@
LANGUAGE CL
PARAMETER STYLE GENERAL;
3. Replace the stored procedure;
RUNSQLSTM SRCFILE(DEVELOPMENTLIB/QTXTSRC) SRCMBR(PSZIME0C_x)
NAMING(*SYS)
Done!
------------------------------
message: 7
date: Tue, 20 Nov 2007 11:05:07 -0500
from: Peter Vidal <Peter_Vidal@xxxxxxxx>
subject: Re: [MAPICS-L] Locking the Browser
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
