zOs/REXX.O13/WSHTUT01

$#@
$>.fSub()
$*+fEdit('~tmp.jcl(t)')
$@=[
$=subsys=DBAF
$=db=DA540769
$=ts=A978A
$@<~wk.jcl(jc)
//* $-{sysvar(sysnode) date() time()} ts=$ts 10*len=$-{length($ts) * 10}
//P02     EXEC PGM=DSNUTILB,
//             PARM='$subsys,A540769C.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)
  $@[if right($ts, 2) == '7A' then $@=[
    FULL YES
  $] else
    $$ $''    FULL NO
  $]
    SHRLEVEL CHANGE
$]
$#out                                              20110208 09:22:05
$#out                                              20110208 09:21:34
$#out                                              20110208 09:20:45
$#out                                              20110208 09:19:18