RE: RPG watch program

Rob - as far as I know, you DO have to name the user whose job you will be debugging - no way to use SEP breakpoints for several or all users. Have you found anything different here?

BTW, I tend to use the JT400 Graphical Debugger - probably the same code base as the one in WDSC - and it is very cool!

Vern

-------------- Original message --------------
From: rob@xxxxxxxxx

In summary, Service Entry Points allow you to set breakpoints and stuff
and no matter what job the program is called from it automatically appears
on the session that set them. No longer do you have to mess with trying
to capture the job and use STRSRVJOB. It can be done from STRDBG via the
sbreak command, but it's MUCH better in WDSC.

I opened up two 5250 sessions. At one session I did the STRDBG (no
STRSRVJOB or anything) then I used the sbreak command at line 10. At
another session I called the program. Program automatically appeared at
the first session.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Craig Jacobsen"
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/18/2008 03:20 PM
Please respond to
RPG programming on the AS400 / iSeries


To
"'RPG programming on the AS400 / iSeries'"
cc

Subject
RE: RPG watch program






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"
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/18/2008 02:22 PM
Please respond to
RPG programming on the AS400 / iSeries


To
"'RPG programming on the AS400 / iSeries'"
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

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.