× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.