Rocket® COBOL

Can the username who created a print file be extracted somehow using one of the library routines or ??? 

I am trying to debug a program. My data structure has a mix of alpha and numeric data. When the programs stops on a breakpoint, none of the numeric fields show any values. They just display Cannot evaluate expression, error code '0x80004002'. If I edit the watch value, I can see the value. This occurs whether the PIC 9 field has COMP or not. The structure  01 INTERNAL-DATA-FORMAT.    04 INT-X15.    06 X15-DIRECTION-IND             PIC X(1).    06 X15-EOR-IND                   PIC X(1).    06 X15-MAX-COUNT                 PIC 9(4).    06 X15-TYPE-DESC                 PIC X(20).    06 X15-R

I am working on a modernization code where we are upgrading netexpress to visual cobol for visual studio. In one of the code special register character "Tally" is being used which is throwing back error saying that "Operand tally is not declared.  After doing some search got to know that I need to enable it using either the OSVS or VSC2 compiler directives. Since I have basic idea on cobol and not an expert, so can someone please help me as how to include the compiler directives to get rid of the error.  

Starting with a RM idxformat 21 file. Loading text data, encountering an extended ascii character (value above ascii 127). Debug step in Visual Studio, value is as appears in the original file. Debug window with value of ASCII-VALUE This is the entire record, where the character is. After moving that record to a location in Working Storage, that record is written. This is the code in that section: if WORK-FIELD3(WS-SUB1:1) < SPACE or WORK-FIELD3(WS-SUB1:1) > "~" then MOVE WORK-FIELD3(WS-SUB1:1) TO ASCII-VALUE move spaces to special-characters-record move ASCII-VALUE to special-character move SF-AR-PRIMARY-KEY to special-character-agr move WORK-FIELD3 to special-character-rec move DUMMY-FIELD-NAME to special-character-rec-name move special-characters-line to special-characters-record write special-characters-record display "special character: " ASCII-VALUE display "agreement = " SF-AR-PRIMARY-KEY move "?" to WORK-FIELD4(WS-SUB2:1) end-if

Problem With Net Express, to use the single threaded runtime, the  following .lib file would need to be linked to the affected cobol program:"C:\\Program Files (x86)\\Micro Focus\\Net Express 5.1\\Base\\Lib\\cblrtssi.lib". In Visual COBOL this file is not present any more, so what is required?   Resolution There are two types of the imported library of the COBOL runtime system in Net Express, one is for single-threaded runtime system (CBLRTSSI.LIB) and the other multi-threaded (CBLRTSMI.LIB).In Visual COBOL, since everything is multi-threaded, there is no single-thread imported library.For this reason, the solution is to link CBLRTSMI.LIB. This library can typically be found in "C:\\Program Files\\Micro Focus\\Visual COBOL\\lib" in 32-bit Windows or in "C:\\Program Files (x86)\\Micro Focus\\Visual COBOL\\lib" in 64-bit Windows, depending on where Visual COBOL is installed to.

We are getting an XML Status: Error 70[0] in function: AddText.  The error messages in Appendix C of the XML Toolkit for RM/Cobol Version 2 contains error messages up 49.  Is there a newer version I can download?

Hello, I've got a memory leak issue, where launching a program will bleed between 600KB and 1MB of memory as shown in the windows task manager. We call the program in a thread and destroy all bitmaps/fonts/activex controls when we're exiting the program. When I look at the debugger's -u output, I can see that the Program memory is staying constant, the file memory is constant, but the Windows and Overhead memory buckets are constantly increasing each time I call the program. Is there any way for me to see what is in these buckets or to tell why they are increasing and not falling back when I exit the program? There are 9 ActiveX controls in total on the window, and some bitmap buttons, I'm assuming destroying them when exiting should release their memory. As this program is run in a thread that we're not waiting for, there is not a cancel that's run after the call, but we do run a Cancel All prior to calling the program, which should free up any memory used by i

Folks, Hello. I am implementing PeopleSoft Campus Solution 9.0 for a University. My Operating System is Oracle Linux 5 with PeopleTools 8.53. I have downloaded Micro Focus Server Express 5.1 Wrap Pack 6 for RedHat Linux x86-64 from Oracle edelivery and installed it successfully. I have also installed the 30-day temporary license succeessfully that is "AS Developer" in license summary. Micro Focus Server Express 5.1 Wrap Pack 6 is installed in directory /Install_COBOL_CompilerAll COBOL programs are in directory /opt/PT8.53/src/cbl.I am using Unicode Oracle Database 11g. All COBOL programs should be converted to /opt/PT8.53/src/cblunicodeIf COBOL is compiled successfully, all executables *.gnt files should be in directory /opt/PT8.53/cblbin.   I compiled COBOL programs and get the errors as below: [user@linux PT8.53]# . ./psconfig.sh [user@linux setup]# export PS_HOME=/opt/PT8.53 [user@linux setup]# export COBDIR=/Install_COBOL_Compiler [user@linux setup]# export LD_LIBRA

Hi! I will convert this c# code snip in Visual Cobol code: ============================================================================== #region MinimumValue Property public static double GetMinimumValue(DependencyObject obj) { return (double)obj.GetValue(MinimumValueProperty); } public static void SetMinimumValue(DependencyObject obj, double value) { obj.SetValue(MinimumValueProperty, value); } public static readonly DependencyProperty MinimumValueProperty = DependencyProperty.RegisterAttached( "MinimumValue", typeof(double), typeof(TextBoxNumeric), new FrameworkPropertyMetadata(double.NaN, MinimumValueChangedCallback) ); private static void MinimumValueChangedCallback(DependencyObject d, DependencyPropertyChangedEventArgs e) { TextBox _this = (d as TextBox); ValidateTextBox(_this); } #endregion ============================================================================== I know that #Region = $Region is... But how can i convert the rest? Have anyone an idea?       &

Has anyone ran into this issue before? I am using Micro Focus Visual COBOL for Eclipse Personal Edition Windows.   As part of my course curriculum at my college, we were provided instructions as shown bellow to install Micro Focus Visual COBOL 365 days trial; I experience problems with the margin settings where I could not set them to the COBOL standard starting at margin "A".   =================================================================   Basic steps to download COBOL with Eclipse for Windows.   Begin by going to the registration link   www.microfocus.com/visualcobolpe   Select (click)    TRIAL DOWNLOAD    Select (click)        Visual COBOL for Eclipse Personal Edition – Windows    Complete the registration form (identify yourself as a student)   An e-mail will be sent to you with further instructions.         

This article addresses COBOL search and replace of substrings in a string, the size of searched string and replacing strings being different. Problem: When doing a COBOL search and replace of substrings in a string, the COBOL statement INSPECT … REPLACING cannot be used. Why is the size of the searched string and replacing strings different? Resolution: The attachment CobSearchReplace.cbl is a COBOL implementation of a ‘search and replace’, the size of searched string and replacing strings being different. This sample was tested on Net Express 5.1 and Server Express 5.1. Incident Number: 2420505 Old KB# 14755

Any suggestions for an address scrubbing company.  Must support Uppercase only data, handle a CURL command, change history, and the elephant in the room: "be low priced".   Geo coding would be a plus.   Looking forward to your replies and can be done directly: daleh@hightouchinc.com

I was curious what version of IBM Enterprise COBOL is supported in Visual Cobol. I see in the documentation a couple of references to Enterprise Cobol v4 but I know some companies are upgrading the mainframe Cobol to v5 or v6.#EnterpriseCobol#COBOL

 I tried to activate Visual CObol PE under Visual studio 2017 and i received this messages I tried antoher time (with a second download) and my strudents too but nobody can't activate the licence.Can you give me some hint. Thank you :)

I asked this question a couple of months ago and was told that the PE edition would be available for VS 2017 Community Edition 'real soon now'. Unless I have missed a forum entry I haven't seen any further news. When will this combination be avaolable?

I have a wpf datagrid that and am trying to cast a datagrid.SelectedItem to a custom object. Getting the error "Unable to cast object of type 'System.Data.DataRowView' to type 'CarrierRecord'." when this line "set carrierRecord to DG_CellCarriers::SelectedItem as type CarrierRecord" is executed. Works just fine in c#.  Am I missing something basic here? My datagrid is bound to a datatable.

Hi Chris.. I know you knew this. I'm using NetExpress V3.10 and now I'm having problem with my program.GS where sizes of my GUI windows varies according to the size of the monitor. When I MAXIMIZE the window, it places my buttons (and fields) in different places with adjusted sizes. Do we have a "default" dynamic resizing for .GS files? So that it won't resize (or it will resize in perfect sizes)... depending of the size of the monitors.#dialogsystem#netexpress3.10

In native COBOL we used a "CALL progname" statement in processing through a set of programs by looping through and setting the variable progname, a PIC X(n), to each program name in turn. How do we implement the same functionality in managed COBOL? "INVOKE progname"? What would be the content of progname?

I'm trying to debug using v12.14.  I've gotten everything to compile without errors; I can step through the code with Code Watch but when I get to my first IO call the actual SQL doesn't work: ,  ,  , , , , , Any assistance would be greatly appreciated.#InstantSQL#RMCOBOL

Hello,   Since runtime 7.03 i've been evaluating the field RM-UseCountInUse to know how many concurrent users are working on my applications under a network. But then we have some clients that have been upgrading their runtime to 12.13 and superior. The RM-UseCountInUse is not returning anything under RM 12.13. Is this a known bug? or perhaps an installation problem? Do i need to evaluate a different fiield? has something changed? If anyone can bring some light to this subject, many thanks in advance.   David L.#rminfo#RMCOBOL

Hi all,   Our customer Bata facing an issue on Leading zeroes being truncated for packed decimal variable when view tables using Relativity Designer.    For example :   Variable Define in COBOL as :   01 WS-NUM  PICTURE 9(7) COMP-3. When Create Table in Relativity , the column defined as :   WSNUM INTEGER The value from data file is '0001234' but when view using the relativity designer the value shown as '1234'.   The result that customer required is '0001234' when viewing using Designer.   I have try the redefinition option in Relativity Designer but its  not giving me the correct value. Is the any way to define with relativity to avoid the truncation? Can help to provide me steps? Thanks all.  #RELATIVITYGROUPS#Relativity

I am doing a first-time installation of Visual COBOL 3.0 Personal Edition for Visual Studio 2017. This is for Windows 7 Professional SP1 64bit. I have Visual Studio 2017 installed and can run that software.  When I installed  Visual COBOL PE for Visual Studio 2017, I ran the standard installation but I apparently didn't get the needed product directories as indicated in the Release Guide that allow me to start/run the software.  The release guide says this for Windows 7: From your desktop, click Start > All Programs > Micro Focus Visual COBOL > Visual COBOL for Visual Studio 2017. When I go to Start > All Programs > Microfocus Visual COBOL there is no subdirectory with that name in the next level down. I have: Samples, Configuration, Data Tools and Tools. But looking under each of those I find nothing that allows me to start Visual COBOL. So what didn't happen correctly that I can't run the software?#visualcobolforvisualstudio2017

We are converting from AIX to Linux using BIS Service Version 12.13 with 64-BIT.  The compiler we are using is Version 12.05 32-bit to compile the programs.  The following is what we receive running our program DDHI.  I  have SET BISX-LOG-XML-OUTPUT TO TRUE.  When I look at my trace in /var/log/bis for the program.  I display my Export-RTN with a display of BISX-XML-Status of zero before the call "XMLExportFile".  I receive the following message after my display Caught signal: SIGSERV BIS Service complete at line ? in program XMLEXPORTFILE (/usr/local/liant/bis/bin/xmlif.so) BIS Service traceback at line 760 in program DDHIXML BIS Service traceback at line 1041 in program BISX (/system1/bin/bisx.cob) compiled 2010/09/30 Service process 17757 cleaning up.  Return code=253. Service process 17757 terminating.   The directory for Apache in mod_xbis.conf is set the following: <Directory /usr/local/liant/bis/xbis>   SetEn

I've just installed v12 on a Windows 10 VM and am attempting to test the debugger.  Each time I start, I receive the following: CodeWatch for Windows - Command line error: Option value must be single character or 0 to 255 for fill character.     I then override it with the correct path, apply and everything is great.  Where do I update this command line to make the path update permanent?#RMCOBOL

Currently the customer are running Relativity Data Server on RedHat Linux and the Relativity Data Server services are not starting up automatically after they reboot the OS. Is there any steps to startup the services automatically at the boot time?#RELATIVITYGROUPS#Relativity