zOs/JCL/GUBLERL2
//A540769M JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A5407692.LOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE A22JH10B
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS185.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22JH10B LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14055115
INTO TABLE "VDPS2"."VTLISTING"
WHEN(00001:00002) = X'0087'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "LISTINGNO"
POSITION( 00007:00010) INTEGER
, "PROVIDER1ID"
POSITION( 00012:00041) CHAR(00030)
NULLIF(00011)=X'FF'
, "PROVIDER2ID"
POSITION( 00043:00072) CHAR(00030)
NULLIF(00042)=X'FF'
, "PROVIDER3ID"
POSITION( 00074:00103) CHAR(00030)
NULLIF(00073)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00105:00136) VARCHAR
NULLIF(00104)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00138:00169) VARCHAR
NULLIF(00137)=X'FF'
, "ISMAINTRADINGPLACE"
POSITION( 00171:00172) SMALLINT
NULLIF(00170)=X'FF'
, "ISHOMETRADINGPLACE"
POSITION( 00174:00175) SMALLINT
NULLIF(00173)=X'FF'
, "ISONLIMITEDHALT"
POSITION( 00177:00178) SMALLINT
NULLIF(00176)=X'FF'
, "HASNOMCURRSETTLE"
POSITION( 00180:00181) SMALLINT
NULLIF(00179)=X'FF'
--, "HASPROVIDEDSERVICE"
-- POSITION( 00183:00184) SMALLINT
-- NULLIF(00182)=X'FF'
-- , "PSINSTRSERVICEID"
-- POSITION( 00186:00189) INTEGER
-- NULLIF(00185)=X'FF'
, "TRADINGPLACE"
POSITION( 00191:00194) INTEGER
NULLIF(00190)=X'FF'
, "CURRENCY"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "MARKTPRACTIDSYMBOL"
POSITION( 00201:00230) CHAR(00030)
NULLIF(00200)=X'FF'
, "FIRSTTRADINGDATE"
POSITION( 00232:00263) VARCHAR
NULLIF(00231)=X'FF'
, "LASTTRADINGDATE"
POSITION( 00265:00296) VARCHAR
NULLIF(00264)=X'FF'
-- , "BEGINDATE"
-- POSITION( 00298:00329) VARCHAR
-- NULLIF(00297)=X'FF'
--, "ENDDATE"
-- POSITION( 00331:00362) VARCHAR
-- NULLIF(00330)=X'FF'
, "HALTFROMDATE"
POSITION( 00364:00395) VARCHAR
NULLIF(00363)=X'FF'
, "HALTUNTILDATE"
POSITION( 00397:00428) VARCHAR
NULLIF(00396)=X'FF'
, "FIRSTTRDDTAFHALT"
POSITION( 00430:00461) VARCHAR
NULLIF(00429)=X'FF'
, "TRADINGSTATUSTYPE"
POSITION( 00463:00464) SMALLINT
NULLIF(00462)=X'FF'
, "LISTINGSTATUSTYPE"
POSITION( 00466:00467) SMALLINT
NULLIF(00465)=X'FF'
, "EXCHANGERATETYPE"
POSITION( 00469:00470) SMALLINT
NULLIF(00468)=X'FF'
, "LISTPURPOSETYPE"
POSITION( 00472:00473) SMALLINT
NULLIF(00471)=X'FF'
, "TRADINGSTATUSTYPEV"
POSITION( 00475:00730) VARCHAR
NULLIF(00474)=X'FF'
, "LISTINGSTATUSTYPEV"
POSITION( 00732:00987) VARCHAR
NULLIF(00731)=X'FF'
, "EXCHANGERATETYPEV"
POSITION( 00989:01244) VARCHAR
NULLIF(00988)=X'FF'
, "LISTPURPOSETYPEV"
POSITION( 01246:01501) VARCHAR
NULLIF(01245)=X'FF'
, "SHORTNAME_G"
POSITION( 01503:01758) VARCHAR
NULLIF(01502)=X'FF'
, "SHORTNAME_E"
POSITION( 01760:02015) VARCHAR
NULLIF(01759)=X'FF'
, "SHORTNAME_F"
POSITION( 02017:02272) VARCHAR
NULLIF(02016)=X'FF'
, "SHORTNAME_I"
POSITION( 02274:02529) VARCHAR
NULLIF(02273)=X'FF'
, "SHORTNAME_N"
POSITION( 02531:02786) VARCHAR
NULLIF(02530)=X'FF'
, "DESCRIPTION_G"
POSITION( 02788:03789) VARCHAR
NULLIF(02787)=X'FF'
, "DESCRIPTION_E"
POSITION( 03791:04792) VARCHAR
NULLIF(03790)=X'FF'
, "DESCRIPTION_F"
POSITION( 04794:05795) VARCHAR
NULLIF(04793)=X'FF'
, "DESCRIPTION_I"
POSITION( 05797:06798) VARCHAR
NULLIF(05796)=X'FF'
, "DESCRIPTION_N"
POSITION( 06800:07801) VARCHAR
NULLIF(06799)=X'FF'
, "CSLISTINGCODETYPE"
POSITION( 07803:07804) SMALLINT
NULLIF(07802)=X'FF'
, "CSLISTINGCODETYPEV"
POSITION( 07806:08061) VARCHAR
NULLIF(07805)=X'FF'
, "HASINDMARPRACTICE"
POSITION( 08063:08064) SMALLINT
NULLIF(08062)=X'FF'
, "PRICINGUNITNO"
POSITION( 08066:08073) FLOAT(53)
NULLIF(08065)=X'FF'
, "PRICINGCORRFACTOR"
POSITION( 08075:08082) FLOAT(53)
NULLIF(08074)=X'FF'
, "NONVERSEAMOUNT"
POSITION( 08084:08091) FLOAT(53)
NULLIF(08083)=X'FF'
, "VOLUMEAMOUNT"
POSITION( 08093:08100) FLOAT(53)
NULLIF(08092)=X'FF'
, "TRADINGUNITNO"
POSITION( 08102:08109) FLOAT(53)
NULLIF(08101)=X'FF'
, "PRICINGUNITTYPE"
POSITION( 08111:08112) SMALLINT
NULLIF(08110)=X'FF'
, "QUOTATIONTYPE"
POSITION( 08114:08115) SMALLINT
NULLIF(08113)=X'FF'
, "VOLUMEUNITTYPE"
POSITION( 08117:08118) SMALLINT
NULLIF(08116)=X'FF'
, "ACCRUEDINTCALCTP"
POSITION( 08120:08121) SMALLINT
NULLIF(08119)=X'FF'
, "FLATREASONTYPE"
POSITION( 08123:08124) SMALLINT
NULLIF(08122)=X'FF'
, "TRADINGUNITTYPE"
POSITION( 08126:08127) SMALLINT
NULLIF(08125)=X'FF'
, "TRADINGRULETYPE"
POSITION( 08129:08130) SMALLINT
NULLIF(08128)=X'FF'
, "PRICINGUNITTYPEV"
POSITION( 08132:08387) VARCHAR
NULLIF(08131)=X'FF'
, "QUOTATIONTYPEV"
POSITION( 08389:08644) VARCHAR
NULLIF(08388)=X'FF'
, "VOLUMEUNITTYPEV"
POSITION( 08646:08901) VARCHAR
NULLIF(08645)=X'FF'
, "ACCRUEDINTCALCTPV"
POSITION( 08903:09158) VARCHAR
NULLIF(08902)=X'FF'
, "FLATREASONTYPEV"
POSITION( 09160:09415) VARCHAR
NULLIF(09159)=X'FF'
, "TRADINGUNITTYPEV"
POSITION( 09417:09672) VARCHAR
NULLIF(09416)=X'FF'
, "TRADINGRULETYPEV"
POSITION( 09674:09929) VARCHAR
NULLIF(09673)=X'FF'
, "VALUEPRICETYPE"
POSITION( 09931:09932) SMALLINT
NULLIF(09930)=X'FF'
, "VALUEPRICETYPEV"
POSITION( 09934:10189) VARCHAR
NULLIF(09933)=X'FF'
)