zOs/SQL/CMNKELL

update SSXX28Q0.DB2_BIND_PARMS
     set explain = 'YES' ,
         appl    = 'XBS'
    where pgm like 'YBER0%'
;
select *
    FROM SSXX28Q0.DB2_BIND_PARMS p
    WHERE -- RZ = 'RZ1' -- AND SSID = 'DBAF'
        -- and collid between 'AV05' and 'AV08'
            pgm like 'YBER0%' --and pgm >= 'YBER02' and pgm <= 'YBER03F'
    order by rz, ssid, pgm, collid
;
commit
;
x
delete   from SSXX28Q0.DB2_BIND_PARMS
    where ssid = 'DBOF' and pgm in ('YBER01', 'YBER04', 'YBER05',
                                    'YBER23')
--  order by ssid, pgm, collid
;
insert into SSXX28Q0.DB2_BIND_PARMS
      ( APPL
      , RZ
      , PGM
      , SSID
      , COLLID
      , LOCATION
      , OWNER
      , QUALIFIER
      , ISOLATION
      , EXPLAIN
      , CURRENTDATA
      , RELEASE
      , DBPROTOCOL
      , DEGREE
      , DYNAMICRULES
      , KEEPDYNAMIC
      , REOPT
      , OPTHINT
      , IMMEDWRITE
      , FLAG
      , PATH
      , VALIDATE
      , SQLERROR
      , DEFER
      )
SELECT 'XBS' APPL
      , 'RZ2' RZ
      , pgm
      , 'DBOF' SSID
      , COLLID
      , LOCATION
      , OWNER
   -- , QUALIFIER
      , case collid
           when 'BE01' then 'OA1P01'
           when 'BE02' then 'OA1P02'
           when 'BE03' then 'OA1P03'
           when 'BE04' then 'OA1P04'
        end
      , ISOLATION
      , EXPLAIN
      , CURRENTDATA
      , RELEASE
      , DBPROTOCOL
      , DEGREE
      , DYNAMICRULES
      , KEEPDYNAMIC
      , REOPT
      , OPTHINT
      , IMMEDWRITE
      , FLAG
      , PATH
      , VALIDATE
      , SQLERROR
      , DEFER
   -- , CREATEDTS
   -- , ALTEREDTS
    FROM SSXX28Q0.DB2_BIND_PARMS p
    WHERE RZ = 'RZ1' AND SSID = 'DBAF'
        -- and collid between 'AV05' and 'AV08'
        and pgm like 'YBER0%' and pgm in ('YBER02F', 'YBER03F')
;
;
x
select * from SSXX28Q0.DB2_BIND_PARMS
    where pgm like 'YBER%' and ssid = 'DBTF'
    order by ssid, pgm, collid
;