Access, Storage and Maintenance
|
Document Control Access, Storage and Maintenance |
|
| The SimoTime Home Page |
Introduction
SimoTime has created and maintains a library of technical documents, Test Cases and White Papers. A list (or indexed, repository) of the documents is used to maintain information about each of the documents.
The following is an overview of the steps required to create a Repository of information about the non-relational data structures used by a business processing application.
| 1. | Create an Excel Spreadsheet |
| 1.1. | Gather the file information |
| 1.1.1. | ZOS IDCAMS & the LISTCAT Function |
| 1.1.2. | File Control Table (FCT) from CICS System Definitions (CSD) |
| 1.1.3. | Micro Focus .PRO File created by Mainframe Access (MFA) or the Data File Editor (DFED) |
| 2. | Save the Spreadsheet as a CSV File |
| 3. | Convert the CSV File to a Record Sequential File with Fixed-Record & Fixed-Field length |
| 4. | Read the Record Sequential File & load the Data File Repository (VSAM/KSDS) |
| 5. | Generate an HTML Document |
For an example of a generated HTML document or additional information about creating and loading the "Document Control" Repository refer to the Downloads and Links section of this document.
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
Architecture
This section will focus on the architecture of the Development and Testing Environments for managing and documenting information about the non-relational data structures used by an application.
Diagram, Sequence of Processing
The following shows the sequence of processing and the steps to be performed when creating a new Document Control Repository.
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-1: This is a normal end-of-job |
| Process Flow, Load a Document Control Repository |
Directory Structure
The following will describe the directory structures used by the SimoTime Development and Testing teams.
Directory Structure for Development
The following is the directory structure used by the SimoTime Development team. This environment is used for development and unit testing.
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-1: This is the primary directory for the SimoTime Driver Programs and Test Cases | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-2: This is the Development, Production or Test directory, for this example it is set to DEVL. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-3: Utility programs using a mainframe dialect, not part of application business functions | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-4: Utility programs using a Micro Focus dialect, not part of application business functions | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-5: Utility programs with specialized or unique requirements |
| The Directory Structure used in the in the SimoTime Development Environment |
Directory Structure for Testing
The following is the directory structure used by the SimoTime Testing team. This environment is used for System, Application and Regression Testing.
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-1: This is the primary root directory, for this example it is set to C:\SIMOSAM1. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Note-2: This is the Development, Production or Test directory, for this example it is set to TEST. |
| The Directory Structure used in the Workshop for Micro Focus Server Enterprise Edition |
Execute
This section will describe how to execute programs that access an existing repository that is used to manage an inventory of documents. SimoTime maintains a library of over five-hundred (500) documents. For accessibility from a variety of devices across a wide audience the documents are maintained in an HTML format. The Document Control repository is a list of these documents.
View or Update DCMASTER
Once the Document Control repository has been created there are a number of ways to view and possibly update information in the repository.
CICS Transaction
The SimoTime libraries contain a CICS transaction that uses a COBOL program and a BMS screen definition to provide a view and update function for the File Properties repository.
Explore a CICS Sample Program for accessing the FPMASTER File. The FPMASTER File contains information (or properties) about the non-relational data structures used by the sample applications. The repository is a VSAM, Key-Sequenced-Data-Set (KSDS)
Micro Focus Data File Editor
The Micro Focus Data File Editor (DFED) is available with Micro Focus Enterprise Developer and may be used to view or update the File Properties Repository.
Enterprise Server Administration
When a Micro Focus Server Instance is configured with the Mainframe Sub-system option and the JES function is enabled it is possible to display the content of the files in the catalog.
The following shows the records from the FPMASTER repository as viewed from the ES Administration screen from Micro Focus Enterprise Server.
00DSN or VSAM Cluster (54 Bytes) DD Name ORG FM 00000000000000000000VSAM Data Name VSAM Index Name OverrideJob 1 Job 2 S1 S2 Extend-M1 Extend-M2 Extend-M3 Extend-M4 Extend-X1 Extend-X2 01SIMOTIME.DATA.CUS512D2 CUS512D2 KS F 00512005120000100012SIMOTIME.DATA.CUS512D2.DAT SIMOTIME.DATA.CUS512D2.IDX CUGNRUJ2 c:\SIMOSAM1\DEVL\JCL 01SIMOTIME.DATA.CUSRE512 CUSRE512 PS FB 00512005120000000000 01SIMOTIME.DATA.CUSTMAST CUSTMAST KS F 00512005120000100012SIMOTIME.DATA.CUSTMAST.DAT SIMOTIME.DATA.CUSTMAST.IDX CUGNRUJ1 c:\SIMOSAM1\DEVL\JCL 01SIMOTIME.DATA.FNAMEF01 FNAMEF01 PS FB 00032000320000000000 01SIMOTIME.DATA.FNAMEM01 FNAMEM01 PS FB 00032000320000000000 01SIMOTIME.DATA.GDGKSDS1 GDGKSDS1 GDG F 00512005120000000000 LIMIT(5) EMPTY NOSCRATCH 01SIMOTIME.DATA.GDGROUP1 GDGROUP1 GDG FB 00080000800000000000 GDGMODJ1 c:\AC2012\MM06\DEVL\JCL 01SIMOTIME.DATA.GDGROUP2 GDGROUP2 GDG FB 00080000800000000000 LIMIT(5) EMPTY NOSCRATCH 01SIMOTIME.DATA.GDMKSDS1 GDMKSDS1 KS F 00512005120000100012SIMOTIME.DATA.GDMKSDS1.DAT SIMOTIME.DATA.GDMKSDS1.IDX c:\AC2012\MM06\DEVL\JCL 01SIMOTIME.DATA.GDMODEL2 GDMODEL2 PS FB 00080000800000000000 01SIMOTIME.DATA.ITEMMAST ITEMMAST KS F 00512005120000100012SIMOTIME.DATA.ITEMMAST.DAT SIMOTIME.DATA.ITEMMAST.IDX ITCSQJ01ITUPDJ01 c:\SIMOSAM1\DEVL\JCL 01SIMOTIME.DATA.LASTNAME LASTNAME PS FB 00032000320000000000 01SIMOTIME.DATA.OBF1RSEQ OBF1RSEQ PS FB 00512005120000000000 OBFSEQJ1 c:\SIMOSAM1\DEVL\SYS1\JCL 01SIMOTIME.DATA.OBFCTL80 OBFCTL80 PS FB 00080000800000000000 OBFCTLV1 c:\SIMOSAM1\DEVL\SYS1\JCL 01SIMOTIME.DATA.POSTCODE POSTCODE PS FB 00080000800000000000 01SIMOTIME.DATA.STATEDB1 STATEDB1 PS FB 00128001280000000000 01SIMOTIME.DATA.STREET01 STREET01 PS FB 00080000800000000000 01SIMOTIME.ESDS.ESDSC01K ESDSD01K ES V 01024010240000000000SIMOTIME.ESDS.ESDSD01K.DAT 01SIMOTIME.ESDS.ESDSC128 ESDSD128 ES V 00128001280000000000SIMOTIME.ESDS.ESDSD128.DAT 01SIMOTIME.ESDS.ESDSC350 ESDSD350 ES V 00350003500000000000SIMOTIME.ESDS.ESDSD350.DAT 01SIMOTIME.PDS.COBCPY7 COBCPY7 PO LSEQ00080000800000000000 CPY C:\SIMOSAM1\DEVL\COBCPY7 01SIMOTIME.PDS.CSVLIB CSVLIB PO LSEQ02048020480000000000 CSV C:\SIMOSAM1\DEVL\DATA\XLSS 01SIMOTIME.PDS.JCL JCLPDS PO LSEQ00080000800000000000 JCL C:\SIMOSAM1\DEVL\JCL C:\SIMOSAM1\DEVL\JCL 01SIMOTIME.PDS.JCLINCS INCSLIB PO LSEQ00080000800000000000 INC C:\SIMOSAM1\DEVL\JCLINCS 01SIMOTIME.PDS.PARMLIB PARMLIB PO LSEQ00080000800000000000 CTL C:\SIMOSAM1\DEVL\PARMLIB 01SIMOTIME.PDS.PCFCONV PCFCONV PO LSEQ02048020480000000000 PCF C:\SIMOSAM1\DEVL\CONVERTS 01SIMOTIME.PDS.PROCLIB PROCLIB PO LSEQ00080000800000000000 PRC C:\SIMOSAM1\DEVL\PROCLIB 01SIMOTIME.PDS.REXXLIB REXXLIB PO LSEQ00080000800000000000 REX C:\SIMOSAM1\DEVL\REXXLIB 01SIMOTIME.RRDS.RRDS0080 RRDS0080 RR F 00080000800000000000SIMOTIME.RRDS.RRDS0080.DAT 01SIMOTIME.RRDS.RRDSC01K RRDSC01K RR F 01024010240000000000SIMOTIME.RRDS.RRDSC01K.DAT 01SIMOTIME.UTIL.APMASTER APMASTER KS F 01024010240000100018SIMOTIME.UTIL.APMASTER.DAT SIMOTIME.UTIL.APMASTER.IDX 01SIMOTIME.UTIL.FPMASTER FPMASTER KS F 01024010240000300054SIMOTIME.UTIL.FPMASTER.DAT SIMOTIME.UTIL.FPMASTER.IDX 01SIMOTIME.UTIL.MSGXKSDS MSGXKSDS KS F 00080000800000100004SIMOTIME.UTIL.MSGXKSDS.DAT SIMOTIME.UTIL.MSGXKSDS.IDX STCAMSJ1 c:\SIMOSAM1\DEVL\JCL
SimoTime Hex-Dump Program
The SimoTime Technologies have the capability of generating a program that will read selected records from the File Properties repository.
Explore How to Create Hexadecimal Dump information for the records in a File Properties repository. The repository is a VSAM, Key-Sequenced-Data-Set (KSDS). This document describes a process for generating a COBOL program that will read a VSAM/KSDS and write hexadecimal dump information to a sequential file. The user may define the records to be dumped by providing a list of primary keys in a control file.
HTML and Browser Access
The SimoTime Technologies have the capability of reading the File Properties Repository and creating an HTML document of the information for the non-relational data structures. Once the HTML document is created it may be placed on a server and accessed using a Web Browser of choice.
Explore an example of a generated HTML document that contains the details (or properties) of the non-relational data structures used by an application. This link will focus on non-relational data structures such as traditional files, VSAM Data Sets, Partitioned Data Sets (PDS's) and Generation Data Groups (GDG's).
Group Identifiers
Each document may be assigned to a group.
| ||||||||||||
| Group Identifier Codes for Document Members |
Technical Detail
This section provides additional details about the programs and control files that are used in this suite of programs. This section is intended for use by the application and system programmers that deploy and support this suite of programs running in a user environment.
The CMD Members
This section will focus on the commands used to build the SimoTime Repository and a list of document names and document dependencies.
Create a New FPMASTER File
This command (FPDDEFE1.cmd) will create a new DCMASTER.DAT file that will be used as the Document Content Repository.
@echo OFF
set CmdName=FPDDEFE1
rem * *******************************************************************
rem * Batch Job Script - a Windows Command File *
rem * Provided by SimoTime Technologies and Services *
rem * (C) Copyright 1987-2021 All Rights Reserved *
rem * Web Site URL: http://www.simotime.com *
rem * e-mail: helpdesk@simotime.com *
rem * *******************************************************************
rem * A procedure for a batch function to create a new FPMASTER.DAT
rem * file that will be used as the File Properties Repository. This
rem * process performs the same function as an IDCAMS, Delete/Define.
rem *
rem * This procedure calls the following Windows Command Files.
rem * 1. ezSetEnv.CMD - this provides a single point for setting commonly
rem * used environment variables.
rem * 2. SimoNOTE.CMD - this provides a consistent process for displaying
rem * messages to the screen and writing to a journal or
rem * log file.
rem * ************************************************************************
setlocal
call ..\Env1BASE %CmdName%
rem *
call SimoNOTE "*-----------------------------------------------------------------------------*01 of 02"
call SimoNOTE "* Step 01 of 02, Preparing the System and Job environment"
rem *
rem * Step 1 of 2, Prepare the Environment
rem * UPDFLAG-01 Update complete record
rem * UPDFLAG-02 Update the Base Fields (Key and File Names)
rem * UPDFLAG-03 Update the File Properties
rem * UPDFLAG-04 Update the JCL Scan Fields
rem * UPDFLAG-05 Update the User defined Fields
rem *
rem * 12345678
set UPDFLAGS=NYYYN
call SimoNOTE "*-----------------------------------------------------------------------------*02 of 02"
call SimoNOTE "* Step 02 of 02, Generate the INCLUDE Segment"
set FPRFFLD1=%BaseLib1%\DATA\Wrk1\SIMOTIME.UTIL.FPNULLD1.DAT
set FPMASTER=%BaseLib1%\DATA\APPL\SIMOTIME.UTIL.FPMASTER.DAT
rem *
rem * The following will create a null sequnetial file for input. This will
rem * be used to force an end of file and create an empty FPMASTER.DAT file
rem * to be used as the File Properties Repository.
rem *
if not exist %FPRFFLD1% copy nul %FPRFFLD1%
rem *
rem * Step 2 of 2, Update or Add records to the Data FIle Data Base
rem *
rem * Read the Listing file, set the environment and append/update the
rem * records in the File Properties Repository. Since the input file
rem * is an empty file this will perform a Delete/Define for a new,
rem * File Properties Repository (or FPMASTER.DAT).
rem *
run FPLOADC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0010)
if not "%JobStatus%" == "0000" goto :EojNOK
:EojAOK
call SimoNOTE "DataMake %FPMASTER%"
call SimoNOTE "Finished CmdName %CmdName%, Job Status is %JobStatus% "
goto :End
:EojNOK
call SimoNOTE "ABENDING CmdName %CmdName%, Job Status is %JobStatus% "
goto :End
:End
call SimoNOTE "FileInfo SYSOUT=%SYSOUT%"
call SimoNOTE "Finished JobName %CmdName%.CMD"
if not "%SimoGENS%" == "BATCH" pause
endlocal
Populate a FPMASTER File using Import
This command (FPMIMPE1.cmd) will create a new DCMASTER.DAT file that will be used as the Document Content Repository.
@echo OFF
set CmdName=FPMIMPE1
rem * *******************************************************************
rem * FPMIMPE1.CMD - a Windows Command File *
rem * This program is provided by SimoTime Technologies *
rem * (C) Copyright 1987-2015 All Rights Reserved *
rem * Web Site URL: http://www.simotime.com *
rem * e-mail: helpdesk@simotime.com *
rem * *******************************************************************
rem * This procedure will read an ASCII/Text file and use the information
rem * in the individual records to update the File Properties Repository.
rem * The ASCII/Text file is created by saving an Excel Spreadsheet as a
rem * Comma Separated Values (or CSV) file.
rem *
rem * This procedure calls the following Windows Command Files.
rem * 1. ezSetEnv.CMD - provides a single point for setting commonly
rem * used environment variables.
rem * 2. SimoNOTE.CMD - provides a consistent process for displaying
rem * messages to the screen and writing to a journal
rem * or log file.
rem * *******************************************************************
setlocal
call ..\Env1BASE %CmdName%
rem *
call SimoNOTE "*******************************************************************%CmdName%.CMD"
call SimoNOTE "Starting JobName %CmdName%.CMD"
rem *
set FPMASTER=%BaseLib1%\DATA\APPL\SIMOTIME.UTIL.FPMASTER.DAT
rem *
rem * Read the CSV File, update the FPMASTER File (File Properties Repository).
set FPASCCSV=%BASECAT%\XLSS\LONAPPDS.CSV
call SimoNOTE "* DataTake %FPASCCSV%"
call SimoNOTE "* FPMASTER %FPMASTER%"
run FPMIMPC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0010)
if not "%JobStatus%" == "0000" goto :EojNOK
rem *
rem * Read the CSV File, update the FPMASTER File (File Properties Repository).
set FPASCCSV=%BaseLib1%\DATA\XLSS\LONAPGDG.CSV
call SimoNOTE "DataTake %FPASCCSV%"
run FPMIMPC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0020)
if not "%JobStatus%" == "0000" goto :EojNOK
rem *
rem * Read the CSV File, update the FPMASTER File (File Properties Repository).
set FPASCCSV=%BaseLib1%\DATA\XLSS\LONAPSEQ.CSV
call SimoNOTE "DataTake %FPASCCSV%"
run FPMIMPC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0030)
if not "%JobStatus%" == "0000" goto :EojNOK
rem *
rem * Read the CSV File, update the FPMASTER File (File Properties Repository).
set FPASCCSV=%BaseLib1%\DATA\XLSS\LONAPKSD.CSV
call SimoNOTE "DataTake %FPASCCSV%"
run FPMIMPC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0040)
if not "%JobStatus%" == "0000" goto :EojNOK
rem *
rem * Read the CSV File, update the FPMASTER File (File Properties Repository).
set FPASCCSV=%BaseLib1%\DATA\XLSS\LONAPX10.CSV
call SimoNOTE "DataTake %FPASCCSV%"
run FPMIMPC1
if not "%ERRORLEVEL%" == "0" (call SimoNOTE "Error Level = %ERRORLEVEL% "
set JobStatus=0050)
if not "%JobStatus%" == "0000" goto :EojNOK
:EojAOK
call SimoNOTE "DataTake %FPASCCSV%"
call SimoNOTE "DataMake %FPMASTER%"
call SimoNOTE "Finished CmdName %CmdName%, Job Status is %JobStatus% "
goto :End
:EojNOK
call SimoNOTE "ABENDING CmdName %CmdName%, Job Status is %JobStatus% "
goto :End
:End
call SimoNOTE "FileInfo SYSOUT=%SYSOUT%"
call SimoNOTE "Finished JobName %CmdName%.CMD"
if not "%SimoGENS%" == "BATCH" pause
endlocal
Select & Generate a Group of Documents
This command (DCMASTW8.cmd) will create a new FPMASTER.DAT file that will be used as the File Properties Repository. This process performs the same function as an IDCAMS, Delete/Define.
@echo OFF
rem * *******************************************************************
rem * DCMASTW8.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 - Read ASCII/Text/CSV, write ASCII/FFL File.
rem * Author - SimoTime Technologies
rem * Date - January 24, 1996
rem *
rem * The job will read an ASCII-encoded, Line Sequential File and write
rem * to a new ASCII-encoded Record Sequential File.
rem *
rem * ************
rem * * DCMASTW8 *
rem * ********cmd*
rem * *
rem * *
rem * ************
rem * * ENV1BASE *
rem * ********cmd*
rem * *
rem * *
rem * ************
rem * * SimoNOTE *
rem * ********cmd*
rem * *
rem * *
rem * ************
rem * * RUN *---------------------------*
rem * ********rts* *
rem * * ************
rem * * ************ * DCMASTX8 * ************
rem * * * SYSUT1 *-----* -- *-----* SYSUT2 *
rem * * *******rseq* * DCMASTR1 * *******rseq*
rem * * ********cbl*
rem * ************
rem * * EOJ *
rem * ************
rem *
rem * *******************************************************************
rem * Step 1, Set Environment Variables
rem * Delete any previously created ASCII-encoded file...
rem *
call ..\Env1BASE
set CmdName=DCMASTW8
rem *
call SimoNOTE "*******************************************************%CmdName%"
call SimoNOTE "Starting JobName %CmdName%, User is %USERNAME%"
call SimoNOTE "Identify JobStep Step-1, Housekeeping tasks"
set SYSUT1=C:\SIMOSAM8\ADM1\CNTL\SIMOTIME.DCMASTER.MBR@LIST.csv
set SYSUT2=%BaseLib1%\DATA\APPL\SIMOTIME.DCMASTER.MBR@LIST.DAT
set SYSUT3=%BaseLib1%\PARMLIB\DCMASTT1.txt
if exist %SYSUT2% del %SYSUT2%
echo NAV*>%SYSUT3%
rem *
rem * *******************************************************************
rem * Step 2, Read ASCII-encoded LSEQ, create a new ASCII-encoded RSEQ
rem *
call SimoNOTE "Identify JobStep Step-2, Execute ASCII to EBCDIC Convert"
call SimoNOTE "DataTake SYSUT1=%SYSUT1%"
call SimoNOTE "DataMake SYSUT2=%SYSUT2%"
run DCMASTX8
if not "%ERRORLEVEL%" == "0" set JobStatus=0010
if not "%JobStatus%" == "0000" goto EojNOK
if exist %SYSUT2% goto EojAOK
set JobStatus=0020
goto EojNOK
:EojAOK
call SimoNOTE "Produced %SYSUT2%"
call SimoNOTE "Finished CmdName %CmdName%, Job Status is %JobStatus%"
goto :End
:EojNOK
call SimoNOTE "ABENDING CmdName %CmdName%, Job Status is %JobStatus%"
echo %DATE% - %TIME% Starting User ABEND Processing...>>%SYSLOG%
set >>%SYSLOG%
echo %DATE% - %TIME% Complete User ABEND Processing...>>%SYSLOG%
goto :End
:End
call SimoNOTE "Conclude SYSOUT is %SYSOUT%"
if not "%1" == "nopause" pause
exit /B %JobStatus%
Record Structure
The record structure for the Document Content repository is defined in a COBOL Copy file. Additional detail (such as field position within a record) is provided in a separate HTML document.
Copy File for DCMASTER
This source member (DCMASTB1.cpy) is the COBOL Copy File that defines the record structure for the File Properties Repository (FPMASTER) that is a VSAM KSDS.
*****************************************************************
* DCMASTB1.CPY - a COBOL Copy File *
* Copyright (C) 1987-2019 SimoTime Technologies *
* All Rights Reserved *
* Provided by SimoTime Technologies *
* Our e-mail address is: helpdesk@simotime.com *
* Also, visit our Web Site at http://www.simotime.com *
*****************************************************************
* Copy File for the record structure of the DCMASTER File that
* contains the properties or characteristics of the HTML
* Documents located on the SimoTime Server.
* This is a VSAM Keyed=Sequential-Data-Set or Key-Indexed File.
*
01 DCMASTER-REC.
05 DCMASTER-DATA-01.
10 DCMASTER-BASE-INFO.
15 DCMASTER-LEVEL-NBR PIC 9(2). COL-A
15 DCMASTER-MBR-NAME PIC X(64). COL-B
15 DCMASTER-HTM-CONFG PIC X(64). COL-C
10 DCMASTER-LIBR-PROPERTIES.
15 DCMASTER-CSV-LIBR PIC X(256). COL-D
15 DCMASTER-HTM-LIBR PIC X(256). COL-E
15 DCMASTER-INC-LIBR PIC X(256). COL-F
10 DCMASTER-GROUP.
15 DCMASTER-GROUP-001 PIC X(8).
15 DCMASTER-GROUP-002 PIC X(8).
15 DCMASTER-GROUP-003 PIC X(8).
15 DCMASTER-GROUP-004 PIC X(8).
15 DCMASTER-GROUP-005 PIC X(8).
15 DCMASTER-GROUP-006 PIC X(8).
15 DCMASTER-GROUP-007 PIC X(8).
15 DCMASTER-GROUP-008 PIC X(8).
15 DCMASTER-GROUP-009 PIC X(8).
15 DCMASTER-GROUP-010 PIC X(8).
10 DCMASTER-GROUP-TABLE redefines DCMASTER-GROUP
occurs 10 times
PIC X(8).
05 FILLER PIC X(46).
*
*** DCMASTB1 - End-of-Copy File - - - - - - - - - - - DCMASTB1 *
*****************************************************************
*
HTML Document for DCMASTER
The following link provides additional detail about the record layout for the File Properties repository.
Examine the Record Structure for the Document Control Repository. The repository is a VSAM, Key-Sequenced-Data-Set (KSDS). The logical record length is 1,024 bytes. The primary key starts in position three (3) of each record and the length is 64 bytes. The key is an alpha-numeric text string and is usually the Document name.
Summary
The purpose of this document is to assist as a tutorial for new programmers or as a quick reference for experienced programmers that are interested in creating a repository of information for non-relational data structures. Links to additional documents and programming examples are provided.
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.
Downloads and Links
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.
Current Server or Internet Access
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.
The File Properties Repository is a VSAM, Key-Sequenced-Data-Set (KSDS). The record length is 1,024 bytes. The primary key is 54 bytes starting in position 3 of each record. The key is an alpha-numeric string and is typically the Data Set Name (DSN). Each record in the repository contain information about a non-relational data structure. A non-relational data structure may be a VSAM Data Set, a Record Sequential File (RSEQ), a Line Sequential File (LSEQ or ASCII/Text), a Partitioned Data Set (PDS) or a Generation Data Group (GDG).
The following links focus on the File Repository Requirements and Management tasks.
Explore How to Create Hexadecimal Dump information for the records in a File Properties repository. The repository is a VSAM, Key-Sequenced-Data-Set (KSDS). This document describes a process for generating a COBOL program that will read a VSAM/KSDS and write hexadecimal dump information to a sequential file. The user may define the records to be dumped by providing a list of primary keys in a control file.
Explore an example of a generated HTML document that contains the details (or properties) of the non-relational data structures used by an application. This link will focus on non-relational data structures such as traditional files, VSAM Data Sets, Partitioned Data Sets (PDS's) and Generation Data Groups (GDG's).
Explore how to load a Repository of Information about Data Files used by an application or suite of applications. The load process will read a user-defined file of information and update the File Properties Repository that is a VSAM Key-Sequenced-Data-Set (KSDS). This link will focus on non-relational data structures such as traditional files, VSAM Data Sets, Partitioned Data Sets (PDS's) and Generation Data Groups (GDG's).
Explore a CICS Sample Program for accessing the FPMASTER File. The FPMASTER File contains information (or properties) about the non-relational data structures used by the sample applications. The repository is a VSAM, Key-Sequenced-Data-Set (KSDS)
The following links focus on items that relate to the File Repository Requirements and Management tasks.
Explore the COBOL Connection for more examples of COBOL programming techniques and sample code.
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 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.
Internet Access Required
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. 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.
Glossary of Terms
Explore the Glossary of Terms for a list of terms and definitions used in this suite of documents and white papers.
Contact or Feedback
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.
Company Overview
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 |
| Document Control, Access and Maintenance |
| Copyright © 1987-2025 SimoTime Technologies and Services All Rights Reserved |
| When technology complements business |
| http://www.simotime.com |