zOs/SQL/CMNBIND

------- neue table ----------------------------------------------------
select * from oa1p.bind_parameters
    where APPL LIKE 'PC%'
;
X
Xnsert into oa1p.BIND_parameters
      ( APPL
      , PGM
      , COLLID
      , INSTALLDATE
      , OWNER
      , QUALIFIER
      , ISOLATION
      , EXPLAIN
      , CURRENTDATA
      , RELEASE
      , DBPROTOCOL
      , DEGREE
      , DYNAMICRULES
      , KEEPDYNAMIC
      , REOPT
      , OPTHINT
      , IMMEDWRITE
      , FLAG
      , PATH
      , VALIDATE
      , SQLERROR
      , SQLRULES
      , DEFER
      , ENCODING
      , ROUNDING
     -- CREATEDTS
     -- ALTEREDTS
     -- ALTEREDBY
      )
SELECT  'IVN0' APPL
      , 'YPC0650'  PGM
      , COLLID
      , '08.02.2008'      INSTALLDATE
      , OWNER
      , QUALIFIER
      , ISOLATION
      , EXPLAIN
      , CURRENTDATA
      , RELEASE
      , DBPROTOCOL
      , DEGREE
      , DYNAMICRULES
      , KEEPDYNAMIC
      , REOPT
      , OPTHINT
      , IMMEDWRITE
      , FLAG
      , PATH
      , VALIDATE
      , SQLERROR
      , SQLRULES
      , DEFER
      , ENCODING
      , ROUNDING
     -- CREATEDTS
     -- ALTEREDTS
     -- ALTEREDBY
  FROM oa1p.bind_parameters
  WHERE
      pgm =  'YPC0650'
;
select * from oa1p.bind_parameters
    where pgm =  'YPC0580'
;
commit;
x------ alte table ----------------------------------------------------

SELECT  APPL
      , RZ
      , PGM
      , SSID
      , COLLID
      , LOCATION
      , OWNER
      , QUALIFIER
      , p.*
    FROM SSXX28Q0.DB2_BIND_PARMS p
    WHERE
        -- RZ = 'RZ1' AND SSID = 'DBAF'
        -- and collid between 'AV05' and 'AV08'
        pgm =  'YPC0610' --and pgm >= 'YBER02' and pgm <= 'YBER03'
    order by rz, 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 APPL
      , RZ
      , 'YPC0650'   pgm
      , SSID
      , COLLID
      , LOCATION
      , OWNER
      , QUALIFIER    -- 'OA1P' || SUBSTR(QUALIFIER, 5) QUALIFIER
      , 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
        pgm =  'YPC0610'
;
SELECT  APPL
      , RZ
      , PGM
      , SSID
      , COLLID
      , LOCATION
      , OWNER
      , QUALIFIER
      , p.*
    FROM SSXX28Q0.DB2_BIND_PARMS p
    WHERE
        -- RZ = 'RZ1' AND SSID = 'DBAF'
        -- and collid between 'AV05' and 'AV08'
        pgm = 'YPC0650'
    order by rz, ssid, pgm, collid
;
commit;