Curt wrote:
>Hello all,
>
>I have a question about the turboimage call DBCLOSE and COBOL programs.
>
>I have COBOL programs that call DBCLOSE at the end of the program. I don't
>want to change the programs so that DBCLOSE is called something else and I
>don't want to modify the system XL (messing with clients systems this way
>bothers me). I assume that the normal DBCLOSE is in the system XL.
>
>I want to write my own routine for DBCLOSE, adding some logging and other
>"stuff" and then have the system XL turboimage intrinsic DBCLOSE happen. I
>have tried adding by own DBCLOSE module to a user XL. But when the DBCLOSE
>in the user XL calls DBCLOSE, it loops calling the user XL until a NM error
>occurs and never gets to the DBCLOSE in the system XL.
>
>Any insight into this problem would be very helpful.
>
>TIA
>
>Curt Brimacomb
>Systems Manager
>Idaho Computer Services, LLC
>[log in to unmask]
>208-734-2245 x 114
>The opinions expressed here are not mine or my employers.
>
You should be able to use HPGETPROCPLABEL specifying the 'firstfile'
as 'XL.PUB.SYS' and then call the real DBCLOSE via the plabel you
get back from the call.
Hope this helps.
Bill
HP/CSY