/*-------------------------------------------------------------------+
|                Copyright (c) 1996, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|         NAME: HI2ME                                                |
|     LANGUAGE: C                                                    |  00051000
|      PURPOSE: SAS/C DEBUGGER example program                       |
|               See SAS/C Debugger User's Guide and Reference Third  |  00060000
|               Edition, Chapters 1 and 2.                           |  00060000
| INPUT/OUTPUT: Termin window/Termout window                         |
|                                                                    |
|   MVS -                                                            |  00300000
| COMPILE,LINK: SUBMIT prefix.SAMPLE.AUX(HI2ME)                      |
|               make sure to use the =DEBUG compile option           |
|               where "prefix" is the installation defined high-level|
|               qualifier for the SAS/C product.                     |
|      EXECUTE: execute under TSO, see below                         |
|   TSO -                                                            |
|      COMPILE: LC370 CLIST                                          |
|         LINK: CLK370 CLIST                                         |
|      EXECUTE: CALL your.load.lib(HI2ME) '=DEBUG'                   |
|   CMS -                                                            |
|      COMPILE: LC370 HI2ME (DEBUG                                   |
|         LINK: CLINK HI2ME (GENMOD                                  |
|      EXECUTE: HI2ME =DEBUG                                         |
+-------------------------------------------------------------------*/
#eject

#include <stdio.h>

void getname(char *), prtname(char *);

main()
{
   char str(|80|);

   getname(str);
   prtname(str);
}

void getname(char *ptr1)
{
   printf("Enter your first name.\n");
   gets(ptr1);
}

void prtname(char *ptr2)
{
   printf("Hello, %s.\n", ptr2);
   printf("Welcome to the SAS/C Debugger!\n");
}