Quelle cblparj3.jcl Sprache: JCL

//CBLPARJ3 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2005 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* 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.PARMLIB1(CBLPARS3)
//*
//

quality100%

¤ Dauer der Verarbeitung: 0.23 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.