2 つのコード・サンプルの例を示します。
C2 QCSRC のサンプル・コードは、図 74 に示されています。
/* 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 に示されています。
********************************************************************* * 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
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.