000001**----------------------------------------------------------------
000002*                COPYRIGHT (C) 1995, SAS INSTITUTE INC.
000003*                  UNPUBLISHED - ALL RIGHTS RESERVED
000004*                      S A S / C   S A M P L E
000005*
000006*         NAME: C2COBCO
000007*     LANGUAGE: COBOL
000008*      PURPOSE: THIS EXAMPLE DEMONSTRATES A C MAIN CALLING A
000009*               COBOL ROUTINE. IT CONSISTS OF SAMPLE LIBRARY MEMBERS
000011*               C2COBC, C2COBCO, AND C2COBOL.
000012*   MVS -
000013*      COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(C2COBOL).
000014*         LINK: USE JCL PROVIDED IN SAMPLE.AUX(C2COBOL).
000015*      EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(C2COBOL).
000016*   TSO -
000017*      COMPILE: COBOL - USE COBOL COMPILER.
000018*               C - LC370C C2COBC
000019*         LINK: ILCLINK W/ CONTROL CARDS IN SAMPLE.AUX(C2COBOL).
000020*      EXECUTE: CALL <SAMPLE>.LOAD(C2COBOL)
000021*   CMS -
000022*      COMPILE: COBOL - USE COBOL COMPILER.
000023*               C - LC370 C2COBC
000024*          LINK: ILCLINK W/ CONTROL CARDS IN SAMPLE.AUX(C2COBOL).
000025*       EXECUTE: CALL C2COBOL
000026*    MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:
000027*       CAN'T OPEN FILE DURING AUTOCALL:DDN:SYSLIB(IGZEBST)
000028*       CAN'T OPEN FILE DURING AUTOCALL:DDN:SYSLIB(COBPROG)
000029*----------------------------------------------------------------
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COBPROG.
001200 ENVIRONMENT DIVISION.
001600 CONFIGURATION SECTION.
001700 DATA DIVISION.
001800 WORKING-STORAGE SECTION.
001900 PROCEDURE DIVISION.
002000 0000-MAIN SECTION.
002100 001-SHOW.
002200     DISPLAY "INSIDE COBOL PROGRAM".
002400     EXIT.
002500     GOBACK.