zOs/REXX/WSHTUT01

$#=
$=dbSys=DP4G                    $** db subsystem group
$=db=DA540769                   $*( db name
                                    langer Kommentar   $*)
$=ts=A977A
$<>
$*(                         output redirection
  $>. fEdit()                   edit temporaeres dSN
  $>. fEdit('~tmp.jcl(t)')      edit existierendes DSN
  $>. fSub()                    direkt submit
$*)
$@<~wk.jcl(jc)                      $** include jobCards
//* $-[date() time() '4|=' || (2*3*4) 'ts='$ts 'len='length($ts) $]
//P02     EXEC PGM=DSNUTILB,
//             PARM='$dbSys,A540769C.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)
  $@ if right($ts, 2) == '7A' then
    FULL YES
  $@ else
    FULL NO
    SHRLEVEL CHANGE
$#out                                              20160120 10:06:34