Rocket® COBOL

Problem With SQLCA's SQLERRMC limited to PIC X(70), calling Oracle's SQLGLM allows to retrieve error messages longer than 70 characters. The following works fine in 32-bit: 05 ORACLE-ERROR-TEXT PIC X(100) VALUE SPACES. 05 ORACLE-ERROR-SIZE PIC S9(9) COMP-5 VALUE 100. 05 ORACLE-MSG-LENGTH PIC S9(9) COMP-5 VALUE ZERO. CALL 'SQLGLM' USING ORACLE-ERROR-TEXT, ORACLE-ERROR-SIZE, ORACLE-MSG-LENGTH However in 64-bit, the same CALL fails with RTS 114 'Attempt to access item beyond bounds of memory'. Solution The Oracle 64-bit version requires a 64-bit data definition for the length parameters passed to SQLGLM. They should be defined as PIC S9(18) COMP-5. The following should work across both 32-bit and 64-bit platforms: 05 ORACLE-ERROR-TEXT PIC X(100) VALUE SPACES. $IF P64 SET 05 ORACLE-ERROR-SIZE PIC S9(18) COMP-5 VALUE 100. 05 ORACLE-MSG-LENGTH PIC S9(18) COMP-5 VALUE ZERO. $ELSE 05 ORACLE-ERROR-SI

Is there any way to force a mutiline entry field to accept a maximum of 80 characters per line?03 WS-PROBLEM PIC X(80) OCCURS 07. ENTRY-FIELD 3-D ID 116 COL 23 MULTILINE LINES 7 SIZE 80 CELL USE-RETURN MAX-LINES 7 MAX-TEXT 560 USING MULTIPLE WS-PROBLEM.My current code only checks for max lines and max text, but not max text per line.

Hi,I am getting'COBCH0853S System error - evaluation stack mismatch ... -> in the line 'EVALUATE HV-POS' using the VC5 Bytecode Compiler when compilingEVALUATE HV-POS       WHEN 02 MOVE 'something ' TO H-TEXT       ADD 1 TO ZZ-02       WHEN 67 MOVE 'something else ' TO H-TEXT       MOVE 'J' TO KEZ-AUSGABE      WHEN 68 MOVE 'something else x ' TO H-TEXT      MOVE 'J' TO KEZ-AUSGABE      WHEN ANY MOVE ' ' TO H-TEXTEND-EVALUATEReducing the nestings, e.g.EVALUATE HV-POS       WHEN 02 MOVE 'something ' TO H-TEXT       ADD 1 TO ZZ-02*       WHEN 67 MOVE 'something else ' TO H-TEXT*       MOVE 'J' TO KEZ-AUSGABE      WHEN 68 MOVE 'something else x ' TO H-TEXT     

Our programs were converted over from Wang Cobol 10 years ago @ Unicon. So Far so good until now. I am testing version 10.3.0 and have errors opening a file for output if that file already exists. Are there any routines or ??? available for handling a file that already exists? I would like the option to either scratch it or rename it if possible.

i have use this mf-examples and have a half success for sending email via MS Exchange of MF Groupwise.Only if i define one ore more attachment, i become following error message " 114 Attempt to Access item beyond bounds of Memory" bei this command:call WINAPI MAPISendMail   using by value     Mapihandle                                   by value     0 size 4                                     by reference mapimsgstruct                           &nbsp

Hello,Brand new to this forum, my name is Nicolas and I am in charge to optimize COBOL programs converted from IDEAL.I have two questions regarding the profiler.1. The results of the Profiler are quite inconsistent on our site for Online programs.I ran 10 times the same transaction with the same input and results in MF Profile are difficult to analyse. Sometimes there is one procedure taking 100%. another one there are four procedures taking each 25%, then 3 other procedures taking each 33%Anybody had inconsistent results like this and have a clue on how to improve the profiling on Online programs ?2. Since 2 or 3 monthes ago, there are sometimes new lines at the beginning of the profiler in the Call Count.Please look at the attachment.There are some weird characters, is this normal or a problem on my site ?Before I had only one line in this section. What are the new lines for and means ?Thanks and Kind regards.Nicolas.

PROBLEM When trying to re-link the runtime to use Acu4GL 10.2.1 for Informix on Linux, the following error occurs after executing ‘make –f Makefile.inf’ and the re-link fails: /home/informix/lib/esql/checkapi.o: In function `ifx_checkAPI': checkapi.c:(.text 0x0): multiple definition of `ifx_checkAPI' /home/informix/lib/esql/checkapi.o:checkapi.c:(.text 0x0): first defined here collect2: error: ld returned 1 exit status Makefile.inf:251: recipe for target 'libruncbl64.so' failed make: *** [libruncbl64.so] Error 1   SOLUTION The following issues are fixed in AcuCOBOL-GT extend version 10.3.1 which is due for release later this year. Prior to that release, the following workarounds can be used. In the ‘lib’ directory of the Acu installation locate the Makefile.inf that was created when ‘sh inf_inst’ was executed. Open Makefile.inf in a text editor and make the following changes: On the line starting ‘FSI_LIBS = ‘ if there are 2 references to the file checkapi.o then remove the secon

PROBLEM When using the HTTPPOST function with extra headers the response received is ‘HTTP 400 - Bad Request’.   SOLUTION When using either HTTPPOST or HTTPGET there is the option to set extra headers. These extra headers could be either SOAPAction or Authorization headers etc. If this is not formatted correctly the server will respond with an error ‘HTTP 400 – Bad Request’ According to the documentation: extra-headers - An optional alphanumeric item specifying extra headers to be added to the HTTP header. This argument consists of name/value pairs separated by hex x"00", and ended with two x"00"'s. This could be set in the following format in WORKING-STORAGE: 01 EXTRA-HEADERS. 05 filler PIC X(10) value 'SOAPAction'. 05 filler PIC X value x"00". 05 filler PIC X(90) value '"https://SOAPURI"'. 05 filler PIC X value x"00". 05 filler PIC X(13) value 'Authorization'. 05 filler PIC X value x"00". 05 filler PIC X(30) value 'Basic base64-encoded-password'. 05 filler PIC X value x"00". 05

I have a masked text box control on my windows form which I want to use in order to display a SSN to the user. I chose a predefined mask description in the properties windows and it looks as follows: 000-00-0000.When I move a value that has leading zeroes to my mask text box, however, it drops the leading zeroes. For example, if I move a value of '000001234' to the mask text box, it displays it as follows:  123-4_-____. I works well if there are no leading zeroes. If I move the value '123456789'  to the mask text box for example, it displays it correctly as follows: '123-45-6789'. 

In Visual Cobol 5.0 for Visual Studio 2019 I can not get context help to work.When I hit F1 it goes to " lang:"en"&form=S00028" target="_blank">https://www.bing.com/search?q=how to get help in windows 10&filters=guid:"4028227-en-dia" lang:"en"&form=S00028 . When I hit F1 should it go to to online Visual Cobol Help?     

i wanted test the email sending on visual Cobol. I know at the base the example was written in netexpress 5.xI missed MF-Copy files as:commdlg.cpymfres.cpyminiwin.cpywingdi.cpywintypes.cpy (in MF-Files fail the Definition of lphandle)winuser.cpyAre there other files to be placed in source programs?Using the netexpress copy files in visual Cobol gives any error on the Syntax!I can posted this in a separate message!

Problem: After creating a new Data Source to connect to a network server from a client machine, the error is encountered when trying to connect to data via an ODBC application or odbcsql: ERROR: [TOD][ODBC Driver]INVHOSTSYN: Invalid host/service name syntax   Solution: Although all the information on the General tab appears to be correct and complete, on the Logging tab the Log Filename parameter is indicating a log file location that is either invalid or an area where the process does not have permission to create or write to the log file.  Correcting the Log Filename parameter to a valid location will allow the ODBC connection to complete without the INVHOSTSYN error.     For more information on AcuXDBC client and AcuXDBC Server errors, please see their respective documentation links below. Client error messages https://www.microfocus.com/documentation/extend-acucobol/103/extend-Interoperability-Suite/GUID-F61C168D-8903-4F89-88F8-7C257183AFAE.html Server error m

Problem: At times you may only have an AcuXDBC error number or error code but need more information. Solution: Starting with AcuXDBC version 10.3, error numbers and error codes have been documented in the following locations. Please see the documentation links below.   AcuXDBC Error Numbers and their meanings https://www.microfocus.com/documentation/extend-acucobol/103/extend-Interoperability-Suite/GUID-5EBD0E19-B351-45E0-8404-990401F1734F.html AcuXDBC Client error messages https://www.microfocus.com/documentation/extend-acucobol/103/extend-Interoperability-Suite/GUID-F61C168D-8903-4F89-88F8-7C257183AFAE.html AcuXDBC Server error messages https://www.microfocus.com/documentation/extend-acucobol/103/extend-Interoperability-Suite/BKXDXDTRBLXD9.3.html #TipfromSupport

There are a many examples how to send emails via MS Outlook and i think that is also possible with groupwise?Who as a done this? in the Moment i am able to send mail with the tool "blat.exe", the only Problem is that the mail don't appear in GroupwiseAre the a documentation for Groupwise api?thanks for help! 

We are looking at upgrading some of our internal servers; currently we have Xcentricity XBIS running on Server 2008, tried installing version 10.0.0 on on Server 2012 R2.  IIS does not serve up the srf pages, as if IIS doesn't recognize what the srf is.  When I use "XBIS /SHOWSERVER", I get "Show server failed: Class not registered".  When I try to register using "XBIS /REGSERVER", I get "Server rmcbl12r.dll registration failed: the specified module could not be found".Should version 10.0.0 work with Server 2012 R2 or do I need a later version?Or is there a dependency that is not installed? Thanks for any suggestions.

Need help with resetting a combo box. The combo box works fine if a name is selected. I also have a option to enter a customer number. If a wrong customer number is used the combo box will duplicate all the customers again. At the wrong customer I initialize the PO-BOX-CHOICES and reload the table. What might I be missing to prevent duplicates on the combo box?Screen1 is the normal Screen.Screen2 is when it duplicates.Working Storage is the table.Screen Function is the indexing of the combo box.screen2.jpgscreen1.jpgScreen Function.jpg

Is it possible to find the full license key number using the License Administration utility, AppTrack? 

I have managed to generate an XML file using the XML GENERATE statement but for some reason when I try use the NAME or TYPE phrases, the program doesn't compile.  I get an "Verb expected, NAME found" error.  Am I missing a copycode or definition?  Or do these only work on mainframe?

Hello,I need to create safearray (to pass it into COM object outside Cobol), and each item in this safearray must be PIC N string.I am using this code: move VT-BSTR to w-vartype move 1 to w-dimension move xx-z to cElements of w-saBound(1) move 0 to llBound of w-saBound(1) invoke OLESafeArray "new" using by value w-vartype w-dimension by reference w-saBound(1) returning w-hostArray end-invoke perform varying w-Index from 0 by 1 until w-Index >= xx-z invoke w-hostArray "putString" using by reference w-Index by value 100 by reference w-item(w-Index 1) returning w-hresult end-invoke end-performWhere w-item is PIC N(100). But it's not working, on the other side in C#, I receive in string variable co

Problem: Each Server (region) running under Enterprise Server shows, on its Server > Properties > General tab, settings named Shared Memory Pages and Shared Memory Cushion.  These have default values such as 512 and 32, for example.  But the values might need to be adjusted to be certain the Server has enough shared memory.  When a Server is running under load and the shared memory settings are exceeded, the following error might appear in the console.log:  'CASKC0007W Shared memory storage constrained'.  How should a person decide what values to specify? Solution: The product documentation contains charts to help estimate the amount of shared memory a Server might require, for example as shown on this page: http://documentation.microfocus.com/help/topic/com.microfocus.eclipse.infocenter.visualcobol.eclipseux/BKCACACONFS011.html But in practice Micro Focus end-users usually establish values for the Shared Memory Pages and Share

Is there any way to redeem a  Cobol Server license key purchased in 2008 by mý company? The only information i have is the serial number.

Hi.  We are evaluating AcuToWeb.  Our application is actually running in the 10.2.1 version and fairly well, so congratulations to the development team.  We do a couple tricks which require W$TEXTSIZE to know the pixel length of strings as they appear on the screen.  If we use W$TEXTSIZE, it works perfectly, but is very slow over an internet connection (repeated loops where server sends request to client and gets answer back, so high latency slows things down)  We came up with a trick to operate over the internet (with thin client) where we cache the character sizes in our fonts, using W$TEXTSIZE once per character at startup instead of having to use W$TEXTSIZE on every string we display, since that is VERY slow.  This works great on the thin client because the fonts don't use kerning or change size due to anti-aliasing, so the server can pre-calculate string sizes.   When working with AcuToWeb, the strings are variable # of pixels per charac

Hi everyone.The recent online webinar about the 10.3.0 release had a section where they showed off the new ability to insert javascript functionality.  As an example, they showed a signature capture function.  I reviewed the 10.3.0 documentation for AcuToWeb and could not find references for how to use the new javascript functionality - ie how to trigger it from cobol and/or how to capture the result of the javascript - ie how to get the signature that was just captured.  So I was hoping to review the code from that webinar example.  A quick look did not show where they might have stashed it on the website.

Technical expert Blair McDonald from Micro Focus discusses and demonstrates advanced debugging techniques available in Visual COBOL for Eclipse. https://youtu.be/1IH2DJ2Z1oM #HowTo-BestPractice#Videos

Introduction to Visual COBOL for Eclipse   Technical expert Blair McDonald from Micro Focus provides a “Getting Started” walk-thru of the Visual COBOL for Eclipse product. ...   #Videos