/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|         NAME: PLI2CXPC                                             |
|     LANGUAGE: C++                                                  |
|      PURPOSE: THIS EXAMPLE DEMONSTRATES A PLI PROGRAM CALLING      |
|               A C++ FUNCTION, WHICH TAKES A PARAMETER LIST.        |
|               IT CONSISTS OF SAMPLE LIBRARY MEMBERS                |
|               PLI2CXPC, PLI2CXPP, AND PLI2CXPM.                    |
|   MVS -                                                            |
|      COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CXPM).            |
|         LINK: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CXPM).            |
|      EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CXPM).            |
|   TSO -                                                            |
|      COMPILE: PLI - USE PLI COMPILER.                              |
|               C++ - LCXXC PLI2CXPC USING SN(CXXPROG),INDEP OPTIONS.|
|         LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CXPM).|
|      EXECUTE: CALL <SAMPLE>.LOAD(PLI2CXPM)                         |
|   CMS -                                                            |
|      COMPILE: PLI - USE PLI COMPILER.                              |
|               C++ - LCXX PLI2CXPC USING SN(CXXPROG),INDEP OPTIONS. |
|          LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CXPM)|
|       EXECUTE: CALL PLI2CXPM                                       |
|    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 <ilc.h>

void extern "C" cparms(char *parm1)
{

 cout << "entered cparms from PL/I...." << endl;

 cout << "PARM passed from PL/I  = " << parm1 << endl;

}