Define Service Interface Operations

A service interface is defined as a series of operations. In each operation, you create service interface fields that correspond to your COBOL program's entry point fields. At runtime, data is sent between the service and the program via these fields.

In COBOL, you describe a data item's data type precisely, using its picture clause. Java uses its own set of data types. The Interface Mapper enables you to create mappings between the COBOL types in your program and the types available in Java.

You'll use the Interface Mapper to define streamlined access to your program by defining an operation for each of the program's four possible actions - Read record, Add record, Delete record, and Get next record. Each operation requires the client to send just the data needed by that particular operation.

Add Operation

The first logical operation to define for your service interface is one that enables us to add a record. The process entails identifying the COBOL program that contains the Add action, identifying the COBOL Entry point code for that program, determining which fields send and receive information, and defining your operation to interact with the program, specifying the Add action.

Create the Add operation

First, you create the operation, giving it a name and identifying the program and entry point with which you want to interact. In this case, you want to create an operation that enables us to add a record.

1. From the Team Developer Tree view, expand ProgramEJB > Java Interfaces.
2. Right-click the ProgramEJB Java interface and select New > Operation from the context menu.
3. In the Operation name field, type Add.

   From studying the COBOL code in the application, you know that the book.cbl program performs the add record action.

4. From the Entry point drop-down list, select BOOK.
5. Click OK.

Define an Interface Field

You see from the book.cbl source that lnk-file-status field returns the status of the last file input/output action. You will create an interface field to contain the value so the client can send it to the application.

1. From the Team Developer Tree view, expand Java Interfaces > ProgramEJB; then double-click Add. This shows the Add operation in the Interface Mapper.
2. Drag lnk-file-status from the Linkage Section pane to the Add Operation - Interface Fields pane.

   This creates an interface field called lnk_file_status. A mapping is automatically created between the new field and the entry point field it was created from. The purpose of this field is to relay information back to the user; therefore you need to change its direction from Input to Output.

3. Double-click lnk_file_status in the Add Operation - Interface Fields pane.
4. Click Output; then click OK.

Define a Group of Interface Fields

You see from the COBOL source that to add a record, the client must supply all the data needed to add the new record to the indexed file. The Book program receives the data in the group item lnk-b-details. For this operation, you need to define a set of interface fields to hold this data.

1. Drag lnk-b-details from the Linkage Section pane to the Add Operation - Interface Fields pane.

   The default direction, Input, is what you want because this group of fields will receive data and then pass it on to the data items in lnk-b-details.

   By default, the name of the new interface field group created is lnk_b_details. However, in this case you should change the default name. You need to use this same group of source fields to create similar groups of interface fields in other operations in this same service interface. The Interface Mapper requires that interface field groups have unique names across operations in the same service interface. Therefore, because the default name for each of these would be identical in each operation, you must change the name in each operation to ensure that each is different from that used in other operations.

2. In the Add Operation - Interface Fields pane, double-click lnk_b_details and change the name to addop_details; then click OK.

Change a Type

When defining a service interface, knowledge of the application and how it is used can enable you to make refinements to the new interface. For example, looking at the Linkage Section pane, notice that the retail price field lnk-b-retail is defined as 9(2)V9(2). If you fully expand the tree for addop_details in the Add Operation - Interface Fields pane, you will see that lnk_b_retail has therefore defaulted to BigDecimal. Imagine that you know from your experience with the application that the retail prices are in fact always in whole numbers of dollars, and that lnk_b_retail can therefore be simply an int. You'll change the type of the lnk-b-retail interface field to reflect this.

1. If not already expanded, fully expand the tree for addop_details in the Add Operation - Interface Fields pane.
2. Select int from the Type dropdown list; then click OK.

Define a COBOL Assignment

When the Book program executes, it uses the value in the lnk-function field to determine which action to perform. In cases like this where the value required to initialize an action is known, you create a COBOL Assignment field rather than an interface field, and assign it the value required by the program to ensure a specific action.

For the Add operation, you want the program to perform the add-record action. From looking at the source code, you know that when the value in the lnk-function field is 2, the program performs an add-record action.

1. In the Linkage Section pane, right-click the lnk-function field, and select New Assignment from the context menu.
2. In the Value field, type 2; then click OK.
3. Click File > Save to save the service interface.

The Completed Add Operation

Let's look in a little more detail at what this means.

The correspondence between the COBOL Entry Point fields and interface fields is set up when you do the drag-and-drop. If you right-click an elementary interface field, such as lnk_file_status, and click Mapping, you see a dialog box showing the COBOL Entry point field associated with it. This correspondence is not affected by the names or order of interface fields. You can use the dialog box to alter the mapping if you want.

In the messages passed between the service and a client, the interface fields are identified by keywords. Their names in the Interface Fields pane are used as the keywords. Nevertheless, their order in the Interface Fields pane is the order in which they are seen by a client, so it is good practice to be aware of this order. You can re-order fields by dragging them.

Next Operation

In your indexed file, the primary key is the stock number. The program action that gets the next record takes a stock number as input, finds the record in the data file that has that stock number, and returns the next record found.

The program uses the COBOL Entry Point field lnk-b-details as both an input and an output field, although on input lnk-b-stockno is the only part of lnk-b-details actually used. In your operation, you will use the same field to access the program action that gets the next record in the data file.

Create and define the Next operation

1. Right-click the ProgramEJB Java interface and select New > Operation from the context menu.
2. In the Operation name field, type Next.

   The Entry point list shows only the book program, which is already selected for you. This is because each service interface can use only one program, and you specified the book program in the Add operation you defined earlier for this same service interface.

3. Click OK.

   The Next operation is added to the list of Java Interfaces in COBOL Explorer.

4. Click the Next operation to refresh the Interface Mapper.

   The Next Operation - Interface Fields pane is blank in anticipation of new definitions for this operation.

5. Based on the instructions for the Add operation, define a COBOL Assignment for the lnk-function field and set its value to 4. This is the value that instructs the program to get the next record.
6. Create an interface field named lnk_file_status from the COBOL Entry Point field link-file-status; then set its direction to Output.

   The program action that retrieves the next record gets the required record from the data file and returns it. So you need a set of output fields into which the fields of this record return.

7. Drag lnk-b-details from the Linkage Section pane to the Next Operation - Interface Fields pane.

   The new interface field created is called lnk_b_details. As you did when defining the Add operation, you will change the field name to ensure that it is different from the name used for similar groupings in the other operations for this interface.

8. Double-click the lnk_b_details field name in the Next Operation - Interface Fields.
9. Change the name to nextop_details, and change the direction to Output; then click OK.
10. Fully expand the tree for nextop_details, and change the type of lnk_b_retail from BigDecimal to int, just as you did for the Add operation.

    In the application, the lnk_b_stockno field serves as an output field and is also the field in which the key identifying the required record is input. To handle this, you will now create an input interface field to accept the key.

11. In the Linkage Section pane, fully expand lnk_b_details.
12. Drag lnk-b-stockno from the Linkage Section pane to the Next Operation - Interface Fields pane and drop it. In the Next Operation - Interface Fields pane, rearrange the fields by moving lnk-b-stockno to the top of the list. This ensures that the new interface field is first on the list and thus the first field to supply its value to the program.
13. Click File > Save to save the service interface.

The Completed Next Operation

Read Operation

For the program action that reads a record, the caller supplies a book's stock reference number, title, or author in the appropriate field in the lnk-b-details group. The program looks it up in the indexed file and returns the data back to the lnk-b-details group. Therefore, the program uses the fields contained in the lnk-b-details group as both input and output. On input, the program expects the stock number, title, or author to be supplied; the other data items in lnk-b-details are ignored. On output, lnk-b-details is used to return the record indicated by the supplied stock number, title, or author.

Create and define the Read operation

1. Create a new operation named Read that uses the BOOK entry point.
2. Create a COBOL Assignment for the lnk-function field and set its value to 1. This is the value that instructs the program to read a record.
3. Create an interface field named lnk_file_status from the COBOL Entry Point field lnk-file-status; then set its direction to Output.

   The program functionality that reads a record gets the required record from the data file and returns it. Therefore, you need a set of output fields in which to return the fields of this record.

4. Drag lnk-b-details from the Linkage Section pane to the Next Operation - Interface Fields pane.
5. Change the name of the lnk_b_details interface field to readop_details, and change its direction to Output.
6. Expand the tree for readop_details and change the type of lnk_b_retail from BigDecimal to int.
7. Save the service interface.

Define a reusable field

You now need to define your input fields. In doing this, you will demonstrate another feature of the Interface Mapper -- Reusable Fields. You create reusable fields from COBOL entry point fields for the purpose of using them across operations. In Java terms, a reusable field is a custom record according to the CustomRecord interface defined in the Common Client Interface (CCI) from Sun. For Java-based service interfaces, the Interface Mapper assigns a custom data type to interface fields created from reusable fields based on the CCI. Here you will create a group of reusable fields that contains only the fields used by the service interface, eliminating those that are not.

1. Drag lnk-b-details to the Reusable Fields pane.
2. Fully expand the tree under lnk_b_details in the Reusable Fields pane.
3. Ungroup lnk_b_text_details so that all the items are at the same level. To do this, right-click each of the fields under lnk_b_text_details; then click Ungroup for each.
4. Delete each elementary field in the Reusable Fields pane except lnk_b_title, lnk_b_author and lnk_b_stockno. To delete a field, either click it and press Delete or right-click it and select Delete from the context menu. If the tree view contracts, expand it to see what you have created.

   You have defined a group of reusable fields as shown here:
   
   

5. Drag lnk_b_details from the Reusable Fields pane to the Interface Fields pane. Be sure not to drop it amongst the fields that are subordinate to readop_details.

   This creates an interface field of type lnk_b_details. By default, its name is also lnk_b_details.

   Note: If the new interface field does not appear automatically, double-click the entry for the Read operation in COBOL Explorer. This refreshes the Interface Mapper panes.
6. Because Java requires that group fields have unique names across operations, change the name of lnk_b_details interface field to readop_input.
7. Save the service interface.

The Completed Read Operation

Delete Operation

Like the program action that reads a record, the action that deletes a record expects the stock number, title, or author to be supplied. The other data items in lnk-b-details are ignored. It deletes the record indicated by the supplied stock number, title, or author.

Create and define the Delete operation

1. Create a new operation named Delete that uses the BOOK entry point.
   Note: Reusable fields you created in a different operation remain visible in the Interface Mapper for all operations.
2. Create a COBOL Assignment for the lnk-function field and set its value to 3. This is the value that instructs the program to delete a record.
3. Create an interface field named lnk_file_status from the COBOL Entry Point field link-file-status; then set the direction to Output. This is the only required output field.
4. Drag lnk_b_details from the Reusable Fields pane to the Interface Fields pane and rename the new interface field delete_input.
5. Save the service interface; then close the Interface Mapper.

The Completed Delete Operation