John West

1
John West
Application Delivery Manager Department of
Industry Resources Western Australia
2
Mainframe Migration

• Department of Industry Resources

3
What DoIR does

• Regulate Resource industries
• Facilitate major industry investment projects
• Promote Western Australian industries
• Safeguard the environment
• Promote safety and health at work
• Promote sustainable development

4
About DoIR

• Head office in Perth
• 30 overseas and regional offices
• 1100 staff
• Annual budget - 102M
• Annual IT spend - About 10M
• Annual IT budget - 6M

5
Why Migrate?

• Cost outsourced mainframe services _at_ 1.7M and
  increasing
• Performance increasing response times
• Technical skills lost when outsourced
• Ending Outsourcing contract regain control
• Need to have convergent technologies
• Led to the decision to migrate
• off the mainframe in May 2001

6
Why Micro Focus?

• Two types of proposal
• Minimise time, cost and risk
• Minimise testing and training
• Maximise use of existing source code
• Choice of 2 COBOL IDEs
• Animator was the difference

7
Pluses

• Animator also with APPC batch programs
• Control of the CICS environment
• Easy Change Management
• COBOL debug facility
• Access to all Microsoft Windows services eg
  find
• Copying between Servers and PCs is easy
• Fast environment for developers
• Quality response and follow-up from Micro Focus

8
Minuses

• Debug facility operates on .cbl file but change
  the .ccp file

9
Legacy Environment

• 8 information systems
• 1000 programs, 4m LOC CICS and batch COBOL
• 1500 copy books
• IBM mainframe
• COBOL LE, SAS, CICS, TSO, DB2
• Replication to 20 servers every 2 minutes
• APPC partner programs
• Databases for Client Server and Web systems

10
Timeline
11
The migration timeline
12
Target Environment

• Windows 2000 servers
• Prod and Test CICS servers
• Prod, Test, Dev and Warehouse database servers
• Batch server for COBOL, SAS and Legacy
  environment
• Replication to Warehouse and Regional servers
• Terminal server environment

13
Micro Focus environment
14
Extract and Compile

• SAS job to unload PDS to flat file
• 1000 programs 1Gb 4 hours
• FTP data to PC
• Access to store data
• 4,147,522 rows 12,409 entities
• Compare operands, operators with standards
• Parse code substitute 8 phases for global
  corrections
• Write source code compile options
• Compile time for program library 90 minutes

15
Operation and Operand Count
16
Compile Summary
17
Migration Libraries
18
Monitoring Changes
19
Tracking the Problems
20
Problems Categorized
21
The Participants

• IT 2 Full time
• 5 on Management Committee
• 4 part time Infrastructure
• 10 part time Developers
• Users 25 testers
• Umbrella Consulting 1
• KAZ 8 full and part time
• CSC 5 occasional

22
The Staff
23
The savings
24
Now we have

• Response time lt 3 seconds
• No database contention
• Responsive change management
• 1 part-time programmer
• Happy users

25
In conclusion

• The migration was implemented on 4 May 2003 at a
  cost of 1.3M saving 700K-gt1m
• Umbrella Consulting and KAZ Computer Systems
  performing technical management and
  implementation roles
• DoIR staff provided management, network and
  Windows system admin services
• Users retested all systems
• Never looked back

26
John West
Application Delivery Manager Department of
Industry Resources Western Australia
27
Introducing Net Express with .NET

• John Billman
• Product Director, Micro Focus Net Express

28
Micro Focus the vision

• Defining the future of legacy
• across platforms
• across architectures
• with our partners
• Unlocking the business value in legacy

Protecting and extending your investment
29
Windows Development Deployment

• Net Express
• COBOL development environment
• Take core COBOL business processes extend them
  to meet todays business needs
• Net Express Professional Edition
• Revolve Net Express
• Combine Analysis Tools with Development Process
• Application Server for Net Express
• Designed for performance and reliability
• Enterprise Server for Windows
• Scalable, Managed, Transactional COBOL Service
  Deployment Environment

COBOL Modules Web Services COM Components EJBs
.NET Web Services Java J2EE WebApp Servers
Business Rule Development
Other Languages
Open Middleware Component Architectures
C, C, Java HTML, XML
Faster Development, Flexible Deployment
30
Micro Focus Net Express with .NET

• Adds .NET Support to existing Net Express 4.0
• COBOL will compile to MSIL
• and run under the Common Language Runtime
  within the .NET Framework
• COBOL tools will be integrated with Visual Studio
  
• and Visual Studio .NET will be bundled with
  Micro Focus Net Express

31
COBOL Inside the .NET Framework

• COBOL an equal player in .NET
• COBOL generates IL as other Microsoft languages
• COBOL is deployed inside the .NET Framework under
  the CLR
• COBOL gains access to Framework classes and
  functionality

32
Create,Reuse and Extend

• Reuse existing COBOL Business logic in .NET
• Use Procedural or Object Oriented COBOL under
  .NET
• Extend COBOL applications to utilize .NET
  functionality
• Access to .NET Framework Classes

33
COBOL and SQL

• Existing OpenESQL applications can be reused
  under .NET
• EXEC SQL SELECT A.NAME ,A.SALARY
• INTO STAFF-NAMESTAFF-NAME-NULL,
• STAFF-SALARYSTAFF-SALARY-NULL
• FROM STAFF A WHERE ( A.ID STAFF-ID )
• END-EXEC
• ADO.NET classes can be called directly from COBOL
• OpenESQL Assistant speeds COBOL SQL Development
• OpenESQL mapped to ADO.NET

34
COBOL meets Visual Studio .NET

• Micro Focus Net Express will integrate COBOL into
  Visual Studio .NET

• Composite Application Development
• Common Tooling
• Seamless Debugging

35

• Micro Focus Net Express with .NET
• DEMONSTRATION

36
Reusing Dialog System Assets

• Interoperability wizard aids reuse of Dialog
  System applications
• Parses application code
• Realigns object references in the data block
• Lists all calls, method invokes and entry points
• Generates all the proxy classes and programs

37
Micro Focus COBOL/XML Syntax

• Provide a higher level COBOL orientated approach
  to COBOL/XML
• Adds significant new syntax to handle XML
  documents and schemas
• Based on familiar approach used with COBOL I/O
  support
• Provides both SAX style or DOM style parsing
• Multiple input sources, extremely flexible XML
  handling
• Create and Consume XML Documents from COBOL

38
Basic MF COBOL XML handler

• set sourceformat(free) p(prexml) o(basic.pp)
  endp
• SELECT myxml ASSIGN ADDRESS OF mybuff
• ORGANIZATION IS XML
• DOCUMENT-TYPE "mybuff.xsd"
• FILE STATUS IS mybuff-status.
• XD myxml.
• 01 myxml-name PIC X(80) IDENTIFIED BY "name".
• WORKING-STORAGE SECTION.
• 01 mybuff PIC X(80) VALUE "ltnamegtBarry amp
  Laurencelt/namegt".
• 01 mybuff-status PIC S9(9) COMP-5.
• PROCEDURE DIVISION.
• OPEN INPUT myxml
• READ myxml
• DISPLAY "Status " mybuff-status
• DISPLAY "Name " myxml-name
• CLOSE myxml
• STOP RUN.

39
XML Schema Mapping
CBL2XML
COBOL Record
XML Schema

• Providing the ability to convert from an XML W3C
  Schema to a COBOL Record and Vice Versa.
• Providing the option to narrow that interface
• Defining special/default actions on a field by
  field basis will be provided.
• Apply an XML layout to an existing COBOL
  application

40
Expose COBOL as Web Services

• Use Visual Studio .NET to create and extend COBOL
  applications
• CLASS-ID. Stock INHERITS WEBSERVICE.
• REPOSITORY.
• CLASS WEBSERVICE AS "System.Web.Services.WebSer
  vice"
• CLASS WEBMETHOD AS "System.Web.Services.WebMeth
  odAttribute".
• OBJECT.
• PROCEDURE DIVISION.
• METHOD-ID. StockQuote CUSTOM-ATTRIBUTE IS
  WEBMETHOD.

41
Micro Focus Net Express with .NET

• Available for download today from
  supportline.microfocus.com
• Prerequisites Net Express 4.0 and Visual Studio
  .NET 2003
• Alternatively order a CD set
• Includes Visual Studio .NET 2003 Premier Partner
  Edition
• Or try On-Line using the Visual Studio .NET
  Hosted Experience
• See www.microfocus.com/products/netexpress

42
Early Adopter Programs

• Micro Focus wishes to partner with selected
  customers to get a head start on
  creating/extending/reusing COBOL using Windows
  64-Bit.
• In this way, you can help shape this
  infrastructure according to your needs, and we
  can be sure that our products address real-world
  applications.

43
Introducing Net Express with .NET

• John Billman
• Product Director, Micro Focus Net Express

44
In ClosingKeith Mante
45
The new chapter in the future of legacy

• Migrate from anywhere to Windows
• to deliver lower TCO
• Exploit legacy with .NET
• to drive agility
• Via a broad and committed partner community

46
Thank You

• Partners
• Peter Hind Analyst CIO,IDC
• Bill Karagounis Microsoft
• Matthew Marks FNS
• John West - Dept of Industry and Resources
• John Billman Micro Focus
• You our customers