//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: 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 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 EXECPGM=CBLPARC1
//STEPLIB DDDSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR //* //* ******************************************************************* //* Step 2 of 3, Execute the COBOL program with a parameter. //*
//PARJ1S02 EXECPGM=CBLPARC1,
// PARM='This is a Parameter from the EXEC and PARM= ...'
//STEPLIB DDDSN=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 EXECPGM=CBLPARC1,
// PARM='....:....1....:....2....:....3....:....4....:....5X
// ....:....6....:....7....:....9....:...10....:...11'
//STEPLIB DDDSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR //*
¤ Dauer der Verarbeitung: 0.23 Sekunden
(vorverarbeitet)
¤
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.
