01 W-WINX-DATE-FILLS. 03 PIC X(44) VALUE '20000801001200101010022002040100320030101004'. 03 PIC X(22) VALUE '2004010100520040401006'. 01 W-WINX-DATE-TABLE REDEFINES W-WINX-DATE-FILLS. 03 WWD-ENTRY OCCURS 6 TIMES. 05 WWD-DATE PIC X(8). 05 WWD-DTCD PIC 9(3). 01 WWD-MAX PIC S9(7) COMP-3 VALUE +6. 01 WWD-SUB PIC S9(7) COMP-3. 01 W-WINX-MSA-FILLS. 03 PIC X(45) VALUE ' 00000 0100005 0200010 0300015 0400020'. 03 PIC X(45) VALUE ' 0500025 0600030 0700035 0800040 0900041'. 03 PIC X(45) VALUE ' 1000046 1100051 1200056 1300061 1400066'. 03 PIC X(45) VALUE ' 1500071 1600076 1700081 1800086 1900091'. 03 PIC X(45) VALUE ' 2000096 2100101 2200106 2300111 2400116'. 03 PIC X(45) VALUE ' 2500121 2600126 2700131 2800136 2900141'. 03 PIC X(45) VALUE ' 3000146 3100147 3200152 3300157 3400162'. 03 PIC X(45) VALUE ' 3500167 3600172 3700177 3800182 3900187'. 03 PIC X(45) VALUE ' 4*00192 4000197 4100198 4200203 4300208'. 03 PIC X(45) VALUE ' 4400213 4500218 4600223 4700228 4900233'. 03 PIC X(45) VALUE ' 5000238 5100243 5200248 5300253 8000255'. 03 PIC X(45) VALUE ' 9800256 9900257004000262006*00267006000272'. 03 PIC X(45) VALUE '008000277010100278010200279010300280010400281'. 03 PIC X(45) VALUE '010500282010600283010700284010800285010900286'. 03 PIC X(45) VALUE '012000291016000296020000301022000306024000311'. 03 PIC X(45) VALUE '027500312028000317032000322036000323038000328'. 03 PIC X(45) VALUE '040000329040100330040500331044000336044100337'. 03 PIC X(45) VALUE '045000342046000347047*00352047000357048000362'. 03 PIC X(45) VALUE '050000367052000372056000377058000382060000387'. 03 PIC X(45) VALUE '062000388064000393068000398072000403073300408'. 03 PIC X(45) VALUE '074300413076000418078000419078100420084000425'. 03 PIC X(45) VALUE '084500426084600427084700428084800429086000434'. 03 PIC X(45) VALUE '087000439087100440087500445088000450092000455'. 03 PIC X(45) VALUE '096000460100000465101000470102000475104000480'. 03 PIC X(45) VALUE '108000485112300490112500495114000496114500501'. 03 PIC X(45) VALUE '115000506116300507124000512126000517128000522'. 03 PIC X(45) VALUE '130000523130300528131*00533131000538132000543'. 03 PIC X(45) VALUE '135000548136000553140000558144000563148000568'. 03 PIC X(45) VALUE '152000573154000578156000583158000588160000593'. 03 PIC X(45) VALUE '162000598164000603166000608168000613172000618'. 03 PIC X(45) VALUE '174000623176000628180000633184000638188000643'. 03 PIC X(45) VALUE '189000648190000653192000658195000663196000668'. 03 PIC X(45) VALUE '200000673202000678203000683204000688208000693'. 03 PIC X(45) VALUE '212000698216000703218000708219000713220000718'. 03 PIC X(45) VALUE '224000723228100728228500729229000734232000739'. 03 PIC X(45) VALUE '233000744233500749234000754236000759240000764'. 03 PIC X(45) VALUE '244000769252000774256000779256100780258000785'. 03 PIC X(45) VALUE '262000790264000795264100796265000801265500806'. 03 PIC X(45) VALUE '267000811268000816270000821271000826271100827'. 03 PIC X(45) VALUE '272000832275000837276000842280000847284000852'. 03 PIC X(45) VALUE '288000857290000862292000867296000872297500877'. 03 PIC X(45) VALUE '298000882298500887299500892300000897300100898'. 03 PIC X(45) VALUE '304000903306000908308000913312000918315000923'. 03 PIC X(45) VALUE '316000928316100929318000934320000939324000944'. 03 PIC X(45) VALUE '328300949328500954329000959332000964335000969'. 03 PIC X(45) VALUE '336000974340000979344000984344100985344200986'. 03 PIC X(45) VALUE '348000991350000996352001001356001006358001011'. 03 PIC X(45) VALUE '360001016360501021361001026362001031364001036'. 03 PIC X(45) VALUE '366001041368001046369001047370001052371001057'. 03 PIC X(45) VALUE '372001062372101063374001068375501069376001074'. 03 PIC X(45) VALUE '376101075380001080381001085384001090385001095'. 03 PIC X(45) VALUE '387001100388001105392001110392101111396001116'. 03 PIC X(45) VALUE '396501117398001122400001127404001132404101133'. 03 PIC X(45) VALUE '408001138410001143412001148415001153420001158'. 03 PIC X(45) VALUE '424301163428001168432001173432101174436001179'. 03 PIC X(45) VALUE '440001184442001189444001190448001195452001200'. 03 PIC X(45) VALUE '460001205464001210468001215472001220476301221'. 03 PIC X(45) VALUE '480001226480101227484*01232484001237488001242'. 03 PIC X(45) VALUE '489001247490001252492001257494001262500001267'. 03 PIC X(45) VALUE '501501272504001273508001278508101279508201280'. 03 PIC X(45) VALUE '512001285514001290516001295517001300519001305'. 03 PIC X(45) VALUE '520001310524001315528001320532001321533001326'. 03 PIC X(45) VALUE '534501331536001336538001341540301342548301347'. 03 PIC X(45) VALUE '552301352556001357560001362564001367566001372'. 03 PIC X(45) VALUE '570001373572001378577501383579001388580001393'. 03 PIC X(45) VALUE '588001398591001403592001408594501413595001414'. 03 PIC X(45) VALUE '596001419599001424600001425601501430602001435'. 03 PIC X(45) VALUE '602501436608001441612001446612101447616001452'. 03 PIC X(45) VALUE '620001457624001462628001467632301472634001477'. 03 PIC X(45) VALUE '636*01482636001487640301492644001497645301498'. 03 PIC X(45) VALUE '646001499648301504652001509656001514658001519'. 03 PIC X(45) VALUE '660001524664001529666001534668001539669001544'. 03 PIC X(45) VALUE '672001549674001554676001559678001564680001569'. 03 PIC X(45) VALUE '680101570682001575684001580684101581688001586'. 03 PIC X(45) VALUE '689501591692001596696001601696101602698001607'. 03 PIC X(45) VALUE '700001612704001617704101618708001623712001628'. 03 PIC X(45) VALUE '716001633720001638724001643732001648736001653'. 03 PIC X(45) VALUE '740001658744*01663744001668746001673748001678'. 03 PIC X(45) VALUE '748501683749001688750001693751001698751101699'. 03 PIC X(45) VALUE '752001704756001709760001714761001719762001724'. 03 PIC X(45) VALUE '764001729768001734772001739776001744780001749'. 03 PIC X(45) VALUE '784001754788001759788101760792001765800301770'. 03 PIC X(45) VALUE '805001775808001780812001785814001790816001795'. 03 PIC X(45) VALUE '820001800824001805828001810832001815836001820'. 03 PIC X(45) VALUE '840001825844001830844101831848001836852001841'. 03 PIC X(45) VALUE '856001846860001850864001855868001860872001865'. 03 PIC X(45) VALUE '872501866873501871875001876876001881878001886'. 03 PIC X(45) VALUE '880001891884001896884101897884201898884301899'. 03 PIC X(45) VALUE '892001904894001909896001914900001919904001924'. 03 PIC X(45) VALUE '908001929914001934916001939920001944924301945'. 03 PIC X(45) VALUE '926001950927001955928001960932001965934001970'. 03 PIC X(9) VALUE '936001975'. 01 W-WINX-MSA-TABLE REDEFINES W-WINX-MSA-FILLS. 03 WWM-ENTRY OCCURS 456 TIMES ASCENDING KEY IS WWM-MSA INDEXED BY WWM-INDX. 05 WWM-MSA PIC X(4). 05 WWM-PTR PIC 9(5). 01 WWM-MAX PIC S9(7) COMP-3 VALUE +456. 01 W-WINX-WINX-FILLS. 03 PIC X(52) VALUE '0010739000000002075280752800307400075280040772707727'. 03 PIC X(52) VALUE '0050749200000001120570000000212392000000031186200000'. 03 PIC X(52) VALUE '0041229300000005118860000000108544000000020831700000'. 03 PIC X(52) VALUE '0030868100000004084930000000509270000000010723600000'. 03 PIC X(52) VALUE '0020744500000003074890000000407666000000050773400000'. 03 PIC X(52) VALUE '0010995100000002098610000000309659000000040984000000'. 03 PIC X(52) VALUE '0050996700000001088130881300208968000000030881100000'. 03 PIC X(52) VALUE '0040901500000005093280000000112413000000021171500000'. 03 PIC X(52) VALUE '0031207700000004123940000000512183000000010916600000'. 03 PIC X(52) VALUE '0020907400000003095890000000409128000000050959500000'. 03 PIC X(52) VALUE '0010000000000001089860898600208928089280030879408794'. 03 PIC X(52) VALUE '0040881408814005088550869900108094000000020832900000'. 03 PIC X(52) VALUE '0030829500000004082300000000508369000000011072600000'. 03 PIC X(52) VALUE '0021105900000003111120000000410255000000050995800000'. 03 PIC X(52) VALUE '0010865100000002086780000000308718000000040874700000'. 03 PIC X(52) VALUE '0050897400000001080470804700208160081600030805308053'. 03 PIC X(52) VALUE '0040820408204005082540825400108396000000020860200000'. 03 PIC X(52) VALUE '0030872100000004087550000000508824000000010792600000'. 03 PIC X(52) VALUE '0020803000000003081470000000408315000000050841600000'. 03 PIC X(52) VALUE '0010746000000002076050000000307812000000040792300000'. 03 PIC X(52) VALUE '0050807400000001080430000000207931000000030796307963'. 03 PIC X(52) VALUE '0040807908079005079740797400107486074860020771307713'. 03 PIC X(52) VALUE '0030769207692004076470764700507467074670010863900000'. 03 PIC X(52) VALUE '0020876600000003087210000000408874000000050881200000'. 03 PIC X(52) VALUE '0010863100000002086510000000308859000000040894600000'. 03 PIC X(52) VALUE '0050912500000001113690000000211204000000031145400000'. 03 PIC X(52) VALUE '0041128800000005104320000000108831088310020900309003'. 03 PIC X(52) VALUE '0030900000000004090130901300508877000000010866908669'. 03 PIC X(52) VALUE '0020888108881003090350903500409151091510050934509345'. 03 PIC X(52) VALUE '0010730600000002074910000000307528000000040768000000'. 03 PIC X(52) VALUE '0050777800000001077230772300207707077070030789907899'. 03 PIC X(52) VALUE '0040802608026005080560805600108398083980020868808688'. 03 PIC X(52) VALUE '0030865508655004084810848100508800000000010800700000'. 03 PIC X(52) VALUE '0020810900000003081420814200408204082040050882208822'. 03 PIC X(52) VALUE '0010909700000002092320000000309727091610040957709117'. 03 PIC X(52) VALUE '0050980609276001099050000000209845000000030977900000'. 03 PIC X(52) VALUE '0040979600000005100301003000100000000000010837800000'. 03 PIC X(52) VALUE '0020849700000003086760000000408872000000050827000000'. 03 PIC X(52) VALUE '0010863600000002084990000000308547000000040854200000'. 03 PIC X(52) VALUE '0050852600000001082900000000208441000000030853500000'. 03 PIC X(52) VALUE '0040866600000005084560000000107647000000020771600000'. 03 PIC X(52) VALUE '0030787900000004077880000000507778000000010864900000'. 03 PIC X(52) VALUE '0020867000000003086680000000408613000000050882000000'. 03 PIC X(52) VALUE '0010725500000002074910000000307566000000040759000000'. 03 PIC X(52) VALUE '0050753700000001098730987300210132101320031003810038'. 03 PIC X(52) VALUE '0041030300000005099940000000108524000000020857800000'. 03 PIC X(52) VALUE '0030860700000004084620000000508378000000010912000000'. 03 PIC X(52) VALUE '0020910800000003100250000000409192000000050855700000'. 03 PIC X(52) VALUE '0010424900000002042640000000304832000000040435600000'. 03 PIC X(52) VALUE '0050401800000001000000000000108264000000020837000000'. 03 PIC X(52) VALUE '0030851200000004086070000000508498000000010757600000'. 03 PIC X(52) VALUE '0020757000000003078610000000407815000000050819500000'. 03 PIC X(52) VALUE '0010765007650002078380000000307928000000040787700000'. 03 PIC X(52) VALUE '0050788600000001074710747100207507075070030771407714'. 03 PIC X(52) VALUE '0040782707827005077800778000108906000000020903700000'. 03 PIC X(52) VALUE '0030905100000004093120000000508974000000010942700000'. 03 PIC X(52) VALUE '0020940900000003096080000000409345000000050953400000'. 03 PIC X(52) VALUE '0010791608043002081890000000308241000000040850400000'. 03 PIC X(52) VALUE '0050849800000001104461033300210434104340031020910209'. 03 PIC X(52) VALUE '0041017910179005103881038800108068000000020823108231'. 03 PIC X(52) VALUE '0030806700000004079750000000508018000000010875900000'. 03 PIC X(52) VALUE '0020888008880003090680906800409162000000050930400000'. 03 PIC X(52) VALUE '0010885908859002088170867100308747087470040900709007'. 03 PIC X(52) VALUE '0050911008984001086310000000208651000000011934300000'. 03 PIC X(52) VALUE '0011444800000001081790817900208240082400030798307983'. 03 PIC X(52) VALUE '0040782707827005077800000000109120000000020938000000'. 03 PIC X(52) VALUE '0031002500000004096790000000509170000000010424900000'. 03 PIC X(52) VALUE '0020439100000003048320000000404587000000050430600000'. 03 PIC X(52) VALUE '0011016309981002097360973600309876098760040960009600'. 03 PIC X(52) VALUE '0050944209442006135401354000611245112450061419414194'. 03 PIC X(52) VALUE '0060964809648006156971569700612899128990061229812298'. 03 PIC X(52) VALUE '0061067710677006102771027700110372095440020993300000'. 03 PIC X(52) VALUE '0031064010640004105941042700510863106640010875400000'. 03 PIC X(52) VALUE '0020854900000003085470000000408542000000050852600000'. 03 PIC X(52) VALUE '0010849900000002091360000000309759097590040939009390'. 03 PIC X(52) VALUE '0050930009300001079100791000208170081700030805908059'. 03 PIC X(52) VALUE '0040788307883005080370803700109550000000020992500000'. 03 PIC X(52) VALUE '0031007710077004097350973500509721097210010969900000'. 03 PIC X(52) VALUE '0010934200000002093460000000309126091260040922509225'. 03 PIC X(52) VALUE '0050882708827001084350843500208715087150030871108502'. 03 PIC X(52) VALUE '0040903408884005089860885800100000000000011300913009'. 03 PIC X(52) VALUE '0021286512865003126961269600412490124900051235112351'. 03 PIC X(52) VALUE '0010000000000001000000000000100000000000011148311343'. 03 PIC X(52) VALUE '0021125411064003110981109800411103111030051107410846'. 03 PIC X(52) VALUE '0010000000000001084620000000208284000000030827607841'. 03 PIC X(52) VALUE '0040804407910005080900797500108913000000020905200000'. 03 PIC X(52) VALUE '0030924100000004091620000000509304000000011033400000'. 03 PIC X(52) VALUE '0020966700000003100250000000409192000000050884700000'. 03 PIC X(52) VALUE '0010481500000002045250000000304832000000040435600000'. 03 PIC X(52) VALUE '0050415500000001088840000000209516000000030920009200'. 03 PIC X(52) VALUE '0040987609575005097200947700109800000000020973900000'. 03 PIC X(52) VALUE '0030984209702004102111006600509818095640011005010050'. 03 PIC X(52) VALUE '0021009610096003100581005800409991098890051013009990'. 03 PIC X(52) VALUE '0011105000000002111821082200311293000000041101700000'. 03 PIC X(52) VALUE '0051079510531001077480000000208106000000030823000000'. 03 PIC X(52) VALUE '0040832500000005084940000000109013000000020916009160'. 03 PIC X(52) VALUE '0030997009970004102640988700509625094330010000000000'. 03 PIC X(52) VALUE '0010908109081002095770000000309597095970040963709637'. 03 PIC X(52) VALUE '0050960909609001099510000000209861000000030965900000'. 03 PIC X(52) VALUE '0040989900000005099670000000109891098910020936500000'. 03 PIC X(52) VALUE '0030985600000004099290000000509919000000010960900000'. 03 PIC X(52) VALUE '0020956100000003095930000000409664000000050990409904'. 03 PIC X(52) VALUE '0011330200000002138391358300313626134230041320212943'. 03 PIC X(52) VALUE '0051295612720001087070870700208842087340030814908149'. 03 PIC X(52) VALUE '0040829408190005084060840600100000000000010000000000'. 03 PIC X(52) VALUE '0010862408624002087440000000308442000000040832400000'. 03 PIC X(52) VALUE '0050842400000001000000000000100000000000010000000000'. 03 PIC X(52) VALUE '0010000000000001113940000000211439000000031182611296'. 03 PIC X(52) VALUE '0041228211642005117571130500108831088310020900309003'. 03 PIC X(52) VALUE '0030900009000004091060910600508935089350010000000000'. 03 PIC X(52) VALUE '0011183311833002116051160500311808118080041220712207'. 03 PIC X(52) VALUE '0051176711767001100381003800209591095910030935209352'. 03 PIC X(52) VALUE '0040902209022005089610896100107949079490020823600000'. 03 PIC X(52) VALUE '0030844008105004087570836800509029084070010875008750'. 03 PIC X(52) VALUE '0020869008690003085470860700408542084620050852608428'. 03 PIC X(52) VALUE '0010899408994002084770847700308808088080040922209222'. 03 PIC X(52) VALUE '0050921209212001078930789300207897078970030798407984'. 03 PIC X(52) VALUE '0040797207972005080330803300108593000000020873300000'. 03 PIC X(52) VALUE '0030884200000004089070000000508824000000010899300000'. 03 PIC X(52) VALUE '0020915609156003090380000000409109000000050883208832'. 03 PIC X(52) VALUE '0010908609086002090420904200309050000000040931000000'. 03 PIC X(52) VALUE '0050923209232001113581135800211160111600031138311383'. 03 PIC X(52) VALUE '0041123511235005112331123300109944000000020973100000'. 03 PIC X(52) VALUE '0030979900000004096890000000510049000000010000000000'. 03 PIC X(52) VALUE '0010851600000002086580000000308209000000040853500000'. 03 PIC X(52) VALUE '0050813700000001110110000000210975000000031075800000'. 03 PIC X(52) VALUE '0041094400000005105800000000100000000000010921200000'. 03 PIC X(52) VALUE '0020872200000003090120000000408880000000051030300000'. 03 PIC X(52) VALUE '0010850100000002082370000000309328000000040882100000'. 03 PIC X(52) VALUE '0050901900000001096040000000209580000000030945900000'. 03 PIC X(52) VALUE '0040936500000005096040000000100000000000011055810122'. 03 PIC X(52) VALUE '0021073510236003098830960600410052095720050970409332'. 03 PIC X(52) VALUE '0010978909789002097470000000310025100250040930209302'. 03 PIC X(52) VALUE '0050894608946001045610456100204562000000030483204832'. 03 PIC X(52) VALUE '0040440804408005042010420100108649000000020867000000'. 03 PIC X(52) VALUE '0030895600000004089320000000509071000000010919900000'. 03 PIC X(52) VALUE '0020881708817003094960934600409690095860050920909209'. 03 PIC X(52) VALUE '0010901800000002087360000000308699000000040905600000'. 03 PIC X(52) VALUE '0050887408874001091630916300209198090840030930609140'. 03 PIC X(52) VALUE '0041063509772005099070946000108988089880020906709067'. 03 PIC X(52) VALUE '0030920609206004092350923500509332093320010909508861'. 03 PIC X(52) VALUE '0020924008904003092640890200408898086490050888008568'. 03 PIC X(52) VALUE '0010943309433002093910939100309407094070040985009743'. 03 PIC X(52) VALUE '0050973009730001105730000000210789000000031056600000'. 03 PIC X(52) VALUE '0041043810120005100250987700109731094530020983309624'. 03 PIC X(52) VALUE '0030936909181004089760884300509086090860010885900000'. 03 PIC X(52) VALUE '0020881700000003087470000000409007000000050911000000'. 03 PIC X(52) VALUE '0011087210872002111461101500311046109170041104410905'. 03 PIC X(52) VALUE '0051089210752001103900000000209918000000030985600000'. 03 PIC X(52) VALUE '0040984000000005101930000000109434094340020941509415'. 03 PIC X(52) VALUE '0030947309473004093890938900509413094130010828308283'. 03 PIC X(52) VALUE '0020827708277003083930839300408419084190050835408354'. 03 PIC X(52) VALUE '0010968809688002095930959300309457094570040967009670'. 03 PIC X(52) VALUE '0050967109671001092180000000209697000000030974400000'. 03 PIC X(52) VALUE '0040991600000005098330000000108904087360020896108756'. 03 PIC X(52) VALUE '0030868608686004085150851500508695085570010935709215'. 03 PIC X(52) VALUE '0020955409433003094920916800409307091940050890208902'. 03 PIC X(52) VALUE '0010851008318002085680000000308440084400040837407985'. 03 PIC X(52) VALUE '0050869408477001099070972800209619096190030956509565'. 03 PIC X(52) VALUE '0040975109549005096480964800108702085990020872600000'. 03 PIC X(52) VALUE '0030834108238004087290872900508521085210011108700000'. 03 PIC X(52) VALUE '0021132600000003116460000000411453000000051151611241'. 03 PIC X(52) VALUE '0010880100000002083690000000308306000000040797500000'. 03 PIC X(52) VALUE '0050820000000001095890958900209913099130030993609936'. 03 PIC X(52) VALUE '0040999809998005099740997400109061087060020858908212'. 03 PIC X(52) VALUE '0030861300000004088590000000509035090350010870608606'. 03 PIC X(52) VALUE '0020889808898003086380853800408835088350050898508985'. 03 PIC X(52) VALUE '0010933609231002094420944200309225092250040928209282'. 03 PIC X(52) VALUE '0050952909529001089860000000209147000000030897200000'. 03 PIC X(52) VALUE '0040906200000005090600000000108679000000020853400000'. 03 PIC X(52) VALUE '0030877500000004089730000000508828085800010832100000'. 03 PIC X(52) VALUE '0020816000000003080530000000408204000000050825400000'. 03 PIC X(52) VALUE '0011019710197002101811018100310328103280041060110484'. 03 PIC X(52) VALUE '0051083710664001087540875400209118090110030877908779'. 03 PIC X(52) VALUE '0040882708827005091060910600110421000000021051000000'. 03 PIC X(52) VALUE '0031048700000004104481044800510101101010010783607836'. 03 PIC X(52) VALUE '0020801308013003079880798800408158081580050776507765'. 03 PIC X(52) VALUE '0010933510511002100780976900310296100030040935609254'. 03 PIC X(52) VALUE '0050980500000001085200000000208746000000030851900000'. 03 PIC X(52) VALUE '0040879500000005088860000000110165101650021004310043'. 03 PIC X(52) VALUE '0031028410284004103681036800510171101710010987200000'. 03 PIC X(52) VALUE '0020949100000003105320000000410684000000051093400000'. 03 PIC X(52) VALUE '0010946900000001089570000000208880088800030906809068'. 03 PIC X(52) VALUE '0040916209162005093040000000108947000000020934600000'. 03 PIC X(52) VALUE '0030921500000004092650000000509196000000010937909379'. 03 PIC X(52) VALUE '0020914500000003096380951700409722095160050978309554'. 03 PIC X(52) VALUE '0010863600000002085460000000308547000000040854200000'. 03 PIC X(52) VALUE '0050852600000001079530000000208610000000030835700000'. 03 PIC X(52) VALUE '0040837600000005085590000000109023000000020898508985'. 03 PIC X(52) VALUE '0030871608716004089250876100508601085260011076510765'. 03 PIC X(52) VALUE '0021096510965003114711100600410944109440051145610977'. 03 PIC X(52) VALUE '0010830308396002081730000000308514000000040817700000'. 03 PIC X(52) VALUE '0050842900000001086200862000208749085170030926709166'. 03 PIC X(52) VALUE '0040968409468005097970950100108494084940020865508469'. 03 PIC X(52) VALUE '0030902708869004089920899200508986088170010000000000'. 03 PIC X(52) VALUE '0010777300000002079100000000308445000000040810000000'. 03 PIC X(52) VALUE '0050839600000001103480986000210686105250031055610105'. 03 PIC X(52) VALUE '0041068210131005113331107900111020109180021120511058'. 03 PIC X(52) VALUE '0031091310810004111351096300510858107030010000000000'. 03 PIC X(52) VALUE '0010792700000002076520765200307889078890040781907819'. 03 PIC X(52) VALUE '0050779707797001086180000000208777087770030872208722'. 03 PIC X(52) VALUE '0040878008780005087090000000110302101970021064710647'. 03 PIC X(52) VALUE '0031004510045004100661006600510148101480011017200000'. 03 PIC X(52) VALUE '0021015210152003107841078400410704107040051047910479'. 03 PIC X(52) VALUE '0010898600000002092470000000309374000000040968000000'. 03 PIC X(52) VALUE '0050981600000001101091010900209622096220031021410114'. 03 PIC X(52) VALUE '0040993109931005101241012400100000000000010784407696'. 03 PIC X(52) VALUE '0020805207947003080530785700407895077380050842408077'. 03 PIC X(52) VALUE '0010898608713002096070935800309002088280040969309430'. 03 PIC X(52) VALUE '0050896608804001090960000000208665086650030920309203'. 03 PIC X(52) VALUE '0040945700000005095850000000109835098350020952709527'. 03 PIC X(52) VALUE '0030939409394004094460944600509359093590011026210262'. 03 PIC X(52) VALUE '0021010400000003099840000000410216000000051014200000'. 03 PIC X(52) VALUE '0010875408754002084230842300308792083860040859908599'. 03 PIC X(52) VALUE '0050822908229001101020996300210074000000030948109481'. 03 PIC X(52) VALUE '0040987109871005096930969300109732000000020991800000'. 03 PIC X(52) VALUE '0031031300000004094650000000509279000000010936900000'. 03 PIC X(52) VALUE '0020945400000003095300000000409584000000050941000000'. 03 PIC X(52) VALUE '0010863600000002084990000000308547000000040854200000'. 03 PIC X(52) VALUE '0050852600000001083330833300208441000000030870900000'. 03 PIC X(52) VALUE '0040889200000005086220000000109097090970020895408954'. 03 PIC X(52) VALUE '0030911909119004092430924300508636086360010918800000'. 03 PIC X(52) VALUE '0020947109471003097740977400409679096790050992109921'. 03 PIC X(52) VALUE '0011013510017002102481024800310048099390040954809548'. 03 PIC X(52) VALUE '0050946909469001000000000000110459104590020933009330'. 03 PIC X(52) VALUE '0030919509195004089660896600508918089180010972209449'. 03 PIC X(52) VALUE '0020981409573003094950949500409336093360050945309453'. 03 PIC X(52) VALUE '0010921509215002093390933900309357093570040966809668'. 03 PIC X(52) VALUE '0050951809518001090370903700209124091240030953909395'. 03 PIC X(52) VALUE '0040928209129005091660905800109500092370020938409172'. 03 PIC X(52) VALUE '0030928909289004091740917400509167091670010918809188'. 03 PIC X(52) VALUE '0020900309003003092170921700409122000000050933500000'. 03 PIC X(52) VALUE '0010000000000001088530885300209409000000030885900000'. 03 PIC X(52) VALUE '0040926800000005091720000000108989000000020906100000'. 03 PIC X(52) VALUE '0030928700000004094180000000509214092140010991709793'. 03 PIC X(52) VALUE '0020938609386003094250942500409223092230050916409164'. 03 PIC X(52) VALUE '0011241311715002117151142000312077115710041239411549'. 03 PIC X(52) VALUE '0051218311359001073060000000207491074910030752807528'. 03 PIC X(52) VALUE '0040768007680005077780000000109148091480020875508577'. 03 PIC X(52) VALUE '0030936709367004090280892600509242091130011147911479'. 03 PIC X(52) VALUE '0021186611866003115441154400411457000000051111611116'. 03 PIC X(52) VALUE '0010783700000002080860000000307975000000040838500000'. 03 PIC X(52) VALUE '0050777100000001093870938700209732097320030963109631'. 03 PIC X(52) VALUE '0040989209792005098340983400109757094360020987609605'. 03 PIC X(52) VALUE '0030961609238004096360916700509595090760010882208608'. 03 PIC X(52) VALUE '0020893208779003088830869600408903087710050924509120'. 03 PIC X(52) VALUE '0010000000000001000000000000109792097920020978709787'. 03 PIC X(52) VALUE '0030969809698004097170971700509916099160010960709460'. 03 PIC X(52) VALUE '0020965700000003098590970800409587094420050954809404'. 03 PIC X(52) VALUE '0010884000000002091340000000309257000000040953200000'. 03 PIC X(52) VALUE '0050898600000001083870826800208812086790030849108491'. 03 PIC X(52) VALUE '0040860708607005083990839900108600084470020879608796'. 03 PIC X(52) VALUE '0030901308843004092750900200508984088190010898608957'. 03 PIC X(52) VALUE '0020920809208003092230922300409381092370050956309563'. 03 PIC X(52) VALUE '0010829000000002084410000000308535000000040866600000'. 03 PIC X(52) VALUE '0050854400000001086360000000208499000000030854700000'. 03 PIC X(52) VALUE '0040854200000005085260000000109656000000020958500000'. 03 PIC X(52) VALUE '0030973900000004098490000000509304000000011167400000'. 03 PIC X(52) VALUE '0021131800000003111780000000411190000000051111500000'. 03 PIC X(52) VALUE '0010889408894002083180831800308617086170040833708337'. 03 PIC X(52) VALUE '0050825608256001085240000000208578000000030872300000'. 03 PIC X(52) VALUE '0040846200000005083780000000100000000000010725107251'. 03 PIC X(52) VALUE '0020783200000003084250811500407843078430050780907809'. 03 PIC X(52) VALUE '0010772307678002081480814800308727085280040861308613'. 03 PIC X(52) VALUE '0050868108558001099810998100210453102910031063910471'. 03 PIC X(52) VALUE '0041059510400005105001050000100000000000010859800000'. 03 PIC X(52) VALUE '0020990200000003098890000000410790000000051041900000'. 03 PIC X(52) VALUE '0010978400000001093220932200209527095270030953609536'. 03 PIC X(52) VALUE '0040973609736005097150971500100000000000010903300000'. 03 PIC X(52) VALUE '0020961100000003095680000000409686000000050976100000'. 03 PIC X(52) VALUE '0010993200000002101190000000309764000000041039900000'. 03 PIC X(52) VALUE '0050915900000001091990919900208340083400030889008890'. 03 PIC X(52) VALUE '0040897008970005088200882000108984089840020952509525'. 03 PIC X(52) VALUE '0030918409184004090380903800509045090450010893300000'. 03 PIC X(52) VALUE '0020921100000003092500000000409400000000050930400000'. 03 PIC X(52) VALUE '0010839708397002084900849000308544083950040847508316'. 03 PIC X(52) VALUE '0050822508225001088090000000208834000000030912100000'. 03 PIC X(52) VALUE '0040927800000005090360000000100000000000010796600000'. 03 PIC X(52) VALUE '0020771300000003077650000000407965000000050784100000'. 03 PIC X(52) VALUE '0010000000000001089860000000208928000000030906700000'. 03 PIC X(52) VALUE '0040935709357005088550885500109255000000020925900000'. 03 PIC X(52) VALUE '0030929600000004090780000000509282092820010997709834'. 03 PIC X(52) VALUE '0020993409934003096530965300409726000000050971400000'. 03 PIC X(52) VALUE '0010000000000001083230000000208168000000030784900000'. 03 PIC X(52) VALUE '0040847200000005080910000000108590000000020865800000'. 03 PIC X(52) VALUE '0030867600000004088720000000508688000000011125811258'. 03 PIC X(52) VALUE '0021079610796003111821118200411521115210051152811401'. 03 PIC X(52) VALUE '0010822200000002081900000000307812000000040792300000'. 03 PIC X(52) VALUE '0050807400000001095320000000208996000000030868208281'. 03 PIC X(52) VALUE '0040831508077005082670814000108899000000020903600000'. 03 PIC X(52) VALUE '0030928700000004091790000000509383000000010855208552'. 03 PIC X(52) VALUE '0020886608712003087910864100408581085810050868508475'. 03 PIC X(52) VALUE '0010910809108002093200932000309470094700040948309483'. 03 PIC X(52) VALUE '0050952209522001000000000000109670094510020966609666'. 03 PIC X(52) VALUE '0031017309843004098920971100510033095970010861408432'. 03 PIC X(52) VALUE '0020890608791003089550880000409097089510050892308923'. 03 PIC X(52) VALUE '0010873808541002089220873200308571085710040862908629'. 03 PIC X(52) VALUE '0050911308943001000000000000112085120850021203312033'. 03 PIC X(52) VALUE '0031196111961004120111201100511832118320010938109381'. 03 PIC X(52) VALUE '0020935009350003095290941600409276091630050924209118'. 03 PIC X(52) VALUE '0010841100000002088380000000308463084630040964609646'. 03 PIC X(52) VALUE '0050827208272001088140000000208867087490030910308795'. 03 PIC X(52) VALUE '0040921908909005091340894100108530085300020897408974'. 03 PIC X(52) VALUE '0030897108971004092500925000508975089750010972909729'. 03 PIC X(52) VALUE '0021027110271003103671036700410467104670051026410117'. 03 PIC X(52) VALUE '0010000000000001086490864900208690086900030872608726'. 03 PIC X(52) VALUE '0040890000000005091800000000100000000000011003300000'. 03 PIC X(52) VALUE '0020980300000003100840000000410369000000051021100000'. 03 PIC X(52) VALUE '0010467400000002045890000000304860000000040491400000'. 03 PIC X(52) VALUE '0050479500000001081200000000208566000000030837800000'. 03 PIC X(52) VALUE '0040842800000005083810838100110492000000021034400000'. 03 PIC X(52) VALUE '0031031410038004104981030300510772104250010929600000'. 03 PIC X(52) VALUE '0020968800000003099130000000410253000000050977609776'. 03 PIC X(52) VALUE '0010824408244002087230858400308978087930040892008712'. 03 PIC X(52) VALUE '0050900908786001105091050900209861000000030994700000'. 03 PIC X(52) VALUE '0040984000000005099670000000110233000000021005900000'. 03 PIC X(52) VALUE '0030995009950004098150981500509894098940011087600000'. 03 PIC X(52) VALUE '0021033300000003114690000000411213000000051136600000'. 03 PIC X(52) VALUE '0010000000000001098450984500209767097670030997109865'. 03 PIC X(52) VALUE '0040989309893005099880982900100000000000010000000000'. 03 PIC X(52) VALUE '0011092910929002110171101700310930109300041090310903'. 03 PIC X(52) VALUE '0051100111001001090850908500209332093320030936409177'. 03 PIC X(52) VALUE '0040915709047005088840888400108267000000020816308163'. 03 PIC X(52) VALUE '0030808408084004081100811000507994079940011011100000'. 03 PIC X(52) VALUE '0021039600000003108201082000410498104980051127511148'. 03 PIC X(52) VALUE '0011125811258002112831128300311257112570041081410814'. 03 PIC X(52) VALUE '0051108311083001082210806200208396000000030820108097'. 03 PIC X(52) VALUE '0040813708137005079220792200107724077240020765307653'. 03 PIC X(52) VALUE '0030740007400004077340773400507907079070011083400000'. 03 PIC X(52) VALUE '0021096900000003099390000000409284000000050882400000'. 03 PIC X(52) VALUE '0010000000000001085290835700208440084410030877108577'. 03 PIC X(52) VALUE '0040897600000005091120000000109839000000020966100000'. 03 PIC X(52) VALUE '0030969900000004097540000000509790000000010944909254'. 03 PIC X(52) VALUE '0020949009301003097540955200409578093750050985509591'. 03 PIC X(52) VALUE '0011407400000002139320000000313643000000041335700000'. 03 PIC X(52) VALUE '0051314013140001000000000000112417124170021203412034'. 03 PIC X(52) VALUE '0031229412294004124591245900512468124680011242812328'. 03 PIC X(52) VALUE '0021206311926003120771152600412394116260051218300000'. 03 PIC X(52) VALUE '0010908909089002092950929500309036090360040904609046'. 03 PIC X(52) VALUE '0050917409174001145171439900214651144630031442714289'. 03 PIC X(52) VALUE '0041441414220005140181401800110772107720021089000000'. 03 PIC X(52) VALUE '0031162211622004114061140600511518115180011090810837'. 03 PIC X(52) VALUE '0021084710317003111131066400411387107470051150911048'. 03 PIC X(52) VALUE '0010000000000001084420844200208422084410030857900000'. 03 PIC X(52) VALUE '0040857408666005086190000000115095150950021498314983'. 03 PIC X(52) VALUE '0031531915319004151851518500515119151190010961500000'. 03 PIC X(52) VALUE '0020924309243003095560000000409402000000050972800000'. 03 PIC X(52) VALUE '0010887300000002092050907400310104094950040939709180'. 03 PIC X(52) VALUE '0050932709076001085890858900208822088220030869408694'. 03 PIC X(52) VALUE '0040890008900005089840898400110932000000021067700000'. 03 PIC X(52) VALUE '0031135000000004109600000000510963109630011045510455'. 03 PIC X(52) VALUE '0020957209572003097120971200409978099780050974509745'. 03 PIC X(52) VALUE '0011159211592002114111141100311246112460041159411594'. 03 PIC X(52) VALUE '0051149211492001000000000000109806098060020961009610'. 03 PIC X(52) VALUE '0030964209642004096400964000509654096540010810400000'. 03 PIC X(52) VALUE '0020815900000003083340000000408344000000050837400000'. 03 PIC X(52) VALUE '0010000000000001091690000000209010000000030906100000'. 03 PIC X(52) VALUE '0040886500000005088550000000108414000000020827400000'. 03 PIC X(52) VALUE '0030813300000004081270000000508039000000010000000000'. 03 PIC X(52) VALUE '0010898600000002089280000000308794000000040881400000'. 03 PIC X(52) VALUE '0050885500000001083990839900208646086460030877308773'. 03 PIC X(52) VALUE '0040873908739005087340873400100000000000011118611186'. 03 PIC X(52) VALUE '0021093710937003109471094700410713107130051088310883'. 03 PIC X(52) VALUE '0010946409464002096690000000309638000000040982009820'. 03 PIC X(52) VALUE '0051012910129001076970000000207791076800030789507895'. 03 PIC X(52) VALUE '0040796207798005078650000000109634094960020974109575'. 03 PIC X(52) VALUE '0030956009419004093650922400508901089010011136900000'. 03 PIC X(52) VALUE '0021120409914003114540990400411288098630051043209795'. 03 PIC X(52) VALUE '0010897308651002090760871500309448091590040967409674'. 03 PIC X(52) VALUE '0050924909249001106690000000210695000000031082500000'. 03 PIC X(52) VALUE '0041090700000005100260000000104971000000020500600000'. 03 PIC X(52) VALUE '0030521800000004051690000000504708000000010948709487'. 03 PIC X(52) VALUE '0020974809629003094270942700409794096200050994909658'. 03 PIC X(52) VALUE '0011099610996002109101091000311150111500041068410684'. 03 PIC X(52) VALUE '0051121311213001000000000000100000000000011069000000'. 03 PIC X(52) VALUE '0021086400000003108050000000410854000000051097700000'. 03 PIC X(52) VALUE '0010981809818002100411004100309843098430040998409984'. 03 PIC X(52) VALUE '0050997609976001088530000000208968000000030881100000'. 03 PIC X(52) VALUE '0040901500000005093280000000109508000000020961300000'. 03 PIC X(52) VALUE '0030901500000004092180000000509510000000010921600000'. 03 PIC X(52) VALUE '0020924600000003093330000000409334000000050930400000'. 03 PIC X(52) VALUE '0010954409544002096460964600309818098180040999009990'. 03 PIC X(52) VALUE '0050995909725001083630000000208865088650030886908869'. 03 PIC X(52) VALUE '0040884608846005088060880600109436000000020915200000'. 03 PIC X(52) VALUE '0030958309312004092950910800509133089980011126300000'. 03 PIC X(52) VALUE '0021166411664003111551115500411135111350051135211352'. 03 PIC X(52) VALUE '0011065500000002105501043800310421104210041064810466'. 03 PIC X(52) VALUE '0051068210682001112240000000211460111470031096010356'. 03 PIC X(52) VALUE '0041149110800005106091021500109545000000020961700000'. 03 PIC X(52) VALUE '0030967809678004094770947700509349093490011106100000'. 03 PIC X(52) VALUE '0021111500000003111120000000411365000000051134800000'. 03 PIC X(52) VALUE '0010814208142002087820878200308371083710040861408614'. 03 PIC X(52) VALUE '0050870008700001000000000000111429000000021131511315'. 03 PIC X(52) VALUE '0031146211462004121391213900511739117390010918400000'. 03 PIC X(52) VALUE '0020918200000003093470000000409194000000050943000000'. 03 PIC X(52) VALUE '0010000000000001087830878300208819088190030920409042'. 03 PIC X(52) VALUE '0040962509399005096660944100108735000000020884900000'. 03 PIC X(52) VALUE '0030910900000004092280000000509076000000011228412284'. 03 PIC X(52) VALUE '0021195711957003118311183100411513115130051184511845'. 03 PIC X(52) VALUE '0010929409294002095750957500309590095900040965009543'. 03 PIC X(52) VALUE '0051003209751001000000000000109608096080021001610016'. 03 PIC X(52) VALUE '0030991909919004097850978500509679096790010894300000'. 03 PIC X(52) VALUE '0020907108848003078990812100408026082400050805608578'. 03 PIC X(52) VALUE '0010905209052002090490904900308931089310040885508855'. 03 PIC X(52) VALUE '0050903309033001000000000000109949000000021013200000'. 03 PIC X(52) VALUE '0031003800000004103670000000510482000000011471000000'. 03 PIC X(52) VALUE '0021450200000003146841457000414623146230051433914339'. 03 PIC X(52) VALUE '0010985409854002098110981100309863098630040994509945'. 03 PIC X(52) VALUE '0050991309913001078450000000208083000000030819300000'. 03 PIC X(52) VALUE '0040837400000005085350000000108318000000020858000000'. 03 PIC X(52) VALUE '0030858400000004087530875300508870088700011195511955'. 03 PIC X(52) VALUE '0021178411784003112651126500411135111350051114700000'. 03 PIC X(52) VALUE '0011378400000002141930000000314140000000041414200000'. 03 PIC X(52) VALUE '0051451400000001134920000000213564000000031419300000'. 03 PIC X(52) VALUE '0041414500000005146260000000109996000000021002000000'. 03 PIC X(52) VALUE '0031002500000004100040000000510453000000010465700000'. 03 PIC X(52) VALUE '0020469000000003048320000000404741000000050490900000'. 03 PIC X(52) VALUE '0011047000000002106730000000310990000000041127100000'. 03 PIC X(52) VALUE '0051142900000001108190000000210597000000031080200000'. 03 PIC X(52) VALUE '0041048100000005104410000000113927000000021404013861'. 03 PIC X(52) VALUE '0031397000000004136460000000512942000000011043709911'. 03 PIC X(52) VALUE '0021053710000003101940976500410712098910051065309524'. 03 PIC X(52) VALUE '0011300013000002126461239800313034126310041304612761'. 03 PIC X(52) VALUE '0051287712877001099050000000209809000000031009010090'. 03 PIC X(52) VALUE '0040944909449005099710997100100000000000010995300000'. 03 PIC X(52) VALUE '0020969700000003100181001800409376093760050948809488'. 03 PIC X(52) VALUE '0010852400000002085780000000308683000000040859900000'. 03 PIC X(52) VALUE '0050841200000001112891128900211018110180031136111361'. 03 PIC X(52) VALUE '0041147411474005115621156200108524085240020857800000'. 03 PIC X(52) VALUE '0030860700000004084620000000508378000000010875900000'. 03 PIC X(52) VALUE '0020888000000003090680000000409162000000050930400000'. 03 PIC X(52) VALUE '0010932908833002087950879500309373090030040925509008'. 03 PIC X(52) VALUE '0050970009203001090490000000208750000000030905009050'. 03 PIC X(52) VALUE '0040898708987005090830893700108549085490020847300000'. 03 PIC X(52) VALUE '0030876708767004090460864700508993087850010877600000'. 03 PIC X(52) VALUE '0020879008790003091390893900409257090590050930909184'. 03 PIC X(52) VALUE '0010979309692002100291002900309993099930040980209802'. 03 PIC X(52) VALUE '0050982109715001107990000000210513103330031066810668'. 03 PIC X(52) VALUE '0041085210663005109011071700108684086840020868508685'. 03 PIC X(52) VALUE '0030867608571004086590865900508944089440010000000000'. 03 PIC X(52) VALUE '0010799107991002084880821200308567083570040842408153'. 03 PIC X(52) VALUE '0050845708259001113690000000211204000000031145400000'. 03 PIC X(52) VALUE '0041128800000005105430000000109138000000020903800000'. 03 PIC X(52) VALUE '0030913300000004089410000000508740000000010861400000'. 03 PIC X(52) VALUE '0020854800000003086370000000408804000000050839800000'. 03 PIC X(52) VALUE '0011051800000002106290000000310988109880041065010650'. 03 PIC X(52) VALUE '0051040400000001082640000000208370000000030851200000'. 03 PIC X(52) VALUE '0040860700000005084980000000109441094410020959409594'. 03 PIC X(52) VALUE '0030962109621004097140961200509412094120011163100000'. 03 PIC X(52) VALUE '0021156400000003116160000000410940000000051111600000'. 03 PIC X(52) VALUE '0010898608274002089280000000308794000000040881400000'. 03 PIC X(52) VALUE '0050885500000001091190911900209099090990030892508925'. 03 PIC X(52) VALUE '0040917109171005091030910300108570000000020860200000'. 03 PIC X(52) VALUE '0030872100000004087550000000508824000000010817408174'. 03 PIC X(52) VALUE '0020842708427003083270832700408126081260050815007969'. 03 PIC X(52) VALUE '0010959309593002096640966400309809098090040981009810'. 03 PIC X(52) VALUE '0050939709397001093260932600209117091170030891208749'. 03 PIC X(52) VALUE '0040919909031005091080910800100000000000010995500000'. 03 PIC X(52) VALUE '0021013700000003104160000000410432000000051051700000'. 03 PIC X(52) VALUE '0010874200000002088210882100308976089760040891108911'. 03 PIC X(52) VALUE '0050927009270001080860793100208454084540030890208760'. 03 PIC X(52) VALUE '0040833208332005091850893800108064080640030817108171'. 03 PIC X(52) VALUE '0040820308203005082120810100109369091990020940409141'. 03 PIC X(52) VALUE '0030964109359004095210919500509404091550010863600000'. 03 PIC X(52) VALUE '0020856000000003085470000000408542000000050852600000'. 03 PIC X(52) VALUE '0011265512167002122660000000313562000000041342113421'. 03 PIC X(52) VALUE '0051342513425001000000000000110952000000021047900000'. 03 PIC X(52) VALUE '0031099400000004110960000000511064000000010837808378'. 03 PIC X(52) VALUE '0020815408154003083280832800408756087560050818408184'. 03 PIC X(52) VALUE '0011051700000002105010000000310441000000041003100000'. 03 PIC X(52) VALUE '0051040500000001104110000000209861000000030965900000'. 03 PIC X(52) VALUE '0040984000000005099670000000108075080750020831400000'. 03 PIC X(52) VALUE '0030815008150004080880808800508394083940011105311053'. 03 PIC X(52) VALUE '0021075510755003109621085400410851108510051090410904'. 03 PIC X(52) VALUE '0010000000000001000000000000100000000000010884108841'. 03 PIC X(52) VALUE '0020880208802003086770867700408902089020050841608416'. 03 PIC X(52) VALUE '0010944509445002094260942600309696095580040978209782'. 03 PIC X(52) VALUE '0050978309783001099090000000209615000000030977709777'. 03 PIC X(52) VALUE '0040993909939005097980979800108068000000020823100000'. 03 PIC X(52) VALUE '0030806700000004079750000000508018000000010942109082'. 03 PIC X(52) VALUE '0020954409262003096060923700409520091790050923809004'. 03 PIC X(52) VALUE '0010765200000002076680000000307946079460040849808498'. 03 PIC X(52) VALUE '0050834108341001085240000000208578000000030862800000'. 03 PIC X(52) VALUE '0040854400000005083780000000111274000000021119100000'. 03 PIC X(52) VALUE '0031087710877004111731086200510882107100010970700000'. 03 PIC X(52) VALUE '0020940200000003094090000000409640094250050956309424'. 03 PIC X(52) VALUE '0010000000000001104460000000210434000000031056700000'. 03 PIC X(52) VALUE '0041056900000005103880000000110485000000021019900000'. 03 PIC X(52) VALUE '0030970100000004098400000000509967000000010930900000'. 03 PIC X(52) VALUE '0020926400000003094410000000409026090260050911900000'. 03 PIC X(52) VALUE '0010999600000002095430000000309563000000040935809358'. 03 PIC X(52) VALUE '0050921409214001106620000000210706000000031035900000'. 03 PIC X(52) VALUE '0041027600000005101960000000109924000000020952900000'. 03 PIC X(39) VALUE '003089890000000408589000000050927000000'. 01 W-WINX-WINX-TABLE REDEFINES W-WINX-WINX-FILLS. 03 WWW-ENTRY OCCURS 1975 TIMES. 05 WWW-DTCD PIC 9(3). 05 WWW-WINX1 PIC 9V9(4). 05 WWW-WINX2 PIC 9V9(4).