Of course, if you're calling DLTLIB from one subprocedure and ADDLIBLE from
another, and trapping the error in a high-level subproc, that could be your
issue.
Actually, this_ is_ the case. I have a doCmd that executes DLTLIB which IS
causing a problem, but the ADDLIBLE is wrapped by another RPG ILE service
program at another level and that IS NOT causing a problem (i.e. I call it
like so: OBJ_ADDLIBLE('MYLIB');)
So are you saying that because my ADDLIBLE command is wrapped by
OBJ_ADDLIBLE() that it has the ability to catch it better? I always
considered an ON-ERROR clause to be a "stopping point" for errors (ALL
errors) percolating up the call stack. Is that not so when the error is
trying to be caught in the same module the error is thrown?
monitor;
doCmd('DLTLIB LIB(MYLIB)'); // error not caught
on-error;
endmon;
...
monitor;
OBJ_ADDLIBLE('MYLIB'); // error IS caught
on-error;
endmon;
...
P doCmd B
D doCmd PI
D pCmd 256A value
D length S 15 5
D QCMDEXC PR extpgm('QCMDEXC')
D pCmd const like(pCmd)
D pLength const like(length)
/Free
length = %Len(%Trimr(pCmd));
QCMDEXC(pCmd:length);
return;
/End-Free
P E
Thanks,
Aaron Bartell
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [
mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Cozzi
Sent: Tuesday, May 08, 2007 9:07 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: ON-ERROR catches CPF2103 but not CPF2110
Of course, if you're calling DLTLIB from one subprocedure and ADDLIBLE from
another, and trapping the error in a high-level subproc, that could be your
issue.
-Bob Cozzi
www.i5PodCast.com
Ask your manager to watch i5 TV
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [
mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Cozzi
Sent: Tuesday, May 08, 2007 8:57 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: ON-ERROR catches CPF2103 but not CPF2110
Aaron,
Both messages are sent as ESCAPE messages, and both are severity 40 so it
shouldn't matter which one is issued. It may be that a second message is
also being issued in one case, but not the other and that second message is
triggering the on-error.
Are you using QCMDEXC or system() to perform the CL commands?
If you're using QCMDEXC check to see if you have CALLP(e) on one of the
calls but not the other. The (E) extender doesn't play nice with MONITOR.
-Bob Cozzi
www.i5PodCast.com
Ask your manager to watch i5 TV
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [
mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of albartell
Sent: Tuesday, May 08, 2007 8:48 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: ON-ERROR catches CPF2103 but not CPF2110
I am doing some RPG unit testing which entails creating/deleting libraries
on the fly from RPG. If I execute DLTLIB LIB(MYLIB) and MYLIB doesn't
exists then CPF2110 is thrown, but the ON-ERROR clause I have wrapping the
DLTLIB call doesn't catch the error and instead immediately ends the
program. On the other hand if I do an ADDLIBLE LIB(MYLIB) when MYLIB
_doesn't_ exist a CPF2103 is thrown and the ON-ERROR clause _does_ catch the
error.
Any thoughts?
Aaron Bartell
http://mowyourlawn.com
--
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.
midrange.com
