ACU COBOL과 ORACLE INTERFACE

Question

제품 : PRECOMPILERS
작성날짜 : 1997-06-25
ACU COBOL과 ORACLE INTERFACE
============================
Machine : Sequent, HP, Pyramid, Ticom등
o Development
ACUCOBOL과 ORACLE 7을 interface하기위한 module을 만들기 위해 먼저
"direct.c"에 31가지의 기능을 등록한다.
Makefile은 "proc.mk"이며, 이를 이용하여 interface용 runtime을 만든다.
interface module은 구분을 위하여 "rtsora"로 rename되어 있으며 "runcbl"로
해도 상관 없다.
o Testing
test는 Oracle directory의 "procob/demo"를 이용 test하였다.
8개의 test programs이 compile되었고, "rtsora"라는 runtime으로 실행된다.
Pre-compile및 compile, 그리고 실행순서
1) Pre-compile :
procob iname=samplecob.pco oname=samplecob.cob ireclen=132 oreclen=132
select_error=no
혹은 make -f procob.mk samplecob
2) Compile : "-da4" option을 사용하는 이유는 interface하는 data간의 size를
( align data )맞추어 주기 위해 사용된다.
기타 option들은 그대로 사용 가능하다.
ccbl -da4 -o samplecob.obj samplecob.cob
3) 실행
rtsora samplecob.obj
cf.
* Direct.C부분은 Oracle RDBMS와 함께 통신에 사용되는 응용프로그램을 31개의
Oracle 기능을 지원하기 위해 수정되었다.
makefile인 procob.mk와는 별도로 Makefile이라는 화일을 만들어 사용하였다.
* Oracle의 PRO*COBOL 혹은 PRO*C가 제공하는 모든 Archieve들이 새로운
runtime을 만들기 위해 필요하다.
* Acucobol의 ccbl로 pre-compile된 source를 compile할 경우 주의할 사항은
pre-compiler가 현재는 MF-COBOL용으로 set되어 있기 때문에 compile시 문법상
errorr가 발생할 수 있다. 그러나 이는 간단한 source editing으로 해결된다.
수정될 사항 :
1) accept구문에서 comp로 선언된 변수를 accept받는다.
2) Pre-compile된 cobol source문장내에서 01 level 의 변수값들이
A area가 아닌 B area에 위치한다.
3) Procedure Division구문에서 GIVING구는 지원하지 않는다.
Acucobol-85의 Procedure Division구문의 Syntax
Procedure Division
[ {USING } {parameter1 . . . . } .
{CHAINING }
* interface module인 "rtsora"를 만들기 위한 Makefile기술
1)Makefile의 내용 ( Makefile )
# Makefile to create new version of "rtsora" based on
# changes to "sub.c"
CFLAGS= -O
LDFLAGS= -I. -O -s
SUBS=sub.o filetbl.o
LIBS=-L/ORACLE_HOME $ORACLE_HOME/lib/libsql.a \
$ORACLE_HOME/lib/osntab.o $ORACLE_HOME/lib/libsqlnet.a \
$ORACLE_HOME/lib/libora.a -lnls6 -lcv6 -lsqlnet \
$ORACLE_HOME/lib/libora.a -lcore \
`cat $ORACLE_HOME/rdbms/lib/sysliblist `
rtsora: $(SUBS)
cc $(LDFLAGS) -o rtsora $(SUBS) runcbl.a $(LIBS)
sub.o: sub.c sub85.c config85.c direct.c
cc $(CFLAGS) -c sub.c
# 기종별로 LIBS에 추가되는 Option과 Archieve화일들은 조금씩 다를 수 있다.
상기에서 LIBS에 추가되는 ORACLE의 Archieve들과 Option들은 procob.mk
혹은 proc.mk화일내에 있는 내용들을 참조하면 된다.
/* DIRECT.C for ORACLE 7 & ACUCOBOL Interface용*/
struct EXTRNTABLE WNEAR EXTDATA[] = {
{ NULL,              NULL }
/* ORACLE Function등록 */
#define VOID void
#include "$ORACLE_HOME/proc/lib/SQLDA.H"
typedef unsigned int size_t;
extern VOID sqlab1();
extern VOID sqladr();
extern VOID sqlad1();
extern SQLDA *sqlald();
extern VOID sqlbs1();
extern VOID sqlbex();
extern VOID sqlcls();
extern VOID sqlcom();
extern VOID sqlexe();
extern VOID sqlfcc();
extern VOID sqlfch();
extern VOID sqlgb1();
extern VOID sqlgd1();
extern VOID sqllo1();
extern VOID sqllda();
extern size_t sqllen();
extern VOID sqloca();
extern VOID sqlopn();
extern VOID sqlora();
extern VOID sqlos1();
extern VOID sqlosq();
extern VOID sqlpcs();
extern VOID sqlrol();
extern VOID sqlsca();
extern VOID sqlscc();
extern VOID sqlsch();
extern VOID sqlsqs();
extern VOID sqltfl();
extern VOID sqltoc();
extern VOID sqlwnr();
extern VOID sqlgri();
struct DIRECTTABLE LIBDIRECT[] = {
{ "SQLAB1",FUNC sqlab1,C_void },
{ "SQLADR",FUNC sqladr,C_void },
{ "SQLAD1",FUNC sqlad1,C_void },
{ "SQLALD",FUNC sqlald,C_pointer },
{ "SQLBS1",FUNC sqlbs1,C_void },
{ "SQLBEX",FUNC sqlbex,C_void },
{ "SQLCLS",FUNC sqlcls,C_void },
{ "SQLCOM",FUNC sqlcom,C_void },
{ "SQLEXE",FUNC sqlexe,C_void },
{ "SQLFCC",FUNC sqlfcc,C_void },
{ "SQLFCH",FUNC sqlfch,C_void },
{ "SQLGB1",FUNC sqlgb1,C_void },
{ "SQLGD1",FUNC sqlgd1,C_void },
{ "SQLLO1",FUNC sqllo1,C_void },
{ "SQLLDA",FUNC sqllda,C_void },
{ "SQLLEN",FUNC sqllen,C_unsigned },
{ "SQLOCA",FUNC sqloca,C_void },
{ "SQLOPN",FUNC sqlopn,C_void },
{ "SQLORA",FUNC sqlora,C_void },
{ "SQLOS1",FUNC sqlos1,C_void },
{ "SQLOSQ",FUNC sqlosq,C_void },
{ "SQLPCS",FUNC sqlpcs,C_void },
{ "SQLROL",FUNC sqlrol,C_void },
{ "SQLSCA",FUNC sqlsca,C_void },
{ "SQLSCC",FUNC sqlscc,C_void },
{ "SQLSCH",FUNC sqlsch,C_void },
{ "SQLSQS",FUNC sqlsqs,C_void },
{ "SQLTFL",FUNC sqltfl,C_void },
{ "SQLTOC",FUNC sqltoc,C_void },
{ "SQLWNR",FUNC sqlwnr,C_void },
{ "SQLGRI",FUNC sqlgri,C_void },
{ NULL, NULL, 0 }
/* */

Answer 1

There are standard interface programs between standard modules, AP to GL, AR to GL and the likes. We write them when we need the transfer data customized or if data is being transfered from a non Oracle sub-ledger into Oracle.