WRITER: PROCEDURE(MESSAGE);
 /*-------------------------------------------------------------------*/
 /*                COPYRIGHT (C) 1995, SAS INSTITUTE INC.             */
 /*                  UNPUBLISHED - ALL RIGHTS RESERVED                */
 /*                    S A S / C   S A M P L E                        */
 /*                                                                   */
 /*       NAME: CXXPLIPP                                              */
 /*   LANGUAGE: PLI                                                   */
 /*    PURPOSE: THIS EXAMPLE DEMONSTRATES A C++ MAIN CALLING A        */
 /*             PLI ROUTINE, WHICH TAKES A PARAMETER LIST.            */
 /*             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                 */
 /*             CXXPLIPC, CXXPLIPP, CXXPLIPM.                         */
 /* MVS -                                                             */
 /*    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(CXXPLIPM).             */
 /*       LINK: USE JCL PROVIDED IN SAMPLE.AUX(CXXPLIPM).             */
 /*    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(CXXPLIPM).             */
 /* TSO -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C - LC370C CXXPLIPC.                                  */
 /*       LINK: ILCLINK, W/ CONTROL CARDS IN SAMPLE.AUX(CXXPLIPM).    */
 /*    EXECUTE: CALL <SAMPLE>.LOAD(CXXPLIPM)                          */
 /* CMS -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C - LC370 CXXPLIPC.                                   */
 /*        LINK: ILCLINK, W/ CONTROL CARDS IN SAMPLE.AUX(CXXPLIPM).   */
 /*     EXECUTE: CALL CXXPLIPM                                        */
 /*  MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:       */
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(IBMBPIRA)*/
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(IBMBPIRB)*/
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(IBMBPIRC)*/
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(IBMBPRCA)*/
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(PLISTART)*/
 /* LSCL102 WARNING: CAN'T OPEN FILE DURING AUTOCALL: SYSLIB(WRITER)  */
 /*-------------------------------------------------------------------*/
    DECLARE MESSAGE CHAR(*);
    PUT SKIP EDIT(MESSAGE)(A);
    RETURN;
 END WRITER;