/*-------------------------------------------------------------------+
| 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 .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
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");
}