Rocket® COBOL

Hi MicroFocus community Team,XML PUT TEXTresponse-payloadresponse-len"Doc-response"if not XML-OK go to z.The above logic has been executed and generated below XML file, i just wanted to know how do we get <AuthenticateUserResult> values(marked below as red) into one variable? using String/Inspect verb we can play  or any other way?<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="docs.oasis-open.org/.../wsa:To><wsse:Security><wsu:Timestamp wsu:Id="Timestamp-706eb5b2-5679-4772-8f70-7e8beeac6642"><wsu:Created>2019-11-13T13:14:17Z&l

Hi MicroFocus Community Team,  I am using ACUGT cobol. My requirement is to call below web service and get the pdf document thru webservice and place pdf file on  my local C drive. ..  Any sample program  or manual to study this please?https://px-demo.avcm.esvccenter.com/services/wse/delivery.asmx

Memory violation with runtime 10:77  DATA-STRING PIC X(32000).DISPLAY "Data :"                LINE 09 COL 05                    DATA-STRING LINE 10 COL 01 REVERSE SIZE 78Had to replace with:DISPLAY "Data :"    LINE 09 COL 05                    DATA-STRING(1:78) LINE 10 COL 01 REVERSE  #HowTo-BestPractice

Dear MicroFocus community people,With help of   "" https://px-demo.avcm.esvccenter.com/services/wse/Authentication.asmx ""      web service  i was able to get successful authentication token result using AcuGT cobol. But, my further requirement is to pass the single document id  to below web service and if matches, then document should be placed in my local C drive path.  Any clue on this how do we attempt in AcuGT cobol version for document retrieval.?  I attached my cobol program which i was executed successful to get authentication token.https://px-demo.avcm.esvccenter.com/services/wse/WebSearch.asmxhttps://px-demo.avcm.esvccenter.com/services/wse/delivery.asmx 

I have a full license for Visual Cobol 5.0 update 2 running in Visual Studio 2019 with all of the latest updates.I am working through the Visual Cobol for Visual Studio Essentials online course and am to the section "Using the Open ESQL Assistant". I've confirmed in the Tools Options that the mode is ODBC.When I select View -> Micro Focus SQL Tools -> OpenESQL Assistant, a new tab opens, but I don't see the window like in the tutorial.  It is simply blank.I've rebooted several times, but the same result.  I am running Windows 10 (1903).Does anyone have suggestions on how to resolve this?Thank you.

There is a post in the Cobol Forum regarding executing Unix commands from within a Cobol program using CALL "SYSTEM"..... When I try to do the same thing from a program running on a Linux-server the program ends with return code 51277  ws-command pic x(40) value 'ls -l > lsout.txt'.77 ws-rc-out    pic s9(9) comp.call 'system' using ws-command returning ws-rc-out.display 'RC=' ws-rc-outThe file lsout.txt is created but it is empty.The return code is 000000512I have tried executing windows-commands when I run program in eclipse and that works well.Am I barking up the wrong tree or is this possible to achieve?Regards/Peter 

VC for VS 2017 patch 10 on Windows 10, managed COBOL.When the I-O-CONTROL paragraph contains two (2) SAME RECORD AREA clauses:        SAME RECORD AREA FOR FILE1-1, FILE1-2, FILE1-3.        SAME RECORD AREA FOR FILE2-1, FILE2-2, FILE2-3.and        OPEN INPUT FILE1-1, FILE2-1 OUTPUT FILE1-2, FILE1-3, FILE2-2, FILE2-3.and        READ FILE1-1 NEXT RECORD.        READ FILE2-1 NEXT RECORD.then the FD record areas for FILE1-2 and FILE1-3 have the same data as FILE1-1 and the FD record areas for FILE2-2 and FILE2-3 have the same data as FILE2-1.  This is the expected behavior.HOWEVER,When the I-O-CONTROL paragraph contains THREE (3)  SAME RECORD AREA clauses:        SAME RECORD AREA FOR FILE1-1, FILE1-2, FILE1-3.        SAME RECORD AREA FOR FILE2-1, FILE2-2, FILE2-3.        SAME RECORD A

What is the syntax to call a stored procedure that returns a result set? using procob for oracle 11g tried this: EXEC SQL      DECLARE C1_CSR CURSOR FOR      CALL Package.procedure(field1, field2)      END-EXEC.----------------EXEC SQL      OPEN C1_CSREND-EXEC.---------EXEC SQL      FETCH C1_CSR INTO WS-RETURN-VALUEEND-EXEC.   

Hi everybody,i search a source to calculate a CRC-4 Check-Digit in cobol.Who can help? Thanks.

Problem: When trying to run a Server Express development utility, for example the COBOL compiler, the Animator, or the SDE, the following error message appears: Micro Focus LMF - 010: Unable to contact license manager. Resolution: The License Manager is a daemon process that usually runs in the background without requiring manual intervention. The process is named "mflm_manager" (visible in "ps -ef" output). Also, the License Manager creates and uses a named pipe on disk. This is named "LMF-common", and is usually located in /tmp (though its location is configurable). The most common reason for the error message "LMF - 010: Unable to contact license manager" is that the License Manager is not running, and the solution is to re-start the License Manager. 1) Login as root 2) Change directories (cd) to the directory where the License Management Facility (LMF) is installed. This is /opt/microfocus/mflmf by default (or /opt/lib/mflmf or /usr/lib/mflm

Hello there ! I am  evaluating this product for , but have 2 problems   :- impossible to handle JCL objects (not recognized) : no possibility to imports files with *.jcl extenstion, *.jcl extension not recongnized when creating a workspace using Template, no workaround possible using the CA Administration (for example : descibing the application as 100% Mainframe Legacy) etc ….. did I missed something ?- if I have shell scripts that "Run" a Cobol Program or Simply "refers to" a Source Program (in comments for instance) : how do i create this Relationship in a Scope (for Diagramer) ?      For shells, the Relationships available are "Runs System Programs" (it works fine but only for RM and CP shell  commands … no other commands handeling ?) …. and "Runs Program Entry Point"  (so question is : how do you run a Cobol Program Entry Point from shell ? what il the syntax recognized by Analyzer ? ).Final question :

I have a speed problem with SQLI try many configuration variable to speed up SQL searching a way to have the same speed with visionA_MSSQL_ROWCOUNT 10#A_MSSQL_USE_DROPDOWN_QUERIES TRUE#A_MSSQL_LIMIT_DROPDOWN ALLA_MSSQL_NO_RECORD_LOCKS YES#A_MSSQL_CURSOR_OPTION_1 SCROLL#A_MSSQL_SELECT_KEY_ONLY yes#A_MSSQL_FAST_ACCESS 10

I am attempting to compile a Cobol program to java byte code under Red Hat v7 using the following command.cob64 -jt Cobol.cblI get the following error;*1558-S** Failed to start JVMcob64: error(s) in compilation: Cobol.cblIn my research the only advice i can find is to make sure the bit size matches (64 or 32). Hence the cob64 commandCobol version infoversion @(#)cob.c 5.0.0.52PRN=KXCRH/AAD:Ao.U4.13.04PTI=32/64 bitPTI=Micro Focus Visual COBOL Development Hub 5.0PTI=pkg_238079PTI=MFInstallerJava version infojava version "1.7.0_231"OpenJDK Runtime Environment (rhel-2.6.19.2.el7_7-x86_64 u231-b01)OpenJDK 64-Bit Server VM (build 24.231-b01, mixed mode)My Environment (Edited for readability)COBDIR=/opt/microfocus/VisualCOBOLCOBCPY=/opt/microfocus/VisualCOBOL/cpylibLD_LIBRARY_PATH=/opt/microfocus/VisualCOBOL/lib:/usr/lib/jvm/java-1.7.0-openjdk-1.7.0.231-2.6.19.2.el7_7.x86_64/lib:/usr/lib/jvm/java-1.7.0-openjdk-1.7.0.231-2.6.19.2.el7_7.x86_64LIBPATH=/opt/microfocus/VisualCOBOL/lib:/u

Using CobolWow,  CALL WOWSETPROP USING WIN-RETURN LIST1-H COLOR-BACKGROUND 255,128,128.This instruction does not work. What is the correct instruction to change the background color of a list at runtime?

Hello,I am starting development on .Net and would like some initial help to understand the concepts of this kind of development.If someone cloud get me a small demo prohect with a basic menu (two or three options). One of the options being a table maintenance function (number and name).The databse could be in MySQL or SQL. I would like some information on how to create/use this database and where it could be hosted.Thank you in advance for your help at the beginning of a new programming phase.Best regards,Alberto Ferraz

Are there any issues with running binaries compiled in Visual Studio for Visual Cobol 3.0.* under COBOL Server 5.0.* ?

I am developing in Visual COBOL 3.0 for Eclipse. I create simple Cobol programs that I compile to Java (jar-file) and use as a library in my application. I have no problem running with Oracle's JRE, but the program seem to freeze when I run it with Open JDK 8 (JRE downloaded from https://adoptopenjdk.net/).I run my application with this command line:java -Djava.library.path="C:\\Program Files (x86)\\Micro Focus\\Visual COBOL\\bin64" -jar <my jar>Should I be able to run under OpenJDK? Do I need to compile the library differently?

I have a rich multi-line text box with the string “Testing field. ENTER”.  If I press the enter key (carriage return) before the word “ENTER”, it adds a “/n”,  which I believe stands for new line or end of line, to the text property of the rich text box which then looks like follows: "Testing Field. \\nENTER."When I move the text string from my rich text box into a string variable, it moves the “\\n” which give me problems when I attempt to do data manipulation with the string variable.  I cannot remove the “\\n” programmatically in the code because it is invisible to the code. I can only see it when a view the text property of my rich text box during runtime.I should also mention that after pressing the enter key before the word “ENTER”, it configures the ‘Lines’ property of the rich text box as follows:Lines  [0]  “Testing Field.”  [1] “ENTER” I want to be able to move both lines [0] and [1] as a single string into a string variable a

Hi MicroFocus Team,I am getting error message as "Server did not recognize the value of HTTP Header SOAPAction"I have attached my xml and cobol file below, any idea why i am getting above error.Identification division.Program-id. Test.Data division.Working-storage section.01 Doc-response.02 Doc-token pic X(80).01 WS-SOAP-ENVELOP-INPUT.02 FILLER PIC X(26) value '<soap:Envelope xmlns:soap='.02 FILLER PIC X(44) value'"http://schemas.xmlsoap.org/soap/envelope/" '.02 FILLER PIC X(10) value 'xmlns:xsi='.02 FILLER PIC X(43) value'"http://www.w3.org/2001/XMLSchema-instance"'.02 FILLER PIC X(1) value space.02 FILLER PIC X(10) value 'xmlns:xsd='.02 FILLER PIC X(35) value'"http://www.w3.org/2001/XMLSchema">'.02 FILLER PIC X(31) VALUE '<soap:Header><AuthTicket xmlns='.02 filler pic x(39) value'"'.">harlandfs/.../"'.02 FILLER PIC X(21) VALUE '<Authentic

Hi Friends,I got error as "Bad Request - Invalid Content Length" error when logic execute XML IMPORT TEXT.I attached below AuthResponse.xml which was generated in my directory...  Please advise me how do i resolve this?<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd"><HTML><HEAD><TITLE>st</TITLE><META HTTP-EQUIV="Content-Type" Content="text/html; charset=us-ascii"></HEAD><BODY><h2>Bad Request - Invalid Content Length</h2><hr><p>HTTP Error 400. There is an invalid content length or chunk length in the request.</p></BODY></HTML> Attached my full program below. I am not sure whether i am doing it correct. My requirement is to pass the user name and password to the web service thru variable  'Doc-Authentication' and i should get response into variable Doc-response from webservice. Iden

In C#, if you have a string (say, TestString) and you want to test it to see if it contains only numeric digits 0-9, you can do this:I basically just need to know how to code what's on the if statement in Visual COBOL.Thanks

How did you create soap envelope thru acugt cobol program?

Below code I should get response from web service. But, I got runtime error as """""Error : 28[34]  -in function:Load document"""""XML IMPORT TEXT        Doc-response        response-payload        response-len        "Doc-response"if not XML-OK go to z. I knew below description ... But, I could not think what could be issue. doc-response.xml file is getting generated at the time run time.... Or program expecting doc-response.xml should be created on my own? i am confused lot!!!! my requirement is to pass 28Error - in function: LoadDocumentAn error was detected while trying to load an XML document. This normally means that there was a problem locating the document (either the document does not exist or there is a problem with permissions). This error may also occur if the input document contains an XML header but no elements.&nb

Hello to all COBOL Analyzer users, As you are part of this community, I want to share some exciting news with you today before it is promoted to the general public.  We now have a new offering on the Azure marketplace. This offering allows you to create a virtual machine on Azure that have the latest version of COBOL Analyzer installed and setup for evaluation. The created machine is preloaded with a sample application which means you can try it immediately and also use the tutorials we have here to learn how to use the product without the need to install or setup anything. Go to this page for more information on how to take advantage of this new offering. Yes, we also have the same offering for Visual COBOL! For a full walkthrough on how to get this all to work, read this. Any questions or feedback, feel free to post here in the community and we’ll help you. Thanks, Guy Sofer Product Manager COBOL Analyzer#Trial#Azure#codeanalysis#COBOL#CobolAnalyzer#Cloud#ApplicationIntelligence

Below is a program, that i am getting XML-OK value as "30" while execution. Any advise please? my requirement is to pass username and password to web service and return response as token. I am trying web service first time in acucobolgt cobol.Procedure division.main.stop ' 'XML INITIALIZE.XML EXPORT FILEDoc-Authentication"Authrequest.xml""Doc-Authentication""AuthrequestF2C.xsl".if not XML-OK go to z. MY full program below.=============================Identification division.Program-id. Test.Data division.Working-storage section.01 Doc-Authentication.02 Doc-User Pic X(13) value 'Tester'.02 Doc-Pwd Pic X(09) value '123456'.01 Doc-response.02 Doc-token pic X(80).01 request-payload usage pointer.01 response-payload usage pointer.01 response-status pic 9(3) value zero.01 response-status-2 pic 9(3) value zero.01 response-len pic s9(4).01 request-len pic s9(4).01 a-single-char pic x.copy "lixmlall.cpy".01 Desired-S