zOs/TX/WK600SIJ

$*(
     submit a job on each system sysX
         to insert on different partitions
$*)
$>.FSub()
$@do sysX=1 to 4 $@=/sys/
//YWK600I$sysX JOB (CP00,KE50),TIME=99
//*MAIN CLASS=LOG,SYSTEM=S1$sysX
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='%WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB  DD  DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB  DD  DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//         DD  DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB  DD  DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB  DD  DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF   DD DISP=(,PASS),UNIT=VIO,
//             SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//ISPLOG    DD SYSOUT=*
//ISPLIST   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$'$=paFr =' $-{$sysX*2-1}
$'$=paTo   =' $-{$sysX*2}
//          DD *
$"say 'partitions' $paFr '-' $paTo"
$@<DSN.TX.CASE(WK600SIN)
$/sys/
$***out            20091030 13:33:40
$***out            20091030 11:59:19
$***out            20091030 11:39:48
$***out            20090924 15:09:57
$***out            20090924 14:47:17
$***out            20090922 13:29:58
$***out            20090922 13:21:20