Mvsckey Not Found Exclusive ❲Extended❳

if corruption is suspected:

READ VSAM-FILE INTO WS-REC KEY IS WS-CUSTOMER-ID UPDATE. IF VSAM-STATUS NOT = 0 *> VSAM return code IF VSAM-STATUS = 23 *> Not found MOVE 'N' TO RECORD-EXISTS-FLAG ELSE DISPLAY 'VSAM ERROR: ' VSAM-STATUS END-IF END-IF mvsckey not found exclusive