/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: C2PLIC                                                 |
|   LANGUAGE: C                                                      |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A C MAIN CALLING A           |
|             PLI ROUTINE.                                           |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             C2PLIC, C2PLIP, AND C2PLI.                             |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(C2PLI).                 |
|       LINK: USE JCL PROVIDED IN SAMPLE.AUX(C2PLI).                 |
|    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(C2PLI).                 |
| TSO -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C - LC370C C2PLIC                                      |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PLI).     |
|    EXECUTE: CALL .LOAD(C2PLI)                              |
| CMS -                                                              |
|    COMPILE: PLI - USE PLI COMPILER.                                |
|             C - LC370 C2PLIC                                       |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PLI).    |
|     EXECUTE: CALL C2PLI                                            |
+-------------------------------------------------------------------*/
 #include 
 main()
 {
   void *token;
   extern __pli void writer();
     if (!(token = mkfmwk("PLI", ""))) exit(16);
     writer();
     if (dlfmwk(token)) exit(8);
   exit(0);
 }