WRITER: PROCEDURE OPTIONS(MAIN);
 /*-------------------------------------------------------------------*/
 /*                COPYRIGHT (C) 1995, SAS INSTITUTE INC.             */
 /*                  UNPUBLISHED - ALL RIGHTS RESERVED                */
 /*                    S A S / C   S A M P L E                        */
 /*                                                                   */
 /*       NAME: C2PLIP                                                */
 /*   LANGUAGE: PLI                                                   */
 /*    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                                           */
 /*-------------------------------------------------------------------*/
    PUT EDIT('HELLO FROM PL/I, NO ARGS PASSED.')(A);
    RETURN;
 END WRITER;