Rocket® COBOL

Can Source be created from a Executable? In my previous jobs we could do this on a IBM S38 many years ago.I have a small program that Unicon gave us that is used in Date Routines. Works fine but in case we run into trouble I would like to take look and fix it if possible. I Talked to Masoud from Unicon and he does not have the source either.  Currently on Version 10.3.1. The program is called "50" in case someone has the source.

I want to give File-Information in a cobol-window. But how I can get the information from an index-file?- Size of the file - How many data-sentences are in - How many keys are in - IndexFormat - aso I can also call an existing DOS-Modul and bring this to a seq. File and read this . I need a solution. Urgent!     #Other#SupportTips/KnowledgeDocs#SupportTip#SupportTips/SupportTips/KnowledgeDocs

Hello,We have a program that is throwing a memory access violation, when being ran from a script on a Linux server. When we run the program in debug on the same server, it runs through, no problem. The same exact program and script run on AIX with no issues.Could anyone suggest a solution, or the best way to troubleshoot this issue? Thanks...

HiI try to used microsoft exchange with winbmail but i do not find the correct information to enterThank you 

I am getting the error 173 - Called program file not found in drive/directory SQLADR when running cobol v5  in Visual Studio 2019 using database Oracle 18, 32  bit.I have put litlink in additional directives under COBOL (anim cobidy warnings"1" max-error"100" litlink) and have put the path to the oracle 18 lib in COBOL LINK 'link with libs'That fixed the problem of connecting, but I still get the 173 called program file not found in drive / directory SQLADR when I try to call a program in another project.  This worked previously in VS 2013, cobol 2.3.I do notice that there are only two references to microfocus in 'about' - IMTK client generator and cobol 5, where there used to be 6.   #sqladr#notfound#173

Could you please point me to the latest most detailed documentation on getting AcuXDBC 32 bit version 10.3.1 working with a 32 bit version of MS SQL Server Management Studio Linker Server I am hoping/expecting that MS SQL server will overcome the restriction that I am encountering when using MS Access in that I can only read in 256 columns. I have attached a word document showing my current setup in which I am employing a version 9.01 ACUXDBC . It may be better simply to provide the info on exactly step by step it should be done rather than trying to work out what I have done wrong.

Looking for a COBOL programmer to help troubleshoot and correct, possible having to create a logging program, an issue within our EDI module.  The system is replacing the current system date with a date from 2004 and we don't understand why.  Needing a programmer to look into this on contract work.  System was programmed using a Micro Focus complier, but was told it was an older version, and the new version cause problems.Andrew Nussel**PERSONAL INFORMATION REMOVED**

HiThis feature will disable the underscore for a label when using an '&'.Is there an environmental configuration for this, instead of changing all programs to add this properties (NO-KEY-LETTER) to the labels. I have looked, but just I case I missed it. Thanks!!Dennis

This week I’ve discovered the power of the string handling syntax that’s built into the Managed COBOL language. If you're not familiar with it, it’s well worth a look... We'll start by looking at a code sample, then we'll discuss the syntax. The program produces the output : hello world hello world hello-world 23 is a number which I can concatenate Length of a = 11 hello-world Micro Focus Managed COBOL is amazingly good for working with strings!   Now let's take a closer look at the code... Substrings Substringing is built into the Managed COBOL syntax To do this with C# or Java you would have to use a substring method on the string class.   String Length     To get the length of a string use SIZE OF, for example To do this with C# or Java you would have to use a length method on the string class.   String Concatenation String concatenation is easy in COBOL using the & operator. Notice in the example above that you can concatenate string variabl

Hello, I run this program:       identification division.       program-id. DivideByZeroTest.        environment division.       configuration section.        data division.       working-storage section.       01 ws-vars.           05 ws-zero                  pic 999 value 0.           05 ws-one                   pic 999 value 1.            05 ws-result                pic 999 value 0.       01 ws-tbl.           05 ws-tbl-items             pic 999 occurs 2.       procedure division.      &n

what is the difference between "Server for COBOL" , "Server for SOA"? also the list price? thank...

Hi,  in RM/COBOL 12xx is possible generate a file pdf ?  I'll explain : I've a program that print on a printer a bill. If I need to trasform or redirect the printout created  on a file .pdf how can do it ? Thanks everyone for the help.....................

Hi AllI am running VC 6.0.  In development region, I wanted to find out the list of modules getting called in some of the complex transactions. I enabled CTF and I was able to get the log. But it has so many events. I would like to get only specific event like the list of called programs. Is it possible ? Also Is it possible to restrict CTF for only specific modules ?CTF config file usedmftrace.dest = binfilemftrace.emitter.binfile#location = C:\\ctf\\logsmftrace.level.mf.rts = infomftrace.comp.mf.rts#pgm = truemftrace.comp.mf.rts#pgmload = truemftrace.comp.mf.rts#syspgm = true

I am trying to implement FAST_FORWARD in an AcuSQL implementation. When i use the following syntax;EXEC SQL RELAXED DECLARE cursor_name CURSOR FAST_FORWARD...I get the following error;syntax error at FAST_FORWARDIs there anyway i can implement FAST_FORWARD using AcuSQL?Here is the Microsoft SQL Documentation for referencehttps://docs.microsoft.com/en-us/sql/t-sql/language-elements/declare-cursor-transact-sql?view=sql-server-ver15

I have a program with 3 print files in it. For some reason it is overwriting the print file.Here is the print file after I open it and setup the Heading ETC.EMAIL:**PERSONAL INFORMATION REMOVED**SUBJECT:CULLIGA0ATTACHMENT:AP CHECKSPROVIMI FOODS, INC.AP0610PC ACCOUNTS PAYABLE ACH REGISTER PAGE 103/23/2021 7:34 AMVENDOR VCHR INVOICE AMOUNT --- A C H --NUMBER VENDOR NAME NUMBER VENDOR INVOICE DATE DUE DATE PAID DATENUMBER And here it is after I write another Line 284400 CULLIGAN WATER 371513 546X02507407 02/28/2021 03/19/2021 192.92 3/15/2021 A3681 VIMI FOODS, INC.AP0610PC ACCOUNTS PAYABLE ACH REGISTER PAGE 103/23/2021 8:04 AMVENDOR VCHR INVOICE AMOUNT --- A C H --NUMBER VENDOR NAME NUMBER VENDOR INVOICE DATE DUE DATE PAID DATENUMBERIt is overwriting the first 4\\5 lines up to where PRO is.Any clue what is causing this?

Hello. In my point of sales software, the invoice header is a .bmp which I print with the instruction. Only today on a pc my program does STOP RUN at line? in program P $ DRAWBITMAP (). I have tested the program on all PCs and only on that one does the error occur. I have verified that the .bmp file exists and replaced it with a fresh file. The problem has continued. I have uninstalled and installed rmcobol cobol version 12.17 and the problem continues. All this leads me to think that there is a problem with Windows 10 and rmcobol, can someone help me to know what is happening?27321 CALL "P$DrawBitmap" USING "milogo.bmp",27322 IZQUIERDO, TOPE, "Absolute", "Inches",27323 ANCHO, ALTO, "Inches"27324 WRITE REG-SAL FROM SPACES AFTER27325 ADVANCING 1 LINES.

Hi  to everybody,I'm trying to figure out how to pass data to my Cobol program that runs on Windows. For mainframes, that would be via the Parm keyword on the JCL Exec Pgm;  for Windows it should be specifying the data to pass on the Command line (e.g. C:\\program path address....\\Progname   "data to pass".).   Any suggestion?                                                                                                        &nb

Our Situation:We have a Cobol JVM for Eclipse project packaged as a jar file. We have another Cobol JVM for Eclipse project packaged as another jar file.  We currently have these deployed with no issues. We,however, now have to open up one of these to make a small code change.  The first jar uses a shared program in the second jar.  The method we have used is the "CALL 'programname' USING " syntax.  The directives we are using on the jar when building are these:IDXFORMAT"3"SQL(DBMAN=JDBC TARGETDB=ORACLE BEHAVIOR=UNOPTIMIZED CLOSE_ON_COMMIT=NO NOCHECKSINGLETON DATE=EXTERNAL OPTIMIZECURSORS=NO)ILUSING(packagename of called program)our calling jar project compiles just fine but when i export it as a jar it fails on runtime with error 173 called program/file not found.Both the called jar and calling jars exist in the same directory and this directory is added on the CLASSPATH.  what would i be missing here? 

After upgrading to Extend 10.3.1, we experience very long response times when reading large indexed files.Environment: Debian server running Acucobol (acurcl runtime). Windows PC connect using acuthin.exe.We have a search function reading all records in an indexed file containing more than one million records. First search takes 10-15 minutes and the user thinks that the search routine died or even receive message "The remote server is not responding". Second search is done within 10-15 seconds!It seems to have something to do with linux, because even if we close the application and restart it, a new search is still done within 10-15 seconds.We also had this problem in version 9.1, but not at all to that extend. First search was done within a few minutes.Does anyone have a clue on how to optimize initial read of a large indexed file on linux?

Hi,I am trying to convert a C # program to Cobol but there is an instruction that, despite not giving a compilation error, is not being executed.The original statement is:Manager.Http.SendRequestAsync(HttpMethodType.POST, this.ActionUri, body);and the conversion will be:invoke type Manager::Http::SendRequestAsync(type HttpMethodType::POST, self::ActionUri, body) What is happening is that SendRequestAsync is not being executed. Is there a different way to convert the statement to C #? ThanksAlberto Ferraz

 Hi Shjerpe,the previous post locked me out as my keyboard had an issue and replied many many time. In Excel it comes back in alphabetical oder.Much to my complete disbelief as initially I am certain that I ticked off every column left to right against what I saw in my cobol code that uses the xfd. Suddenly the next day its alpha, but at least I got all the columns I believe even though it mentioned truncation (I couldn't see any) MS Access is listing in the correct order but is limited to 256 columns and I have over 1000 I have rebooted, restarted trying to get back.  I will say it seems to be doing a "preview" that I don't recall it doing first time around.

I am sure the first few times I used my DSN with AcuXDBC version 10.3.1 driver 64bit the data from my vision file imported in the same order as the file definition (xfd).  Now everytime it is bringing it in with the column names shown alphabetical order which I do not want. Any ideas?I see also that MS Access still has 256 column limit? I will try MS SQL server linked server so any recent documentation on AcuXDBC and linked servers in MS SQL would be handy. ThanksJim 

I want to be able to have Program A kick Program B off as a thread, have program b stores its pid in a database record such that program a can be invoked at a later time to kill Program BWe are using version 9.2.1, 9.2.3 and 10.1Acugt and acu4glJim

hello.is there a trial for a text based (no gui) cobol compiler/runtime for ubuntu or opensuse (current version)?Thanks

Hi, in my lillte experience I have all the impossible cases of the wordI have a sequential file where is stored numbers in alfanumeric type ( examples "123,45"  "10,00"   "35780,00" "450" )  I need to convert them in numeric variable. How can I do it ?I use a variable declared PIC X(16)  to store each field: If I see it on dislay is correct ( after I have removed the " )I have tried with all the know-how of my mind but I have results very disastrous ( examples 123459,00  10009,00 )I hope the problem is the sign that I declare in the recipient variable [ 77 W-NUMERO pic S9(11)v99 ]Someone can suggest me a method ???Many thanks to all you