Tape Processing  Micro Focus and JCL DD Statements

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

When a batch job is migrated from a mainframe to a Linux, UNIX or Windows system running the Micro Focus Enterprise Server the processing of tape files may be a requirement. Since Micro Focus checks the DD statements for syntax that includes tape it does not issue an error and a sequential file will be written to a pre-determined disk drive. This approach works well for the smaller backup requirements but may not offer a solution for the larger and more complex tape requirements. Also, a user may have a business/technical requirement or service agreement to use tape storage media.

A number of vendors (such as IBM, HP, Quantum and others) provide tape drives that attach to Linux, UNIX or Windows Systems. The Linear Tape-Open (LTO) is an open-format tape storage technology developed in the late 1990's by Centance, Hewlett-Packard (HP), and International Business Machines (IBM). Centance was later acquired by Quantum in 2004. The term "open-format" means that users have access to multiple sources of storage media products that will be compatible. The standard form-factor of LTO technology goes by the name Ultrium, the original version of which was released in 2000 and could hold 100 GB of data in a single cartridge. The most recent version was released in 2010 and can hold 3 TB in the same size cartridge. The high-capacity implementation of LTO technology is known as the LTO Ultrium format, or simply LTO Ultrium.

Sample JCL Member
(Next) (Previous) (Table-of-Contents)

This example uses IEBGENER to write a file to tape based on the UNIT=CART parameter on the DD statement for SYSUT2.

//TAPC80J8 JOB SIMOTIME,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*       This JCL Member is provided by SimoTime Enterprises         *
//*           (C) Copyright 1987-2012 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text   - Create a Sequential Data Set on disk using IEBGENER.
//* Author - SimoTime Enterprises
//* Date   - January 24, 1996
//*
//* The first job step (QSAMDELT) will delete any previously created
//* file. The second job step (QSAMCRT1) will create a new file.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express.
//*
//*                      ************
//*                      * QUSC80J1 *
//*                      ********jcl*
//*                           *
//*                           *
//*                      ************     ************
//*                      * IEFBR14  ******* CUST0080 *
//*                      ********utl*     ***delete***
//*                           *
//*                           *
//*     ************     ************     ************
//*     *  SYSIN   ******* IEBGENER ******* CUST0080 *
//*     ********jcl*     ********utl*     *******rseq*
//*                           *
//*                           *
//*                      ************
//*                      *   EOJ    *
//*                      ************
//*
//* *******************************************************************
//* Step   1 of 2  Delete any previously created file...
//*
//QSAMDELT EXEC PGM=IEFBR14
//CUST0080 DD  DSN=SIMOTIME.TAPE.TAPC80D2,DISP=(MOD,DELETE,DELETE),
//             STORCLAS=MFI,
//             SPACE=(TRK,5),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS)
//*
//* *******************************************************************
//* Step   2 of 2  Create and populate a new QSAM file...
//*
//QSAMCRT1 EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//* :....1....:....2....:....3....:....4....:....5....:....6....:....7. ..:....8
//SYSUT1   DD  *
000100 Anderson       Adrian    1113 Peachtree Plaza    Atlanta        GA 26101
000200 Brown          Billie    224 Baker Boulevard     Baltimore      MD 35702
000300 Carson         Cameron   336 Crenshaw Blvd.      Cupertino      CA 96154
000400 Davidson       Dion      448 Main Street         Wilmington     DE 27323
000500 Everest        Evan      55 5TH Avenue           New York       NY 10341
000600 Franklin       Francis   6612 66TH Avenue        Bedrock        NY 11903
000700 Garfunkel      Gwen      777 77TH Street         New York       NY 16539
000800 Harrison       Hilary    888 88TH Street         Pocatello      ID 79684
000900 Isley          Isabel    999 99TH Avenue         Indianapolis   IN 38762
001000 Johnson        Jamie     1010 Paradise Drive     Larkspur       CA 90504
001100 Kemper         Kelly     1111 Oak Circle         Kansas City    KS 55651
001200 Lemond         Lesley    1212 Lockwood Road      Mohave Desert  AZ 80303
001300 Mitchell       Marlow    1313 Miller Creek Road  Anywhere       TX 77123
001400 Newman         Noel      1414 Park Avenue        Santa Monica   CA 90210
001500 Osborn         Owen      1515 Center Stage       Rolling Rock   PA 36613
001600 Powell         Pierce    PO Box 1616             Ventura        CA 97712
001700 Quigley        Quincy    1717 Farm Hill Road     Oshkosh        WI 43389
001800 Ripley         Ray       1818 Alien Lane         Wayout         KS 55405
001900 Smith          Sammy     1919 Carnoustie Drive   Novato         CA 94919
002000 Tucker         Taylor    2020 Sanger Lane        St. Paul       MN 43998
002100 Underwood      Ulysses   2121 Wall Street        New York       NY 17623
002200 Van Etten      Valerie   2222 Vine Street        Hollywood      CA 98775
002300 Wilson         Wiley     2323 Main Street        Boston         MA 01472
002400 Xray           Xavier    2424 24TH Street        Nashville      TN 44190
002500 Young          Yanni     2525 Yonge Street       Toronto        ON 6B74A6
002600 Zenith         Zebulon   2626 26TH Street        Dallas         TX 71922
123456 Doe            John      123 Main Street         Anywhere       OR 88156
/*
//SYSUT2   DD DSN=SIMOTIME.TAPE.TAPC80D2,
//            DISP=(NEW,CATLG,CATLG),UNIT=(3590,,DEFER),LABEL=EXPDT=99000
//

Define a Physical Location for Tape Files
(Next) (Previous) (Table-of-Contents)

The files that are defined as tape files have a UNIT=CART definition on the DD statement. This value is recognized by the ES_ALLOC_OVERRIDE function and the files are routed to the specified directory.

#  ----------------------------------------------------------------
# This example will focus on Micro Focus Enterprise Server and the
# Mainframe Sub-System (or ES/MSS). When a Region (or Server) is
# configured within Micro Focus Enterprise Server to run batch jobs
# (i.e. submit JCL) a default directory is defined and used for
# placement of new physical files that are allocate by a job.
# This is an example of how to catalog a new data set and override
# the base configuration and place the physical file in an
# alternate directory.. The technique provides the capability to
# key off any portion of a catalog record to control the target
# directory where the physical files will reside.
#
#  All keywords must be in UPPER case.
#
#  Each rule can occupy only 1 line.  Examples are below:
#
#  The rules are applied to any new catalog record in the order
#  in which they occur in this file.  The first rule that matches
#  upon an offset within the catalog record will be used.
#
#  Note:  To have the catalogs retain their portability it is a
#         good practice to keep the "SUBDIR" directories at the
#         same level or in directories that are children of the
#         directory containing the CATALOG.DAT file. In the
#         example below the CATALOG.DAT file may be located in
#         "C:\SimoSam1\DataLib1\". This is not an absolute
#         requirement. However, this will help with the
#         maintenance and support efforts.
#
#  To enable set the following environment variable:
#
#  ES_ALLOC_OVERRIDE=d:\dirname\CatMapA1.cfg
#
#  The name of the configuration file can be any valid Windows
#  file name.  In the following examples there is one rule that is
#  keying off the High Level Qualifier or HLQ (SIMOTIME.WRK1),
#  one that is keying off the fact that it’s a “spool” record, etc.
#  ----------------------------------------------------------------
#
#  Key off of the spool indicator
OFFSET(313) VALUE(S) SUBDIR(<CATALOGFOLDER>\SPOOL)
#  Key off of the VOLUME value.
#  OFFSET(314) VALUE(CSIWRK) SUBDIR(C:\MVSP0030\VOLUME)
#  Key off of the DSORG
#  OFFSET(324) VALUE(VSAM) SUBDIR(C:\MVSP0030\VSAM)
#  Key off of the LRECL
#  OFFSET(469) HEXVALUE(0063) SUBDIR(C:\MVSP0030\LRECL99)
#  Key off of the first leftmost bytes of the dataset name
OFFSET(1) VALUE(SIMOTIME.WRK1.) SUBDIR(C:\SimoSAM1\DataLibA\Wrk1)
#  Key off of the DATACLAS value.
#  OFFSET(449) VALUE(MFIDMFY) SUBDIR(C:\MVSP0030\DATACLAS)
#  ----------------------------------------------------------------

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 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, 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.

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

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

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

Check out The non-Relational Data Connection that provides documents and examples for the processing (transfer, convert, compare, create and delete) of non-relational or traditional sequential files, VSAM Data Sets, Generation Data Groups (GDG's) and Partitioned Data Sets (PDS's).

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 copyrighted and 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