Rocket® COBOL

Hi, I have just downloaded Visual Cobol for Visual Studio 2013. Can anyone help direct me to the method to create a VSAM file (KSDS and ESDS) within one the platform? Any help is much appreciated. Mark Gialo

I am unable to configure Ajax in visual COBOL. Is there any documentation regarding this which could help?#COBOL#FormVisualCobol#VisualCOBOL#extend9.2.5VisualCOBOL#ASP.Net

I have a COBOL program that calls the next program in a series of programs (in house transactional system). It calls a program using this syntax: CALL NEXT-PROG USING blah blah blah NEXT-PROG is the next program in the series. most of the time this works great. We have this in a RUNUNIT, so we isolate what is being run. However, we recently ran into a problem. The program being called had the headers mixed up. It's an abort routine, and it should only be called if another program error-ed out. This program wasn't being executed, although it compiled. During our conversion process this program had a copybook put in front of the PROGRAM-ID, forcing the system to not recoginze it. First lines looked like this:       $SET CHECKNUM       REPOSITORY.           COPY CONNECTIONCLASSESREPOSITORY.       IDENTIFICATION DIVISION.    &nb

I am converting acucobol-gt to visual cobol and have problems to access the data files created by acucobol.  I have used the sample LoginFormApplication and have added access to an existing archive with passwords  The indexed file is fixed-length and has two archives called  ARCHMENU  and ARCHMENU.vix Using idxformat 17 or 21 the code error is 39C6 SELECT ARCHMENU  ASSIGN TO RANDOM NAMEMENU                             ORGANIZATION IS INDEXED                             ACCESS MODE  IS DYNAMIC                             RECO

When I bought the license of net express (developer and server for 10 users), I installed the developer, but later I did uninstall it, and lost the license. ¿How can I do to clean windows to reinstall again the developer license? I need some help with this subject. Thank you for your time. Juan Zarate.

I was using Net Express (version 5.101.0074) in Windows server 2008. Now I have installed the same version in windows 7.  I'm opening Net Express from an Environment file. The environment file has environment variables (COBDIR,COBIDY,COBCPY) and the variables SET LIB= Oracle client location and PATH. I do not know what LIB, PATH variables are for.   I have mapped a network drive in which all the dependency files are present. When I give Show Copy file it picks up the respective copy book from the mapped network drive.  I trying to compile a project. When I press build all ,I'm getting the message "Checking dependencies for DEBUG\\Project1.EXE" and after that it is not picking up all the included copybook in the project. It continues to rebuild but it is stuck after displaying following messages , it is not completing the compilation. please help * Micro Focus COBSQL Integrated Preprocessor* Net Express V5.1 Copyright (C)1984-2008 Micro Focus (IP) Limited.* URN&

I've been trying to download a DB2 environment to use with Visual Cobol 2.3, I tried using the Visual Server and it doesn't work, I unzip the files and run setup and it stops loading with an error.  I tried using IBM DB2 the free version and using director it tells me I need to load Java, which I did and it keeps telling me to load the new Java, when it has been installed successfully.  When I try to download the http version, I just click on RUN and nothing happens.  Is there a DB2 environment that works out there??  HELP!!

I have cobol programs that connect to oracle with connect /    When I want to use the programs in visual studio I have to change the connect statement to connect to adodsn.   Is there a solution for this?

Hello everyone, any ideas why i cannot enter i debug mode? My list file show the following: **************************************************************************************************** C:\\ACU_PROJECTS\\AT\\SOURCE\\AT211A.cbl Thu May 05 03:54:49 2016 ACUCOBOL-GT v9.2.5 Page: 2952 STATISTICS Total Lines: 168184# of Files: 19# of Data Items: 14618# of Paragraphs: 5656 Elapsed Time: 1.0 secondsLines/Minute: 9430878 Code Size: 939326 (0E553E)Data Size: 3248310 (3190B6)Shared Data: 56 (000038)Extra Segment: 49670 (00C206)Thread Segment: 22768 (0058F0)Address Table: 86964 (0153B4)Program Size: 4347094 (4254D6) 0 Error(s), 0 Warning(s) ************************************************************************ To mention also that the screen section has many controls (maybe mora than 50 controls in one screen). 

I am installing AcuXDBC 10.0.1 Enterprise Edition at Linux Server. If I want to connect by Windows Client (v8.1.3) I get following failure, it does not connect: Connection failed: SQLState: 28000 [TOD]ODBC Driver]DLLLOAD: xvision, lbaclnt.so: Cannot open shared object file: No such file or directory I think it looked for the described lib-Files, but not found these. Libraries are available in Installation Directory, subdirectory "lib". Should I deposit path of Libraries in a configuration file? Can anyone help me? Thanks very much. Best regards, Daniel. #AcuXDBC#AcuCobol#AcuxODBC

To turn on visual style controls and visual style fonts for Dialog System screens we set the MFVSSW environment variable to "/c /f" when we start our application.  A user can select to either use or not use this feature.  When we launch our application we display a splash screen and its background is a bitmap that shows our company name and logo.  If we turn on visual style fonts, the splash screen is resized so that it is not as tall.  The bitmap is not resized so it is chopped off on the bottom.  I can turn on the visual style font default in the Dialog System designer and then resize the splash screen so that it shows all of the bitmap, but if a user decides to not use visual style controls and fonts a gap is left between the bottom of the bitmap and the bottom of the splash screen. Does anyone know of a way to solve this?  If bitmaps don't get resized perhaps there is another control we could use for the background image which does resize

I would like to deserialize JSON from a REST call into an array and I'm not sure of the exact syntax. Are there any examples you can point me to or can you provide the syntax? I am working with Visual COBOL 2.2 and Visual Studio 2013. Thanks! This is what I have so far:       $set sourceformat(variable)      $set ilusing "System.Net"       $set ilusing "Newtonsoft.Json"       $set ilusing "System.Configuration"      $set ilusing "System.Collections.Specialized"         class-id CallRestService implements type IDisposable.       working-storage section.       01  wc type WebClient value new WebClient().        method-id RestService.       local-storage s

hello, I have no idea how to create a package of the Airport demo application for mobile and how I can deploy the application on a mobile phone (what files etc...) The mobile step-by-step presentation doesn't talk about packaging Any suggestion? Many thankx Any suggestion?

I tried to use Visual COBOL 2.3 to connect to IBM MQ 7.5 which is installed on the same machine (RHEL 7.2) The sample code is from IBM MQ 7.5 sample folder and I follow IBM document (instructions) , the sample is also posted online as www.davar.net/.../amq0put0.cbl I setup and compile the code as these steps: export COBCPY=/opt/mqm/inc/cobcpy64 cob64 -xtvP amq0put0.cbl -L /opt/mqm/lib64 -lmqicb_r Everything is good, create the 64-bit executable: [cobol@rh7 samp]$  cob64 -xtvP amq0put0.cbl -L /opt/mqm/lib64 -lmqicb_r cob64 -C nolist -xtvP amq0put0.cbl -L /opt/mqm/lib64 -lmqicb_r * Micro Focus COBOL                  V2.3 revision 000           Compiler* Copyright (C) Micro Focus 1984-2015. All rights reserved.* Accepted - verbose* Accepted - reentrant* Accepted - nolist* Accepted - list("amq0put0.lst")* Compiling amq0put0.cbl* Total Messages: &n

Problem: When attempting to call a C function such as "time" directly from a Net Express program linked as an .exe, a 173 error is returned on the call. How can I get the call to find these C system functions? Resolution: In order to call C functions such as "time" directly from a linked Net Express executable, you either need to specify the litlink option for the call so the function will be resolved at link time to the MSVCRT.LIB import library or you need to load the C library dynamically at run-time. Example:    call "time" using by reference time-row  If you compile this for .int/.gnt then it should be found OK as the C run-time will be loaded automatically and the entry point will be available. If you are linking your program as an .exe/.dll then you must load the C run-time support manually in order to make these entry points available.. You can do this dynamically at run-time by using the following: 01 pp procedure-pointer.     set p

Hi, I am trying to create a managed dll from command line using -ILGEN directive.  While creating the dll I am also trying to consume the .res (Resource script) file but I am unable to do the same. can anyone please help me with a way to consume the .res or .rc file in managed dll from command line. Thanks Anand

Let’s start with a simple example. Declaring Local Variables Today variables are declared in the local-storage section of a method: In the next release of Visual COBOL you will be able to declare them within the procedure division body of your method. Optionally, you will be able to assign a value to the variable during declaration :   The same principle applies to framework types. For example, declaring the .NET Class Library structure System.DateTime. and again, optionally a value can be assigned on declaration:       Declaration of Iteration Variables or In the current product, the variables i and s have to be declared in the local-storage section of the method. But as shown above, in the next release, the iteration variables can be declared within the scope of the iterator. Declaration of Exception Variables Likewise, currently the exception variable e has to be declared in local-storage, but in the next release it can be delcared at point of use. Scope T

Hi, I have a cobol program that use ESQL in Server for Cobol  5.1 ,  the oracle odbc client x32 has been migrated from  11.02.00.01  to 12.01.00.01.  I did not recompile the program, I use the same dll, and the unique field defined numeric is:  10 RAG-IMP-CNT-EU       PIC S9(13)V9(2) USAGE COMP-3.  the column of the table is:   RAG_IMP_CNT_EU                 NUMBER (15, 2) NOT NULL  if I use in a SELECT works fine,instead  if I use the same field with an INSERT\\UPDATE oracle odbc driver 12 give ORA1722.  What can I check ? thank bye #ORA1722

hi,I'm using "Micro Focus COBOL Server 2.3.1142" on Windows Server 2012.The same program compiled with Enterprise Developer 2.3.1 (Eclipse version) with same input data on my server work fine, instead on the server of customer give error rts 198.the command line is:C:\\"Program Files (x86)"\\"Micro Focus"\\"COBOL Server"\\BIN\\RUN.EXE LBTESO37.DLL   1>E:\\ALA90T\\FILES\\SYSOUT_LBTESO37.TXTerrorlevel = 198The customer told me that mfdebug.log was not created .I have attached mfsupportinfo and environment vars when error happens.All other program (also DLL) work fine....What can cause this error ?Thank..#rts198

I am trying to get the Net Express 5.1 WP8 package installed on our Windows Server 2012 VM and it continually produces errors when it reaches the step to update the Registry. I am signed on as an administrator, and am running the installation app as an administrator. I can manually run REGEDIT and do whatever I want to do in the registry (obviously being careful to undo what I do so as not to corrupt the registry.) I have read the post about this error on Windows 7 and have read the post referring to Server 2012 support back in 2013. Still no luck.Is there any help to be found? Thanks for any suggestions. Tom#64bitWP8installationerror

My Visual Cobol is running now! I try a most simple little program to run (display on the screen 'Hello World'. It seems to be running, but i can't see the text on the screen. Background on the screen is black of course, but my text is also black. With Help function i found out that there should be a screen section  in the Micro Focus extensions to Cobol. Can I use this Micro Focus extensions to Cobol and install it with mij Visual Cobol Personal Edition? Or, if this not is possible, someone a solution to display the text on the screen? Thanks, Hemmie

I am trying to connect to a database using net express 5.1 and the error returned is -1390 which means the DB2INSTANCE is not set.  However, it is set so not sure why we are getting this error.  Anyone face this issue?  We are able to connect on other terminal server but this one gives us this error.

Is it allowed to post potential Acucobol Job opportunities in this community

We are replacing our legacy Cobol security programs with a new Security System which runs as a Web Service. Working with legacy code, I have an unmanaged cobol subroutine (SUBR01) that is compiled as a GNT. This, in turn, calls a DLL (DLL01), registered as a COM object, written in C#, which calls another DLL (DLL02) which acts as a Web Interface to the Security System service. This way I have a nicely encapsulated way to call the Security System from any legacy Cobol program. The problem I’m running into is this: When I call SUBR01 from an unmanaged Cobol console app, it works fine. However, when I run it from a web program, also written in unmanaged Cobol, it hits DLL01 fine but when DLL02 tries to access it’s config file, it throws an error “System.Configuration.ConfigurationErrorsException: Configuration system failed to initialize ---> System.ArgumentException: Illegal characters in path.” It seems like the messaging between DLL01 and DLL02 is somehow getting garbled or corrupt

In a native cobol program, I'm trying to make a web request using the WinHttp.WinHttpRequest.5.1 com object.  The process works just fine if I'm sending text to the web site:            INVOKE WINHTTP "new" RETURNING WH.           IF WH = NULL              MOVE "WINHTTP Service failed to initialize" TO LOG-REC              WRITE LOG-REC           END-IF.                      MOVE "CALLING ESEC" TO LOG-REC.           WRITE LOG-REC.                      INVOKE WH