在COBOL MODULE中调用C MODULE中的函数

C Source

 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+

        *************** Beginning of data *

0001.00 #include                

0002.00 #include                

0003.00                                    

0004.00 void C1(char *result)              

0005.00 {                                  

0006.00     *(result+9)='*';              

0007.00     *(result+10)='#';              

0008.00     return;                        

0009.00 }                                  

        ****************** End of data ****

直接用15 CRTCMOD编译成C Module: CBL04

COBOL Source

 FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++

        *************** Beginning of data *******************

0001.00        IDENTIFICATION DIVISION.                      

0002.00         PROGRAM-ID. CBL04.                          

0003.00         AUTHOR.     Joe.                            

0004.00        ENVIRONMENT DIVISION.                        

0005.00         CONFIGURATION SECTION.                      

0006.00          Source-Computer. IBM-ISERIES.              

0007.00          Object-Computer. IBM-ISERIES.              

0008.00         INPUT-OUTPUT SECTION.                        

0009.00          FILE-CONTROL.                              

0010.00        DATA DIVISION.                                

0011.00         Working-Storage Section.                    

0012.00        01  RESULT-STRING   PIC X(20)  VALUE ALL "X".

0013.00        PROCEDURE DIVISION.                          

0014.00         TEST1-INIT.                                  

0015.00            DISPLAY RESULT-STRING.                    

0016.00            CALL PROCEDURE "C1" USING RESULT-STRING.  

0017.00            DISPLAY RESULT-STRING.                    

0018.00            STOP RUN.                                

        ****************** End of data **********************

直接用15 CRTCBLMOD编译为Module: CBL04.

创建PGM:CRTPGM PGM(QIANTEST/CBL04) MODULE(QIANTEST/CBL04 QIANTEST/CBL03)

然后CALL CBL04,结果如下

图略