COBOL and uni-SPF - migration to HP-UX
Hi you all,
I'am try to migrate applications write in COBOL language from the IBM
mainframe environment to HP-UX. This aplications use uni-SPF to run.
In one of COBOL programs, is used the "ISPLINK" to compiled language
dialogs use the call format to invoke a dialog management service.
When I compile the COBOL program "teste.pco", I have the following
output:
****************************************************************************
Pro*COBOL: Release 9.2.0.5.0 - Production on Tue Aug 16 17:11:44 2005
Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
System default option values taken from:
/opt/DITIC/oracle/product/9.2.0/precomp/admin/pcbcfg.cfg
Cobol program "ISPLINK" undefined. Assuming it will be dynamically
loaded.
Cobol program "slcdfree" undefined. Assuming it will be dynamically
loaded.
Cobol program "slcdalloc" undefined. Assuming it will be dynamically
loaded.
Cobol program "ISPLINK" undefined. Assuming it will be dynamically
loaded.
Cobol program "slcdfree" undefined. Assuming it will be dynamically
loaded.
Cobol program "slcdalloc" undefined. Assuming it will be dynamically
loaded.
1 seconds
****************************************************************************
This compilation create the file "teste.so".
The "ISPLINK" is not defined when I try to compile the program and this
assuming it will be dynamically loaded, but when I try to run the
program with uni-SPF ("ispf 'PGM(teste)'") nothing happen.
The "ISPLINK" is define in the file "spfPGM.h" and is located in the
"inc" directory of the uni-SPF distribution, and the compiled language
dialogs must include this header file that defines the application
program interface.
I don't know what I have to do, to add this header file in the
compilation of COBOL program, ir order the "ISPLINK" to be recognized
in the compilation.
The file with the directives and options from the compilation files
that I'am to use is the following:
******************************************************************************
# COB MicroFocus
export COBCPY=/usr/local/transform/proj/DITIC/transformedauto/COBCOPY
# the -C nolist was on a cobopt file!...
cob32 -C PERFORM-TYPE=COB370 -C IBMCOMP -C nolist -U -C progid-comment
-C assign=external -C SQL -x -o $2.bin $1.cob -L${ORACLE_HOME}/lib32/
${ORACLE_HOME}/precomp/lib32/cobsqlintf.o -lclntsh `cat
${ORACLE_HOME}/lib32/ldflags` `cat ${ORACLE_HOME}/lib32/sysliblist`
-lm
# make the .so
cob32 -C PERFORM-TYPE=COB370 -C IBMCOMP -C nolist -C progid-comment -C
assign=external -C SQL -U -g -z $1.cob -L${ORACLE_HOME}/lib32/
${ORACLE_HOME}/precomp/lib32/cobsqlintf.o `cat
${ORACLE_HOME}/lib32/ldflags` `cat ${ORACLE_HOME}/lib32/sysliblist`
-lm -lclntsh
*******************************************************************************
Can you help, please?
Best Regards,
Pedro Machado
Fnews-brouse 1.9(20180406) -- by Mizuno, MWE <mwe@ccsf.jp>
GnuPG Key ID = ECC8A735
GnuPG Key fingerprint = 9BE6 B9E9 55A5 A499 CD51 946E 9BDC 7870 ECC8 A735