JCL to Windows Interface  Execute Windows CMD from JCL

Introduction
(Next) (Previous) (Return-to-Top)

This suite of programs will describe how to execute a Windows Command from a JCL member executing under control of Micro Focus Enterprise Server.

WIP001...

The source code, data sets and documentation are provided in a single zipped file called JCLWIN01.ZIP. This zipped file may be downloaded from the SimoTime Web site.

JCL
(Next) (Previous) (Return-to-Top)

WIP001...

//JCLWINJ1 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2010 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text   - API from the JCL to Windows Command Line
//* Author - SimoTime Enterprises
//* Date   - January 24, 1996
//*
//* This is a sample program that shows how a COBOL program can
//* process a parameter from JCL using the PARM keyword from the EXEC
//* statement.
//*
//* The COBOL program will set a condition and JCL will procees
//* accordingly.
//*
//* This set of programs will run with Micro Focus Enterprise Server
//* running on a WIndows system.
//*
//* *******************************************************************
//* Execute the COBOL program and pass a parameter.
//* Based on the PARM='parameter' containing the name of a Windows
//* command file the program will process and execute the command.
//* Note: The SYSOUT ststement is required. Otherwise, a 422 error
//*       return code may occur.
//*
//WINCMDS1 EXEC PGM=JCLWINC1,
//             PARM='C:\SimoLIB1\BPAK\zPackBldJCLWIN01E1.CMD'
//SYSOUT   DD  SYSOUT=*
//*

CMD
(Next) (Previous) (Return-to-Top)

WIP001...

@echo OFF
     echo * %0
     echo * %~dp0
     if not "%Env1BPAK%" == "YES" call Env1BPAK.CMD
     call SimoNote  "*-----------------------------------------------------*zPackBldJclWin01E1"
     call SimoNote  "* Starting JobName zPackBldJclWin01E1.CMD"
rem  *
     wzzip  %ZipsLib1%\jclwin01.zip @jclwin01.zpl >>%BaseLib1%\LOGS\zxZipLog.Log
     if errorlevel = 1 goto :EojNok
     rename %ZipsLib1%\jclwin01.ZIP jclwin01.zip
     goto :EojAok
:EojNok
     call SimoNote  "* ABENDING JobName zPackBldJclWin01E1.CMD"
     goto :End
:EojAok
     call SimoNote  "* Finished JobName zPackBldJclWin01E1.CMD"
:End
     if not "%1" == "nopause" pause

The COBOL Programs
(Next) (Previous) (Return-to-Top)

WIP001...

COBOL, The Executable used by JCL
(Next) (Previous) (Return-to-Top)

WIP001...

COBOL, The Call Routine to Execute a Windows CMD
(Next) (Previous) (Return-to-Top)

WIP001...

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this suite of programs is to provide examples for using the callable "CBL_" routines provided by Micro Focus.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

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.

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.

Links to Similar Pages of Interest
(Next) (Previous) (Table-of-Contents)

This document provides a quick summary of the  File Status Key  for VSAM data sets and QSAM files.

Check out  The JCL Connection  for more mainframe JCL examples.

Check out  The SimoTime Library  for a wide range of topics for Programmers, Project Managers and Software Developers.

To review all the information available on this site start at  The SimoTime Home Page .

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments or Suggestions
(Next) (Previous) (Table-of-Contents)

If you have any questions, suggestions or comments please call or send an e-mail to: helpdesk@simotime.com

About SimoTime Enterprises
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned company. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems. Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com