I only put the dump in so I could see the variables and try to debug.
How do I use Service Entry Points?
Even without the dump, same problem.
Craig
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Friday, July 18, 2008 2:41 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: RPG watch program
Does "Dump" qualify as a "User Exit Program Error"?
Ever play with "Service Entry Points" to debug stuff?
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
"Craig Jacobsen" <CraigJacobsen@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/18/2008 02:22 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RPG watch program
I'm trying to start a watch for CPI1127 (All jobs at work station
QPADEVxxxx
ended)
We changed the timeout value from 180 minutes to 30 minutes (thanks
auditors).
Every time it runs, the watch is cancelled with:
Watch session WSTIMEOUT issued by 003978/xxxxxxxx/QPADEV0002 at
07/18/08 12:15:16 has been ended. Reason code: X'04'
04 - User Exit Program error
It is ending the watch and I am not getting the data I need (user/device).
I had this as SQLRPLE but trimmed it to barebones and it still is not
working.
Any help would be appreciated.
TIA,
Craig
Here is the RPG program:
H Option(*SrcStmt:*NoDebugIO) Debug(*Yes)
D WchCPI1127 PR ExtPgm('WCHCPI1127')
D Type 10 Const
D Session 10 Const
D Error 10
D Data 1000
D WchCPI1127 PI
D Type 10 Const
D Session 10 Const
D Error 10
D Data 1000
D DataDS ds 1000
D MsgId 5 11
D MsgF 391 400
D OffSet 441 444i 0
D DataAll 1 1000
D MsgDtaPtr s *
D MsgDta ds 75 Based(MsgDtaPtr)
D UsrPrf 11 20
D Device 21 30
/Free
*InLr = *On;
DataDs = Data;
If Type <> '*MSGID' AND MsgId <> 'CPI1127';
Return;
EndIf;
MsgDtaPtr = %Addr(Data) + OffSet;
Dump;
Return;
/End-Free
midrange.com
