zOs/REXX/WSHTUT04

$#@
$=subsys=DP4G
$=db=DA540769
$@=[  select dbName  db , name  ts
          from sysibm.sysTablespace
          where dbName = '$db' and name < 'A978'
          order by name desc
          fetch first 2 rows only
$]
$|
call sqlConnect $subsys
call sqlSel
$|
$=jx=0
$@forWith o $@=[
    $=jx=- $jx+1
//A540769$jx JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,CLASS=M1,SCHENV=DB2ALL,
//         NOTIFY=&SYSUID,REGION=0M
//C$TS    EXEC PGM=DSNUTILB,
//             PARM='$subsys,A540769$jx.FULCOPL'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=$subsys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
LISTDEF C#LIST
  INCLUDE TABLESPACE $DB.$ts*   PARTLEVEL
OPTIONS EVENT(ITEMERROR, SKIP)
COPY LIST C#LIST COPYDDN(TCOPYD)
    PARALLEL
    SHRLEVEL CHANGE
$]
call sqlDisConnect
$#out                                              20160303 09:15:03