/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|         NAME: COB2CC1                                              |
|     LANGUAGE: C                                                    |
|      PURPOSE: THIS EXAMPLE DEMONSTRATES CALLING C FUNCTIONS        |
|               FROM COBOL, WHICH THEN CALL OTHER C FUNCTIONS.       |
|               IT CONSISTS OF SAMPLE LIBRARY MEMBERS                |
|               COB2CC1, COB2CC2, COB2CCO, AND COBOL2C.              |
|   MVS -                                                            |
|      COMPILE: USE JCL PROVIDED IN  SAMPLE.AUX(COBOL2C).            |
|         LINK: USE JCL PROVIDED IN  SAMPLE.AUX(COBOL2C).            |
|      EXECUTE: USE JCL PROVIDED IN  SAMPLE.AUX(COBOL2C).            |
|   TSO -                                                            |
|      COMPILE: COBOL - USE COBOL COMPILER.                          |
|               C - LC370C COB2CC1 W/ INDEP,SN(CSTUB) OPTIONS.       |
|               C - LC370C COB2CC2 SNAME(CPROG),ENTRY=DYNNR          |
|         LINK: ILCLINK w/ CONTROL CARDS IN SAMPLE.AUX(COBOL2C).     |
|      EXECUTE: CALL <SAMPLE>.LOAD(COBOL2C)                          |
|   CMS -                                                            |
|      COMPILE: COBOL - USE COBOL COMPILER.                          |
|                C - LC370 COB2CC1 W/ INDEP,SN(CSTUB) OPTIONS.       |
|                C - LC370 COB2CC2 SNAME(CPROG),ENTRY=DYNNR          |
|          LINK: ILCLINK w/ CONTROL CARDS IN SAMPLE.AUX(COBOL2C).    |
|       EXECUTE: CALL COBOL2C                                        |
|    MISC NOTES: THE FOLLOWING LSCL102 MESSAGE CAN BE IGNORED:       |
|              CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(IGZEBST)  |
|-------------------------------------------------------------------*/
void extfunc_test1(void);
void extfunc_test2(void);
void extfunc_test3(void);
#include <stdio.h>
void cprog1()
  {
printf("cprog1 has been called \n");
extfunc_test1();
  }
void cprog2()
  {
printf("cprog2 has been called \n");
extfunc_test2();
  }
void cprog3()
  {
printf("cprog3 has been called \n");
extfunc_test3();
  }