//C2COBPRM JOBCARD INFORMATION
//*---------------------------------------------------------------------
//*                COPYRIGHT (C) 1995, SAS INSTITUTE INC.
//*                  UNPUBLISHED - ALL RIGHTS RESERVED
//*                      S A S / C   S A M P L E
//*
//*         NAME: C2COBPRM
//*     LANGUAGE: JCL
//*      PURPOSE: THIS EXAMPLE DEMONSTRATES A C MAIN CALLING A
//*               COBOL ROUTINE THAT TAKES A PARAMETER LIST.
//*               IT CONSISTS OF SAMPLE LIBRARY MEMBERS
//*               C2COBPC, C2COBPCO, AND C2COBPRM.
//*               THIS JCL COMPILES, LINKS, AND EXECUTES THESE MODULES.
//*    MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:
//*              CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(IGZEBST)
//*              CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(COBPROG)
//*---------------------------------------------------------------------
//*****************************************************************
//*  NOTE: VERIFY THE STATEMENTS INDICATED BY THE "<== CHECK"
//*   HAVE BEEN CUSTOMIZED FOR THE LOCAL ENVIRONMENT.
//*****************************************************************
//**********************************
//**  COMPILE THE COBOL PROGRAM   **
//**********************************
//*
//CCOB        EXEC COB2UC,           <== CHECK: PROC FOR COMPILING COBOL
//            PARM.COB2='APOST RESIDENT'
//COB2.SYSLIN DD DSN=your.object.library(C2COBPCO),DISP=OLD   <== CHECK
//COB2.SYSIN  DD DSN=prefix.SAMPLE.ILC(C2COBPCO),DISP=SHR     <== CHECK
//*
//***************************************
//**  COMPILE THE C MAIN PROGRAM       **
//***************************************
//*
//COMPILE EXEC PROC=LC370C           <== CHECK: PROC FOR COMPILING C    ',
//C.SYSLIN     DD DSN=your.object.library(C2COBPC),DISP=OLD   <== CHECK
//C.SYSIN      DD DSN=prefix.SAMPLE.ILC(C2COBPC),DISP=SHR     <== CHECK
//*
//*******************************************
//**  ILCLINK COBOL AND C OBJECT MODULES   **
//*******************************************
//*
//ILCLINK EXEC ILCLINK,              <== CHECK: ILC PROC
//        PARM.LKED='NOTERM ECHO'
//LKED.SYSLMOD DD DSN=your.load.library,DISP=OLD           <== CHECK
//LKED.COBOBJ  DD DSN=your.object.library,DISP=SHR         <== CHECK
//LKED.CLIBS   DD DSN=prefix.BASEOBJ,DISP=SHR              <== CHECK
//             DD DSN=prefix.STDOBJ,DISP=SHR               <== CHECK
//LKED.COBJ    DD DSN=your.c.object,DISP=SHR               <== CHECK
//*
//* CHANGE THIS TO THE NON-COBOL2 LIBRARY IF NOT COBOL2
//LKED.COBLKD  DD DSN=local.cobol.COB2LIB,DISP=SHR         <== CHECK
//*
//* CHANGE "COBOL2" TO "COBOL" FOR NON-COBOL2 IN THE
//*         FIRST AND LANGUAGE STATEMENT BELOW
//LKED.ILCIN DD *
   FIRST MAIN(C)
   LANGUAGE COBOL2,C
   PROCESS CLINK
   AUTOCALL CLIBS
   INCLUDE COBJ(C2COBPC)
   PROCESS LINK MAP,LIST,TERM,RMODE=24,AMODE=24
   AUTOCALL COBLKD
   INCLUDE COBOBJ(C2COBPCO)
   NAME C2COBPRM(R)
/*
//*
//**********************************
//**  RUN PROGRAM                 **
//**********************************
//*
//GO EXEC PGM=C2COBPRM
//STEPLIB DD DSN=your.load.library,DISP=SHR               <== CHECK
//        DD DSN=prefix.LINKLIB,DISP=SHR                  <== CHECK
//*
//* CHANGE THIS TO THE NON-COBOL2 LIBRARY IF NOT COBOL2
//        DD DSN=local.cobol.COB2LIB,DISP=SHR             <== CHECK
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//