Rocket® ACUCOBOL

Hi all :-) Does anyone have a COBOL example of a user validation in Active Directory they´d like to share? Regards Steen

Hi all, Has anybody used RMNet to implement an OAuth 2 solution. I am specifically trying access Audatex Audconnect solution for exporting assessments. I can get the authorization login to work using the browser control but the return post opens a new web page which I don't really want to see but I can glean the token from it by inquiring on the web browser control. However, having got the token I then need to post requests using httppost/httpget using the returned token to setup a request for an export and return the endpoint for getting the assessment data. All the posts after the authorization have Curl command equivalent's but I cannot get any of them to work. A simple one is to find out who you are when connected and the curl command is curl -X GET --header 'Accept: application/json' --header 'Authorization: Bearer 'returned token' '

Linux/Unix is almost new for me. Which is the best TERM to use in combination running ACUGT 9.2.4 and/or 10.2. Is it vt220? When yes, how has for me a A_TERMCAP including mouse and colors? The a_termcap MF provided is from 2006.#extend#Linux

Hello I have a problem with the event MSG-GOTO-CELL-DRAG (not thin client). When I use the next code it works when I drag a row down in a grid slowly. When I drag the row down very fast it seems to loose the MSG-GOTO-CELL-DRAG event because INTEGER is not being added.   WHEN MSG-BEGIN-DRAG         MOVE 0 TO INTEGER WHEN MSG-GOTO-CELL-DRAG         ADD 1 TO INTEGER WHEN MSG-END-DRAG         DISPLAY INTEGER   I tried runtime 9.22 and 10.20#Grid

HI All I have got the 10.1.0 Dev Suite and I have been led to believe that the 32bit version of this comes with the Acusql precompiler Presumably to compile a cobol source program I will need the 10.1.0 compiler to pick up the precompiler ?   I have 10.1.1 runtime and but I only have the 64bit version licenses not the 32bit.  If I have compiled as per stated above does that mean I MUST execute the 32bit runtime?  I  purchased a 32 bit runtime license for AcuSQL last June 2017 but Micro Focus have been unable to supply such a license.  I get a delivery notice but when I go to the website to "email summary" I get message "This order does not contain any License Key information"  Has anyone seen that before?  The support people in Sydney do not seem to know how to get round this.  

I've a web browser control which is used to display a image when I do the http call.   I am wondering if there is a way to save this image off and resize it or store so I can do the call and get the back and print both sides at one time.    I can print one side at a time but if possible I would like to do both at the same time.   I also have some calls where the image comes back upside down so I would like to save it and rotate it if possible to display right side up.  Would anyone have any suggestions on how or if I could do this.    Thank you.

Hi  How do you handle automatic update of the Acucobol thin client.  We are using ATC files, and the ATC files is associated with the thin client we are using right now (10.1)  When we set the normal port to the next version 10.2  the user are prompted if they would upgrade, and then the download runs and succeeds. But it does not change the association to the acuthin client before. that means that every time the user clicks his ATC file they are asked to upgrade.  Has anybody found a solution for this   Best Regards Steen  

Hello,   Since GDPR will be implemented on 25 May 2018, I am looking for a solution to do data encryption on SQL Server column level. I know SQL Server 2016 SP1 has a "Always Encrypted" feature that can do the column-level encryption. I would like to know does Acu4GL support "Always Encrypted" feature if SQL Server 2016 SP1?   Regards,   Bobby 

Hello, there is a way, using c$xml, to add a partial XML (identified by an handle) as child of another XML tag?   Regards Paolo#XML#cxml

I have a COBOL program that opens a window and hosts a NET UserControl component, which has been declared in the Screen Section.  I would like to allow the user to press the ESC key and have the program close.  I have tried to capture the key in the NET component, but it looks like control goes directly back to COBOL and bypasses any event handlers in the component completely.  I am OK with that, as I wanted to handle it in COBOL anyway.  I started with a delegate event handler, as shown in AmortControl, but when I found that the key was not being captured in the component, I removed the event handler since there was no way to fire it.  The problem I have is that when the exception is caught in the screen accept statement, and I proceed to evaluate the value, it is MSG-VALIDATE.  In other screens of the COBOL program, the ESC key (pressed in COBOL) closes the currently running program.  I am unsure where MSG-VALIDATE came from.  I ran A

 We have a COBOL program that we use to send emails from our system written in COBOL. It uses SMTP to link to email servers via a Socket using C$SOCKET and works well. We even send binary attachments using base-64 conversion. Now this works fine and was based on the example program sendmail. We now have a new requirement to access a specific email address, and we want to retrieve all emails sent to it, and update our system creating a service call. Has anyone else done this? Is there an example COBOL source code that does this? I have looked for one but have not found anything.  Any help would be most appreciated. Regards Brian

PROBLEM When AcuConnect Distributed Processing is under a heavy load the error message ‘Program missing or inaccessible’ maybe seen and the runtime will crash or hang. This is reproduced when the Server is Linux and the client is Windows. RESOLUTION On a very fast network and performing thousands of socket operations, the server does not have enough time to close a socket before opening a new one and as a result it is running out of sockets.  The solution is to configure the operating system to reuse and recycle sockets. On Linux systems run the following commands as root:     sysctl -w net.ipv4.tcp_tw_reuse=1     sysctl -w net.ipv4.tcp_tw_recycle=1   To make this configuration permanent use:     net.ipv4.tcp_tw_reuse=1     net.ipv4.tcp_tw_recycle=1 in - /etc/sysctl.d/99-tcp-reuse.conf then issue t

Hi all. We use acucobol.CVM class from wrunnet.dll to call COBOL program from .NET module.   Unfortunately we get FALSE from the Initialize() method and we do not undestand why.  Is there a way to get a more detailed error code/message? Some kind of log or something like that ?   Thank you -- Davide Giudici#AcuCobol#Interoperating

How do we identify which table columns called TablId and/or TablNum equates to in Aculocks1

i have  a problem to run acucobl 5.2.1 when i  migrate from 32 bit linux to 64 bit linux  i gor message segmentation fault.

Problem: What does ACUCOBOL-GT provide in order to support the new EU regulation about GDPR ? Resolution: ACUCOBOL-GT does not offer any specific functionality regarding the new General Data Protection Regulation (GDPR) and no library routine about encrypting data in general. VISION indexed file system can be encrypted at the beginning, by setting the following clause directly in the SELECT of the files themselves:SELECT .... WITH ENCRYPTION Existing indexed files can be converted by adding encryption: Rebuilding FilesOption e of the vutil tool (http://bit.ly/2JH4UhA) This level of encryption is quite low, just above the ROT-13 code. It is useful

Hello, I just wanted to throw this out there and see if any other users are having similar issues.  Our applications are on the 10.1.0 and after the latest windows update quite a few of our customers on Windows 10 are getting 3707 errors [user does not have appropriate access permissions to the file (open)] when we are creating some temporary files.  The odd thing is that it is not happening every time, they go back into the same process and everything works fine.  Some of these routines that create the temporary files have been in place for a very long time and have never had problems till this week.  We have not been able to duplicate the problem yet, so I just wanted to see if anyone else was having the same problem and if they have been able to solve it.  It seems like the last update has messed something up, just not sure what yet.   Thanks, Scott Meiners

 I just watched the presentation of 10.2 and Acu to Web, they mentioned there are new open source libraries to that can be used to generate PDF's. I did not catch the name of the company that is providing this, does anyone know whom they are? We have been looking at using iTextpdf libraries and am wondering if this is the same vendor.   Thanks in advance#AcuCobol#acubench

Hi All community,   Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper. i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please   best regards  Zux

We are investigating on all the new features in C$PDF version 10.2.0 and it may solve some of our problems. One question we cannot figure out: Is it possible to right justify text (e.g. amounts) og do we need to use fixed fonts?

Good Afternoon All,   Can you please help me here i have been given a task to read a Cobol Program which contains several CALLING statements. these Calling statements include statements that call other programs since its a mainmenu it also calls other MENUs. now i am required to write a program that READS this program and print out all program CALLS for other programs and print them in an INDEXED file starting with MAINMENU (which is the program containing other programs).   now i have converted MAINMENU.cbl as text input file, please help me i cant get the program.   Best Regards Zux

Problem: Working in a Linux (Red Hat 5) environment, the following issues may occur: CALL "C$SOCKET" USING AGS-GETHOSTNAME, ws-hostname.The CALL returns no information for the host machine on which the COBOL program is executing. Any I-O operations executed via AcuServer return a file status 35: File not found. (open, sort) Resolution: This appears to be an issue within the server environment, where some socket libraries are not correctly installed, or not found by the runtime when shared libraries are in use. To ascertain that this is the case, use the following command-line from the prompt: runcbl -v  It usually shows the following output: ACUCOBOL-GT runtime version X.Y.Z Serial number 1234567 AcuServer client Vision version 6 file system (interface vX.Y.Z) If the "AcuServer clien

For part of the menu, when within Tree View, is there a limit to the number of entries (children).   Your responses are appreciated.

Problem: The user wants to silence AcuBench sounds but there are no AcuBench settings to turn off sounds. Resolution: To disable AcuBench sounds go in to the system sounds settings dialog via the control panel, or execute “control mmsys.cpl sounds”.  On the ‘Sounds’ tab under Windows, the ‘Default Beep’ is the one AcuBench uses for alerts, i.e. compile error, open source file modified, etc.  Scroll down to see ‘AcuBench application’ with only one sound listed, ‘AcuBench: Compile complete’.  Set both of those to none for a quiet AcuBench.

Problem: A very large Vision file must be expanded to accommodate more data than is available in the remaining FILLER item.  How can that be accomplished without using a COBOL program that would read the old file and rewrite all of the records to the new format, which would take several hours? Resolution: To increase the record size on an existing file use the Vision File Utility, vutil (vutil32 on Windows).  First run "vutil -augment ..." with the new maximum record size.  This does not rebuild the file, it is an instant command that only changes the file header to specify variable length records with the new maximum record length.  Next is to modify the FD to correspondingly specify variable length records with the new maximum and recompile the program.  The result is that new records added to the file will be the new larger size, while the existing smaller records can be accessed too. Example: An existing f