That's quite nifty. Does it support local spawn and using DD names in
the script?
On 2019-10-30 7:45 PM, John McKown wrote:
Here is my "solution". Actually, I got it from someone R Zenuk. It consists
of a PROC, and a REXX program.
=== proc ===
//BPXJCL PROC USSCMD=,
//*******************************************************************
//* PROC: BPXJCL *
//* *
//* PURPOSE: RUN A USS COMMAND USING THE BPXJCL EXEC *
//* *
//* SYMBOLICS: *
//* *
//* USSCMD - THE USS COMMAND TO EXECUTE *
//* EXECLIB - DSN WHERE BPXJCL EXEC LIVES *
//* *
//* CHANGE LOG *
//* *
//* USER REASON DATE *
//* -------- ------------------------------------- -------- *
//* R. ZENUK INITIAL SETUP 01/20/00 *
//* *
//*******************************************************************
// EXECLIB=SYS1.LI.CLIST.CNTL
//*******************************************************************
//* *
//*******************************************************************
//BPXJCL EXEC PGM=IKJEFT01,PARM='%BPXJCL &USSCMD'
//SYSEXEC DD DSN=&EXECLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDIN DD DUMMY
=== REXX program ===
/*********************************************************************/
/* REXX */
/*********************************************************************/
/* Purpose: Use BPXWUNIX to redirect STDOUT and STDERR to SYSOUT */
/*-------------------------------------------------------------------*/
/* Syntax: BPXJCL command */
/*-------------------------------------------------------------------*/
/* Parms: command - Any USS command */
/* */
/*********************************************************************/
/* Change Log */
/* */
/* Author Date Reason */
/* -------- --------- ----------------------------------------- */
/* R. Zenuk Jan 2000 Initial Creation */
/* */
/*********************************************************************/
parse arg command
say mvsvar('SYSNAME') mvsvar('SYMDEF','JOBNAME') date() time()
say
say 'Executing command:' command
say
exit BPXWUNIX(command,'DD:stdin','DD:stdout','DD:stderr','0')
=== Sample JOB ===
//TSH009X3 JOB (H00000I),'BPXJCL',
// CLASS=Z,TIME=NOLIMIT,
// MSGCLASS=X, SER=BPXROOT,
// NOTIFY=&SYSUID
//*
//STEP1 EXEC PROC=BPXJCL,USSCMD='/bin/sh -L'
//STDIN DD *
set -x
df
//
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
