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 > How would I create my own CBL_CHECK_FILE_EXIST routine?
Question Title How would I create my own CBL_CHECK_FILE_EXIST routine?

Here is an example:


       id division.
       program-id. CBL_CHECK_FILE_EXIST.
      
       data division.
       working-storage section.
       77 ret-code pic 9.
       01 fileInfo.
         03 fileSize    PIC X(8) COMP-X.
         03 fileDate    PIC 9(8) COMP-X.
         03 fileTime    PIC 9(8) COMP-X.
       77 file-date-string pic 9(8).
       77 file-time-string pic 9(8).
      
       linkage section.
       01 filename                  pic x any length.
       01 file-details.
         03 cblte-fe-filesize       pic x(8) comp-x.
           03 cblte-fe-filedate.
             05 cblte-fe-day        pic x comp-x.
             05 cblte-fe-month      pic x comp-x.
             05 cblte-fe-year       pic x(2) comp-x.
           03 cblte-fe-filetime.
             05 cblte-fe-hours      pic x comp-x.
             05 cblte-fe-minutes    pic x comp-x.
             05 cblte-fe-seconds    pic x comp-x.
             05 cblte-fe-hundredths pic x comp-x.
      
       procedure division using filename file-details.
          call "c$fileinfo" using filename, fileinfo, returning ret-code.
          if ret-code is not = 0 then
            initialize file-details
            goback 13
          end-if
          move filesize to cblte-fe-filesize.
          move filedate to file-date-string.
          move filetime to file-time-string.
          move file-date-string(1:4) to cblte-fe-year.
          move file-date-string(5:2) to cblte-fe-month.
          move file-date-string(7:2) to cblte-fe-day.
          move file-time-string(1:2) to cblte-fe-hours.
          move file-time-string(3:2) to cblte-fe-minutes.
          move file-time-string(5:2) to cblte-fe-seconds.
          move file-time-string(7:2) to cblte-fe-hundredths.
          goback 0.
Authored by: Veryant Support This question has been viewed 6959 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 migrate indexed files to a format that is supported by isCOBOL?
  4. How do I resolve "code too large for try statement" errors?
  5. How do I prevent hackers from decompiling Java class files to reverse engineer my COBOL application?
  6. What Micro Focus library routines are supported?
  7. How can I read an Excel spreadsheet from COBOL?
  8. Does SET ADDRESS OF X TO Y work?
  9. Do I need to worry about the compile warning "Note: MYPROG.java uses unchecked or unsafe operations?"
  10. How do I create a desktop shortcut icon to launch my program?
  11. What tools are available for automated functional (regression) testing of a COBOL application?
  12. Is there currently a way to debug COBOL and Java source together?
  13. How do I set up isCOBOL to access Vision files?
  14. Where can I obtain a copy of the ANSI 2002 COBOL standard?
  15. How do I increase the maximum Java heap size when compiling?
  16. How do I resolve a compile error on PIC X(2) USAGE COMP-5?
  17. How can I package my application and execute it in a JAR file?
  18. Should I use JISAM or isCOBOL ISAM Server (c-treeACE)?
  19. How do I turn on debug trace to produce a log file?
  20. How would I create my own CBL_ALLOC_MEM and CBL_FREE_MEM routines?
  21. What is the best way to control Microsoft Word?
  22. Why do I get a compile error "--S: Invalid open mode" on an OPEN I-O of an ORGANIZATION LINE SEQUENTIAL file?
  23. How can I use the F10 key in my application without it changing the keyboard focus?
  24. What is the recommended method for specifying isCOBOL framework properties?
  25. Where can I find more information on A$ENCRYPT and A$DECRYPT?
  26. Does isCOBOL work with Flexus COBOL sp2?
  27. How do I get my screens to be the same size and spacing as when I run with ACUCOBOL?
  28. How do I change the icon in the upper left corner of the Window?
  29. How do I use conditional compilation?
  30. What is the behavior difference of STOP THREAD?
  31. How do I specify properties or a properties file on the command line?
  32. What are the defaults for the DATE-ENTRY control DISPLAY-FORMAT property and format styles?
  33. How does a program detect at runtime whether it is running standalone GUI, thin client or with Web Direct 2.0?
  34. How do I select 11x17 paper size using WIN$PRINTER?
  35. What are the key technical advantages of isCOBOL?
  36. Does isCOBOL run on Linux on System z?
  37. Why do I get the error message "Native call not found" and how do I fix the problem?
  38. Sending SMTP mail
  39. Where can I learn more about Classpath, the Java class loader, JDK tools and utilities?
  40. Why do I get the error java.lang.NoClassDefFoundError: com/iscobol/rts_n/StopRunException?
  41. How do I compile fixed (ANSI) format source that COPYs terminal format source or vice versa?
  42. Is the isCOBOL 2009 SP1 release intended to deploy mainframe applications over the cloud? Or is it an integration mechanism for bringing in cloud data and apps?
  43. Can Veryant recommend a good Web site to find 3rd party JavaBeans?
  44. What compile option should I use for ICOBOL compatibility?
  45. What algorithm does isCOBOL use to load framework properties (runtime config variables)?
  46. Can isCOBOL access a DLL or .so that is in a JAR file?
  47. Can I use directory paths in CALL names?
  48. How can I make my isCOBOL program to be called instead of a C routine when both have the same name?
  49. Is there any equivalent to COPY RESOURCE?
  50. How do I set iscobol.file.index.FileName with variable file name assignments?
  51. How do I write my own replacement for a C$ library routine?
  52. Is your runtime library backward compatible?
  53. How do I specify which file status codes I want to use?
  54. How do I print to a spooler in Unix?
  55. Does isCOBOL APS run on z/OS?
  56. How do I configure file locations with environment variables?
  57. What is the easiest and/or best way to convert a legacy text-based user interface to a web front end?
  58. What should I use for USAGE HANDLE items instead of NULL?
  59. Is isCOBOL backward compatible?
  60. Does isCOBOL support C$REDIRECT?
  61. Can you derive isCOBOL object classes from Java and vice versa?
  62. How can I tell what changes were made in the isCOBOL latest update?
  63. Is there any way to use isCOBOL with SCO 5.0.6 (JDK 1.3)?
  64. I've heard there is a problem passing pointers to C functions. What is it?
  65. How do I get more information when I get java.lang.reflect.InvocationTargetException?
  66. Can the file system (iscobol.file.index) be set programmatically?
  67. What is the best way to profile an isCOBOL program?
  68. Is there a way to have single set of source code that will compile with both ACUCOBOL and isCOBOL?
  69. Does isCOBOL support Crystal Reports or other Report Writers?
  70. How do I determine what properties are set?
  71. How do I suppress multiple reserved words with the -rw compiler option?
  72. Why do I get the error message “java.lang.UnsatisfiedLinkError: no ### in java.library.path?
  73. How can I monitor a jvm started on a remote computer box?
  74. Why do I get the error message "java.lang.ArrayIndexOutOfBoundsException" ?
  75. How can I avoid the "java.lang.OutOfMemoryError: PermGen space" error?
  76. I still get the error : "Missing License: The license key is missing, invalid or has expired!" I can't figure out why
  77. How can I avoid, in execution, the "java.lang.OutOfMemoryError: Java heap space" error?
  78. Can I call an RMCobol program passing parameters to it?
  79. What does mean the error NO X11 DISPLAY?
  80. Why do I get the error message "java.lang.NullPointerException" ?
  81. How do I resolve the error "java.lang.NoClassDefFoundError" or "java.lang.ClassNotFoundException"?
  82. Why do I get the error "Could not load the main class" ?
  83. Is there any way to direct the output from the “Print Screen” keyboard key directly to a printer?
  84. Did you know how to write custom information inside isCOBOL log file?
  85. Did you know you could set properties to configure the PDF'S generation while printing?
  86. Did you know you can encrypt the communication with the isCOBOL Server?
  87. Did you know that in a string you can replace a text with a new one with a different length by using the C$REPLACE_ALL routine?
  88. GIT Server (Linux) - Install and Configuration
  89. How to search by key with case insensitive on ISAM files
  90. Activating and Check the isCOBOL License
Article Information Additional Information
Article Number: 169
Created: 2011-05-16 11:31 AM
Rating: 1 Star
 
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.