
Appendix C. JCL samples 413
//* ------------------------------------------------------------------
//* Run MVS system command and retrieve the output
//* Property of IBM (C) Copyright IBM Corp. 2002
//* ------------------------------------------------------------------
// SET CONSCMD='P ZFS' <=== Console command
// SET CONSOLE='' <=== Console name
// SET REXXLIB=HERING.ZFS.REXX.EXEC <=== SYSEXEC library
//* ------------------------------------------------------------------
//CONSCMND EXEC PGM=IKJEFT01,PARM='CN C=&CONSOLE. &CONSCMD.'
//SYSEXEC DD DSNAME=&REXXLIB.,DISP=SHR
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*,LRECL=260,RECFM=V
//* ------------------------------------------------- ...