netxmapi examples tested with visual Cobol 5.0

i wanted test the email sending on visual Cobol. I know at the base the example was written in netexpress 5.x

I missed MF-Copy files as:

commdlg.cpy

mfres.cpy

miniwin.cpy

wingdi.cpy

wintypes.cpy (in MF-Files fail the Definition of lphandle)

winuser.cpy

Are 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!

You can use the Net Express copybooks in Visual COBOL but you will have to add the following directive to the project:

REMOVE"OBJECT-REFERENCE"

This is a new reserved word in VC and later versions of NX so it cannot be used as a data-name. The REMOVE directive removes it from the reserved word list.

In the opening comments in the email.cbl program it clearly states the following:

     "The demonstration consists of a simple GUI e-mail application which can be used to send e-mails with attachments. It is intended to be a demonstration only and not a fully functional application. "

This is a demo and not an email application that you can tailor to your own needs. It is not even distributed with the products. You are expected to take this as an example when writing your own application.

This demo was written in 1998 by one of our developers. I updated it slightly in 2001.
It works perfectly for me with the exception that the CC field was never implemented.

The fields are being null terminated correctly. It is not placing a NULL in the first space but it is placing a NULL in the space following the last character of each field. It uses reference modification to test when the rest of the field = spaces:
         perform varying wx-sub1 from 1 by 1
              until wx-sub1 > length of wl-profile-name
              if wl-profile-name(wx-sub1:) = spaces
                    move x"00" to wl-profile-name(wx-sub1:1)
                    exit perform
               end-if
           end-perform 

I took about 10 minutes here and implemented the CC field functionality for you. I am attaching the 2 files that were changed. That is all that I intend to do with this example. 

Perhaps somebody else has a different example that they can share with you.

In the opening comments in the email.cbl program it clearly states the following:

     "The demonstration consists of a simple GUI e-mail application which can be used to send e-mails with attachments. It is intended to be a demonstration only and not a fully functional application. "

This is a demo and not an email application that you can tailor to your own needs. It is not even distributed with the products. You are expected to take this as an example when writing your own application.

This demo was written in 1998 by one of our developers. I updated it slightly in 2001.
It works perfectly for me with the exception that the CC field was never implemented.

The fields are being null terminated correctly. It is not placing a NULL in the first space but it is placing a NULL in the space following the last character of each field. It uses reference modification to test when the rest of the field = spaces:
         perform varying wx-sub1 from 1 by 1
              until wx-sub1 > length of wl-profile-name
              if wl-profile-name(wx-sub1:) = spaces
                    move x"00" to wl-profile-name(wx-sub1:1)
                    exit perform
               end-if
           end-perform 

I took about 10 minutes here and implemented the CC field functionality for you. I am attaching the 2 files that were changed. That is all that I intend to do with this example. 

Perhaps somebody else has a different example that they can share with you.