Make Test Files Eighty Byte Records |
The SimoTime Home Page |
This document describes how to create a suite of test files. It will create an ASCII/Text file, a Record Sequential File and a VSAM, KSDS.
Note: This document may be used as a "Parking Lot" item or a template when creating a new document.
Note: This is a tnote without a tag.
We have made a significant effort to ensure the documents and software technologies are correct and accurate. We reserve the right to make changes without notice at any time. The function delivered in this version is based upon the enhancement requests from a specific group of users. The intent is to provide changes as the need arises and in a timeframe that is dependent upon the availability of resources.
Copyright © 1987-2025
SimoTime Technologies and Services
All Rights Reserved
WIP1
WIP2
WIP2
WIP2
WIP2
@echo OFF rem * ************************************************************************ rem * MKC080W8.CMD - a Windows Command File * rem * This program is provided by SimoTime Technologies * rem * (C) Copyright 1987-2019 All Rights Reserved * rem * Web Site URL: http://www.simotime.com * rem * e-mail: helpdesk@simotime.com * rem * ************************************************************************ rem * rem * Text - Create various data files with 80-byte records. rem * Author - SimoTime Technologies rem * Date - January 24, 1996 rem * rem * This procedure uses the Microsoft "ECHO" command to pipe instream rem * data to an ASCII/Text file. The following terms are used. rem * rem * LSEQ - a Line Sequential File or ASCII/Text File rem * RSEQ - a Record Sequential File. This example uses a file of rem * 80-byte records that may be ASCII or EBCDIC encoded. rem * KSDS - a VSAM Key-Sequenced-Data-Set. rem * rem * 1. Delete previously created data file. rem * 2. Use the Windows "ECHO" function to Create an LSEQ file to be rem * used as input to create additional files or data structures. rem * 3. Read the LSEQ file and write an RSEQ, ASCII File. rem * 4. Read the RSEQ, ASCII file and write a KSDS, ASCII File. rem * 5. Use "ECHO" to define keys to Hex-dump. rem * 6. Save the key-list to an RSEQ File. rem * 7. Do the Hex-Dump of the requested records. rem * 8. Convert Hex-dump (RSEQ) to ASCII/Text (LSEQ). rem * rem * ******************************************************************* rem * Step 1 of 8, Delete any previously created file... rem * call ..\Env1BASE set CmdName=MKC080W8 rem * call SimoNOTE "*******************************************************%CmdName%" call SimoNOTE "Starting JobName %CmdName% - v16.01.01" call SimoNOTE "Identify JobStep 1. Delete the LSEQ Data File" set CU80LSEQ=%BaseLib1%\DATA\TXT1\SIMOTIME.DATA.CU80LSEQ.txt if exist %CU80LSEQ% del %CU80LSEQ% rem * rem * ******************************************************************* rem * Step 2 of 8, Create a new output file. Use the "echo" command rem * provided with Microsoft Windows to pipe instream rem * data to a new ASCII/Text file. rem * call SimoNOTE "Identify JobStep 2. Create the LSEQ Data File" rem ....:....1....:....2....:....3....:....4....:....5....:....6....:....7....:....8 echo 000100 Anderson Adrian 111 Peachtree Plaza Atlanta GA 26101 >%CU80LSEQ% echo 000200 Brown Billie 222 Baker Boulevard Baltimore MD 35702 >>%CU80LSEQ% echo 000300 Carson Cameron 333 Crenshaw Blvd. Cupertino CA 96154 >>%CU80LSEQ% echo 000400 Davidson Dion 444 Main Street Wilmington DE 27323 >>%CU80LSEQ% echo 000500 Everest Evan 555 5TH Avenue New York NY 10341 >>%CU80LSEQ% echo 000600 Franklin Francis 666 66TH Avenue Bedrock NY 11903 >>%CU80LSEQ% echo 000700 Garfunkel Gwen 777 77TH Street New York NY 16539 >>%CU80LSEQ% echo 000800 Harrison Hilary 888 88TH Street Pocatello ID 79684 >>%CU80LSEQ% echo 000900 Isley Isabel 999 99TH Avenue Indianapolis IN 38762 >>%CU80LSEQ% echo 001000 Johnson Jamie 1010 Paradise Drive Larkspur CA 90504 >>%CU80LSEQ% echo 001100 Kemper Kelly 1111 Oak Circle Kansas City KS 55651 >>%CU80LSEQ% echo 001200 Lemond Lesley 1212 Lockwood Road Mohave Desert AZ 80303 >>%CU80LSEQ% echo 001300 Mitchell Marlow 1313 Miller Creek Road Anywhere TX 77123 >>%CU80LSEQ% echo 001400 Newman Noel 1414 Park Avenue Santa Monica CA 90210 >>%CU80LSEQ% echo 001500 Osborn Owen 1515 Center Stage Rolling Rock PA 36613 >>%CU80LSEQ% echo 001600 Powell Pierce PO Box 1616 Ventura CA 97712 >>%CU80LSEQ% echo 001700 Quigley Quincy 1717 Farm Hill Road Oshkosh WI 43389 >>%CU80LSEQ% echo 001800 Ripley Ray 1818 Alien Lane Wayout KS 55405 >>%CU80LSEQ% echo 001900 Smith Sammy 1919 Carnoustie Drive Novato CA 94919 >>%CU80LSEQ% echo 002000 Tucker Taylor 2020 Sanger Lane St. Paul MN 43998 >>%CU80LSEQ% echo 002100 Underwood Ulysses 2121 Wall Street New York NY 17623 >>%CU80LSEQ% echo 002200 Van Etten Valerie 2222 Vine Street Hollywood CA 98775 >>%CU80LSEQ% echo 002300 Wilson Wiley 2323 Main Street Boston MA 01472 >>%CU80LSEQ% echo 002400 Xray Xavier 2424 24TH Street Nashville TN 44190 >>%CU80LSEQ% echo 002500 Young Yanni 2525 Yonge Street Toronto ON 6B74A6>>%CU80LSEQ% echo 002600 Zenith Zebulon 2626 26TH Street Dallas TX 71922 >>%CU80LSEQ% echo 123456 Doe John 123 Main Street Anywhere OR 88156 >>%CU80LSEQ% rem * if not exist %CU80LSEQ% set JobStatus=0002 if not "%JobStatus%" == "0000" goto EojNok rem * rem * ******************************************************************* rem * Step 3 of 8, Read the previously created Line Sequential File rem * and write a Record Sequential File with 80-byte, rem * ASCII-encoded records. rem * call SimoNOTE "Identify JobStep 3. Convert LSEQ File to RSEQ File" set GETLS080=%CU80LSEQ% set PUTRS080=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80RSEQ.DAT if exist %PUTRS080% del %PUTRS080% run CV80ALAR if not exist %PUTRS080% set JobStatus=0003 if not "%JobStatus%" == "0000" goto EojNok set CU80RSEQ=%PUTRS080% rem * rem * ******************************************************************* rem * Step 4 of 8, Read a previously created Record Sequential File and rem * write to a VSAM, KSDS with 80-byte, ASCII-encoded rem * records. The key positions are 1-6. rem * call SimoNOTE "Identify JobStep 4. Convert RSEQ File to VSAM KSDS" set QSAM0080=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80QSAM.DAT set KSDS0080=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80KSDS.DAT if exist %KSDS0080% del %KSDS0080% run KSLOADC1 if not exist %KSDS0080% set JobStatus=0004 if not "%JobStatus%" == "0000" goto EojNok rem * rem * ******************************************************************* rem * Step 5 of 8, Define records to be Hex-Dumped. rem * Note: the dump information will be written to the SYSUT2 file. rem * ******************************************************************* rem * call SimoNOTE "Identify JobStep 5. Define records to be Hex-Dumped" set SYSUT1=%KSDS0080% set SYSUT2=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80DUMP.DAT set SYSUT3=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80KEYS.DAT set GETLS080=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80WORK.TXT set PUTRS080=%SYSUT3% echo /USERKEY 000100>%GETLS080% echo /USERKEY 000200>>%GETLS080% rem * rem * ******************************************************************* rem * Step 6 of 8, Convert ASCII/Text (LSEQ) to Record Sequential (RSEQ) rem * ******************************************************************* rem * call SimoNOTE "Identify JobStep 6. Store the Hex-Dump List in SYSUT3" if exist %PUTRS080% del %PUTRS080% run CV80ALAR rem * rem * ******************************************************************* rem * Step 7 of 8, Execute the HEX Dump program. rem * Note: the dump information will be written to the SYSUT2 file. rem * ******************************************************************* rem * Dump the content of the user-defined records within a VSAM, KSDS. rem * The results of the dump processing is posted to the SYSUT2 File. rem * call SimoNOTE "Identify JobStep 7. Dump the Requested Records" run HX80KSC3 rem * rem * ******************************************************************* rem * Step 8 of 8, Convert Hex-dump (RSEQ) to ASCII/Text (LSEQ) rem * ******************************************************************* rem * call SimoNOTE "Identify JobStep 8. Hex-Dump SYSUT2 to ASCII/Text" set GETRS080=%SYSUT2% set PUTLS080=%BaseLib1%\DATA\ASC1\SIMOTIME.DATA.CU80DUMP.TXT if exist %PUTLS080% del %PUTLS080% run CV80ARAL rem * rem * ******************************************************************* rem * :EojAok call SimoNOTE "Produced DataSet %CU80LSEQ%" call SimoNOTE "Produced DataSet %CU80RSEQ%" call SimoNOTE "Produced DataSet %KSDS0080%" call SimoNOTE "Produced DataSet %GETLS080%" call SimoNOTE "Produced DataSet %SYSUT3%" call SimoNOTE "Produced DataSet %SYSUT2%" call SimoNOTE "Produced DataSet %PUTLS080%" call SimoNOTE "Finished JobName %CmdName%, Job Status is %JobStatus%" goto :End :EojNok call SimoNOTE "ABENDING JobName %CmdName%, Job Status is %JobStatus%" :End if not "%1" == "nopause" pause
WIP2
//MKC080J8 JOB SIMOTIME,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1 //* ******************************************************************* //* MKC080J8.JCL - a JCL Member for Batch Job Processing * //* This JCL Member is provided by SimoTime Technologies * //* (C) Copyright 1987-2019 All Rights Reserved * //* Web Site URL: http://www.simotime.com * //* e-mail: helpdesk@simotime.com * //* ******************************************************************* //* //* Text - Create Test Files for MKC080*.* Series. //* Author - SimoTime Technologies //* Date - January 24, 1996 //* //* This job is intended to run on a Linux, UNIX or Windows System //* with a Micro Focus Enterprise Server Instance that is configured //* for an ASCII-encoded environment. //* //* For additional information contact the helpdesk@simotime.com //* //* The 1st job step (QSAMDELT) will delete previously created file. //* //* The 2nd job step (QSAMMAKE) will create a QSAM file with 80-byte //* records. //* //* The 3rd job step (KSDSMAKE) will create an empty VSAM, KSDS //* containing 80-byte records. The key is positions 1-6. //* //* The 4th job step (KSDSLOAD) will populate the VSAM, KSDS using //* using the QSAM file as input. //* //* The 5th job step (DUMPDELT) will delete previously created file. //* //* The 6th job step (DUMPEXEC) will create a Hexadecimal Dump file. //* The file will be a QSAM file with 80-byte records. //* //* This set of programs may be compiled and executed on a Linux, UNIX //* or Windows System with Micro Focus Enterprise Developer and may be //* adapted to run on an IBM Mainframe System. //* //* ******************************************************************* //* Step 1 of 6, Delete any previously created file... //* //QSAMDELT EXEC PGM=IEFBR14 //QSAM0080 DD DSN=SIMOTIME.DATA.CU80QSAM,DISP=(MOD,DELETE,DELETE), // STORCLAS=MFI, // SPACE=(TRK,5), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS) //* //* ******************************************************************* //* Step 2 of 6, Create and populate a new QSAM file... //* //QSAMMAKE EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //* :....1....:....2....:....3....:....4....:....5....:....6....:....7....:....8 //SYSUT1 DD * 000100 Anderson Adrian 111 Peachtree Plaza Atlanta GA 26101 000200 Brown Billie 222 Baker Boulevard Baltimore MD 35702 000300 Carson Cameron 333 Crenshaw Blvd. Cupertino CA 96154 000400 Davidson Dion 444 Main Street Wilmington DE 27323 000500 Everest Evan 555 5TH Avenue New York NY 10341 000600 Franklin Francis 666 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.DATA.CU80QSAM, // DISP=(NEW,CATLG,DELETE), // STORCLAS=MFI, // SPACE=(TRK,5), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS) //* //* ******************************************************************* //* Step 3 of 6, Delete/Define a new VSAM, KSDS... //* //KSDSMAKE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE SIMOTIME.DATA.CU80KSDS SET MAXCC = 0 DEFINE CLUSTER (NAME(SIMOTIME.DATA.CU80KSDS) - KEYS(6,0) - RECORDSIZE(80,80) - REUSE - TRACKS(45,15)) - DATA (NAME(SIMOTIME.DATA.CU80KSDS.DAT) - FREESPACE(10,15) - CISZ(8192)) - INDEX (NAME(SIMOTIME.DATA.CU80KSDS.IDX)) /* //SYSOUT DD SYSOUT=* //* //* //* ******************************************************************* //* Step 4 of 6, Load the KSDS from the QSAM File... //* //KSDSLOAD EXEC PGM=KSLOADC1 //QSAM0080 DD DSN=SIMOTIME.DATA.CU80QSAM,DISP=SHR //KSDS0080 DD DSN=SIMOTIME.DATA.CU80KSDS,DISP=SHR //SYSOUT DD SYSOUT=* //* //* ******************************************************************* //* Step 5 of 6, Delete the previously created SYSUT2 file. //* //DUMPDELT EXEC PGM=IEFBR14 //SYSUT2 DD DSN=SIMOTIME.DATA.CU80DUMP,DISP=(MOD,DELETE,DELETE), // STORCLAS=MFI, // SPACE=(TRK,5), // DCB=(RECFM=F,LRECL=512,DSORG=PS) //SYSOUT DD SYSOUT=* //* //* ******************************************************************* //* Step 6 of 6, Execute the HEX Dump program. //* Note: the dump information will be written to the SYSUT2 file. //* ******************************************************************* //* Dump the content of the user-defined records within a VSAM, KSDS. //* The results of the dump processing is posted to the SYSUT2 File. //* //DUMPEXEC EXEC PGM=HX80KSC3 //STEPLIB DD DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR //SYSUT1 DD DSN=SIMOTIME.DATA.CU80KSDS,DISP=SHR //SYSUT2 DD DSN=SIMOTIME.DATA.CU80DUMP, // DISP=(NEW,KEEP,KEEP), // STORCLAS=MFI, // SPACE=(TRK,5), // DCB=(RECFM=F,LRECL=80,DSORG=PS) //* //* SYSUT3 is an instream file containing a list of keys that will be //* used to access records for the dump output. //SYSUT3 DD * /USERKEY 000100 /USERKEY 000200 /* //SYSOUT DD SYSOUT=* //
WIP2
WIP2
WIP1
WIP2
WIP1
WIP2
WIP1
WIP2
WIP3
WIP4
WIP5
WIP
This is an example of generating a numbered list of items.
| ||||||||||
Title at the Bottom of my N-LIST (Numbered List) |
This is an example of generating a list with an alphabetic label.
| ||||||||
Title at the Bottom of my A-List (Text with an alphabetic label) |
This is an example of generating a list with an alphabetic label.
| ||||||
Title at the Bottom of my A-Link (Text with a Hyperlink) |
This is an example of generating a group of paragraphs or topics in an outline format.
1. | 1st topic for level 1 |
2. | 2nd topic for level 1 |
2.1. | Topic of discussion for level 2 |
2.2. | Topic of discussion for level 2 |
3. | 3rd topic for level 1 |
3.1. | Topic of discussion for level 2 |
3.2. | Topic of discussion for level 2, continuation of items |
3.3. | Topic of discussion for level 2, continuation of items, last sub-entry |
4. | 4th topic for level 1 |
An example of a fixed-font line with yellow highlighting
The following is a string of text with yellow high lighting.
The following (with a MAROON color) is an rrggbb of #800000.
This section describes the hyperlinking capabilities.
| ||||||||||
Creating a Hyperlink |
This is the text before the hyperlink text. Local link to the HTML Generator. This is the text after the hyperlink text.
Explore How to Link to an Internal Bookmark within the same document and in the same window.
Explore Application and Data Migrations via Internet Connect or Local Copy for additional details.
Review the Documentation for this suite of program members. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.
This document may be used 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 documentation and software were developed and tested on systems that are configured for a SIMOTIME environment based on the hardware, operating systems, user requirements and security requirements. Therefore, adjustments may be needed to execute the jobs and programs when transferred to a system of a different architecture or configuration.
SIMOTIME Services has experience in moving or sharing data or application processing across a variety of systems. For additional information about SIMOTIME Services or Technologies please contact us using the information in the Contact or Feedback section of this document.
Software Agreement and Disclaimer
Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Technologies. 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 Technologies.
SimoTime Technologies 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 Technologies 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.
This section includes links to documents with additional information that are beyond the scope and purpose of this document. The first group of documents may be available from a local system or via an internet connection, the second group of documents will require an internet connection.
Note: A SimoTime License is required for the items to be made available on a local system or server.
The following links may be to the current server or to the Internet.
Note: The latest versions of the SimoTime Documents and Program Suites are available on the Internet and may be accessed using the icon. If a user has a SimoTime Enterprise License the Documents and Program Suites may be available on a local server and accessed using the icon.
Explore An Enterprise System Model that describes and demonstrates how Applications that were running on a Mainframe System and non-relational data that was located on the Mainframe System were copied and deployed in a Microsoft Windows environment with Micro Focus Enterprise Server.
Explore the COBOL Connection for more examples of COBOL programming techniques and sample code.
Explore an Extended List of Software Technologies that are available for review and evaluation. The software technologies (or Z-Packs) provide individual programming examples, documentation and test data files in a single package. The Z-Packs are usually in zip format to reduce the amount of time to download.
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 that are used to interpret the results of accessing VSAM data sets and/or QSAM files.
The following links will require an internet connection.
This suite of programs and documentation is available for download. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.
A good place to start is The SimoTime Home Page for access to white papers, program examples and product information. This link requires an Internet Connection
Explore The Micro Focus Web Site for more information about products (including Micro Focus COBOL) and services available from Micro Focus. This link requires an Internet Connection.
Explore the Glossary of Terms for a list of terms and definitions used in this suite of documents and white papers.
This document was created and is maintained by SimoTime Technologies. If you have any questions, suggestions, comments or feedback please use the following contact information.
1. | Send an e-mail to our helpdesk. |
1.1. | helpdesk@simotime.com. |
2. | Our telephone numbers are as follows. |
2.1. | 1 415 763-9430 office-helpdesk |
2.2. | 1 415 827-7045 mobile |
We appreciate hearing from you.
SimoTime Technologies was founded in 1987 and 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. Our customers include small businesses using Internet technologies to corporations using very large mainframe systems.
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. We specialize in preparing applications and the associated data that are currently residing on a single platform to be distributed across a variety of platforms.
Preparing the application programs will require the transfer of source members that will be compiled and deployed on the target platform. The data will need to be transferred between the systems and may need to be converted and validated at various stages within the process. SimoTime has the technology, services and experience to assist in the application and data management tasks involved with doing business in a multi-system environment.
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
Return-to-Top |
Sample Template for HTMGENER, HTMGENX2 - Advanced Functions |
Copyright © 1987-2025 SimoTime Technologies and Services All Rights Reserved |
When technology complements business |
http://www.simotime.com |