Rocket® COBOL

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

This example has been tested with Enterprise Developer 4.0 and with Visual COBOL 4.0 for Eclipse and Visual Studio. In situations where an application fails with an error condition that it cannot recover from, you might want the application to terminate the process in such a way that error processing occurs. For such scenarios, Micro Focus provides the CBL_RUNTIME_ERROR library routine that enables you to display a custom message.  You need to call the CBL_RUNTIME_ERROR library routine from your code and provide a message string to indicate the error. The API that uses this routine takes a flags parameter. Setting the flag to 0 forces the application to terminate and generate the specified user COBOL Run-Time System error displayed as an RTS 150 message. The message enables the user to determine which (of potentially several) error condition caused the termination. If the core_on_error tunable is also set, CBL_RUNTIME_ERROR makes it easier to debug application errors from a produc

I HAVE A LEGACY SYSTEM THAT I AM CONVERTING TO VISUAL STUDIO. HOW DO I GET THE PROGRAMS TO RECOGNISE FUNCTION KEYS ?

What is the easiest way to create and write a CSV file?  Is it necessary to use Excel?

In an older version of MF COBOL I used "current-date" as the Source for a field in the screen section.  That triggers a compiler error now.  What replaced "current-date"?#screensection#date

Hello, Our company would REALLY like the 64k limit of the extra segment enlarged.  We have recently hit it with one of our billing program and are very close to exceeding in in a couple of others.  I was wondering if any other users have hit this limit and/or would also like to see it increased? We have also found it very difficult to understand what actually makes up this extra segment because it is not very clear according to the documentation as to what it is.  We have been using the Acu stuff for 20 years and our product and our programs have gotten rather large and very complex.  We have tried to clean things up, but in doing that we have had some strange results.  In reviewing some copy books that we use we have found some fields that are no longer being used so we thought that removing some of these fields might help.  We removed some fields and the extra segment did not change, however, once we got to one field that we removed the extra segment fr

We have a customer that does not have an LPT1 port on their PC.  They have connected their receipt printer to the USB port on the PC, and our program will not print to the receipt printer because it is looking for the printer to be attached to LPT1. Is there a way in RM COBOL to tell the computer to look at the USB port (like PRINTER1 tells the computer to look at LPT1)   (I could use PRINTER? but the customer has instisted that they do not want to have to select the printer EVERY TIME they use the cash register).  #RMCOBOL#print

Has anyone else run into the compiler error "Compiled screen description too large"?  Apparently this error means a screen description has exceeded 32k.  I added a new page with roughly 50 controls on it to a tab control and now the program gets this error when I attempt to compile it. Is there anyway to get the 32k limit increased? This is the second program we've had this happen to.  We had this problem about seven years ago with another program and had to rework which controls we were using on the screen to get around the problem.  Unfortunately, the way we handled the problem in that program isn't really an option this time around. Thanks, Jim

I am trying to test Cobol Server in Docker, but all licenses we own are recected when building initial image:...Step 18/19 : RUN set MFLICFILE=${MFLICFILE} &&     "%RMT_DIR%\\\\MFLicenseAdmin.exe" -install %MFLICFILE% ---> Running in 60dec237fcc1Non-STANDALONE license ignored:10 SolarNativeRuntimeDeploy 1.0 LONG NORMAL NETWORK ADD INFINITE_KEYS INFINITE_KEYS 1 JAN 2009 NEVER NO_SHR SLM_CODE 2_LOG_ENCRYPTION_LEVEL NON_COMMUTER NO_GRACE DEMO NON_REDUNDANT NiL NiL Ni NO_HLD NiL 5_MINS xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNon-STANDALONE license ignored:xxxxxxxThe command 'cmd /S /C set MFLICFILE=${MFLICFILE} &&     "%RMT_DIR%\\\\MFLicenseAdmin.exe" -install %MFLICFILE%' returned a non-zero code: 8030720...   What kind of license do i need. Where can i get at least a test license.#docker#VisualCOBOL#license

In an older version of MF COBOL I used "current-date" as the Source for a field in the screen section.  That triggers a compiler error now.  What replaced "current-date"?#date#screensection

I'm unable to download the Patch Update 1 for 4.0 for Visual Studio 2017. I get an error message indicating either "INET_E_DOWNLOAD_FAILURE" in Microsoft Edge or "ERR_CONNECTION_RESET" in Chrome.  In Firefox I get a message saying the connection was reset. I do not use a proxy. I tried both on my Windows 10 VM and on macOS

I get the above error when building my Visual COBOL solution using Visual Studio 2015.  Is there something simple I'm missing?  The code worked fine using the old MS-DOS Micro Focus compile and link.  Do I need to check one or more namespaces in the solution properties, for instance?  Or something simpler? Thanks in advance, Wes#errorCOBCH0854#VISUALSTUDIO2015#VisualCOBOL

I have a problem with ACUBENCH 9.1.1 , i use this editor from many years but this morning when i push the button to show the WORKSPACE ,this window doesn't appear.   Do you know a solutions?   thank you.   Maurizio from Italy.

I get an error accessing the data grid that the index is out of range. I have done this many times so the error is unusual. The only factor different in my many uses of data grid is that I have two data grids on a single form. I'll provide some detail. Here is the code invoke self::dataGridView2::Rows::Clear set dataGridView2::ColumnCount = 3 set dataGridView2::Columns[0]::Width = 100 *> Hole set dataGridView2::Columns[1]::Width = 150 *> player set dataGridView2::Columns[2]::Width = 100 *> results perform varying sub1 from 1 by 1 until sub1 > 9   subtract 1 from sub1 giving line-number (this gives zero)   move 0 to column-index   set dataGridView2::CurrentCell = dataGridView2::Rows[line-number]::Cells[column-index];The above set datagridview2 fails with  An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dllAdditional information: Index was out of range. Must be non-negative and less than the size of t

Hi there I'm sorry when how to solve this issue is known the most, and the work-around might be obvious to just as many  Even though, I've not been able to figure out what - as I've installed MF visual COBOL and is about to migrate older programs Doing so, I'm compiling from Visual COBOL command promt (64-bit) using COBOL.exeIt goes well, but next when using the linker (LINK.exe), it comes up with "LINK : fatal error LNK1561: entry point must be defined" And, the compiler doesn't take any of the compiler options in account - no matter whether I use CBL or PROCESS statement Any help will be greatly appreciated, kind regards