oo cobol in z os l.
Download
Skip this Video
Download Presentation
OO Cobol in z/OS

Loading in 2 Seconds...

play fullscreen
1 / 45

OO Cobol in z/OS - PowerPoint PPT Presentation


  • 205 Views
  • Uploaded on

OO Cobol in z/OS. Enterprise Cobol Features. Allows you to define classes with methods and in Cobol Create instances of Java and Cobol classes Invoke methods on Java and Cobol objects Write classes that inherit from Java or Cobol classes Overload methods. Java Interoperability.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'OO Cobol in z/OS' - edena


Download Now An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
enterprise cobol features
Enterprise Cobol Features
  • Allows you to define classes with methods and in Cobol
  • Create instances of Java and Cobol classes
  • Invoke methods on Java and Cobol objects
  • Write classes that inherit from Java or Cobol classes
  • Overload methods
java interoperability
Java Interoperability
  • OO Cobol programs must be compiled with the THREAD option in order to work with Java programs
  • Cobol object instances are freed by the Java runtime system GC
jni support
JNI Support
  • Basic Java features are accessed using Cobol syntax
  • In Enterprise Cobol you can also invoke the Java Native Interface (JNI) to obtain other Java-oriented capabilities
  • For example, converting PIC X type data to Java String objects
wrapper classes
Wrapper Classes
  • Legacy procedural Cobol code can be wrapped as a Cobol class to allow existing code to be called from Java
  • Java code can create instances of Cobol classes and invoke Cobol class methods
  • Java code can extend Cobol classes
restrictions
Restrictions
  • Cobol class definitions can’t contain EXEC SQL statements
  • Cobol class definitions can’t contain EXEC CICS statements
a cobol driver to invoke java
A Cobol Driver to Invoke Java

cbl dll,thread

Identification division.

Program-id. "tstDoor" recursive.

Environment division.

Configuration section.

Repository.

class Door is "Door".

Data Division.

Procedure Division.

DISPLAY "COBOL PROGRAM tstDoor ENTERED"

INVOKE Door "doSomething"

DISPLAY "RETURNED FROM JAVA Door TO tstDoor“

GOBACK.

END PROGRAM "tstDoor".

defining a cobol class
Defining a Cobol Class

Identification division

Environment division (configuration section only)

Factory definition

– Identification division

– Data division

– Procedure division (containing one or more method definitions)

Object definition

– Identification division

– Data division

– Procedure division (containing one or more method definitions)

creating a java class in unix
Creating a Java Class in UNIX
  • Use TSO OMVS to move to UNIX
  • Build a directory for the class (cd, mkdir)
  • Save an env file in the Directory (see env panel that follows)
  • Use TSO OEDIT to create a .java file in the directory
  • Compile the .java file with javac. Make sure you allocate enough space when you sign on to TSO
door java
Door.java

public class Door

{

private String state;

public Door()

{

System.out.println("building a closed door...");

state = "closed";

}

public Door(String s)

{

System.out.println("building the door...");

if (s.equals("open"))

{

state = "open";

}

else

{

state = "closed";

}

}

door java11
Door.java

public void open()

{

System.out.println("About to open the door...");

if (state.equals("open"))

{

System.out.println("The door is already open.");

}

else

{

state = "open";

}

}

public void close()

{

System.out.println("About to close the door...");

if (state.equals("closed"))

{

door java12
Door.java

System.out.println("The door is already closed.");

}

else

{

state = "closed";

}

}

public String toString()

{

return "The door is " + state + ".";

}

public static void doSomething()

{

System.out.println("I did something.");

}

public void print()

{

System.out.println("The door is " + state + ".");

}

}

an env file
An env File

PATH=/bin:/u/Java5_31/J5.0/bin.

LIBPATH=/lib:/usr/lib:/u/Java5_31/J5.0/bin:/u/Java5_31/J5.0/bin/j9vm

CLASSPATH=/u/csup004/Door

The CLASSPATH should point to the directories that contains your .class files

compile link run jcl
Compile, Link, Run JCL

//CSUP004O JOB 'WOOLBRIGHT',CLASS=A,MSGCLASS=A,TIME=(0,5),

// LINES=5,MSGLEVEL=(1,1),NOTIFY=&SYSUID,REGION=0M

// SET COBPRFX='IGY410'

// SET LIBPRFX='CEE'

//*

//COMPILE EXEC PGM=IGYCRCTL,

// PARM='SIZE(5000K),LIB'

//SYSLIN DD DSNAME=&&OBJECT(TSTDOOR),UNIT=SYSDA,DISP=(NEW,PASS),

// SPACE=(CYL,(1,1,1))

//SYSPRINT DD SYSOUT=*

//STEPLIB DD DSN=&COBPRFX..SIGYCOMP,DISP=SHR

// DD DSN=&LIBPRFX..SCEERUN,DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

compile link run jcl15
Compile, Link, Run JCL

//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSIN DD *

cbl dll,thread

Identification division.

Program-id. "tstDoor" recursive.

Environment division.

Configuration section.

Repository.

class Door is "Door".

Data Division.

Procedure Division.

DISPLAY "COBOL PROGRAM tstDoor ENTERED"

INVOKE Door "doSomething"

DISPLAY "RETURNED FROM JAVA Door TO tstDoor"

compile link run jcl16
Compile, Link, Run JCL

DISPLAY "RETURNED FROM JAVA Door TO tstDoor"

GOBACK.

END PROGRAM "tstDoor".

/*

//LKED EXEC PGM=IEWL,

// PARM='RENT,LIST,LET,DYNAM(DLL),CASE(MIXED)'

//SYSLIB DD DSN=&LIBPRFX..SCEELKED,DISP=SHR

// DD DSN=&LIBPRFX..SCEELKEX,DISP=SHR

//SYSTERM DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SYSLMOD DD DSN=&&GOSET(TSTDOOR),DISP=(MOD,PASS),

// UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)),DSNTYPE=LIBRARY

//SYSDEFSD DD DUMMY

//OBJMOD DD DSN=&&OBJECT,DISP=(OLD,DELETE)

//SYSLIN DD *

INCLUDE OBJMOD(TSTDOOR)

INCLUDE '/u/Java5_31/J5.0/bin/j9vm/libjvm.x'

INCLUDE '/usr/lpp/cobol/lib/igzcjava.x'

/*

compile link run jcl17
Compile, Link, Run JCL

//GO EXEC PGM=TSTDOOR,

// PARM='/ENVAR("_CEE_ENVFILE=/u/csup004/env")XPLINK(ON)

// POSIX(ON)'

//* POSIX(ON)'

//*STEPLIB DD DSN=CSUP004.LOAD,DISP=SHR

//STEPLIB DD DSN=*.LKED.SYSLMOD,DISP=SHR

// DD DSN=&LIBPRFX..SCEERUN2,DISP=SHR

// DD DSN=&LIBPRFX..SCEERUN,DISP=SHR

//SYSOUT DD SYSOUT=*

//CEEDUMP DD SYSOUT=*

//SYSUDUMP DD DUMMY

//JAVAOUT DD PATH='/u/csup004/javaout',

// PATHOPTS=(OWRONLY,OCREAT,OTRUNC),

// PATHMODE=(SIRUSR,SIWUSR,SIRGRP)

//

sample compile link run jcl
Sample Compile, Link, Run JCL
  • CSU.PUBLIC.OO(OOMAIN1) OR

CSU.PUBLIC.OO(CJSTATIC)

invoke new
INVOKE NEW
  • Use INVOKE class NEW to instantiate an object
  • The returned reference must be saved in an object reference variable

01 myObj object reference DOOR.

INVOKE Door NEW

RETURNING myObj

invoke new21
INVOKE NEW
  • The constructor call based on the pattern of parameters that are passed.

INVOKE Door NEW

using by value jstring1

returning myDoor

01 jstring1 object reference jstring.

invoke a static method
INVOKE A STATIC METHOD

INVOKE Door "doSomething "

  • Door is the class.
  • “doSomething” is the static method in Door
invoking instance methods
INVOKING INSTANCE METHODS

01 myObj object reference Door.

================================

INVOKE Door NEW

RETURNING myObj

INVOKE myObj "open"

INVOKE myObj "print"

  • Class Door contains instance methods “open” and “print” which have no parms
passing parms returning values
Passing Parms, Returning Values

working-storage Section.

01 myObj object reference Door.

01 intval10 pic s9(9) BINARY value 10.

01 intval20 pic s9(9) BINARY value 20.

01 intval30 pic s9(9) BINARY value 0.

Procedure Division.

DISPLAY "COBOL PROGRAM tstCalc ENTERED"

INVOKE Calculator NEW

using by value intval10

returning myObj

INVOKE myObj "add"

using by value intval20

returning intval30

using parameters in invoke
USING Parameters in INVOKE
  • Pass parameters BY VALUE when using INVOKE
  • The BY VALUE phrase specifies that the value of the argument is passed, not a reference to the sending data item. The invoked method can modify the formal parameter that corresponds to an argument passed by value, but changes do not affect the argument because the invoked method has access only to a temporary copy of the sending data item.
returning constraints
Returning Constraints

If the RETURNING item is not an object reference, the following rules apply:

– If the target method is implemented in COBOL, the returning item in the INVOKE statement and the RETURNING item in the target method must have an identical data description entry.

– If the target method is implemented in Java, the returning item in the INVOKE statement must correspond to the Java type of the method result, as described in “Interoperable Types”

returning constraints29
Returning Constraints

If the RETURNING item is an object reference, the RETURNING item specified in the INVOKE statement must be an object reference typed exactly to the class of the returning item specified in the target method. That is, the class specified in the returning clausemust not be a subclass or a superclass of the class of the returning item in the target method.

oo exercise 1
OO Exercise #1
  • In UNIX, build a Java class called Point that stores a pair of integers (x and y coordinates). Put in the normal things that Java Classes should have (Constructor, accessors, mutators, toString)
  • Build a second Java class called PointStuff that has a static method called distance which is passed two Point objects. The method computes the distance between the two points and returns the distance

√((x1-x2)2 –(y1-y2)2.

  • Write a Cobol program that creates two Point objects and passes them to distance. Print out the result the method returns.
building cobol classes
Building Cobol Classes

IDENTIFICATION DIVISION.

CLASS-ID. Account inherits Base.

The class ID names the class you are defining. Base represents java.lang.Object and is referenced in the Repository.

repository paragraph
Repository Paragraph

Environment Division.

Configuration Section.

Repository.

Class Base is “java.lang.Object”

Class Account is “Account”.

  • The Repository is used to relate the internal class names to external class names.
  • The Repository has rules for generating external names if they are omitted.
  • Extenal names can include fully qualified package names.
object paragraph
Object Paragraph

Identification Division

Object.

… data and methods

End Object.

  • The Object paragraph is used to define the instance data and methods of the class.
  • The Object paragraph is immediately preceded by an Identification Division header. (Different from the one that starts the class.)
working storage in object
Working Storage in Object

Identification Division

Object.

Data Division.

Working Storage Section.

01 balance pic s9(6) value 0.

End Object.

working storage in object35
Working Storage in Object
  • Working Storage fields become instance data for Cobol objects.
  • Instance fields are initialized with value clauses in Working Storage
  • Fields are allocated when the object is instantiated
  • Fields exist until the object is garbage collected by the Java run time
working storage
Working Storage
  • To initialize more complicated objects, you need to write special initialization methods in a Factory
  • Essentially, there is one constructor for Cobol objects
  • Fields are equivalent to Java private nonstatic member data
  • No other class or subclass can reference Cobol instance data directly
  • Provide sets and gets to make fields accessible
instance methods in object
Instance Methods in Object
  • Instance methods are defined in the Procedure Division of the Object paragraph
  • Each method has four divisions followed by END METHOD marker
instance method divisions
Instance Method Divisions

Identification Division.

Method-id. “init”

Environment Division

Input-Output Section.

File-Control.

Select...myFile assign to MYFILE

… used to relate filenames used in method to external names (optional)

instance method divisions39
Instance Method Divisions

Data Division.

File Section.

…used to define a file record layout

Local-Storage Section.

…used to define local variables which are allocated upon entry and freed upon return. Put a value clause to initialize a variable upon entry

instance method divisions40
Instance Method Divisions

Data Division.

Working-Storage Section.

… One copy of this storage is allocated at runtime. Data persists in its last used state. One copy exists for all threads.

instance method divisions41
Instance Method Divisions

Data Division.

Linkage Section.

… Used to describe parameters and fields that are returned from the method.

instance method divisions42
Instance Method Divisions

Procedure Division.

… used to define the executable code for the method

You may not code:

ENTRY, EXIT, ALTER, GOTO, SEGMENT-LIMIT,

USE FOR DEBUGGING

SORT or MERGE

You may code:

EXIT METHOD

GOBACK

passing parameters
Passing Parameters
  • Specifiy parms in the division header.
  • Parms must be passed by value.
  • Describe each parm in Linkage as 01 or 77 level items
  • Data types must be interoperable with Java

Linkage Section.

01 X pic s9(9) binary.

01 Y pic s9(9) binary.

Procedure Division using

by value X, Y

returning a parm
Returning a Parm
  • A method can return a value. This is evident when the method is invoked:

INVOKE Calculator “add”

using by value X Y

returning Total

Variables that are returned must be described as 01 or 77 items in the Linkage

Section

oo exercise 2
OO Exercise #2
  • Build a Calculator class that has a single private variable “regValue” that will hold an integer (Pic S9(9) Binary).
  • Build an “setRegValue” method that changes the stored value
  • Build a “getRegValue” method that returns the stored value
  • Build an “add” method that passes an integer, adds it to the stored value and returns the sum
  • Build a “print” method that prints the object