Question ID : 167
Created on 2011-03-25 at 12:07 PM
Author : Veryant Support [support@veryant.com]
Online URL : http://support.veryant.com/support/phpkb/question.php?ID=167
iscobol.file.index.open_hook=Program NameIf you are using a version before 2022R2, another option is to write an intermediary class, and assign that class as the file handler using "iscobol.file.index.
IDENTIFICATION DIVISION. METHOD-ID. MY-WRITE AS "write". WORKING-STORAGE SECTION. 77 RETURN-VALUE OBJECT REFERENCE JLONG. LINKAGE SECTION. 77 THERECORD OBJECT REFERENCE JBYTEARRAY. 77 OFFS OBJECT REFERENCE JINT. 77 RECSIZE OBJECT REFERENCE JINT. 77 FLAGLOCK OBJECT REFERENCE JBOOL. PROCEDURE DIVISION USING THERECORD, OFFS, RECSIZE, FLAGLOCK RETURNING RETURN-VALUE. MAIN. *Trigger action - start CALL "BEFOREWRITE" USING THERECORD, OFFS, RECSIZE, FLAGLOCK. *Trigger action - end SET RETURN-VALUE TO MY-ISAM:>write (THERECORD, OFFS, RECSIZE, FLAGLOCK). *Trigger action - start CALL "AFTERWRITE" USING THERECORD, OFFS, RECSIZE, FLAGLOCK. *Trigger action - end GOBACK.