× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2014

Debugging a UDF on V6.1


Sometimes when I am working with service programs I accidentally run into
this kind of problem and it's because of the way UPDSRVPGM works.

The updsrvpgm doc is here:
http://pic.dhe.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Fcl%2Fupdsrvpgm.htm

The important part is this paragraph:
Other jobs running the bound service program can run while the service
program is being updated with this command. The currently running service
program is moved to library QRPLOBJ and an updated version of the service
program will be inserted into the library of the service program. Current
activations of the service program will continue running using the version
of the service program in the QRPLOBJ library


A service program get's activated only once for the activation group....the
activation group can (and usually does) persist beyond a single SQL
statement.

Just by looking at your question, I think your code is still running the
pre-updated (for debug or fix) service program, You could take a trace,
or possibly look at messages in the job log of the server job to confirm
this...or you could restart that job and see if it helps.



Nick Lawrence
DB2 for IBM i


Yesterday we pioneered for today; today, we are pioneering for tomorrow.
- Thomas J. Watson, Sr.






From: rpg400-l-request@xxxxxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx,
Date: 02/28/2014 02:17 PM
Subject: RPG400-L Digest, Vol 13, Issue 100
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


*** NOTE: When replying to this digest message, PLEASE remove all text
unrelated to your reply and change the subject line so it is meaningful.

Today's Topics:

1. RE: Debugging a UDF on V6.1 (Walter Bellisio)
2. Re: Debugging a UDF on V6.1 (Peter Dow)
3. RE: Debugging a UDF on V6.1 (Walter Bellisio)


----------------------------------------------------------------------

message: 1
date: Fri, 28 Feb 2014 19:44:55 +0000
from: Walter Bellisio <wbellisio@xxxxxxxxxxx>
subject: RE: Debugging a UDF on V6.1

Alan, No others, just the one in QGPL. Also, thank you for the walk
through. I wish we had an answer.

Walter Bellisio
Sales and Distribution Developer
(631) 951 - 5375

Bimbo Bakeries USA
55?Paradise Lane
Bay Shore, NY? 11706



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Campin
Sent: Friday, February 28, 2014 2:42 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter, try doing s WRKOBJ OBJ(*ALLUSR/XVIDAT) OBJTYPE(*SRVPGM)

See if there are multiple copies of XVIDAT around.


On Fri, Feb 28, 2014 at 11:55 AM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

Walter, give me a call and I will walk you through it. 801-505-2707


On Fri, Feb 28, 2014 at 11:49 AM, Walter Bellisio
<wbellisio@xxxxxxxxxxx>wrote:

Hi Vernon,

We're on V6.1. I'm attempting to debug the iDate UDF that Alan
Campin has so kindly shared. I'm just running a simple select
statement from a STRSQL. I've attempted these two scenarios:

I've tried it with BREAK as follows:

- Session 1: STRSRVJOB JOB(123456/MYUSERID/SESSION2)
- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: BREAK on the first statement of each procedure in both
modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Dates are shown edited, but none of the breakpoints occur.


I also tried it with SBREAK as Alan had suggested as follows and also
no
luck:

- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: "sbreak LINE# user MYUSERID" on the first statement of
each procedure in both modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Alan states: " It will break on your previous statement and tell you
the STRSRVJOB command to use on another session. Then issue STRDBG in
that session."

It did not break. I also tried substituting sbreak LINE# user
MYUSERID in the first scenario, and no luck.

Walter


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vernon Hamberg
Sent: Thursday, February 27, 2014 7:22 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter - if you're willing, tell us just what steps you took? What
release of the OS are you on? SBREAK would get you what you want, but
it is a relatively recent thing - v5r3 or v5r4.

If you used SBREAK, you have to set the user you want - that is often
QUSER for server jobs - so which user did you specify?

I forget now about UDFs, but I think SQL could be doing things in a
server job, not your own - again, you'd have a hard time figuring
which job to debug unless you can use SBREAK.

Hope to help!
Vern

On 2/27/2014 3:01 PM, Walter Bellisio wrote:
Thanks for all of your responses. Still can't get a breakpoint to
come
up. I know the function is working because it is converting the
dates as described. In response to Peter, the service program only
exists in QGPL, and the CREATE FUNCTION qualifies the service
program. Was there a PTF that may have been needed?

Walter



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, February 27, 2014 1:56 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

I should clarify that more. In one session just do a STRDBG and
then
issue a SBREAK for the line you want to break and your user id. Then
in another session, run your SQL. It will break on your previous
statement and tell you the STRSRVJOB command to use on another
session. Then issue STRDBG in that session.


On Thu, Feb 27, 2014 at 11:46 AM, Walter Bellisio <
wbellisio@xxxxxxxxxxx>wrote:

I'm attempting to debug a User Defined Function that uses a
service program to do the work on a V6.1 release. This is the
iDate source downloaded from A. Campin, with the modules, service
program and functions created properly. STRSRVJOB and STRDBG are
done on one session, and a simple STRSQL with a select statement
that uses the UDF is done on the other session that the STRSRVJOB
points to. A break point was set on the first statement of every
procedure in both modules and I can't get a module to stop at any of
the break points.
The RPGLE modules of the service program were also compiled with
DBGVIEW(*ALL) and that did not work as well. Has anyone
encountered a
similar problem?

Walter
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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.



------------------------------

message: 2
date: Fri, 28 Feb 2014 12:04:45 -0800
from: Peter Dow <petercdow@xxxxxxxxx>
subject: Re: Debugging a UDF on V6.1

Hi Walter,

A little more information might help:

STRSQL

select substr(SPECIFIC_SCHEMA,1,20) slib,
substr(SPECIFIC_NAME,1,20) sname,
substr(ROUTINE_SCHEMA,1,20) rlib,
substr(ROUTINE_NAME,1,20) rname,
EXTERNAL_NAME
from QSYS2/SYSFUNCS
where lower(ROUTINE_NAME) = 'idate'

Or just leave off the WHERE clause and take a look at all the functions
on your system. If you see idate in there, and the EXTERNAL_NAME is
correct, expand the SELECT to show all fields, i.e. SELECT * FROM
QSYS2/SYSFUNCS and look at some of the other information, like the
PARAMETER_STYLE and so on to make sure it matches what you expect; or
what Alan says it should show.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>

/
On 2/28/2014 11:44 AM, Walter Bellisio wrote:
Alan, No others, just the one in QGPL. Also, thank you for the walk
through. I wish we had an answer.

Walter Bellisio
Sales and Distribution Developer
(631) 951 - 5375

Bimbo Bakeries USA
55 Paradise Lane
Bay Shore, NY 11706



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx
] On Behalf Of Alan Campin
Sent: Friday, February 28, 2014 2:42 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter, try doing s WRKOBJ OBJ(*ALLUSR/XVIDAT) OBJTYPE(*SRVPGM)

See if there are multiple copies of XVIDAT around.


On Fri, Feb 28, 2014 at 11:55 AM, Alan Campin <alan0307d@xxxxxxxxx>
wrote:

Walter, give me a call and I will walk you through it. 801-505-2707


On Fri, Feb 28, 2014 at 11:49 AM, Walter Bellisio
<wbellisio@xxxxxxxxxxx>wrote:

Hi Vernon,

We're on V6.1. I'm attempting to debug the iDate UDF that Alan
Campin has so kindly shared. I'm just running a simple select
statement from a STRSQL. I've attempted these two scenarios:

I've tried it with BREAK as follows:

- Session 1: STRSRVJOB JOB(123456/MYUSERID/SESSION2)
- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: BREAK on the first statement of each procedure in both
modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Dates are shown edited, but none of the breakpoints occur.


I also tried it with SBREAK as Alan had suggested as follows and also
no
luck:

- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: "sbreak LINE# user MYUSERID" on the first statement of
each procedure in both modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Alan states: " It will break on your previous statement and tell you
the STRSRVJOB command to use on another session. Then issue STRDBG in
that session."

It did not break. I also tried substituting sbreak LINE# user
MYUSERID in the first scenario, and no luck.

Walter


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vernon Hamberg
Sent: Thursday, February 27, 2014 7:22 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter - if you're willing, tell us just what steps you took? What
release of the OS are you on? SBREAK would get you what you want, but
it is a relatively recent thing - v5r3 or v5r4.

If you used SBREAK, you have to set the user you want - that is often
QUSER for server jobs - so which user did you specify?

I forget now about UDFs, but I think SQL could be doing things in a
server job, not your own - again, you'd have a hard time figuring
which job to debug unless you can use SBREAK.

Hope to help!
Vern

On 2/27/2014 3:01 PM, Walter Bellisio wrote:
Thanks for all of your responses. Still can't get a breakpoint to
come
up. I know the function is working because it is converting the
dates as described. In response to Peter, the service program only
exists in QGPL, and the CREATE FUNCTION qualifies the service
program. Was there a PTF that may have been needed?
Walter



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, February 27, 2014 1:56 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

I should clarify that more. In one session just do a STRDBG and
then
issue a SBREAK for the line you want to break and your user id. Then
in another session, run your SQL. It will break on your previous
statement and tell you the STRSRVJOB command to use on another
session. Then issue STRDBG in that session.

On Thu, Feb 27, 2014 at 11:46 AM, Walter Bellisio <
wbellisio@xxxxxxxxxxx>wrote:
I'm attempting to debug a User Defined Function that uses a
service program to do the work on a V6.1 release. This is the
iDate source downloaded from A. Campin, with the modules, service
program and functions created properly. STRSRVJOB and STRDBG are
done on one session, and a simple STRSQL with a select statement
that uses the UDF is done on the other session that the STRSRVJOB
points to. A break point was set on the first statement of every
procedure in both modules and I can't get a module to stop at any of
the break points.
The RPGLE modules of the service program were also compiled with
DBGVIEW(*ALL) and that did not work as well. Has anyone
encountered a
similar problem?
Walter
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 email is free from viruses and malware because avast! Antivirus
protection is active.
http://www.avast.com


------------------------------

message: 3
date: Fri, 28 Feb 2014 20:16:02 +0000
from: Walter Bellisio <wbellisio@xxxxxxxxxxx>
subject: RE: Debugging a UDF on V6.1

Hi Peter,

These are the results ...

SLIB SNAME RLIB RNAME
EXTERNAL_NAME
QGPL IDATE QGPL IDATE
QGPL/XVIDAT(IDAT_PACKED_DEFAULT)
QGPL IDATE00001 QGPL IDATE
QGPL/XVIDAT(IDAT_CHARACTER_DEFAULT)
QGPL IDATE00002 QGPL IDATE
QGPL/XVIDAT(IDAT_INTEGER_DEFAULT)
QGPL IDATE00003 QGPL IDATE
QGPL/XVIDAT(IDAT_DATE_DEFAULT)
QGPL IDATE00004 QGPL IDATE
QGPL/XVIDAT(IDAT_PACKED)
QGPL IDATE00005 QGPL IDATE
QGPL/XVIDAT(IDAT_CHARACTER)
QGPL IDATE00006 QGPL IDATE
QGPL/XVIDAT(IDAT_INTEGER)
QGPL IDATE00007 QGPL IDATE
QGPL/XVIDAT(IDAT_DATE)


Walter


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Dow
Sent: Friday, February 28, 2014 3:05 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Debugging a UDF on V6.1

Hi Walter,

A little more information might help:

STRSQL

select substr(SPECIFIC_SCHEMA,1,20) slib,
substr(SPECIFIC_NAME,1,20) sname,
substr(ROUTINE_SCHEMA,1,20) rlib,
substr(ROUTINE_NAME,1,20) rname,
EXTERNAL_NAME
from QSYS2/SYSFUNCS
where lower(ROUTINE_NAME) = 'idate'

Or just leave off the WHERE clause and take a look at all the functions on
your system. If you see idate in there, and the EXTERNAL_NAME is correct,
expand the SELECT to show all fields, i.e. SELECT * FROM QSYS2/SYSFUNCS and
look at some of the other information, like the PARAMETER_STYLE and so on
to make sure it matches what you expect; or what Alan says it should show.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx> pdow@xxxxxxxxxxxxxx <
mailto:pdow@xxxxxxxxxxxxxx>

/
On 2/28/2014 11:44 AM, Walter Bellisio wrote:
Alan, No others, just the one in QGPL. Also, thank you for the walk
through. I wish we had an answer.

Walter Bellisio
Sales and Distribution Developer
(631) 951 - 5375

Bimbo Bakeries USA
55 Paradise Lane
Bay Shore, NY 11706



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Friday, February 28, 2014 2:42 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter, try doing s WRKOBJ OBJ(*ALLUSR/XVIDAT) OBJTYPE(*SRVPGM)

See if there are multiple copies of XVIDAT around.


On Fri, Feb 28, 2014 at 11:55 AM, Alan Campin <alan0307d@xxxxxxxxx>
wrote:

Walter, give me a call and I will walk you through it. 801-505-2707


On Fri, Feb 28, 2014 at 11:49 AM, Walter Bellisio
<wbellisio@xxxxxxxxxxx>wrote:

Hi Vernon,

We're on V6.1. I'm attempting to debug the iDate UDF that Alan
Campin has so kindly shared. I'm just running a simple select
statement from a STRSQL. I've attempted these two scenarios:

I've tried it with BREAK as follows:

- Session 1: STRSRVJOB JOB(123456/MYUSERID/SESSION2)
- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: BREAK on the first statement of each procedure in both
modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Dates are shown edited, but none of the breakpoints occur.


I also tried it with SBREAK as Alan had suggested as follows and
also no
luck:

- Session 1: STRDBG UPDPROD(*YES) SRVPGM(QGPL/XVIDAT)
- Session 1: "sbreak LINE# user MYUSERID" on the first statement of
each procedure in both modules XVIDAT_M01 and XVIDAT_M02.
- Session 2: STRSQL
- Session 2: select idate(someDateField) from someTable

Alan states: " It will break on your previous statement and tell you
the STRSRVJOB command to use on another session. Then issue STRDBG
in that session."

It did not break. I also tried substituting sbreak LINE# user
MYUSERID in the first scenario, and no luck.

Walter


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vernon Hamberg
Sent: Thursday, February 27, 2014 7:22 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

Walter - if you're willing, tell us just what steps you took? What
release of the OS are you on? SBREAK would get you what you want,
but it is a relatively recent thing - v5r3 or v5r4.

If you used SBREAK, you have to set the user you want - that is
often QUSER for server jobs - so which user did you specify?

I forget now about UDFs, but I think SQL could be doing things in a
server job, not your own - again, you'd have a hard time figuring
which job to debug unless you can use SBREAK.

Hope to help!
Vern

On 2/27/2014 3:01 PM, Walter Bellisio wrote:
Thanks for all of your responses. Still can't get a breakpoint to
come
up. I know the function is working because it is converting the
dates as described. In response to Peter, the service program only
exists in QGPL, and the CREATE FUNCTION qualifies the service
program. Was there a PTF that may have been needed?
Walter



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, February 27, 2014 1:56 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Debugging a UDF on V6.1

I should clarify that more. In one session just do a STRDBG and
then
issue a SBREAK for the line you want to break and your user id. Then
in another session, run your SQL. It will break on your previous
statement and tell you the STRSRVJOB command to use on another
session. Then issue STRDBG in that session.

On Thu, Feb 27, 2014 at 11:46 AM, Walter Bellisio <
wbellisio@xxxxxxxxxxx>wrote:
I'm attempting to debug a User Defined Function that uses a
service program to do the work on a V6.1 release. This is the
iDate source downloaded from A. Campin, with the modules, service
program and functions created properly. STRSRVJOB and STRDBG are
done on one session, and a simple STRSQL with a select statement
that uses the UDF is done on the other session that the STRSRVJOB
points to. A break point was set on the first statement of every
procedure in both modules and I can't get a module to stop at any of
the break points.
The RPGLE modules of the service program were also compiled with
DBGVIEW(*ALL) and that did not work as well. Has anyone
encountered a
similar problem?
Walter
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 email is free from viruses and malware because avast! Antivirus
protection is active.
http://www.avast.com
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and iSeries) (RPG400-L)
digest 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.



End of RPG400-L Digest, Vol 13, Issue 100
*****************************************


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.