/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: C2PASCPP                                               |
|   LANGUAGE: PASCAL                                                 |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A PASCAL PROGRAM CALLING     |
|             A C FUNCTION, PASSING A PARAMETER LIST.                |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             C2PASCPC, C2PASCPP, AND C2PASCPM.                      |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(C2PASCPM).              |
|       LINK: USE JCL PROVIDED IN SAMPLE.AUX(C2PASCPM).              |
|    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(C2PASCPM).              |
| TSO -                                                              |
|    COMPILE: PASCAL - USE PASCAL COMPILER.                          |
|             C - LC370C C2PASCPC                                    |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PASCPM).  |
|    EXECUTE: CALL .LOAD(C2PASCPM)                           |
| CMS -                                                              |
|    COMPILE: PASCAL - USE PASCAL COMPILER.                          |
|             C - LC370 C2PASCPC                                     |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PASCPM). |
|     EXECUTE: CALL C2PASCPM                                         |
| MISC NOTES: THE FOLLOWING LSCL1028 MESSAGES CAN BE IGNORED:        |
|   THE FILE "SYSLIB(AMPXRETC)" COULD NOT BE OPENED FOR AUTOCALL.    |
|   THE FILE "SYSLIB(AMPXHALT)" COULD NOT BE OPENED FOR AUTOCALL.    |
|   THE FILE "SYSLIB(AMPXSEGE)" COULD NOT BE OPENED FOR AUTOCALL.    |
|   THE FILE "SYSLIB(AMPXSTRT)" COULD NOT BE OPENED FOR AUTOCALL.    |
|   THE FILE "SYSLIB(AMPXPARM)" COULD NOT BE OPENED FOR AUTOCALL.    |
|   THE FILE "SYSLIB(PASCPROC)" COULD NOT BE OPENED FOR AUTOCALL.    |
+-------------------------------------------------------------------*/
  SEGMENT PASCPROC;

  PROCEDURE PASCPROC(const PARM1 : STRING(30));
    EXTERNAL;

  PROCEDURE PASCPROC;
       BEGIN
          WRITELN('PARM1 = ', PARM1);
       END;