| Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/JCL/jcl3/ Datei vom 4.1.2008 mit Größe 1 kB |
|
Quelle cblparj2.jcl Sprache: JCL |
|||||||||
|
//CBLPARJ2 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 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-* ... /* //* // ¤ Dauer der Verarbeitung: 0.22 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28