/*--------------------------------------------------------------------+
|COPYRIGHT SAS INSTITUTE INC., 1990, SAS CAMPUS DRIVE, CARY, NC 27513 |
|                                                                     |
|                     S A S / C  S A M P L E                          |
|                                                                     |
|                                                                     |
|       Name: A2CMCENG                                                |
|                                                                     |
|   Language: C                                                       |
|                                                                     |
| EntryPoint: a2cmeng                                                 |
|                                                                     |
| Entry Type: C Function Linkage                                      |
|                                                                     |
| Files Note: 'prefix' is the installation defined high level         |
|             qualifier for the SAS/C product.                        |
|                                                                     |
|   Function: A2CMCEMG prints the message and the return code provided|
|             by the caller to stderr.                                |
|                                                                     |
|    Purpose: Provide an INDEP C function to be called by the         |
|             assembler program A2CMOASM as a statically linked       |
|             function.                                               |
|                                                                     |
| MVS -   See prolog for prefix.SAMPLE.ASM(A2CMCASM) for details on   |
|         compiling, linking, and executing this sample.              |
|                                                                     |
| CMS -   See prolog for SAMPLASM MACLIB(A2CMCASM) for details on     |
|         compiling, linking, and executing this sample.              |
|                                                                     |
| Misc Notes:                                                         |
|        - exit() is used to return to the caller and terminate       |
|          the SAS/C framework.  If return() were used then the       |
|          caller would be responsible for terminating the SAS/C      |
|          framework.                                                 |
|                                                                     |
+--------------------------------------------------------------------*/
#include <stdio.h>
#include <options.h>

/* The following demonstrates how to specify runtime options in     */
/* source code.  They are not required for proper executiuon of     */
/* A2CMCEMG sample.                                                 */
extern int _options = _VERSION + _BTRACE + _USAGE + _WARNING;

void a2cmemg(char * msgbuffer, int * retcode)
 {
   fprintf(stderr,msgbuffer);
   fprintf(stderr,"Retcode: %d\n\n\n", *retcode);
  exit();
 }