/*-------------------------------------------------------------------+
|                COPYRIGHT (C) 1995, SAS INSTITUTE INC.              |
|                  UNPUBLISHED - ALL RIGHTS RESERVED                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: CXXPASCP                                               |
|   LANGUAGE: PASCAL                                                 |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A C++ MAIN CALLING A         |
|             PASCAL ROUTINE.                                        |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             CXXPASCC, CXXPASCP, AND CXXPASC.                       |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(CXXPASC).               |
|       LINK: USE JCL PROVIDED IN SAMPLE.AUX(CXXPASC).               |
|    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(CXXPASC).               |
| TSO -                                                              |
|    COMPILE: PASCAL - USE PASCAL COMPILER.                          |
|             C++ - LCXX  CXXPASCC                                   |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXPASC).   |
|    EXECUTE: CALL .LOAD(CXXPASC)                            |
| CMS -                                                              |
|    COMPILE: PASCAL - USE PASCAL COMPILER.                          |
|             C++ - LCXX CXXPASCC                                    |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXPASC).  |
|     EXECUTE: CALL CXXPASC                                          |
| MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:         |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(AMPXRETC)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(AMPXHALT)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(AMPXSEGE)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(AMPXSTRT)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(AMPXPARM)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(PASCPROC)   |
+-------------------------------------------------------------------*/
  SEGMENT PASCPROC;

  PROCEDURE PASCPROC;
    EXTERNAL;

  PROCEDURE PASCPROC;
       BEGIN
          WRITELN('HELLO FROM PASCAL');
       END;