© robertzenuk@newsgroup

Das Programm bildet einen STEM mit Job Control und übergibt diesen an den Internal Reader zur Ausführung.

Dieses Beispiel könnte so modifiziert werden, dass es die Job Control aus einem HFS-File lesen würde.

/* REXX **************************************************************/
/* Purpose: Submit JCL created in a stem variable                    */
/*-------------------------------------------------------------------*/
/* Syntax: jclsub                                                    */
/*********************************************************************/
/* Create JCL records                                                */
/*********************************************************************/
jcl.0 = 2
jcl.1 = '//TESTJOB JOB (0000),TESTJOB,CLASS=A,MSGCLASS=X'
jcl.2 = '// EXEC PGM=IEFBR14'
/*********************************************************************/
/* Allocate a INTRDR DD                                              */
/*********************************************************************/
exitrc = bpxwdyn("alloc dd(sub) sysout writer(intrdr)")
if exitrc <> 0 then say 'Allocate error on INTRDR RC='exitrc
/*********************************************************************/
/* Write the stem to the INTRDR DD                                   */
/*********************************************************************/
address mvs "execio * diskw sub (fini stem jcl."
exitrc = rc
if exitrc <> 0 then say 'EXECIO error on INTRDR RC='exitrc
exitrc = bpxwdyn("free dd(sub)")
if exitrc <> 0 then say 'FREE error on INTRDR' jcl 'RC='exitrc
/*********************************************************************/
/* Shutdown                                                          */
/*********************************************************************/
shutdown: exit(exitrc)