ILE C プログラム呼び出し例のサンプル・コード

2 つのコード・サンプルの例を示します。

C2 QCSRC
ILE C プログラム。
CBL2 QCBLLESRC
ILE C プログラム呼び出しを使用する ILE COBOL プログラム。

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

図 74. C2 QCSRC のソース・コード
/* C2 QCSRC --- ILE C プログラム */
#include <stdio.h>
#include <stdlib.h>
void main(int argc, char *argv[])
{
    *(argv[1]+9) = '*';
    *(argv[1]+10) = '#';
    return;
}

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

図 75. CBL2 QCBLLESRC のソース・コード
      *********************************************************************
      * cbl2 qcbllesrc
      *
      * Description:
      *
      *   COBOL source with ILE C program call.
      *
      *********************************************************************
       Identification Division.
        Program-Id.    cbl2.
        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 "C2" USING BY REFERENCE RESULT-STRING.
           DISPLAY RESULT-STRING.
           STOP run.
      *----------------------------------------------------------------------
      * Output before call
      * XXXXXXXXXXXXXXXXXXXX
      * Output after call
      * XXXXXXXXX*#XXXXXXXXX