Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: cblpar01.htm Sprache: HTML

products/sources/formale Sprachen/JCL/jcl3/cblpar01.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="Larry Simmons">
 <META NAME="Generator" CONTENT="SimoTime Version 2002.07.01">
 <META NAME="KEYWORDS"
 CONTENT="Mainframe,OS390,OS/390,390,COBOL,MVS,JCL,PARM,PARM=,exec,statement,keyword,parameter,string,literal,sample,samples,example,examples,pass,passing,sysin.accept">
 <META NAME="description"
 CONTENT="How do you pass a parameter string from JCL to COBOL? This suite of programs provides a sample COBOL program processing a parameter string from mainframe JCL via the PARM keyword or SYSIN. This programming example and documentation are packa
ged as a zip file for easy downloading.">

 <TITLE> Passing JCL Parameters to a COBOL Program</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>
 <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"> COBOL with JCL
 Parameter</TD>
 </TR>
 </TABLE></TD>
 </TR>
 </TABLE>
 <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
 <TR>
 <TD>When
 technology complements business </TD>
 <TD ALIGN="RIGHT">Process
 JCL Parameter</TD>
 </TR>
 </TABLE></TD>
 </TR>
 <TR>
 <TD>
 <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
 <TR>
 <TD STYLE="color: gray; font-size: 8pt">Copyright ©
 1987-2005 SimoTime Enterprises, LLC All Rights Reserved</TD>

 <TD ALIGN="RIGHT" NOWRAP="NOWRAP">
 <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="navy">
 <TABLE WIDTH="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0"
 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">Version
 03.12.02</TD>
 </TR>
 </TABLE></TD>
 </TR>
 <TR>
 <TD> </TD>
 <TD><A HREF="#ParameterPassingParm"
 ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
 STYLE="color: blue; font-size: 14px; font-weight: bold; text-decoration: none">Passing
 a Parameter via PARM=</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="#JclMemberParm" ONMOUSEOVER="this.style.color='FF0000'"
 ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The JCL Member
 using PARM=</A></TD>
 </TR>
 <TR>
 <TD WIDTH="3%" STYLE="font-size: 10pt"> </TD>
 <TD><A HREF="#CobolProgramParm"
 ONMOUSEOVER="this.style.color='FF0000'" ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The COBOL Program
 using PARM=</A></TD>
 </TR>
 </TABLE></TD>
 </TR>
 <TR>
 <TD> </TD>
 <TD>
 <A HREF="#ParameterPassingSysin" ONMOUSEOUT="this.style.color='0000FF'"
 ONMOUSEOVER="this.style.color='FF0000'"
 STYLE="color: blue; font-size: 14px; font-weight: bold; text-decoration: none">Passing
 a Parameter via SYSIN</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="#JclMemberSysin" ONMOUSEOVER="this.style.color='FF0000'"
 ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The JCL Member
 using SYSIN</A></TD>
 </TR>
 <TR>
 <TD WIDTH="3%" STYLE="font-size: 10pt"> </TD>
 <TD><A HREF="#CobolProgramSysin"
 ONMOUSEOVER="this.style.color='FF0000'" ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The COBOL Program
 using SYSIN</A></TD>
 </TR>
 </TABLE></TD>
 </TR>
 <TR>
 <TD> </TD>
 <TD><A HREF="#ParameterPassingSysinMultiple"
 ONMOUSEOUT="this.style.color='0000FF'" ONMOUSEOVER="this.style.color='FF0000'"
 STYLE="color: blue; font-size: 14px; font-weight: bold; text-decoration: none">Passing
 Multiple Parameters via SYSIN</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="#JclMemberSysinMultiple" ONMOUSEOVER="this.style.color='FF0000'"
 ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The JCL Member
 using SYSIN with Multiple Parameters</A></TD>
 </TR>
 <TR>
 <TD WIDTH="3%" STYLE="font-size: 10pt"> </TD>
 <TD><A HREF="#CobolProgramSysinMultiple"
 ONMOUSEOVER="this.style.color='FF0000'" ONMOUSEOUT="this.style.color='0000FF'"
 STYLE="color: blue; font-size: 12px; text-decoration: none">The COBOL Program
 using SYSIN with Multiple Parameters</A></TD>
 </TR>
 </TABLE></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="navy">
 <H1> <A NAME="Introduction">Introduction </A> (<A
 HREF="#ParameterPassingParm"
 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">Table-of-Contents</A>)</H1>
 This suite of programs provides an example of how to pass a parameter
 string from mainframe JCL to a COBOL program. The COBOL program is written
 using COBOL/2 dialect but also works with COBOL for MVS and COBOL/370. A JCL
 member is provided to run the job as an MVS batch job on an IBM mainframe or as
 a project with Micro Focus Mainframe Express (MFE) running on a PC with Windows
 (refer to
 <A HREF="http://www.microfocus.com" ONMOUSEOUT="this.style.color='0000FF'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: blue"
 TARGET="_blank">http://www.microfocus.com </A>). This program may serve as a
 tutorial for programmers that are new to COBOL and mainframe JCL and as a
 reference for experienced programmers.
 The two techniques use to pass information (a Parameter) from JCL
 to a program are as follows.
 <TABLE WIDTH="100%" CELLPADDING="2" CELLSPACING="0" BORDER="0">
 <TR>
 <TD NOWRAP="NOWRAP">Technique </TD>
 <TD>Description</TD>
 </TR>
 <TR>
 <TD VALIGN="TOP">via PARM=</TD>
 <TD>This technique uses a PARM=parameter keyword on the EXEC
 statement in JCL. The COBOL program requires a LINKAGE SECTION.</TD>
 </TR>
 <TR>
 <TD VALIGN="TOP">via SYSIN</TD>
 <TD>This technique requires SYSIN statement followed by the parameter
 to be placed in the JCL. The COBOL program requires an "ACCEPT parameter
 from SYSIN" to be coded in the COBOL program. If the SYSIN statement is missing
 in the JCL the ACCEPT will ABEND with a "File not found" message. To avoid this
 it will be necessary to use a "//SYSIN DD DUMMY" statment in the JCL when a
 parameter is not being passed.</TD>
 </TR>
 </TABLE>
 The following sections describe parameter-passing in more detail. 
 <H1> <A NAME="ParameterPassingParm">Passing a Parameter via PARM=</A> 
 (<A
 HREF="#JclMemberParm" 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">Table-of-Contents</A>)</H1>
 To pass a parameter from JCL to a program requires the use of the
 "PARM=" keyword with the EXEC statement. The following JCL statement shows an
 EXEC statement without a parameter defined.
 <H2> <A NAME="JclMemberParm">The JCL Member using PARM=</A> (<A
 HREF="#CobolProgramParm" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#ParameterPassingParm"
 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>)</H2>
 The following is the mainframe JCL (CBLPARJ1.JCL) required to run as a job on the
 mainline. This will also run on the PC using Mainframe Express provided by
 Micro Focus. The job contains two steps. The first step will execute the COBOL
 program (CBLPARC1.CBL) without passing a parameter. The second step will
 execute the COBOL program and pass a parameter. The JOB statement will need to
 be modified for specific mainframe environments.
 <PRE>
//CBLPARJ1 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//* 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] *
//* *******************************************************************
//*
//* Text - Process a parameter string passed from the JCL
//* Author - SimoTime Enterprises
//* Date - January 24, 1996
//*
//* This is a sample program that shows how a COBOL program can
//* process input from the JCL using the PARM keyword from the EXEC
//* statement.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express
//*
//* *******************************************************************
//* Step 1 of 3, Execute the COBOL program without a parameter.
//*
//PARJ1S01 EXEC PGM=CBLPARC1
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//*
//* *******************************************************************
//* Step 2 of 3, Execute the COBOL program with a parameter.
//*
//PARJ1S02 EXEC PGM=CBLPARC1,
// PARM='This is a Parameter from the EXEC and PARM= ...'
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//*
//* *******************************************************************
//* Step 3 of 3, Execute the COBOL program with a parameter.
//* The PARM= has a record length maximum of 100.
//*
//PARJ1S03 EXEC PGM=CBLPARC1,
// PARM='....:....1....:....2....:....3....:....4....:....5X
// ....:....6....:....7....:....9....:...10....:...11'
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//*
</PRE>
 <H2> <A
 NAME="CobolProgramParm">The COBOL Program using PARM=</A> (<A
 HREF="#ParameterPassingSysin" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#JclMemberParm" 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>)</H2>
 This program (CBLPARC1.CBL) was
 written to be used as a teaching and learning aid. When a COBOL program is
 executed from a JCL member a data string (or parameter) may be passed from the
 JCL member to the COBOL program using the PARM keyword as follows.
 <PRE>//CBLPARS2 EXEC PGM=CBLPARC1,PARM='datastring'</PRE>
 When the data string is passed from JCL to COBOL it is preceded with a
 two-byte binary value that specifies the length of the data string. For
 example, if the data string is ten characters in length the actual information
 passed to the COBOL program would be a two-byte binary value of ten or x'000A'
 followed by the ten character data string. If the COBOL program is executed
 from JCL without a parameter the two-byte binary value would be zero or
 x'0000'.
 <PRE>
 IDENTIFICATION DIVISION.
 PROGRAM-ID. CBLPARC1.
 AUTHOR. SIMOTIME ENTERPRISES.
 *****************************************************************
 * Copyright (C) 1987-2003 SimoTime Enterprises, LLC. *
 * *
 * All rights reserved. Unpublished, all rights reserved under *
 * copyright law and international treaty. Use of a copyright *
 * notice is precautionary only and does not imply publication *
 * or disclosure. *
 * *
 * 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 without the written permission of SimoTime *
 * Enterprises.This software contains confidential information *
 * *
 * Permission to use, copy, modify and distribute this software *
 * for any commercial purpose requires a fee to be paid to *
 * Simotime Enterprises. Once the fee is received by SimoTime *
 * the latest version of the software 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 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 *
 * *
 * SimoTime Enterprises *
 * 15 Carnoustie Drive *
 * Novato, CA 94949-5849 *
 * 415.883.6565 *
 * *
 * RESTRICTED RIGHTS LEGEND *
 * Use, duplication, or disclosure by the Government is subject *
 * to restrictions as set forth in subparagraph (c)(1)(ii) of *
 * the Rights in Technical Data and Computer Software clause at *
 * DFARS 52.227-7013 or subparagraphs (c)(1) and (2) of *
 * Commercial Computer Software - Restricted Rights at 48 *
 * CFR 52.227-19, as applicable. Contact SimoTime Enterprises, *
 * 15 Carnoustie Drive, Novato, CA 94949-5849. *
 * *
 *****************************************************************
 * This program is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 * *
 *****************************************************************
 *
 *****************************************************************
 * Source Member: CBLPARC1.CBL
 *****************************************************************
 *
 * CBLPARC1 - This program will process a JCL parameter.
 *
 * CALLING PROTOCOL
 * ----------------
 * USE STANDARD PROCEDURE TO EXECUTE, RUN OR ANIMATE.
 *
 * DESCRIPTION
 * -----------
 * This program will process the JCL parameter from the PARM
 * keyword of the EXEC staement.
 *
 * // EXEC PGM=PROGNAME,PARM='text string...'
 *
 * This program will simply display the text string.
 *
 ****************************************************************
 *
 * MAINTENANCE
 * -----------
 * 1997/02/27 Simmons, Created program.
 *
 *****************************************************************
 *
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 *
 *****************************************************************
 * Data-structure for Title and Copyright...
 * ------------------------------------------------------------
 01 SIM-TITLE.
 05 T1 pic X(11) value '* CBLPARC1 '.
 05 T2 pic X(34) value 'Sample, Process a JCL Parameter '.
 05 T3 pic X(10) value ' v03.01.24'.
 05 T4 pic X(24) value ' http://www.simotime.com'.
 01 SIM-COPYRIGHT.
 05 C1 pic X(11) value '* CBLPARC1 '.
 05 C2 pic X(20) value 'Copyright 1987-2003 '.
 05 C3 pic X(28) value ' SimoTime Enterprises, LLC '.
 05 C4 pic X(20) value ' All Rights Reserved'.

 01 SIM-THANKS-01.
 05 C1 pic X(11) value '* CBLPARC1 '.
 05 C2 pic X(32) value 'Thank you for using this sample '.
 05 C3 pic X(32) value 'by SimoTime Enterprises, LLC '.
 05 C4 pic X(04) value ' '.

 01 SIM-THANKS-02.
 05 C1 pic X(11) value '* CBLPARC1 '.
 05 C2 pic X(32) value 'Please send comments or suggesti'.
 05 C3 pic X(32) value 'ons to [email protected] '.
 05 C4 pic X(04) value ' '.

 01 FIRST-TIME pic X value 'Y'.

 01 MESSAGE-BUFFER.
 05 MESSAGE-HEADER pic X(11) value '* CBLPARC1 '.
 05 MESSAGE-TEXT pic X(128).

 01 MESSAGE-TEXT-01.
 05 filler pic X(20) value 'Parameter length is '.
 05 JCL-PARM-LENGTH pic 9(5) value 0.

 *****************************************************************
 LINKAGE SECTION.
 01 PARM-BUFFER.
 05 PARM-LENGTH pic S9(4) comp.
 05 PARM-DATA pic X(256).

 *****************************************************************
 PROCEDURE DIVISION using PARM-BUFFER.
 if FIRST-TIME not = 'N'
 perform Z-POST-COPYRIGHT
 move 'N' to FIRST-TIME
 end-if

 add PARM-LENGTH to ZERO giving JCL-PARM-LENGTH
 move MESSAGE-TEXT-01 to MESSAGE-TEXT
 perform Z-POST-MESSAGE

 if PARM-LENGTH &GT; 0
 move PARM-DATA(1:PARM-LENGTH) to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 end-if

 perform Z-THANK-YOU.

 GOBACK.

 *****************************************************************
 * Display Copyright or Program Messages...
 *****************************************************************
 Z-POST-COPYRIGHT.
 display SIM-TITLE upon console
 display SIM-COPYRIGHT upon console
 exit.

 *****************************************************************
 Z-POST-MESSAGE.
 display MESSAGE-BUFFER upon console
 move SPACES to MESSAGE-TEXT
 exit.

 *****************************************************************
 Z-THANK-YOU.
 display SIM-THANKS-01 upon console
 display SIM-THANKS-02 upon console
 exit.
 *****************************************************************
 * This example is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 *****************************************************************</PRE>
 <H1> <A NAME="ParameterPassingSysin">Passing a Parameter via SYSIN</A> 
 (<A
 HREF="#JclMemberSysin" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#CobolProgramParm" 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>)</H1>
 To pass a parameter from SYSIN to a program requires the use of DD
 statement for SYSIN. The following JCL statement is required if no parameter is
 passed.
 <PRE>//* *******************************************************************
//* Step 1 of 2, Execute the COBOL program without a parameter.
//*
//SYSIN DD DUMMY
</PRE>
 <H2> <A NAME="JclMemberSysin">The JCL Member using SYSIN</A> (<A
 HREF="#CobolProgramSysin" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#ParameterPassingSysin" 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>)</H2>
 The following is the mainframe JCL (CBLPARJ2.JCL) required to run as a job on the
 mainline. This will also run on the PC using Mainframe Express provided by
 Micro Focus. The job contains two steps. The first step will execute the COBOL
 program (CBLPARC2.CBL) without passing a parameter. The second step will
 execute the COBOL program and pass a parameter. The JOB statement will need to
 be modified for specific mainframe environments.
 <PRE>
//CBLPARJ2 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//* 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] *
//* *******************************************************************
//*
//* Text - Process a parameter string passed from the JCL
//* Author - SimoTime Enterprises
//* Date - January 24, 1996
//*
//* This is a sample program that shows how a COBOL program can
//* process input from the JCL using SYSIN.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express
//*
//* *******************************************************************
//* Step 1 of 2, Execute the COBOL program without a parameter.
//*
//* The //SYSIN DD DUMMY is required to prevent the COBOL
//* program from ABENDING on the ACCEPT ... from SYSIN.
//*
//PARJ2S01 EXEC PGM=CBLPARC2
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//SYSIN DD DUMMY
//*
//* *******************************************************************
//* Step 2 of 2, Execute the COBOL program with a parameter.
//*
//PARJ2S02 EXEC PGM=CBLPARC2
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//SYSIN DD *
This is a single parameter from PARJ2S02 and SYSIN-DD-* ...
/*
//*
//
</PRE>
 <H2> <A NAME="CobolProgramSysin">The COBOL Program using SYSIN</A> (<A
 HREF="#ParameterPassingSysinMultiple" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#JclMemberSysin" 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>)</H2>
 The following is the COBOL program (CBLPARC2.CBL) required to run as a job on the
 mainline. This will also run on the PC using Mainframe Express provided by
 Micro Focus. The job contains two steps. The first step will execute the COBOL
 program (CBLPARC2.CBL) without passing a parameter. The second step will
 execute the COBOL program and pass a parameter via SYSIN. The JOB statement
 will need to be modified for specific mainframe environments.
 <PRE>
 IDENTIFICATION DIVISION.
 PROGRAM-ID. CBLPARC2.
 AUTHOR. SIMOTIME ENTERPRISES.
 *****************************************************************
 * Copyright (C) 1987-2003 SimoTime Enterprises, LLC. *
 * *
 * All rights reserved. Unpublished, all rights reserved under *
 * copyright law and international treaty. Use of a copyright *
 * notice is precautionary only and does not imply publication *
 * or disclosure. *
 * *
 * 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 without the written permission of SimoTime *
 * Enterprises.This software contains confidential information *
 * *
 * Permission to use, copy, modify and distribute this software *
 * for any commercial purpose requires a fee to be paid to *
 * Simotime Enterprises. Once the fee is received by SimoTime *
 * the latest version of the software 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 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 *
 * *
 * SimoTime Enterprises *
 * 15 Carnoustie Drive *
 * Novato, CA 94949-5849 *
 * 415.883.6565 *
 * *
 * RESTRICTED RIGHTS LEGEND *
 * Use, duplication, or disclosure by the Government is subject *
 * to restrictions as set forth in subparagraph (c)(1)(ii) of *
 * the Rights in Technical Data and Computer Software clause at *
 * DFARS 52.227-7013 or subparagraphs (c)(1) and (2) of *
 * Commercial Computer Software - Restricted Rights at 48 *
 * CFR 52.227-19, as applicable. Contact SimoTime Enterprises, *
 * 15 Carnoustie Drive, Novato, CA 94949-5849. *
 * *
 *****************************************************************
 * This program is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 * *
 *****************************************************************
 *
 *****************************************************************
 * Source Member: CBLPARC2.CBL
 *****************************************************************
 *
 * CBLPARC2 - This program will process a SYSIN parameter.
 *
 * CALLING PROTOCOL
 * ----------------
 * USE STANDARD PROCEDURE TO EXECUTE, RUN OR ANIMATE.
 *
 * DESCRIPTION
 * -----------
 * This program will process the JCL parameter from SYSIN.
 *
 * //SYSIN DD *
 * Parameter from SYSIN...
 * //*
 *
 * or a DUMMY is required to avoid an ABEND on the ACCEPT...
 *
 * //SYSIN DD DUMMY
 *
 * This program will simply display the text string.
 *
 ****************************************************************
 *
 * MAINTENANCE
 * -----------
 * 1997/02/27 Simmons, Created program.
 *
 *****************************************************************
 *
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 *
 *****************************************************************
 * Data-structure for Title and Copyright...
 * ------------------------------------------------------------
 01 SIM-TITLE.
 05 T1 pic X(11) value '* CBLPARC2 '.
 05 T2 pic X(34) value 'Sample, Process SYSIN Parameter '.
 05 T3 pic X(10) value ' v03.01.24'.
 05 T4 pic X(24) value ' http://www.simotime.com'.
 01 SIM-COPYRIGHT.
 05 C1 pic X(11) value '* CBLPARC2 '.
 05 C2 pic X(20) value 'Copyright 1987-2003 '.
 05 C3 pic X(28) value ' SimoTime Enterprises, LLC '.
 05 C4 pic X(20) value ' All Rights Reserved'.

 01 SIM-THANKS-01.
 05 C1 pic X(11) value '* CBLPARC2 '.
 05 C2 pic X(32) value 'Thank you for using this sample '.
 05 C3 pic X(32) value 'by SimoTime Enterprises, LLC '.
 05 C4 pic X(04) value ' '.

 01 SIM-THANKS-02.
 05 C1 pic X(11) value '* CBLPARC2 '.
 05 C2 pic X(32) value 'Please send comments or suggesti'.
 05 C3 pic X(32) value 'ons to [email protected] '.
 05 C4 pic X(04) value ' '.

 01 FIRST-TIME pic X value 'Y'.

 01 MESSAGE-BUFFER.
 05 MESSAGE-HEADER pic X(11) value '* CBLPARC2 '.
 05 MESSAGE-TEXT pic X(128).

 01 MESSAGE-TEXT-01.
 05 filler pic X(20) value 'Parameter length is '.
 05 JCL-PARM-LENGTH pic 9(5) value 0.

 01 SYSIN-PARAMETER pic X(80) value SPACES.
 01 SYSIN-LENGTH pic 9(5) value 0.

 01 IX-1 pic 9(3) value 0.

 *****************************************************************
 PROCEDURE DIVISION.
 if FIRST-TIME not = 'N'
 perform Z-POST-COPYRIGHT
 move 'N' to FIRST-TIME
 *> A DD statement is required or a hard ABEND will occur
 *> on the ACCEPT. If no parameters are passed then a
 *> //SYSIN DD DUMMY is required to prevent the COBOL
 *> program from ABENDING on the ACCEPT ... from SYSIN.
 accept SYSIN-PARAMETER from SYSIN
 end-if

 subtract SYSIN-LENGTH from SYSIN-LENGTH
 if SYSIN-PARAMETER = SPACES
 add SYSIN-LENGTH to ZERO giving JCL-PARM-LENGTH
 move MESSAGE-TEXT-01 to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 else
 perform CALCULATE-TEXT-LENGTH
 add SYSIN-LENGTH to ZERO giving JCL-PARM-LENGTH
 move MESSAGE-TEXT-01 to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 move SYSIN-PARAMETER to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 end-if

 perform Z-THANK-YOU.

 GOBACK.

 *****************************************************************
 CALCULATE-TEXT-LENGTH.
 add 1 to ZERO giving IX-1
 perform 80 times
 if SYSIN-PARAMETER(IX-1:1) not = SPACE
 add IX-1 to ZERO giving SYSIN-LENGTH
 end-if
 add 1 to IX-1
 end-perform
 exit.

 *****************************************************************
 * Display Copyright or Program Messages...
 *****************************************************************
 Z-POST-COPYRIGHT.
 display SIM-TITLE upon console
 display SIM-COPYRIGHT upon console
 exit.

 *****************************************************************
 Z-POST-MESSAGE.
 display MESSAGE-BUFFER upon console
 move SPACES to MESSAGE-TEXT
 exit.

 *****************************************************************
 Z-THANK-YOU.
 display SIM-THANKS-01 upon console
 display SIM-THANKS-02 upon console
 exit.
 *****************************************************************
 * This example is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 *****************************************************************</PRE>
 <H1> <A NAME="ParameterPassingSysinMultiple">Passing Multiple Parameters
 via SYSIN</A> 
 (<A
 HREF="#JclMemberSysinMultiple" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#CobolProgramSysin" 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>)</H1>
 To pass multiple parameters (or records) from SYSIN to a program
 requires the use of DD statement for SYSIN. The following JCL statement is
 required if no parameter is passed.
 <PRE>//* *******************************************************************
//* Step 1 of 2, Execute the COBOL program without a parameter.
//*
//SYSIN DD DUMMY
</PRE>
 <H2> <A NAME="JclMemberSysinMultiple">The JCL Member using SYSIN with
 Multiple Parameters</A> (<A
 HREF="#CobolProgramSysinMultiple" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#ParameterPassingSysinMultiple" 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>)</H2>
 The following is the mainframe JCL (CBLPARJ3.JCL) required to run as a job on the
 mainline. This will also run on the PC using Mainframe Express provided by
 Micro Focus. The job contains two steps. The first step will execute the COBOL
 program (CBLPARC3CBL) without passing a parameter. The second step will execute
 the COBOL program and pass provide three parameters. The JOB statement will
 need to be modified for specific mainframe environments.
 <PRE>
//CBLPARJ3 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//* 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] *
//* *******************************************************************
//*
//* Text - Process a parameter string passed from the JCL
//* Author - SimoTime Enterprises
//* Date - January 24, 1996
//*
//* This is a sample program that shows how a COBOL program can
//* process input from the JCL using SYSIN.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express
//*
//* *******************************************************************
//* Step 1 of 3, Execute the COBOL program without a parameter.
//*
//* The //SYSIN DD DUMMY is required to prevent the COBOL
//* program from ABENDING on the ACCEPT ... from SYSIN.
//*
//PARJ3S01 EXEC PGM=CBLPARC3
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//SYSIN DD DUMMY
//*
//* *******************************************************************
//* Step 2 of 3, Execute the COBOL program with multiple parameters.
//*
//PARJ3S02 EXEC PGM=CBLPARC3
//STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//SYSIN DD *
This is Parameter 01 from PARJ3S02 and SYSIN-DD-*.
This is Parameter 02 from PARJ3S02 and SYSIN-DD-*..
This is Parameter 03 from PARJ3S02 and SYSIN-DD-*...
/*
//*
//* *******************************************************************
//* Step 3 of 3, Execute the COBOL program with control file.
//*
//PARJ3S03 EXEC PGM=CBLPARC3
//STEPLIB DD DISP=SHR,DSN=SIMOTIME.DEMO.LOADLIB1
//SYSIN DD DISP=SHR,DSN=SIMOTIME.DEMO.CNTLDECK(CBLPARS3)
//*
//
</PRE>
 In the preceding JCL example Step 3 of 3 passes parameters from a SYSIN
 Data Set (SIMOTIME.DEMO.CNTLDECK(CBLPARS3)) to the COBOL program. The SYSIN
 data set includes the following records.
 <PRE>Parameter 01 from control file specified by SYSIN-DD-CBLPARS3.
Parameter 02 from control file specified by SYSIN-DD-CBLPARS3..
Parameter 03 from control file specified by SYSIN-DD-CBLPARS3...

</PRE>
 <H2> <A NAME="CobolProgramSysinMultiple">The COBOL Program using SYSIN with
 Multiple Parameters</A> (<A
 HREF="#Summary" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#JclMemberSysinMultiple" 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>)</H2>
 The following is the COBOL program (CBLPARC3.CBL) required to run as a job on the
 mainline. This will also run on the PC using Mainframe Express provided by
 Micro Focus. The job contains two steps. The first step will execute the COBOL
 program (CBLPARC3.CBL) without passing a parameter. The second step will
 execute the COBOL program and pass a parameter via SYSIN. The JOB statement
 will need to be modified for specific mainframe environments.
 <PRE>
 IDENTIFICATION DIVISION.
 PROGRAM-ID. CBLPARC3.
 AUTHOR. SIMOTIME ENTERPRISES.
 *****************************************************************
 * Copyright (C) 1987-2003 SimoTime Enterprises, LLC. *
 * *
 * All rights reserved. Unpublished, all rights reserved under *
 * copyright law and international treaty. Use of a copyright *
 * notice is precautionary only and does not imply publication *
 * or disclosure. *
 * *
 * 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 without the written permission of SimoTime *
 * Enterprises.This software contains confidential information *
 * *
 * Permission to use, copy, modify and distribute this software *
 * for any commercial purpose requires a fee to be paid to *
 * Simotime Enterprises. Once the fee is received by SimoTime *
 * the latest version of the software 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 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 *
 * *
 * SimoTime Enterprises *
 * 15 Carnoustie Drive *
 * Novato, CA 94949-5849 *
 * 415.883.6565 *
 * *
 * RESTRICTED RIGHTS LEGEND *
 * Use, duplication, or disclosure by the Government is subject *
 * to restrictions as set forth in subparagraph (c)(1)(ii) of *
 * the Rights in Technical Data and Computer Software clause at *
 * DFARS 52.227-7013 or subparagraphs (c)(1) and (2) of *
 * Commercial Computer Software - Restricted Rights at 48 *
 * CFR 52.227-19, as applicable. Contact SimoTime Enterprises, *
 * 15 Carnoustie Drive, Novato, CA 94949-5849. *
 * *
 *****************************************************************
 * This program is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 * *
 *****************************************************************
 *
 *****************************************************************
 * Source Member: CBLPARC3.CBL
 *****************************************************************
 *
 * CBLPARC3 - This program will process a SYSIN parameter.
 *
 * CALLING PROTOCOL
 * ----------------
 * USE STANDARD PROCEDURE TO EXECUTE, RUN OR ANIMATE.
 *
 * DESCRIPTION
 * -----------
 * This program will process the JCL parameter from SYSIN.
 *
 * //SYSIN DD *
 * Parameter from SYSIN...
 * //*
 *
 * or a DUMMY is required to avoid an ABEND on the ACCEPT...
 *
 * //SYSIN DD DUMMY
 *
 * This program will simply display the text string.
 *
 ****************************************************************
 *
 * MAINTENANCE
 * -----------
 * 1997/02/27 Simmons, Created program.
 *
 *****************************************************************
 *
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 *
 *****************************************************************
 * Data-structure for Title and Copyright...
 * ------------------------------------------------------------
 01 SIM-TITLE.
 05 T1 pic X(11) value '* CBLPARC3 '.
 05 T2 pic X(34) value 'Sample, Process SYSIN Parameter '.
 05 T3 pic X(10) value ' v03.04.22'.
 05 T4 pic X(24) value ' http://www.simotime.com'.
 01 SIM-COPYRIGHT.
 05 C1 pic X(11) value '* CBLPARC3 '.
 05 C2 pic X(20) value 'Copyright 1987-2003 '.
 05 C3 pic X(28) value ' SimoTime Enterprises, LLC '.
 05 C4 pic X(20) value ' All Rights Reserved'.

 01 SIM-THANKS-01.
 05 C1 pic X(11) value '* CBLPARC3 '.
 05 C2 pic X(32) value 'Thank you for using this sample '.
 05 C3 pic X(32) value 'by SimoTime Enterprises, LLC '.
 05 C4 pic X(04) value ' '.

 01 SIM-THANKS-02.
 05 C1 pic X(11) value '* CBLPARC3 '.
 05 C2 pic X(32) value 'Please send comments or suggesti'.
 05 C3 pic X(32) value 'ons to [email protected] '.
 05 C4 pic X(04) value ' '.

 01 FIRST-TIME pic X value 'Y'.

 01 MESSAGE-BUFFER.
 05 MESSAGE-HEADER pic X(11) value '* CBLPARC3 '.
 05 MESSAGE-TEXT pic X(128).

 01 MESSAGE-TEXT-01.
 05 filler pic X(20) value 'Parameter length is '.
 05 JCL-PARM-LENGTH pic 9(5) value 0.

 01 SYSIN-PARAMETER pic X(80) value SPACES.
 01 SYSIN-LENGTH pic 9(5) value 0.

 01 IX-1 pic 9(3) value 0.

 COPY PASSDUMP.

 *****************************************************************
 PROCEDURE DIVISION.
 if FIRST-TIME not = 'N'
 perform Z-POST-COPYRIGHT
 move 'N' to FIRST-TIME
 end-if

 perform 4 times
 move SPACES to SYSIN-PARAMETER
 *> A DD statement is required or a hard ABEND will occur
 *> on the ACCEPT. If no parameters are passed then a
 *> //SYSIN DD DUMMY is required to prevent the COBOL
 *> program from ABENDING on the ACCEPT ... from SYSIN.
 *> Since there is no File Status code for the accept then
 *> an ACCEPT after the final record is read from SYSIN
 *> will leave the buffer in the state before the request.
 *> In this example the buffer is always initialized with
 *> space characters and the logic in the program will
 *> determine a ZERO record length and the routine should
 *> stop accepting (or reading) from SYSIN. The following
 *> example intentionally reads (or accepts) beyond the
 *> SYSIN records available to show a technique for
 *> handling this possibility.
 accept SYSIN-PARAMETER from SYSIN
 subtract SYSIN-LENGTH from SYSIN-LENGTH
 if SYSIN-PARAMETER = SPACES
 add SYSIN-LENGTH to ZERO giving JCL-PARM-LENGTH
 move MESSAGE-TEXT-01 to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 else
 perform CALCULATE-TEXT-LENGTH
 add SYSIN-LENGTH to ZERO giving JCL-PARM-LENGTH
 move MESSAGE-TEXT-01 to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 move SYSIN-PARAMETER to MESSAGE-TEXT
 perform Z-POST-MESSAGE
 end-if
 end-perform

 perform Z-THANK-YOU.

 GOBACK.

 *****************************************************************
 CALCULATE-TEXT-LENGTH.
 add 1 to ZERO giving IX-1
 inspect SYSIN-PARAMETER replacing all LOW-VALUES by SPACES
 perform 80 times
 if SYSIN-PARAMETER(IX-1:1) not = SPACE
 add IX-1 to ZERO giving SYSIN-LENGTH
 end-if
 add 1 to IX-1
 end-perform
 exit.

 *****************************************************************
 * Display Copyright or Program Messages...
 *****************************************************************
 Z-POST-COPYRIGHT.
 display SIM-TITLE upon console
 display SIM-COPYRIGHT upon console
 exit.

 *****************************************************************
 Z-POST-MESSAGE.
 display MESSAGE-BUFFER upon console
 move SPACES to MESSAGE-TEXT
 exit.

 *****************************************************************
 Z-THANK-YOU.
 display SIM-THANKS-01 upon console
 display SIM-THANKS-02 upon console
 exit.
 *****************************************************************
 * This example is provided by SimoTime Enterprises *
 * Our e-mail address is: [email protected] *
 * Also, visit our Web Site at http://www.simotime.com *
 *****************************************************************</PRE>
 <H1> <A NAME="Summary">Summary </A>
 (<A
 HREF="#SoftwareAgreementDisclaimer" ONMOUSEOUT="this.style.color='808080'"
 ONMOUSEOVER="this.style.color='FF0000'" STYLE="color: gray">Next</A>) (<A
 HREF="#CobolProgramSysinMultiple" 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>)</H1>
 The purpose of this document is to assist as a tutorial for new
 programmers or as a quick reference for experienced programmers. These sample
 programs are made available on an "as-is" basis and may be downloaded, copied
 and modified for specific situations as long as the copyright information is
 not removed or changed. As always, it is the programmer's responsibility to
 thoroughly test all programs.
 <H2> <A NAME="SoftwareAgreementDisclaimer" STYLE="color: navy">Software
 Agreement and Disclaimer </A> (<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>)</H2>
 Permission to use, copy, modify and distribute this software for any
 commercial purpose requires a fee to be paid to Simotime Enterprises. Once the
 fee is received by SimoTime the latest version of the software 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.
 Permission to use, copy, modify and distribute this software for a
 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 without the written permission of SimoTime Enterprises.
 SimoTime Enterprises makes no warranty or representations about the
--> --------------------

--> maximum size reached

--> --------------------

¤ Dauer der Verarbeitung: 0.31 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.