Compile and Link  Examples for ZOS Mainframe

Introduction
(Next) (Previous) (Table-of-Contents)

This suite of programs provides sample JCL for compiling and linking programs on the mainframe.

The source code, data sets and documentation are provided in a single zipped file called UTLDAT03.ZIP. This zipped file may be downloaded from the SimoTime Web site. The file names have file extensions. When uploaded to the mainframe from the PC the file extension is dropped.

JCL, Compile a COBOL Program
(Next) (Previous) (Table-of-Contents)

The following is an example of the mainframe JCL (UTCOBCOM.JCL) needed to compile a COBOL program. and create an object member.

The job may be executed on the mainframe as an MVS batch job. The JOB and DD statements will require modification prior to execution on a different mainframe environment. The job will not execute on the PC running Micro Focus Mainframe Express. The standard compile process for Mainframe Express should be used.

//UTCOBCOM JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*        This program is provided by: SimoTime Enterprises          *
//*           (C) Copyright 1987-2012 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile COBOL program (COBOL2), create an object member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=SIMODUMP
//*
//COBS1    EXEC COB2UC,
//             PARM='MAP,APOST,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=CSI01.AAI.MACLIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*

Note:  The preceding mainframe job will just create an object member and place the member in the PDS specified by the SYSLIN DD statement. It is a compile only. The next section provides an example of a compile and link.

JCL, Compile and Link a Single COBOL Program
(Next) (Previous) (Table-of-Contents)

The following is an example of the mainframe JCL (UTCOBLNK.JCL) needed to compile and link a COBOL program and create an executable member.

The job may be executed on the mainframe as an MVS batch job. The JOB and DD statements will require modification prior to execution on a different mainframe environment. The job will not execute on the PC running Micro Focus Mainframe Express. The standard compile process for Mainframe Express should be used.

//UTCOBLNK JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*        This program is provided by: SimoTime Enterprises          *
//*           (C) Copyright 1987-2012 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile and Link COBOL program, create a load member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=SIMODUMP
//*
//COBS1    EXEC COB2UC,
//             PARM='MAP,APOST,DYN,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*
//LKED     EXEC PGM=IEWL,REGION=2M,PARM=(XREF,LET,LIST,CALL),
//             COND=(8,LT)
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSLMOD  DD  DISP=SHR,DSN=SIMOTIME.DEMO.LOADLIB1(&MEM)
//OBJECT   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*

Note:  The preceding mainframe job will create a load member and place the member in the PDS specified by the SYSLMOD DD statement.

JCL, Compile & Link of Multiple COBOL Programs
(Next) (Previous) (Table-of-Contents)

The following is an example of the mainframe JCL (UTCOBDAT.JCL) needed to compile and and do a composite link of multiple COBOL programs and create an executable member.

The job may be executed on the mainframe as an MVS batch job. The JOB and DD statements will require modification prior to execution on a different mainframe environment. The job will not execute on the PC running Micro Focus Mainframe Express. The standard compile process for Mainframe Express should be used.

//UTCOBDAT JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*        This program is provided by: SimoTime Enterprises          *
//*           (C) Copyright 1987-2012 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile and Link COBOL program, create a load member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=CBLDATC1
//*
//COMPILE  EXEC COB2UC,
//             PARM='MAP,APOST,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*
//*        Link Edit the object members...
//*
//LINKIT   EXEC PGM=IEWL,REGION=2M,PARM=(XREF,LET,LIST,CALL),
//             COND=(8,LT)
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//RESLIB   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSIN    DD  *
 INCLUDE RESLIB(CBLDATC1)
 INCLUDE RESLIB(SIMODATE)
 ENTRY CBLDATC1
 NAME CBLDATC1
/*
//SYSLMOD  DD  DISP=SHR,DSN=SIMOTIME.DEMO.LOADLIB1(&MEM)
//*

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this document is to assist as a tutorial for new programmers or as a quick reference for experienced programmers. In the world of programming there are many ways to solve a problem. This document and the links to other documents are intended to provide a choice of alternatives.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Enterprises. Once the fee is received by SimoTime the latest version of the software, documentation or training material will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.

SimoTime Enterprises makes no warranty or representations about the suitability of the software, documentation or learning material for any purpose. It is provided "AS IS" without any expressed or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software, documentation or training material.

Downloads and Links to Similar Pages
(Next) (Previous) (Table-of-Contents)

This section includes links to documents with additional information that is beyond the scope and purpose of this document. The first sub-section requires an internet connection, the second sub-section references locally available documents.

Note:  A SimoTime License is required for the items to be made available on a local server.

Downloads and Links, Internet Access Required
(Next) (Previous) (Table-of-Contents)

The following links will require an internet connect.

A good place to start is The SimoTime Home Page for access to white papers, program examples and product information.

Explore The JCL Connection in the SimoTime Library for more examples of JCL coding techniques and batch utility programs.

Explore The File Status Return Codes to interpret the results of accessing VSAM data sets and QSAM files.

Explore The Micro Focus Web Site for more information about products and services available from Micro Focus.

Downloads and Links, Local Access
(Next) (Previous) (Table-of-Contents)

The following links may be accessible without an internet connection.

Explore The File Status Return Codes to interpret the results of accessing VSAM data sets and QSAM files.

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments, Suggestions or Feedback
(Next) (Previous) (Table-of-Contents)

This document was created and is maintained by SimoTime Enterprises.

If you have any questions, suggestions, comments or feedback please call or send an e-mail to: helpdesk@simotime.com

We appreciate hearing from you.

Company Overview
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned company. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems.

Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com