Rocket® COBOL

My list view is populated initially thanks to the forum.  I need to be able to select the the first line in the list view now and return the data so I know the SiteListNum.  The examples for the listbox on the forum don't seem to work correctly for me with list view.  Can anyone provide an example?  My code is below: *>PopulateListbox method       method-id PopulateListbox final private. local-storage section. 01 SiteList.    05 SiteListDesc  pic x(40)   value spaces.    05 SiteListNum   pic x(4)    value spaces. 01 indexOfSelection binary-long value 0. 01 row type ListViewItem. procedure division.     if ds-return = spaces        invoke listView1::BeginUpdate        perform varying idx from 1 by 1 until idx > 99            if lb-siteentry(idx) >

Problem: When connecting to a remote machine using RDP (Remote Desktop Protocol) and launching a Windows Service which contains a CBL_DEBUGBREAK, Visual Cobol for Visual Studio or Visual Cobol for Eclipse does not detect the CBL_DEBUGBREAK. Resolution: When the service encounters the CBL_DEBUGBREAK, it has to interact with the desktop to display the 'Do you want to debug' prompt. It does this by getting the user currently logged into the computers console, and interacting with that console. The remote desktop uses a separate session which is not the console window so the prompt is not visible. This is a limitation of using RDP to access the remote machine and there are 2 alternatives to get the CBL_DEBUGBREAK to work: For Visual Studio: In the Visual Studio menu, go to Debug > Start Debugging. This will then wait for you to run the Service and the application will attach as soon as it encounters the CBL_ DEBUGBREAK. For Eclipse: Start Eclipse as administrator and

Hello i am Giorgos, I have a problem with threads. Within my program1 i am doing some process and i would like in the meantime to show a window with "please waiting" message so the user to know that must wait. So i am doing a call "cancel" and the program1 calls the program2 that has the waiting window but there it is stays with no respond. what i am doing wrong?program1:*GRAPH-PRESSED-DO-IT.evaluate truewhen GRAPH-Pressed| Search-Pressed| search-button-pushedmove zero to thread-returnset done to falseCALL thread "Cancel",handle cancel-threadreturning into thread-returnend-CALLperform search-thru-recordsend-evaluate. .*search-thru-records.perform until doneif (thread-return = 99)set done to truestop thread cancel-threadelsePERFORM GRAPH-Ev-Cmd-Clicked* set done to true* stop thread cancel-threadend-ifend-perform.program2:*Cancel-Screen1-Ev-Cmd-Activate.* perform until cancel-button-hit* display Cancel-Screen1* end-perform.close window Cancel-Screen1-Handle.destroy Cancel-Scre

PROBLEM After converting Vision files from VISION 3 to VISION 5 format and copying the files to another server this error occurred. RESOLUTION The description for this error is 'A Vision 4 or 5 data segment is not found during an open' Ensure all the segments are available in the correct data directory, in this case the problem was a missing '.vix' segment.

I saw, that Update 2 for Version 2.2 is available; 03-Nov-2014. Why Micro Focus does not send a message referring to this?

Hello! I am trying to fetch some data from my remote server but i get SQLCODE -1 when i execute the Perfrom until * LIST-ROWS. MOVE "Fetch data..." TO W-BX-STATUS DISPLAY SR10 EXEC SQL DECLARE COBCUR1 CURSOR FOR SELECT C_NUMBER, C_NAME,| COLLATE greek_general_ci, C_BIRTHDAY, C_INFO FROM EL_SXEDI WHERE C_NUMBER >= 0 END-EXEC. EXEC SQL OPEN COBCUR1 END-EXEC. Perform until SQLCODE not equal 0 EXEC SQL FETCH COBCUR1 INTO :C-RECORD END-EXEC IF sqlcode EQUAL 0 MOVE C-NUMBER TO D-NUMBER MOVE C-NAME TO D-NAME MOVE C-BIRTHDAY TO D-BIRTHDAY MOVE C-INFO TO D-INFO MODIFY SR10-Gd-1, RECORD-TO-ADD = W-GRID-RECORD MOVE W-GRID-RECORD TO W-BX-STATUS DISPLAY SR10 end-if end-perform. EXEC SQL CLOSE COBCUR1 END-EXEC. MOVE "Fetch Complete..." TO W-BX-STATUS DISPLAY SR10 .#SQL#MySQL#database

PROBLEM Source code cannot be extracted from an AcuCobol runtime object. There is no Micro Focus functionality to support this task. RESOLUTION A request can be made extract source code from a Customer’s runtime object. Full details can be obtained from the Micro Focus Technical Services team.  

We are using a SQL Server Linked Server to access data in cobol files. It worked ok, until we decided to restart it using the following commands: del C:\\DATABASE\\CRPO\\XDBC_CRPO\\xdbc\\*.* /q call ainit -d C:\\DATABASE\\CRPO\\XDBC_CRPO\\xdbc call xdbcutil -c -d C:\\DATABASE\\CRPO\\XDBC_CRPO\\xdbc call xdbcutil -d C:\\DATABASE\\CRPO\\XDBC_CRPO\\xdbc -f C:\\DATABASE\\CRPO\\XDBC_CRPO\\xfd I did not get any errors when running the commands, but after this I was not able to get the data through the linked server anymore. I get the error saying:  OLE DB provider "MSDASQL" for linked server "MyServer" returned message "[TOD][ODBC Driver]Invalid USERID and/or PASSWORD". As you can see below, there is no password set for this ODBC connection. The driver we are using is version 8.01. The Linked server is configured like this: This is how it has always been and has worked. If I use XDBCQuery with the following parameters it's working to get data from the files using SQL syntax: C:\\Acu

I used to have a computer that printed via serial port and that computer died.  I now have my program on windows 7 and need it to print via usb.  Please Help.  Thank you for your time.#cobolnetexpress#windows7

We receive a lot of invoices in XML format from our suppliers. All have the header <?xml version="1.0" encoding="UTF-8"?>  and should be in that format.  Unfortunately some do not fulfill this format and have some fields filled with ASCII characters (not UTF-8 as it should be), including accented vowels á é í ó ú.   X”F3”  X”E9”  X”E1”  X”FA” etc. The Internet Explorer does not open/show the file due to this wrong codification.   My program has the ENVIRONMENT DIVISION. FILE-CONTROL. select factura-XML assign to ID-ARCHIVO-FAC                      file status is file-status-spec.   The program generally works very fine if the XML is encoded right and reads all fields. But if the READ statement tries to read such a malformed file, the status does not report any error code, but aborts the program with a 114 error code. What must I do t

I have a file greater than 1GB.If I rebuild it to MF8 it can be larger but when I subsequent updated the file it gets corrupted (9/041)Is it nessesarry to also use FILEMAXSIZE=8? How do I set FILEMAXSIZE för just one file. I have the same file in other subdirectorys that I do not want to affect? #extfh#filesize#netexpress

Hi folks, pardon my intrusion here, I just want to know if anyone knows if Visual COBOL PE, which as far as I can tell is only available up to 2.2 and not 2.2.1, will work in VS2013. I asked support, but they referred me to the Borland forum and told me the PE was handled there. I posted the question there, but no answer and the forum appears dormant as the last post was over a year ago. I would like to avoid installing VS2012 as I would need to uninstall VS2013, then install VS2012 and re-install VS2013 to keep things from getting mucked up, per MS. I'm assuming there is a reason 2.2 needed to be updated to support VS2013, but wanted to make sure before I jump through hoops. Thanks for any help someone can provide. Rob M.#VisualCOBOL#VisualStudio

We are compiling using Visual Cobol 2.2 with SQL embedded, and ProCobol Oracle. Everything was working fine until we include the copy: lixmldef.cpy. The Oracle Pre-compiler  gives us the next error: System default option values taken from: /SOFTORACLE/product/11.2.0/client_1/pre Error at line 4988, column 21 in file /MNG/DESA/VFUENTES/ATS/TIEN286.sks          MicroFocus.COBOL.XmlExtensions.MicroFocusCOBOLXmlExtensions. ....................1 PCB-S-00400, Encountered the symbol "COBOL" when expecting one of the following:    integer IDENTIFICATION ENVIRONMENT DATA PROCEDURE    WORKING-STORAGE LINKAGE END COMMUNICATION FILE LOCAL-STORAGE    REPORT SCREEN CONSTANT THREAD-LOCAL-STORAGE DECIMAL-POINT    REPLACE COPY <end of statement> EXEC EXEC_SQL EXEC_SQL_BEGIN    EXEC_SQL_END EXEC_SQL_VAR EXEC_SQL_INCLUDE EXEC_ORACLE    EXEC_ORACLE_ENDIF EXEC_ORACLE_ELSE The symbol &quo

Please click on this link to watch our video demo: https://bcove.video/2REfCMD   This applies to Server for COBOL also known as Application Server for Server Express. Ensure that you have set all your environmental variables; $COBDIR should point to the installation directory of Server for COBOL. Run the Apptrack utility to install runtime licenses. You can do this in two ways, depending on the version of Server for COBOL you have. Method 1 is for versions 4.0 or later: Invoke the command “mflicense” Select option 2 for Application Server License System You will then be shown what the COBDIR is set to, press Enter to continue Enter your password if one has already been setup. This will open the Apptrack utility Method 2 is for versions previous to 4.0: Invoke the command $COBDIR/aslmf/apptrack Enter your password if one has already been setup. This will launch the Apptrack utility. Once you have the Apptrack Utility opened, you are able to install a runtime license. Install

players.brightcove.net/.../index.html   Internet Option In order to generate a revoke key via the internet option, you will need to open the License Management System:   Start>All Programs> Micro Focus Net Express > Configuration > License Management.                         You will then need to select the product and product options that you wish to revoke. Click on the ‘Generate Revoke Key’ button and a confirmation window will appear.     Click the ‘Continue/Revoke License’ button to proceed A screen will appear with a greyed out request key. You must click on the ‘Internet’ option.     You will then have the option to Connect to the website but you must first enter your 5 digit order number/WO number which you should find in your documentation.   You will then be connected to the website and a screen should appear to inform you that your license has been revoked. This may t

If you have a concurrent license installed on a server but want to use this on other client machines, you will need to configure your machines to allow this. On the license server machine open the license manager by entering the following command:   /var/microfocuslicensing/bin   Then navigate to the following directory: ./cesadmintool.sh Select Option 3 (Advanced Configuration Options)                             Only the local IP address will be shown, you will need to add the hostname or the IP address of the license server. Enter Option 1   You will now need to add the hostname and IP address of the server machine. Please note, you will need to insert a colon between these values. Here is an example of this:   127.0.0.1:hostnameserver1   You will need to follow this procedure for all client machines on which you would like to use the license. It is very important that the information en

Revoking a license on UNIX With Internet access In order to revoke a license on your current or old UNIX machine you will first need to open the license manager by navigating to the following directory: /var/microfocuslicensing/bin/ Then you will run: cesadmintool.sh When opened, it will look like this:                         After ‘Enter Option’, enter ‘5’ for ‘Revoke Licenses’ then select the product you want to revoke from the list.   You will then be presented with a new authorisation code which you will use on your new machine. Without Internet access To revoke a license from your current or old machine without Internet access, the same process as detailed above should be followed. However, at the point of revoking the license, instead of receiving a new authorisation code automatically, you will need to send the file generated during revoke to Support in order for a new authorisation code to be generated. The

With Internet access In order to install a license on your UNIX machine, you will first need to open the license manager by navigating to the following directory: /var/microfocuslicensing/bin/ Then you will run: cesadmintool.sh After ‘Enter Option’, enter option ‘1’ Enter the 16 digit authorisation code which you should have received with your product or from a previous revoke and click enter.     To double check that the license has been installed or to check on the status of any other licenses installed, go back to the main menu and enter option 2 (Check License Status) Without Internet access If you do not have Internet access, you will have to authorise manually by either generating a license string yourself, or contacting supportline@microfocus.com to do this for you You can generate a license string yourself using the following link http://supportline.microfocus.com/activation/ Here, you will be asked to enter: Your authorisation code which you should either ha

Dear Sirs, We are having problem to execute the following in the command Line of Visual Cobol for Eclipse : cob -C "P (cobsql) end-c SQLCheck == SEMANTICS endp" Many Thanks,   PJM

Problem: You can enable Xcentrisity BIS tracing for an individual service program using the {{ Trace }} tag in an SRF file. However, it is also possible to globally enable tracing for all service programs. Resolution: You can globally enable tracing on both Windows and UNIX using the BIS_TRACE_SUFFIX environment variable. Below is an excerpt from the Xcentrisity BIS User's Guide: ------------------------------- 4.11.4 The BIS_TRACE_SUFFIX Environment Variable On BIS/IIS, the BIS_TRACE_SUFFIX environment variable and, on BIS/Apache, the BISTraceSuffix configuration parameter allows trace parameters to be injected into every trace statement. While this requires administrative access to the web server, this is useful for globally providing specific clients access to trace information. ------------------------------- On UNIX platforms, you can also configure tracing options using the "BISTraceSuffix" keyword in the "mod_xbis.conf" Apache configuration file. The

Problem: When you execute either the slicexsy utility, or, a COBOL program that implements XML Extensions, you receive an XML error: 12 - data item - not found. Resolution: The XML Extensions error 12 indicates that the COBOL program was compiled by an RM/COBOL Development System that did not have an XML Extensions Developer's license installed. In order to compile programs that employ XML Extensions, you have to install an XML Extensions Development license into your RM/COBOL Development System license vault. You can check the installed licenses for your RM/COBOL Development System by using the following command, executed from the "SupportTools" subdirectory of your RM/COBOL Development System installation: suptool1 productview If you do not see your XML Extensions license in the list generated by the "suptool1 productview" command, then, you can install your XML Extensions Developer license using the Liant License Utility(licverifyall).  Below is a link

Processing query parameters with an Xcentrisity BIS web service In order to view query parameters passed to your XBIS web service, you will need to add the following structure to your SOAP Request area of WORKING-STORAGE: 10 S--QUERY-PARAMETERS.   20 S--QUERY-PARAMETER OCCURS 100 TIMES.     30 S--NAME PIC X(50) VALUE SPACES.     30 S--VALUE PIC X(100) VALUE SPACES. For an example of how to do this, see the attached XBIS sample web service, queryparams.zip. To deploy the sample, extract the zip archive to the BIS "samples" directory. The one callable method, "getqueryparms", will return any query parameters that it receives in the URI. If you wish to test handling query parameters when generating a WSDL, then, you can turn on tracing in the SRF file. The BIS trace will contain display statements that print the received query parameters' names and values.

  How to remove a Server Express license from a development license database   To uninstall a Server Express development license, please follow these steps: 1/ Connect to your Shell window 2/ Change directory to the /opt/microfocus/mflmf directory. Note: Your mflmf may be in a different path 3/ Use the command ./mflmadm to start the License Management utility. 4/ Enter F2 or /2 to bring up the license entry screen. 5/ Put the serial number on the first line Note: Please include both letters and the sign at the end of your serial number if you are not using a Window machine. Example: 600000123456TG   6/ Tab to the next line and enter the full license key. Note: The fields are not case sensitive and you may enter the spaces or not as you choose. 7/ Press F4 or /4 to un-install the license. A message will show you that your license has been removed. 8/ Press F7 or /7 to refresh the license database. 9/ Press Esc then "Y" to exit. Note that with all versions of Server

  How to install a Development license Server Express   Development licenses control the use of the COBOL compiler. They are named "Server Express" licenses. Please follow these instructions to install your Server Express Development license to be able to compile. There are 2 methods to install it.   1st method (Preferred):   - In your Shell window cd to the mflmf directory, by default it is located here:  /opt/microfocus/mflmf - invoke the command:   ./mflmcmd - Select option 1. License Install   - Enter the Serial Number including the two letter and plus ' ' sign, and press Enter, example: 600000123456TZ - Enter the license key part of the license - press Enter (Ensure there are no spaces at begining or end) A message will show you that your license has been correctly installed:     To verify the license installation, please invoke the command 'mflicense' Select option 2. Application Server License System Press Enter

I'm looking at the example "Win Book - Windows Forms". It is an example of FORMS and CLASS work with in Visual Cobol. If I create another way of working with FORMS and CLASS would be wrong? I'm still doing tests.#formsclasswindows