zOs/REXX/PROTSTFO

$#@      $*( -sta force   auf alle Prototypen in RECP or RBDP pending
             Achtung: dies ist eine kriminelle Aktion
                      nur durchführen falls ......
         $*)
$= dbsy = DBAF
call reoRefSt $dbsy '-1'
call sqlConnect $dbsy
call sqlSel 'select * from S100447.tDbState'   ,
                 "where (  db like 'DGDB%'"    ,
                       "or db like 'DGO%'"     ,
                       "or db like '%A1X%')"   ,
                     "and( sta like '%RBDP%' or sta like '%RECP%')"
$|
$@forWith sta $@[
    db = strip($DB)
    sp = strip($SP)
    if m.dbsp.db.sp = 1 then do
 $**    say 'already' db'.'sp
       end
    else do
        say '-sta db('db') sp('sp') access(force) ***' $STA
        m.dbSp.db.sp = 1
           $** Kommentar in naechster Zeile entfernen
           $**     nur wenn ganz sicher ||||||
 $**??? call sqlDsn st, $dbsy, '-sta db('db') sp('sp') access(force)'
        if 0 then do /* output anzeigen */
            do sx=1 to m.st.0
                say '.' m.st.sx
                end
            end
 $*)    end
    $]
call sqlDISConnect
$#out                                              20120824 12:12:15