zOs/REXX/WSHTUT03

$#@
$*** $>intRdr
$=dbSys=DNOO
$@=[    db         ts
        DGDB9998   A976
        DA540769   A977
$]
$| $@. csvWordRdr()
$*(
  1) das allein                           macht Objekte
  2) $|                                   pipe: output ==> input
  3) $| call fTabAuto                     formatiert als Tabelle
  4) $| $for o $$ o=$o ts=${o&ts}         loop ueber Objekte
  5) $| $forWith o $$ o=$o "$db.$ts"      loop+with ueber Objekte
$*)
$|
$=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
//S$ts    EXEC PGM=DSNUTILB,
//             PARM='$dbSys,A540769$jx.FULCOPL'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=$dbSys.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
$]
$#out                                              20160303 09:10:27