|
|
|
|
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
cblparj1.jcl
Sprache: JCL
|
|
//CBLPARJ1 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: [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
//*
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
|
|
|
|
|
