OO COBOL Application Development

1
OO COBOL Application Development

• Danny Maijer
• Kees Tieleman
• Sogeti Netherlands
• World Trade Centre, Amsterdam
• 20 April 2006

2
Agenda

• Benefits of OO COBOL in .Net
• Learning curve OO COBOL in .Net
• Application Development Framework (ADF)
• Personal experience with ADF
• By Kees Tieleman

3
Benefits of OO Cobol in .Net

• No need to transform COBOL to another programming
  language
• All business logic remains intact
• OO concepts can be adopted easily
• Programming languages can be mixed

4
Learning curve to .Net
Source Gartner (nov. 2005)
5
A mainframe developer in .Net

Feels like an Englishman in New York
6
ADF makes life easy
Developers write familiar COBOL code
COBOL business logic
ADF GUI

• ADF provides the GUI mechanism
• utilizing the .Net classes

7
Usage of ADF

• Migration of existing applications (Mikado)
• Extending migrated applications
• Building new applications

8
Benefits of ADF

• Consistent GUI
• Fast application development
• Simplified maintenance
• Concentrate on business rules, not technology
• No need to (re)train current staff intensively

9
Hands-on experience

• Kees Tieleman

10
Learning curve OO COBOL in .Net
Source Gartner (nov. 2005)
11
Learning curve using ADF
Visual Studio 2005 IDE
12
(No Transcript)
13
Learning curve using ADF
Visual Studio 2005 IDE
2 days
Some OO Cobol
14
Some OO Cobol additions

• OO Cobol equivalent of MOVE for objects

set Boek-ISBN to self"textISBN""T
ext"
15
Learning curve using ADF
Visual Studio 2005 IDE
2 days
Some OO Cobol
1 day
Application Development Framework
16
A simple maintenance form
17
ADF example

• Validate

method-id. ValidateRecord as
"ValidateRecord" override public.

linkage section. 01 ReturnValue object
reference class-boolean. procedure division
returning ReturnValue. gt Validate data values.
return True or False. set ReturnValue
to true if Boek-Title spaces
set ReturnValue to false
invoke Error-Control"SetError"(self"textTitle"
, "Title has to be entered.")
else invoke Error-Control"SetError"(self
"textTitel", "") end-if . end method
ValidateRecord.
set ReturnValue to true if
Boek-Title spaces set ReturnValue
to false invoke Error-Control"SetError"(self
"textTitle", "Title has to be
entered.") else invoke Error-Control"SetError"
(self"textTitel", "") end-if .
18
Learning curve using ADF
Visual Studio 2005 IDE
2 days
Some OO Cobol
1 day
Application Development Framework
2 days
Grand total
19
Learning curve OO COBOL in .Net
Source Gartner (nov. 2005)
20
Summary

• OO COBOL in .Net
• many advantages
• one significant disadvantage
• ADF
• eliminates long learning curve
• enables you to retain current staff
• bridges the gap between your application and .Net

21
With help of the ADF

Visit the Sogeti stand for more information
about the ADF and a demo
Back home