Document Control
Access, Storage and Maintenance
  Table of Contents  v-24.01.01 - dcuguide.htm 
  Introduction
  Architecture
  Diagram, Sequence of Processing
  Directory Structure
  Directory Structure for Development
  Directory Structure for Testing
  Execute
  View or Update DCMASTER
  CICS Transaction
  Micro Focus Data File Editor
  Enterprise Server Administration
  SimoTime Hex-Dump Program
  HTML and Browser Access
  Group Identifiers
  Technical Detail
  The CMD Members
  Create a New FPMASTER File
  Populate a FPMASTER File using Import
  Select & Generate a Group of Documents
  Record Structure
  Copy File for DCMASTER
  HTML Document for DCMASTER
  Summary
  Software Agreement and Disclaimer
  Downloads and Links
  Current Server or Internet Access
  Internet Access Required
  Glossary of Terms
  Contact or Feedback
  Company Overview
The SimoTime Home Page 

Table of Contents Previous Section Next Section 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-2024
SimoTime Technologies and Services
All Rights Reserved

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section Diagram, Sequence of Processing

The following shows the sequence of processing and the steps to be performed when creating a new Document Control Repository.

             
DCMASTW8
   
   
 
 
 
 
   
   
   
   
call
 
 
   
   
   
ENV1BASE
Set Common Environment Variables
   
   
   
run
 
 
   
   
   
   
   
SYSUT1
 
 
DCMASTX8
--call--
DCMASTR8
 
 
SYSUT2
Allocate and Load a New DCMASTER
   
   
   
 
 
 
 
   
   
EOJ
This is End-of-Job, refer to Note-1
 
Note-1: This is a normal end-of-job
Process Flow, Load a Document Control Repository

Table of Contents Previous Section Next Section Directory Structure

The following will describe the directory structures used by the SimoTime Development and Testing teams.

Table of Contents Previous Section Next Section 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.

               
SIMOSAM1
See Note-1
   
   
 
 
DEVL
See Note-2
   
   
 
 
ADM1
 
 
and MORE
Administrative and Support functions
   
   
 
 
ASM
 
 
and MORE
Mainframe Assembler Source and Sub-Directories
   
   
 
 
BMS
Contains Basic Mapping Support Member
   
   
 
 
COBCPY1
Contains COBOL Copy Members
   
   
 
 
COBCPY6
Contains COBOL Copy Members from a BMS GEN
   
   
 
 
COBOL
Contains COBOL Source Members
   
   
 
 
COBOLUT1
Contains COBOL Source Members, see Note-3
   
   
 
 
COBOLUT2
Contains COBOL Source Members, see Note-4
   
   
 
 
COBOLUT3
Contains COBOL Source Members, see Note-5
   
   
 
 
DATA
Contains the catalog and data files
   
   
   
   
 
 
APPL
Contains non-Relational data files for Application
   
   
   
   
 
 
SPOOL
Contains the JES and SYSOUT files
   
   
   
   
 
 
and MORE
Link to additional sub-Directories
   
   
 
 
DIRS
Contains compiler directives files
   
   
 
 
DOCS
Contains user or application documentation
   
   
 
 
HOLD
 
 
and MORE
Contains new load members from Scripted Builds
   
   
 
 
IMSLIB
Contains the IMS Members for execution-time
   
   
   
   
 
 
DBD
Source Members for the IMS DBD
   
   
   
   
 
 
PSB
Source Members for the IMS PSB
   
   
 
 
JAVA
Contains JAVA Source Members
   
   
 
 
JCL
Contains the JCL Source Members
   
   
 
 
JCLINC
Contains the Include Members for JCL
   
   
 
 
LOADLIB
Contains the executable members
   
   
   
   
 
 
GNTS
Contains COBOL Load Members
   
   
   
   
 
 
simpacks
Contains Java Class Members
   
   
 
 
LOGS
Contains the log files for the application
   
   
 
 
PARMLIB
Contains the parameter or control files
   
   
 
 
PROCLIB
Contains the Procedures (or PROC's) for JCL
   
   
 
 
REXXLIB
Contains the REXX Program Members
   
   
 
 
SIMOGENS
 
 
and MORE
Contains the Program Generation Members
   
   
 
 
SYS1
Systems directory, not exposed to users
   
   
 
 
CONFIG
System configuration specifications
   
   
 
 
and MORE
Link to additional sub-Directories?
 
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

Table of Contents Previous Section Next Section 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.

               
SIMOSAM1
See Note-1
   
   
 
 
TEST
See Note-2
   
   
 
 
ADM1
 
 
and MORE
Administrative and Support funtions
   
   
 
 
DATA
Contains the catalog and data files
   
   
   
   
 
 
APPL
Contains non-Relational data files for Application
   
   
   
   
 
 
SPOOL
Contains the JES and SYSOUT files
   
   
   
   
 
 
and MORE
Link to additional sub-Direcctories
   
   
 
 
DOCS
Contains user or application documentation
   
   
 
 
IMSLIB
Contains the IMS Members for execution-time
   
   
 
 
JCL
Contains the JCL Source Members
   
   
 
 
JCLINC
Contains the Include Members for JCL
   
   
 
 
LOADLIB
Contains the executable members
   
   
 
 
LOGS
Contains the log files for the application
   
   
 
 
PARMLIB
Contains the parameter or control files
   
   
 
 
PROCLIB
Contains the Procedures (or PROC's) for JCL
   
   
 
 
REXXLIB
Contains the REXX Program Members
   
   
 
 
SYS1
Systems directory, not exposed to users
   
   
 
 
CONFIG
System configuration specifications
   
   
 
 
and MORE
Link to additional sub-Direcctories
 
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

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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.

Link to Internet   Link to Server   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)

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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

Table of Contents Previous Section Next Section SimoTime Hex-Dump Program

The SimoTime Technologies have the capability of generating a program that will read selected records from the File Properties repository.

Link to Internet   Link to Server   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.

Table of Contents Previous Section Next Section 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.

Link to Internet   Link to Server   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).

Table of Contents Previous Section Next Section Group Identifiers

Each document may be assigned to a group.

CICS This group of documents is used to support the CICS environment running on an IBM Mainframe System or the Micro Focus Transaction environment running on a Linux, UNIX or Windows System.
HASM High Level Assembler (HLASM) for an IBM Mainframe System or a Linux, UNIX or Windows System running Micro Focus Enterprise Developer.
JAVA This group of documents is used to support the Java Development or Java Runtime Environments.
NAV@ This group of documents is used to navigate between documents.
PATH This SIMOPATH (or PATH) group of documents is used for training purposes.
VAID Visual Aid or presentation material.
  Group Identifier Codes for Document Members

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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

Table of Contents Previous Section Next Section 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

Table of Contents Previous Section Next Section 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%

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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 *
      *****************************************************************
      *

Table of Contents Previous Section Next Section HTML Document for DCMASTER

The following link provides additional detail about the record layout for the File Properties repository.

Link to Internet   Link to Server   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.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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 Link to Internet 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 Link to Server 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.

Link to Internet   Link to Server   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.

Link to Internet   Link to Server   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).

Link to Internet   Link to Server   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).

Link to Internet   Link to Server   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.

Link to Internet   Link to Server   Explore the COBOL Connection for more examples of COBOL programming techniques and sample code.

Link to Internet   Link to Server   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.

Link to Internet   Link to 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.

Link to Internet   Link to Server   Explore The File Status Return Codes that are used to interpret the results of accessing VSAM data sets and/or QSAM files.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section Glossary of Terms

Link to Internet   Link to Server   Explore the Glossary of Terms for a list of terms and definitions used in this suite of documents and white papers.

Table of Contents Previous Section Next Section 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.

Table of Contents Previous Section Next Section 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-2024
SimoTime Technologies and Services
All Rights Reserved
When technology complements business
http://www.simotime.com