On Mon, 17 Apr 2006 04:45:27 -0500 Anuradha V <[EMAIL PROTECTED]> wrote:
:>I am trying to overcome a FS 93(exclusive control lock) error in a cobol :>program using IAM files. (I am told that IAM file is functionally similar :>to VSAM.) :>Now, we issue a CLOSE and OPEN on the file to release the lock. But it is :>a huge perfomance overhead as this file is being used in 27 subroutines. :>I am trying to issue ENDREQ macro to release the lock. I have checked with :>IAM guys and they say that ENDREQ will work on IAM. :>Problem is :>1) Control does not return back from the assembler program to the calling :>COBOL program. :>Instead it loops the last WTO statement continously (ANUASM: ENDREQ1 ENDS) :>2) Will what I am doing solve the issue of releasing the exclusive control :>lock So many errors, so little time, ...... To start: 1. The original concept requires doing an ENDREQ against the ACB being used by the COBOL program holding the lock. It will not help to open a new ACB and do an ENDREQ against it. 2. The subroutine does not set R13 to its save area (DEBUGMAC overlays the R13 pointed area). Etc. :>My cobol code: :> :> OPEN I-O XS-CIFFFIL :> IF CIFF-FS = '97' :> CALL 'ENDREQ1' :> END-IF :>My assembler code: :>ENDREQ1 CSECT :>ENDREQ1 AMODE 31 :>ENDREQ1 RMODE 24 :> SAVE (14,12) :> BALR R12,0 :> USING *,R12 :> ST R13,SAVE13 :>OPEN1 DS 0H :> OPEN (ASPACB) :> LTR RF,RF :> BNZ OPENERR :>* ENDREQ :> ENDREQ RPL=ASPRPL :> B RETURN1 :>OPENERR DS 0H :> STM 0,15,WTOSAVE :> WTO 'ANUASM: ENDREQ OPENERR' :> DEBUGMAC R,VAR=15,TEXT='OPEN ERROR',LEN=4 MACRO to display :>value of R15 :> LM 0,15,WTOSAVE :>RETURN1 DS 0H :> STM 0,15,WTOSAVE :> WTO 'ANUASM: ENDREQ1 ENDS' :> LM 0,15,WTOSAVE :> L R13,SAVE13 :>* :> SR 15,15 :> RETURN (14,12),RC=(15) :>ASPACB ACB AM=VSAM,DDNAME=XSCIFF,MACRF=(KEY,DIR,SEQ,IN) :>ASPRPL RPL ACB=ASPACB,OPTCD=(KEY,DIR,MVE,UPD,KEQ,FKS), ** :> KEYLEN=21,ARG=KEY,AREALEN=100 :>WTOSAVE DS 16F :>SAVE13 DS F :> END -- Binyamin Dissen <[EMAIL PROTECTED]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
