Rocket® COBOL

The demo program delivered together with Netexpress 5.1 “Micro Focus\\Net Express 5.1\\Examples\\Dialog System\\CLASSLIBRARY\\Pictures\\Images.App”  works pretty well and shows immediately after  SCREENSET-INITIALIZED the previously defined .JPG .GIF or .BMP image.   After adding to the program             MOVE “next-image.jpg” TO IO-Text-Buffer             MOVE "SET-PICTURE" TO Call-Function             SET OBJECT-REFERENCE-x TO IMAGE-REF             CALL "IMAGECTL" USING  DS-Control-Block.   Data-Block            PERFORM Call-Dialog-System I can show one image after another. But due to the fact that at the beginning of the program I don&rsqu

 Hi, I installed new virtual PC for Visual Cobol testing - Windows 10 Professional, Visual Studio 2017 Professional, Visual Cobol 4.0 trial 30 day. I am not able to load any solutions from Sample Micro Focus directory (e.g. WinHello.sln). Visual Studio loading solution, but does not finish the operation and freezes. I have to use Task Manager for kill it. I am not even able to create a new project based on a cobol. (creating solutions ..... and nothing happens). What is wrong? Can you help me? Regards Petr MFSupportInfo_5F00_Log_5F00_DESKTOP_2D00_U1M9VSR_5F00_2018_2D00_06_2D00_25_5F00_02_2D00_23_2D00_15.xml

Hi! I just installed Visual COBOL for Personal Use, and I cannot create a new project or open an existing one.  It just says "preparing project" and doesn't do anything else. I have to ctrl alt delete and run task manager to get the program to stop.   I am currently using Visual Studio 2017 Community Edition version 15.7.4 & Visual COBOL 4.0 version Version 4.0.00243 I had a real bugger of a time trying to get this to install.  Once the Visual COBOL was installed, the only way I could get it to show up in visual studio is by following the directions on this web page: https://www.microfocus.com/documentation/visual-cobol/VC30/VS2017/GUID-391926CC-0991-4E0F-B0F3-9249B0FDB691.html   Anyone know what can be causing the Visual COBOL not to work?  I've already tried uninstalling and re-installing both the Visual Studio and the Visual COBOL, and I am still getting the same issue.#Installation#VisualCOBOL

 It seems to lock up the called screen when using "96" until I exit out of that called program. Tried using C$SYSTEM XXXXX FLAGS. (Flags has a value of 1) Tried using C$SYSTEM XXXXX 1. Tried using C$SYSTEM XXXXX CSYS-ASYNC. None of these work when trying to use C$SYSTEM (Seems to work like a ENTER key)What am I doing wrong?

We setup a new system which is running Extend v10.2 on Windows 2012 R2 and connect to SQL Server 2014 by Acu4GL. However, it returns "[DBNETLIB]: SSL Security error" when opening table in database server. After checking, it may relate to the SQL Server has enabled TLS 1.2. So I would like to know does Acu4GL v10.2 support TLS 1.2? If it is support, is there any configuration variable to make it work? Regards,   Bobby#TLS1.2#Acu4GL

Trouble with C$SYSTEM Here is a C$system failure screen along with the actual string I am using. (AX-QUE) Works fine in other programs. Any idea?  

Problem: Running a native COBOL application over the network with COBOL Server 4.0 or 5.0 works fine the first time. Any subsequent runs fail with the following: Execution error : file ''error code: 244, pc=0, call=1, seg=0244 Licensing initialization error Resolution: This issue is resolved in release 5.0 Patch Update 9 and higher. The workaround is to add the following entry in the run-time launch configuration (.mfcfg) file: SETENV MFCES_INIT_LOCATION=\\\\ServerName\\MicroFocusSrv\\Bin\\ces.ini where Servername is the name or IP address of the server and MicroFocusSrv is the network share name on the COBOL Server 4.0 or 5.0 installation folder.

I'm running into an issue with a combo box and the mouse scroll wheel. Even if another field on the screen is currently selected, the user moving the mouse scroll wheel while the cursor is over a combo box, its value will change and I haven't been able to keep it from happening. I thought that an Event/Exception "Other" procedure might catch the prev/next-wheel events documented for a paged list but those don't seem to be raised and I don't see a W$MOUSE option for it either.  Was wondering if anyone has run into this before or if there is a work around I'm not thinking of?   Thanks,#mouse#wheel

Trying to change from printing in Unix to printing in Windows.  Using BIS and XML so can not use dialog boxes as the XML suppresses them.  Does anyone know how to assign the windows printer through the cobol program?#wearetryingtoprintdirectlyfromtheBISserviceprogram.

Hi All, I need your help again guys i have a indexed file here Called "CalledProgs", this file stored Program names now i am required to write a program that will loop through all these program names and search for program names stored in each.  Don't be confused these program names also contained different program names stored, i have written a code here below which i used to retrieve these names from an input file called Mainmenu.cbl. now i am required to continue with this code by means of reading this indexed file with was an output file when i was calling for the program names.  now i am tasked to read from each program name the program names written on it and Add to the same output file "CalledProgs". i hope its clear, below is the program i used to retrieve these called program names that are in the output file.     PROCEDURE DIVISION. *===================* *---------------------------------------------------------------- DECLARATIVE

We currently have clients running an RM Cobol runtime (ver 12.05) and clients running BIS (ver 12.01).  Processing speeds vary greatly between the two when running reports and long processes.  Our end-of-day processing on larger clients can take up to 15 mins in the BIS environment but the same programs executed thru the RM Cobol runtime can take up to 2 hours.  Does anyone know why this happens and what, if anything, we can do to speed up processing in the runtime environment?#RMCobol#BIS

I am trying to create oracle database tables from acu4gl vision files using cobol and .xfd files How do I setup the naming conventions to differentiate the vision file from the database table name.  Do I need to create 'another' set of .xfd files?

Team,   We noticed, Batch region ESMAC console is not able to accessing some time and during that time workaround we have killed the SEP admin process id's after that its working fine. But we need to know the permanent solution for this issue.  This is for Enterprise Server. kindly help us.  

I searched and searched for how to invoke something like ToString or Trim on a form object in Visual COBOL and did not find anything.  In my testing I found that the "::" works for "dereferencing" in Visual COBOL much the same way that "." works in Visual Basic.  To create a string the has a button in it, I can use this statement:  MOVE "Button name = [" & btnMenu::Name::Trim & "]" TO WorkString.This will result in "Button name = [My Button]"A numeric property value can be converted to a string using ToString.MOVE "Button name = [" & btnMenu::TabIndex::ToString("0#")::Trim & "]" TO WorkString. However, currently with version 4, while this works for the MOVE statement, this cannot be used inside a STRING statement.#method#VisualCOBOL#Reference#.net#dereference

Hello guys! I have a newbie question... I want to create a OK/Cancel message Box in visual cobol and I am stuck... All I want is to return a condition value (when I press OK return true and when I press Cancel false). The main cbl will recognize the value and do the other things. I have to create the messagebox from scratch?

When you try to install a license for Server Express or Server for COBOL and you get the error 'Product/version not found in PRODFILE' it means that the PRODFILE has become corrupt or is an old version and does not include the full product list.  You need to cd to $COBDIR/aslmf - cp PRODFILE PRODFILE.old- vi PRODFILE and delete all the contents of the file- Copy and paste the below in to the empty PRODFILE ans save it. =============PRODFILE================ Server for COBOL 040 001Server for .Net 040 002Server for SOA 041 001Server for Enterprise Edition 041 002Server for EE (CICS) 041 004Server for EE (JCL) 041 008Server for EE (CICS,JCL) 041 012Server for COBOL 003 001Server for COBOL 64-bit Edition 003 010Server for COBOL 003**011Server for COBOL 006 001Server for COBOL 64-bit Edition 006 010Server for COBOL 006**011Server for SOA 005 001Server for Enterprise Edition 005 002Server for EE (CICS) 005 004Server for EE (JCL) 005 008Server for EE (CICS,JCL) 005 012Object

Hi, We have installed the 64-bit relativity (ver 12.10.2015.304) driver on our Windows 2012 R2 machine running SQL Server 2012. In SQL Server, we have linked to the DB using the MSASQL provider and while working we are having problems where numeric fields are being truncated. As an example, the following query returns 14.00 where the result should be 14.45 select *FROM OPENQUERY(test, ' select orderno, LineNo, str(UnitCost ) from oslines where orderno = ''H21234'' and LineNo = 1 ') The same driver works great in SSIS so I know the ODBC is ok, it's just the SQL Server. I'm hoping its simply a configuration issue but I've fiddled with the available settings I could find to no advantage. I'd be grateful if anyone had any tips! Thanks, Scott#relativityodbcsqlserver

We've got Micro Focus to transform our COBOL code to the managed code and leverage it. For deployment, I was wondering that is it anyway to prevent us to install the whole Micro Focus on the Host machine and just using the dlls. This question is also for setting ADO connection instead of using GUI to set it up,

Problem: On Linux/Unix, a COBOL program can call a C function within a library using INITCALL, but on Windows, it gives error: 173 Called program file not found in drive/directory. Resolution: INITCALL loads the dll/so, but it needs to know what entry is being called within it.  One way to achieve this is by having the same entry name as the binary module itself.  However, there might be several entries in the dll/so that would need to be called separately. In this scenario, INITCALL behaves differently in Linux/Unix compared to Windows. When the entry and the shared object name are different, on Linux/Unix, the entry can be called by using the "-e name" flag at compilation time. On Windows, if the Cobol program cannot find an entry with the same name as the dll/so, the first entry in ordinal position is called. To change this behaviour, any entry within the dll that is to be called by COBOL must be exported. For this, a .def file must be created for the dll containing the

Using Netexpress 5.1 with a Dialog System proyect I use a List View Box. When I compile my main program with 78  dialog-system                   VALUE "DS".     *> = debug everythink works as expected. The Event  "USER-EVENT" works properly and detects perfectly the conditions SELECTED, ACCEPTES. Of course I must always clic on the Debugg Box "CONTINUE" If I make the only Change in the main program 78  dialog-system                   VALUE "dsgrun". *>NO debug and everything else exactly the same, the USER-EVENT is no longer detected and all the involved instructions are not executed. Any idea what else must be changed? Thanks for any help.

In attempting to do a sample web example I get the following errors for the following code. In case it tough to read, the error says; COBCH1 Type _Default has no member name 'Contect'  Thanks John...   

I have an issue with loading a JSON string from a webserver.   Loading of a JSON string via the linkage area is not accepting the string as input   for example,  the following call is sent   GET /ssi/1.0/validationIdList?endClientType=SSI_egm&endClientId=ABC_123&configurationId=1235813&validationListId=1347118&numValidationIds=5&valIdListExpired=false HTTP/1.1Accept: application/jsonAccept-Charset: utf-8   I am not sure how using XBIS i can accept the above string as input into a cobol program (fields in BOLD) and use the relevant parameters as part of input to read files etc   Any information would be appreciated#linuxcobol#XBIS#JSON#RMCOBOL

It is posible that I must have payed maintenance for transfering program to new computer ? I need response key for activation of Net Express 4.0 but technical support will not do it without maintenance. So if my computer tomorow crashes I can not install program I have payed ???#license#Maintenance#netexpress

Is anyone else seeing problems caused by Windows 10 PC's installing the latest (May 8, 2018) updates?  We have multiple sites reporting issues with multiple PC's after installing the May 8th updates.  Specifically they are unable to communicate with AcuServer (we use the default port 6523).  They are also unable to use a few programs included in our application software that communicate with corresponding programs on the server using the C$SOCKET library routine included in AcuCobol.  One client first reported it on one Windows 10 PC that updated, then two days later, same problem on another PC, and now a 3rd PC.  Another client reported all 3 of his Windows 10 PC's updated on Friday and then these were no longer able to use C$SOCKET to "talk" to the server starting Monday.  Another client using AcuServer for their data file traffic reported their Windows 10 PC updated last week and was immediately unable to use our application due to

How to work with Datagrid on the WEB and the column should be defined as an image. The image will be brought from the database (.DAT). I use Microfocus Cobol with Visual Cobol and use native database.   I tried ... but something is wrong   In .ASP, I wrote this code   <asp:TemplateField HeaderText="Foto">    <ItemTemplate>             <asp:Image ID="img" runat="server"             ImageUrl=<%#Eval("wfoto") %> Width="100px" Height="100px" />          </ItemTemplate>    </asp:TemplateField>        In .asp.cbl (COBOL), this one       declare Dt as type System.Data.DataTable    invoke Dt::Columns::Add("wfoto",type System.Type::GetType::ToSt