Does Net Express run in XP mode with Windows 7 64-bit OS?

(if necessary to post in English contact me)

Bom dia, preciso urgente de uma ajudar dos amigos coboleiros,

Hoje eu gero vários XML para transações em meu sistema, porém a partir de dezembro serei obrigado assinar o XML com um certificado, estou usando o NetExpress 3.1 e não encontrei nada e nem o suportline da microfocos conseguiu me ajudar, alias pediu para colocar na comunidade.

Tenho que desenvolver isso no NetExpress 3.1, mesmo que já compramos a licença do Visual Cobol for Visual Studio, pois não terei tempo hábil para atualizar todos clientes nessa nova versão.

Por favor alguém poderia me ajudar e se possível enviar exemplos de como fazer isso, mesmo que seja através da DLL Capicom, que faz esse serviço de validar e assinar o XML.

atenciosamente

Renato Soares Vieira

I have a dialog screen with a text entry field (class library field).

After the first character I start a search and display a listview.

So far so good.

I want to have back the focus on that text entry field.

After the statement

SHOW-WINDOW WIN-MAT

I have the following statements

MOVE “SET-FOCUS” call-function(1)

CLEAR-CALLOUT-PARAMETERS $NULL

CALLOUT "matxtfld" 0 $NULL    (matxtfld is the modified efdemotxtfld.cbl)

It doesn’t work, maybe I have to add the Statement SET OBJECT-REF(1) , but to what?

Can someone give me a hint

Regards, Georg

I'm having trouble reading a xml, which contains the identification of tags at the root of which possesses 31 IDs (namespace). I can not change the file because it is a layout I get in a query.
I did several tests, and identified that 29 leaving only the cobol can make reading, leaving with 30 or 31 -9 error occurs (that is not in XML format) read routine.
Under a program I made an example and an example of XML.
----------------------------------------------------
example.cbl
----------------------------------------------------
$set preprocess(prexml) warn endp
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

INPUT-OUTPUT SECTION.
FILE-CONTROL.

SELECT XML-FILE ASSIGN TO "file.xml"
ORGANIZATION IS XML
DOCUMENT-TYPE IS OMITTED
FILE STATUS IS XML-FILE-STATUS.

DATA DIVISION.
FILE SECTION.
XD XML-FILE.
01 ROOT IDENTIFIED BY "root" COUNT IN ROOT-COUNT.
03 TAG1 IDENTIFIED BY "tag1" COUNT IN TAG1-COUNT.
05 DET1 PIC X IDENTIFIED BY "det1" COUNT IN DET1-COUNT.
03 TAG2 IDENTIFIED BY "tag2" COUNT IN TAG2-COUNT.
05 DET2 PIC X IDENTIFIED BY "det2" COUNT IN DET2-COUNT.
03 TAG3 IDENTIFIED BY "tag3" COUNT IN TAG3-COUNT.
05 DET3 PIC X IDENTIFIED BY "det3" COUNT IN DET3-COUNT.
03 TAG4 IDENTIFIED BY "tag4" COUNT IN TAG4-COUNT.
05 DET4 PIC X IDENTIFIED BY "det4" COUNT IN DET4-COUNT.
03 TAG5 IDENTIFIED BY "tag5" COUNT IN TAG5-COUNT.
05 DET5 PIC X IDENTIFIED BY "det5" COUNT IN DET5-COUNT.
03 TAG6 IDENTIFIED BY "tag6" COUNT IN TAG6-COUNT.
05 DET6 PIC X IDENTIFIED BY "det6" COUNT IN DET6-COUNT.
03 TAG7 IDENTIFIED BY "tag7" COUNT IN TAG7-COUNT.
05 DET7 PIC X IDENTIFIED BY "det7" COUNT IN DET7-COUNT.
03 TAG8 IDENTIFIED BY "tag8" COUNT IN TAG8-COUNT.
05 DET8 PIC X IDENTIFIED BY "det8" COUNT IN DET8-COUNT.
03 TAG9 IDENTIFIED BY "tag9" COUNT IN TAG9-COUNT.
05 DET9 PIC X IDENTIFIED BY "det9" COUNT IN DET9-COUNT.
03 TAG10 IDENTIFIED BY "tag10" COUNT IN TAG10-COUNT.
05 DET10 PIC X IDENTIFIED BY "det10" COUNT IN DET10-COUNT.
03 TAG11 IDENTIFIED BY "tag11" COUNT IN TAG11-COUNT.
05 DET11 PIC X IDENTIFIED BY "det11" COUNT IN DET11-COUNT.
03 TAG12 IDENTIFIED BY "tag12" COUNT IN TAG12-COUNT.
05 DET12 PIC X IDENTIFIED BY "det12" COUNT IN DET12-COUNT.
03 TAG13 IDENTIFIED BY "tag13" COUNT IN TAG13-COUNT.
05 DET13 PIC X IDENTIFIED BY "det13" COUNT IN DET13-COUNT.
03 TAG14 IDENTIFIED BY "tag14" COUNT IN TAG14-COUNT.
05 DET14 PIC X IDENTIFIED BY "det14" COUNT IN DET14-COUNT.
03 TAG15 IDENTIFIED BY "tag15" COUNT IN TAG15-COUNT.
05 DET15 PIC X IDENTIFIED BY "det15" COUNT IN DET15-COUNT.
03 TAG16 IDENTIFIED BY "tag16" COUNT IN TAG16-COUNT.
05 DET16 PIC X IDENTIFIED BY "det16" COUNT IN DET16-COUNT.
03 TAG17 IDENTIFIED BY "tag17" COUNT IN TAG17-COUNT.
05 DET17 PIC X IDENTIFIED BY "det17" COUNT IN DET17-COUNT.
03 TAG18 IDENTIFIED BY "tag18" COUNT IN TAG18-COUNT.
05 DET18 PIC X IDENTIFIED BY "det18" COUNT IN DET18-COUNT.
03 TAG19 IDENTIFIED BY "tag19" COUNT IN TAG19-COUNT.
05 DET19 PIC X IDENTIFIED BY "det19" COUNT IN DET19-COUNT.
03 TAG20 IDENTIFIED BY "tag20" COUNT IN TAG20-COUNT.
05 DET20 PIC X IDENTIFIED BY "det20" COUNT IN DET20-COUNT.
03 TAG21 IDENTIFIED BY "tag21" COUNT IN TAG21-COUNT.
05 DET21 PIC X IDENTIFIED BY "det21" COUNT IN DET21-COUNT.
03 TAG22 IDENTIFIED BY "tag22" COUNT IN TAG22-COUNT.
05 DET22 PIC X IDENTIFIED BY "det22" COUNT IN DET22-COUNT.
03 TAG23 IDENTIFIED BY "tag23" COUNT IN TAG23-COUNT.
05 DET23 PIC X IDENTIFIED BY "det23" COUNT IN DET23-COUNT.
03 TAG24 IDENTIFIED BY "tag24" COUNT IN TAG24-COUNT.
05 DET24 PIC X IDENTIFIED BY "det24" COUNT IN DET24-COUNT.
03 TAG25 IDENTIFIED BY "tag25" COUNT IN TAG25-COUNT.
05 DET25 PIC X IDENTIFIED BY "det25" COUNT IN DET25-COUNT.
03 TAG26 IDENTIFIED BY "tag26" COUNT IN TAG26-COUNT.
05 DET26 PIC X IDENTIFIED BY "det26" COUNT IN DET26-COUNT.
03 TAG27 IDENTIFIED BY "tag27" COUNT IN TAG27-COUNT.
05 DET27 PIC X IDENTIFIED BY "det27" COUNT IN DET27-COUNT.
03 TAG28 IDENTIFIED BY "tag28" COUNT IN TAG28-COUNT.
05 DET28 PIC X IDENTIFIED BY "det28" COUNT IN DET28-COUNT.
03 TAG29 IDENTIFIED BY "tag29" COUNT IN TAG29-COUNT.
05 DET29 PIC X IDENTIFIED BY "det29" COUNT IN DET29-COUNT.
03 TAG30 IDENTIFIED BY "tag30" COUNT IN TAG30-COUNT.
05 DET30 PIC X IDENTIFIED BY "det30" COUNT IN DET30-COUNT.
03 TAG31 IDENTIFIED BY "tag31" COUNT IN TAG31-COUNT.
05 DET31 PIC X IDENTIFIED BY "det31" COUNT IN DET31-COUNT.

WORKING-STORAGE SECTION.
01 XML-FILE-STATUS PIC S9(9) COMP.
PROCEDURE DIVISION.
DISPLAY "START"
OPEN INPUT XML-FILE
IF XML-FILE-STATUS NOT = ZEROS
DISPLAY "ERROR OPEN XML-FILE"
EXHIBIT NAMED XML-FILE-STATUS
STOP RUN
END-IF

READ XML-FILE
IF XML-FILE-STATUS < 0
DISPLAY "ERROR READ XML-FILE"
EXHIBIT NAMED XML-FILE-STATUS
STOP RUN
END-IF

DISPLAY "END"
STOP RUN.

----------------------------------------------------
file.xml
----------------------------------------------------
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root xmlns="http://example.int/example" xmlns:t1="http://example.int/tag1" xmlns:t2="http://example.int/tag2" xmlns:t3="http://example.int/tag3" xmlns:t4="http://example.int/tag4" xmlns:t5="http://example.int/tag5" xmlns:t6="http://example.int/tag6" xmlns:t7="http://example.int/tag7" xmlns:t8="http://example.int/tag8" xmlns:t9="http://example.int/tag9" xmlns:t10="http://example.int/tag10" xmlns:t11="http://example.int/tag11" xmlns:t12="http://example.int/tag12" xmlns:t13="http://example.int/tag13" xmlns:t14="http://example.int/tag14" xmlns:t15="http://example.int/tag15" xmlns:t16="http://example.int/tag16" xmlns:t17="http://example.int/tag17" xmlns:t18="http://example.int/tag18" xmlns:t19="http://example.int/tag19" xmlns:t20="http://example.int/tag20" xmlns:t21="http://example.int/tag21" xmlns:t22="http://example.int/tag22" xmlns:t23="http://example.int/tag23" xmlns:t24="http://example.int/tag24" xmlns:t25="http://example.int/tag25" xmlns:t26="http://example.int/tag26" xmlns:t27="http://example.int/tag27" xmlns:t28="http://example.int/tag28" xmlns:t29="http://example.int/tag29" xmlns:t30="http://example.int/tag30" xmlns:t31="http://example.int/tag31">
<t1:tag1>
<t1:det1>A</t1:det1>
</t1:tag1>
</root>

----------------------------------------------------
The file below works only with 29 IDs
file.xml
----------------------------------------------------
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root xmlns="http://example.int/example" xmlns:t1="http://example.int/tag1" xmlns:t2="http://example.int/tag2" xmlns:t3="http://example.int/tag3" xmlns:t4="http://example.int/tag4" xmlns:t5="http://example.int/tag5" xmlns:t6="http://example.int/tag6" xmlns:t7="http://example.int/tag7" xmlns:t8="http://example.int/tag8" xmlns:t9="http://example.int/tag9" xmlns:t10="http://example.int/tag10" xmlns:t11="http://example.int/tag11" xmlns:t12="http://example.int/tag12" xmlns:t13="http://example.int/tag13" xmlns:t14="http://example.int/tag14" xmlns:t15="http://example.int/tag15" xmlns:t16="http://example.int/tag16" xmlns:t17="http://example.int/tag17" xmlns:t18="http://example.int/tag18" xmlns:t19="http://example.int/tag19" xmlns:t20="http://example.int/tag20" xmlns:t21="http://example.int/tag21" xmlns:t22="http://example.int/tag22" xmlns:t23="http://example.int/tag23" xmlns:t24="http://example.int/tag24" xmlns:t25="http://example.int/tag25" xmlns:t26="http://example.int/tag26" xmlns:t27="http://example.int/tag27" xmlns:t28="http://example.int/tag28" xmlns:t29="http://example.int/tag29">
<t1:tag1>
<t1:det1>A</t1:det1>
</t1:tag1>
</root>

Lately I got some strange errors (doesn´t affekt function) stating:

Dependent file not found c:\src\WinGMS\OF\     .
Rebuild complete
Dependent file not found c:\src\WinGMS\OF\       .

when running.

Among project files I have a lot nonexistant files, nameed   '.'

The can not be deleted.

Running Net Express 3.1

Hello.

One of our customers reported an error related to NetExpress 3.0.14 Dialog System. This error is a cblrtss.dll exception that appears in the MFDEBUG.LOG file. In this file, the call stack shows: our application --> DSRUN --> dsgrun --> dsrx-nt. There is no more information.

I searched the dsrx-nt file and only found it into DSGRUN.DLL.

Can you tell me what is dsrx-nt and which can be the cause of that error?

Thanks beforehand.

Kindly anyone can help, I'm using Net Express 5.1 :

I was trying to build Cgiprg2 in build release (demo with Netexpress 5.1), but I'm always getting an error as bellow :

Starting rebuild
Rebuilding C:\Program Files (x86)\Micro Focus\Net Express 5.1\Examples\Net Express IDE\CGI\Cgiprg2.cbl
Rebuilding DEBUG\CGIPRG2.EXE
ERROR: (1) Cannot open file : cbllds000013E0.lnk
Rebuild complete with errors

Up to the Moment I receive QR codes  as¨*.bmp file. I have no Problem to print them with PC_PRINTER_LOAD_BMP  and PC_PRINTER_WRITE_BMP.  I was informed, that I will receive in future the QR code as  *.JPG  file.   Is there a possibility to print them from a NETEXPRESS program.

Or does somebody know how I can include them in my invoices.

Thanks for any help.

Rolf

Hi, We are a bit lost,

 We need help !

We have developed  a cobol solution on redhat LINUX , it runs on Linuxredhat  V6 with server express 5.1 ! We need to upgrade to Linuxredhat 7 , I read the products matrix which has no cobol for redhat 7 !

which COBOL do we need to use ? Whare are the impacts ?

regards

I have a new Windows 7 professional laptop, and need to install NetExpress 3.1.  I have the original CD, but it does not install.  Is there any downloads available to make this work.  I have to have 3.1 for current client support.

Thanks

Hello everyone,

I would like to invite you to join the COBOL Analyzer forum where you'll find information on this new exciting offering from Micro Focus.

Designed for Micro Focus COBOL applications, COBOL Analyzer enables developers, analysts and management to achieve a deeper understanding of their application portfolios providing both business and technical insight.

In the forum, you'll find links to product videos,  getting started tutorials and code samples.

You are also most welcome to visit our product page to explore the different resources, download your free evaluation copy and understand how COBOL Analyzer can help you deliver higher quality COBOL applications, faster!

Thanks,
Guy Sofer
Product Manager

I have a current project in NetExpress 3.1 which has dialog systems screen.  Is there any pitfalls to upgrading to 5.0?

Thanks

Hi,

please I need to get length of unicode string. I am trying to do this:

IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
INPUT-OUTPUT SECTION.

working-storage section.
01 w-text pic n(10).
01 w-x pic 999.

PROCEDURE DIVISION.
********************
000000-CONTROL SECTION.
move n"abcd" to w-text
display w-text(1:1)
display function length(w-text)
perform varying w-x from function length(w-text) by -1
until w-x < 1 or w-text(w-x:1) <> nx"0020"
end-perform
display w-x
exit program
.

I want return number 4 in this example. But in perform I still get access memory violation error. When I try command display w-text(1:1) I got result 'ab'. Is this problem? So when I do w-text(10:1) in first perform loop, I got out of my memory?

Please how to correctly solve this?

Hi,

please is possible to have SQL statement in PIC N variable? I need this because in WHERE condition I have variable with Chinese characters, and I am worried, if I try to convert it, I will loose these chars. Because computer on this program runs have English locale.

Is there any solution for such a case?

Thanks.

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?

Hi,

Anybody here have MSSOAP code integration example with more than 1 input?

I work with NetExpress 3.1.

Hi!

I'm sorry for my primary English.
I'm running tests with multiThread. In one of the threads, I have integration with DialogSystem. An error is occurring when executing the following line:

           CALL dialog-system USING Ds-Control-Block,
                                    Data-Block

Error Displayed:

Exception 24 not trapped;
The class nilobject (object reference: 00000003)
Does not understand: getpanels2compatibility
Hit T to terminate program. Hit any other key to continue.
Exception 24 not trapped;
The class nilobject (object reference: 00000003)
Does not understand: iscreated
Hit T to terminate program. Hit any other key to continue.
                                                            
Exception 24 not trapped;
The class nilobject (object reference: 00000003)
Does not understand: getid
Hit T to terminate program. Hit any other key to continue.
                                                            
Exception 24 not trapped;
The class nilobject (object reference: 00000003)
Does not understand: getid
Hit T to terminate program. Hit any other key to continue.

How do I solve this error?

I am working on a COBOL web site using Net Express 5 and Solo.

For my images I want to use a web share directory "images". Solo by default has shares for cgi-bin and COBOL and has a comment "To share files, just start Windows Explorer and right click on the directory you want to share, then select "Properties" and the "Web Share" tab."  This worked for Windows XP, as Explorer gave the option to create web shares.  Under Windows 7 the only way I know to create web shares is via IIS - but there is no site for Solo, so I cannot create a web share or virtual directory.  Solo works happily without IIS on a test machine.

NetExpress 3.1

Attached example.

      * -------------------------------------------------------------- *
       special-names.
           call-convention 66 is Win32.
      * -------------------------------------------------------------- *
       working-storage section.
       01  ws-thd-name-table           occurs 2.
           03  ws-thd-name             pic x(40).
       01  ws-thd-param                pic x(4) comp-5.
       01  ws-thd-param-size           pic x(4) comp-5.
       01  ws-thd-flags                pic x(4) comp-5.
       01  ws-thd-priority             pic s9(9) comp-5.
       01  ws-thd-stack                pic x(4) comp-5.
       01  ws-thd-id-table             occurs 2.
           03  ws-thd-id               pointer.
       01  ws-thd-return               pointer.
       01  ws-thd-semaphore            pic x(1) external.
       01  ws-table-idx                pic x(4) comp-5.
       01  ws-scr-mutex                mutex-pointer external.
      * -------------------------------------------------------------- *
       thread-local-storage section.
       01  ws-counter                  pic x(4) comp-5.
       01  ws-date.
           03  ws-date-yyyy            pic 9(4).
           03  ws-date-mm              pic 9(2).
           03  ws-date-dd              pic 9(2).
       01  ws-time.
           03  ws-time-hh              pic 9(2).
           03  ws-time-min             pic 9(2).
           03  ws-time-ss              pic 9(2).
           03  ws-time-hs              pic 9(2).
       01  ws-months                   pic x(36)
           value "JanFebMarAprMayJunJulAugSepOctNovDec".
       01  ws-month-table              redefines ws-months
                                       occurs 12.
           03  ws-month                pic x(3).
       01  ws-dsp-date.
           03  ws-filler1              pic x(6) value "Date: ".
           03  ws-dsp-dd               pic 9(2).
           03  ws-filler2              pic x(1) value "-".
           03  ws-dsp-month            pic x(3).
           03  ws-filler3              pic x(1) value "-".
           03  ws-dsp-yyyy             pic 9(4).
       01  ws-dsp-time.
           03  ws-filler4              pic x(6) value "Time: ".
           03  ws-dsp-hh               pic 9(2).
           03  ws-filler5              pic x(1) value ":".
           03  ws-dsp-min              pic 9(2).
           03  ws-filler6              pic x(1) value ":".
           03  ws-dsp-ss               pic 9(2).
           03  ws-filler7              pic x(1) value ".".
           03  ws-dsp-hs               pic 9(2).
      * -------------------------------------------------------------- *
       procedure division.
           open ws-scr-mutex.
           display
              spaces at 0101
              "MULTI-THREADED EXAMPLE" at 0101
              "======================" at 0201
              "One parent and two threads." at 0401
              "Parent Counter ..." at 0601
              "Thread Counter ..." at 0701
           end-display.
           move 0 to ws-counter.
           move "S" to ws-thd-semaphore.
           move z"DateTime" to ws-thd-name(1).
           move z"Counter" to ws-thd-name(2).
           move 0 to ws-thd-param.
           move 0 to ws-thd-param-size.
           move 1 to ws-thd-flags.
           move 0 to ws-thd-priority.
           move 0 to ws-thd-stack.
           perform varying ws-table-idx from 1 by 1
                 until ws-table-idx > 2
              call "CBL_THREAD_CREATE"
                 using by reference ws-thd-name(ws-table-idx)
                       by reference ws-thd-param
                       by value ws-thd-param-size
                       by value ws-thd-flags
                       by value ws-thd-priority
                       by value ws-thd-stack
                       by reference ws-thd-id(ws-table-idx)
              end-call
           end-perform.
           if return-code = 0
              perform until ws-counter = 20000
                 add 1 to ws-counter
                 set ws-scr-mutex to on
                 display ws-counter at 0620
                 set ws-scr-mutex to off
                 call Win32 "SleepEx"
                    using by value 50 size 4
                          by value 1 size 4
                 end-call
      **          call "CBL_THREAD_YIELD"
              end-perform
              move "E" to ws-thd-semaphore
              call "CBL_THREAD_WAIT"
                 using by value ws-thd-id(1)
                       by reference ws-thd-return
              end-call
              call "CBL_THREAD_WAIT"
                 using by value ws-thd-id(2)
                       by reference ws-thd-return
              end-call
           end-if.
           stop run.
      * -------------------------------------------------------------- *
       entry "DateTime" using ws-thd-param.
           perform until ws-thd-semaphore = "E"
              accept ws-date from date YYYYMMDD
              accept ws-time from time
              move ws-date-dd to ws-dsp-dd
              move ws-month(ws-date-mm) to ws-dsp-month
              move ws-date-yyyy to ws-dsp-yyyy
              move ws-time-hh to ws-dsp-hh
              move ws-time-min to ws-dsp-min
              move ws-time-ss to ws-dsp-ss
              move ws-time-hs to ws-dsp-hs
              set ws-scr-mutex to on
              display ws-dsp-date at 0164
              display ws-dsp-time at 0264
              set ws-scr-mutex to off
              call Win32 "SleepEx"
                 using by value 50 size 4
                       by value 1 size 4
              end-call
      *       call "CBL_THREAD_YIELD"
           end-perform.
           stop run returning address of ws-thd-param.
      * -------------------------------------------------------------- *
       entry "Counter" using ws-thd-param.
           perform until ws-thd-semaphore = "E"
              if ws-counter < 1000
                 add 1 to ws-counter
              else
                 move 0 to ws-counter
              end-if
              set ws-scr-mutex to on
              call Win32 "SleepEx"
                 using by value 50 size 4
                       by value 1 size 4
              end-call
              display ws-counter at 0720
              set ws-scr-mutex to off
      *       call "CBL_THREAD_YIELD"
           end-perform.
           stop run returning address of ws-thd-param.

Where will I search for the keyword "24282" ?