Extract Names & Properties from Catalog
 Save Catalog Information to a CSV and/or FFL File
When technology complements business    Copyright © 1987-2012  SimoTime Enterprises  All Rights Reserved
  Table of Contents Version 11.03.22 
  Introduction
  MFCATXPT, What it Does
  MFCATXPT, Process Overview
  MFCATXPT, How to Use
  MFCATXPT, Input and Output
  MFCATXPT, Optional Output in Comma-Separated-Values Format
  MFCATXPT, Optional Output in Fixed-Field-Length Format
  Control and Monitor Flags
  Summary
  Software Agreement and Disclaimer
  Downloads and Links to Similar Pages
  Glossary of Terms
  Comments, Suggestions or Feedback
  Company Overview
The SimoTime Home Page

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

The MFCATXPT Utility Program will read the Micro Focus catalog and write information to a CSV File for use by Excel and/or an FFL File for use by a COBOL Program.

Additional information about this program may be obtained by sending an e-mail to: helpdesk@simotime.com

The following shows a quick list of the acronyms used in the document.

Acronym Description
LONAP List of Names and Properties
CSV Comma Separated Values
FFL Fixed Field Length
  A Quick Summary of Terms or Acronyms used in this Document

MFCATXPT, What it Does
(Next) (Previous) (Table-of-Contents)

This program provides presentation alternatives for reviewing or sharing the contents of the Micro Focus catalog. The MFCATXPT program will read a CATALOG.DAT file created by Micro Focus and produce a Comma Separated Values (or CSV) file with data file information. The information included in the CSV file may be easily imported into an Excel spreadsheet. This information includes the Data Set Name (DSN), Record Format (RECFM), Data Set Organization (DSORG), the minimum and maximum record length, the key position and key length and other information.

MFCATXPT, Process Overview
(Next) (Previous) (Table-of-Contents)

The following shows the logic flow for the Catalog Export Utility.

             
CATGET01
 
 
MFCATXPT
   
   
LONAPCSV
Read the CATALOG.DAT File, write to CSV File
   
   
   
   
   
LONAPFFL
Write to the FFL File
   
   
 
 
   
   
   
   
   
   
   
   
SIMOCNTL
 
 
MFENVARS
Get the Control and Monitor Flags
   
   
   
   
   
EOJ
This is End-of-Job
 
The Process Flow for the Micro Focus Catalog Export Utility Program

MFCATXPT, How to Use
(Next) (Previous) (Table-of-Contents)

The following command file (SYS1CATXPORT.CMD) describes how to use the MFCATXPT program.

@echo OFF
rem  * *******************************************************************
rem  *             SYS1CATXPORT.CMD - a Windows Command File             *
rem  *         This program is provided by SimoTime Enterprises          *
rem  *           (C) Copyright 1987-2012 All Rights Reserved             *
rem  *             Web Site URL:   http://www.simotime.com               *
rem  *                   e-mail:   helpdesk@simotime.com                 *
rem  * *******************************************************************
rem  *
rem  * Text   - Enterprise Server, Catalog Export Utility
rem  * Author - SimoTime Enterprises
rem  * Date   - January 24, 1996
rem  *
rem  * LONAP  - an acronym for a List Of Names And Properties.
rem  * CSV    - an acronym for Comma-Separated-Values.
rem  * FFL    - an acronym for Fixed-Field-Length.
rem  *
rem  * INPUT... Description
rem  * CATGET01 identifies the CATALOG.DAT file.
rem  *
rem  * OUTPUT.. Description
rem  * LONAPCSV identifies the ASCII/Text file,
rem  *          records are text strings of Comma-Separated-Values (CSV).
rem  * LONAPFFL identifies the Sequential file,
rem  *          records are data strings of Fixed-Field-Length (FFL).
rem  *
     set CmdName=SYS1CATXPORT
     call ..\..\Env1BASE
     call SIMONOTE "*******************************************************%CmdName%"
     call SIMONOTE "Starting CmdName %CmdName%, User is %USERNAME% "
rem  *
rem  *             Control/Monitor
rem  *            12345678/12345678
     set SIMOCNTL=YYYNNNNN/NNNNNNNN
     set CATGET01=%BASECAT%\CATALOG.DAT
     set LONAPCSV=%BASECAT%\Wrk1\SIMOTIME.UTIL.LONAPCSV.CSV
     set LONAPFFL=%BASECAT%\Wrk1\SIMOTIME.UTIL.LONAPFFL.DAT
rem  *
     run MFCATXPT
     if not "%ERRORLEVEL%" == "0" goto EOJNOK
     call SIMONOTE "The Catalog Export Info will be displayed in a separate window..."
     START NotePad %LONAPCSV%
rem  *
:EOJAOK
     call SIMONOTE "DataTake is %CATGET01%"
     call SIMONOTE "DataMake is %LONAPCSV%"
     call SIMONOTE "DataMake is %LONAPFFL%"
     call SIMONOTE "Finished CmdName %CmdName%, User is %USERNAME% "
     goto END
rem  *
:EOJNOK
     call SIMONOTE "ABENDING CmdName %CmdName%, User is %USERNAME% "
rem  *
:END
     if "%SIMOMODE%" == "PAUSE" PAUSE

MFCATXPT, Input and Output
(Next) (Previous) (Table-of-Contents)

The following shows a list of the files processed by the MFCATXPT Program.

Note: The input file must be mapped to a Micro Focus CATALOG.DAT file.

File Name Description
CATGET01 This is the logical file name used by the program and is usually mapped to a Micro Focus CATALOG.DAT file
LONAPCSV This is the logical file name used by the program and is usually mapped to a physical file name with a ".CSV" extension so that it can be easily imported into an Excel spread sheet. The File Format is Line Sequential (or ASCII/TEXT. The records in the file are variable length text strings in a Comma Separated Values (or CSV) format.
LONAPFFL This is the logical file name used by the program and is usually mapped to a physical file name with a ".DAT" extension so that it can be easily accessed by a user COBOL program. The File Format is Record Sequential . The records in the file are fixed length with Fixed Field Length (or FFL) format.
  A List of the Files Accessed by the Catalog Extract Utility Program

MFCATXPT, Optional Output in Comma-Separated-Values Format
(Next) (Previous) (Table-of-Contents)

The following is an example of the output created by the Catalog Export Utility when the CSV flag is enabled.

01,SIMOTIME.CICSAOK.RDRTEST1,RDRTEST1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.CICSAOK.RDRTEST1.DAT,
01,SIMOTIME.DATA.CARD0080,CARD0080,PS,F,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CARD0080.DAT,
01,SIMOTIME.DATA.CASEGET1,CASEGET1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CASEGET1.DAT,
01,SIMOTIME.DATA.CUS512D2,CUS512D2,VSAM,KS,00512,00512,00001,00012,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUS512D2.DAT,
01,SIMOTIME.DATA.CUS512D3,CUS512D3,VSAM,KS,00012,00512,00001,00012,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUS512D3.DAT,
01,SIMOTIME.DATA.CUSRE512,CUSRE512,PS,FB,00512,00512,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUSRE512.DAT,
01,SIMOTIME.DATA.CUST0080,CUST0080,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUST0080.DAT,
01,SIMOTIME.DATA.CUSTMAST,CUSTMAST,VSAM,KS,00012,00512,00001,00012,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUSTMAST.DAT,
01,SIMOTIME.DATA.CUSTRSEQ,CUSTRSEQ,PS,FB,00512,00512,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUSTRSEQ.DAT,
01,SIMOTIME.DATA.CUSTSEQ2,CUSTSEQ2,PS,FB,00512,00512,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.CUSTSEQ2.DAT,
01,SIMOTIME.DATA.DATECARD,DATECARD,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.DATECARD.DAT,
01,SIMOTIME.DATA.DATKS64K,DATKS64K,VSAM,KS,00012,32760,00001,00012,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.DATKS64K.DAT,
01,SIMOTIME.DATA.DATRS080,DATRS080,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.DATRS080.DAT,
01,SIMOTIME.DATA.FNAMEF01,FNAMEF01,PS,FB,00032,00032,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.FNAMEF01.DAT,
01,SIMOTIME.DATA.FNAMEM01,FNAMEM01,PS,FB,00032,00032,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.FNAMEM01.DAT,
01,SIMOTIME.DATA.GDGROUP1,GDGROUP1,GDG,?,00000,00000,,,,,,,,,,,,,
01,SIMOTIME.DATA.GDMODEL1,GDMODEL1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.GDMODEL1.DAT,
01,SIMOTIME.DATA.ITEMMAST,ITEMMAST,VSAM,KS,00012,00512,00001,00012,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.ITEMMAST.DAT,
01,SIMOTIME.DATA.ITEMSQ01,ITEMSQ01,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.ITEMSQ01.DAT,
01,SIMOTIME.DATA.JUSTGET1,JUSTGET1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.JUSTGET1.DAT,
01,SIMOTIME.DATA.JUSTPUT1,JUSTPUT1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.JUSTPUT1.DAT,
01,SIMOTIME.DATA.LASTNAME,LASTNAME,PS,FB,00032,00032,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.LASTNAME.DAT,
01,SIMOTIME.DATA.LNAMRSEQ,LNAMRSEQ,PS,FB,00032,00032,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.LNAMRSEQ.DAT,
01,SIMOTIME.DATA.MAILSORT,MAILSORT,PS,FB,00244,00244,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.MAILSORT.DAT,
01,SIMOTIME.DATA.MAILTEMP,MAILTEMP,PS,FB,00244,00244,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.MAILTEMP.DAT,
01,SIMOTIME.DATA.MAILTEXT,MAILTEXT,PS,FB,00192,00192,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.MAILTEXT.DAT,
01,SIMOTIME.DATA.OBFCTL80,OBFCTL80,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.OBFCTL80.DAT,
01,SIMOTIME.DATA.POSTCODE,POSTCODE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.POSTCODE.DAT,
01,SIMOTIME.DATA.QSAM0080,QSAM0080,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.QSAM0080.DAT,
01,SIMOTIME.DATA.RA12GET1,RA12GET1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RA12GET1.DAT,
01,SIMOTIME.DATA.RCAXST80,RCAXST80,VSAM,KS,00006,00080,00001,00006,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RCAXST80.DAT,
01,SIMOTIME.DATA.RCAXSTCC,RCAXSTCC,VSAM,KS,00006,00128,00001,00006,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RCAXSTCC.DAT,
01,SIMOTIME.DATA.RS80TT01,RS80TT01,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RS80TT01.DAT,
01,SIMOTIME.DATA.RS80TT02,RS80TT02,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RS80TT02.DAT,
01,SIMOTIME.DATA.RS80TT03,RS80TT03,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.RS80TT03.DAT,
01,SIMOTIME.DATA.STREET01,STREET01,PS,FB,00032,00032,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.STREET01.DAT,
01,SIMOTIME.DATA.TXTNGET1,TXTNGET1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.TXTNGET1.DAT,
01,SIMOTIME.DATA.USEROUT1,USEROUT1,PS,FB,00121,00121,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.USEROUT1.DAT,
01,SIMOTIME.DATA.VKSD0080,VKSD0080,VSAM,KS,00006,00080,00001,00006,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA.VKSD0080.DAT,
01,SIMOTIME.DATA80.COMPARE1,COMPARE1,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA80.COMPARE1.DAT,
01,SIMOTIME.DATA80.COMPARE2,COMPARE2,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA80.COMPARE2.DAT,
01,SIMOTIME.DATA80.COMPCNTL,COMPCNTL,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA80.COMPCNTL.DAT,
01,SIMOTIME.DATA80.SYSLOG,SYSLOG,PS,VB,00001,01051,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.DATA80.SYSLOG.DAT,
01,SIMOTIME.ESDS.ESD32KX1,ESD32KX1,VSAM,ES,00000,32760,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.ESDS.ESD32KX1.DAT,
01,SIMOTIME.ESDS.ESDSC01K,ESDSC01K,VSAM,ES,00000,01024,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.ESDS.ESDSC01K.DAT,
01,SIMOTIME.ESDS.ESDSC128,ESDSC128,VSAM,ES,00128,00128,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.ESDS.ESDSC128.DAT,
01,SIMOTIME.MLR1.MAILTEXT,MAILTEXT,PS,FB,00192,00192,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.MLR1.MAILTEXT.DAT,
01,SIMOTIME.PDS.JCL,JCL,PO,LSEQ,00080,00080,,,,,,,,JCL,,,,C:\SIMOSAM1\JCL\,
01,SIMOTIME.PDS.JCLINC,JCLINC,PO,LSEQ,00080,00080,,,,,,,,INC,,,,C:\SIMOSAM1\JCLINC\,
01,SIMOTIME.PDS.PARMLIB1,PARMLIB1,PO,LSEQ,00080,00080,,,,,,,,CTL,,,,C:\SIMOSAM1\PARMLIB1\,
01,SIMOTIME.PDS.PROCLIB1,PROCLIB1,PO,LSEQ,00080,00080,,,,,,,,PRC,,,,C:\SIMOSAM1\PROCLIB1\,
01,SIMOTIME.PDS.WEBDOCS,WEBDOCS,PO,LSEQ,02048,02048,,,,,,,,HTM,,,,C:\SIMOWEB1\,
01,SIMOTIME.SYSLOG.SYSLOG,SYSLOG,PS,V,00001,01051,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.SYSLOG.SYSLOG.DAT,
01,SIMOTIME.TAPE.TAPC80D2,TAPC80D2,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.TAPE.TAPC80D2.DAT,
01,SIMOTIME.UTIL.APMASTER,APMASTER,VSAM,KS,00018,01024,00001,00018,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.APMASTER.DAT,
01,SIMOTIME.UTIL.FPMASTER,FPMASTER,VSAM,KS,00056,01024,00003,00054,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.FPMASTER.DAT,
01,SIMOTIME.UTIL.GDGLIST1,GDGLIST1,PS,FB,01024,01024,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.GDGLIST1.DAT,
01,SIMOTIME.UTIL.GDGTRACE,GDGTRACE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.GDGTRACE.DAT,
01,SIMOTIME.UTIL.MSGXFILE,MSGXFILE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.MSGXFILE.DAT,
01,SIMOTIME.UTIL.MSGXKSDS,MSGXKSDS,VSAM,KS,00004,00080,00001,00004,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.MSGXKSDS.DAT,
01,SIMOTIME.UTIL.PDSLIST1,PDSLIST1,PS,FB,01024,01024,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.PDSLIST1.DAT,
01,SIMOTIME.UTIL.PDSTRACE,PDSTRACE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.PDSTRACE.DAT,
01,SIMOTIME.UTIL.SEQLIST1,SEQLIST1,PS,FB,01024,01024,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.SEQLIST1.DAT,
01,SIMOTIME.UTIL.SEQTRACE,SEQTRACE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.SEQTRACE.DAT,
01,SIMOTIME.UTIL.SUBTRACE,SUBTRACE,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.SUBTRACE.DAT,
01,SIMOTIME.UTIL.SYSLOG,SYSLOG,PS,V,00001,01051,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.UTIL.SYSLOG.DAT,
01,SIMOTIME.WRK1.ALOCATDD,ALOCATDD,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\WRK1\SIMOTIME.WRK1.ALOCATDD.DAT,
01,SIMOTIME.WRK2.ALOCATDD,ALOCATDD,PS,FB,00080,00080,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SIMOTIME.WRK2.ALOCATDD.DAT,
01,SYSLOG.VREC.USER,USER,PS,V,00001,01051,,,,,,,,,,,,<CATALOGFOLDER>\DYN1\SYSLOG.VREC.USER.DAT,

MFCATXPT, Optional Output in Fixed-Field-Length Format
(Next) (Previous) (Table-of-Contents)

The following is the COBOL copy file that shows the record structure for the List of Names and Properties that use the Fixed Field Length format.

      *****************************************************************
      *               LONAPFFL.CPY - a COBOL Copy File                *
      *     Record Layout for the File Properties Repository          *
      *  The record stucture is a fixed length of 1,024 characters    *
      *         Copyright (C) 1987-2012 SimoTime Enterprises          *
      *                     All Rights Reserved                       *
      *              Provided by SimoTime Enterprises                 *
      *        Our e-mail address is: helpdesk@simotime.com           *
      *     Also, visit our Web Site at http://www.simotime.com       *
      *****************************************************************
      *  The information that is imported into this format originates
      *  from an Excel spreadsheet. The spreadsheet is saved to an
      *  ASCII/Text File with a Comma-Separated-Values (or CSV) record
      *  structure.
      *
      *  LONAP is an acronym for a List Of Names And Properties.
      *  CSV   is an acronym for Comma-Separated-Values.
      *  FFL   is an acronym for Fixed-Field-Length.
      *
      *  A conversion program is used to convert the CSV File to a
      *  Record Sequential File with the following Fixed Field format.
      *
      *  The fields are all fixed length.
      *  Numeric fields are right-adjusted with leading zeroes.
      *  Alpha-numeric fields are left adjusted with trailing spaces.
      *
      *  Positions 73-80 of the following statements are used to
      *  identify the original columns used in the Excel spreadsheet.
      *
       01  LONAPFFL-REC.                                                Excel
           05  LONAPFFL-LEVEL-CHR.
               10  LONAPFFL-LEVEL-NBR      PIC 9(2).                    col-A
           05  LONAPFFL-FILE-INFO.
               10  LONAPFFL-DSN            PIC X(54).                   col-B
               10  LONAPFFL-DD-NAME        PIC X(17).                   col-C
               10  LONAPFFL-DSORG          PIC X(4).                    col-D
               10  LONAPFFL-RECFM          PIC X(4).                    col-E
               10  LONAPFFL-LRECL-MIN      PIC 9(5).                    col-F
               10  LONAPFFL-LRECL-MAX      PIC 9(5).                    col-G
               10  LONAPFFL-KEYPOS         PIC 9(5).                    col-H
               10  LONAPFFL-KEYLEN         PIC 9(5).                    col-I
               10  LONAPFFL-VSAM-DAT       PIC X(44).                   col-J
               10  LONAPFFL-VSAM-IDX       PIC X(44).                   col-K
           05  LONAPFFL-JOB-EXEC.
               10  LONAPFFL-JCL-OVR1       PIC X(8).                    col-L
               10  LONAPFFL-JCL-USR1       PIC X(8).                    col-M
               10  LONAPFFL-JCL-USR2       PIC X(8).                    col-N
           05  LONAP-EXTENDED-GROUP.
               10  LONAPFFL-EXTENDED-S1    PIC X(4).                    col-O
               10  LONAPFFL-EXTENDED-S2    PIC X(4).                    col-P
               10  LONAPFFL-EXTENDED-M1    PIC X(16).                   col-Q
               10  LONAPFFL-EXTENDED-M2    PIC X(16).                   col-R
               10  LONAPFFL-EXTENDED-M3    PIC X(16).                   col-S
               10  LONAPFFL-EXTENDED-M4    PIC X(16).                   col-T
               10  LONAPFFL-EXTENDED-X1    PIC X(256).                  col-U
               10  LONAPFFL-EXTENDED-X2    PIC X(256).                  col-V
           05  FILLER                      PIC X(227).
      *
      ***  LONAPFFL - End-of-Copy File - - - - - - - - - - - LONAPFFL *
      *****************************************************************
      *

Control and Monitor Flags
(Next) (Previous) (Table-of-Contents)

This environment variable is a seventeen (17) byte text string.

SET SIMOCNTL=YYYNNNNN/NNNNNNNN

The following shows the function and/or purpose of the Control and Monitor Flag settings.

Flag ID Function and/or Purpose
Control-1 Y = Create the List of Names and Properties for the LONAPCSV File
Control-2 Y = Create the List of Names and Properties for the LONAPFFL File
Control-3 Y = Create a header record for the LONAPCSV File
Control-4 Reserved for Future Use...
Control-5 Reserved for Future Use...
Control-6 Reserved for Future Use...
Control-7 Reserved for Future Use...
Control-8 Reserved for Future Use...
Isolate Must be a slash (/) to separate the Control from the Monitor Flags
Monitor-1 Reserved for Future Use...
Monitor-2 Reserved for Future Use...
Monitor-3 Reserved for Future Use...
Monitor-4 Reserved for Future Use...
Monitor-5 Reserved for Future Use...
Monitor-6 Reserved for Future Use...
Monitor-7 Reserved for Future Use...
Monitor-8 Reserved for Future Use...
  A Sumary of the Control and Monitor Flag Settings

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

The purpose of this document is to assist as a tutorial for new programmers or as a quick reference for experienced programmers. In the world of programming there are many ways to solve a problem. This documents and the links to other documents are intended to provide a choice of alternatives.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Enterprises. Once the fee is received by SimoTime the latest version of the software, documentation or training material will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.

SimoTime Enterprises makes no warranty or representations about the suitability of the software, documentation or learning material for any purpose. It is provided "AS IS" without any expressed or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software, documentation or training material.

Downloads and Links to Similar Pages
(Next) (Previous) (Table-of-Contents)

This section includes links to documents with additional information that is beyond the scope and purpose of this document.

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

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

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

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments, Suggestions or Feedback
(Next) (Previous) (Table-of-Contents)

This document was created and is maintained by SimoTime Enterprises.

If you have any questions, suggestions, comments or feedback please call or send an e-mail to: helpdesk@simotime.com

We appreciate hearing from you.

Company Overview
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned company. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems.

Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com


Return-to-Top
MFCATXPT, Extract Names and Properties from the Micro Focus Catalog
Copyright © 1987-2012 SimoTime Enterprises  All Rights Reserved
When technology complements business
http://www.simotime.com