|
midrange.com
Jim,
You have a couple of options. You can call a stored procedure from
LSX LC and that stored proceedure could be an RPG program or use a Set of
RPG wrappers to hook your current RPG programs to the Lotus HiTest APIs.
These wrappers are provided by Triangle, information about there product
can be found at
http://go-achiever.interliant.com/goachiever/tsp.nsf/framesetter/JNIN4BYBK8MEVS4TXGVR
Below is a sample LS agent that calls an RPG proc.
You will need to create the stored proc for the RPG program, call it
RPGQRY.
Sub Initialize
Dim Con As New LCConnection ("db2")
Dim Parms As New LCFieldList
Dim Result As New LCFieldList
Dim Parm As LCField
' set the connection property to the stored procedure name
Con.Procedure = "DULIBDST.LN0020C"
' now connect
Con.Connect
' append the new field to the fieldlist
Set Parm = Parms.Append ("PARM", LCTYPE_TEXT)
' set the field to a value - in this case it is
' the one parameter needed for the stored procedure
Parm.text = "rpgqry"
' using the fieldlist containing the field with the
' stored procedure parameter, call the stored procedure
If (Con.Call(Parms, 1, Result) = 0) Then
Print "Here are your results"
Else
Print"No data found"
End If
End Sub
RPG Source.
*-------------------------------------------------------------*
* *
* RPG PROGRAM: RPGARY *
* *
* PURPOSE: THIS RPG PROGRAM IS CALLED BY AN ODBC STORED *
* PROCEDURE. IT READS DATA INTO AN ARRAY AND *
* RETURNS THE RESULTS BY USING THE SET RESULT *
* SETS SQL FUNCTION *
* *
*-------------------------------------------------------------*
* FILE DESCRIPTION SPECIFICATIONS *
*-------------------------------------------------------------*
FPERF IF E DISK
*-------------------------------------------------------------*
* INPUT SPECIFICATIONS *
*-------------------------------------------------------------*
IPERFE E DSPERF
IARR DS 20
I 01 105 VAR1
ILCLVAR DS
I B 01 040L#
*-------------------------------------------------------------*
C* ** START OF PROGRAM ** *
*-------------------------------------------------------------*
C OPEN PERF
C Z-ADD0 L#
C LOOP TAG
C READ PERF 9999
C ADD 1 L#
C L# OCUR ARR
C MOVE PERFE ARR
C L# COMP 20 99 99
C N99 GOTO LOOP
*-------------------------------------------------------------*
*** EXECUTE SQL STATEMENT ***
C/EXEC SQL SET RESULT SETS ARRAY :ARR FOR :L# ROWS
C/END-EXEC
*-------------------------------------------------------------*
C CLOSEPERF
C RETRN
Walter Scanlan
Advisory Software Engineer
Domino For AS/400 Team Leader
Phone (507)286-6088
Fax (507)286-5028
Pager (507)292-2985
Internet WSCANLAN@US.IBM.COM
JWGrant@pdpgroupinc.com@midrange.com on 02/27/2001 01:47:27 PM
Please respond to DOMINO400@midrange.com
Sent by: owner-domino400@midrange.com
To: DOMINO400@midrange.com
cc:
Subject: Re: Domino and MQSeries LSX
Walter:
The real issue that we are having is that we have an existing (Synon/2E RPG
based) line of business (LOB) application and the beginnings of a Domino
based Web (front end) to this application. We do not have any problem
accessing the DB2/400 database (through the LC LSX connector), However, we
find ourselves duplicating the existing business logic in the Domino
application. We do not want to do this. We would much rather call existing
(line of business API's) to perform functions in the Web front-end. (i.e. a
user on the web will enter certain account information and request to
perform some function within the back-end LOB application, we then would
pass confirmation that the event/action was performed successfully back to
the Web front-end)
We are able to call RPG programs and pass parameters to the back-end LOB
application, but because the front-end is web based we are unable to
receive parameters/data back from these calls.
Questions:
How can we achieve our goal of not duplicating the entire application in
Domino? Our original thought was MQSeries, Is MQSeries a viable
alternative?
How will Domino interact with MQSeries based applications if the support
for the MQSeries LSX will not be updated?
What about LEI? We have looked at DECS but the back-end database is rather
large (Some files have 30 Million plus records) we don't want to duplicate
this much data for a Web based front-end.
Thanks in Advance
Jim Grant
Sr.VP,CIO
"You will never find time for anything. If you want time, you
must make it." - Charles Buxton
"Walter Scanlan"
<wscanlan@us.ibm.c To:
DOMINO400@midrange.com
om> cc:
Sent by: Subject: Re: Domino and
MQSeries LSX
owner-domino400@mi
drange.com
02/27/2001 01:41
PM
Please respond to
DOMINO400
Jim,
The 1.32 and 1.33 versions are for non-as400 platforms. I am not
aware of a replacement product for MQseries Extensions for LSX.
Walter Scanlan
Advisory Software Engineer
Domino For AS/400 Team Leader
Phone (507)286-6088
Fax (507)286-5028
Pager (507)292-2985
Internet WSCANLAN@US.IBM.COM
JWGrant@pdpgroupinc.com@midrange.com on 02/27/2001 12:02:06 PM
Please respond to DOMINO400@midrange.com
Sent by: owner-domino400@midrange.com
To: DOMINO400@midrange.com
cc:
Subject: Re: Domino and MQSeries LSX
Walter:
Thanks for the information.
Am I correct in assuming that the MQSeries LSX will not be supported in
the future on the AS/400?
What are versions 1.32 and 1.33 that you refer to? (are they for non-as/400
based domino platforms?)
Are there other domino integration methods for use with MQSeries?
Thanks
Jim Grant
"Walter Scanlan"
<wscanlan@us.ibm.c To:
DOMINO400@midrange.com
om> cc:
Sent by: Subject: Re: Domino and
MQSeries LSX
owner-domino400@mi
drange.com
02/26/2001 09:10
PM
Please respond to
DOMINO400
The MQSeries extentions for Domino reach end of life December 31,2001.
This product was designed for Domino R4.6. The shipping version is 1.31
which means the fixes available in 1.32 and 1.33 are not available on this
platform.
Having said that the product is easy to work with if you have a great deal
of experience with LSX and MQSeries.
Walter Scanlan
Advisory Software Engineer
Domino For AS/400 Team Leader
Phone (507)286-6088
Fax (507)286-5028
Pager (507)292-2985
Internet WSCANLAN@US.IBM.COM
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---
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.
