How to overcome RTS 068 - Record locked ?

Problem

How can we overcome the error ....

I/O error : file 'camino/16AGE'
error code: 9/068 (ANS74), pc=E68, call=1, seg=0
68 Record locked

Resolution

The problem appears to be a locking issue.

The way to solve this issue is to...

1. Remove following lines from the program source

                    lock mode is automatic

                   with lock on multiple records

2. Add following directives when compiling -

 RETRYLOCK 

NOLIST    

AUTOLOCK  

DETECTLOCK

 Incident # 2857099