If you've already ruled out that the program in question does not have any
other DB's locked, then does the program call a subprogram which then issues
a lock to any DB?

Ray Shahan

"There is so much good in the worst of us,
and so much bad in the best of us, 
that it behooves none of us
to talk about the rest of us" 
                  --Robert Louis Stevenson?

> -----Original Message-----
> From: King, John [SMTP:[log in to unmask]]
> Sent: Monday, December 22, 2003 10:11 AM
> To:   [log in to unmask]
> Subject:      [HP3000-L] COBOL locking error
> 
> Hello HP3000 Listers,
> 
> I'm having a problem with locking a dataset in some COBOL programs I am
> modifying, and I hope someone can help me. I am adding a new database to
> these programs, and trying to lock a dataset in MODE 3 and add a record
> to it. The error I keep getting is:
> 
> TURBOIMAGE ERROR AT $00247464; RETURN STATUS = -135
> DBLOCK, MODE 3, ON TABLE-NAME OF SUNLDX.CURRENT
> DBLOCK CALLED WHEN LOCKS ALREADY IN EFFECT
> 
> I know the dataset has not been previously locked. I have tried doing an
> unlock and then a lock, and get the same results. I have also tried
> doing a PUT to the dataset, and get an error telling me the dataset is
> not locked. The programs have other databases in them which are being
> locked and updated, but an unlock is done right after. 
> 
> I don't know if it makes a difference but the database I am trying to
> add has been newly created. Using Adager, I took an existing database,
> added all the new sets and items to it and deleted all the old sets and
> items.
> 
> What am I missing or doing wrong. Any help will be greatly appreciated.
> 
> Thanks,
> 
> John King
> Programmer Analyst
> GKN Aerospace Chem-tronics
> [log in to unmask] 
>   
> WARNING- This document may contain technical data whose export is
> restricted by the Arms Export Control Act (Title 22, U.S.C., SEQ 2751 ET
> SEQ) or the Export Administration Act (Title 50, U.S.C., APP 2401-2420).
> Violations of these export laws are subject to severe criminal penalties.
> This e-mail is strictly confidential and intended solely for the
> addressee. It may contain information which is covered by legal,
> professional, or other privilege. If you are not the intended addressee
> you must not use, disclose, or copy this transmission. This E-mail is not
> intended to impose nor shall it be construed as imposing any legally
> binding obligation upon GKN Aerospace Chem-tronics Inc. and/or any of its
> subsidiaries or associated companies. Neither GKN Aerospace Chem-tronics
> Inc. nor any of its subsidiaries or associated companies gives any
> representation or warranty as to the accuracy or completeness of the
> contents of this E-mail. GKN Aerospace Chem-tronics Inc. shall not be held
> liable to any person resulting from the use of any information contained
> in this E-mail and shall not be liable to any person who acts or omits to
> do anything in reliance upon it. 
>  
> N^èSåy«Þ¶¥SËlyªÜ...ªÜ?+Þ±ÈZz¥SËlzÛbz
> µÊey«¾+"¶m§ÿëj÷§º×vïÚÈb½ë??�ôÓIa
> 
> 
> ========================================================================
> This e-mail message has been scanned for Viruses and Content and cleared 
> by School Specialty's email filtering solution.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *