Rocket® COBOL

We have a .NET DLL that we use from our regular application without issue (using wrun32 on Windows).When we try to access it from the same program run with the console runtime (crun32), it throws a memory violation.I'm guessing the console runtime doesn't support calling a .NET DLL - can any Acu guru confirm that for me?(Using 9.1.2.1 Windows runtime).ThanksTony

We have received a file that was created on an IBM system using the IBM CPYTOPCD command, Translation table = *NONE, Format of PC data =*NOTEXT. Our information indicates that this command copies a system database file to a PC Document. The file is created on a QSYS file system on an I Series IBM. The output file is iin EBCDIC and containes TEXT, ZONED, and PACKED data, mixed in each record. We are able to convert the TEXT and ZONED data just fine but can not get accurate data out of the PACKED data.The PACKED data is defined in the file layout document as PACKED 9 2We define the data as PIC S9(7)V9(2) COMP-3. in our input record and as PIC S9(7)V9(2) SIGN TRAILING SEPARATE.In the PROCEDURE section, we do the following: ADD "PACKED ITEM NAME" TO ZERO GIVING "TEXT ITEM NAME"We get a "good" number and sign but the number is not correct.An example: Display of "PACKED ITEM NAME" = 27??6.71, Display of "TEXT ITEM NAME" = 2856.71. The expecte

We are upgrading from RM/COBOL v10.1 to v12.17 and Windows 7 to 10.  This functionality worked prior to the upgrade.I have a pair of program that I need to debug.  I've compiled both with debugging on.  Program A calls program B using WINEXEC:40920    STRING '"' DELIMITED BY SIZE40920                    RMCOBOL-PATH(1:PATH-INDEX) DELIMITED BY SIZE40920                    '\\RUNCOBOL.EXE" B A="A' DELIMITED BY SIZE40920                    PNF-EMPLOYEE-ID DELIMITED BY SIZE40920                    PNF-FAMILY-MEMBER-ID DELIMITED BY SIZE40920                    '" L=' DELIMITED BY SIZE40920                    RUNTIME-PAT

We need to update LCSNAME due to the way we're having to do our upgrade.  Unfortunately, we only have the binary .cob file.  Does anyone have the source or a way to decompile the .cob file?I appreciate any assistance,Linda Praed

I installed RM / COBOL Runtime Version 12.17 on Suse Linux Enterprise Server 15 and when running runcobol it gives the following message "runcobol: error while loading shared libraries: libncurses.so.5: cannot open shared object file: No such file or directory" .Suse Linux Enterprise Server 15 contains the following libraries:"./lib64/libncurses.so.6./lib64/libncursesw.so.6./lib64/libncurses.so.6.1./lib64/libncursesw.so.6.1 "Is there any RM / COBOL Runtime update or is it not compatible with Suse Linux Enterprise Server 15?

I have a Visual COBOL project that uses DB Connectors.  In my project, my programs ALSO read and write to files that are NOT in my SQL database. My question is where or how do I setup the path so the programs and find those files?In RM/COBOL we have the RMPATH, is there something like that with Visual COBOL?

I am trying to use the Environment Statement to replace the Old Wang Putparm VSSubs. Here are the statements I am using. SET ENVIRONMENT compcod to "DB" in the program AR07.txt.  Here is the other ENV. ACCEPT COMPANYCODE FROM ENVIRONMENT "COMPCOD" in AR0710.txt.When I run the programs Companycode is blank not "DB". I must be doing something wrong but what? Any reference to a Acucobol Manual will help. I have included the programs and just search for compcod and companycode AR07.TXT

We are moving from  Net Express (32-bit)/Server Express on HPUX (64-bit) to Visual Cobol on Visual Studio 2019 (32-bit)/Development Hub on HPUX (64-bit).We decided to have 64-bit solutions and targets in Windows to match our target platform. Our initial experiences show that in some areas Visual Cobol is significantly slower than Net Express. The question was raised if there is a performance hit using 64-bit solutions for things like debugging and building?We have to move source code and compile this with Dev Hub to get an executable on our target platform. So are there downsides to using 64-bit in Windows when Visual Studio is 32-bit that should change our decision to go with 64-bit projects, or is this a moot point?

HelloI need to edit a resource file from Netexpress 5.1 in Visual Studio 15 Visual Cobol 4.0.Help says:This release does not support the Visual Studio resource editor and the resource-definition script (.rc) files that you use in your COBOL projects can be opened only in code view.It is recommended to use other applications to edit resource-definition script files.Which resource editor can you recommend? The resource file editor of Visual Studio C does strange things.Regards,

I am trying to "Wean" off our programs that use the old Wang VSSUBS. These VSSUBS were created by Unicon years ago when we converted our programs form Wang to Microfocus. This one is "PUTPARM". This will basically create a Temp Area (Value = COMPCODE) that then can be accepted into other programs. I have included AR07.TXT that will create\\change the putparm value and here is the portion of the program that has the accept in it.  CALL "ACCEPT" USING"COMPCODE" COMPCODE.Any Ideas?

This article explains an ASLM message received when a shared memory has been modified by an outside entity. Problem: Applications involving Oracle and Tuxedo, have been  historically vulnerable to an ASLMF shared memory problem. After upgrading  to Server Express 4.0 applications can fail with the following error message: ASLM: A shared memory area used by Apptrack licensing has been corrupted or deleted, and your system will need to be rebooted. This message is different than the historical error message "ASLM:shm open failed error code 1025" but still means that ASLMF's shared memory was modified by an outside entity. Resolution: If the error persists under Server Express 4.0 further investigation will be required, however you should check: Tuxedo administration/support team using "ipcrm" command to forcibly clean the hung processes.Be sure to examine Oracle, Tuxedo, and system administration practices to find the outside entity

Our application runs on Windows server using AcuGT version 9.1.2.1, with Windows clients.  We are using Vision files, and now have some customers requesting the ability to do real-time hot backups (real-time server replication of data).Since Vision files do not support VSS, we are considering two options:1) using SQL database instead of Vision files - this is a fair amount of work, and requires new knowledge for our developers and support team, as we do not use SQL today for any applications.  Our testing has also shown a performance hit with SQL, which makes sense but could become an issue in large customer sites, which of course are the ones most interested in a hot-backup solution.  We do file updates automatically as part of our software updates today, adding SQL tables makes this more complex, especially when adding VSS replication.2) creating our own "replication", by creating transaction files for each record update in critical files, which would be proc

How easy or difficult is it to take advantage of modern COBOL? #VisualCOBOLUniverse2020

Did you convert COBOL to Java?#VisualCOBOLUniverse2020

Probably a Easy question.How do I stop this side screen coming up when I enter some code.       

My Microsoft Office froze up this morning, and I tried a cure that involved disabling all services except Microsoft and then restarting the computer.  It fixed my Office problem, but I fear it clobbered my Micro Focus COBOL.  (I've got Windows 10 pro).When I tried to start COBOL, I got "The Micro Focus CES daemon is not running."  But when I looked at my Programs and Features, I found four Micro Focus entries, but nothing about a CES daemon.See screenshots in the attached "Article.docx". Your help will be greatly appreciated  #CESdaemon

I am using Microsoft Visual Studio Community 2019 Version 16.7.3. I am able to "Step Into" "F11"  with no problem. But if I choose to "Add Watch" (see screen shot) on a variable, my environment freezes up. I have included a screen shot of my Debug Options. I really need this option in order to debug my program. Debug Options.PNG

Below are the relevant parts of a program for printing to my PC printer. I am running Windows 10 and Visual Studio. The program prints the "howdy" line, but if don't call  "PC_PRINTER_REDIRECTION_PROC"  the printer does not print "howdy"I thought the main purpose of the "PC_PRINTER_REDIRECTION_PROC" call was so you could get the printer handle and do things like set the font - have not seen anything saying that you have to do the call. What am I missing?I can comment out the call to set the font in "SetFont" and it still prints.------------------------------------------------------------------------------    Select PrintFile assign to printer            organization is line sequential            file status is file-status.    FD PrintFile.    01 PrintRec pic x(80). 

Hello,i wrote an dll (c )im calling this dll in this wayCALL "@[DISPLAY]:X:/xxx/xxx/xxxx/xxxx/xxxxxx.dll"MOVE ZEROES TO pValueMOVE ZEROES TO CPOINTCALL "@[DISPLAY]:function"USING BY REFERENCE pValueBY REFERENCE MyStringGIVING RETURN-CODEEND-CALLIm getting the right return code but the variables pValue and MyString are empty.

HiI need help creating a server program running under Xcentricity BIS that:- Receives a POST message from a client fx Postman.- Reads the header- Saves the body received to a file - og pass the body to a sub-program.- Call a sub-program that reads the body and creates a reply in a file- The server program reads the reply from the file and sends the data to the clientWe already have this program, using C$SOCKET – so we need another program doing the same with xbis.

I would like to get the items that the user has selected from a Lis tBox. I tried the following:move ListBox::SelectedItem::ToString to STR-ITEMThis code works well if the 'SelectionMode" property of the ListBox is set to 'One' but this however, constrains the user to only pick one item from the List Box. I have set the  'SelectionMode" property of the ListBox  to 'MultiSimple' in order to allow the user to pick more than one item. But setting this property sems to only return the first item selected when I use the code above. I tried retrieving  the index using the following code:move lst-GROUP-PROFL-TBL::SelectedIndex to THE-IDX-2.But this too returns only the first item that is selected in the list. What I basically need is to retrieve all the items that the user has selected in a list box either by their string text or by their index and then store them in a table. For example, if the user chooses items 'January' 'Februar

I have the following table declared in my WinForm 01 TABLE-NUM OCCURS 5 TIMES. How do I load TABLE-NUM into my ListBox?For example, my Table has the following :TABLE-NUM(1) = “1”TABLE-NUM(2) = “2”TABLE-NUM(3) = “3”TABLE-NUM(4) = “4”TABLE-NUM(5) = “5” I want my List Box to display the Table data from which the user can select an entry as follows:12345

  When setting your Display setting to above  100% Paged Grids and Paged Boxes were not being displayed properly.  Rows at the bottom were being cut off. Solution: Windows 10 has remedied this situation. Windows 10 automatically adjusts the font needed to render your display appropriately, even when you choose to set the DISPLAY above 100%. Tested using Windows 10 Enterprise Version 1903.     

Problem:   A program stops with fatal error: Error 115 Unexpected signal (Signal 4) on SUSE or Red Hat Linux running on s390 (i.e. z/390 or IBM 390) hardware, when the program is compiled to executable or .gnt or .so. Solution:   Modify the COBOL source code so invalid data is not used, including making sure data items are initialized before being used, or as an alternative, compile with the compiler directive SIGN-FIXUP   Consider this example program: 000001 program-id. cd1. 000002 environment division. 000003 configuration section. 000004 data division. 000005 000006 working-storage section. 000007 01 WS-CAS-ID PIC S9(8) COMP-3. 000008 01 WSH-HOLD. 000009 05 WSH-PREV-CASE-ID PIC S9(8) COMP-3. 000010 000011 procedure division. 000012 move 1 to WS-CAS-ID 000013 IF WS-CAS-ID = WSH-PREV-CASE-ID 000014 display "is equal" 000015 ELSE 000016 display "not equal" 000017 END-IF 000018 . 000019 000020 goback 0000

I have my application created in Visual COBOL 6.0 and trying to run into COBOL server 4.0. Both installations have different CBLRTSM.dll pointing to 6.0 and 4.0 respectively. While running an application getting below error "Dynamic binding error on runtime entry point _mfgmain2 in module mymodule.dll. An attempt was made to bind to a run time library for Visual COB0L version 4.0 but that library does not meet the necessary dynamic binding requirements. The dynamic binding for this module requires at least version 6.0 of Visual COBOL runtime library CBLRTSM.dll"  Kindly assist.