/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: PLI2CPC                                                |
|   LANGUAGE: C                                                      |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A PLI PROGRAM CALLING        |
|             A C FUNCTION, WHICH TAKES A PARAMETER LIST.            |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             PLI2CPC, PLI2CPP, AND PLI2CPRM.                        |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CPRM).              |
|       LINK: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CPRM).              |
|    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(PLI2CPRM).              |
| TSO -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C - LC370C PLI2CPC USING INDEP OPTION.                 |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CPRM).  |
|    EXECUTE: CALL .LOAD(PLI2CPRM)                           |
| CMS -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C - LC370 PLI2CPC USING INDEP OPTION.                  |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(PLI2CPRM). |
|     EXECUTE: CALL PLI2CPRM                                         |
+-------------------------------------------------------------------*/
 #include 

void cparms(char *parm1)
{

 printf(" entered cparms from PL/I....\n");

 printf("PARM passed from PL/I  = %s",parm1);

}