zOs/TX/WK600JES

$#@
$*(   extract jobs from eJes and copy to pds mbr
$*)
$>.jclSub()
$<=/jcl/
$=out=dsn.marec.pta.test09.jobout
//YMARCJES JOB (SK01,KE10,A979074,S),'BATCH EJES',
//        NOTIFY=&SYSUID,MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG,SYSTEM=R23 (EJES IST NUR AUF R23/S23 LIZENZIERT)
//*
//* JOB OUTPUT VOM SPOOL IN DATASETS EXTRAHIEREN
//* - IN LIB 'DSN.MAREC.TEST09.EJES.CTRL' FÜR JEDEN JOB EINEN MEMBER MIT
//*   FOLGENDEM INHALT SPEICHERN (COMMANDS FÜR EJES):
//*   EJES J=A979074E,STATUS BATCH
//*   :E
//* - DIESE KONTROLLMEMBER KÖNNEN MIT REXX GENMEMBR GENERIERT WERDEN
//*   (KONTROLLIEREN, OB ALLFÄLLIGE ANPASSUNGEN NOTWENDIG SIND)
//* - PROC AUFRUFE ENTSPRECHEND DEN VORHANDENEN JOBS ANPASSEN
//* - CSM AUS DEM RR2 IST NICHT ERLAUBT, DESHALB DATEN VOM RZ1 HER HOLEN
//*   (JOB IM RZ1 A979074.RZ1.CNTL(CSM#PTA1)  )
//*
//*------------------------------------------------------- JCL PROC
//EXT PROC MBR=VERGESSEN
//* HOUSEKEEPING
//*ELETE   EXEC PGM=IEFBR14
//*1       DD UNIT=DISK,DISP=(MOD,DELETE,DELETE),
//*           DSN=&PREF..&JOB..&SUFF.
//* EXTRACT JOB OUTPUT
//EXTRACT  EXEC PGM=IKJEFT01,DYNAMNBR=24
//EJESEXT  DD DISP=SHR,DSN=DSN.MARECRE.PTAMF.JOBOUT(&MBR)
//SYSABEND DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
// PEND
$@do jx=40 to 40 $@=[
    $=jy=-right($jx, 3, 0)
    $=dsn=DSN.MAREC.PTA.TEST09.YMRCO$jy.JOB.OUTPUT
//S$jy EXEC EXT,MBR=MGRB$jy    <--- JOBNAMEN ANPASSEN,
//EXTRACT.SYSTSIN  DD *
EJES J=YMRBU$jy,STATUS BATCH
:E
    $]
$/jcl/
$#out                                              20091219 12:01:20
$#out                                              20091219 11:57:42
$#out                                              20091219 11:56:02