/*-------------------------------------------------------------------+
|                 Copyright (c) 1995, SAS Institute Inc.             |
|                   Unpublished - All Rights Reserved                |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|         NAME: COB2CPC                                              |
|     LANGUAGE: C                                                    |
|      PURPOSE: THIS EXAMPLE DEMONSTRATES CALLING C FUNCTIONS        |
|               FROM COBOL, WHICH THEN CALL OTHER C FUNCTIONS.       |
|               IT CONSISTS OF SAMPLE LIBRARY MEMBERS                |
|               COB2CPC, COB2CPCO, AND COB2CPRM.                     |
|   MVS -                                                            |
|      COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(COB2CPRM).            |
|         LINK: USE JCL PROVIDED IN SAMPLE.AUX(COB2CPRM).            |
|      EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(COB2CPRM).            |
|   TSO -                                                            |
|      COMPILE: COBOL - USE COBOL COMPILER.                          |
|               C - LC370C COB2CPC, W/ INDEP,SN(CPROG) OPTIONS.      |
|         LINK: ILCLINK w/ CONTROL CARDS IN SAMPLE.AUX(COB2CPRM).    |
|      EXECUTE: CALL .LOAD(COB2CPRM)                         |
|   CMS -                                                            |
|      COMPILE: COBOL - USE COBOL COMPILER.                          |
|               C - LC370 COB2CPC, W/ INDEP,SN(CPROG) OPTIONS.       |
|         LINK: ILCLINK w/ CONTROL CARDS IN SAMPLE.AUX(COB2CPRM).    |
|       EXECUTE: CALL COB2CPRM                                       |
|    MISC NOTES: THE FOLLOWING LSCL102 MESSAGE CAN BE IGNORED:       |
|              CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(IGZEBST)  |
+-------------------------------------------------------------------*/
#include 
void cprog(char comment[20])
  {
  char comment1(|20|) = "HELLO, FROM C     ";
  printf("comment = %s\n", comment);
  strcpy(comment, comment1);
  printf("comment1 = %s\n", comment1);
  }