       01  W-WNXC-DATE-FILLS.
           03                          PIC X(11)             VALUE
               '20050101001'.
       01  W-WNXC-DATE-TABLE REDEFINES W-WNXC-DATE-FILLS.
           03  WCD-ENTRY OCCURS 1 TIMES.
               05  WCD-DATE            PIC X(8).
               05  WCD-DTCD            PIC 9(3).
       01  WCD-MAX                     PIC S9(7)             COMP-3
                                       VALUE +1.
       01  WCD-SUB                     PIC S9(7)             COMP-3.
       01  W-WNXC-CBSA-FILLS.
           03                          PIC X(50)             VALUE
               '     00000   0100001   0200002   0300003   0400004'.
           03                          PIC X(50)             VALUE
               '   0500005   0600006   0700007   0800008   1000009'.
           03                          PIC X(50)             VALUE
               '   1100010   1200011   1300012   1400013   1500014'.
           03                          PIC X(50)             VALUE
               '   1600015   1700016   1800017   1900018   2000019'.
           03                          PIC X(50)             VALUE
               '   2100020   2200021   2300022   2400023   2500024'.
           03                          PIC X(50)             VALUE
               '   2600025   2700026   2800027   2900028   3000029'.
           03                          PIC X(50)             VALUE
               '   3100030   3200031   3300032   3400033   3500034'.
           03                          PIC X(50)             VALUE
               '   3600035   3700036   3800037   3900038   4100039'.
           03                          PIC X(50)             VALUE
               '   4200040   4300041   4400042   4500043   4600044'.
           03                          PIC X(50)             VALUE
               '   4700045   4900046   5000047   5100048   5200049'.
           03                          PIC X(50)             VALUE
               '   5300050   9800051   990005210180000531038000054'.
           03                          PIC X(50)             VALUE
               '10420000551050000056105800005710740000581078000059'.
           03                          PIC X(50)             VALUE
               '10900000601102000061111000006211180000631126000064'.
           03                          PIC X(50)             VALUE
               '11300000651134000066114600006711500000681154000069'.
           03                          PIC X(50)             VALUE
               '11700000701202000071120600007212100000731222000074'.
           03                          PIC X(50)             VALUE
               '12260000751242000076125400007712580000781262000079'.
           03                          PIC X(50)             VALUE
               '12700000801294000081129800008213020000831314000084'.
           03                          PIC X(50)             VALUE
               '13380000851346000086136440008713740000881378000089'.
           03                          PIC X(50)             VALUE
               '13820000901390000091139800009214020000931406000094'.
           03                          PIC X(50)             VALUE
               '14260000951448400096145000009714540000981474000099'.
           03                          PIC X(50)             VALUE
               '14860001001518000101152600010215380001031550000104'.
           03                          PIC X(50)             VALUE
               '15540001051576400106158040010715940001081598000109'.
           03                          PIC X(50)             VALUE
               '16180001101622000111163000011216580001131662000114'.
           03                          PIC X(50)             VALUE
               '16700001151674000116168200011716860001181694000119'.
           03                          PIC X(50)             VALUE
               '16974001201702000121171400012217300001231742000124'.
           03                          PIC X(50)             VALUE
               '17460001251766000126177800012717820001281786000129'.
           03                          PIC X(50)             VALUE
               '17900001301798000131180200013218140001331858000134'.
           03                          PIC X(50)             VALUE
               '18700001351906000136191240013719140001381918000139'.
           03                          PIC X(50)             VALUE
               '19260001401934000141193800014219460001431950000144'.
           03                          PIC X(50)             VALUE
               '19660001451974000146197800014719804001482002000149'.
           03                          PIC X(50)             VALUE
               '20100001502022000151202600015220500001532074000154'.
           03                          PIC X(50)             VALUE
               '20764001552094000156210600015721140001582130000159'.
           03                          PIC X(50)             VALUE
               '21340001602142000161215000016221604001632166000164'.
           03                          PIC X(50)             VALUE
               '21780001652182000166219400016722020001682214000169'.
           03                          PIC X(50)             VALUE
               '22180001702222000171223800017222420001732250000174'.
           03                          PIC X(50)             VALUE
               '22520001752254000176226600017722744001782290000179'.
           03                          PIC X(50)             VALUE
               '23020001802306000181231040018223420001832346000184'.
           03                          PIC X(50)             VALUE
               '23540001852358000186238440018724020001882414000189'.
           03                          PIC X(50)             VALUE
               '24220001902430000191243400019224500001932454000194'.
           03                          PIC X(50)             VALUE
               '24580001952466000196247800019724860001982502000199'.
           03                          PIC X(50)             VALUE
               '25060002002518000201252600020225420002032550000204'.
           03                          PIC X(50)             VALUE
               '25540002052562000206258600020725980002082610000209'.
           03                          PIC X(50)             VALUE
               '26180002102630000211263800021226420002132658000214'.
           03                          PIC X(50)             VALUE
               '26620002152682000216269000021726980002182706000219'.
           03                          PIC X(50)             VALUE
               '27100002202714000221271800022227260002232734000224'.
           03                          PIC X(50)             VALUE
               '27460002252750000226276200022727740002282778000229'.
           03                          PIC X(50)             VALUE
               '27860002302790000231280200023228100002332814000234'.
           03                          PIC X(50)             VALUE
               '28420002352866000236287000023728740002382894000239'.
           03                          PIC X(50)             VALUE
               '29020002402910000241291400024229180002432934000244'.
           03                          PIC X(50)             VALUE
               '29404002452946000246295400024729620002482970000249'.
           03                          PIC X(50)             VALUE
               '29740002502982000251299400025230020002533014000254'.
           03                          PIC X(50)             VALUE
               '30300002553034000256304600025730620002583070000259'.
           03                          PIC X(50)             VALUE
               '30780002603086000261309800026231020002633108400264'.
           03                          PIC X(50)             VALUE
               '31140002653118000266313400026731420002683146000269'.
           03                          PIC X(50)             VALUE
               '31540002703170000271319000027232420002733258000274'.
           03                          PIC X(50)             VALUE
               '32780002753282000276329000027733124002783314000279'.
           03                          PIC X(50)             VALUE
               '33260002803334000281334600028233540002833366000284'.
           03                          PIC X(50)             VALUE
               '33700002853374000286337800028733860002883406000289'.
           03                          PIC X(50)             VALUE
               '34100002903458000291346200029234740002933482000294'.
           03                          PIC X(50)             VALUE
               '34900002953494000296349800029735004002983508400299'.
           03                          PIC X(50)             VALUE
               '35300003003538000301356440030235660003033598000304'.
           03                          PIC X(50)             VALUE
               '36084003053610000306361400030736220003083626000309'.
           03                          PIC X(50)             VALUE
               '36420003103650000311365400031236740003133678000314'.
           03                          PIC X(50)             VALUE
               '36980003153710000316373400031737460003183762000319'.
           03                          PIC X(50)             VALUE
               '37700003203786000321379000032237964003233806000324'.
           03                          PIC X(50)             VALUE
               '38220003253830000326383400032738540003283866000329'.
           03                          PIC X(50)             VALUE
               '38860003303890000331389400033239100003333914000334'.
           03                          PIC X(50)             VALUE
               '39300003353934000336393800033739460003383954000339'.
           03                          PIC X(50)             VALUE
               '39580003403966000341397400034239820003433990000344'.
           03                          PIC X(50)             VALUE
               '40060003454014000346402200034740340003484038000349'.
           03                          PIC X(50)             VALUE
               '40420003504048400351405800035240660003534090000354'.
           03                          PIC X(50)             VALUE
               '40980003554106000356411000035741140003584118000359'.
           03                          PIC X(50)             VALUE
               '41420003604150000361415400036241620003634166000364'.
           03                          PIC X(50)             VALUE
               '41700003654174000366417800036741884003684190000369'.
           03                          PIC X(50)             VALUE
               '41940003704198000371420200037242044003734206000374'.
           03                          PIC X(50)             VALUE
               '42100003754214000376422200037742260003784234000379'.
           03                          PIC X(50)             VALUE
               '42540003804264400381431000038243300003834334000384'.
           03                          PIC X(50)             VALUE
               '43580003854362000386437800038743900003884406000389'.
           03                          PIC X(50)             VALUE
               '44100003904414000391441800039244220003934430000394'.
           03                          PIC X(50)             VALUE
               '44700003954494000396450600039745104003984522000399'.
           03                          PIC X(50)             VALUE
               '45300004004546000401455000040245780004034582000404'.
           03                          PIC X(50)             VALUE
               '45940004054606000406461400040746220004084634000409'.
           03                          PIC X(50)             VALUE
               '46540004104666000411467000041246940004134702000414'.
           03                          PIC X(50)             VALUE
               '47220004154726000416473000041747380004184758000419'.
           03                          PIC X(50)             VALUE
               '47644004204789400421479400042248140004234826000424'.
           03                          PIC X(50)             VALUE
               '48300004254842400426485400042748620004284866000429'.
           03                          PIC X(50)             VALUE
               '48700004304886400431489000043249020004334918000434'.
           03                          PIC X(50)             VALUE
               '49340004354942000436495000043749620004384966000439'.
           03                          PIC X(20)             VALUE
               '49700004404974000441'.
       01  W-WNXC-CBSA-TABLE REDEFINES W-WNXC-CBSA-FILLS.
           03  WCM-ENTRY OCCURS 442 TIMES
                   ASCENDING KEY IS WCM-CBSA
                   INDEXED BY WCM-INDX.
               05  WCM-CBSA            PIC X(5).
               05  WCM-PTR             PIC 9(5).
       01  WCM-MAX                     PIC S9(7)             COMP-3
                                       VALUE +442.
       01  W-WNXC-WNXC-FILLS.
           03                          PIC X(52)             VALUE
               '0010764607646001117331173300109102091020010743307433'.
           03                          PIC X(52)             VALUE
               '0011045010450001093560935600111583115830010963109631'.
           03                          PIC X(52)             VALUE
               '0010854508418001077520775200110558105580010852508525'.
           03                          PIC X(52)             VALUE
               '0010834608346001086570865700108478084780010812308123'.
           03                          PIC X(52)             VALUE
               '0010776907769001073700737000109027090270010922509225'.
           03                          PIC X(52)             VALUE
               '0011043810438001087830878300109330093300010764907649'.
           03                          PIC X(52)             VALUE
               '0010801108011001086930869300109040090400010928608778'.
           03                          PIC X(52)             VALUE
               '0010993109931001112771127700108684086840010816608166'.
           03                          PIC X(52)             VALUE
               '0010857008570001077500775000108692086920010771107711'.
           03                          PIC X(52)             VALUE
               '0011015110151001083090830900109244092440010870508705'.
           03                          PIC X(52)             VALUE
               '0010839008390001078960789600107997079970010829708297'.
           03                          PIC X(52)             VALUE
               '0010948709487001080620806200109837098370010788207882'.
           03                          PIC X(52)             VALUE
               '0010950709507001091720917200119343193430011444814448'.
           03                          PIC X(52)             VALUE
               '0010799707997001042740427400109042090420011127711277'.
           03                          PIC X(52)             VALUE
               '0010866808668001104861021100108178081780010951909519'.
           03                          PIC X(52)             VALUE
               '0010845208452001091770917700109480094800011216412164'.
           03                          PIC X(52)             VALUE
               '0010875308753001087050870500111037107560010794907949'.
           03                          PIC X(52)             VALUE
               '0010950709507001092080920800110173099740010996009846'.
           03                          PIC X(52)             VALUE
               '0011127711277001082210807000109156090350010959709597'.
           03                          PIC X(52)             VALUE
               '0011045010450001098920989200109937099370011232712158'.
           03                          PIC X(52)             VALUE
               '0010832208322001093450934500109579095790010861708617'.
           03                          PIC X(52)             VALUE
               '0011160511605001105601056000110935109350010897308973'.
           03                          PIC X(52)             VALUE
               '0010846408464001091570915700107750077500010806208062'.
           03                          PIC X(52)             VALUE
               '0010865708657001091100911000109338093380011176611574'.
           03                          PIC X(52)             VALUE
               '0011004410044001081410814100110608106080011284612846'.
           03                          PIC X(52)             VALUE
               '0011015810158001119581195800109332093320010895408954'.
           03                          PIC X(52)             VALUE
               '0010948709104001111841118400111277112770010890808908'.
           03                          PIC X(52)             VALUE
               '0010933809338001103360989900109327093270010896308963'.
           03                          PIC X(52)             VALUE
               '0010951509301001088770857200109415094150010969809585'.
           03                          PIC X(52)             VALUE
               '0011029209931001092080920800109172091720011086410709'.
           03                          PIC X(52)             VALUE
               '0011054610546001094970949700108109081090010789607896'.
           03                          PIC X(52)             VALUE
               '0010964409644001093250932500109246092460010977109771'.
           03                          PIC X(52)             VALUE
               '0010838808388001094020929800108691083570010938709387'.
           03                          PIC X(52)             VALUE
               '0010973409604001086450864500110517103330010865208652'.
           03                          PIC X(52)             VALUE
               '0011006810068001095460954600108404084040010866008660'.
           03                          PIC X(52)             VALUE
               '0010875808758001092990929900108893088930010834608346'.
           03                          PIC X(52)             VALUE
               '0010889908899001108791067900109266091010011036210362'.
           03                          PIC X(52)             VALUE
               '0010764607646001098660986600108730087300011032910329'.
           03                          PIC X(52)             VALUE
               '0011032210213001095070950700111277112770011045010450'.
           03                          PIC X(52)             VALUE
               '0010869008690001092570913400108464084640010921309213'.
           03                          PIC X(52)             VALUE
               '0010900809008001087000850200110654106540011092110528'.
           03                          PIC X(52)             VALUE
               '0010838608209001117331173300103942039420010918909189'.
           03                          PIC X(52)             VALUE
               '0010868408684001093630900300108670086700011077710564'.
           03                          PIC X(52)             VALUE
               '0011116511165001088570885700107906079060010989609507'.
           03                          PIC X(52)             VALUE
               '0011023010230001103821038200108300080670010878108598'.
           03                          PIC X(52)             VALUE
               '0010980209802001094760947600110648106480010807708077'.
           03                          PIC X(52)             VALUE
               '0010944609446001095720957200109306093060010848608486'.
           03                          PIC X(52)             VALUE
               '0010877608776001091470914700109932099320010941809418'.
           03                          PIC X(52)             VALUE
               '0010883108831001097320973200109578095780010920909209'.
           03                          PIC X(52)             VALUE
               '0010917909179001095320953200104008040080010893408764'.
           03                          PIC X(52)             VALUE
               '0010974409744001104501045000109354092010010927809278'.
           03                          PIC X(52)             VALUE
               '0011158311070001076490764900109510093440010775207752'.
           03                          PIC X(52)             VALUE
               '0010942409424001110331103300109268092680010776107761'.
           03                          PIC X(52)             VALUE
               '0010997509975001095600900900108838088380010852508525'.
           03                          PIC X(52)             VALUE
               '0011010410104001096490948600109640092910010913309133'.
           03                          PIC X(52)             VALUE
               '0010828508285001088910870700109565095650010857008570'.
           03                          PIC X(52)             VALUE
               '0010816608166001095970959700108332083320010816208162'.
           03                          PIC X(52)             VALUE
               '0010836508365001082290822900108725085730011068910689'.
           03                          PIC X(52)             VALUE
               '0011061810618001096170961700110508102800010927609276'.
           03                          PIC X(52)             VALUE
               '0010823508235001090020900200108564085640010902309023'.
           03                          PIC X(52)             VALUE
               '0010933009330001090510905100108299082990010794007940'.
           03                          PIC X(52)             VALUE
               '0011037510375001089430894300109896098960010965309653'.
           03                          PIC X(52)             VALUE
               '0010877508775001087590875900111345111930010812308123'.
           03                          PIC X(52)             VALUE
               '0010824908249001087580875800109300093000010955209552'.
           03                          PIC X(52)             VALUE
               '0010933608931001093240932400110180097200010884008840'.
           03                          PIC X(52)             VALUE
               '0010910509105001088020857000110208102080011174211742'.
           03                          PIC X(52)             VALUE
               '0010912609126001087740877400109026088830010992209814'.
           03                          PIC X(52)             VALUE
               '0011045010450001103011019400110633105280010920009200'.
           03                          PIC X(52)             VALUE
               '0010449204492001086030860300110533102480010922308884'.
           03                          PIC X(52)             VALUE
               '0011052610526001098700987000109332093320010938309199'.
           03                          PIC X(52)             VALUE
               '0011008109954001110441104400109630096300010799707997'.
           03                          PIC X(52)             VALUE
               '0011199311993001079080790800109498094980010831108311'.
           03                          PIC X(52)             VALUE
               '0010874108741001078960789600110554105540010865708657'.
           03                          PIC X(52)             VALUE
               '0010974309743001090170901700113508135080011053110531'.
           03                          PIC X(52)             VALUE
               '0011007409758001129281292800111680115690011183011830'.
           03                          PIC X(52)             VALUE
               '0010910009100001133181331800108901089010011162711627'.
           03                          PIC X(52)             VALUE
               '0011533815338001091740917400111277100280010979709495'.
           03                          PIC X(52)             VALUE
               '0010922809228001089850898500111005110050010974009740'.
           03                          PIC X(52)             VALUE
               '0010973109731001095070950700108450084500011109911099'.
           03                          PIC X(52)             VALUE
               '0010962509625001085450854500108315083150010797407974'.
           03                          PIC X(52)             VALUE
               '0010854508545001088620886200110855108550010998509985'.
           03                          PIC X(52)             VALUE
               '0010870008381001087230872300110438099980010958909337'.
           03                          PIC X(52)             VALUE
               '0010500605006001101020980700111371113710011009310093'.
           03                          PIC X(52)             VALUE
               '0011136411034001096810968100110916109160010957209572'.
           03                          PIC X(52)             VALUE
               '0010935609356001094510945100109507095070011003409616'.
           03                          PIC X(52)             VALUE
               '0010891908919001092180907400111830117090011044610446'.
           03                          PIC X(52)             VALUE
               '0010937909379001109791097900108455084550011149011490'.
           03                          PIC X(52)             VALUE
               '0010928309283001096070948400110300103000010899708997'.
           03                          PIC X(52)             VALUE
               '0010890908909001116831168300109868094050011027110095'.
           03                          PIC X(52)             VALUE
               '0010947309473001081230812300109080089730011054910549'.
           03                          PIC X(52)             VALUE
               '0011382013820001092250922500109564095640010817408174'.
           03                          PIC X(52)             VALUE
               '0010900009000001112601126000109023090230011469414694'.
           03                          PIC X(52)             VALUE
               '0010523005230001147121471200104644046440011111511115'.
           03                          PIC X(52)             VALUE
               '0011170111701001107571075700114759147590011088510066'.
           03                          PIC X(52)             VALUE
               '0011293812938001096100961000109464094640010852508525'.
           03                          PIC X(52)             VALUE
               '0011147611476001095070950700109619091060010913008955'.
           03                          PIC X(52)             VALUE
               '0010905409040001094140941400109434094340010952109378'.
           03                          PIC X(52)             VALUE
               '0011064310458001087320873200110438104380010856208267'.
           03                          PIC X(52)             VALUE
               '0010874108741001084650830900110583105830010870508705'.
           03                          PIC X(52)             VALUE
               '0010948209246001110741107400108671086710010907409074'.
           03                          PIC X(52)             VALUE
               '0010865708657001084400844000109514095140010889608896'.
           03                          PIC X(52)             VALUE
               '0011127711277001091020910200108717087170010833908339'.
           03                          PIC X(52)             VALUE
               '0010951609335001083160831600108334083340011426914269'.
           03                          PIC X(52)             VALUE
               '0010949209492001084560845600111277112770010892808928'.
           03                          PIC X(52)             VALUE
               '0011045010450001081510815100108496084960011010910109'.
           03                          PIC X(52)             VALUE
               '0011102610895001086290862900110101101010010827408274'.
           03                          PIC X(52)             VALUE
               '0011094910949001103481034800107882078820010947209179'.
           03                          PIC X(52)             VALUE
               '0010836508365001084760847600111095108530010922509225'.
           03                          PIC X(52)             VALUE
               '0011048610008001094100925200111001110010011031710317'.
           03                          PIC X(52)             VALUE
               '0010449304493001091520915200109234090670011045010450'.
           03                          PIC X(13)             VALUE
               '0010910209102'.
       01  W-WNXC-WNXC-TABLE REDEFINES W-WNXC-WNXC-FILLS.
           03  WCW-ENTRY OCCURS 441 TIMES.
               05  WCW-DTCD            PIC 9(3).
               05  WCW-WINX1           PIC 9V9(4).
               05  WCW-WINX2           PIC 9V9(4).
