Rocket® COBOL

This is a followup to a previous inquiry about the RMNET library routines: community.microfocus.com/.../10648.aspx In that thread I included a test program which I could have sworn worked on Feb. 14, 2014. But it doesn't work today, so I'm puzzled. My CALL "NetInit" statement is landing in the ON EXCEPTION block. We're running the static library build from acucob921pmk60st.tar.gz. My understanding back in February was that the static library build would include the RMNET routines, so we would not have to load the RMNET library by using the runcbl command's -y option. Obviously I'm missing something. Any idea what's needed to use the RMNET library routines from the static library build of ACUCOBOL 9.2.1 in Linux? Thanks!#RMNet#Linux#ACUCOBOL9.2.1

Hi, We are planning to use TFS to build & deploy our COBOL programs. As I understand it we need to install Visual COBOL on the TFS Build Controller (that will be a separate server) and have a valid Visual COBOL license for that server. But do we also need to first install Visual Studio on the TFS Build Controller or is it enough with the build system installed as part of the TFS Build Controller? Regards, Ingela#TFSBuildController#VisualStudio2012#VisualCOBOL

Greetings,   Does anyone know of a way to programatically read the dimensions of a jpg image in Cobol? Preferably straight from Cobol but if you are aware of a an activex that would be ok too.   Thanks, Steve

We have a lot of old code that doesn't properly initialize working storage variables and we are getting strange results in our numeric fields.   I was hoping to use a compiler directive to accomplish the initialization.   I am compiling at the command line and compiling into INTs.   I came across the INIT-BY-TYPE compiler directive that seems like it should do what I need, but I am having trouble getting it to work from the command line. My current compile line looks like this: cobol prog1.cbl int() REMOVE"CONTROL"; I've tried including  the INIT-BY-TYPE directive but I keep getting errors.  How do you include this directive on the command line?

Hello, We are currently running an ASP.NET MVC site that connects to a COBOL database through ACUGT. We are using ACUXDBC 8.01 drivers. The machine with the ASP.NET site is on a machine that has Windows Server Standard 2008 with SP2, IIS 7, 4 GB of RAM. About twice a day the website stops working for one of the 2 reasons: We get the error that says “System.Runtime.InteropServices.COMException (0x80080005): Retrieving the COM class factory for component with CLSID {BFBBB600-C4DB-11D2-B11B-74F606C10000} failed due to the following error: 80080005 Server execution failed (Exception from HRESULT: 0x80080005 (CO_E_SERVER_EXEC_FAILURE)).”, where we have to restart the server IIS gets the processor to 100% and we have to stop the process and everything gets back to normal. Has anyone encountered this problem and solved it? Below is the config section for ACU. Thank you #AcuXDBC#ASP.Net

Problem: Customer has a Visual COBOL managed .NET application which uses OpenESQL with the DBMAN=ADO directive set. The application declares a cursor that returns a large number of rows. When the cursor is opened and the rows are fetched the performance is very good but when the CLOSE statement is issued for the cursor it can take several seconds to return. What is causing this slowdown and how can it be improved? Resolution: This type of behavior can occur if you are defining a forward only read only cursor and only the first few rows are being read, ie a large number of rows are being left unread at close time. This is a scenario in which SQL Server is known to perform badly. The reason is in the design of the TDS protocol which returns the entire result set in a single response with no easy way for a client to stop the flow of rows from the server, so typically the provider will just sit in a loop discarding rows that the application doesn’t need. There are two possible w

Problem: Customer has a Visual COBOL application that uses Oracle's Pro*COBOL product to access their Oracle database. When they compile the programs they use the directive INITCALL"ORASQL11". This will cause a CALL "ORASQL11" statement to be inserted into the beginning of the program in oder to load the Pro*COBOL run-time system orasql11.dll. This works fine in 32-bit but when compiling for 64-bit and using the 64-bit version of Pro*COBOL the application is failing with a RTS 114 error when it is run. What is the problem with 64-bit? Resolution: It appears that the 64-bit version of the Pro*COBOL run-time system does not contain an actual entry point called ORASQL11 whereas the 32-bit version does. When a CALL statement is executed for an entry point that is not loaded the .dll with that name will be loaded automatically and then the entry point with the same name will be called. If there is no entry point with that name then the entry point with the

Problem: Customer has a managed .NET application that calls the external file handler directly through fileshare by doing:     CALL "FHREDIR" ...This works fine when compiled to a target platform of x86 or x64 but when the platform is set to AnyCPU the program will report an invalid format exception error when the CALL statement is executed. Why does this occur and is there a workaround for this? Resolution: The problem is that the FHREDIR assembly does a p/invoke to call in the required native code CCI modules. The CCITCP.dll (or anything that is platform invoked) is loaded from the system PATH. So, if the project is AnyCPU and is executed on a 64-bit machine then you would need to run it from a 64-bit Visual COBOL command prompt or at least make sure all the required 64-bit native DLLs (ccitcp.dll and mfcrptlib.dll in this case) are on the PATH or in the current directory. The 64-bit versions of these files are found in the folder: C:\\Pro

Problem A program that used to run fine under Net Express has been recompiled using Visual COBOL.The program uses OpenESQL to do a EXEC SQL OPEN on a declared cursor and then proceeds into a loop that fetches each row from the cursor, potentially updating that row and executing an EXEC SQL COMMIT. In Net Express this worked fine but in Visual COBOL the commit statement appears to be closing the cursor because the next fetch after the commit results in a sqlcode = -10000 Function Sequence Error. What can I do to fix this?  Resolution: In Net Express the default setting for the SQL(BEHAVIOR) directive was UNOPTIMIZED while in Visual COBOL the default is now MAINFRAME. When BEHAVIOR=MAINFRAME is used the default cursor handling is to close a cursor at the end of a transaction, which is signaled by a COMMIT or ROLLBACK. To change this you can set BEHAVIOR to either UNOPTIMIZED or ANSI and the cursors will no longer be closed. An alternative to this is to use the WITH HOLD ph

While installing Micro Focus Visual COBOL for Eclipse, I had to un-install.  Now I am trying to re-install and I'm getting the following error; :This application requires Micro Focus License Administration.  Please install Micro Focus License Administration and then run this installer again.". So where can I get the License Administration?  Anyone have the link? Thanks.  Bill#Installation

Problem :   With cobimtk or Net Express or Enterprise Server , is it possible to modify the Enterprise Server Run-time Environment ?   Solution:   With the option esruntime of imtkmake it is possible to define the Enterprise Server Run-Time Environment. The value of this option is the path of a xml file . The xml file is created by cobimtk with the extension rtc , and can be used with imtkmake . The following is the   text of the xml file : <?xml version="1.0" encoding="UTF-8" ?> <mf:application_configuration    xmlns:mf="http://xml.microfocus.com/schema/appconfig/v1.0/mfappcfg.xsd"    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xsi:schemaLocation="http://xml.microfocus.com/schema/appconfig/v1.0/mfappcfg.xsd http://xml.microfocus.com/schema/appconfig/v1.0/mfappcfg.xsd">    <mf:envvars>    </mf:envvars>    <mf:sw

Problem : The DISPLAY-OF function with a class national returns an incorrect string. Solution: The DISPLAY –OF function uses the value of the environment variable $LANG to define the character encoding of the returned string .   Example : $LANG=en_US.utf8   DISPLAY-OF   returns   a UTF8 string     $LANG=en_US.iso885915   DISPLAY-OF   returns   an   ISO   string    

Problem: How to create statistics collections of holding licenses for deployment under Windows?  Resolution: The following script file displays the collection. The parameters are: apptrackstat.bat  nnn mmm   where:  nnn = the number  mmm = the period in seconds   **************apptrackstat.bat******************  for /L %%i IN ( 1 , 1 , %1 ) DO ( apptrack batch 2 sleep %2 )   Please note, to run this script, it is necessary to install the freeware file sleep.exe which is available for download from http://www.sleepcmd.com.

Problem: Using Oracle 11 client, when executing an application, error RTS173 is displayed when calling the SQLGLM function. Using Oracle 9 client, the application works fine. Resolution: The SQLGLM function is used to obtain the full text of an Oracle error. With Oracle procob version 8, the call via the CALL verb of the DLL was inserted as the first instruction.   With Oracle procob version 11, the call via the CALL verb of the DLL is inserted before the processing of the first SQL CONNECT instruction.   In this case then you must: EITHER -       insert CALL 'ORASQL8' before the call OR -       compile with directive INITCALL (ORASQL8.DLL)

On this .... Before you start To run the demo you need to install the following: Visual COBOL for Eclipse for Windows, R4 Update 2. AndroidForCommunity AddPack – downloadable from SupportLine (Visual COBOL AddPacks section). No more There In SupportLine.....Can you help me please ???? The Android SDK (available from Google, here) The Android Developer Tools (ADT) for Eclipse. Follow the instructions here. Once you have all these installed, you need to install at least one Android platform in your SDK – the one you need to run the demo is for API Level 8. To do this, open the Android SDK Manager, and download the Android 2.2 (API 8) SDK Platform.  The SDK manager shows the SDK Platform for all the Android APIs released so far, but by default the only platform actually downloaded will be the latest one. Select Android 2.2 (API 8) SDK Platform and Samples, and click the Install Packages button. You also need to create a new Android emulator (or Android Virtual Device

In order to resolve this error, you need to execute the following command in your shell: export CLASSPATH=$COBDIR/lib This will allow cobsje to locate the requisite Java class libraries.

how would i add encoding information using the C$XML call in acucobol 7.2. I understand that version 8 onwards has the SET_ENCODING op.

Hello, I would like to insert a picture into a EXCEL CELL. I found a thread in this forum that explains how to insert a picture into an excel sheet :    create application of excel handle in hexcelapp    modify hexcelapp @SheetsInNewWorkBook = 1    modify hexcelapp workbooks::add() giving hexcellibro    inquire hexcellibro worksheets::item(1) in hexcelhoja    modify hexcelhoja Pictures() giving hexcelpictures.    modify hexcelpictures insert("c:\\iconta00\\infco.bmp")    giving hexcelpicture.    modify hexcelpicture @height = 150.    modify hexcelpicture @width = 285.    modify hexcelapp @visible = 1   destroy hexcelhoja   destroy hexcellibro   destroy hexcelapp but it is not enough for my needs. I need to bind a cell to an image through its path. Please, can you help me ? thank you very much, regards.

Good morning, our customers, for privacy reasons, do not want to give the account to access the database with sensitive information. Our batch COBOL applications (no cics) are accessing the database with odbc using this statment like this:   EXEC SQL    CONNECT TO :WS-DB USER    :WS-USER USING    :WS-PASSWORD END-EXEC. The values of these variables are taken with the cobol command: DISPLAY "HPASS" UPON ENVIRONMENT-NAME ACCEPT WS-PASSWORD FROM ENVIRONMENT-VALUE   Our customers do not want to put in a ENVIRONMENT or into a script file. there are alternatives? thanks... #ODBCESQL

Hi, Can anybody help me out in getting this query to work? I've tested it on the sql command line and it works perfectly but when I try to run the project it produces that error in the post title, I am using Oracle database.        accounts-balances-totals.            set customer-id to type Int64::Parse(report-term::ToString()).            exec sql declare accounts_totals_balances dataset cursor for                 select credit_account as account_id, sum(credit) as credit_balance, sum(debit) as debit_balance, sum(credit) - sum(debit) as balance                 from                 (          &nbs

When a webform calls a COBOL program with a hexadecimal value in it, the website is able to compile but when it runs it throws a runtime exception on the CALL statement. Example webform codebehind:          class-id _Default is partial                 inherits type System.Web.UI.Page.                         working-storage section.             method-id Page_Load is protected.        local-storage section.        procedure division using by value param-sender as object                                   &

I'm having challenges with printing using spooled printers on okidata dot matrix printers (using US Fanfold paper) in a windows environment.  Inkjet/laser printers seem to work perfectly so I've been focusing on the print driver and emulations.  It took me a while to find a windows 7 driver-Epson fx series 1(136) that would support the utility draft print but the length of the page is 9 lines to long per page.   I'm determining the page length by setting wprtdata-std-font = 1, then calling the "winprint-set-std-font", followed by a call to "winprint-get-page-layout" to determine the columns per page and page length.  Before setting the font, i'm using the winprint-set-printer-ex to set copies, current-page size, etc.  For inkjet printers, this work exactly as I would expect when doing page advance (top of each page lines up with the previous) but the okidata page length doesn't seem to match the paper selection setting but looks correct in the program.   &

We are converting our code to the newest 9.2 version of Acu products and have ran into an issue.  We have a grid on one of our screens that has a column's data-type set to U(04).  In the previous versions this would convert data entered into that column to upper case.  It seems that in the 9.2 version this no longer works.  Has anyone else had this issue?  I know that I can program around this but should not have to do that. Thanks for any help.

We have a program that creates a form letter using Microsoft Word, what we need to do is add a image to the header section of the letter.   I have tried all that I can to make this happen but can't seem to find the correct logic.  Below is a snip of code that I have made work to add an image to the top of the letter but this is NOT in the header section as I need it to be...Thanks for any help!            MODIFY  wrdSelection     Goto(wdGoToLine, wdGoToFirst).           MODIFY  wrdSelection     ParagraphFormat::Alignment =                   wdAlignParagraphCenter.           MODIFY wrdDoc  Shapes::AddPicture(           &nbsp

Is there a way in visual cobol to do the following? public Boolean CheckIsInt (string passedString, out Int32 returnedInt) {      return Int32.TryParse(passedString, out returnedInt); }#TranslatefomCtovisualcobol#VisualCOBOL