Rocket® COBOL

call "win$printer" using winprint-setup-exinitialize winprint-selectioncall "win$printer" using winprint-get-current-info-ex winprint-selection giving call-fehler-num   return with 10.1.0 wrong return with 10.0.1 OK  

I am trying to print a form with a bitmap overlay using Win$Printer.  For compatibility reasons, I do not want to change the report layout.  When loading a font, W$font does not appear to allow you to use a decimal size, like you can in Microsoft Word.  Does anyone know how I could adjust the font size to 11.5?   Thanks in advance for any help.

Reaching out and seeing if anybody has a simple Wpf Listview sort example that they could post. I have a Wpf app that contains a Listview, but would like to be able to click on the heading and sort the columns. Thanks, Marc

Let's assume the following situation. On a web page on site A a cgi-script is started on server B which starts a cobol program named P1 passing parameters; program P1 calls a second program P2.The program P1, which has been two parameters "field1" and "field2", use a CGI form to have available "field1":01 Cgi-Form-P1 Is External-Form.       05 Field1 Pic X(10) Is Identified By "field1".and the statement: Accept Cgi-Form-P1Now, "field2" parameter should be used only by the P2 program.To achieve this I declare a structure as follows:01 Cgi-Form-P2 Is External-Form.       05 Field2 Pic X(10) Is Identified By "field2."and the statement: Accept Cgi-Form-P2 I did some testing and it seems to work but I'm not sure.I would like to know if this configuration is correct or if it has limitations, and it may cause problems.Thank you all.   P.S. Sorry for my English..

I'm getting return code 292 when I run C$JAVA with op-code CJAVA-CALLSTATIC. Has anyone already saw this error before? Tks.

Hi,   We have Visual Cobol for Eclipse 2.2 and is successfully running to manage cobol applications to load to Oracle dabatase. we are trying to implement a call from Cobol to a web service which was already been in place(SOAP). Basically we would like to consume webservice. Seeking help and relavant info as to how to do that.   Thanks Chad.

Hi, I use the following functions to call one program within another: method-id RegistoCartoesX public. 01 telaMenu type WPFApplication1.CA_RegCartao. procedure division. set telaMenu to new WPFApplication1.CA_RegCartao invoke telaMenu::CA_RegCartao_Ini(lda-rec) invoke telaMenu::ShowDialog() end method.   This works fine and the screen of the second program is shown when the command "invoke screenMenu :: ShowDialog ()" is executed.At this point the screen is waiting for user action. Now what I need is when the screen is shown to perform another function that can be the flame of another screen / program, ie, I need that after the screen is shown to perform an action without the intervention of the user. For example: the screen that is shown has a data grid with the names of the clients. If the number of clients is less than five, another screen / program must be called to enter more customer names. Thanks Alberto Ferraz  

Can somebody please help me to understand on how BRM works in COBOL Analyzer. When I tried to create rules, it is displaying error as create rule is not available in this context. So I want to know if we can automatically detect the business rules in the program? Looking for some help. Thank you.

 I have a simple program that writes to two files. my file assignments look like this: select optional reg assign to "REGFILE". select optional peg assign to "UserFolder\\PEGFILE". I have an environment variable called dd_UserFolder which point to a valid directory. When I run the program in VS2015 all is well. both files get written to the respective, however when I run the program outside of the environment using a cobol command prompt I get an error 9/198. Dialect is RM   Anyone experience this behavior as well? 

I am evaluating AcuToWeb. Our existing application is written in Acucobol 5.2. We do not use AcuBench. I am attempting to run the application using AcuToWeb. The program loads in the browser. However the screen layouts and fonts are not displayed correctly. Also, the menu does not work. We use C$Run to call programs from the menu. The menu loads, but the programs are not being called. If I try to call a programs from the menu, the menu closes without an error. Do I need to make any changes to use AcuToWeb ? Thanks in advance.

Hi Everybody, I' ve tried to download the Visual Cobol 2.3 for Eclipse PE version and have filled in the forms and received the email with the download link but when I click the link it takes me to an error page that tells me : "ERR_TOO_MANY_REDIRECTS". Any idea what's wrong...? Thanks François

I have a very simple html with css and the web-browser doesn't show the border: <html>    <head>        <STYLE TYPE="text/css">            table{                border-collapse:collapse;            }            tr.border_bottom {                border-bottom: 1px solid #000;            }        </STYLE>    </head>    <body>        <table>            <thead>&nbs

Hello, I'm trying to do a prepared select but i got a compiler error message  ** External Compiler Module message** ES0100 Incorrect SQL statement syntax near: into what i've done is: move "select pays from medecins where toubib = :fdbiljour-i8-toubib" to Stmtbuf exec sql prepare stm_pays_medecin from :Stmtbuf end-exec exec sql execute stm_pays_medecin into :wss-x2-pays using :wss-i8-toubib end-exec I see in the documentation that there's no "into" in the "execute" syntax So, how should i write this ? This request only returns 1 line. I'm using PostgreSQL Thanks for asnwering#COBOL#PostGRESQL#SQL

Dear friends, I installed MYSQL on Server 2003, created the tables. I configured the ODBC driver:   In the cobol program when I run: Sql exec    Connected to "GescomMYSQL" End-exec I receive the following error message: 00019703 Access denied for user 'ODBC' @ 'localhost' (using password: NO) What could be wrong?    

Just wondering why the default condition value does not change even when I assign it to true in the working storage section. class-id Validator.        working-storage section.       01  #Title   string value "Entry Error" static.       01  validData condition-value value true.   I have also tried 01 ValidData type System.Boolean value true.   I am trying to set this value to true when I validate my user textbox entries and only then, when the data is invalid set it to false.

Is there another way of returning a value back to the calling method other than using the set statement.  For example method-id GetUserTypes() returning #list as type List[type TO_Queue] public       local-storage section.       01  userType type List[type TO_Queue] value new Type List[type TO_Queue].            perform using conn as type MySqlConnection = new MySqlConnection(type DALUtility::GetSQLConnection("conn"))           invoke conn::Open()               perform using cmd as type MySqlCommand = new MySqlCommand("UserRights", conn)                   set cmd::CommandType to type CommandType::StoredProcedure     &

Hi there, I am having a problem printing symbols (windows font wingdings 2 - character set 3) for check boxes and radio buttons.  The symbol prints fine but then nothing else on the page prints.  We only experience the problem when printing from a machine running Windows 10, 7 & 8 work fine.  The other thing is that if I display a message box after setting the font as above, before writing the symbol away to the print file and setting the font back, then it works. Has anyone else experienced this?  What can I do to fix it? Thanks in advance. NM#AcuCobol#Windows10#WINPRINT#-PSpooler

Hi, When deploy a Cobol Web Service with variable array (OCCURS DEPENDING ON), work fine on Windows 7 but i can't deploy on Suse 11; and i need it on Suse for production. The computer is the same and the difference is when validate the web service. The  computer installed with Windows 7 Professional SP1 and running Visual Cobol 2.2 with Eclipse show this: The Console view show "The service mapping is valid".   The same computer running VmWare 12 and installed with Suse 11 SP2 running Visual Cobol 2.2 with Eclipse show this:   The Console view show "The service field does not have enough subscripts". The version of IMTK in both cases is 6.0.00. Is possible, with Visual Cobol 2.2, create a web service with variable array on Linux?   Thanks in advance,   Enrique.

We have one client location that is having infrequent File Error 93 issues.  The error has happened with two different files.  Both are Vision files.  They are running a small network of Windows 10 and Windows 7 computers.  The files are hosted on a Windows 10 computer.  They are using the extend 9.2.2 ECN-4266 runtime.  The errors occur when they get busy/active.  However, it doesn't always happen when they are busy.  I've included the SELECT and FD for both files.  One has a variable length record.  The other is "normal".  They are opening, reading from, writing to, and closing other files (Vision, binary, and line sequential) on the same network drive share. ********************************** SELECT PAX-SIG-FL ASSIGN TO RANDOM "PAXSIGFL"    WITH COMPRESSION    ORGANIZATION IS INDEXED    ACCESS MODE IS DYNAMIC    RECORD KEY IS PAX-SIG-KEY. FD PAX-SIG-FL. 

I'am right that you can not mixed 32 bit and 64 bit? Situation: Windows10 PC with 64bit, Office version 32bit. Running the 32bit Extend runtime 10.0.1 and sending mail with       * C:\\OutlookTest\\Copylib\\outlook-2016.def - ActiveX control definitions       * This is a 32-bit control      * Generated by axdefgen version 10.0.0      * Generated: Thursday, November 19, 2015      * Typelib..: C:\\Program Files\\Microsoft Office\\Root\\Office16\\MSOUTL.OLB                      OBJECT @Outlook Is running well. On the same PC, running with 64bit Extend runtime and sending mail with       * C:\\OutlookTest\\Copylib\\outlook-2016.def - ActiveX control definitions       * This is a 32-bit control    &nb

How would you write this in .net Cobol as an object initializer.   SqlParameter[] parameters = { new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName }, new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName }, new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName }, new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId } };I have so farmethod-id LogUserInfo(tro as type TO_Queue) public.local-storage section.01 parms type MySqlParameter occurs any.set parms = new MySqlParameter("@username", tro::UserName)Where do i take it from here to declare an object initializer?

Using Thin Client I want to get the Windows users name and computer name from the client side, I am getting the user name and computer name from the server, I know I can get information using dll's such as Kernel GDI32 this particular dll is ADVAPI32.DLL and then I am calling GetUserNameA,  GetComputerNameA this works just file if the connection is a mapped drive to the server. I used one of the sample programs GETUSERNAMEANDOS.cbl to get the logic and into one of our standard programs. I have been able to get the other information from the kernel.dll in thin client but not the ADVAPI32.DLL, any ideas?

Hello Everyone; We are a software developing company. Our client has a main application which runs on linux and developed with acucobol using vision database.   They have acuxdbc installed. [root@localhost bin]# ps -ef | grep acuroot      2073     1  0 07:06 ?        00:00:00 /opt/acucorp/922/bin/acushare -startroot      2439     1  0 07:06 ?        00:00:01 /opt/acucorp/922/bin/acurcl -startroot      2467     1  0 07:06 ?        00:00:00 /opt/acucorp/922/bin/acuserve -startroot      2468     1  0 07:06 ?        00:00:00 /opt/acucorp/922/bin/xdbcsrvr -p20222root      2473     1  0 07:06 ? &n

We would like to introduce "replication" process to our databases built in MSSQL version of 2008 R2.  We use ACU4GL to handle our I/O operation. Our ACUCOBOL run time varies but minimum 9.2.0 ECN-GL524. The first step of the replication implementation is to add “Globally Unique Identifier – GUID” to each table. GUID column has its own datatype and cannot be changed to another datatype. These GUID columns are not referenced by COBOL (ie. FDs don’t have them hence XFDs don’t have them either). We expect that COBOL/ACU4GL will disregard them like A4GLIDENITY column. However, we get an error “unknown datatype for column xx: GUID (-11)” and program abends with 9D, 23 (where xx is the column number of GUID column added). I was wondering anyone in Micro Focus community had similar issue with GUID datatype and how you have overcome this issue? #Acu4GL

 Has anyone created a method of calling SSRS RDL from within AcuCobol?