/*************************** REXX *******************************/ /* (c) Copyright Roger Lacroix 1996 */ /* */ /* Designed, developed and programmed by Roger Lacroix */ /******************************************************************/ /* */ /* Batch is a rexx program that will submit JCL to run */ /* another rexx program in batch. (I like to be different!!) */ /* */ /* */ /******************************************************************/ ARG debug the_rest IF SPACE(debug,0) = 'DEBUG' THEN TRACE R /******************************************************************/ /* */ user = USERID() /* obtain user ident */ queue "//"user"A JOB (xxxx,yyyyyy),'TESTING 1 2 3',TIME=(,30)," queue "// NOTIFY="user",MSGCLASS=T " queue "//* " queue "//* " queue "//REXX EXEC PGM=IKJEFT01, " queue "//* DYNSMBR=20, " queue "// PARM='PGMNAME' " queue "//SYSTSPRT DD SYSOUT=* " queue "//SYSTSIN DD DUMMY " queue "//SYSPROC DD DSN=zzzzzzz.REXX,DISP=SHR " queue "// " queue "$$ " o = OUTTRAP("output.",,"CONCAT") "SUBMIT * END($$)" /* submit jcl job */ o = OUTTRAP(OFF) /* output line saying submitted and job#### */ SAY output.2 RETURN