Rocket® COBOL

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

Are there any example of determining the difference between a click and a double click on a listbox?  Have searched and can not find much.

Hello Experts, I recently have compiled PeopleSoft 9.2 COBOL programs using Net Express. But when I tried to run one of its COBOL program GPPDRUN it gave below error: Execution error : file 'c:\\pt8.54\\CBLBINA\\PTPSQLRT.gnt'error code: 114, pc=0, call=1, seg=0114     Attempt to access item beyond bounds of memory (Signal 11) Kindly help me here, I have been trying to resolve this for about 1 week but still no luck.

Hi All, I'm programming with the default green screen, which is 80 columns wide. How do you set the screen size to 120 columns? Can you also expand the row length as well? Thanks for your help. Best, Peter#screensize120columns

I want to start this URL "tksuite:Phone Number?call" . How are the Parameters of the "call ShellExecute" Does anyone know this?#ShellExecute

HI, Can you please provide a sample print exit program suitable for Visual cobol. The current exit module developed in visual basic code works only with net express projects. Thank you.

Hi I have a DataGridView with 8 columns, all Text Box columns, all Read Only, populated from an indexed file.  The first tow columns are frozen.  I want the right hand border on the second column to appear thicker than the others.  Here is the code I tried to achieve this:        class-id DataGridViewColFrzCls inherits type System.Windows.Forms.DataGridViewColumn.       method-id NEW.       procedure division.           set self::CellTemplate to new DataGridViewCellFrzCls.           goback.       end method.       end class.       class-id DataGridViewCellFrzCls inherits type System.Windows.Forms.DataGridViewTextBoxCell.      *> Automatically inserted Methods from Syst

Please help me! I have a comunication with web server, but the return this web server is xml, i need to know how i get xml and insert this xml in a form in Visual Cobol#FormVisualCobol

Release: Net Express 5.1 .NET & Visual Studio 2012 While compiling the source from NE5.1 in Visual COBOL 2.2.1, we are receiving a warning for comp-5 redefinition. The vaiables are defined as follows:                 01  WS-MENU-ID      PIC S9(4) COMP-5.                01  WS-FIELD-KEY REDEFINES WS-MENU-ID                                        PIC S9(4) COMP-5.                01  WS-BUTTON-ID REDEFINES WS-MENU-ID                &nb

We are converting over to a new server and want to duplicate what we have with the existing one.  We use RM/COBOL with the I-shell, cmix, and Easyspooler Spooler software from Roc Software Inc. All the software has been installed and were trying to access the Cobol programs thru the I-shell system but it will not connect or gives us no errors.  Also tried to bypass the menu systems and manually try to access the files and ex the binary cobol program, I get an error "94" on the firsts indexed data file.  if I try to sort an indexed sequential file, I get a 0402-050 syntax error. What am I missing????

Hi, We are experiencing a problem due to a missing shared object in MF COBOL Server 2.2 for UNIX update 2. Some background: We are compiling our programs on Linux using MF Visual COBOL for UNIX. The programs are compiled with the TESTCOVER directive. The programs are then deployed to another machine that has MF COBOL Server 2.2 for UNIX update 2 installed. Our problem is this: the programs run correctly on the machine where they are compiled, where MF Visual COBOL for UNIX is installed. However the programs do not run on the deployment machine, where MF COBOL Server 2.2 for UNIX update 2 is installed. The programs fail saying that cobtcov64.so cannot be found. We think that this is the library that implements the test coverage functionality. Why is cobtcov64.so not installed? Is this an install time option for MF COBOL Server 2.2 for UNIX update 2? Our current work around is to compile without TESTCOVER, but we would like to go back to using TESTCOVER in due course. Thanks, Leigh.

Hi , i am working over a project to migrate an existing mf cobol dll to visual cobol dll. The existing dll consist of 7 cobol programs(Native Managed).  In Micro Focus the native DLL is created using CBLINK utility in a Batch file. The Existing CBLLINK batch file Compiles all the 7 programs and then to Link it is using an LINK file. In this file there is a list of object codes names need to be linked , So apart from these 7 program's Object file it also add's the Object code of 8 system object files (ADIS, ADISINIT, ADISKEY, ADISDYNA, MFFH, BSIO, EXTFHSUB, MFINI) provided by Microfocus. (They are present in Bin folder of Net Express 5.1)  Now we have migrated those 7 programs is VIsual COBOL and we are trying to create the NAtive DLL using CBLINK utility, we are not providing those 8 System object files moreover we dont have those files present in the VIsual COBOL Bin folder. So DO we need those files in Visual COBOL ? Let us know what we can do to create NAtive DLL