Rocket® COBOL

Using Data File Editor - Version 2.2.02104 with a fixed length indexed file and an .STR file provided and the data file is not write protected ... When I choose Search > Data File Editor > Data File Find And Replace ... ... instead of presenting the normal popup box, it does nothing (it does not present a popup box). Other search options, such as Find on Current Key work fine (a popup box is presented to enter a search value, etc.). With the very same file, others on my team here do get the normal popup box when doing the find and replace. So I am wondering why it is not doing this for me ??? Thanks  

Hi all, I wanted to know if anyone is currently using the C$REDIRECT function in a Pre mode on file I/O and if you have had success with this in a production environment. Also are there any tips, performance issues etc in using this. I am not replacing the standard I/O routines with this, I am using it as a trigger when certain I/O takes places.   Regards   Scott

Hi, We have a COBOL server 3.0 installed with a valid license. Was trying to compile a program to create .o (object file) in UAT environment and it gave a error "Error[18]: No license code is available for feature RestrictedNativeChecker on host 127.0.0.1." Do I need a devhub to compile. Note: We have a devhub license for DEV env and 2 COBOL server license one each for UAT and PROD.

I want to move a bitmap buttons to a different location on the screen. I referred to the dragdrop sample program  to figure out the logic and wrote a similar routine. My program successfully moves the push-button, BUT,  even after calling W$MOUSE using RELEASE-MOUSE my program does not recognize the mouse Right Click Up/Down when I want to show a pop-up window.  But if I click on a different tab, then the program responds to my right-clicks and displays my pop-up. (My program displays several tab controls).    Is there a problem with the Release-Mouse option.  Note that after calling W$MOUSE using RELEASE-MOUSE  I do issue the SET ENVIRONMENT "MOUSE-FLAGS" TO AUTO-MOUSE-HANDLING, but the problem is still there. Is there something else that needs to be done ? Is there another sample program around that moves a control on the screen ? Thanks in Advance.  

Hello! New to VC programming! I need guidance on a project. I created a windows form with labels, textboxes, radios, checkboxes etc.   I have put a print button, printDialog, printDocument. I set the method of the print button to appear the print dialog menu. I have stuck in this: How to define what to print from the form? For example, If I want to print whatever I see, is there any method.  Thank you in advance for your help!!!

I'm developing a DLL using Visual Cobol 2.2, and I want to make it a NuGet package so that other people in my shop can leverage it.  In my VC project, the first time I tried to do this, I right-clicked on References and clicked on "Manage NuGet Packages."  I received a message along the lines of "Not compatible with project."  Not sure of the exact message text because I only got it once.  After that, if I right-click on References, I do not even get the "Manage NuGet Packages" option.  If I try to add the Nuget package at the solution level, I get a message "...could not be installed because it is not compatible with any project in the solution." What am I missing?  Is there something I need to do to the project properties for it to support NuGet?  Something with the NuGet configuration?  Something to the VC config? Thanks for the help, Mike#nuget#VisualCOBOL

I have a netexpress program calling a vb subroutine passing 3 integer parameters which works fine. If I try to pass the second 2 integers as a group then I cannot get it to work. (the group will eventually have about 50 items in it) VB Prog Imports System.Runtime.InteropServices <ComClass(vbpan32.ClassId, vbpan32.InterfaceId, vbpan32.EventsId)> _Public Class vbpan32 #Region "COM GUIDs"' These GUIDs provide the COM identity for this class ' and its COM interfaces. If you change them, existing ' clients will no longer be able to access the class.Public Const ClassId As String = "253aac3c-266c-4786-a71c-7185051536c2"Public Const InterfaceId As String = "1882ce84-9369-4d02-ada6-1a6438e56a08"Public Const EventsId As String = "d610f949-b193-4e5a-9398-7a9ed1426c4b"#End Region ' A creatable COM class must have a Public Sub New() ' with no parameters, otherwise, the class will not be ' registered in t

i have a small sql-testprogram and precompile it under eclipse with Oracle Pro*Cobol . If the result is a int-file, the run works fine using rtsora.  The compile/link as SingleExecutableFile shows the linkerror: 'Cobol program "SQLBEX"/"SQLADR" undefined'. The OracleInstantClient is installed and then libclntsh.so (lib where sqladr and sqlbex is included) ist available in ldconfig-cache. running the program (" ./pgm") shows a similar error Load error : file 'SQLADR'error code: 173, pc=0, call=1, seg=0173     Called program file not found in drive/directory What is the problem? How can i resolve link errors? environment is RHEL, VisualCobol4.0, recent OracleClient   regards lw

I have a Visual Studio 2017 COBOL question. I have a Solution of many projects and the projects all focus on a single form. From that form various projects are initiated for different processing but when returning to the originating form I don't know how to gain control of the processing without initiating something on the form (button). That means the user has to do this to finish the processing from the initiated projects (changes are made to the form). Where do I insert code that will automatically do the processing without intervention by the user? 

Hi - How we can fetch the Paragraph name along side with business rules extracted from Microfocus. Any help on this would be appreciated

Whats is the sentence for uninstall RM Cobol V12 - 64 Bits in Linux CentOS Thanks#RMCOBOL#linuxcobol

 Hi, I'm new to the community so I hope I'm asking the question correctly.  I installed Visual Studio 2017 for personal use and microfocus COBOL.  When I load the program in, the build button is displayed.  The compile button is displayed under it.  The compile completes with no errors - very simple program.  I do not have a run button and debug doesn't have a button to step through the program.  When I check the folder where the program is, I have a .int file but no .o or .gnt file.  What do I need to do to be able to run this very simple program? Thanks, Chuck Dial#VisualStudio#COBOL

I have a naïve cobol program running in visual cobol 2.3 that get a run time error 173 on MFFH.  I have the cobol server path in the bat file that runs the program and even tried copying the bin folder to a different local drive with the same results.  What am I missing.  I have followed the documentation for running naïve programs from a workstation. PATH=C:\\PROGRAM FILES(x86)\\MICRO FOCUS\\COBOL SERVER\\BIN;D:\\CCARMARUN\\BIN;D:\\CCARMARUN;%PATH% CCARMA  CCARMA is the program.  

i have a netexpress program calling a vb subroutine passing 3 integer parameters which works fine. If I try to pass the second 2 integers as a group then I cannot get it to work. (the group will eventually have about 50 items in it) VB Prog Imports System.Runtime.InteropServices <ComClass(vbpan32.ClassId, vbpan32.InterfaceId, vbpan32.EventsId)> _Public Class vbpan32 #Region "COM GUIDs" ' These GUIDs provide the COM identity for this class ' and its COM interfaces. If you change them, existing ' clients will no longer be able to access the class. Public Const ClassId As String = "253aac3c-266c-4786-a71c-7185051536c2" Public Const InterfaceId As String = "1882ce84-9369-4d02-ada6-1a6438e56a08" Public Const EventsId As String = "d610f949-b193-4e5a-9398-7a9ed1426c4b"#End Region ' A creatable COM class must have a Public Sub New() ' with no parameters, otherwise, the class will not be ' registered in the COM registry and cannot be created ' via CreateObject. Public Sub New() MyBas

ACCEPT WS-DATE FROM DATE RETURNS A 6 CHARACTER DATE. WHAT NEEDS TO BE DONE TO MAKE THIS 8 CHARACTERS?

We have migrated from netexpress for Windows to visual cobol 4. I need to use cblnames from command line . Where can I find the technical documentation? In the previous environment the command used was: cblnames -V -FM -DUSFHINIA.def @USFHINIA.NAM

Problem: How to put comments in an EXTFH configuration file? This KB applies to Net Express & Server Express products. Resolution: The default 'tag'  to insert comments in an EXTFH configuration file is to write a line beginning with a semi-colon (  ;  ) ----> ; This is a comment [XFH-DEFAULT] STRIPSPACE=OFF ; Do not remove trailing space characters when performing WRITE or REWRITE operations ; on line sequential  or line advancing files. ================ the 'tag' to insert comments is configurable with COMMENT-INDICATOR: for example COMMENT-INDICATOR:* * This is a comment [XFH-DEFAULT] STRIPSPACE=OFF * Do not remove trailing space characters when performing WRITE or REWRITE operations on line * sequential or line advancing files. Old KB# 1355#netexpress#ServerExpress#COBOL#AcuCobol#RMCOBOL

Hi everybody,                     I am developing a low level solution by using named pipes with dynamic memory allocation with CodeBridge. For this I have been using the library directly but after the execution returns to the main Cobol program, when I use SET statement with a LINKAGE structure it gives me an error 104. The specific question is, if I am using a Cobol POINTER as a C argument for memory allocation, should PointerBaseToCobol, PointerOffsetToCobol and PointerSizeToCobol functions be enough? Or Should I use something else?   Greetings! Marcos#CodeBridge#pointers#memoryallocation#RMCOBOL

"Hello".  Please allow me to make this post to ask for help.  I suspect I have XBIS configured incorrectly. Here is the contents of the SRF: {{ // There must be no whitespace before the XML header, hence the newline-eating comment tags. }}{{ Handler * }}{{//}}{{ Trace(start,file,DIR=/dms/src/DIPO/ptrace,exchfiles) }}{{//}}{{ RunPath(/dms/obj,/dms/dmsdata,/dms/dmsmast) }}{{//}}{{ StartService(DIPOAPPDRVR -A='WHI' -v) }}{{//}}{{ XMLExchange }}{{ SessionComplete }}   Here are the contents of the trace file: MODBIS2|1532979782.25|--------S-T-A-R-T--O-F--R-E-Q-U-E-S-T------- from 69.176.97.175 at 2018-07-30 14:43:02 -0500SERVICE|1532979782.36|Generated XML file name: /var/local/liant/bis/bisL7Hh4C-aQ8EK1RUSDSRxeQ-0000.xmlServMsg|1532979782.36|Trace "/var/local/liant/bis/trcL7Hh4C-aQ8EK1RUSDSRxeQ"ServMsg|1532979782.36|Trace onServMsg|1532979782.36|SetProgramDir /var/www/html/dms/services/dipo/prod/ServMsg|1532979782.36|RunPath /var/www/html/dms/services/dipo/prod,/dms/obj,/dms

Micro Focus Visual COBOL. An item in working storage is described as PIC X type but no VALUE clause, as follows:        WORKING-STORAGE.            01  WORK-ITEM       PIC X(10). In this example, when program loads, does this item have an initial value of spaces?  ... or is it "undefined"? (Assume default environment,  should environment variables affect the answer). Also, if there is a documentation reference, please provide a link. Thanks!    

 I have a client that has a current system in production with Net Express.  We have converted their code to visual cobol, but they want to have both Net Express and Visual Cobol license on the same server for testing.  I this possible to do.

Attention Micro Focus Representatives,            I'd like to know if I could freely distribute the RM/COBOL runtime for applications that I develop for people to use, since RM/COBOL doesn't have a method for building .EXE (executable) files and the runtime is required for the programs to run.   Sincerely,   Jack Stockman

The purpose of this program is to demonstrate how to      1. import an XML file containing BIS elements      2. remove BIS elements with an XSLT stylesheet using 'xsl:copy-of'      3. generate XML file 'result.xml' without the BIS elements      4. remove BIS elements with an XSLT stylesheet using identity transform to copy the subtree starting at a specific node      5. generate XML file 'result2.xml' without the BIS elementsNotes:Step #2 and #4 do the same thing using different XSLT comamnds In theory, the basics of this program would allow an installation of XBISto be used as a "pass through" to another web service. The basic steps would be:      a. receive an incoming request      b. remove the BIS elements      c. produce a request that could be forwarded to another web service.   pass_5F00_thru_5F00_sample.zip#RMCOBOL#XMLExtensions#BIS

-  How to position a current window at the same x and y coordinates position as my previews window but whereby the two are not parent-child windows and belong to different screensets.#VisualCOBOL#dialogsystem

Hi am trying to read tables from one database and create basically temporary tables in another database on the same server. I have tried the severname.databasename.owner.tablename notation and it doesn't work. It works fine if I use the same database.  When I try to use the 2nd DB it just creates a vision file. No translation to acu4gl. I have set the filename_HOST to MSSQL for each file, there also doesn't seem to be any acu4gl messages in the error file when I turn file trace on for the 2nd DB. There is if I just use one database. Can anyone or has anyone been able to communicate to two databases successfully using acu4gl? Thanks#mssql#database#Acu4GL