The CICS Connection  Sample Programs for CICS

Introduction
(Next) (Previous) (Table-of-Contents)

The CICS Connection provides a suite of sample programs and documentation that show how to do practical tasks using CICS as the Transaction Manager. The CICS examples are written to compile and execute in the Micro Focus environment or an IBM Mainframe.

Purpose and Prerequisties
(Next) (Previous) (Table-of-Contents)

This material is intended for individuals that are learning, creating or maintaining CICS application programs. The programs were created on an IBM Mainframe System and have been transferred, compiled and tested in Micro Focus Mainframe Express and Micro Focus Server, Enterprise Edition.

Purpose and Prerequisties, CICS System Definitions and Transaction ID Overview
(Next) (Previous) (Table-of-Contents)

A mainframe CICS system definition (CSD) file is a VSAM data set containing a resource definition entry for each resource defined to CICS (using CEDA or DFHCSDUP). A Micro Focus System Definitions file (DFHDRDAT) is included with this suite of sample programs.

Purpose and Prerequisties, Configure a CICS Region
(Next) (Previous) (Table-of-Contents)

Refer to Configuring a CICS Region for Micro Focus Enterprise Server for additional information.

This link provides an example of  How to Configure a Micro Focus Server or Region  for processing CICS transactions.

Menu Interface using BMS Screens
(Next) (Previous) (Table-of-Contents)

This group of COBOL programs and BMS screens present a main menu (or Primary Menu) to a 3270 device. The primary menu is a list of options that will link to sub-menu screens.

Primary Menu Screen
(Next) (Previous) (Table-of-Contents)

This suite of programs provides an example of how to use BMS (Basic Mapping Support) and COBOL programs to present and process a sequence of "Menu-oriented" screens. The transaction identifier (or Tran ID) to display the main menu is "MM01" and the program name is "MN1APP".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Menu Screen for Access to non-Relational Data Files
(Next) (Previous) (Table-of-Contents)

This suite of programs provides an example of how to use BMS (Basic Mapping Support) and COBOL programs to access non-relational data files and/or VSAM Data Sets. The transaction identifier (or Tran ID) to display this sub-menu is "OPT1" and the program name is "MN1FMS".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Menu Screen for Access to Relational Data Tables
(Next) (Previous) (Table-of-Contents)

This group of COBOL programs and BMS screens present a menu of options to a 3270 device. The list of options focus on various SQL tasks. The transaction identifier (or Tran ID) to display this sub-menu is "AMSQ" and the program name is "MN1SQL".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Menu Screen for Utility and Support Programs
(Next) (Previous) (Table-of-Contents)

The Utilities Menu is provided for programmers and support personnel that need addition information about the application programs or data files. The transaction identifier (or Tran ID) to display this sub-menu is "AMUP" and the program name is "MN1UTL".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Transactions and Programs
(Next) (Previous) (Table-of-Contents)

This section provides a brief description and links for the sample CICS transactions and programs. The source members provided by SimoTime are stored in Partitioned Data Sets (or a Source Management System) on the mainframe and a similar directory structure (or a Source Management System) on the Personal Computer using Windows.

The following is a list of the Transaction ID's provided in the suite of CICS sample programs.

Customer Master - a VSAM Key-Sequenced-Data-Set (KSDS)
(Next) (Previous) (Table-of-Contents)

The Customer Master File is a VSAM, KSDS with 512 byte records. The key starts in position 1 and is 12 bytes in length. The following sub-sections ofthis document describe some of the online transactions and associated programs available to view, udpate or add records in the Customer Master File.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Customer Master - Inquire or Read Only (VSAM)
(Next) (Previous) (Table-of-Contents)

The Customer Master Inquiry Screen contains a prompt for a new Customer Number and the customer information from a previous request. Once a new customer number is entered the Customer Master File is accessed and the new information is displayed. The transaction identifier (or Tran ID) to view the customer master file is "CUI1" and the program name is "CU2INQ".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Customer Master - File Update (VSAM)
(Next) (Previous) (Table-of-Contents)

The update program is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program has the capability to read existing records, update existing records and write new records from/to the Customer Master File. The transaction identifier (or Tran ID) to update the customer master file is "CUU1" and the program name is "CU2UPD".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Customer Master - Hex-Dump of Records (VSAM)
(Next) (Previous) (Table-of-Contents)

The dump program (CUDUMP.CBL) is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program is intended for use by support personnel and displays the record contents in hexadecimal format. A possible EBCDIC and ASCII display is also provided. The transaction identifier (or Tran ID) to hex-dump the customer master file is "CUD1" and the program name is "CUDUMP".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Customer Master - Hex-Patch of Records (VSAM)
(Next) (Previous) (Table-of-Contents)

The patch program (CUMEND.CBL) is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program is intended for use by support personnel and displays the record contents in hexadecimal format. A possible EBCDIC and ASCII display is also provided. A user may choose to patch (or update) a record. The transaction identifier (or Tran ID) to update the customer master file is "CUM1" and the program name is "CUMEND".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Customer Table - a Relational Data Structure
(Next) (Previous) (Table-of-Contents)

This example uses a a suite of COBOL programs and BMS mapsets to execute programs that will provide data base inquiry or update functionality for the Customer Table. The programs use embedded EXEC SQL statements to access the Customer Table and display information to a 3270 terminal or terminal emulator. The programs run on an IBM Mainframe System with CICS or a Microsoft Windows System with Micro Focus Server for Mainframe Migration.

Customer Table - Read, Update and Insert Rows
(Next) (Previous) (Table-of-Contents)

The Customer Table Inquiry Screen contains a prompt for a new Customer Number and the customer information from a previous request. Once a new customer number is entered the Customer Data Base is accessed and the new information is displayed. The transaction identifier (or Tran ID) to update the customer table is "CQU1" and the program name is "CQ2UPD".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Item Master - a VSAM Key-Sequenced-Data-Set (KSDS)
(Next) (Previous) (Table-of-Contents)

The Item Master File is a VSAM, KSDS with 512 byte records. The key starts in position 1 and is 12 bytes in length. The following sub-sections ofthis document describe some of the online transactions and associated programs available to view, udpate or add records in the Item Master File.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Item Master - Inquire or Read Only (VSAM)
(Next) (Previous) (Table-of-Contents)

The Item Master Inquiry Screen contains a prompt for a new Item Number and the item information from a previous request. Once a new item number is entered the Item Master File is accessed and the new information is displayed. The transaction identifier (or Tran ID) to view the customer master file is "ITI1" and the program name is "IT2INQ".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Item Master - File Update (VSAM)
(Next) (Previous) (Table-of-Contents)

The update program is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program has the capability to read existing records, update existing records and write new records from/to the Item Master File. The transaction identifier (or Tran ID) to update the customer master file is "ITU1" and the program name is "IT2UPD".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Utility Programs and Reference Material
(Next) (Previous) (Table-of-Contents)

The following set of programs are provided to assist programmers and support personnel that are involved with the maintenance and support of CICS applications and the associated data.

View File Status Codes
(Next) (Previous) (Table-of-Contents)

This suite of programs prompts a user for a File Status return code and then provides a brief description of the cause of the return code. The transaction identifier (or Tran ID) to display a file status code is "FSC1" and the program name is "FILERC".

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

The preceding links provide a method for doing look-ups of file status codes from a CICS transaction. The following link provides aaccess to an HTML document with the file status codes.

Explore The File Status Return Codes to interpret the results of accessing VSAM data sets and QSAM files.

File Properties - Data File Information
(Next) (Previous) (Table-of-Contents)

This suite of programs provides access to the File Properties Repository. The repository is a VSAM, KSDS and the key is a fully qualifies MVS Data Set Name (DSN).

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Application Properties - Source Code Information
(Next) (Previous) (Table-of-Contents)

This suite of programs provides access to the Application Properties Repository. The repository is a VSAM, KSDS and the key is the member name. The member name may be the DD name or the filename with an extension.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Special Requirements
(Next) (Previous) (Table-of-Contents)

This section will describe programs and techniques that may be considered a bit esoteric but are quite often in the critical path within an application.

Generate and Load a non-Executable Member from Assembler Coded Table Definitions
(Next) (Previous) (Table-of-Contents)

In the CICS environment on the mainframe it was a common practice to use the EXEC CICS LOAD function to load a data table into memory. These data tables were typically created as mainframe assembler source members. The source members were then compiled and linked as non-Executable load members. This example will describe how to  create a non-executable member from Assembler Source Code  for the Micro Focus Studio and Server environments running in EBCDIC or ASCII.

Extracting FCT Information from the Micro Focus Resource Definition File
(Next) (Previous) (Table-of-Contents)

The resource used by the Micro Focus Enterprise Server, Mainframe Subsystem Support (or ES/MSS) is stored in the the resource definitions file (DFHDRDAT). This file is a Micro Focus Key-Sequenced-Data-Set. This utility progam provides a batch access to get the FCT information and post this information into an ASCII/Text file.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Extracting PCT Information from the Micro Focus Resource Definition File
(Next) (Previous) (Table-of-Contents)

The resource used by the Micro Focus Enterprise Server, Mainframe Subsystem Support (or ES/MSS) is stored in the the resource definitions file (DFHDRDAT). This file is a Micro Focus Key-Sequenced-Data-Set. This utility progam provides a batch access to get the PCT information and post this information into an ASCII/Text file.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Submit JCL to INTRDR from CICS using EXEC CICS SPOOL
(Next) (Previous) (Table-of-Contents)

This example uses a COBOL program running under CICS to submit a job (i.e. JCL) to the Internal Reader (or INTRDR). The program uses command level CICS statements (EXEC CICS SPOOL) to access the internal reader. The program will run on an IBM Mainframe System with CICS or a Microsoft Windows System with Micro Focus Server and the Mainframe Sub-System option.

Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this document is to assist as a tutorial for new programmers or as a quick reference for experienced programmers. In the world of programming there are many ways to solve a problem. This documents and the links to other documents are intended to provide a choice of alternatives.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Enterprises. Once the fee is received by SimoTime the latest version of the software, documentation or training material will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.

SimoTime Enterprises makes no warranty or representations about the suitability of the software, documentation or learning material for any purpose. It is provided "AS IS" without any expressed or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software, documentation or training material.

Downloads and Links to Similar Pages
(Next) (Previous) (Table-of-Contents)

This section includes links to documents with additional information that is beyond the scope and purpose of this document. The first sub-section requires an internet connection, the second sub-section references locally available documents.

Downloads and Links, Internet Access Required
(Next) (Previous) (Table-of-Contents)

The following links will require an internet connect.

A good place to start is The SimoTime Home Page for access to white papers, program examples and product information.

Explore The Mainframe System Model for additional information about defining, creating and managing the Environments, Processes, Functions and Data that are needed (required) to expand the platform flexibility and allow a business application currently running on a mainframe system to run on a Windows, UNIX or Linux system using Micro Focus Server Enterprise Edition.

Explore The ASCII and EBCDIC translation tables. These tables are provided for individuals that need to better understand the bit structures and differences of the encoding formats.

Explore The File Status Return Codes to interpret the results of accessing VSAM data sets and QSAM files.

Explore The Micro Focus Web Site for more information about products and services available from Micro Focus.

Downloads and Links, Local Access
(Next) (Previous) (Table-of-Contents)

The following links should be accessible without an internet connection.

Explore The File Status Return Codes to interpret the results of accessing VSAM data sets and QSAM files.

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments, Suggestions or Feedback
(Next) (Previous) (Table-of-Contents)

This document was created and is maintained by SimoTime Enterprises.

If you have any questions, suggestions, comments or feedback please call or send an e-mail to: helpdesk@simotime.com

We appreciate hearing from you.

Company Overview
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned company. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems.

Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com