Rocket® COBOL

Is there some way of knowing what classes and or methods are being used in each of my programs?  We currently don't have very many classes, but as we build upon them I can see that we could lose track of things pretty quickly.  I don't want to have to go into each program and check what class has been added as a reference.  I also don't want to rely on human documentation. We are using Visual Cobol with visual studio 2010.   Thanks#VisualStudio#VisualCOBOL

We just recently went to visual cobol and we are having trouble with the call x'91' function 35.  It seems to work fine on each of the developers pc's - which have visual cobol installed on them, but not on our end user's pc's which don't have visual cobol installed. #VisualCOBOL

Created On:  20 October 2010 Problem: Windows has its own locking mechanism, called Opportunistic Locking, for files shared in a network environment. This mechanism is enabled by default and can contribute to file errors and performance issues in such an environment. Resolution: Disabling Opportunistic Locking on Windows Client PCs To disable opportunistic locking on a Windows client PC, change or add the following Registry value: HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Services\\MRXSmb\\Parameters OplocksDisabled = 1 Disabling Opportunistic Locking on Windows Servers To disable opportunistic locking on a Windows server, change or add the following Registry value: HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\LanmanServer\\Parameters EnableOplocks = 0 Disabling Opportunistic Locking on SMB2 Opportunistic Locking cannot be turned off for SMB2, but you can disable SMB2 itself. To disable SMB2 on a Windows Server 2008 or Windows Vista PC, change or add the fo

Error 1 COBCH0857 : System error - failure during ILASM method-id ReturnNBTransDTO private.        01  oNBTransPolicyRTSKeyDA type NBTransPolicyRTSKeyDA. procedure division returning oNBTransDTO as type NBTransDTO.     set oNBTransPolicyRTSKeyDA to self::ReturnNBTransPrimaryKeyDA()       set oNBTransDTO to oNBTransPolicyRTSKeyDA::GetData() end method.  I keep getting this error intermittently when I compile the above code .  When the error does appear it appears in white space prior to the following code.....set oNBTransDTO to oNBTransPolicyRTSKeyDA::GetData() The project where this code is included has an Interface class and as soon as I exclude the interface from the project and comment out the code that uses this interface the solution compiles successfully.     #VisualCOBOL

I was wondering if there were any side effects of setting the configuration variable CLOSE_ON_EXIT to a 1.  We have come upon some situations where developers have forgotten to close files opened in their programs.  I cannot find what issues could arise using this option only a place in the docs that indicate that it is not ANSI compliant and, therefore, not the default when using runcbl. I think that another option that I would prefer is to inquire of some way to log when a program exits with files that are open still so that the programs can be fixed.  Is that possible?

Bonjour les cobolistes,   Je viens d'installer un client oracle 11g afin de faire des tests de comptabilité pour une migration d'oracle 10 vers là 11. Installation Ok, compilation du programme OK. Au lancement de mon programme, je reçois une erreur à la connexion 173 called program file not found in drive / directory SQLADR. J'ai lancé ensuite un PROCOB afin d'avoir un peu plus d'information sur l'erreur et apparemment la precompiler ne sait pas ouvrir un cpy (structure d'une table DB). Workstation : win Xp 32 bits, NetExpress 3.0.14

I have a project where managed code calls a naïve code program, which in turns call another naïve code program.  I get a stack overflow on a read after processing about 300 records, it's a basic read/generate report program.  This managed code project, has about 47 naïve code programs in it.  If I run just the naïve code, .exe program calling the report program, it runs fine.  Suggestions?

We are using AcuCOBOL-GT 9.2.2 on Windows.  What is the best approach to using the runtime to support use on a touch screen with a physical keyboard available?  Specifically, what is the best way to have an onscreen "10-key" setup of PUSH-BUTTON controls that will feed the number for the button pushed into an ENTRY-FIELD and keep the focus on the entry field? Here are the two issues we've run across. 1) We can't just use a hard coded tab-value with "set goto-field to true" to move back to the entry-field because there can be more than one entry field on a screen which would need to accept the input from the push-buttons.  If the user clicks into the other entry field, how do we know which one needs to be updated? 2) The second issue is when the user uses the arrow keys on the keyboard.  We don't see an exception, so we don't know that the cursor position has changed.  When you move the cursor with the arrow keys, then click the PUSH-BUTTON, the value gets added

I would like to be able to use an FD record layout in a derived class.  I don't want any instance of the class to be able to use the fields in the record layout so I have them marked as private.  I would rather use protected.  Can this be done? below is the code that I am working with.  If I make the private field protected I get the following compile error Error 2 COBCH0885 : Visibility attributes can only be used with native managed types at 01 select test-file assign       to "\\temp\\test.dat" organization is indexed access       is dynamic record key   is test-key lock mode    is manual file status  is fileStatus.        fd  test-file.        01 test-rec                       &nbsp

How do I make variable case sensitive.  I would like to make policyNumber and PolicyNumber different variables.  How is that done?          working-storage section.        01 policyNumber type String property no set.        method-id New. procedure division using by value policyNumber as type String.  Set PolicyNumber to policyNumber. end method. #VisualCOBOL

We have a copy/replacing statement where our intent is to change the 01 level to an 02 level. Here is the statement we are using, note the space before and after the 01 and 02 values. Copy "PrmPolcy.fd" replacing leading ==MP==     By ==VPPINew==,                                         leading ==PRM==    By ==VPPINew==,                                         leading == 01 == By == 02 ==.The copybook begins like this       01 &nbs

Does anyone know how to translate these Excel vba macro instructions to ACUCOBOL statement: ActiveSheet.PivotTables ("My_Pivot_table"). PivotCache.Refresh Thank you

I "enhanced" a program and screwed up something. As always, I had made a backup under a different name.  Now I'm in Microsoft Visual Studio, navigating back and forth between the original code and the enhanced code, so that I can find my boo-boo.  I'm clicking first on the tab for one program, then on the tab for the other. But that is slow and awkward.  Is there a keyboard shortcut where I can quickly flip back and forth?

When I try and set a nullable Decimal to zero I get the below error.  I did notice that if I parse the zero to a decimal it does work. COBCH1624: cannot implicitly convert binary-char to type System.Nullable[Decimal].  01  testDecimal type Nullable[type Decimal] property. method-id New procedure division.          set testDecimal to 0. end method Is this a problem with the compiler?  It seems that this code should work.#VisualCOBOL

Problem : The customer creates a UTF8 file and want to print it with a Cobol application . What does he do Solution: It is necessary to use the Operating system commands or functions . The generic name is iconv . The follow Cobol program is a subprogram   to convert a UTF8 buffer to a CP864 buffer , with four parameters : The UTF8 buffer (input) The CP864 buffer ( output ) The size of the UTF8 buffer The size of the CP864 buffer The operating system is a Linux operating system :        WORKING-STORAGE SECTION.        78 pfx                 value " *--> ".        78 OK                   value " <OK> ".        78 KO       &nbsp

Is there a recommended approach to doing base64 decoding from ACUCOBOL? I do have a few ideas in mind, including calling functions from either OpenSSL or MSXML. But the boss is asking for a second opinion. Our preference would be for a shared library routine as opposed to a standalone utility. Our platforms include both Linux and Windows. Thanks!#Base64#ACUCOBOL9.2.1

Visual COBOL ships with the Eclipse IDE as its development environment. Eclipse is an integrated development environment (IDE) that many non-COBOL programmers are very comfortable using. This familar IDE has helped programmers who are new to COBOL and/or Unix make an easier transition. But if you are new to Eclipse, then you also face a learning curve.  While learning the syntax of the Eclipse IDE, you can still continue to use the same methods that you used with Server Express. You can sign onto the Unix box directly and use vi, emacs, etc.  From the commandline, you can: set the environment variables, compile using the 'cob' command, run your code using 'cobrun', animate, etc. While your goal will be to get up to speed using Eclipse to unlock all the features of Visual COBOL, you can still use familiar ways to make any immediate changes to your code while you are learning the syntax of the Eclipse IDE.

Problem In Visual COBOL for Eclipse, how do I make a copybook in one COBOL project available to other COBOL projects? Solution Instead of having the copybook in a COBOL project, place the copybook into a COBOL Copybook project. Here are the steps: In Visual COBOL for Eclipse, create a project of type "COBOL copybook", named for example, "my_copybooks". From the menu, select File -> New -> COBOL Copybook Project, and enter a name for the project Move desired copy file(s) from an existing COBOL project into "my_copybooks" project Select the copy files in the COBOL project using CTRL-Click Drag the selected files to the new COBOL Copybook project Add reference to "my_copybooks" project in each COBOL project that needs to access the copybook In each COBOL project, go to Project Properties -> Micro Focus -> Build Path Choose the "Projects" Tab Click "add" button to add a reference to another project Choose

Problem: You can manually start the license manager under root credentials with no issues, and, /etc/inittab contains this line...mF:2345:wait:sh /etc/mflmrcscript > /dev/null 2>&1, however, the LMF daemon does not start at boot-up. Resolution: The /etc/inittab file is deprecated in RHEL 6 except for the default runlevel line, therefore the lmf startup line in that file does not get executed.  Below is information on how to start the LMF daemon automatically on newer Linux distributions: In order to start the LMF daemon at start-up, you will create a new file named /etc/init/mflm.conf. This file will contain: start on runlevel [0123456] script            sh /etc/mflmrcscript > /dev/null 2>&1            exit 0 end script Then, to test this file: 1) connect as root 2) initct1 start mflm

Visual COBOL can be installed on unsupported Linux distributions, if you execute the installer with the command line option "-noplatformcheck" to skip the platform check. However, Micro Focus does not test, or support, this type of environment, so, you will be using the product at your own risk.

The first record in every variable structure file is a system record called the file header. This is normally 128 bytes in length.  For an index file, eight bytes into the header record is the creation date and time entry. This entry is 14 bytes long and has the format YMMDDHHMMSSCC  This is documented at: http://supportline.microfocus.com/Documentation/books/sx51/rhfile05.htm

This information is available on the Supportline Web Portal (http://supportline.microfocus.com). Below are instructions for locating this information on the website: 1) Click the link: Support Resources 2) Click the link: Product Availability and Support Schedule 3) Fill in the "Product", "Product Version", and "Release" data (the "Operating System" and "OS versions" are optional)  4) Click the "Submit" button The screen will display whether the product has reached "End of Service" . 

Greetings, Is it possible to utilize a DLL file while running a GNT? I have downloaded the 'checklogin' sample from MF and i'm trying to obtain the user login trough MFCOBOL. I'm calling a checklogin.gnt instead of the executable, since the .exe cannot share it's results (unless i write to a file wich i'm trying not to). However when calling the checklogin.gnt, apparently it cannot find the MPR.DLL wich it needs.  I have %\\system32 on PATH (wich is where MPR.DLL is located). Running Server 5.1 on Server 2003. It returns the following error: Function failed = 487 On winerror.cpy 487 = ERROR-INVALID-ADDRESS

Problem: AcuServer process returns a file status 9D,110. What is the meaning of this error code?What may be the cause and how to solve it? Resolution: The first important thing to do to analyze 9D errors is to record two important trace files: one for the runtime, one for the AcuServer process/daemon. To record an ACUCOBOL-GT Runtime trace file, the following environment variables should be added to the runtime configuration file (cblconfi): FILE_TRACE 9FILE_TRACE_FLUSH 1FILE_TRACE_TIMESTAMP 1 The information will be written into a text file.To customize this file name and location and to collect a list of configuration variables loaded by the process itself, add the following -le flag to the runtime launch script: wrun32.exe/runcbl -le c:\\tmp\\acuruntime.%p.log [any further flag] [program name] To record an AcuServer trace file, the process must be stopped and restarted using the proper options.This operation requires any clients to be stopped in advance, to avoid any possible ungrac

After opening an Excel Worksheet, etc.  I can change easily to different pages, for example page 2 with this invoke: invoke WorkSheets "getItem" using by Value 2       returning WorkSheet But when I do not use tho constant value 2, but instead a variable which contains the value 2, the program aborts. 000303 77  N-AGENTE     PIC 99   VALUE 2. no one of these 3 examples work       *      invoke WorkSheets "getItem" using by value N-AGENTE      *      invoke WorkSheets "getItem" using by reference N-AGENTE      *      invoke WorkSheets "getItem" using by content N-AGENTE The compiler does not send an error, but running the program I receive the message Exception 65537 not trapped by the class oleexception manager. Any idea what is missing. How must I define the