The CICS Connection  Sample Programs for CICS http://www.simotime.com

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.

Description and Links for Sample Programs
(Next) (Previous) (Table-of-Contents)

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

Menu Programs
(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. Simply click on one of the following items to learn more or download this sample set of programs.

File Management Application Programs
(Next) (Previous) (Table-of-Contents)

The suite of programs includes the Data File Inquiry and Update programs for the Customer Master File and an Inquiry Program for the Item Master File. Simply click on one of the following items to learn more or download this sample set of programs. The following two sections of this document describe the programs in more detail.

Customer Master File, Inquiry and Update
(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 inquiry program (CU2INQ.CBL) is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program is "read only" and does not update the Customer Master File.Simply click on one of the following items to learn more or download this sample set of programs.

Item Master File Inquiry and Update
(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 inquiry program (IT2INQ.CBL) is a COBOL program that uses command level CICS. The screens are standard BMS screens. This program is "read only" and does not update the Item Master File. Simply click on one of the following items to learn more or download this sample set of programs.

Utility and Support Programs
(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.

Customer Master File View in Hex-Mode
(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. Simply click on one of the following items to learn more or download this sample set of programs.

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 . Simply click on one of the following items to learn more or download this sample set of programs.

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). Simply click on one of the following items to learn more or download this sample set of programs.

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. Simply click on one of the following items to learn more or download this sample set of programs.

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.

Generating and Loading 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. Simply click on one of the following items to learn more or download this sample set of programs.

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. Simply click on one of the following items to learn more or download this sample set of programs.

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 Serverand the Mainframe Sub-System option. Simply click on one of the following items to learn more or download this sample set of programs.

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. These sample programs are made available on an "as-is" basis and may be downloaded in accordance with the Software Agreement and Disclaimer that is explained in the following section of this document. As always, it is the programmer's responsibility to thoroughly test all programs.

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

Permission to use, copy, modify and distribute this software for any commercial purpose requires a fee to be paid to SimoTime Enterprises. Once the fee is received by SimoTime the latest version of the software 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.

Permission to use, copy, modify and distribute this software for a non-commercial purpose and without fee is hereby granted, 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 for any purpose. It is provided "AS IS" without any express 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.

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

You may download SQL-oriented examples at http://www.simotime.com/sim4dzip.htm#ZipsforSQL or view the complete list of SimoTime Examples at http://www.simotime.com/sim4dzip.htm.

Note: You must be attached to the Internet to download a Z-Pack or view the list.

The hexadecimal dump of the parameter-buffer uses the same technique as describe in another SimoTime example that describes the dumping of a data string using COBOL. The name of the member that does the actual hexadecimal dump is called SimoDUMP. A copy file (PASSDUMP.CPY) is provided for defining the pass area.

Check out  The VSAM - QSAM Connection  for more examples of mainframe VSAM and QSAM accessing techniques and sample code.

To review all the information available on this site start at  The SimoTime Home Page .

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 or Suggestions
(Next) (Previous) (Table-of-Contents)

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

We appreciate your comments and feedback.

About SimoTime Enterprises
(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