zOs/REXX/DBARENA

call sqlConnect DBOF
$=pds=DSN.DBA.ZUEGEL.NOV.RUN
call lmm $pds
$| $@for mbr $@[
    if \ datatype(substr($mbr, 2), 'n') then do
        say 'ignoring' $mbr
        iterate
        end
    call sqlPreAllCl 1, 'select changeid, name, status' ,
                            'from s100447.adbChg',
                            'where changeid =' substr($mbr, 2),
                       , cc, ':ch, :na, :sta'
    if m.cc.0 = 0 then do
        say $mbr 'not wsl found -> delete'
        call adrTso "delete '"$pds"("$mbr")'"
        end
    else if m.cc.0 \= 1 then do
        call err m.cc.0 'tupels for change' $mbr
        end
    else if sta == 'COMPLETE' then do
        say $mbr 'delete wsl' ch na sta
        call adrTso "delete '"$pds"("$mbr")'"
        end
    else do
         neNa = strip(left(na, 8))
         say $mbr ' renameTo' neNa 'for' ch 'named' na 'status' sta
         call adrTso "rename '"$pds"("$mbr")' ("neNa")"
         job = 'Y'left(neNa, 7)
         call readDsn $pds'('neNa')', j.
         jx = pos(' JOB ', j.1)
         if jx < 1 | jx > 16 then
             call err 'no jobCard in' neNa':' j.1
         j.1 = '//'job strip(substr(j.1, jx))
         call writeDsn $pds'('neNa')', j., , 1
         end
    $]