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 - Overview
This is a tutorial of one way of using a COBOL "wrapper"
(alternatively, an executive or dispatcher) main program
to call a FORTRAN
subroutine to calculate Average, Median, Standard Deviation,
Variance, etc., for a series of grades
(referred to as
The user interface,
shown above, STF95IO, is a PowerCOBOL
3.0
(Fujitsu's COBOL 3.0 is a conventional 3rd generation
COBOL85 Win32 programming environment);
main program uses different compiler options then the
PowerCOBOL 3.0 sheet(s)
subprogram uses same compiler options as the
PowerCOBOL 3.0 sheet(s);
(Fujitsu's PowerCOBOL is a graphical programming environment that allows
COBOL programmers to develop GUI applications with event-driven structures)
sheet STF95IO, shown above, is used for inputting
data points (using a table)
and displaying the statistical results; may possibly add sheets
to display bar graphs, etc.
developed on a Pentium II running Win98SE
Application has been tested on both the Win98SE and WinXP Pro SP2
platforms.
STF95COB.EXE - main Fujitsu COBOL 3.0 executable;
linked using Fujitsu's WINLINK (WINLINK is a
'front-end' for MicroSoft's linker)
STF95COB.COB - main Fujitsu COBOL 3.0 executable
source code;
INVKSHT.LIB - import library file for INVKSHT.DLL - Fujitsu
COBOL 3.0 subprogram compiled and linked from INVKSHT.COB
(invokes PowerCOBOL 3.0 sheet(s) through call to _POWEROPENSHEET);
linked using Fujitsu's WINLINK
F5BBRUNS.LIB - import library file for F5BBRUNS.DLL
(Fujitsu supplied .dll that includes _POWEROPENSHEET function);
STTSTCS.LIB - import library file for
STTSTCS.DLL
(user written FORTRAN Numerical Recipes Statistical
Descriptions of Data subroutines,
source code file STTSTCS.FOR,
compiled and linked with
SilverFrost FTN95
PLATO3 IDE SLINK - be sure to use the correct import library file
- see
linking STTSTCS.OBJ);
SALFLIBC.LIB - import library file for SALFLIBC.DLL
(Silverfrost supplied FTN95 run time .dll);
needed by WINLINK;
various other library files imported by Microsoft linker;
The COBOL program and PowerCOBOL sheets share data using a
GLOBAL EXTERNAL data area (similar to a FORTRAN COMMON
Passed Data: Application Binary Interface
(these have been tested [except for COBOL and FORTRAN calling D and
Pascal];
a blank box simply means the combination has
not been tested; also DMD uses name mangling as well as a different
object (.obj) and import library (.lib) file
format than most other linkers, so linking in a D .dll using a D .lib
may prove problematic) Check your platform and
compiler documentation for any restrictions or extensions that may
affect this.
COBOL
Picture
Clause
Equivalent FORTRAN Data Type
C Data Type
D 2 Data Type
Object Pascal 3
Data Type
Size (bytes)
INTEGER*2
short
short
smallint
-32768 to 32767
2
INTEGER*4
int
int
longint
4
COMP-1
REAL
(REAL*4)
(KIND=1)
float
float
single
-1E-37 to 1E39
4
REAL*8
double
double
-5.0E-324 to 1.7E308
8
COMPLEX
5
cfloat
5
8
PIC X(n)
[n is some integer, number of characters (bytes)]
(<field-name> is the name of the variable)
data is not
ASCII Character Codes
n
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. D Programming Language - DMD v2.066.0 (D2 32-bit Command Prompt)
3. Free Pascal (FPC) is an implementation of Object Pascal
While Object Pascal has Integer and Real data types, depending on compiler modes/switches, Integer could be mapped to smallint or longint. Reals are platform dependant. Avoid using Integer and Real data types for passing data to/from external
Do not confuse C and D short with Free Pascal shortint.
Also applicable to Lazarus basic data types
4. For the floating point ranges, there is some variation among different references.
5. Do not return COMPLEX variables from a Silverfrost FORTRAN function to a DMD main program. The real and imaginary parts switch places within the COMPLEX variable. This is probably a side effect of having to use
extern (Pascal) {...}
declaration in the D program.
Passing and receiving COMPLEX variables to/from a Silverfrost FORTRAN subroutine and a DMD D program does not produce this error.
6. This is a special COBOL case, see USPS Address Matching System API AMS ZIP4 Parameters, AMSZ4PRM.COB COBOL include file.
7. Pascal special case. In D program extern (Pascal) {...} passed parameter data type, declare passed character data as
8. Put in type declaration.
Char or AnsiChar. System unit defines AnsiChar to distinguish Char from WideChar. In future versions of FPC, the Char type may become an alias for either WideChar or AnsiChar. For now, Char and AnsiChar are equivalent.
