Rocket® COBOL

Does anyone know of a Visual Cobol expert looking for a job in Orange County, CA. I have an open position for a contract to hire position.#visualcoboljob

 En una aplicación con php utilizando acuxdbc (vers. 9.11)  me sale el siguiente error: PHP Warning:  odbc_connect() [<a href='function.odbc-connect'>function.odbc-connect</a>]: SQL error: [TOD][ODBC Driver]VISION: Cannot open 'C:\\Program Files (x86)\\Micro Focus\\Acucbl911\\AcuGT\\syscat\\GENESIS_TABLES',Too many open files, SQL state S1000 in SQLConnect in ... Alguna sugerencia?#AcuXDBC#AcuxODBC

Hi, I´m starting a new release of my management system to include improves and modify the appearence.  Starting with the main menu, I'm looking for how to get the main menu with a background picture and open it totally maximized for the first time. Something like this: . Could somebody guide me? Thnks in advance Gabriel

Hi, please I need to get length of unicode string. I am trying to do this: IDENTIFICATION DIVISION. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC. INPUT-OUTPUT SECTION. working-storage section. 01 w-text pic n(10). 01 w-x pic 999. PROCEDURE DIVISION. ******************** 000000-CONTROL SECTION. move n"abcd" to w-text display w-text(1:1) display function length(w-text) perform varying w-x from function length(w-text) by -1 until w-x < 1 or w-text(w-x:1) <> nx"0020" end-perform display w-x exit program . I want return number 4 in this example. But in perform I still get access memory violation error. When I try command display w-text(1:1) I got result 'ab'. Is this problem? So when I do w-text(10:1) in first perform loop, I got out of my memory? Please how to correctly solve this?#string#unicode#COBOL

I am confused about compiling Visual Basic programs. When I create a "NATIVE" Cobol Command Line Application and then use the compile option under the Visual Studio Menu item "BUILD" it compiles just fine. However it does not create a ".EXE". I also tried with the Command Line and receive the same results. This test was using everything set with defaults, using the project Skeleton as supplied on the Visual Menu File\\New\\project My program can be executed with the "debug" and runs just fine. I am sure this is a simple fix, but I can find any examples or discussions about it. I am an experienced Cobol Mainframe programmer (Learned Cobol 68) but never needed to pay attention to the small boxes so I do not have much experience in the scripting languages and changes in Cobol from Mainframe to the smaller platforms. Any help would be greatly appreciated. This is really frustrating. ------ Source Code (Like I said direct from the Project Create) ide

What is the .net cobol equivalent to the following C# code?  I just need to know the equivalent to the operator and how I would write score in .net cobol.   int score = 1; if (Regex.Match(password, @"/.[!,@,#,$,%,^,&,*,?,_,~,-,£,(,)]/", RegexOptions.ECMAScript))   score ;

Hello, I am working on several programs that call each other and I am having an issue with an ACCEPT in one program locking up the next program called. I am running Acu runtime 10.0.1 and working in AcuBench. This issue only happens when running in the Thin Client/AcuConnect environment and in Non Debug mode. So if I run this in debug mode in Thin Client/AcuConnect, it works fine. Go Figure. I have a program that have a series of fields on the screen that the user can default to a specific value. So each control is skipped but another program is called that displays a list box of data that the user can select. If all fields are defaulted in program 1, program 2 locks up on the display command that displays the graphical window. We put several DISPLAY MESSAGE BOX commands in the code to figure this out. I have a feeling this has something to do with setting focus on an object in program 1 and not issuing an ACCEPT command before calling program 2. So how do I terminate the ACCEPT comma

Help anyone.    I last programmed in Cobol in the military in 1991.  I just got assigned to a project to pickup from a programmer who is in ICU. My Client is not very helpful and I need to know how I can view the cobol tables!! My Client is using RM Cobol ver 12 on Linux.  The tables have a .dat extention..  Any Suggestions.  P.s. i can view the cobol code and recompile but I need to be able to view the tables and need a viewer or commands to put them on the screen. Feel free to email me on Malcolm@Modellogix.com#COBOL#linuxcobol#MicrofocusCOBOLToVisualCOBOLconversion

As the title says. The personal version sent my student email a 1 year trial for Visual COBOL. Myself and 0 of my friends can get it to authenticate.

Hi All, Im trying to print a file I've already created call c:\\tmp\\NeilTest.prn directly to a printer using Visual Cobol, is there a clever .NET way of doing this? I found below but not sure if this is the best way or if it would work in VC? http://stackoverflow.com/questions/4435644/how-to-print-batch-file-in-vb-net Many thanks Neil.

Is the local-storage section  a "best practice" place to define all of your method variables?  For example: method-id Encrypt.       local-storage section.       01  clearBytes binary-char unsigned occurs any.       01  pdb type Rfc2898DeriveBytes.       01  nb binary-char unsigned occurs 13.       01  ms type MemoryStream value new MemoryStream.       01  cs type CryptoStream.       01  num binary-short.       01  str type StringBuilder value new StringBuilder.

Why does the exception handling var myex always reference "object reference not set to an instance of object"   Catch myex as type Exception set str = str::Append("Source " & myex::Source) set str = str::Append("Number " & myex::StackTrace) set str = str::Append("Line Number " & myex::TargetSite) set str = str::Append("Data Exception " & myex::GetType::ToString) invoke type Debug::WriteLine(str)

Hi I have a debugbreak in code, and when I opt to invoke the debugger, Net Express hangs and crashes out. Any help will be appreciated.

HI, Netexpress dialogs supports controls autosize (adjust to the dialogs size) when dialogs are extended/dragged/maximized. Is there any such facility available in Visual cobol winforms?#winforms

net express is crashing getting  Error C0000005 Access Violation C:\\Program Files Micro Focus Net Express 5.1\\Base\\Bin\\cbldbg.dll  can somebody help

Using multiple monitors MF have provided a patch for run time 10.0.1  (4431) to get this work properly, you can start the parent window in monitor 1 and shift it to monitor 2 or 3 etc, and the child windows will populate in those monitors as long as the Display floating window has and absolute line and column or screen line screen column control, line  or column  added. Our applications do not use these controls, when the child is opened it is centered on the parent window. so when we would move the parent window to a 2nd or 3rd monitor our child windows would always open in Monitor 1. We have 1500 screen programs and this would have been a huge maintenance nightmare, so I reported this to Micro Focus they sent me a new patch for this (4433). Now all is well wherever you move the Parent window all child windows appear with the Parent window. Another request from our customers is to have the last location remembered so when the Parent window is launched the next time it w

Hello, I'm tryin to use the following statement in one of my managed Cobols: EXEC ADO    GET CONNECTION INTO :MyConnection END-EXEC. How should I declare the MyConnection field in my Cobol program. I tried this: 01 MyConnection TYPE System.Data.SqlClient.SqlConnection. But I get the following compiler error: Error 1 COBES0100 : Incorrect SQL statement syntax near: xxxxx Any ideas?

Trying to find out if the analyzer will do me any good with ACUCOBOL.  I know Guy said the short answer is Yes but wondering what that means.#cobolanalyzer

Do Conditional Breakpoints work in managed COBOL? I set a breakpoint on a line of code, right-click the red ball icon an select "Condition...", and enter the desired condition (using the same syntax as I used in Net Express): SEL-ERATE='EMN2 '. Execution just blows right past the Conditional Breakpoint. When I set a Regular Breakpoint at the next line of code and execute, examining the value of SEL-ERATE at each stop on the Regular Breakpoint and then clicking "Continue", I eventually get to where SEL-ERATE is "EMN2 ". BUT the Conditional Breakpoint on the immediately preceding line of code didn't catch it! What am I missing here?

Does "Show OCCURS or reference modification value" work in managed COBOL? I have it set (checked) in Debug>Options and settings..., Debugging>Micro Focus COBOL, under Tooltip style. And yet while debugging a managed COBOL class and stopped at a breakpoint, hovering over a reference modified alphanumeric variable displays the entire value vice just the referenced portion; i.e., hovering over SEL-ERATE (1:3) displays "EMN2 " instead of "EMN". And more troubling is hovering over a subscripted variable displays the value of the first element regardless of the value of the subscript: i.e., hovering over LST-UIC (X) where X has the value 13 displays the value in LST-UIC (1) vice the expected value in LST-UIC (13). Clicking the triangle icon at the left end of the Tooltip does display a scrollable list for the LST-UIC array, but this is clunky when the array is hundreds of elements long. What have I missed in trying to get the Tooltip to exhibit the de

Problem: Installing Visual COBOL 2.3 Update 2 for Visual Studio 2012 fails with Error 0x80048bc7 on Windows 10, and the installation log also reports Error 0x80070002 in the following entries: e000: Error 0x80070002: Failed to find payload: visualcobolvisualstudio2012_232x86 in working path: C:\\Users\\********\\AppData\\Local\\Temp\\{f11aaffb-b9a5-4799-96a7-a30788065141}\\visualcobolvisualstudio2012_232x86 and unverified path: C:\\ProgramData\\Package Cache\\.unverified\\visualcobolvisualstudio2012_232x86e000: Error 0x80070002: Failed to cache payload: visualcobolvisualstudio2012_232x86e314: Failed to cache payload: visualcobolvisualstudio2012_232x86 from working path: C:\\Users\\********\\AppData\\Local\\Temp\\{f11aaffb-b9a5-4799-96a7-a30788065141}\\visualcobolvisualstudio2012_232x86, error: 0x80070002.e349: Application requested retry of payload: visualcobolvisualstudio2012_232x86, encountered error: 0x80070002. Retrying...e000: Error 0x80048bc7: Process returned error: 0x80048

While stepping through execution (debugging) COBOL code in Net Express 5.1, you could hover over an internal file name wherever it appeared in the code and get the File Status for the last IO operation on that file. Short of explicitly declaring a File Status item in a file's SELECT clause and scrolling up the program source to where the File Status item is defined in Working Storage and using Tooltip to read the value, is there anything like the Net Express feature in Visual COBOL?

Hi, Recently we have migrated from netexpress dialogs to visual cobol dialogs. Our application was setup based on network share mode(as per instructions from Micro Focus) so that users from client work station can ping the application hosted in the windows 2012 server. Now we are trying to convert dialogs to winforms. I have deployed winform executables to the server and it works good in the server but the application crashes when i try to ping from work station. I am assuming that the same application setup should work for winform as well. Is there anything i need to take care of ? --------------------------------- ERROR : Version=1EventType=APPCRASHEventTime=131274350239260298ReportType=2Consent=1ReportIdentifier=b3c704dd-cd46-11e6-9e4e-40a8f04619b3IntegratorReportIdentifier=b3c704dc-cd46-11e6-9e4e-40a8f04619b3Response.type=4Sig[0].Name=Application NameSig[0].Value=WI100.exeSig[1].Name=Application VersionSig[1].Value=0.0.0.0Sig[2].Name=Application TimestampSig[2].Value=58643056Sig[3]

Hi I am trying to perform an Unstring on a response received(String). Following is the code which i am using 01 numeric-test-var PIC 9(1) . 01 input-String1 PIC x(9) value spaces . 01 String2  PIC x(6) value spaces . Para1.  move 'ABCDEF! !' to input-String1. Unstring input-String1 delimited by '!' into  String2  numeric-test-var. display numeric-test-var.   When the above code executed i am getting the following value in "numeric-test-var" ' '. I am getting space in numeric variable. Which is different. Also if i change the defination of "numeric-test-var" from PIC 9(1) to PIC 9(5) and perform the same code as above and display the value of "numeric-test-var" then the response will be '0000 '. The last digit in numeric field is spaces now. Please let me know if you can provide what i need to do to correct it? Also this is not happening in Net Express 5.1. Than

Hi, Recently i have noticed a issue with debug option in VC 2.3. I am able to debug code line by line in winform (code behind) but visual studio just skips the debug pointer to next statement during call to unmanaged cobol program. Unmanaged code was executed just that visual studio do not debug line by line. This happened after i have upgraded Visual cobol 2.2 to 2.3 update 2. VC 2.2 use to debug called programs as well, i mean line by line execution.   I have verified my debug setting and everything looks good.#VisualCOBOL