IBM Support

SupportPac CA1Q: CICS VSAM Transparency sample COBOL and Assembler exit programs

Download


Abstract

SupportPac CA1Q provides sample COBOL and Assembler Field Build Exit (FBE) and Insert Replace Delete (IRD) exits for CICS VSAM Transparency for z/OS.

Download Description

SupportPac CA1Y was updated on 6 February 2014. See New in this release (V1.2) and upgrade to this new release if you would like to take advantage of the latest updates. 

CICS VSAM Transparency for z/OS (CICS VT) enables the migration of data from VSAM files to DB2 tables and ensures continued access to the data without modification to CICS or batch VSAM applications.

This SupportPac contains a number of FBE and IRD exits in COBOL and Assembler to help a CICS VT user to code efficient exits very quickly.



Prior to APAR PK72698, all CICS VT exits had to be written in Assembler and all previous samples were also provided in Assembler. With the addition of APAR PK72698 exits can now be coded in any LE/370 language. This SupportPac provides a new set of samples written in COBOL, representing an example of the extended language support now available within CICS VT.

Sample COBOL exits included in this SupportPac are:
  • CJULGRG converts between JULIAN and DB2 date formats
  • CNULLCL enables you to use nullable DB2 columns
  • DATEFBE converts a user date field to a DB2 DATE column
  • CTLRECF handles a VSAM file that has a control record
  • MULTFBE and MULTIRD manage a VSAM file that is migrated to five DB2 tables

Sample Assembler exits included in this SupportPac are:
  • NULLCOL is a user-parameter driven exit to enable DB2 null columns
  • NULLCOLS is another exit for null columns where the user can hard code null values
  • PACKC2F converts decimal data from DB2 to be converted to unsigned packed decimal
  • JULGREG converts between Julian and DB2 date formats
  • BIT2CHAR converts bit data to individual CHAR(1) columns in DB2
  • PACDEC detects non packed data in the key and substitute with zero

Possible Uses
The SupportPac allows CICS VT customers to use the provided sample exit programs to create their own programs for data re-engineering purposes.

Skill level required
An understanding of CICS VSAM Transparency and how to load and run exit programs.

New in this release (V1.2)
  • Included a new zip file, for the 'multiple occurs' sample.
  • Updated the Data Reengineering and Customization Guide.
  • Updated the ReadMe text.

Details
Authors: CICS VSAM Transparency development (Satish Tanna), IBM Hursley Park, UK
Category: 2
Released: 19Dec08
Last update: 20Feb15
Current Version: 1.2

Prerequisites

This SupportPac requires:
  • CICS VSAM Transparency for z/OS
  • PTF for APAR PK72698

Installation Instructions

To download the SupportPac:
  1. Click on the download link below and save the file to your local machine.
  2. Extract the saved file to a temporary directory on your target machine. This will create the necessary installation files.
  3. Follow the instructions in the included documentation to complete installation of this SupportPac.

[{"INLabel":"CA1Q Data Reengineering and Customization Guide (PDF)","INLang":"US English","INSize":"407204 B","INURL":"https://public.dhe.ibm.com/software/htp/cics/support/supportpacs/individual/ca1q.pdf"}]
Off
[{"DNLabel":"ca1q.zip","DNDate":"20 Feb 2015","DNLang":"US English","DNSize":"500760 B","DNPlat":{"label":"z/OS","code":"PF035"},"DNURL":"https://www14.software.ibm.com/cgi-bin/weblap/lap.pl?popup=Y&li_formnum=L-APIG-9TWF24&accepted_url=https://public.dhe.ibm.com/software/htp/cics/support/supportpacs/individual/ca1q.zip","DNURL_FTP":"","DDURL":null}]

Technical Support

BY DOWNLOADING, INSTALLING, COPYING, ACCESSING, OR OTHERWISE USING THE FREE-OF-CHARGE SUPPORTPAC, YOU AGREE THAT THE SUPPORTPAC IS COPYRIGHTED AND LICENSED BY INTERNATIONAL BUSINESS MACHINES CORPORATION, OR ITS AFFILIATE, SOLELY FOR YOUR INTERNAL USE, AND IS NOT SOLD. THE SUPPORTPAC IS PROVIDED ‘AS IS’ WITHOUT WARRANTY OF ANY KIND, INCLUDING WITHOUT LIMITATION THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT. IBM PRODUCT SUPPORT IS NOT OFFERED FOR THE SUPPORTPAC. OTHER IBM LICENSE TERMS MAY ALSO APPLY TO THE SUPPORTPAC AND IN THE EVENT (AND TO THE EXTENT ONLY) OF ANY CONFLICT, THOSE LICENSE TERMS WILL APPLY. IF YOU ARE ACCEPTING THESE TERMS ON BEHALF OF ANOTHER PERSON OR A COMPANY OR OTHER LEGAL ENTITY, YOU REPRESENT AND WARRANT THAT YOU HAVE FULL AUTHORITY TO BIND THAT PERSON, COMPANY, OR LEGAL ENTITY TO THESE TERMS. IF YOU DO NOT AGREE TO THESE TERMS:

  • DO NOT DOWNLOAD, INSTALL, COPY, ACCESS, CLICK ON AN "ACCEPT" BUTTON, OR USE THE SUPPORTPAC; AND
  • PROMPTLY DESTROY ALL COPIES OF THE SUPPORTPAC AND RELATED DOCUMENTATION.
To view the available collection of CICS SupportPacs, visit the CICS SupportPacs Home Page

[{"Product":{"code":"SSBQNK","label":"CICS VSAM Transparency for z\/OS"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Component":"Usability","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"1.2;2.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Product Synonym

CICSVT CICS VT CICS/VT

Document Information

Modified date:
29 November 2023

UID

swg24021465