File Locking

[Kannan]

Hi,

My program reads records by a logical file (LF1) and diaplaying it in a subfile and updating the record by chaining through another logical file LF2.
But the chain operation getting following exception. LF1 and LF2 are logical of PF1.


Record 1 member LF2 already locked to this job.
C
I/O error CPF5032 was detected in file LF2.
Function check. RNX1299 unmonitored by XXXE1 at statement 0000034300,
instruction X'0000'.
The call to PROCESSSF1 ended in error (C G D F).


Please help me to solve this issue.

[jamief]

Re: File Locking

somewhere else in the program you are doing a chain or read to an update file
without the (n) nolock.
-- or -- after a chain you have some logic the excludes some records from being updated.

you can fix this by using the (N) on reads and chains where there is no update
or use the unlock keyword

finnonhda  uf   e           k disk       
chain(N) (company: company: h5Mat: h5Anal: h5Size: h5Lin:        
          Location_DS.Bay: Location_DS.Row: Location_DS.Section: 
          Location_DS.Shelf) innonhda;                           
If %Found(innonhda);                                             
 s5OnHand = inlcnq;                                              
endif; 

 *                                                                  
C                   IF        (DASRVC = 72 OR DASRVC = 80) AND      
C                             IDINVUNIT = 'LB'                      
C                   MOVE      'Y'           INV87                   
C                   UNLOCK    INSFTRNB                              
C                   ELSE                                            
C                   Z-ADD     RTCOST        ISCST                   
C                   UPDATE    INSFTRNR                              
C                   ENDIF