1. COBOL LINKAGE SECTION
COBOL 프로그램(QGPL/TESTCBL)의 LINKAGE SECTION이 다음과 같은 것으로 가정
LINKAGE SECTION.
01 INPUT-PARM.
03 I-PARM1 PIC X(03).
03 I-PARM2 PIC X(07).
PROCEDURE DIVISION USING INPUT-PARM.
2. External Procedure 작성
1) SEU를 이용하여 아래와 같이 저장프로시져를 작성한다
(실습을 위하여 QGPL/QSQLSRC 파일에 CALL_CBL 멤버로 저장)
CREATE PROCEDURE qgpl.call_cbl
(IN i_data CHAR(10))
RESULT SETS 1
EXTERNAL NAME qgpl.test_cbl
LANGUAGE cobol SIMPLE CALL;
COBOL 01 레벨 파라미터를 IN 으로 선언
2) Run SQL Statement 명령어를 이용하여 저장프로시져를 생성한다
RUNSQLSTM SRCFILE(qgpl/qsqlsrc) SRCMBR(call_cbl) _
NAMING(*SQL) DBGVIEW(*LIST) OUTPUT(*PRINT)
DBGVIEW(*LIST) OUTPUT(*PRINT)를 지정하여야 컴파일 리스트 생성