Re: Locking the Browser

Date: Wed, 21 Nov 2007 09:06:26 +0000> From: Phil.Brewer@xxxxxxxxxxxxxxxxxxxxxxxxx> To: mapics-l@xxxxxxxxxxxx> Subject: Re: [MAPICS-L] Locking the Browser> > > 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> > _______________________________________________> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list> To post a message email: MAPICS-L@xxxxxxxxxxxx> To subscribe, unsubscribe, or change list options,> visit: http://lists.midrange.com/mailman/listinfo/mapics-l> or email: MAPICS-L-request@xxxxxxxxxxxx> Before posting, please take a moment to review the archives> at http://archive.midrange.com/mapics-l.>