support: Customer Portal
Focused on delivering choice, investment protection and flexibility to organizations with valuable COBOL assets
  

Veryant Knowledge Base
Home > All Categories > isCOBOL General > Does isCOBOL support C$REDIRECT?
Question Title Does isCOBOL support C$REDIRECT?
C$REDIRECT is used to assign a different file I/O handler to a file.
There are several options to do the same in isCOBOL.

In version 2022R2 and later, you can write a hook program using this configuration to change the file handler class in the hook program.: 
   iscobol.file.index.open_hook=Program Name
If 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.".
There is an example of this in isCOBOL's Sample folder, %ISCOBOL%sampleextend-and-customizecustom-file-handlerlogging.
This program can be modified to handle your file operations at the interface level.
For example, if you want to call subprograms named BEFOREWRITE and AFTERWRITE before and after ever WRITE operation, you could edit the sample file CobLogging.cbl and change the "write" method to the following: 
       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.
Authored by: Veryant Support This question has been viewed 8640 times so far.
Click Here to View all the questions in isCOBOL General category.
File Attachments File Attachments
There are no attachment file(s) related to this question.
How helpful was this article to you?
User Comments User Comments Add Comment
There are no user comments for this question. Be the first to post a comment. Click Here
Related Questions Related Questions
  1. How do I compile for compatibility with older versions of Java?
  2. When can I get the "java.net.SocketException: Permission denied:connect" message? And how can it be avoided?
  3. How do I resolve "code too large for try statement" errors?
  4. How do I migrate indexed files to a format that is supported by isCOBOL?
  5. How do I prevent hackers from decompiling Java class files to reverse engineer my COBOL application?
  6. How can I read an Excel spreadsheet from COBOL?
  7. Does SET ADDRESS OF X TO Y work?
  8. What Micro Focus library routines are supported?
  9. Do I need to worry about the compile warning "Note: MYPROG.java uses unchecked or unsafe operations?"
  10. What tools are available for automated functional (regression) testing of a COBOL application?
  11. Did you know you can create temporary files in memory?
  12. Where can I obtain a copy of the ANSI 2002 COBOL standard?
  13. Is there currently a way to debug COBOL and Java source together?
  14. How can I tell what changes were made in the isCOBOL latest update?
  15. How do I increase the maximum Java heap size when compiling?
  16. How do I turn on debug trace to produce a log file?
  17. How do I determine what properties are set?
  18. Should I use JISAM or Veryant's c-treeRTG?
  19. How would I create my own CBL_ALLOC_MEM and CBL_FREE_MEM routines?
  20. What is the best way to control Microsoft Word?
  21. How can I use the F10 key in my application without it changing the keyboard focus?
  22. How do I use conditional compilation?
  23. How do I specify properties or a properties file on the command line?
  24. Where can I find more information on A$ENCRYPT and A$DECRYPT?
  25. Does isCOBOL work with Flexus COBOL sp2?
  26. How do I change the icon in the upper left corner of the Window?
  27. What is the behavior difference of STOP THREAD?
  28. Sending SMTP mail
  29. What are the defaults for the DATE-ENTRY control DISPLAY-FORMAT property and format styles?
  30. How do I select 11x17 paper size using WIN$PRINTER?
  31. Where can I learn more about Classpath, the Java class loader, JDK tools and utilities?
  32. What are the key technical advantages of isCOBOL?
  33. Why do I get the error message "Native call not found" and how do I fix the problem?
  34. Why do I get the error java.lang.NoClassDefFoundError: com/iscobol/rts_n/StopRunException?
  35. Can Veryant recommend a good Web site to find 3rd party JavaBeans?
  36. I still get the error : "Missing License: The license key is missing, invalid or has expired!" I can't figure out why
  37. What compile option should I use for ICOBOL compatibility?
  38. Can isCOBOL access a DLL or .so that is in a JAR file?
  39. How do I compile fixed (ANSI) format source that COPYs terminal format source or vice versa?
  40. Can I use directory paths in CALL names?
  41. How do I configure file locations with environment variables?
  42. Is your runtime library backward compatible?
  43. What algorithm does isCOBOL use to load framework properties (runtime config variables)?
  44. How do I set iscobol.file.index.FileName with variable file name assignments?
  45. What is the easiest and/or best way to convert a legacy text-based user interface to a web front end?
  46. How can I make my isCOBOL program to be called instead of a C routine when both have the same name?
  47. Is isCOBOL backward compatible?
  48. How do I specify which file status codes I want to use?
  49. Does isCOBOL APS run on z/OS?
  50. Is there any equivalent to COPY RESOURCE?
  51. Why do I get the error message “java.lang.UnsatisfiedLinkError: no ### in java.library.path?
  52. What is the best way to profile an isCOBOL program?
  53. How do I write my own replacement for a C$ library routine?
  54. What should I use for USAGE HANDLE items instead of NULL?
  55. How can I avoid the "java.lang.OutOfMemoryError: PermGen space" error?
  56. Can you derive isCOBOL object classes from Java and vice versa?
  57. Can the file system (iscobol.file.index) be set programmatically?
  58. I've heard there is a problem passing pointers to C functions. What is it?
  59. How can I monitor a jvm started on a remote computer box?
  60. How do I get more information when I get java.lang.reflect.InvocationTargetException?
  61. Does isCOBOL support Crystal Reports or other Report Writers?
  62. How do I suppress multiple reserved words with the -rw compiler option?
  63. Why do I get the error message "java.lang.NullPointerException" ?
  64. Why do I get the error message "java.lang.ArrayIndexOutOfBoundsException" ?
  65. Can I call an RMCobol program passing parameters to it?
  66. What does mean the error NO X11 DISPLAY?
  67. How can I encode a URL String?
  68. What can I use to perform an email validation during entry-field accept?
  69. Working with sequential files on Pipes
  70. How do I resolve the error "java.lang.NoClassDefFoundError" or "java.lang.ClassNotFoundException"?
  71. Does isCOBOL support C$XML or other XML interfaces?
  72. Is there any way to direct the output from the "Print Screen" keyboard key directly to a printer?
  73. Why do I get the error "Could not load the main class" ?
  74. Did you know isCOBOL IDE allows you to easily understand how to invoke a method in a Java Class?
  75. Did you know you could set a background image from isCOBOL IDE's painter?
  76. How to replace a text within a string with a different length of text.
  77. How to write custom information inside isCOBOL log file
  78. How to programmatically set the attributes for PDFs?
  79. How can I read data correctly from a line-sequential file that has a different encoding from the one used by isCOBOL?
  80. Did you know you can encrypt the communication with the isCOBOL Server?
  81. GIT Server (Linux) - Install and Configuration
  82. Activating and Check the isCOBOL License
  83. Two options to get the working directory
  84. How to search by key with case insensitive on ISAM files
  85. How can I read a data written with a different encoding?
  86. How do I point my installed isCOBOL to a different Java location?
  87. May I create my own type definitions and reuse them?
  88. How can I generate QR codes from COBOL?
  89. How can I use the Call/Cancel custom HOOK program to get the start and end time of every CALLed program?
  90. How can I tell if my application is running in the WebClient environment or another environment?
  91. Can I define one or more data items based on the definition of another one?
  92. How can you wait for several threads to finish?
  93. Guide to Updating the isCOBOL Software Version in a Standalone, Fat Client or Thin Client Production Environment
  94. Get the week number of the year for a date
Article Information Additional Information
Article Number: 167
Created: 2011-03-25 12:07 PM
Rating: No Rating
 
Article Options Article Options
Print Question Print this Question
Email Question Email Question to Friend
Export to Adobe PDF Export to PDF File
Export to MS Word Export to MS Word
Bookmark Article
Subscribe to Article Subscribe to Article
 
Search Knowledge Base Search Knowledge Base

  Knowledge Base Home


 
 

© Veryant - All Rights Reserved
Veryant and isCOBOL are trademarks or registered marks of Veryant in the United States and other countries. All other marks are the property of their respective owners.