//*------------------------------------------------------
//* PROGRAM:  FHBCOBM                                    
//* IBM COBOL for MVS Sample TeamConnection Build Script
//* Compile Only                                    
//*                                                      
//*              IBM TeamConnection for OS/2
//*                     Version 1 Release 0
//*
//*                       5622-717
//*    (C) Copyright, IBM Corp., 1995. All Rights Reserved.
//*             Licensed Materials - Property of IBM
//*
//*         US Government Users Restricted Rights
//*     - Use, duplication or disclosure restricted by
//*         GSA ADP Schedule Contract with IBM Corp.
//*
//*              IBM is a registered trademark of
//*        International Business Machines Corporation
//*                                                      
//* DISCLAIMER OF WARRANTIES:                            
//*  The following enclosed code is sample code created  
//*  by IBM Corporation.  This sample code is not part of
//*  any standard product and is provided to you solely  
//*  for the purpose of assisting you in the development 
//*  of your applications.  The code is provide "AS IS", 
//*  without warranty of any kind. IBM shall not be      
//*  liable for any damages arising out of your use      
//*  of the sample code                                  
//*------------------------------------------------------ 
//COMPILE EXEC IGYWC,PARM='&TCPARM'
//*
//COBOL.SYSIN    DD  TCEXT=CBL,DISP=(NEW,DELETE),
//   SPACE=(32000,(30,10)),UNIT=SYSVIO,
//   DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//COBOL.SYSLIB   DD  TCEXT=CPY,DISP=(NEW,KEEP),
//   SPACE=(32000,(30,30,30)),UNIT=SYSVIO,
//   DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//COBOL.SYSPRINT DD  TCEXT=TCOUT,DISP=(NEW,DELETE),
//   SPACE=(32000,(30,30)),UNIT=SYSVIO,
//   DCB=(RECFM=FBA,LRECL=133,BLKSIZE=3990)
//COBOL.SYSLIN   DD  TCEXT=OBJ,UNIT=SYSVIO,
//   DISP=(NEW,DELETE),SPACE=(32000,(30,10)),
//   DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//
