|
midrange.com
This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I think the 'official' way to start LEI activities, like you are trying to
do, is via the program LEIACT.
It is important that you do not do multiple calls to LEIACT at the same
time. What I do is use a data queue. You want to start an activity? You
put the activity name on the data queue.
Here is a sample RPGLE program:
/DEFINE HSpec
/COPY ROUTINES/QRPGLESRC,HSPEC
/UNDEFINE HSpec
***************************************************************************
* Program: EXCLEIACT. This program reads a data queue to determine
*
* which LEI activity to perform. *
* *
* Modification log: *
* 12/15/99 by R.Berendt, CCP Group Dekko Services, LLC *
* Created. *
* *
***************************************************************************
/DEFINE DSpec
D leiact PR EXTPGM('QNOTESLEI/LEIACT')
D activity CONST LIKE(DataRead)
D ErrProc PR
D ErrCode CONST like(ExceptionId)
D ErrData CONST like(ExceptData)
/COPY ROUTINES/QRPGLESRC,SRVPGMCPY
D DataQue S 10A
D DataQueLib S 10A
D DataLen S 5P 0
D DataRead S 250A
D WaitTime S 5P 0
D MsgLen S 9B 0
D LeiCmd S LIKE(DataRead)
/UNDEFINE DSpec
C dow ExceptionId=*blanks and
C %subst(DataRead:1:DataLen)<>'*SHUTDOWN'
C eval ERRC0100P=ERRC0100
C callp qrcvdtaq('EXCLEIACT':'*LIBL':DataLen:
C DataRead:-1:
C ' ':0:'':0:'':'*YES':200:
C ERRC0100P
C )
C eval ERRC0100=ERRC0100P
C if ExceptionId=*blanks
C if %subst(DataRead:1:DataLen)<>'*SHUTDOWN'
C eval LeiCmd=*loval
C eval LeiCmd=(apostrophe +
C %trim(%subst(DataRead:1:DataLen))+
C apostrophe)
C eval ERRC0100P=ERRC0100
C callp qmhsndpm(' ':' ':'Posting
'+%trim(LeiCmd):
C %len('Posting '
+%trim(LeiCmd)):
C '*COMP':'*':0:MsgKey:ERRC0100P)
C eval ERRC0100=ERRC0100P
C* callp leiact(LeiCmd)
C eval cmd='CALL QNOTESLEI/LEIACT ' +
C 'PARM(' +
C %trim(LeiCmd) +')'
C callp qcmdexc(cmd:%len(%trim(cmd)))
C eval ERRC0100P=ERRC0100
C callp qmhsndpm(' ':' ':'Posted
'+%trim(LeiCmd):
C %len('Posted '
+%trim(LeiCmd)):
C '*COMP':'*':0:MsgKey:ERRC0100P)
C eval ERRC0100=ERRC0100P
C EndIf
C else
C callp ErrProc(ExceptionId:ExceptData)
C EndIf
C EndDo
C seton LR
******************************
***** PROCEDURES *****
******************************
/eject
P ErrProc B
***** ErrProc - Procedure to handle errors from QRCVDTAQ call. .)
* - Input: 7 A Error messaga id
* ? A Error message data
D ErrProc PI
D ErrMsgId CONST like(ExceptionId)
D ErrMsgData CONST like(ExceptData)
D RtvMErr DS likeds(ERRC0100)
C* Retreive the message description.
C CLEAR RTVM0100
C eval RTM1BytesAvl=156
C eval RTM1LenMsgAvl=132
C eval RTM1LenHlpAvl=0
C reset RtvMErr
C callp qmhrtvm(RTM1Msg:132:'RTVM0100':
C ErrMsgId:'QCPFMSG *LIBL ':
C %trimr(ErrMsgData):
C %len(%trimr(ErrMsgData)):'*YES':
C '*NO':RtvMErr)
C* Send the message on.
C eval cmd='SNDMSGGRP GROUP(LEIACT) ' +
C 'MSGTXT(' +
C apostrophe +
C 'Error with LEI activity: ' +
C %trim(%subst(RTM1Msg:1:RTM1LenMsgRet)) +
C apostrophe + ')'
C callp qcmdexc(cmd:%len(%trim(cmd)))
P ErrProc E
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
DSmith@dap.com
Sent by: domino400-admin@midrange.com
07/23/2002 01:54 PM
Please respond to domino400
To: domino400@midrange.com
cc:
Fax to:
Subject: LEI jobs hanging
This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Everyone,
We use LEI Direct Transfer jobs to transfer data from AS/400 applications
to various Notes databases. We are having a problem with jobs starting
and then ending with only part of the data being sent. The LEI log only
lists a start time with no end time and number of records fetched. I look
at the Notes database and only some of the records came down. I have
tried moving the times when these jobs run and that has not helped. One
note, the job in question is actually submitted from a CLP program on
another AS/400 using RUNRMTCMD. The RUNRMTCMD calls leiact on the Notes
AS/400. If I run the direct transfer from LEI Administrator, it runs
fine. Any ideas?
Thanks,
Dave Smith
DAP Inc.
_______________________________________________
This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
To post a message email: DOMINO400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
or email: DOMINO400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/domino400.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
