Example 2 has two code samples:
The sample code for CPROC1 QSRC is shown in Figure 72.
Figure 72. Source code for CPROC1 QSRC
|
The sample code for VARG1 QCBLLESRC is shown in Figure 73.
Figure 73. Source code for VARG1 QCBLLESRC
********************************************************************* * cbl1 qcbllesrc * * Description: * * COBOL source with ILE C procedure call. * ********************************************************************* IDENTIFICATION DIVISION. PROGRAM-ID. VARG1. *** This program demonstrates how to call a C procedure *** using variable-length argument list. AUTHOR. INSTALLATION. IBM Toronto Lab. DATE-WRITTEN. DATE-COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-ISERIES. OBJECT-COMPUTER. IBM-ISERIES. SPECIAL-NAMES. LINKAGE PROCEDURE FOR "CPROC1" USING ALL DESCRIBED. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 PARM0 PIC S9(9) BINARY VALUE 0. 01 PARM1 PIC S9(9) BINARY VALUE 1. 01 PARM2 PIC S9(9) BINARY VALUE 2. 01 PARM3 PIC S9(9) BINARY VALUE 3. 01 PARM4 PIC S9(9) BINARY VALUE 4. 01 PARM5 PIC S9(9) BINARY VALUE 5. 01 PARM6 PIC S9(9) BINARY VALUE 6. 01 PARM7 PIC S9(9) BINARY VALUE 7. 01 PARM8 PIC S9(9) BINARY VALUE 8. 01 PARM9 PIC S9(9) BINARY VALUE 9. 01 RC1 PIC S9(9) BINARY VALUE 0. PROCEDURE DIVISION. MAIN. CALL PROCEDURE "CPROC1" USING BY VALUE PARM0 PARM1 PARM2 PARM3 PARM4 PARM5 PARM6 PARM7 PARM8 PARM9 RETURNING INTO RC1. GOBACK.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.