Rocket® COBOL

Hello there, i have a report that shows my inventory. Some times its more than 100 pages. When i preview or print the report i can see that data is scolling slightly down (about a pixel i guess) so my data splits between pages. And some times at the end i get a blank page. that post didnt help actually  community.microfocus.com/.../4258.aspx#reportblankpagescrollissue

We have the below code in screens which has been functioning correctly until we converted over to 9.2:        MOVE-SCREEN.           ACCEPT wHandle FROM WINDOW HANDLE.           INQUIRE WINDOW wHandle SYSTEM HANDLE hWnd.           MOVE GW_CHILD TO uCmd.           CALL "@[DISPLAY]:GetWindow" USING BY VALUE hWnd               BY VALUE uCmd              GIVING bodyWnd.           IF KEY-STATUS = 67              MOVE WM_VSCROLL TO wMsg              MO

I accidently deleted a directory that contained my COBCONFIG configuration file.  I've searched the documentation and the files tab, but have had no luck.  If I could please get a sample file, I'm sure I could put the settings I need to change in it.  Especially, I need the setting to use an external file-handler/mfextmap.dat.  Please help out.  Thanks in advance.#COBOLnetexpressCOBCONFIG

Hello, I do have an JVMCobol Project with some thousand CobolFiles. The whole stuff is highly integrated with other JavaSources running in a JBOSS Application Server. The problem is the following : - Saving one Cobol-File results in an "ANT-Run" of ".cobolBuild". The Cobol Task does not check if the source file is younger than the generated Classfile. So every file is compiled. This takes a long time, litteraly killing the development process.  Can somebody provide me with the attributes of the : - Cobol-ANTTask -MfFilelist-ANTTask Basically I do have written an build.xml that looks like this : <fileset id="cbl.src.files" dir="src">     <include name="**/VSD138L.CBL"/>    <include name="**/USERVG.CBL"/> </fileset> <!-- ******************************************************************* --> <target name="init"> </target> <target name="compile

I have Net Express 5.1 project that has 6 COBOL programs and 1 of the 6 will not use the project build directives. My directives are: %FILENAME COBIDY(%TARGETDIR) WB3 WB CSI ANIM EDITOR(MF2) ENSUITE(3) INITCALL(ORASQL11.DLL) p(cobsql) COBSQLTYPE=ORACLE8  end-c P(cp) endp; I get the following error where there's EXEC SQL statements: "COBCH0149S No SQL directives have been set" on the failing program.  Any suggestions on this would be greatly appreciated.  Thanks in advance.#COBOLORACLEEXECSQLCOMPILE

Is there an example program available which catches the MouseMove event in a PictureBox to draw a line following the movement and allowing this to be saved as a bitmap. I've seen examples in C# but my knowledge of a possible translation to COBOL is inadequate. Can somebody help me on this? Regards Rainer

Dear Sir, We use adiscf.exe in Visual Cobol for Visual Studio and Visual Cobol for Eclipse without problema. When we go to production environment (AIX 7.1) we try to replicate the same with adiscf for Unix and we noted that adiscf is diferent in AIX, por example en Windows PF2, PF8,PF3  in AIX we have PF2, PF8 but we didn´t find the PF3 option.....   THANks.....   PJM

Can the plus sign be used to expand a field (say you click on a county and it expands to show all of the cities within it) in a Net Express screen?  Also, is there a way to choose/highlight a number of records at a time on a screen and send them back to COBOL? First example: KENT User clicks on and gets: -Kent Coventry East Greenwich etc. Example 2 - records are displayed in a list or group box Customer1   Dawn Break Road   Marblehead Customer2  Munster Path            Mockingbirdville Customer3  8 Yacht Place           Warrenburgh Is there a way they can select all three records at once and send them via an array back to COBOL? Thanks.  

Problem: Error 1 message is received after launching Micro Focus License Manager. After clicking on OK and trying to install a license Error2 is received. When trying to restart theSentinel RMS License Manager, it does not prompt to also re-start the dependent services of Micro Focus ces Deamon; when trying to manually start Micro Focus ces Deamon Error 3 is received. Error 1: Unable to initialize:  Initialization file line too long. Please check the Advance Configuration under Options. Error 2: Error installing licenses: Error(131) Client library is not in initialized state. Please contact Micro Focus Supportline Error 3: Windows could not start Micro Focus CES daemon on your computer. Error 1067: The process terminated unexpectedly. RESOLUTION: The formatting of the ces.ini file, which stores the configuration settings for Micro Focus License Manager, has not been setup correctly. You will need to add a carriage return to the last line of the ces.ini file.  After adding t

Is it possible to associate an EVENT PROCEDURE with a non-gui handle to an instance of a .NET class?#ACUCOBOL9.2.1#non-guihandle#.net#Events

I use this statement for to do a Vutil32.exe -info within a cobolprogram. On my own Windows7 PC the value in STATUS-SYSO is zero. By a customer  the value is 95. Why? What are the values you can get back form the system after running.             COMPUTE   H05-PARAM = CSYS-HIDDEN CSYS-SHELL.           CALL      "C$SYSTEM"               USING  PARAM-A-SYSO                                                     H05-PARAM             &

Is there a way in Acucobol to determine if the keyboard Caps lock is on?  We would like to display a message when one of our users is entering a password and their keyboard's Caps lock is on. Thanks.

I would like to be able to print a six digit number as a bar code(128) from MF COBOL on a text document sent to an HP Laserjet printer.  I could not find any reference to this ability in Microfocus' online documentation and this was confirmed by their technical support group today.  Does anyone know of a 3rd party plug in product or any other solution that will allow this capability?  Thank you in advance.  

Can i have a multiline string inside a grid cell#multiline#cell#Grid

Hello, I´m trying to implement in Visual COBOL the following code (C#): report.Render("Image", deviceInfo, CreateStream, out warnings);CreateStream is not a dataitem but a function call... that is, a callback function defined previously as: private Stream CreateStream(string name, string fileNameExtension, Encoding encoding, string mimeType, bool willSeek) { Stream stream = new MemoryStream(); m_streams.Add(stream); return stream; } I can´t get the way to translate that type of callback function call as a parameter of a COBOL INVOKE. This is what I tried, but although it compiles, it doesn´t run (null exception): INVOKE informe::Render("Image", deviceInfo, CreateStream, warnings). And this is the definition of my Callback function: delegate-id CreateStreamHandler. procedure division using nombre as string, fileExtension as string, codificacion as type Encoding, mimeType as string, willSeek as condition-value RETURNING stream as type Stream. end de

I have 2 picture strings that seems to be valid per the documentation (coming from ACUCOBOL), but the compiler is giving errors. Any ideas why these are invalid? They are: This one gives error saying "Incompatible qualifiers". PACT-AMOUNT  PIC S9(9)V99  COMP-3 SIGN IS LEADING SEPARATE. This one gives error "PICTURE string has illegal precedence or illegal character" Disp-Comm-Pct                    PIC ZZZ.Z9. Thanks

Animating our application program (using Net Express) we get this message: 173     Called program file not found in drive/directory - openXX   Running this application without animator this error does not occur. Question: is "openXX" part of Net Express? What can we do to correct this error?Thanks   

Hi, Currently our application is running on one server and a cold standby. All in Suse linux Anyone has experience with clustering visual cobol applications?   To be more concrete : I'm looking at multiple servers (at least 3) to be put in a multi-active cluster with shared filesystem (like ocfs or veritas). The cobol applications should then use the same shared filesystem for read write datafile manipulations. Some sort of load balancer in front of the applications. thanks.#COBOL#multi

Really I am aiming this question to Shaun at Cisco Software Limited. Like yourselves, we successfully used a version of winbmail to send binary attachments, mainly PDF files as emails linking to customers email servers using SMTP, and C$SOCKET. However, now we have a problem that receiving such emails into some email systems, e.g. GMail, the PDF files are supposedly corrupt. We as a company use GMail, but relay the files into Outlook. Within Outlook the files are fine. I have been looking at the code of program "csndml" and have noticed that some of the details passed are different to ours as follows: We send HELO, whereas your program sends EHLO. Could this be the reason why we are having issues? We do not send the following at all: INITIALIZE WRK-DATA-RECORD MOVE 1 TO BYTES-TO-SEND. STRING "X-Mailer: csndml - Sysco Software 01/08/2007" CRLF "Mime-Version: 1.0" CRLF DELIMITED BY SIZE INTO WRK-DATA-RECORD WITH POINTER BYTES-TO-SEND END-STRING PERFORM SEND-

Dear Sir, When we usin the RMMFDataMigration Project from Example of Visual Cobol for Visual Studio we get tweo ERRORs . Error 1 * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\HelpWin.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\MigrationForm.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\AboutWin.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\App.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\RMMFDataMigration_Content.g.cbl * Generating RMMFDataMigration.AboutWin * Generating RMMFDataMigration.App * Generating RMMFDataMigration.HelpWin * Generating CvnDelegate C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\MigrationForm.xaml.cbl (537,91-113) : error COBCH1713 : 'type System.IO.Path' has no visible static method 'DirectorySeparatorChar' with 0 parameter(s) C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\MigrationForm.xaml.cbl

Hi, I know it is possible to access RM/COBOL indexed files from a Visual COBOL Console app and that this app can be called by a Managed VC app. But is it possible to use RM/COBOL indexed files directly from Managed code? If not, are you planning to add that support? It is crucial to move apps into Visual COBOL. Regards#RMCOBOLfiles#VisualCobolManaged

I'm having some trouble with .NET events either not firing, or not being caught by ACUCOBOL. I'm guessing it's something simple, but am stuck, and would appreciate any help. Environment: Windows 7 (64-bit) ACUCOBOL 9.2.1 (32-bit) .NET framework 4 (from which I'm using the 32-bit version for compatibility with ACUCOBOL) This example starts with the following files: acucobol.def (from the ACUCOBOL 9.2.1 samples for 32-bit Windows) acugui.def (also from the ACUCOBOL samples) DotNetBrowser.cbl (a COBOL program where the SCREEN SECTION contains a .NET control) MyWebBrowser.cs (a simple C# class derived from System.Windows.Forms.WebBrowser) test.html (an HTML5 document containing a few JavaScript functions) All of the above files are in the following directory: C:\\Windows\\Temp\\DotNetBrowser The COBOL code in DotNetBrowser.cbl is: identification division. program-id. Browser. *************************************************************** ENVIRONMENT DI

We are converting some GCOS (Bull) mainframe programs to work on a Microfocus platform. I have a lot of calls for this particular item. The variable is defined as pic x, and 0 is moved to it, Alphanumeric check. But in the mainframe code (in lots of places) this value is checked against zero (the word, numeric value). In microfocus COBOL this is false, but in GCOS it is true. If I change this: IF IN-STATUS NOT = ZERO GO TO 580-GET-OUT to this: IF IN-STATUS NOT = "0" GO TO 580-GET-OUT it works in Microfocus (probably for GCOS too, I didn't specifically check). The second statement is true in GCOS. Is there a setting for the program which will allow "0" to be checked against ZERO or 0?

what is the connection string to connect to a oracle database #odbCESQLconnectionstringdsn

It would make our life so much easier if we could inquire the tab-order value of a control.  If we can’t have that,  could you allow us to inquire the name of the control as a text field?  Either of these would be read-only of course.   The inquire would be a format 1 query:77  my-tab-order usage unsigned-short. 77 my-control-name pic x(30).INQUIRE { control-item } tab-order in my-tab-order.INQUIRE { control-item } name in my-control-name. Now the more difficult request.  Since you already have the control handles somewhere in the runtime’s memory, and the tab order in there too, allow me to inquire by the tab-order.  If that can be done then let’s take it one step further and allow me to modify controls using the tab-order instead of the handle. Here is an example of why either of these values would be useful…  Postal Codes aka Zip Codes.  If the tab-order were available:When a user enters the zip cod