Science makes it known,
Engineering makes it work,
Art makes it beautiful.
Combining Fujitsu COBOL 3.0, PowerCOBOL 3.0, Silverfrost FTN95,
and Numerical Recipes:
The Art of Scientific Computing1 - COBOL Files
COBOL Source Files, compiling options
not program data, to sheets
through the LINKAGE
for application data
Therefore, IC-POINTS(11) and
same element.
and STAT-SYSTEM-STATE for application state
Download ISTATCOM.COB2
These are also the default PowerCOBOL compiler options.
The main program displays the sheet STF95IO by calling INVKSHT,
passing the sheet
_POWEROPENSHEET in F5BBRUNS.DLL, passing sheet name and
sheet .dll file name (including full file path).
Download INVKSHT.COB3
Dynamic Load, Main Program.
Notice the difference in converting Lower Case letters to
Upper
Download STF95COB.COB
Calling the FORTRAN Subroutines
The FORTRAN subroutines are called from the COBOL main program
Linking
INVKSHT.OBJ, Add it, make Type DLL, then click
Link
Then Browse and Add the required
.LIB files, (not .OBJ).
Need to link INVKSHT.LIB, f5bbruns.lib, sttstcs.lib, and
salflibc.lib.
Notice we do not need to link STF95IO.DLL (PowerCOBOL sheet).
Using _POWEROPENSHEET to call sheet STF95IO makes it unneeded.
After clicking Link, WINLINK runs Microsoft Linker;
when Microsoft Linker is finished, it presents its message below.
Unless changes are made to ISTATCOM.COB or the FORTRAN
subroutines' parameter list,
it is not required to recompile and
re-link all units; just recompile and re-link the changed unit.
Run Time Environment
COBOL85.CBR is the Runtime Environment file, and is presented
during STF95COB.EXE startup until environment file
variable @EnvSetWindow is set to
To set the entry points, click Section Selection,
then Entry Information. Input the name of the
subprogram
and its .dll, as shown. It is not necessary
to input COBOL and PowerCOBOL
necessary to input subprograms called by the entry points.
1. Press, William H., Brian P. Flannery, Saul A. Teukolsky, and William T. Vetterling (1986). Numerical Recipes: The Art of Scientific Computing. New York:Press Syndicate of the University of Cambridge.
2. Since this web page initially put up, additional functionality has been added. Files available for download include additional functionality.
3. This is a later version of INVKSHT than available at
Combining Fujitsu COBOL 3.0, PowerCOBOL 3.0, and the USPS Address Matching System API; however,
the values of DLL-NAME and SHEET-NAME are hard-coded in both versions and therefore incompatible.
ATTENTION:
When doing a Google Search for "COBOL Numerical Recipes" you may find several references for Google Docs
with the same terms and even graphics used in my Fujitsu COBOL web pages. THE Google Docs ARE NOT
MINE. They may have links for downloadable executable files which may or may not contain malware,
adware, or other undesirable features. Example web addresses are:
https://docs.google.com/document/d/1eeXg8lPjGBtAdP7IfE5MdebjnEE8X0W3wAyEMWw1eLo/edit?pref=2&pli=1
https://docs.google.com/document/d/1pE3ESiOnkQoowG_XvLoZgxRSXDKnPQw2Drk4EBBe2gY/edit?pref=2&pli=1
https://docs.google.com/document/d/1mjzJ_6pWqFmacRxzD5Fg7Wy7zCjxTVleghVYGsJUaGY/edit?pref=2&pli=1
There may be others.
Exercise Caution
