zOs/SQL/PROFCP
$*( copy rcm Profiles
uncomment and adapt necessary functions
Achtung: share Option muss U sein ||||||
11. 3.15 mit utilityProfile
$*)
call sqlConnect dp4g
$;
$>. fEdit('::v')
$<=[
$** $@%[utilityProf A540769 UP1 DBX UP1 $]
$** $@%[ruleSet DBX ALL DBX PCTFREE$]
$** $@%[globalChange A828386 DBTFDBOF DBX DBTFDBOF$]
$** $@%[globalChange DBX QTX2Y DBX QZ91S2T$]
$** $@%[anaProf DBX ALL DBX UP1 $]
$** $@%[anaProf DBX ALL DBX DROPSAVE $]
$** $@%[autoMap A390880 NI10063C DBX NI10063C$]
$** $@%[ruleSet A828386 DBX DBX ALL$]
$** change unloadTY=IBM in un&load||
$** change symbolics ||||
$** $@%[utilityModel DBX ???? DBX ??? $]
$** $@%[utilityModel DBX ALL DBX TSTTIM $]
$** $@%[utilityModel DBX ALL DBX TSTALL $]
$** $@%[utilityModel DBX ALL DBX BP $]
$** $@%[utilityModel DBX ALL DBX DROPSAVE $]
$** $@%[utilityModel DBX ALL DBX UI $]
$** $@%[utilityModel DBX ALL DBX UIPAR $]
$*( ----------------------------------------------------
select * from pti.PTMGB_APTABLE_0100;
select * from session.cp;
select * from pti.PTMGB_APTABLE_0100;
;
;
$@%[globalChange DBX ALLLALLL DBX DBOFDBOF$]
$@%[autoMap DBX, EMPTY, DBX, ALLLALLL$]
-- automap
select * from pti.PTMG9_MASK_0510 where name = 'DBXEQ'
;
select * from pti.PTMGA_LNAME_0200 where type = 'M' and
name = 'DBXEQ'
;
select * from pti.PTMG9_MASK_0510 where name = 'DBXEQ'
;
select * from pti.PTMGA_LNAME_0200 where type = 'M' and
name = 'DBXEQ'
;
-- globalChange
select * from pti.PTMG5_GLOBAL_0400 where name = 'WKP2A'
;
select * from pti.PTMGA_LNAME_0200
where type = 'G' and name = 'WKP2A'
;
select * from pti.PTMG5_GLOBAL_0400 where name = 'WKP2A'
;
select * from pti.PTMGA_LNAME_0200
where type = 'G' and name = 'WKP2A'
;
select * from pti.PTMG4_RULES_0300 where name = 'DBX' or creator = 'DBX'
;
$@%[ruleSet A540769 DBX DBX ALL$]
;
select * from pti.PTMG4_RULES_0300 where name = 'DBX' or creator = 'DBX'
;
;
select * from pti.PTMOD_UTLSYM_0401 where model_product_code = 'RCM'
and model_id='DBX' or model_creator='DBX'
;
select * from pti.PTMOD_UTLSYM_0401 where model_product_code = 'RCM'
and model_id='DBX' or model_creator='DBX'
--------------------------------------------------------
$*)
commit
$]
call sqlStmts
call sqlDisconnect
$@proc anaProf $@/anaProf/
parse arg , fCr fNm tCr tNm
say 'copy anaProf' fCr'.'fNm '-->' tCr'.'tNm
$@=[
declare global temporary table session.cp
as (select * from pti.PTMGB_APTABLE_0100) with no data
;
insert into session.cp
select * from pti.PTMGB_APTABLE_0100
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
update session.cp set creator = '$-[tCr$]', name = '$-[tNm$]'
;
delete from pti.PTMGB_APTABLE_0100
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMGB_APTABLE_0100
select * from session.cp
;
$]
$/anaProf/
$@proc autoMap $@/autoMap/
parse arg , fCr fNm tCr tNm
say 'copy automap' fCr'.'fNm '-->' tCr'.'tNm
$@=[
delete from pti.PTMG9_MASK_0510
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMG9_MASK_0510
select '$-[tCr$]' , '$-[tNm$]', node_type, node_seq, segment
from pti.PTMG9_MASK_0510
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
delete from pti.PTMGA_LNAME_0200 where type = 'M'
and creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMGA_LNAME_0200
select '$-[tCr$]' , '$-[tNm$]', type, sequence_field, version, data
from pti.PTMGA_LNAME_0200
where type = 'M'
and creator = '$-[fCr$]' and name = '$-[fNm$]'
;
$]
$/autoMap/
$@proc globalChange $@/globalChange/
parse arg , fCr fNm tCr tNm .
say 'copy globalChange' fCr'.'fNm '-->' tCr'.'tNm
$@=[
delete from pti.PTMG5_GLOBAL_0400
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMG5_GLOBAL_0400
select '$-[tCr$]' , '$-[tNm$]', node_type, segment
from pti.PTMG5_GLOBAL_0400
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
delete from pti.PTMGA_LNAME_0200 where type = 'G'
and creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMGA_LNAME_0200
select '$-[tCr$]' , '$-[tNm$]', type, sequence_field, version, data
from pti.PTMGA_LNAME_0200
where type = 'G'
and creator = '$-[fCr$]' and name = '$-[fNm$]'
;
$]
$/globalChange/
$@proc ruleSet $@/ruleSet/
parse arg , fCr fNm tCr tNm
say 'copy ruleSet' fCr'.'fNm '-->' tCr'.'tNm
$@=[
delete from pti.PTMG4_RULES_0300
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into pti.PTMG4_RULES_0300
select '$-[tNm$]', desc, '$-[tCr$]' , SHARE_OPT, ssid,
UPDT_USER, UPDT_DATE, UPDT_TIME, RULES
from pti.PTMG4_RULES_0300
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
$]
$/ruleSet/
$@proc utilityModel $@/utilityModel/
parse arg , fCr fNm tCr tNm
say 'copy ruleSet' fCr'.'fNm '-->' tCr'.'tNm
$@=[
delete from pti.PTMOD_UTLSYM_0401
where model_product_code = 'RCM'
and model_creator = '$-[tCr$]' and model_id = '$-[tNm$]'
;
insert into pti.PTMOD_UTLSYM_0401
select '$-[tNm$]', '$-[tCr$]' , model_product_code,
SEQUENCE_FIELD, Internal_type, data
from pti.PTMOD_UTLSYM_0401 where model_product_code = 'RCM'
and model_creator = '$-[fCr$]' and model_id = '$-[fNm$]'
;
$]
$/utilityModel/
$@proc $@/utilityProf/
parse arg , fCr fNm tCr tNm
say 'copy ruleSet' fCr'.'fNm '-->' tCr'.'tNm
$@=[
delete from PTI.PTMGB_UPTABLE_0100
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into PTI.PTMGB_UPTABLE_0100
select '$-[tNm$]' -- NAME
, '$-[tCr$]' -- CREATOR
, 'U' -- PROFILETYPE
, STATS
, CHECKDATA
, IMAGECOPY
, BIND
, REORG
, RECOVERINDEX
, MODELNAME
, MODELCREATOR
, MODELUPDATE
, ALTEREDTS
, PARALLELOPTS
from PTI.PTMGB_UPTABLE_0100
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
delete from PTI.PTMGB_SPTABLE_0100
where creator = '$-[tCr$]' and name = '$-[tNm$]'
;
insert into PTI.PTMGB_SPTABLE_0100
select '$-[tNm$]' -- NAME
, '$-[tCr$]' -- CREATOR
, 'U' -- PROFILETYPE
, OBJECT
, ATTRIBUTE
, BCOPY
, BUNLD
, AUNLD
, AREORG
, ALOAD
, ACHECK
, AREBILD
, ARUNSTATS
, ACOPY
from PTI.PTMGB_SPTABLE_0100
where creator = '$-[fCr$]' and name = '$-[fNm$]'
;
$]
$/utilityProf/
$#out 20150317 13:52:34