Problem:
This demo accepts an amount (Canadian Dollar) to calculate taxes and converts the total amount in US Dollar
Resolution:
SOURCE FILES:
==========
Program Files Description
---------------- -----------------------------------------------------------
Cbl2VBx.app NetExpress project file
QcCalc.cbl COBOL source code
QcTax.dll Visual Basic ActiveX DLL
QcTax.vbp Visual Basic project file
Tax.cls Visual Basic class code
Copy Files:
---------------- -----------------------------------------------------------
QcCalc.cpb Copybook (generated from Dialog System)
ds-cntrl.mf Via COBCPY (\\NetExpress\\DialogSystem\\Source)
Form Files:
---------------- -----------------------------------------------------------
QcCalc.gs Dialog System screenset
REQUIREMENTS:
==========
NetExpress v3.1 MS Visual Basic v6.0 **ONLY** if you wish to edit/rebuild the ActiveX
OPERATION:
========
1. Register QcTax.dll from its current location (e.g. regsvr32 x:\\cbl2vbx\\qctax.dll)
2. Load Cbl2VBx.APP into NetExpress
3. Click on Project > Update All Dependencies
4. Click on Project > Rebuild All
5. Click on Animate > Run
NOTE:
====
You can run this demo without Dialog System, but you will need to make the following changes:
1. Comment out the first statement of Program-Body SECTION, i.e. PERFORM Call-Dialog-System 2. Uncomment out the second statement of Program-Body SECTION, i.e. PERFORM No-Dialog-System
3. Save the new changes
4. Change the build settings to link the program as character
5. Rebuild the EXE
The following error will occur if the ActiveX control was not first registered:
----- Exception 65537 not trapped by the class oleexceptionmanager. Description: "Server defined OLE exception" (800401F3): Invalid class string
Hit T to terminate program. Hit any other key to continue.
==========================================================
Keywords: Example, sample, demo, demonstration, mixed language, cbl2vbx.zip
demo.ex
demo.ne
