zOs/SKELS/TO01LOGE
//F540769A JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769A.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0MYLT
DSN('SAVR24.TO01.S24.DDAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MYLT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODD"."AKTIVPASSIV"
WHEN(00001:00002) = X'0122'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0MYTA
DSN('SAVR24.TO01.S24.DDALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MYTA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."ALMDATASET"
WHEN(00001:00002) = X'0121'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0MY2F
DSN('SAVR24.TO01.S24.DDASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MY2F RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALM_ASOF"
WHEN(00001:00002) = X'0120'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0MZAW
DSN('SAVR24.TO01.S24.DDAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZAW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'011F'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0MZHT
DSN('SAVR24.TO01.S24.DDBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZHT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."BENUTZER"
WHEN(00001:00002) = X'011E'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0MZS7
DSN('SAVR24.TO01.S24.DDBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZS7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16487
INTO TABLE "TODD"."BILANZRUBRIK"
WHEN(00001:00002) = X'011D'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0MZZ7
DSN('SAVR24.TO01.S24.DDBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZZ7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TODD"."BRANCHE"
WHEN(00001:00002) = X'011C'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0MZ7I
DSN('SAVR24.TO01.S24.DDBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZ7I RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."BSKUNDENART"
WHEN(00001:00002) = X'011B'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0M0G0
DSN('SAVR24.TO01.S24.DDBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0G0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 66
INTO TABLE "TODD"."BUSINESSUNIT"
WHEN(00001:00002) = X'011A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0M0OA
DSN('SAVR24.TO01.S24.DDDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0OA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 268
INTO TABLE "TODD"."DOMIZIL"
WHEN(00001:00002) = X'0119'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0M0VJ
DSN('SAVR24.TO01.S24.DDDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0VJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."DATASETART"
WHEN(00001:00002) = X'0118'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0M03H
DSN('SAVR24.TO01.S24.DDDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M03H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."DATASETTYP"
WHEN(00001:00002) = X'0117'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0M1JT
DSN('SAVR24.TO01.S24.DDFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M1JT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1705
INTO TABLE "TODD"."FEHLERINPUT"
WHEN(00001:00002) = X'0116'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0M5DO
DSN('SAVR24.TO01.S24.DDFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5DO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 32109
INTO TABLE "TODD"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'0115'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0M5K2
DSN('SAVR24.TO01.S24.DDFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5K2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TODD"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'0114'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0M5WH
DSN('SAVR24.TO01.S24.DDHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5WH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 30120
INTO TABLE "TODD"."HAUPTBUCH"
WHEN(00001:00002) = X'0113'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0M53Y
DSN('SAVR24.TO01.S24.DDHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M53Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TODD"."HERKUNFT"
WHEN(00001:00002) = X'0112'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0M6BP
DSN('SAVR24.TO01.S24.DDKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M6BP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TODD"."KUNDENART"
WHEN(00001:00002) = X'0111'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0M6IZ
DSN('SAVR24.TO01.S24.DDKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M6IZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 134
INTO TABLE "TODD"."KUNDENSEGMENT"
WHEN(00001:00002) = X'0110'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0Q6ID
DSN('SAVR24.TO01.S24.DDKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6ID RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 710260
INTO TABLE "TODD"."ALMKONTRAKTSTAMM"
WHEN(00001:00002) = X'010F'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "BSTRANSSATZ"
POSITION( 00203:00210) FLOAT(53)
NULLIF(00202)=X'FF'
, "BSPRODUKT"
POSITION( 00212:00215) CHAR(00004)
NULLIF(00211)=X'FF'
, "BSRUBRIK"
POSITION( 00217:00232) CHAR(00016)
NULLIF(00216)=X'FF'
, "BSKUAG"
POSITION( 00234:00234) CHAR(00001)
NULLIF(00233)=X'FF'
, "RISIKOKLASSE"
POSITION( 00236:00238) CHAR(00003)
NULLIF(00235)=X'FF'
, "HB_ALT"
POSITION( 00240:00246) CHAR(00007)
NULLIF(00239)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00248:00257) DATE EXTERNAL
NULLIF(00247)=X'FF'
)
TEMPLATE BDI0Q6PS
DSN('SAVR24.TO01.S24.DDKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6PS RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'010E'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0Q6XJ
DSN('SAVR24.TO01.S24.DDKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6XJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TODD"."KONTRAKTTYP"
WHEN(00001:00002) = X'010D'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0Q7OY
DSN('SAVR24.TO01.S24.DDKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q7OY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 142629
INTO TABLE "TODD"."KUNDE"
WHEN(00001:00002) = X'010C'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI0Q7Y7
DSN('SAVR24.TO01.S24.DDLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q7Y7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TODD"."LEGALENTITY"
WHEN(00001:00002) = X'010B'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0Q76H
DSN('SAVR24.TO01.S24.DDNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q76H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."NEUALT"
WHEN(00001:00002) = X'010A'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0Q8EZ
DSN('SAVR24.TO01.S24.DDOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8EZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."OPTIONSART"
WHEN(00001:00002) = X'0109'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0Q8L3
DSN('SAVR24.TO01.S24.DDOPTKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8L3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALMOPTIONSKONTRAKT"
WHEN(00001:00002) = X'0108'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "HERKUNFT"
POSITION( 00007:00014) CHAR(00008)
, "DATASET"
POSITION( 00015:00018) INTEGER
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "OPTIONSART"
POSITION( 00041:00041) CHAR(00001)
, "VERFALLDATUM"
POSITION( 00042:00051) DATE EXTERNAL
, "AUSUEBUNGSDATUM"
POSITION( 00053:00062) DATE EXTERNAL
NULLIF(00052)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "PUT_CALL"
POSITION( 00072:00072) CHAR(00001)
, "AUSUEBUNGSTYP"
POSITION( 00073:00073) CHAR(00001)
, "STRIKE"
POSITION( 00075:00082) FLOAT(53)
NULLIF(00074)=X'FF'
)
TEMPLATE BDI0Q8TP
DSN('SAVR24.TO01.S24.DDPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8TP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."PROFITCENTER"
WHEN(00001:00002) = X'0107'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0Q82O
DSN('SAVR24.TO01.S24.DDPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q82O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1551
INTO TABLE "TODD"."PRODUKT"
WHEN(00001:00002) = X'0106'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
, "LANGTEXTE"
POSITION( 00083:00122) CHAR(00040)
NULLIF(00082)=X'FF'
, "LANGTEXTF"
POSITION( 00124:00163) CHAR(00040)
NULLIF(00123)=X'FF'
, "LANGTEXTI"
POSITION( 00165:00204) CHAR(00040)
NULLIF(00164)=X'FF'
)
TEMPLATE BDI0RABO
DSN('SAVR24.TO01.S24.DDPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RABO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."PUTCALL"
WHEN(00001:00002) = X'0105'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
//F540769B JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769B.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0RAKE
DSN('SAVR24.TO01.S24.DDREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RAKE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 13
INTO TABLE "TODD"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'0104'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0RATI
DSN('SAVR24.TO01.S24.DDRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RATI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TODD"."RRARBK"
WHEN(00001:00002) = X'0103'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0RAZS
DSN('SAVR24.TO01.S24.DDVALOKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RAZS RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALMVALORKONTRAKT"
WHEN(00001:00002) = X'0102'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "VALORENNUMMER"
POSITION( 00041:00050) CHAR(00010)
, "VALORHERKUNFT"
POSITION( 00051:00054) INTEGER
, "MARKTPREIS"
POSITION( 00055:00062) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0RA7C
DSN('SAVR24.TO01.S24.DDVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RA7C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."VALOR"
WHEN(00001:00002) = X'0101'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RBGC
DSN('SAVR24.TO01.S24.DDVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBGC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1
INTO TABLE "TODD"."VALORHERKUNFT"
WHEN(00001:00002) = X'0100'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RBO4
DSN('SAVR24.TO01.S24.DDWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBO4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 203
INTO TABLE "TODD"."WAEHRUNG"
WHEN(00001:00002) = X'00FF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RBWN
DSN('SAVR24.TO01.S24.DDZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBWN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."ZINSFREQUENZ"
WHEN(00001:00002) = X'00FE'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RB45
DSN('SAVR24.TO01.S24.DDZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RB45 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TODD"."ZINSUSANZ"
WHEN(00001:00002) = X'00FD'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RCI6
DSN('SAVR24.TO01.S24.DDZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCI6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 193422
INTO TABLE "TODD"."ZINSSATZ"
WHEN(00001:00002) = X'00FC'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "TYP"
POSITION( 00007:00010) CHAR(00004)
, "GULTIGAM"
POSITION( 00011:00020) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00021:00024) CHAR(00004)
, "USANZ"
POSITION( 00025:00028) INTEGER
, "ZINSSATZ"
POSITION( 00029:00036) FLOAT(53)
)
TEMPLATE BDI0RCQ8
DSN('SAVR24.TO01.S24.DDZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCQ8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."ZINSINDEX"
WHEN(00001:00002) = X'00FB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RCZH
DSN('SAVR24.TO01.S24.DDZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCZH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."ZINSMODUS"
WHEN(00001:00002) = X'00FA'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RDY0
DSN('SAVR24.TO01.S24.DMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDY0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODM"."AKTIVPASSIV"
WHEN(00001:00002) = X'00F9'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RD63
DSN('SAVR24.TO01.S24.DMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RD63 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 192
INTO TABLE "TODM"."ALMDATASET"
WHEN(00001:00002) = X'00F8'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0REGX
DSN('SAVR24.TO01.S24.DMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0REGX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALM_ASOF"
WHEN(00001:00002) = X'00F7'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0REPY
DSN('SAVR24.TO01.S24.DMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0REPY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'00F6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RE0T
DSN('SAVR24.TO01.S24.DMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RE0T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."BENUTZER"
WHEN(00001:00002) = X'00F5'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RE7T
DSN('SAVR24.TO01.S24.DMBFINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RE7T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BFINDEX"
WHEN(00001:00002) = X'00F4'
( "INDEX"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "STICHTAG"
POSITION( 00011:00020) DATE EXTERNAL
, "ME"
POSITION( 00021:00028) CHAR(00008)
, "VERARBEITUNG"
POSITION( 00029:00038) DATE EXTERNAL
, "URSPRUNG"
POSITION( 00040:00089) CHAR(00050)
NULLIF(00039)=X'FF'
)
TEMPLATE BDI0RFIK
DSN('SAVR24.TO01.S24.DMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFIK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5592
INTO TABLE "TODM"."BILANZKURS"
WHEN(00001:00002) = X'00F3'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI0RFQK
DSN('SAVR24.TO01.S24.DMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFQK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZRUBRIK"
WHEN(00001:00002) = X'00F2'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0RFXJ
DSN('SAVR24.TO01.S24.DMBLZCD.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFXJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZCODE"
WHEN(00001:00002) = X'00F1'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
)
TEMPLATE BDI0RF4E
DSN('SAVR24.TO01.S24.DMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RF4E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TODM"."BRANCHE"
WHEN(00001:00002) = X'00F0'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0RGH8
DSN('SAVR24.TO01.S24.DMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGH8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."BSKUNDENART"
WHEN(00001:00002) = X'00EF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RGQN
DSN('SAVR24.TO01.S24.DMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGQN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 66
INTO TABLE "TODM"."BUSINESSUNIT"
WHEN(00001:00002) = X'00EE'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0RGX6
DSN('SAVR24.TO01.S24.DMDMZLK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGX6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DOMIZILKLASSE"
WHEN(00001:00002) = X'00ED'
( "DOMIZIL"
POSITION( 00003:00017) CHAR(00015)
, "GUELTIG_VON"
POSITION( 00018:00027) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00028:00037) DATE EXTERNAL
)
TEMPLATE BDI0RG45
DSN('SAVR24.TO01.S24.DMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RG45 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 271
INTO TABLE "TODM"."DOMIZIL"
WHEN(00001:00002) = X'00EC'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0RHGZ
DSN('SAVR24.TO01.S24.DMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHGZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."DATASETART"
WHEN(00001:00002) = X'00EB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RHQ0
DSN('SAVR24.TO01.S24.DMDSBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHQ0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DSCHNITTSBILANZ"
WHEN(00001:00002) = X'00EA'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "ZINS_KOMM"
POSITION( 00045:00048) CHAR(00004)
, "DOMIZIL"
POSITION( 00049:00063) CHAR(00015)
, "TEXTKLASSE"
POSITION( 00065:00085) CHAR(00021)
NULLIF(00064)=X'FF'
, "D_KAP_UNV_KW"
POSITION( 00087:00094) FLOAT(53)
NULLIF(00086)=X'FF'
, "D_KAP_VER_KW"
POSITION( 00096:00103) FLOAT(53)
NULLIF(00095)=X'FF'
, "BET_KS_KW"
POSITION( 00105:00112) FLOAT(53)
NULLIF(00104)=X'FF'
, "BET_RS_KW"
POSITION( 00114:00121) FLOAT(53)
NULLIF(00113)=X'FF'
, "D_KAP_VER_G"
POSITION( 00123:00130) FLOAT(53)
NULLIF(00122)=X'FF'
, "D_KAP_UNV_G"
POSITION( 00132:00139) FLOAT(53)
NULLIF(00131)=X'FF'
, "BET_KS_G"
POSITION( 00141:00148) FLOAT(53)
NULLIF(00140)=X'FF'
, "BET_RS_G"
POSITION( 00150:00157) FLOAT(53)
NULLIF(00149)=X'FF'
)
TEMPLATE BDI0RHYV
DSN('SAVR24.TO01.S24.DMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHYV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."DATASETTYP"
WHEN(00001:00002) = X'00E9'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RH7Y
DSN('SAVR24.TO01.S24.DMDTBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RH7Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DETAILBILANZ"
WHEN(00001:00002) = X'00E8'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "S_KWA"
POSITION( 00046:00053) FLOAT(53)
NULLIF(00045)=X'FF'
, "H_KWA"
POSITION( 00055:00062) FLOAT(53)
NULLIF(00054)=X'FF'
, "SALDO_KWA"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "S_SFR"
POSITION( 00073:00080) FLOAT(53)
NULLIF(00072)=X'FF'
, "H_SFR"
POSITION( 00082:00089) FLOAT(53)
NULLIF(00081)=X'FF'
, "SALDO_SFR"
POSITION( 00091:00098) FLOAT(53)
NULLIF(00090)=X'FF'
, "ANZAHL"
POSITION( 00100:00103) INTEGER
NULLIF(00099)=X'FF'
)
TEMPLATE BDI0RIIK
DSN('SAVR24.TO01.S24.DMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RIIK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1455
INTO TABLE "TODM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'00E7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
//F540769C JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769C.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0RIQM
DSN('SAVR24.TO01.S24.DMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RIQM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."FEHLERINPUT"
WHEN(00001:00002) = X'00E6'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0RI8R
DSN('SAVR24.TO01.S24.DMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RI8R RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 87847
INTO TABLE "TODM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'00E5'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0RJJE
DSN('SAVR24.TO01.S24.DMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJJE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'00E4'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0RJUE
DSN('SAVR24.TO01.S24.DMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJUE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TODM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'00E3'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0RJ7C
DSN('SAVR24.TO01.S24.DMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJ7C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."HAUPTBUCH"
WHEN(00001:00002) = X'00E2'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0RKIZ
DSN('SAVR24.TO01.S24.DMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKIZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TODM"."HERKUNFT"
WHEN(00001:00002) = X'00E1'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0RKQG
DSN('SAVR24.TO01.S24.DMHPTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKQG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 42
INTO TABLE "TODM"."HAUPTTITEL"
WHEN(00001:00002) = X'00E0'
( "ID"
POSITION( 00003:00004) CHAR(00002)
, "BEZEICHNUNG"
POSITION( 00005:00054) CHAR(00050)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0RKWI
DSN('SAVR24.TO01.S24.DMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKWI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TODM"."KUNDENART"
WHEN(00001:00002) = X'00DF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0RK3S
DSN('SAVR24.TO01.S24.DMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RK3S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 134
INTO TABLE "TODM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'00DE'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0RLCK
DSN('SAVR24.TO01.S24.DMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RLCK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'00DD'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI0RVKW
DSN('SAVR24.TO01.S24.DMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RVKW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 467361
INTO TABLE "TODM"."ALMKONTRHIST"
WHEN(00001:00002) = X'00DC'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI0RVTI
DSN('SAVR24.TO01.S24.DMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RVTI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'00DB'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0RV1V
DSN('SAVR24.TO01.S24.DMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RV1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TODM"."KONTRAKTTYP"
WHEN(00001:00002) = X'00DA'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RWTN
DSN('SAVR24.TO01.S24.DMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RWTN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."KUNDE"
WHEN(00001:00002) = X'00D9'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI0RW0N
DSN('SAVR24.TO01.S24.DMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RW0N RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TODM"."LEGALENTITY"
WHEN(00001:00002) = X'00D8'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0RW73
DSN('SAVR24.TO01.S24.DMMARGE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RW73 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."MARGE"
WHEN(00001:00002) = X'00D7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "WAEHRUNG"
POSITION( 00007:00010) CHAR(00004)
, "PRODUKT"
POSITION( 00011:00014) CHAR(00004)
, "RISIKOKLASSE"
POSITION( 00015:00017) CHAR(00003)
, "MARGE"
POSITION( 00018:00025) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00026:00035) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00036:00045) DATE EXTERNAL
)
TEMPLATE BDI0RXGY
DSN('SAVR24.TO01.S24.DMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXGY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."NEUALT"
WHEN(00001:00002) = X'00D6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RXOD
DSN('SAVR24.TO01.S24.DMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXOD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."OPTIONSART"
WHEN(00001:00002) = X'00D5'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RXV0
DSN('SAVR24.TO01.S24.DMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXV0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."PROFITCENTER"
WHEN(00001:00002) = X'00D4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RX2H
DSN('SAVR24.TO01.S24.DMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RX2H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1552
INTO TABLE "TODM"."PRODUKT"
WHEN(00001:00002) = X'0178'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "KURZTEXT"
POSITION( 00011:00020) CHAR(00010)
, "LANGTEXT"
POSITION( 00021:00060) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00061:00070) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00071:00080) DATE EXTERNAL
, "ISRRARELEVANT"
POSITION( 00082:00082) CHAR(00001)
NULLIF(00081)=X'FF'
)
TEMPLATE BDI0RYBV
DSN('SAVR24.TO01.S24.DMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYBV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."PUTCALL"
WHEN(00001:00002) = X'00D2'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RYJJ
DSN('SAVR24.TO01.S24.DMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYJJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 78
INTO TABLE "TODM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'00D1'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0RYQK
DSN('SAVR24.TO01.S24.DMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYQK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TODM"."RRARBK"
WHEN(00001:00002) = X'00D0'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0RYYG
DSN('SAVR24.TO01.S24.DMTXTK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYYG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODM"."TEXTKLASSE"
WHEN(00001:00002) = X'00CF'
( "TEXTKLASSE"
POSITION( 00003:00023) CHAR(00021)
, "GUELTIG_VON"
POSITION( 00024:00033) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00034:00043) DATE EXTERNAL
)
TEMPLATE BDI0RY5S
DSN('SAVR24.TO01.S24.DMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RY5S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."VALOR"
WHEN(00001:00002) = X'00CE'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RZD0
DSN('SAVR24.TO01.S24.DMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZD0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."VALORHERKUNFT"
WHEN(00001:00002) = X'00CD'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZKP
DSN('SAVR24.TO01.S24.DMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZKP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 205
INTO TABLE "TODM"."WAEHRUNG"
WHEN(00001:00002) = X'00CC'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZRO
DSN('SAVR24.TO01.S24.DMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZRO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'00CB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZ1V
DSN('SAVR24.TO01.S24.DMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZ1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TODM"."ZINSUSANZ"
WHEN(00001:00002) = X'00CA'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R0AA
DSN('SAVR24.TO01.S24.DMZNSKM.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0AA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."ZINS_KOMM"
WHEN(00001:00002) = X'00C9'
( "ZINS_KOMM"
POSITION( 00003:00006) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00007:00016) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00017:00026) DATE EXTERNAL
)
//F540769D JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769D.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0R0H6
DSN('SAVR24.TO01.S24.DMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0H6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ZINSSATZ"
WHEN(00001:00002) = X'0177'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI0R0QA
DSN('SAVR24.TO01.S24.DMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0QA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."ZINSINDEX"
WHEN(00001:00002) = X'00C7'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R0Y4
DSN('SAVR24.TO01.S24.DMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0Y4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."ZINSMODUS"
WHEN(00001:00002) = X'00C6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RC8O
DSN('SAVR24.TO01.S24.DM1UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RC8O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 242
INTO TABLE "TODM"."ERSTUNTERTITEL"
WHEN(00001:00002) = X'00C5'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00055) CHAR(00050)
, "HT"
POSITION( 00056:00057) CHAR(00002)
, "GUELTIG_VON"
POSITION( 00058:00067) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00068:00077) DATE EXTERNAL
)
TEMPLATE BDI0RDIN
DSN('SAVR24.TO01.S24.DM2UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDIN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 440
INTO TABLE "TODM"."ZWEITUNTERTITEL"
WHEN(00001:00002) = X'00C4'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00056) CHAR(00050)
, "UT1"
POSITION( 00057:00059) CHAR(00003)
, "GUELTIG_VON"
POSITION( 00060:00069) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00070:00079) DATE EXTERNAL
)
TEMPLATE BDI0RDRA
DSN('SAVR24.TO01.S24.DM3UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDRA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 776
INTO TABLE "TODM"."DRITTUNTERTITEL"
WHEN(00001:00002) = X'00C3'
( "ID"
POSITION( 00003:00008) CHAR(00006)
, "BEZEICHNUNG"
POSITION( 00009:00058) CHAR(00050)
, "UT2"
POSITION( 00059:00062) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0R08F
DSN('SAVR24.TO01.S24.EXEPTION.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R08F RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZCODE_E"
WHEN(00001:00002) = X'0515'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
, "RID"
POSITION( 00048:00052) CHAR(00005)
NULLIF(00047)=X'FF'
, "TS"
POSITION( 00053:00078) TIMESTAMP EXTERNAL
)
INTO TABLE "TODM"."KUNDE_E"
WHEN(00001:00002) = X'0516'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
, "RID"
POSITION( 00060:00064) CHAR(00005)
NULLIF(00059)=X'FF'
, "TS"
POSITION( 00065:00090) TIMESTAMP EXTERNAL
)
INTO TABLE "TODM"."MARGE_E"
WHEN(00001:00002) = X'0517'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "WAEHRUNG"
POSITION( 00007:00010) CHAR(00004)
, "PRODUKT"
POSITION( 00011:00014) CHAR(00004)
, "RISIKOKLASSE"
POSITION( 00015:00017) CHAR(00003)
, "MARGE"
POSITION( 00018:00025) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00026:00035) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00036:00045) DATE EXTERNAL
, "RID"
POSITION( 00047:00051) CHAR(00005)
NULLIF(00046)=X'FF'
, "TS"
POSITION( 00052:00077) TIMESTAMP EXTERNAL
)
TEMPLATE BDI0R1GZ
DSN('SAVR24.TO01.S24.PDAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1GZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPD"."AKTIVPASSIV"
WHEN(00001:00002) = X'032A'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R1MU
DSN('SAVR24.TO01.S24.PDALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1MU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."ALMDATASET"
WHEN(00001:00002) = X'0329'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0R1T7
DSN('SAVR24.TO01.S24.PDASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1T7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALM_ASOF"
WHEN(00001:00002) = X'0328'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0R11K
DSN('SAVR24.TO01.S24.PDAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R11K RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'0327'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0R181
DSN('SAVR24.TO01.S24.PDBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R181 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPD"."BENUTZER"
WHEN(00001:00002) = X'0326'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0R2GM
DSN('SAVR24.TO01.S24.PDBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2GM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."BILANZRUBRIK"
WHEN(00001:00002) = X'0325'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0R2P2
DSN('SAVR24.TO01.S24.PDBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2P2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOPD"."BRANCHE"
WHEN(00001:00002) = X'0324'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0R2YY
DSN('SAVR24.TO01.S24.PDBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2YY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."BSKUNDENART"
WHEN(00001:00002) = X'0323'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R27D
DSN('SAVR24.TO01.S24.PDBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R27D RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 69
INTO TABLE "TOPD"."BUSINESSUNIT"
WHEN(00001:00002) = X'0322'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0R3GG
DSN('SAVR24.TO01.S24.PDDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R3GG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 275
INTO TABLE "TOPD"."DOMIZIL"
WHEN(00001:00002) = X'0321'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0R3PI
DSN('SAVR24.TO01.S24.PDDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R3PI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."DATASETART"
WHEN(00001:00002) = X'0320'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R34T
DSN('SAVR24.TO01.S24.PDDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R34T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."DATASETTYP"
WHEN(00001:00002) = X'031F'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0R81A
DSN('SAVR24.TO01.S24.PDFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R81A RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2586
INTO TABLE "TOPD"."FEHLERINPUT"
WHEN(00001:00002) = X'031E'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0R87L
DSN('SAVR24.TO01.S24.PDFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R87L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'031D'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0SAGU
DSN('SAVR24.TO01.S24.PDFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAGU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOPD"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'031C'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0SAMI
DSN('SAVR24.TO01.S24.PDHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAMI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."HAUPTBUCH"
WHEN(00001:00002) = X'031B'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0SAU8
DSN('SAVR24.TO01.S24.PDHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAU8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOPD"."HERKUNFT"
WHEN(00001:00002) = X'031A'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0SA3X
DSN('SAVR24.TO01.S24.PDKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SA3X RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TOPD"."KUNDENART"
WHEN(00001:00002) = X'0319'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0SBD0
DSN('SAVR24.TO01.S24.PDKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBD0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 136
INTO TABLE "TOPD"."KUNDENSEGMENT"
WHEN(00001:00002) = X'0318'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0SBMY
DSN('SAVR24.TO01.S24.PDKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBMY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMKONTRAKTSTAMM"
WHEN(00001:00002) = X'0317'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "BSTRANSSATZ"
POSITION( 00203:00210) FLOAT(53)
NULLIF(00202)=X'FF'
, "BSPRODUKT"
POSITION( 00212:00215) CHAR(00004)
NULLIF(00211)=X'FF'
, "BSRUBRIK"
POSITION( 00217:00232) CHAR(00016)
NULLIF(00216)=X'FF'
, "BSKUAG"
POSITION( 00234:00234) CHAR(00001)
NULLIF(00233)=X'FF'
, "RISIKOKLASSE"
POSITION( 00236:00238) CHAR(00003)
NULLIF(00235)=X'FF'
, "HB_ALT"
POSITION( 00240:00246) CHAR(00007)
NULLIF(00239)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00248:00257) DATE EXTERNAL
NULLIF(00247)=X'FF'
)
TEMPLATE BDI0SBUY
DSN('SAVR24.TO01.S24.PDKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBUY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'0316'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0SB2S
DSN('SAVR24.TO01.S24.PDKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SB2S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOPD"."KONTRAKTTYP"
WHEN(00001:00002) = X'0315'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SCCG
DSN('SAVR24.TO01.S24.PDKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCCG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."KUNDE"
WHEN(00001:00002) = X'0314'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
//F540769E JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769E.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0SCLO
DSN('SAVR24.TO01.S24.PDLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCLO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOPD"."LEGALENTITY"
WHEN(00001:00002) = X'0313'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0SCUM
DSN('SAVR24.TO01.S24.PDNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCUM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."NEUALT"
WHEN(00001:00002) = X'0312'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SC1V
DSN('SAVR24.TO01.S24.PDOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SC1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."OPTIONSART"
WHEN(00001:00002) = X'0311'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SDA5
DSN('SAVR24.TO01.S24.PDOPTKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDA5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMOPTIONSKONTRAKT"
WHEN(00001:00002) = X'0310'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "HERKUNFT"
POSITION( 00007:00014) CHAR(00008)
, "DATASET"
POSITION( 00015:00018) INTEGER
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "OPTIONSART"
POSITION( 00041:00041) CHAR(00001)
, "VERFALLDATUM"
POSITION( 00042:00051) DATE EXTERNAL
, "AUSUEBUNGSDATUM"
POSITION( 00053:00062) DATE EXTERNAL
NULLIF(00052)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "PUT_CALL"
POSITION( 00072:00072) CHAR(00001)
, "AUSUEBUNGSTYP"
POSITION( 00073:00073) CHAR(00001)
, "STRIKE"
POSITION( 00075:00082) FLOAT(53)
NULLIF(00074)=X'FF'
)
TEMPLATE BDI0SDKI
DSN('SAVR24.TO01.S24.PDPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDKI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."PROFITCENTER"
WHEN(00001:00002) = X'030F'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SDTJ
DSN('SAVR24.TO01.S24.PDPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDTJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1558
INTO TABLE "TOPD"."PRODUKT"
WHEN(00001:00002) = X'030E'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
)
TEMPLATE BDI0SD3E
DSN('SAVR24.TO01.S24.PDPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SD3E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."PUTCALL"
WHEN(00001:00002) = X'030D'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SEDR
DSN('SAVR24.TO01.S24.PDREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SEDR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPD"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'030C'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0SER1
DSN('SAVR24.TO01.S24.PDRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SER1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOPD"."RRARBK"
WHEN(00001:00002) = X'030B'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0SE6Y
DSN('SAVR24.TO01.S24.PDVALOKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SE6Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMVALORKONTRAKT"
WHEN(00001:00002) = X'030A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "VALORENNUMMER"
POSITION( 00041:00050) CHAR(00010)
, "VALORHERKUNFT"
POSITION( 00051:00054) INTEGER
, "MARKTPREIS"
POSITION( 00055:00062) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0SFSP
DSN('SAVR24.TO01.S24.PDVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SFSP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."VALOR"
WHEN(00001:00002) = X'0309'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0SGH5
DSN('SAVR24.TO01.S24.PDVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SGH5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1
INTO TABLE "TOPD"."VALORHERKUNFT"
WHEN(00001:00002) = X'0308'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SGZV
DSN('SAVR24.TO01.S24.PDWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SGZV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 211
INTO TABLE "TOPD"."WAEHRUNG"
WHEN(00001:00002) = X'0307'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SHJK
DSN('SAVR24.TO01.S24.PDZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SHJK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."ZINSFREQUENZ"
WHEN(00001:00002) = X'0306'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SH0G
DSN('SAVR24.TO01.S24.PDZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SH0G RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOPD"."ZINSUSANZ"
WHEN(00001:00002) = X'0305'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SIJG
DSN('SAVR24.TO01.S24.PDZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SIJG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ZINSSATZ"
WHEN(00001:00002) = X'0304'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI0SIY1
DSN('SAVR24.TO01.S24.PDZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SIY1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."ZINSINDEX"
WHEN(00001:00002) = X'0303'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SJG7
DSN('SAVR24.TO01.S24.PDZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SJG7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."ZINSMODUS"
WHEN(00001:00002) = X'0302'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SLCU
DSN('SAVR24.TO01.S24.PMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SLCU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPM"."AKTIVPASSIV"
WHEN(00001:00002) = X'0301'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SLRL
DSN('SAVR24.TO01.S24.PMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SLRL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 291
INTO TABLE "TOPM"."ALMDATASET"
WHEN(00001:00002) = X'0300'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0SMBN
DSN('SAVR24.TO01.S24.PMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SMBN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."ALM_ASOF"
WHEN(00001:00002) = X'02FF'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0SMSI
DSN('SAVR24.TO01.S24.PMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SMSI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'02FE'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SM6M
DSN('SAVR24.TO01.S24.PMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SM6M RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPM"."BENUTZER"
WHEN(00001:00002) = X'02FD'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0SNPN
DSN('SAVR24.TO01.S24.PMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SNPN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 17380
INTO TABLE "TOPM"."BILANZKURS"
WHEN(00001:00002) = X'02FC'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI0SOC3
DSN('SAVR24.TO01.S24.PMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SOC3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16487
INTO TABLE "TOPM"."BILANZRUBRIK"
WHEN(00001:00002) = X'02FB'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0SPHM
DSN('SAVR24.TO01.S24.PMBLZCD.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SPHM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 21885
INTO TABLE "TOPM"."BILANZCODE"
WHEN(00001:00002) = X'02FA'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
)
TEMPLATE BDI0SPXP
DSN('SAVR24.TO01.S24.PMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SPXP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOPM"."BRANCHE"
WHEN(00001:00002) = X'02F9'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0SQFB
DSN('SAVR24.TO01.S24.PMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SQFB RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."BSKUNDENART"
WHEN(00001:00002) = X'02F8'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SQZR
DSN('SAVR24.TO01.S24.PMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SQZR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 75
INTO TABLE "TOPM"."BUSINESSUNIT"
WHEN(00001:00002) = X'02F7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0SRPJ
DSN('SAVR24.TO01.S24.PMDMZLK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SRPJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."DOMIZILKLASSE"
WHEN(00001:00002) = X'02F6'
( "DOMIZIL"
POSITION( 00003:00017) CHAR(00015)
, "GUELTIG_VON"
POSITION( 00018:00027) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00028:00037) DATE EXTERNAL
)
//F540769F JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769F.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0SR8T
DSN('SAVR24.TO01.S24.PMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SR8T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 275
INTO TABLE "TOPM"."DOMIZIL"
WHEN(00001:00002) = X'02F5'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0SSOY
DSN('SAVR24.TO01.S24.PMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SSOY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."DATASETART"
WHEN(00001:00002) = X'02F4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0S7E5
DSN('SAVR24.TO01.S24.PMDSBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0S7E5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4144065
INTO TABLE "TOPM"."DSCHNITTSBILANZ"
WHEN(00001:00002) = X'02F3'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "ZINS_KOMM"
POSITION( 00045:00048) CHAR(00004)
, "DOMIZIL"
POSITION( 00049:00063) CHAR(00015)
, "TEXTKLASSE"
POSITION( 00065:00085) CHAR(00021)
NULLIF(00064)=X'FF'
, "D_KAP_UNV_KW"
POSITION( 00087:00094) FLOAT(53)
NULLIF(00086)=X'FF'
, "D_KAP_VER_KW"
POSITION( 00096:00103) FLOAT(53)
NULLIF(00095)=X'FF'
, "BET_KS_KW"
POSITION( 00105:00112) FLOAT(53)
NULLIF(00104)=X'FF'
, "BET_RS_KW"
POSITION( 00114:00121) FLOAT(53)
NULLIF(00113)=X'FF'
, "D_KAP_VER_G"
POSITION( 00123:00130) FLOAT(53)
NULLIF(00122)=X'FF'
, "D_KAP_UNV_G"
POSITION( 00132:00139) FLOAT(53)
NULLIF(00131)=X'FF'
, "BET_KS_G"
POSITION( 00141:00148) FLOAT(53)
NULLIF(00140)=X'FF'
, "BET_RS_G"
POSITION( 00150:00157) FLOAT(53)
NULLIF(00149)=X'FF'
)
TEMPLATE BDI0S7T3
DSN('SAVR24.TO01.S24.PMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0S7T3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."DATASETTYP"
WHEN(00001:00002) = X'02F2'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0TE30
DSN('SAVR24.TO01.S24.PMDTBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TE30 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1693431
INTO TABLE "TOPM"."DETAILBILANZ"
WHEN(00001:00002) = X'02F1'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "S_KWA"
POSITION( 00046:00053) FLOAT(53)
NULLIF(00045)=X'FF'
, "H_KWA"
POSITION( 00055:00062) FLOAT(53)
NULLIF(00054)=X'FF'
, "SALDO_KWA"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "S_SFR"
POSITION( 00073:00080) FLOAT(53)
NULLIF(00072)=X'FF'
, "H_SFR"
POSITION( 00082:00089) FLOAT(53)
NULLIF(00081)=X'FF'
, "SALDO_SFR"
POSITION( 00091:00098) FLOAT(53)
NULLIF(00090)=X'FF'
, "ANZAHL"
POSITION( 00100:00103) INTEGER
NULLIF(00099)=X'FF'
)
TEMPLATE BDI0TF5L
DSN('SAVR24.TO01.S24.PMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TF5L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 121032
INTO TABLE "TOPM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'02F0'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0TGFU
DSN('SAVR24.TO01.S24.PMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TGFU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6067
INTO TABLE "TOPM"."FEHLERINPUT"
WHEN(00001:00002) = X'02EF'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0T4GB
DSN('SAVR24.TO01.S24.PMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0T4GB RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6627586
INTO TABLE "TOPM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'02EE'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0UBEH
DSN('SAVR24.TO01.S24.PMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBEH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 537175
INTO TABLE "TOPM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'02ED'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0UBM4
DSN('SAVR24.TO01.S24.PMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBM4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOPM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'02EC'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0UBVV
DSN('SAVR24.TO01.S24.PMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBVV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 26940
INTO TABLE "TOPM"."HAUPTBUCH"
WHEN(00001:00002) = X'02EB'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0UB3A
DSN('SAVR24.TO01.S24.PMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UB3A RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOPM"."HERKUNFT"
WHEN(00001:00002) = X'02EA'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0UCCE
DSN('SAVR24.TO01.S24.PMHPTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCCE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 46
INTO TABLE "TOPM"."HAUPTTITEL"
WHEN(00001:00002) = X'02E9'
( "ID"
POSITION( 00003:00004) CHAR(00002)
, "BEZEICHNUNG"
POSITION( 00005:00054) CHAR(00050)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0UCKI
DSN('SAVR24.TO01.S24.PMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCKI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TOPM"."KUNDENART"
WHEN(00001:00002) = X'02E8'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0UCRI
DSN('SAVR24.TO01.S24.PMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCRI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 136
INTO TABLE "TOPM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'02E7'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0Y21L
DSN('SAVR24.TO01.S24.PMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Y21L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3283242
INTO TABLE "TOPM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'02E6'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1F3IL
DSN('SAVR24.TO01.S24.PMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3IL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 25216380
INTO TABLE "TOPM"."ALMKONTRHIST"
WHEN(00001:00002) = X'02E5'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1F3PI
DSN('SAVR24.TO01.S24.PMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3PI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'02E4'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1F3XH
DSN('SAVR24.TO01.S24.PMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3XH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOPM"."KONTRAKTTYP"
WHEN(00001:00002) = X'02E3'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GP1Y
DSN('SAVR24.TO01.S24.PMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GP1Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 36288378
INTO TABLE "TOPM"."KUNDE"
WHEN(00001:00002) = X'02E2'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI1GQAU
DSN('SAVR24.TO01.S24.PMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQAU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOPM"."LEGALENTITY"
WHEN(00001:00002) = X'02E1'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1GQKX
DSN('SAVR24.TO01.S24.PMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQKX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."NEUALT"
WHEN(00001:00002) = X'02E0'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GQS2
DSN('SAVR24.TO01.S24.PMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQS2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."OPTIONSART"
WHEN(00001:00002) = X'02DF'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GQ0L
DSN('SAVR24.TO01.S24.PMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQ0L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."PROFITCENTER"
WHEN(00001:00002) = X'02DE'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GRBJ
DSN('SAVR24.TO01.S24.PMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRBJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1554
INTO TABLE "TOPM"."PRODUKT"
WHEN(00001:00002) = X'02DD'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "KURZTEXT"
POSITION( 00011:00020) CHAR(00010)
, "LANGTEXT"
POSITION( 00021:00060) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00061:00070) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00071:00080) DATE EXTERNAL
, "ISRRARELEVANT"
POSITION( 00082:00082) CHAR(00001)
NULLIF(00081)=X'FF'
)
TEMPLATE BDI1GRLX
DSN('SAVR24.TO01.S24.PMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRLX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."PUTCALL"
WHEN(00001:00002) = X'02DC'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GRS7
DSN('SAVR24.TO01.S24.PMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRS7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 49
INTO TABLE "TOPM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'02DB'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI1GRZ6
DSN('SAVR24.TO01.S24.PMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRZ6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOPM"."RRARBK"
WHEN(00001:00002) = X'02DA'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI1GR8Q
DSN('SAVR24.TO01.S24.PMTXTK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GR8Q RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPM"."TEXTKLASSE"
WHEN(00001:00002) = X'02D9'
( "TEXTKLASSE"
POSITION( 00003:00023) CHAR(00021)
, "GUELTIG_VON"
POSITION( 00024:00033) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00034:00043) DATE EXTERNAL
)
TEMPLATE BDI1GSFZ
DSN('SAVR24.TO01.S24.PMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSFZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."VALOR"
WHEN(00001:00002) = X'02D8'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
//F540769G JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769G.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI1GSMC
DSN('SAVR24.TO01.S24.PMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSMC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."VALORHERKUNFT"
WHEN(00001:00002) = X'02D7'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GSTQ
DSN('SAVR24.TO01.S24.PMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSTQ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 211
INTO TABLE "TOPM"."WAEHRUNG"
WHEN(00001:00002) = X'02D6'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GS0V
DSN('SAVR24.TO01.S24.PMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GS0V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'02D5'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GS7T
DSN('SAVR24.TO01.S24.PMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GS7T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOPM"."ZINSUSANZ"
WHEN(00001:00002) = X'02D4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GTFM
DSN('SAVR24.TO01.S24.PMZNSKM.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTFM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."ZINS_KOMM"
WHEN(00001:00002) = X'02D3'
( "ZINS_KOMM"
POSITION( 00003:00006) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00007:00016) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00017:00026) DATE EXTERNAL
)
TEMPLATE BDI1GTPH
DSN('SAVR24.TO01.S24.PMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTPH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 62956
INTO TABLE "TOPM"."ZINSSATZ"
WHEN(00001:00002) = X'02D2'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI1GTWJ
DSN('SAVR24.TO01.S24.PMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTWJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."ZINSINDEX"
WHEN(00001:00002) = X'02D1'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GT3X
DSN('SAVR24.TO01.S24.PMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GT3X RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."ZINSMODUS"
WHEN(00001:00002) = X'02D0'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SJX2
DSN('SAVR24.TO01.S24.PM1UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SJX2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 282
INTO TABLE "TOPM"."ERSTUNTERTITEL"
WHEN(00001:00002) = X'02CF'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00055) CHAR(00050)
, "HT"
POSITION( 00056:00057) CHAR(00002)
, "GUELTIG_VON"
POSITION( 00058:00067) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00068:00077) DATE EXTERNAL
)
TEMPLATE BDI0SKGL
DSN('SAVR24.TO01.S24.PM2UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SKGL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 490
INTO TABLE "TOPM"."ZWEITUNTERTITEL"
WHEN(00001:00002) = X'02CE'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00056) CHAR(00050)
, "UT1"
POSITION( 00057:00059) CHAR(00003)
, "GUELTIG_VON"
POSITION( 00060:00069) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00070:00079) DATE EXTERNAL
)
TEMPLATE BDI0SKWV
DSN('SAVR24.TO01.S24.PM3UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SKWV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 834
INTO TABLE "TOPM"."DRITTUNTERTITEL"
WHEN(00001:00002) = X'02CD'
( "ID"
POSITION( 00003:00008) CHAR(00006)
, "BEZEICHNUNG"
POSITION( 00009:00058) CHAR(00050)
, "UT2"
POSITION( 00059:00062) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI1GUBK
DSN('SAVR24.TO01.S24.TMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUBK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOTM"."AKTIVPASSIV"
WHEN(00001:00002) = X'04A0'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GUJG
DSN('SAVR24.TO01.S24.TMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUJG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 15
INTO TABLE "TOTM"."ALMDATASET"
WHEN(00001:00002) = X'049F'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI1GUQG
DSN('SAVR24.TO01.S24.TMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUQG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALM_ASOF"
WHEN(00001:00002) = X'049E'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI1GUX7
DSN('SAVR24.TO01.S24.TMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUX7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'049D'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GU5C
DSN('SAVR24.TO01.S24.TMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GU5C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."BENUTZER"
WHEN(00001:00002) = X'049C'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI1GVCV
DSN('SAVR24.TO01.S24.TMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVCV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1122
INTO TABLE "TOTM"."BILANZKURS"
WHEN(00001:00002) = X'049B'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI1GVMU
DSN('SAVR24.TO01.S24.TMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVMU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16474
INTO TABLE "TOTM"."BILANZRUBRIK"
WHEN(00001:00002) = X'049A'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI1GVUR
DSN('SAVR24.TO01.S24.TMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVUR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOTM"."BRANCHE"
WHEN(00001:00002) = X'0499'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI1GV14
DSN('SAVR24.TO01.S24.TMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GV14 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."BSKUNDENART"
WHEN(00001:00002) = X'0498'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GV8U
DSN('SAVR24.TO01.S24.TMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GV8U RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 42
INTO TABLE "TOTM"."BUSINESSUNIT"
WHEN(00001:00002) = X'0497'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI1GWIO
DSN('SAVR24.TO01.S24.TMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWIO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 259
INTO TABLE "TOTM"."DOMIZIL"
WHEN(00001:00002) = X'0496'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1GWPD
DSN('SAVR24.TO01.S24.TMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWPD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."DATASETART"
WHEN(00001:00002) = X'0495'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GWWA
DSN('SAVR24.TO01.S24.TMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWWA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."DATASETTYP"
WHEN(00001:00002) = X'0494'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GW21
DSN('SAVR24.TO01.S24.TMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GW21 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'0493'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI1GXBK
DSN('SAVR24.TO01.S24.TMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GXBK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1474
INTO TABLE "TOTM"."FEHLERINPUT"
WHEN(00001:00002) = X'0492'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI1GXKE
DSN('SAVR24.TO01.S24.TMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GXKE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'0491'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI1GYN6
DSN('SAVR24.TO01.S24.TMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GYN6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 250996
INTO TABLE "TOTM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'0490'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI1GYWR
DSN('SAVR24.TO01.S24.TMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GYWR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOTM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'048F'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI1GY4G
DSN('SAVR24.TO01.S24.TMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GY4G RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 25698
INTO TABLE "TOTM"."HAUPTBUCH"
WHEN(00001:00002) = X'048E'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
//F540769H JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769H.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI1GZCQ
DSN('SAVR24.TO01.S24.TMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZCQ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOTM"."HERKUNFT"
WHEN(00001:00002) = X'048D'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1GZJD
DSN('SAVR24.TO01.S24.TMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZJD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 125
INTO TABLE "TOTM"."KUNDENART"
WHEN(00001:00002) = X'048C'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI1GZQN
DSN('SAVR24.TO01.S24.TMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZQN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 86
INTO TABLE "TOTM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'048B'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI1HDZ6
DSN('SAVR24.TO01.S24.TMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HDZ6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1227486
INTO TABLE "TOTM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'048A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1HD6Q
DSN('SAVR24.TO01.S24.TMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HD6Q RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMKONTRHIST"
WHEN(00001:00002) = X'0489'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
)
TEMPLATE BDI1HEEP
DSN('SAVR24.TO01.S24.TMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HEEP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'0488'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1HEL5
DSN('SAVR24.TO01.S24.TMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HEL5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOTM"."KONTRAKTTYP"
WHEN(00001:00002) = X'0487'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HPX4
DSN('SAVR24.TO01.S24.TMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HPX4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 19509672
INTO TABLE "TOTM"."KUNDE"
WHEN(00001:00002) = X'0486'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI1HP8E
DSN('SAVR24.TO01.S24.TMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HP8E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOTM"."LEGALENTITY"
WHEN(00001:00002) = X'0485'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1HQGZ
DSN('SAVR24.TO01.S24.TMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQGZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."NEUALT"
WHEN(00001:00002) = X'0484'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HQON
DSN('SAVR24.TO01.S24.TMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQON RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."OPTIONSART"
WHEN(00001:00002) = X'0483'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HQV1
DSN('SAVR24.TO01.S24.TMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQV1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."PROFITCENTER"
WHEN(00001:00002) = X'0482'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HQ5E
DSN('SAVR24.TO01.S24.TMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQ5E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1492
INTO TABLE "TOTM"."PRODUKT"
WHEN(00001:00002) = X'0481'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
)
TEMPLATE BDI1HREG
DSN('SAVR24.TO01.S24.TMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HREG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."PUTCALL"
WHEN(00001:00002) = X'0480'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HRLW
DSN('SAVR24.TO01.S24.TMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HRLW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOTM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'047F'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI1HRS6
DSN('SAVR24.TO01.S24.TMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HRS6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOTM"."RRARBK"
WHEN(00001:00002) = X'047E'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI1HR0H
DSN('SAVR24.TO01.S24.TMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HR0H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."VALOR"
WHEN(00001:00002) = X'047D'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI1HR7O
DSN('SAVR24.TO01.S24.TMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HR7O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."VALORHERKUNFT"
WHEN(00001:00002) = X'047C'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HSFN
DSN('SAVR24.TO01.S24.TMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HSFN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 190
INTO TABLE "TOTM"."WAEHRUNG"
WHEN(00001:00002) = X'047B'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HSML
DSN('SAVR24.TO01.S24.TMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HSML RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'047A'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HST4
DSN('SAVR24.TO01.S24.TMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HST4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOTM"."ZINSUSANZ"
WHEN(00001:00002) = X'0479'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HS1M
DSN('SAVR24.TO01.S24.TMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HS1M RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1296
INTO TABLE "TOTM"."ZINSSATZ"
WHEN(00001:00002) = X'0478'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI1HTAG
DSN('SAVR24.TO01.S24.TMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HTAG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."ZINSINDEX"
WHEN(00001:00002) = X'0477'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HTIC
DSN('SAVR24.TO01.S24.TMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HTIC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."ZINSMODUS"
WHEN(00001:00002) = X'0476'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)