zOs/SKELS/DBXSUBRZ

//*** send a job to $toRz *********************************************
//SUB$toRz   EXEC PGM=IEBGENER
//SYSPRINT   DD SYSOUT=*
//SYSUT2     DD SUBSYS=(CSM,'SYSTEM=$toRz,SYSOUT=(A,INTRDR)')
//SYSUT1     DD DATA,DLM='}e'
}e         end of job to $toRz ****************************************