Rocket® COBOL

  Problem With RM WoW Designer is it possible to limit the length of the lines when the code is generated? Resolution By default, the code generated by WoW designer can be longer than 72 columns. This can cause a problem as the designer does adds the following to the code:             >>IMP MARGIN-R IS AFTER END OF RECORD Within the Designer, there are two areas to be able to set options, the options/preferences and the project/options. The project options override the WoW Designer preferences. The option that needs to be selected is the ‘Generate Short (72 column) Lines.’   Incident #2831580 #RMCobol#WoWDesigner

Is there any documentation on the functions exposed in AcuBenchPrint.dll?  Thanks! #acubench#Printing

I am facing an issue while using the sample Acucobol program to call Java from cobol. I have small piece of code in my cobol program as : CALL "C$JAVA" USING CJAVA-CALLSTATIC "C:\\Javaprojects\\TestCobol2Java\\bin\\CobolCallingJava", "CobolCallingJavaInt", "(I)I", FIELD-INT, FIELD-RET GIVING STATUS-VAL it returns status-val as "-3" which seems classnot found I have tried with both with or without pathing but it results same. Java program cobolcallingjava.class reside at C:\\Javaprojects\\TestCobol2Java\\bin and cobolcallingjava.acu reside at c:\\maint\\object. I am using Acubench 720 where I could not find the config file. so I modified the cblconfig file as per instructions file. Where do I need to place the config file and keep cobol & java code.? I suspect issue is with different locations. Appreciate your help!#JavaClass

Hi,  I am trying to migrate our Server Express 4.0 systems from an AIX 5.3 TL05 LPAR to an AIX 7.1 hosted WPAR running 5.3 TL12. after a test migration we now get the following when compiling a simple program. cob fkey.cobExecution error : file 'direct'error code: 119, pc=0, call=1, seg=0119 Name is not unique (binding symbol 'direct') If we try and run a previously compiled program we get  Execution error : file 'mfini'error code: 119, pc=0, call=1, seg=0119 Name is not unique (binding symbol 'mfini') If we revert back to using an earlier level of (AIX 5.3 TL10) within the WPAR it works o.k. We also tried upgrading to Server Express 5.1 but still have the same issue. The WPAR was created using the -l switch so it has its own /usr and /opt   I would be grateful for any assistance anyone might be able to provide. cob fkey.cobExecution error : file 'direct'error code: 119, pc=0, call=1, seg=0119 Name is not unique (bindin

Problem: I want to run .NET COBOL applications on my workstation without COBOL Server installed locally. How do I configure this to run a .NET COBOL application from a network COBOL Server installation?   Resolution: To run a .NET COBOL application from a network server You can deploy a .NET managed COBOL application on a network server so that all workstations that are mapped to the server can run the application without the need to install COBOL Server 2012 locally on each workstation. Note: Throughout this topic, the installation folders should include the correct name of the targeted deployment product - COBOL Server, COBOL Server 2012, or COBOL Server 2013. Before you can configure your .NET COBOL application, ensure that: COBOL Server 2012 is installed and licensed on the server. The workstations that are accessing the server on the network have the necessary permissions. (see Trust issues below) If your application also uses native code components, you need to setup the lic

hello , I wonder if it is possible comparisons between datagridview thanks

Back in my NetExpress days I could look at the contents of an ISAM file using the Data File Editor.  Research indicates that that tool is also available in Visual Cobol, however I cannot seem to figure out how to install it.  I'm running version Visual COBOL 2010 R4 Version 1.3.20019. at the moment, and I have a full license.  I plan to upgrade to VC 2.2 in the near future, but we're going through something of an infrastructure upgrade here and I'm stuck with a PC running WINXP at the moment. I've gone through the standard upgrade screens on the MicroFocus web site, but I can't seem to find the right path to get the Data File Editor for my version of WC.  Can you please perhaps point me in the correct direction to get me started, and let me know if there's anything I need to know prior to installing it? Thanks!

I am facing an issue while using the sample Acucobol program to call Java from cobol. I have small piece of code in my cobol program as : CALL "C$JAVA" USING CJAVA-CALLSTATIC "C:\\Javaprojects\\TestCobol2Java\\bin\\CobolCallingJava", "CobolCallingJavaInt", "(I)I", FIELD-INT, FIELD-RET GIVING STATUS-VAL it returns status-val as "-3" which seems classnot found. Not sure if I mentioned the full path of the class file why it still could not found? Any help?

I have 2 separate solutions in the attached zip.  One solution - NatCon1 - contains 1 native project - NatCon1. The other solution - ManWin1 - contains 2 managed projects - ManCon1 and ManWin1. These are intended to demonstrate:  1) a native-calling-managed scenario (based on your CCW concept, but using separate solutions), as well as 2) a managed-calling-managed scenario (within the same solution).  Here is the weird behavior - in VS2013, when using native NatCon1 Program1 to call managed ManWin1 via "Start Debugging", it appears to honor the forced default setting of the focus onto the Exit button on ManWin1 Form1.  (see the "invoke button1::Select().").  But, when doing it via "Start Without Debugging", it appears not to honor the [attempted] forced focus onto that Exit button.  The debugging aspect would be associated with the native project, not with the called managed project, so I am confu

Hi, Is there any way to create a managed dll in Visual studio using the CBLLINK utility.? Earlier in our Net Express project we used to create dll using the command: cblLink -d -s -oxyz.dll @xyz.lnk . This command creates a native dll. Is there any way to create a managed dll using the same procedure. I do not wish to use the IDE for dll creation.

Hi These are the default directives which are set in NE. %FILENAME COBIDY(%TARGETDIR) WB3 WB CSI ANIM EDITOR(MF2) ENSUITE(3) nobell errq errlist rawlist linkcount(1024) bound perform-type(osvs) retrylock align"4" I need to replicate these directives in Visual COBOL. Can anybody help in explain the meaning of these directives. specifically " %FILENAME COBIDY(%TARGETDIR) WB3 WB CSI ANIM EDITOR(MF2) ENSUITE(3)" Thanks!

The Micro Focus Developer doc related to CBL_GET-CURRENT-DIR suggests this:   "Use the "BY VALUE LENGTH OF directory-name SIZE 4" construct to pass the name-length parameter."  Based on the explanation in the doc, if I have a MY-DIR-NAME PIC X(80 and a MY-DIR-NAME-LENGTH PIC 9(4) then I can MOVE LENGTH OF MY-DIR-NAME TO MY-DIR-NAME-LENGTH in order to initialize it to a value of 80 in this example.  My question is about the terminology and concept of the "Use the "BY VALUE LENGTH OF directory-name SIZE 4" construct.  I would like to see an example of this and/or any links to doc explaining this concept behind this construct. Thanks! OK, Update. I now can see how it might be used.  Instead of setting up an actual MY-DIR-NAME-LENGTH variable in working storage to be initialized with the length of MY-DIR-NAME, you can just use the expression "BY VALUE LENGTH OF MY-DIR-NAME SIZE 4" as a phrase at

hello. I need to know how to check if the item in a listbox selected this, example move self::listbox1::Items::Count() to wend perform until wcont = wend if listbox1::Items[wcont]::Selected = true then invoke type MessageBox::Show("yes" "") end-if add 1 to wcont  end-perform thanks

Hi, I'm trying to develop a new usercontrol with a datagridview and a toolbar and put it in a windows. When I deploy on other machine the hell...  I've deploied a small set of the acuthin client object so maybe I've missing something. I've seen that I'll need - acutonet.dll - varcallback.dll - acutonet.tlb I've tried to regasm acutonet.dll ( regasm /codebase /registered acutonet.dll) and this solved the "CoCreate Instance failed" but now I'm stuck with "LoadEntity" problem. I've developed the dll with vs2013, on my machine I've 9.2.4 acuthin, but I'm runing on 7.2.2 acuthin version again 7.2.2 acurcl server linux. Someone can help me? #.net

???  It appears that the Supprt-Line Incident Reporting entry form is suddenly not recognizing "serial number", "product", etc., which this info is no doubt apparently tied to my authorized log-in.  These fields are not defaulting nor will they allow entry. This was working last week, as I entered an Incident last week with no problems. ??? Also, when you review existing incidents, they have an incorrect date on them.  For example, an incident I entered last week now shows a December 2015 date on it. Thanks, Austin

I am in process of converting Netexpress projects to Visual cobol solution using VS 2013 IDE. The conversion was successful but the newly generated  *.sln , *.cblproj files were added to the netexpress directory on top of the existing *.APP files. Is there any way to define the new directory structure for the VS solution files while conversion ?

We are using a VB.NET print module that runs with our current NET EXPRESS dialogs. We are trying to use this print module in our Visual COBOL migration. One of our developers believes if it is compiled as a 32 bit module it can be integrated into our new Visual COBOL projects. We are trying the PREFER 32 option from Visual Studio to recompile this VB.NET module. Are there any other factors with which we should be concerned since it was originally part of NET EXPRESS? Thanks for any insights. Our final environment will be Visual COBOL 2.2 under Visual Studio Professional 2013 under Windows 2012 within a HYPER-V deployment. At first it appeared that Hyper-V was interfering but now we are having problems with the print module itself.

Hello all, I was searching the web for a way to known which is the actual key of reference of an indexed file, but nothing found. I need it to simplify the work of recover the status of files when calls to other subroutines are finished. Thanks afterwards

Hi All, I'm a newbie to Cobol. I'm looking for examples on the standard way to move forward and backward through a database table. When using Xbase/Clipper I would program a entry screen with Function keys that would allow the user to perform database actions, like add, delete move forward and backward through the table. What's the standard way of doing that with Cobol? Are there any beginner examples that people could point me to?  Thanks for the help. Best, Peter

Hi, I am facing a problem while calling a program in managed dll from native dll. When a normal call is made from native to managed, it is giving the error code 173 program not found. I have tried copying the managed dll into the debug folder of native project. Also, I have tried including the procedure pointer of managed dll in native code. But it gives the same error every time. is there any pointers on how to proceed or what should be done when we need to call managed from native? Thanks!  

Hi, I have a linux server setup with XBIS RM/COBOL and XML Extensions. I also have a Windows server setup with the same. I have a website on the linux using apache and works fine with the cobol and XBIS, it is old though. On the Windows Server the new website exists. So I made a virtual directory with the BISmkdir.exe to create a place on the new IIS website that accesses the old linux directories needed. This works since I can browse the folder scheme. But when I click on an srf file I get 30[34] errors in my trace file. Then I figured let me try the Samples that come with the Xcentricity BIS. They work when BISmkdir.exe uses the local folder so C:\\inetpub\\wwwroot\\XBIS12. I copied the folders over to the linux machine and some of the Samples are returning errors. I'm guessing it is accessing data issues. I've also attached an image of the trace received when trying to view Sample2. Has anybody tried this before? Should I try InfoExpress? We want to keep all of our ISAM data files

Is there any difference between these tho statements?      CALL "CBL_CHANGE_DIR" using "\\CONT"                                    returning ID-STAT        CALL "CBL_CHANGE_DIR" using "\\CONT\\ "                                    returning ID-STAT   In the second case the name of the directory (in the root) is followed by   \\     but I learned, that both statements should do the same.   I observed that executing the first statement only once in the program, it works, but the second time no more, returning a status of 9 x&rdqu

i have searched for this to be covered but did not see anything covering this specific error/issue so I decided to post a new question on it. We store printer pcl codes in a file then reference those and send each to the printer directly but when we do this even though we code for no advancing it is moving us down a line for each code.  This was not really noticed until we moved from Unix to Winodws servers and had to add PCL code to do tray selection.  While the tray selection works fine, if we are doing things like check or form printing the first page is starting in a different spot on the page than the additional pages. We are using direct prining: -Q HP 4000;DIRECT=ON To swap trays in this case we send 027 038 108 053 072 (ESC & I 5 H) In the program we simply use a write after moving that line to the print area:       move wscap-item(37) to printer-record      write printer-record after zero ...this works perfectly except we are hoping

Hello, just wanted to divert your attention to some advice on coding guidelines for Micro Focus COBOL, by Micro Focus COBOL developers. You can find the article here. Hope you find it useful. Regards, Scot

I have the follwing question: I have to insert a new row into the table JOBS and then i need the JobId for selecting in another table: DDL of JOBS USE [IBOS2_UniDex]GO/****** Object: Table [dbo].[Jobs] Script Date: 02/03/2015 14:18:04 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOCREATE TABLE [dbo].[Jobs]( [JobId] [uniqueidentifier] NOT NULL, [Sender] [nvarchar](max) NULL, [Recipient] [nvarchar](max) NULL, CONSTRAINT [PK_dbo.Jobs] PRIMARY KEY CLUSTERED ( [JobId] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]GO/****** Object: Default [DF__Jobs__JobId__1A14E395] Script Date: 02/03/2015 14:18:04 ******/ALTER TABLE [dbo].[Jobs] ADD DEFAULT (newsequentialid()) FOR [JobId]GO Jobs in my program: EXEC SQL DECLAREJobs TABLE( JobId uniqueidentifier(36)NOT NULL,Sender ntext(41823),Recipient ntext(41823)) END- EXEC.on inserting a new job i declare:EXEC SQLINSERT INT