WRITER: PROCEDURE(MESSAGE);
 /*-------------------------------------------------------------------*/
 /*                COPYRIGHT (C) 1995, SAS INSTITUTE INC.             */
 /*                  UNPUBLISHED - ALL RIGHTS RESERVED                */
 /*                    S A S / C   S A M P L E                        */
 /*                                                                   */
 /*       NAME: C2PLIPP                                               */
 /*   LANGUAGE: PLI                                                   */
 /*    PURPOSE: THIS EXAMPLE DEMONSTRATES A C MAIN CALLING A          */
 /*             PLI ROUTINE, WHICH TAKES A PARAMETER LIST.            */
 /*             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                 */
 /*             C2PLIPC, C2PLIPP, AND C2PLIPRM.                       */
 /* MVS -                                                             */
 /*    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(C2PLIPRM).             */
 /*       LINK: USE JCL PROVIDED IN SAMPLE.AUX(C2PLIPRM).             */
 /*    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(C2PLIPRM).             */
 /* TSO -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C - LC370C C2PLIPC                                    */
 /*       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PLIPRM). */
 /*    EXECUTE: CALL .LOAD(C2PLIPRM)                          */
 /* CMS -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C - LC370 C2PLIPC                                     */
 /*        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2PLIPRM).*/
 /*     EXECUTE: CALL C2PLIPRM                                        */
 /*-------------------------------------------------------------------*/
    DECLARE MESSAGE CHAR(*);
    PUT SKIP EDIT(MESSAGE)(A);
    RETURN;
 END WRITER;