zOs/TX/PER10JOC

$>.fSub()
$=jobs=UVWXYZ
$@do cx=1 to length($jobs) $@=/job/
$=j=- substr($jobs, cx, 1)
//A540769$j JOB (CP00,KE50),TIME=99
//*MAIN CLASS=LOG
//*
//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='T
//          DD DISP=SHR,DSN=DSN.TX.CASE(PER10RU)
$/job/