Record Lock Problem

I'm having a problem trapping a record lock in a sub-procedure. Here is my
code:

        dow 1 = 1;
           chain(e) (sfitem:sfitwh) Itemblmc;
           if ib_fileStatus = 1218;
              reportLock(status:reply);
              select;
              when reply = 'R';
                 iter;
              when reply = 'C';
                 stkcnt = 2;
                 msgDta = 'Could not load Cartons Per Pallet.';
                 sendMessage();
                 unlock(e) Itemasa;
                 unlock(e) Mbb2cps0;
                 return *off;
              endsl;
           endif;
           leave;
        enddo;


This code is in a sub-procedure.

Here is the Fspec and D spec:

     FItembl    UF   E           K Disk    prefix(ib_) infds(ib_status)

     Dib_status        DS
     D ib_fileStatus          11     15s 0

This is in the mainline code. I've tried Monitor, On-Error 1218.  I've
tried %error and now the INFDS. None of the techniques trap the record
lock.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com