IBM United States
Software Announcement 201-343
November 27, 2001
IBM Enterprise COBOL for z/OS and OS/390 V3R1 Integrate COBOL Business and Web-Oriented Processes
At a Glance
IBM Enterprise COBOL for z/OS and OS/390 V3R1 provides the following new functions:
For ordering, contact:
Your IBM representative, an IBM Business Partner, or IBM Americas Call Centers at 800-IBM-CALL (Reference: LE001).
IBM Enterprise COBOL for z/OS and OS/390® V3R1 gives you the needed COBOL function to begin to integrate COBOL business and Web-oriented business processes. With the capabilities of this release, developers can:
The goal of Enterprise COBOL V3R1 is to enable developers to leverage 30 years' worth of applications in new endeavors.
One of the following:
Depending on the function used, certain levels of other programs may be required. Refer to the Software Requirements section for details.
Planned Availability Dates
Object-Oriented COBOL Syntax for Java Interoperability
Enterprise COBOL provides object-oriented syntax to facilitate the interoperation of COBOL and Java programs. Support is based upon the facilities of the Java Native Interface, which is the primary means provided by Java for interoperation with non-Java programs. However, the Java Native Interface is designed for use with C and C++, and is difficult to use directly from COBOL.
The object-oriented COBOL syntax is designed to enable COBOL programmers to easily write COBOL code that:
Object instances of COBOL classes may be created from Java or COBOL. Methods of these classes can be invoked from Java or COBOL. COBOL classes may inherit from Java classes or other COBOL classes; Java classes may extend COBOL classes. COBOL may define and invoke overloaded methods.
COBOL methods may use COBOL CALL statements to interface with procedural COBOL programs. Thus COBOL class definition syntax may be especially useful for writing "wrapper" classes for traditional COBOL logic, enabling existing COBOL code to be accessed from Java.
Basic Java-oriented object capabilities are available directly through the COBOL language. Additional Java-oriented capabilities are available to the COBOL programmer by using calls to the services provided by the Java Native Interface. The Java interoperability capabilities of IBM COBOL leverage other new support introduced in this release:
The Java interoperability capabilities of COBOL may be used to access Enterprise Java Beans (EJB) running in a J2EE-compliant EJB server, such as the WebSphere Application Server. To do this, the client environment must support a Java-based Object Request Broker (ORB). The client COBOL application may use COBOL INVOKE statements to access the programming interfaces of:
This version is designed to introduce basic XML capability to COBOL. The support includes a high-speed XML parser, which allows programs to:
The XML support in this release does not provide XML generation. It must instead be accomplished by COBOL program logic. The XML support has no special environmental requirements. It executes in all the principal run-time environments, including CICS, Information Management System (IMS), and MQSeries®.
The XML support can be used to enhance your existing high-performance IMS
transactions written in COBOL in a business-to-business (B2B) environment
by receiving and sending XML documents. IMS supports the transmission of
XML documents in the data portion of the IMS message. The messages can
be placed and retrieved for the IMS messages queue for all messages
regions including Message Processing Program (MPP), IMS Fast Path (IFP),
and Batch Message Processing (BMP).
Integrated CICS Translator
With this release, compilation of COBOL programs containing CICS statements no longer requires a separate translation step with the CICS translator. An integrated translator approach is an alternative to using the separate translator. With the integrated translator approach, the COBOL compiler handles both native COBOL and imbedded CICS statements in the source program.
When the CICS statements are encountered, and at other significant points in the source program, the compiler interfaces with the integrated CICS translator. The integrated CICS translator takes appropriate actions and then returns to the compiler typically indicating which native language statement to generate at that point.
While the separate translator approach is still supported, the integrated CICS translator approach is the preferred and recommended solution. It provides improved usability and the highest level of function. In particular:
Basic Unicode Support
A new national data type, national literals, intrinsic functions, and compiler option provide basic run-time support for Unicode. COBOL source programs continue to be encoded in an EBCDIC (SBCS or DBCS) code page. Unicode encodes all the characters by the world's major written languages. There are multiple encoding schemes to represent Unicode including UTF-8, UTF-16, and UTF-32. Enterprise COBOL supports Unicode using UTF-16. UTF-8 data may be converted explicitly to UTF-16 and processed in the UTF-16 representation. The data may be converted back to UTF-8 after the processing in the COBOL program.
COBOL Unicode enhancements provide basic support for the new Chinese
character standard GB18030. GB18030 characters are encoded via the
existing Chinese EBCDIC code page, CCSID 01388 (expanded to include GB
18030 characters not requiring UTF-16 surrogate values). This character
data may be converted to Unicode, processed in Unicode, and converted
back to the EBCDIC code page.
Thread and Asynchronous Signal Toleration Support
V3R1 introduces a toleration level of support for POSIX threads and
signals. Prior versions of IBM COBOL host products limited COBOL to
execution on only one POSIX thread. The support added in this release is
designed so that an application can contain COBOL programs running on
multiple threads within a process. No explicit COBOL language or
features are added for initiating threads or for thread serialization in
this release. Typically, these capabilities will be handled outside
COBOL by C programs, or by calling POSIX APIs directly from COBOL. The
level of support is analogous to the level of support for threads
provided by VisualAge® COBOL for Windows NT® and COBOL Set for
Other Usability Enhancements
Full-Function vs Alternate Function Offerings
The mainframe interactive debug tool is offered with the Enterprise COBOL compiler in what is called the Full-Function offering. This debug tool is a common facility that supports:
Only one Full-Function Offering is required for debugging applications written using any of these programming products. An Alternate Function offering is available for customers who do wish to receive the Enterprise COBOL for z/OS and OS/390 compiler but not the debug tool.
The debug tool is also offered as a separate product, IBM Debug Tool for z/OS and OS/390 V1R3. For more information about the functionality offered in the debug tool, refer to Software Announcement 201-xxx , dated November 27, 2001.
Hardware and Software Support Services
SmoothStart and Installation Services are not provided.
The IBM Enterprise AD Tooling Consultant services team from the IBM Silicon Valley Laboratory is available to assist you in moving forward and upgrading to the new COBOL compiler. Let your programmers know when the new compiler is installed so they can take advantage of the new features and functions. If you are running COBOL for OS/390® & VM, COBOL for MVS & VM, or COBOL/370, there may be some conversion/migration required. But if you are running any of the older COBOL compilers (OS/VS COBOL, VS COBOL II), you do not need to convert all your source code at once.
It is recommended to do a run-time migration and then a selective source conversion. Many customers may not have current documentation regarding the parameters used to build their existing modules. This information leads to a smoother transition to the supported run-time library, Language Environment® (LE), and to the new COBOL compiler.
For assistance with the run-time migration, the services team offers the S/390® Languages Migration Assessment that provides an assessment of your current load libraries to identify compiler levels used, compiler options used, run times and subsystems in use. This information allows the consultant to help you plan for the installation/integration of LE including run-time options, storage settings, compiler options, and considerations for your shop. The consultant will educate your IT organization regarding LE's benefits and technical concepts.
For assistance with converting your source code, the services team offers the S/390 Languages Migration/Conversion where the consultant will perform locally or at a remote location, the conversion of your ANSI 68/74 source to ANSI 85 standard that is required for the new COBOL compiler. The converted code will be provided to you in a clean compile and relink state. This services offering may also educate your IT organization regarding LE's benefits and technical concepts, discuss potential impact of non-LE enabled vendor code, and assist with your migration plan.
These services are performed by consultants from our development team and are fee-based offerings.
For more details on these services offerings and others available, visit the IBM Enterprise Developer Domain Web site:
Unless otherwise announced by IBM, Enterprise COBOL for z/OS and OS/390 V3R1 runs under the control of, or in conjunction with, the currently supported releases of the following programs and their subsequent releases or their equivalents. For more information on programs listed below that require program temporary fixes (PTFs), refer to the program directory, the customization guide, and the preventive support planning (PSP) bucket.
Compatibility: The following summarizes the compatibility characteristics of IBM Enterprise COBOL for z/OS and OS/390 V3. Full details will be provided in the Migration Guide and the Licensed Programming Specifications.
IBM Enterprise COBOL for z/OS and OS/390 V3 provides source code and object code compatibility with its predecessor product, IBM COBOL for OS/390 & VM Version 2, with the following exceptions:
Security, Auditability, and Control
The announced program uses the security and auditability features of the host operating system software. The customer is responsible for evaluation, selection, and implementation of security features, administrative procedures, and appropriate controls in application systems and communication facilities.
IBM Global Financing offers attractive financing to credit-qualified commercial and government customers and Business Partners in more than 40 countries. IBM Global Financing is provided by the Credit Corporation in the United States. Offerings, rates, terms, and availability may vary by country. Contact your local IBM Global Financing organization. Country organizations are listed on the Web:
Entry Support License (ESL): To order an ESL license, specify the program number, feature number 9001 for asset registration, and the applicable ESL one-time charge (OTC) feature number. Also specify the feature number of the desired distribution medium.
ESL OTC Feature Description Number 5655-G53 IBM Enterprise COBOL for z/OS and OS/390 0018 V3 Full-Function Offering IBM Enterprise COBOL for z/OS and OS/390 0050 V3 Alternate Function Offering
ESL machines can be determined by referring to the IBM Entry End User/390 Attachment (Z125-4379).
Parallel Sysplex® License Charge (PSLC) Basic License: To order a basic license, specify the program number and feature number 9001 for asset registration. Specify the PSLC Base feature. If applicable, specify the PSLC Level A and PSLC Level B, and PSLC Level C, and PSLC Level D features and quantity.
If there is more than one program copy in a Parallel Sysplex, the charge for all copies is associated to one license by specifying the applicable PSLC feature numbers and quantity represented by the sum of the Service Units in Millions (MSUs) in your Parallel Sysplex. For all other program copies, specify the PSLC No-Charge (NC) Identifier feature on the licenses.
Also, specify the feature number of the desired distribution medium.
PSLC Basic PSLC License Machine Feature MLC Feature MSU Capacity Number Description Full-Function 1 0001 PSLC Base, 1 MSU 2 0002 PSLC Base, 2 MSUs 3 0003 PSLC Base, 3 MSUs 4 - 45 0004 PSLC Level A, 1 MSU 0005 PSLC Level A, 42 MSUs 46 - 175 0006 PSLC Level B, 1 MSU 0007 PSLC Level B, 10 MSUs 0008 PSLC Level B, 50 MSUs 176 - 315 0009 PSLC Level C, 1 MSU 0010 PSLC Level C, 10 MSUs 0011 PSLC Level C, 50 MSUs 316 or more 0012 PSLC Level D, 1 MSU 0013 PSLC Level D, 50 MSUs NA 0014 PSLC NC IDENTIFIER Alternate Function 1 0033 PSLC Base, 1 MSU 2 0034 PSLC Base, 2 MSUs 3 0035 PSLC Base, 3 MSUs 4 - 45 0036 PSLC Level A, 1 MSU 0037 PSLC Level A, 42 MSUs 46 - 175 0038 PSLC Level B, 1 MSU PSLC Basic PSLC License Machine Feature MLC Feature MSU Capacity Number Description 0039 PSLC Level B, 10 MSUs 0040 PSLC Level B, 50 MSUs 176 - 315 0041 PSLC Level C, 1 MSU 0042 PSLC Level C, 10 MSUs 0043 PSLC Level C, 50 MSUs 316 or more 0044 PSLC Level D, 1 MSU 0045 PSLC Level D, 50 MSUs NA 0046 PSLC NC IDENTIFIER
Example 1: For a single machine with 11 MSUs, the PSLC features to be ordered would be:
Example 2: For two machines in a Parallel Sysplex, which have an aggregation of 60 MSUs, the PSLC features to be ordered would be:
Variable Workload License Charge (WLC) Basic License: To order a basic license, specify the program number and feature number 9001 for asset registration. Specify the WLC base feature. If applicable, specify the WLC Level 1, WLC Level 2, WLC Level 3, and WLC Level 4 features with the appropriate quantity. Also, specify the feature number of the desired distribution medium.
Variable WLC Aggregation: When z/OS is installed on two or more S/390 or IBM zSeries 900 machines comprising a sysplex, Variable WLC aggregation applies to z/OS and the S/390 software programs that have Variable WLC. Whether there is only one license or more than one license of the program in the sysplex, the charge for all licenses is associated to the "aggregation license" by specifying the applicable WLC feature numbers and quantity represented by the sum of the MSUs (millions of service units) in the sysplex.
The "aggregation license" is an additional program license that is ordered and serialized, although there is no shipment associated with it. For the actual licenses, the charge is reflected as $0 by specifying the applicable "registration" Variable WLC feature numbers and the quantity equal to the MSUs of that license running on the designated machine.
Feature Description Number Full-Function Base, Level 1 includes 45 MSUs 0019 Additional qty, Level 1 0020 up to 175 MSUs Registration Base, Level 1 0021 incl 1 MSU Registration additional quantity 0022 Level 1 up to 175 MSUs Additional qty, Level 2 0023 176 -- 315 MSUs Registration additional quantity 0024 Level 2 176 -- 315 MSUs Additional qty, Level 3 0025 316 -- 575 MSUs Registration additional quantity Level 3 316 -- 575 MSUs 0026 Level 3, Per 50 MSUs for machine 0027 capacity of 316 -- 575 MSUs Registration, Level 3, per 50 MSUs 0028 machine capacity of 316-575 MSUs Additional qty, Level 4 576+ MSUs 0029 Registration additional quantity 0030 Level 4 576+ MSUs Level 4, Per 50 MSUs for machine 0031 capacity of 576+ MSUs Registration, Level 4, per 50 MSUs 0032 machine capacity of 576+ MSUs Alternate Function Base, Level 1 includes 45 MSUs 0051 Additional qty, Level 1 0052 up to 175 MSUs Registration Base, Level 1 0053 incl 1 MSU Registration additional quantity 0054 Level 1 up to 175 MSUs Additional qty, Level 2 0055 176 -- 315 MSUs Registration additional quantity 0056 Level 2 176 -- 315 MSUs Additional qty, Level 3 0057 316 -- 575 MSUs Registration additional quantity Level 3 316 -- 575 MSUs 0058 Level 3, Per 50 MSUs for machine 0059 capacity of 316 -- 575 MSUs Registration, Level 3, per 50 MSUs 0060 machine capacity of 316-575 MSUs Additional qty, Level 4 576+ MSUs 0061 Registration additional quantity Level 4 576+ MSUs 0062 Level 4, Per 50 MSUs for machine 0063 capacity of 576+ MSUs Registration, Level 4, per 50 MSUs 0064 machine capacity of 576+ MSUs
Example 2: If there are two machines in a sysplex, and a program is running on machine #1 at 190 MSUs and on machine #2 at 140 MSUs, the Variable WLC feature numbers and quantities to be ordered would be:
Growth Opportunity License Charge (GOLC): To order GOLC software, specify the program number, feature number 9001 for asset registration, and the GOLC monthly charge feature number from the table below. Also, specify the feature number for the desired distribution medium.
GOLC GOLC Feature Category Number Full-Function Offering H30 0015 H50 0016 H70 0017 Alternate Function Offering H30 0047 H50 0048 H70 0049
Single Version Charging: To elect single version charging, the customer must notify and identify to IBM the prior program and replacement program and the designated machine the programs are operating on.
Feature Distribution Environment Number Medium Full-Function Offering z/OS and OS/390 5801 9/6250 tape z/OS and OS/390 5802 3480 tape cartridge z/OS and OS/390 6510 4 mm-DAT cartridge Alternate Function Offering z/OS and OS/390 5821 9/6250 tape z/OS and OS/390 5832 3480 tape cartridge z/OS and OS/390 6513 4 mm-DAT cartridge
Example: If publications are not desired for the initial order, specify feature number 3470 to ship media only. For future updates, specify feature number 3480 to ship media updates only. If, in the future, publication updates are required, order an MES to remove feature number 3480; then, the publications will ship with the next release of the program.
Feature Description Number Initial Shipments Serial number only (suppresses shipment 3444 of media and documentation) Ship media only (suppresses initial 3470 shipment of documentation) Ship documentation only (suppresses 3471 initial shipment of media) Update Shipments Ship Media updates only (suppresses 3480 update shipment of documentation) Ship documentation only (suppresses 3481 update shipment of media) Suppress updates (suppresses update 3482 shipment of media and documentation) Expedite Shipments Local IBM office expedite 3445 (for IBM use only) Customer expedite process charge 3446 ($30 charge for each product)
Expedite shipments will be processed to receive 72-hour delivery from the time IBM Software Delivery and Fulfillment (SDF) receives the order. SDF will then ship the order via overnight air transportation.
Unlicensed Documentation: A memo to users, program directory, and one copy of Enterprise COBOL for z/OS and OS/390 Customization Under z/OS and OS/390 are supplied automatically with the basic machine-readable material.
The following optional publications will be available by December 28, 2001:
Copies of unlicensed publications will be available for a fee after product availability. These copies may be ordered via direct order or you may contact your IBM representative.
Displayable Softcopy Publications: All IBM Enterprise COBOL for z/OS and OS/390 Version 3 unlicensed publications are available free of charge in displayable softcopy format (BookManager®, PDF) on the IBM COBOL Web site at:
Subsequent updates (technical newsletters or revisions between releases)
to the publications shipped with the product will be distributed to the
user of record for as long as a license for this software remains in
effect. A separate publication order or subscription is not needed.
Most product media is shipped only via Customized Offerings (for example, CBPDO, ServerPac, Systempac®). Non-customized items (CDs, diskettes, source media, media kits) will continue to be shipped via the stand-alone product.
Terms and Conditions
The following programs are replaced by IBM Enterprise COBOL for z/OS and OS/390 V3 (5655-G53):
P.O. Box 49023
San Jose, CA 95161-9023
Use Priority/Reference Code: LE001 Phone: 800-IBM-CALL Fax: 800-2IBM-FAX Internet: firstname.lastname@example.org Mail: IBM Atlanta Sales Center Dept. LE001 P.O. Box 2690 Atlanta, GA 30301-2690
You can also contact your local IBM Business Partner or IBM representative. To identify them, call 800-IBM-4YOU.
Note: Shipments will begin after the planned availability date.