zOs/REXX/WSHTUT07

$#=
$>. fEdit()
$= dbSys = DP4G
    db        ts
    DGDB9998  A976
              A977
    DA540769

              S976
              S975
$|
$@.^[compile $<~wk.rexx(wshTut06) $]
$#out                                              20161128 13:37:56
$#out                                              20161128 13:37:45
$#out                                              20160303 09:53:37