ILE C プロシージャー呼び出し例 1 のサンプル・コード

例 1 には、以下の 2 つのサンプル・コードがあります。

C1 QCSRC
ILE COBOL プログラムにバインドされている ILE C プロシージャー。
CBL1 QCBLLESRC
バインド済み ILE C プロシージャーを呼び出す ILE COBOL プロシージャー。

C1 QCSRC のサンプル・コードは、図 70 に示されています。

図 70. C1 QCSRC のソース・コード
/* C1 QCSRC --- ILE C プロシージャー */
#include <stdio.h>
#include <stdlib.h>
void C1(char *result)
{
    *(result+9) = '*';
    *(result+10) = '#';
    return;
}

CBL1 QCBLLESRC のサンプル・コードは、図 71 に示されています。

図 71. CBL1 QCBLLESRC のソース・コード
      *********************************************************************
      * cbl1 qcbllesrc
      *
      * Description:
      *
      *   COBOL source with ILE C procedure call.
      *
      *********************************************************************
       Identification Division.
        Program-Id.    cbl1.
        Author.        Author's Name.
        Installation.  IBM Toronto Lab
        Date-Written.  July 14, 1998.
        Date-Compiled. Will be replaced by compile date.
       Environment Division.
        Configuration Section.
         Source-Computer.   IBM-ISERIES.
         Object-Computer.   IBM-ISERIES.
         Special-Names.
       INPUT-OUTPUT SECTION.

       File-Control.
       Data Division.
        Working-Storage Section.
         01  RESULT-STRING    PIC X(20)       VALUE ALL "X".

       Procedure Division.

       TEST1-INIT.
           DISPLAY RESULT-STRING.
           CALL PROCEDURE "C1" USING RESULT-STRING.
           DISPLAY RESULT-STRING.
           STOP RUN.
      *----------------------------------------------------------------------
      * Output before call
      * XXXXXXXXXXXXXXXXXXXX
      * Output after call
      * XXXXXXXXX*#XXXXXXXXX