zOs/JCL/KDLOAD
//A540769L JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,A540769L.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE INP
DSN('TSS.SKA.KD03A1P.&SN..P00000.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD301A1"
WHEN(00001:00002) = X'0021'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD302A1"
WHEN(00001:00002) = X'0022'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
, "RULEAPP_ID"
POSITION( 00801:00804) INTEGER
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD303A1"
WHEN(00001:00002) = X'0023'
( ID
POSITION( 00003:00006) INTEGER
, "RULEAPP_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD304A1"
WHEN(00001:00002) = X'0024'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD311A1"
WHEN(00001:00002) = X'002A'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD312A1"
WHEN(00001:00002) = X'002B'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
, "RULEAPP_ID"
POSITION( 00801:00804) INTEGER
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD313A1"
WHEN(00001:00002) = X'002C'
( ID
POSITION( 00003:00006) INTEGER
, "RULEAPP_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD314A1"
WHEN(00001:00002) = X'002D'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD331A1"
WHEN(00001:00002) = X'0033'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "PROPERTY"
POSITION( 00090:00191) VARCHAR
, "VALUE"
POSITION( 00192:00443) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD332A1"
WHEN(00001:00002) = X'0034'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "RULE_CONTEXT"
POSITION( 00090:00191) VARCHAR
, "CHANGED_ENTITY_UUID"
POSITION( 00192:00233) VARCHAR
, "CHANGED_ENTITY_NAME"
POSITION( 00234:00335) VARCHAR
, "ACTIVITY"
POSITION( 00336:00387) VARCHAR
, "DETAILS"
POSITION( 00389:00640) VARCHAR
NULLIF(00388)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD333A1"
WHEN(00001:00002) = X'0035'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00082:00090) VARCHAR
NULLIF(00081)=X'FF'
, "NAME"
POSITION( 00091:00172) VARCHAR
, "VALUE"
POSITION( 00173:00424) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD334A1"
WHEN(00001:00002) = X'0036'
( "ACTIVITY_LOG"
POSITION( 00003:00044) VARCHAR
, "ACTIVITY_LOG_DETAIL"
POSITION( 00045:00086) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD335A1"
WHEN(00001:00002) = X'0037'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "RULE_CONTEXT"
POSITION( 00090:00141) VARCHAR
, "RULEAPP_NAME"
POSITION( 00142:00393) VARCHAR
, "RULEAPP_VERSION_MAJOR"
POSITION( 00394:00403) DECIMAL
, "RULEAPP_VERSION_MINOR"
POSITION( 00404:00413) DECIMAL
, "BASELINE"
POSITION( 00414:00515) VARCHAR
, "VALID_FROM"
POSITION( 00517:00542) TIMESTAMP EXTERNAL(026)
NULLIF(00516)=X'FF'
, "VALID_TO"
POSITION( 00544:00569) TIMESTAMP EXTERNAL(026)
NULLIF(00543)=X'FF'
, "JRULES_VERSION"
POSITION( 00570:00581) VARCHAR
, "TARGET"
POSITION( 00582:00593) VARCHAR
, "TRACE_ENABLED"
POSITION( 00594:00594) CHAR(00001)
, "KPI_ENABLED"
POSITION( 00595:00595) CHAR(00001)
, "STATUS"
POSITION( 00596:00647) VARCHAR
, "ACCESS_LOCK"
POSITION( 00649:00680) VARCHAR
NULLIF(00648)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD336A1"
WHEN(00001:00002) = X'003B'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "USER_PID"
POSITION( 00090:00098) VARCHAR
, "RULE_CONTEXT"
POSITION( 00099:00150) VARCHAR
, "BRINFRA_ROLE"
POSITION( 00151:00202) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD339A1"
WHEN(00001:00002) = X'0089'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "SERVER_NAME"
POSITION( 00090:00141) VARCHAR
, "CLIENT_NAME"
POSITION( 00142:00193) VARCHAR
, "COMPONENT_ID"
POSITION( 00194:00445) VARCHAR
, "COMPONENT_PLATFORM"
POSITION( 00446:00457) VARCHAR
, "COMPONENT_STAGE"
POSITION( 00458:00469) VARCHAR
, "COMPONENT_TYPE"
POSITION( 00470:00481) VARCHAR
, "RULE_CONTEXT"
POSITION( 00482:00533) VARCHAR
, "RES_EXECUTION_MODE"
POSITION( 00534:00545) VARCHAR
, "RES_PERSISTENCE_TYPE"
POSITION( 00546:00557) VARCHAR
, "RES_DATASOURCE"
POSITION( 00559:00810) VARCHAR
NULLIF(00558)=X'FF'
, "RES_EXECUTION_ENV"
POSITION( 00811:00822) VARCHAR
, "COMPATIBLE_RULEAPPS"
POSITION( 00824:01075) VARCHAR
NULLIF(00823)=X'FF'
, "PRELOAD_RULEAPPS"
POSITION( 01077:01328) VARCHAR
NULLIF(01076)=X'FF'
, "CLIENT_STARTED_AT"
POSITION( 01329:01354) TIMESTAMP EXTERNAL(026)
, "LAST_QUERY_TIMESTAMP"
POSITION( 01355:01380) TIMESTAMP EXTERNAL(026)
, "DEAD_COUNT"
POSITION( 01381:01384) DECIMAL
)