zOs/JCL/IDCAMSTS

$<~wk.jcl(idcamscm)
$@{
    $@for v $@{
        if word($v, 1) = 'ALTER' then do
            c = word($v, 1) "'"word($v, 2)"'" subword($v, 3)
            say c
            call adrTso c, '*'
            end
        $}
$}