/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: PLI2CXXC                                               |
|   LANGUAGE: C++                                                    |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A PLI PROGRAM CALLING        |
|             A C++ FUNCTION.                                        |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             PLI2CXXC, PLI2CXXP, AND PLI2CXX.                       |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN MEMBER SAMPLE.AUX(PLI2CXX).        |
|       LINK: USE JCL PROVIDED IN MEMBER SAMPLE.AUX(PLI2CXX).        |
|    EXECUTE: USE JCL PROVIDED IN MEMBER SAMPLE.AUX(PLI2CXX).        |
| TSO -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C++ - LCXXC PLI2CXXC USING SN(CXXPROG),INDEP OPTIONS.  |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CXX).   |
|    EXECUTE: CALL <SAMPLE>.LOAD(PLI2CXX)                            |
| CMS -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C++ - LCXX PLI2CXXC USING SN(CXXPROG),INDEP OPTIONS.   |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CXX).  |
|     EXECUTE: CALL PLI2CXX                                          |
|  MISC NOTES: THE FOLLOWING LSCL102 MESSAGEs CAN BE IGNORED:        |
|    Warning: Can't open file during autocall: SYSLIB(IBMBPIRA)      |
|    Warning: Can't open file during autocall: SYSLIB(IBMBPIRB)      |
|    Warning: Can't open file during autocall: SYSLIB(IBMBPIRC)      |
|    Warning: Can't open file during autocall: SYSLIB(PLIMAIN)       |
|    Warning: Can't open file during autocall: SYSLIB(IBMBPRCA)      |
+-------------------------------------------------------------------*/
//#include <iostream.h>
#include <stdio.h>
#include <ilc.h>

void extern "C" cprog(void)
{

 //cout << " entered C++ cprog() from PL/I........" << endl;
  printf(" entered C++ cprog() from PL/I......\n");

 //cout << "ALL DONE***************" << endl;
}