RE: ON-ERROR catches CPF2103 but not CPF2110

["albartell" <albartell@xxxxxxxxx>]

Interesting.

Seems that my problem is relative to the WDSC debugger as it works correctly
when I use STRDBG from green screen.

After upgrading to WDSC 7.0 I am needing PTF SI27072 for the debugger (per
Verify Connection).  I though I could get by without it :-(  I will load the
PTF and see what happens (I actually tried loading this PTF last week, but
it didn't seem to load).

Thanks,
Aaron Bartell
http://mowyourlawn.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, May 08, 2007 9:18 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: ON-ERROR catches CPF2103 but not CPF2110

You're doing something wrong.

      /copy routines/qapisrc,qcmdexc
     d dsplyVar        s             52a
      /free
       *inlr=*on;

       monitor;
       cmd='addlible myxlib';
       callp qcmdexc(cmd:%len(cmd));
       on-error;
         dsplyVar=cmd;
         dsply dsplyVar;
       endmon;

       monitor;
       cmd='dltlib myxlib';
       callp qcmdexc(cmd:%len(cmd));
       on-error;
         dsplyVar=cmd;
         dsply dsplyVar;
       endmon;

      /end-free 


> call aa
  Library MYXLIB not found.  (CPF2110)
  DSPLY  addlible myxlib
  Library MYXLIB not found.  (CPF2110)
  DSPLY  dltlib myxlib
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"albartell" <albartell@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/08/2007 09:49 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

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