zOs/TX/PER10JOB

$>. fSub()
$=jobs=D   $** CDIS $** CIJSTM
$@do cx=1 to length($jobs) $@=/job/
$=j=- substr($jobs, cx, 1)
//A540769$j JOB (CP00,KE50),'DB2 ADMIN',                                00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='%WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$'$=j='$j
//          DD DISP=SHR,DSN=DSN.TX.CASE(PER10RU)
$/job/