products/Sources/formale Sprachen/JCL/jcl2/utldat03.htm |
 |
<!DOCTYPE HTML PUBLIC "-//SimoTime//DTD HTML 4.0 Transitional//EN" "hmpro6.dtd">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Author" CONTENT="Michael Simmons">
<META NAME="Generator" CONTENT="SimoTime Version 1.0">
<META NAME="KEYWORDS" CONTENT="Mainframe,MVS,OS390,JCL,cobol,compile,link">
<META NAME="DESCRIPTION"
CONTENT="Examples of JCL for compiling and linking programs.">
<TITLE>JCL for Compile and Link</TITLE> <STYLE TYPE="TEXT/CSS">
P {FONT-FAMILY: Arial,Helvetica; FONT-SIZE: 12px}
H1 {FONT-FAMILY: TIMES NEW ROMAN; FONT-SIZE: 28px; color: navy}
H2 {FONT-FAMILY: TIMES NEW ROMAN; FONT-SIZE: 18px; color: navy}
H3 {FONT-FAMILY: TIMES NEW ROMAN; FONT-SIZE: 16px; color: navy}
H4 {FONT-FAMILY: TIMES NEW ROMAN; FONT-SIZE: 14px; color: navy}
TD {FONT-FAMILY: Arial,Helvetica; FONT-SIZE: 12px}
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" ALINK="#FF0000">
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<TD>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="20%" ALIGN="LEFT"><A NAME="TOC"
STYLE="font-size: 6pt"><IMG SRC="simotime.gif" WIDTH="165" HEIGHT="55"
BORDER="0"></A></TD>
<TD WIDTH="80%" ALIGN="LEFT">
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0"
ALIGN="RIGHT" BORDER="0">
<TR>
<TD ALIGN="RIGHT" NOWRAP="NOWRAP"><FONT
STYLE="font-size: 24pt; font-weight: bold; color: navy"> Compile &
Link</FONT></TD>
</TR>
</TABLE> </TD>
</TR>
</TABLE>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<TD><FONT
STYLE="font-style: italic; font-size: 12pt; font-family: Arial; color: maroon; font-weight: bold; font-variant: normal">When
technology complements business </FONT></TD>
<TD ALIGN="RIGHT"><FONT
STYLE="font-size: 14pt; font-weight: normal; color: maroon; font-style: italic">Examples</FONT></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<TD WIDTH="75%" STYLE="color: gray; font-size: 8pt"><FONT
STYLE="font-size: 12px; font-weight: normal; color: gray">Copyright ©
1987-2005 SimoTime Enterprises, LLC All Rights Reserved</FONT></TD>
<TD ALIGN="RIGHT" WIDTH="25%"><A HREF="http://www.simotime.com"
STYLE="font-size: 12px; font-weight: normal; color: blue"
ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='0000FF'">http://www.simotime.com</A></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE> <HR SIZE="4" COLOR="#000080">
<TABLE CELLPADDING="0" CELLSPACING="2" BORDER="0"
STYLE="color: blue" WIDTH="100%" VALIGN="MIDDLE" BGCOLOR="#FFFFC0">
<TR>
<TD WIDTH="5px"> </TD>
<TD>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<TD>
<A HREF="#Introduction" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 14px; font-weight: bold; text-decoration: none">Introduction</A></TD>
<TD ALIGN="RIGHT"><FONT
STYLE="color: blue; font-size: 12px; text-decoration: none; font-style: italic">Version
03.01.24</FONT></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD> </TD>
<TD><A HREF="#CompileCOBOL" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 14px; text-decoration: none; font-weight: bold">Compile
a COBOL Program</A></TD>
</TR>
<TR>
<TD> </TD>
<TD><A HREF="#CompileLinkCOBOL" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 14px; text-decoration: none; font-weight: bold">Compile
and Link a COBOL Program</A></TD>
</TR>
<TR>
<TD> </TD>
<TD><A HREF="#Summary" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 14px; text-decoration: none; font-weight: bold">Summary</A></TD>
</TR>
<TR>
<TD> </TD>
<TD>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<TD WIDTH="3%" STYLE="font-size: 10pt"> </TD>
<TD><A HREF="#SoftwareAgreementDisclaimer"
ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 12px; text-decoration: none">Software Agreement
and Disclaimer</A></TD>
</TR>
<TR>
<TD WIDTH="3%" STYLE="font-size: 10pt"> </TD>
<TD><A HREF="#SimilarPoints"
ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 12px; text-decoration: none">Downloads and Links
to Similar Pages</A></TD>
</TR>
<TR>
<TD STYLE="font-size: 10pt"> </TD>
<TD><A HREF="#Comments" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 12px; text-decoration: none">Comments or
Suggestions</A></TD>
</TR>
<TR>
<TD STYLE="font-size: 10pt"> </TD>
<TD><A HREF="#AboutSimoTime"
ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-size: 12px; text-decoration: none">About
SimoTime</A></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE><HR SIZE="4" COLOR="#000080">
<H1><A NAME="Introduction">Introduction</A><FONT FACE="Arial"
STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#CompileCOBOL" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Return-to-Top</A>)</FONT></H1>
<P>This suite of programs provides sample JCL for compiling and linking
programs on the mainframe.</P>
<P>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.</P>
<H1><A NAME="CompileCOBOL">Compile a COBOL Program</A><FONT FACE="Arial"
STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#CompileLinkCOBOL" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#Introduction" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Return-to-Top</A>)</FONT></H1>
<P>The following is an example of the mainframe JCL
<FONT STYLE="color: maroon">(UTCOBCOM.JCL)</FONT> needed to compile a COBOL
program.</P>
<P>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.</P>
<PRE>
<FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>//UTCOBCOM JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//* *******************************************************************
//* This program is provided by: *
//* SimoTime Enterprises, LLC *
//* (C) Copyright 1987-2003 All Rights Reserved *
//* *
//* Web Site URL: http://www.simotime.com *
//* e-mail: [email protected] *
//* *******************************************************************
//*
//* Subject: Compile COBOL program (COBOL2), create an object member
//* Author: SimoTime Enterprises
//* Date: January 1,1998
//*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>// SET MEM=CBLDATC1
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>//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)
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//*
</FONT></PRE>
<P>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.</P>
<H1><A NAME="CompileLinkCOBOL">Compile and Link a COBOL Program</A><FONT
FACE="Arial" STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#Summary" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#CompileCOBOL" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Return-to-Top</A>)</FONT></H1>
<P>The following is an example of the mainframe JCL
<FONT STYLE="color: maroon">(UTCOBLNK.JCL)</FONT> needed to compile and link a
COBOL program and create an object member.</P>
<P>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.</P>
<PRE>
<FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>//UTCOBLNK JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//* *******************************************************************
//* This program is provided by: *
//* SimoTime Enterprises, LLC *
//* (C) Copyright 1987-2003 All Rights Reserved *
//* *
//* Web Site URL: http://www.simotime.com *
//* e-mail: [email protected] *
//* *******************************************************************
//*
//* Subject: Compile and Link COBOL program, create a load member
//* Author: SimoTime Enterprises
//* Date: January 1,1998
//*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>// SET MEM=SIMODATE
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>//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)
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: navy'>//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=*
</FONT><FONT STYLE='font-size: 12px; font-family: "Courier New"; color: maroon'>//*
</FONT></PRE>
<P>The preceding mainframe job will create a load member and place the
member in the PDS specified by the SYSLMOD DD statement. </P>
<H1><A NAME="Summary">Summary</A><FONT FACE="Arial"
STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#SoftwareAgreementDisclaimer" ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='808080'" STYLE="color: gray">Next</A>) (<A
HREF="#CompileLinkCOBOL" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Table-of-Contents</A>)</FONT></H1>
<P>The purpose of this suite of programs is to provide examples for
creating, populating, maintaining and deleting mainframe files and data sets.
</P>
<H2> <A NAME="SoftwareAgreementDisclaimer" STYLE="color: navy">Software
Agreement and Disclaimer</A><FONT FACE="Arial"
STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#SimilarPoints" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#Summary" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Table-of-Contents</A>)</FONT></H2>
<P>Permission to use, copy, modify and distribute this software for any
non-commercial purpose and without fee is hereby granted, 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. </P>
<P>SimoTime Enterprises makes no warranty or representations about the
suitability of the software for any purpose. It is provided "AS IS" without any
express 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. </P>
<H2> <A NAME="SimilarPoints">Links to Similar Pages of Interest</A><FONT
FACE="Arial" STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#Comments" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#SoftwareAgreementDisclaimer" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Table-of-Contents</A>)</FONT></H2>
<P>This document provides a quick summary of the <A
HREF="vsmfsk01.htm" TARGET="_blank" STYLE="color: blue"
ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='0000FF'">File Status Key</A> for VSAM data
sets and QSAM files. </P>
<P>Check out <A HREF="indexjcl.htm" TARGET="_blank"
STYLE="color: blue" ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='0000FF'">The JCL Connection</A> for more
mainframe JCL examples. </P>
<P>Check out <A HREF="sim4lib1.htm" TARGET="_blank"
STYLE="color: blue" ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='0000FF'">The SimoTime Library</A> for a
wide range of topics for Programmers, Project Managers and Software
Developers.</P>
<P>To review all the information available on this site start at <A
HREF="http://www.simotime.com" TARGET="_blank" STYLE="color: blue"
ONMOUSEOVER="this.style.color='FF0000'"
ONMOUSEOUT="this.style.color='0000FF'">The SimoTime Home Page</A> .</P>
<H2> <A NAME="Comments">Comments or Suggestions</A><FONT
FACE="Arial" STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#AboutSimoTime" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#SimilarPoints" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Table-of-Contents</A>)</FONT></H2>
<P> If you have any questions, suggestions or comments please call or send
an e-mail to:
<A HREF="mailto:[email protected]" ONMOUSEOUT="this.style.color='0000FF'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-family: Arial">[email protected] </A></P>
<H2> <A NAME="AboutSimoTime">About SimoTime Enterprises, LLC</A><FONT
FACE="Arial" STYLE="color: gray; font-size: 8pt; font-weight: normal"><BR>(<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
HREF="#Comments" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Previous</A>) (<A
HREF="#TOC" ONMOUSEOUT="this.style.color='808080'"
ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: gray">Table-of-Contents</A>)</FONT></H2>
<P>Founded in 1987, SimoTime Enterprises is a privately owned, Limited
Liability Corporation located in Novato, California. 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
complimentary 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
<A HREF="http://www.simotime.com" TARGET="_blank"
ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
STYLE="color: blue; font-family: Arial">http://www.simotime.com</A></P>
<HR SIZE="2" COLOR="#808080">
<TABLE BORDER="0" ALIGN="CENTER" CELLSPACING="2" CELLPADDING="2">
<TR>
<TD ALIGN="CENTER"><A HREF="#TOC"
ONMOUSEOUT="this.style.color='808080'" ONMOUSEOVER="this.style.color='FF0000'"
STYLE="font-size: 12px; font-weight: normal; color: gray">Return-to-Top</A></TD>
</TR>
<TR>
<TD ALIGN="CENTER"><FONT
STYLE="font-size: 12px; font-weight: normal; color: navy">Copyright ©
1987-2005 <FONT STYLE="font-weight: bold"> SimoTime Enterprises, LLC
</FONT>All Rights Reserved</FONT></TD>
</TR>
<TR>
<TD ALIGN="CENTER"><FONT
STYLE="font-style: italic; font-size: 14px; font-family: Arial; color: maroon; font-weight: bold; font-variant: normal">When
technology complements business </FONT></TD>
</TR>
</TABLE>
<P> </P>
<P> </P>
<P> </P>
<P> </P> </BODY>
</HTML>
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|