|
This example opens a dataset member and reads JCL records. The records are written to an allocated internal reader to allow the JCL to be submitted as a job.
/*REXX*/
/* Allocate my JCL dataset to the "INPUT" DDname */
if EVORXALO('INPUT','USER.JCL.CNTL') = 'OK' then
do
/* Allocate the internal reader */
if EVORXINT('JCLOUT') = 'OK' then
do
/* Read the PDS member and write it to the internal reader */
|