zOs/SQL/CMNJUEN

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  APPL
          , RZ
          , PGM
          , SSID
      --  , COLLID
          , case collid
               when 'AV05' then 'AV13'
               when 'AV06' then 'AV14'
               when 'AV07' then 'AV15'
               when 'AV08' then 'AV16'
            end
          , LOCATION
          , OWNER
      --  , QUALIFIER
          , case collid
               when 'AV05' then 'OA1A13'
               when 'AV06' then 'OA1A14'
               when 'AV07' then 'OA1A15'
               when 'AV08' then 'OA1A16'
            end
          , ISOLATION
          , EXPLAIN
          , CURRENTDATA
          , RELEASE
          , DBPROTOCOL
          , DEGREE
          , DYNAMICRULES
          , KEEPDYNAMIC
          , REOPT
          , OPTHINT
          , IMMEDWRITE
          , FLAG
          , PATH
          , VALIDATE
          , SQLERROR
          , DEFER
       -- , CREATEDTS
       -- , ALTEREDTS
        FROM SSXX28Q0.DB2_BIND_PARMS
        WHERE RZ = 'RZ1' AND SSID = 'DBAF'
            and collid between 'AV05' and 'AV08'
            and pgm in ('AV0070 ',
                        'AV5560 ',
                        'YAVAAAN',
                        'YAVAAVL',
                        'YAVANAN',
                        'YAVBDAN',
                        'YAVBDVL',
                        'YAVBELE',
                        'YAVBVG ',
                        'YAVCBET',
                        'YAVCBST',
                        'YAVCOAN',
                        'YAVCOBO',
                        'YAVCPID',
                        'YAVCUAN',
                        'YAVDUAN',
                        'YAVERAN',
                        'YAVERBA',
                        'YAVERTR',
                        'YAVERVL',
                        'YAVFNAN',
                        'YAVFSL ',
                        'YAVGDW ',
                        'YAVGMP ',
                        'YAVGPD ',
                        'YAVMAT ',
                        'YAVMAVL',
                        'YAVOVVW',
                        'YAVPFX ',
                        'YAVPOS1',
                        'YAVSTA ',
                        'YAV0062',
                        'YAV0065',
                        'YAV0066',
                        'YAV0067',
                        'YAV0096',
                        'YAV0098',
                        'YAV0099',
                        'YAV0101',
                        'YAV0102',
                        'YAV0112',
                        'YAV0113',
                        'YAV0114',
                        'YAV0115',
                        'YAV0116',
                        'YAV0117',
                        'YAV0119',
                        'YAV0123',
                        'YAV0124',
                        'YAV0126')
    ;
select pgm, collid, qualifier, p.*
        FROM SSXX28Q0.DB2_BIND_PARMS p
        WHERE RZ = 'RZ1' AND SSID = 'DBAF'
        --  and collid between 'AV05' and 'AV08'
            and pgm in ('AV0070 ',
                        'AV5560 ',
                        'YAVAAAN',
                        'YAVAAVL',
                        'YAVANAN',
                        'YAVBDAN',
                        'YAVBDVL',
                        'YAVBELE',
                        'YAVBVG ',
                        'YAVCBET',
                        'YAVCBST',
                        'YAVCOAN',
                        'YAVCOBO',
                        'YAVCPID',
                        'YAVCUAN',
                        'YAVDUAN',
                        'YAVERAN',
                        'YAVERBA',
                        'YAVERTR',
                        'YAVERVL',
                        'YAVFNAN',
                        'YAVFSL ',
                        'YAVGDW ',
                        'YAVGMP ',
                        'YAVGPD ',
                        'YAVMAT ',
                        'YAVMAVL',
                        'YAVOVVW',
                        'YAVPFX ',
                        'YAVPOS1',
                        'YAVSTA ',
                        'YAV0062',
                        'YAV0065',
                        'YAV0066',
                        'YAV0067',
                        'YAV0096',
                        'YAV0098',
                        'YAV0099',
                        'YAV0101',
                        'YAV0102',
                        'YAV0112',
                        'YAV0113',
                        'YAV0114',
                        'YAV0115',
                        'YAV0116',
                        'YAV0117',
                        'YAV0119',
                        'YAV0123',
                        'YAV0124',
                        'YAV0126')
    order by pgm, collid, qualifier
    ;
   rollback
   ;