/*-------------------------------------------------------------------+
|                 Copyright (c) 1995, SAS Institute Inc.             |
|                   Unpublished - All Rights Reserved                |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|                                                                    |
|         NAME: COB1C                                                |
|     LANGUAGE: C                                                    |
|      PURPOSE: convert a string, passed from COBOL, to upper case   |
|   MVS -                                                            |
|      COMPILE: See JCL in SAMPLE.AUX(COBOLJCL).                     |
|         LINK: See JCL in SAMPLE.AUX(COBOLJCL).                     |
|      EXECUTE: See JCL in SAMPLE.AUX(COBOLJCL).                     |
|   TSO -                                                            |
|      COMPILE: LC370C with INDEP option.                            |
|         LINK: LINK, using link cards in SAMPLE.AUX(COBOLJCL).      |
|      EXECUTE: Call  CCOBOL.                                        |
|   CMS -                                                            |
|      COMPILE: LC370C with INDEP option.                            |
|         LINK: LINK, using link cards in SAMPLE.AUX(COBOLJCL).      |
|      EXECUTE: Call  CCOBOL.                                        |
|                                                                    |
|        INPUT: none                                                 |
|       OUTPUT: Printed string before and after call to COBOL        |
|                                                                    |
| SYSTEM NOTES: The COBOL routine ILBOSTP0 initializes the COBOL     |
|               environment.  It should be the first routine called  |
|               in the C main.                                       |
|   MISC NOTES: The routines COB1A and COB1B are also required.      |
|               THIS IS A NON-ILC EXAMPLE.                           |
|                                                                    |
+-------------------------------------------------------------------*/
#eject

#include <ctype.h>
#include <stdlib.h>

int cob1c(cobrec)
 char *cobrec;
{
    int i;

    for (i=0; cobrec(|i|) != '\0'; i++) {
        cobrec(|i|) = (char) toupper(cobrec(|i|));
    }

return(0);
}