/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|         NAME: COB2CC2                                              |
|     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)  |
|-------------------------------------------------------------------*/
#include <stdio.h>
void extfunc_test1(void)
  {
   printf("this is a test1 of extended name processing \n");
  }
void extfunc_test2(void)
  {
   printf("this is a test2 of extended name processing \n");
  }
void extfunc_test3(void)
  {
   printf("this is a test3 of extended name processing \n");
  }