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: CXX2PLIP                                              */
 /*   LANGUAGE: PLI                                                   */
 /*    PURPOSE: THIS EXAMPLE DEMONSTRATES A C++ MAIN CALLING A        */
 /*             PLI ROUTINE.                                          */
 /*             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                 */
 /*             CXX2PLIC, CXX2PLIP, AND CXX2PLI.                      */
 /* MVS -                                                             */
 /*    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(CXX2PLI).              */
 /*       LINK: USE JCL PROVIDED IN SAMPLE.AUX(CXX2PLI).              */
 /*    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(CXX2PLI).              */
 /* TSO -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C++ - LCXXC CXX2PLIC W/ SN(CXXMAIN),NORENT OPTIONS    */
 /*       LINK: ILCLINK W/ CONTROL CARDS IN SAMPLE.AUX(CXX2PLI).      */
 /*    EXECUTE: CALL .LOAD(CXX2PLI)                           */
 /* CMS -                                                             */
 /*    COMPILE: PLI - USE PLI COMPILER.                               */
 /*             C - LCXX CXX2PLIC W/ SN(CXXMAIN),NORENT OPTIONS       */
 /*        LINK: ILCLINK W/ CONTROL CARDS IN SAMPLE.AUX(CXX2PLI).     */
 /*     EXECUTE: CALL CXX2PLI.                                        */
 /* 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)  */
 /*-------------------------------------------------------------------*/
    PUT EDIT('HELLO FROM PL/I, NO ARGS PASSED.')(A);
    RETURN;
 END WRITER;