1. Expanding the O-O toolkit at Marks and Spencer

2. Agenda • Marks and Spencer (M&S) • Tata Consultancy Services (TCS) • M&S Store Growth Project • Multi Dimension Array Class • Daemon Monitor Class

3. Marks and Spencer (M&S) • UK and Eire based • International Franchise – Europe, Middle East, Hong Kong, Canada etc • Expanding into India and China with partners

4. Tata Consultancy Services • IT Development Partner at M&S (TCS.COM) • Initial 5 year contract • TATA.COM – Motors, Housing, Hotels, Food, Technology

5. M&S Store Growth Project • 999 Store limit arrays • Depot Expansion • Batch schedule

6. Multi Dimension Array Class • Unbounded 3 dimensional array • 3 stringlists for indexes • 1 stringlist with all indexes and value • Forward compatible with Sirius (hopefully)

7. Multi DimArray Class Methods New (Constructor) %pop is object multiDimArray %pop = new(30,30,2) %pop:default = ‘0’ %pop:useDefault = True

8. Multi DimArray Class Methods add (Function) %pop:add(9956 , Austria , Irish , M) %pop:add(230 , Austria , Irish , F) %pop:add(590 , Austria , Irish , CH) …. %pop:add(3205 , USA , Welsh , M) %pop:add(99456 , USA , Welsh , F)

9. Multi DimArray Class Methods item (Function) print ‘Welsh Men in USA = ‘ with %pop:item( USA , Welsh , M) … Welsh Men in USA = 3205

10. Multi DimArray Class Methods count (Function) print ‘Num Countries = ' %pop:count(1) print ‘Nationalities = ' %pop:count(2) print ‘Groupings = ' %pop:count(3) … Num Countries = 591 Nationalities = 430 etc

11. Multi DimArray Class Methods nameByNumber (Function) print ‘Countries : ‘ … for %i from 1 to %pop:count(1) print %pop:nameByNumber(1,%i) with ‘, ‘… end for … Countries : Austria, Canada, England,…,USA

12. Multi DimArray Class Methods itemByNumber (Function) for %i from 1 to %pop:count(1) for %j from 1 to %pop:count(2) for %k from 1 to %pop:count(3) print %pop:nameByNumber(1,%i) and – %pop:nameByNumber(2,%j) and - %pop:nameByNumber(3,%k) and – %pop:itemByNumber(%i,%j,%k)

13. Multi DimArray Class Methods itemByNumber (Function) continued Austria Irish M 9956 Austria Irish F 230 Austria Irish CH 590 … USA Welsh M 3205 USA Welsh F 99456

14. Multi DimArray Class Methods Other methods … %pop:removeItem (%i,%j,%k) %pop:print %popUSA = %pop:Subset (USA) %popIrish = %pop:Subset (,Irish)

15. DaemonThread Class • Use Independent daemon to run user services in M204 Online • Simple starting and control of free running services • Allow user service to easily report its status

16. DaemonThread Class Methods • new (Constructor) • newDaemon • checkpoint • auditDaemon & auditLineDaemon • closeDown • fail • cancel

17. Alert Monitor • Interrogate Threads based on control data • Report Failures to SOLVE (Operators) • Check for online failure and report

19. Support Monitor • Janus monitor • Monitor Threads and update control data • Request Service cancellation

22. Questions???

23. Patrick.Bower@marks-and-spencer.com Paul.Webb@marks-and-spncer.com