u
v^rr f -
:- tp
v United States Office of November 1992
Environmental Protection Solid Waste
Agency Washington, DC 20460
RCRIS
System Technical
Guide
HEADQUARTERS LIBRARY 52!<9 Printed on Recycled Paper
ENVIRONMENTAL PROTECTION AGENCY \
WASHINGTON, O.C. 20460 \
-------
-------
TABLE OF CONTENTS
1 INTRODUCTION 1
1.1 Background and Executive Summary 1
1.2 Assumptions 3
1.3 Overview of the System Technical Guide 3
2 OPERATING ENVIRONMENT 6
2.1 System Functions and Commands Used by RCRIS 6
2.2 Accounting Structure . . . 1
2.3 Online Processing 8
2.4 Batch Processing 13
2.5 Report Processing "... ,~15
2.6 Simultaneous Usage (SU) '. 16
2.7 Account and Dataset Protection 17
2.8 RCRIS Programs on the NCC Mainframe . . -.-. 17
3 SOFTWARE DISTRIBUTION FOR RCRIS 19
3.1 Options 1, 2, and 3-Create RCRIS IBM Tape 22
3.2 Options 4, 5, and 6-Create RCRIS non-IBM Tape .27
3.3 Options 7, 8, and 9-Electronic Distribution 33
4 SOFTWARE INSTALLATION . . . . 40
4.1 Establish Account System Configuration 40
4.2 Install Software on the State Development Account 41
4.2.1 Receive Software Transmitted by TSO XMTT Command 41
4.2.2 Unload Software/Database Tape to Development Account .... 42
4.3 Modify Software Making Translator-Specific Changes 44
4.4 Perform Initial Tests and Modifications on Development System 49
4.5 Modify System for Non-TSO Environment if Necessary 49
4.6 Test Changes 53
4.7 Move Software to Test Account for Certification Testing 57
4.8 Install Next Release . . 57
5 MAINTAINING INSTALLED SYSTEM 67
5.1 RCRIS Change/Problem Control and Librarian Tracking System .... 67
5.2 Establish a Software Control System 67
: 5.3 Completing Translator Test Form 68
6 MVS CASE STUDY - WASHINGTON STATE FALL 1990 76
- 6.1 Changes Required Because of Differences in System Functions ...... 82
7 NON-MVS CASE STUDY - TEXAS STATE 86
-------
APPENDIX A - SYSTEM FEATURES USED BY RCRIS .. A-l
APPENDIX B - PROGRAM NAVIGATION CHARTS . . B-l
APPENDIX C - SYSTEM KEY PROGRAM SUMMARD2S . . C-l
APPENDIX D - TSO CALLS FROM FOCEXECS . D-l
APPENDIX E - GENERAL NAMING CONVENTION FOR FOCEXEC FILES . . E-l
APPENDIX F - LIST OF PROGRAMS F-l
APPENDIX G - INSTALL, RCRIS, AND MERGPRO CLISTS G-l
APPENDIX H - PANEL DISPLAYS H-l
APPENDIX I - ISPF SKELETON TAILORING CALLS . . ........ 1-1
APPENDDI J - PROFILE ALLOCATIONS J-l
APPENDIX K -RCRIS MENU MAP K-l
APPENDIX L - FOCUS DATABASE FILES AND TABLE LOOKUP FILES BY
MODULES ...- L-i
APPENDIX M SU PROGRAM: SUSTART, SUAUTOS, SUSTOP, SUAUTOP,
PROFILSU, SUTABLE, AND SUSTATUS M-l
11
-------
RCRIS System Technical Guide
1 INTRODUCTION
1.1 Background and Executive Summary
The Resource Conservation and Recovery Information System (RCRIS) is EPA's computerized
information management system for managing the hazardous waste program mandated by the
Resource Conservation and Recovery Act (RCRA). RCRIS is written in the FOCUS DBMS
language that can be implemented on a wide range of operating platforms from MVS/TSO on
a mainframe to the desktop PC under MS-DOS.
RCRIS consists of four mandatory modules and two non-mandatory modules. The four
mandatory modules are Handler Identification (HID), Compliance Monitoring and Enforcement
(CM&E), Corrective Action (CA), and Permitting/Closure/Post Closure (PMT/CL/PC).
Program Management (PM) and Facility Management Planning (FMP) are non-mandatory
modules.
A RCRIS translator has the equivalent data of one or more RCRIS modules in a non-RCRIS
system. The translator State, through software it develops, creates flat files according to RCRIS
flat file specifications. These flat tiles are then sent electronically to the IBM ES-9000
mainframe at EPA's National Computer Center (NCC) to update the merged database. The
merge process loads the flat files into the merged database. .Summary and detail reports are
created for all the steps involved during the load. For example, an Edit Detail Report is a list
of facility IDs rejected during the load.
Merge process and edit reports are available to the State. Optionally, a report of the data
successfully loaded into .the merged database is available. Also, the Regional update data are
available to the translator in both flat file and report forms.
A translator state may use RCRIS in four ways:
1. Translate data for all four mandatory modules
2. Translate data for some modules and use RCRIS to process the remaining data
3. Translate data for some modules and provide data for the remaining modules on
manual forms
4. Run RCRIS on a non-standard RCRIS platform, that is, on a mainframe system
other than EPA's IBM mainframe at the NCC
RCRIS 4.0.0 1 11/92
-------
RCRIS System Technical Guide
The special issues pertaining to the first three types of translators are covered in the RCRIS
Translator Guide. This guide will address the needs of States who will be running RCRIS on
their own mainframe systems.
RCRIS was initially developed on the PC and then ported to EPA's National Computer Center
(EPA/NCC) IBM 3090 mainframe computer at Research Triangle Park (RTF), North Carolina.
This MVS environment includes the availability of Time Sharing Option (TSO) and the
Interactive System Productivity Facility (ISPF) to provide numerous system level functions. File
security is handled by the Resource Access Control Facility (RACF) utility.
A State may implement RCRIS on its OWR mainframe system. If the State computer system's
operating environment supports TSO and FOCUS, the State will receive the RCRIS software by
electronic transmission or tape and, with some changes, RCRIS will be ready to run. For those
installations where TSO is not available, the system level function calls must be replaced with
appropriate substitute commands reflecting available system utilities so that RCRIS can operate. >
This document is designed to help the system operator or Database Administrator (DBA) to
install RCRIS on a local mainframe which may have operating utilities different from those
available on the NCC development machine.
RCRIS uses the TSO environment and ISPF services to their full advantage. Specifically,
RCRIS makes significant use of ISPF Services, ISPF Panels, Job Control Language (JCL)
Skeletons, table lookup, storage of user values, and other services. Window Script Transfer
Files are also used in RCRIS to'compile FOCUS window files.
If the local operating environment differs from the development environment, the DBA or
system operator must carefully consider the way RCRIS relies on its operating environment for
support. Users of non-IBM environments or IBM environments which do not support ISPF will
need to adapt a large number of programs to provide user interface to RCRIS. In addition, non-
IBM users will need to convert Job Control Language (JCL).
The following list summarizes the steps in preparing for installation of RCRIS on a local
non-standard platform:
: 1. Review the implementation strategy under MVS/TSO (Section 2).
2. Review furiction-by-function list used in RCRIS under MVS/TSO (Appendices B,
C, andD).
3. Identify utilities under translator's platform which mimic, with proper input and
output, each function in Step 2.
11/92 2 RCRIS 4.0.0
-------
RCRIS System Technical Guide
4. Review the discussions of naming conventions (Appendix E), maintaining
previous versions (Section 5), and creating a test/development environment
(Section 6).
St Adopt a maintenance plan and a configuration management methodology.
1.2 Assumptions
This discussion assumes the following:
An adequate technical data processing staff is available to the State to develop and
maintain a significant software project.
The State's hazardous waste management gives that staff adequate resources and
guidance for proper life cycle management of a significant software project.
The staff understands basic RCRIS concepts.
1.3 Overview of the System Technical Guide
In order to install and run RCRIS on a local mainframe, the system operator or DBA must first
understand how RCRIS utilizes the current operating environment. Then the system operator
or DBA must plan and design necessary changes in the system software, obtain the RCRIS
software, install it (with the changes), and test it. Finally, the DBA or system operator must,
implement effective ongoing maintenance and configuration management. This guide presents
the process step by step.
Section 2 provides an explanation of the RCRIS operating environment on the development
machine and of the MVS/TSO system functions used by RCRIS.
Section 3 details the process of RCRIS software distribution. This can be accomplished either
,by electronic transfer or tape distribution. The RCRIS software received, either by electronic
transfer or tape distribution, must be installed on the local machine. Installation of both the
initial software and the upgrades is discussed in Section 4. Section 4 focuses on testing and
debugging the RCRIS software after installation.
Section 5 presents a maintenance plan and a discussion of configuration management. A sample
test form is also included.
RCRIS 4.0.0 3 11/92
-------
RCRIS System Technical Guide
No two translator installations will present exactly the same challenges. This guide devotes
separate sections to two case studies for installation of translator operations, the first under the
MVS/TSO operating environment, and the second in a non-MVS environment. Washington
State is the MVS case study (Section 6); Texas is the case study of a successful installation in
a non-MVS environment (Section 7).
In order to make work easier in installing RCRIS on a particular system, a series of appendices
offer a quick reference to the most frequently used lists, diagrams, and program summaries.
Be especially careful in using the appendices that the current RCRIS version matches the version
-cited at the bottom of each page.
For additional assistance, contact RCRIS User Support at (800) 767-RCRI.
Related Documents
Some other RCRIS documents that the translator might find helpful include the following:
o RCRIS Users Guide
O Quick Reference Guide to RCRIS Codes
o RCRIS Merged Data Base Administration Guide
o Installation Instructions for RCRIS 4.0.0
o RCRIS Translator Guide . v
o RCRIS Conversion Technical Specifications
o RCRIS System Startup Guide
o RCRIS Data Element Dictionary
11/92
RCRIS 4.0.0
-------
RCRIS System Technical Guide
In addition, the translator may wish to consult the following NCC and FOCUS documents:
o TSO Reference Guide
o FOCUS Simultaneous Usage Reference Manual
o ISPF Reference Guide
o RACF Reference Guide
See the RCRIS Users Guide or the RCRIS Merged Data Base Administration Guide
instructions on obtaining related documents.
RCRIS 4.0.0 5 11/92
-------
RCRIS System Technical Guide
OPERATING ENVIRONMENT
RCRIS was designed for and developed on the IBM 3090-600 computer at the Environmental
Protection Agency's National Computer Center (NCC) at Research Triangle Park (RTP), North
Carolina. Many translator operations will be using the same basic software developed on the
NCC computer, but will be implementing RCRIS on computer systems with different utilities
and options, which will have an impact on the way RCRIS functions.
The NCC computer is currently an IBM ES-9021-720 using JES2 with central storage and tape,
disk, and drum storage devices. The system is implemented with the Time Sharing Option
(TSO/E Version 2, release 3.1) and Interactive System Productivity Facility (ISPF) utilities. The
TSO implemented at NCC has text editing capabilities, a remote batch facility for executing
programs, and an extensive command procedure (CLIST) capability. Any implementation of
RCRIS on a system with different capabilities will require modification of original source code
to facilitate a smooth operation of system calls to the various utilities.
Before any discussion of code modification, the DBA or system operator must understand some
of the characteristic features and functions of the RCRIS development machine. First, this
section discusses the system functions used by RCRIS; these functions are more fully defined
in Appendix A. Next comes an explanation of the accounting structure, since several CLIST
edits are based on the EPA accounting setup. The final subsections introduce the topics of
online and batch processing, report processing, Simultaneous Usage (SU), account and dataset
protection, and database descriptive information.
2.1 System Functions and Commands Used by RCRIS
The functions and commands which are used in the RCRIS system CLISTs are listed in
Appendix A. These include the following system features:
o The Interactive System Productivity Facility (ISPF), which provides a menu-
driven, full screen interface to TSO. .
o CLIST, the command procedure that allows a sequence of TSO commands to be
stored together and provides facilities similar to a high-level programming
language. RCRIS utilizes advanced CLIST language features of TSO/E Version
2; these may not be available under earlier TSO Versions.
o Batch job facility, which provides communication with MVS's job entry
subsystem to submit background jobs.
11/92
RCRIS 4.0.0
-------
RCRIS System Technical Guide
| These features of the development/operating environment or equivalents must be provided in
: other mainframe environments. RCRIS also utilizes the back-up capability of Generation Data
. Group (GDG); without the GDG capability, another back-up process must be provided.
In addition, the following functions and commands or their equivalents must be available on the
translator's mainframe:
o CLIST Function: &SYSDSN
o TSO Commands: ALLOC, ATTRIB, CALL, FREE, PRINTOFF, LISTDSI
o ASM2 Commands=$SM, $AR
o NCC-Specific Commands: CLR3270, FDSN
Many of these functions are standard on most IBM mainframes which support MVS/TSO; others
;' have equivalents on other IBM TSO and non-IBM systems. If a necessary function does not
exist on a translator's system, it must be created.
2.2 Accounting Structure
Accounts are used to identify the ownership of datasets on the NCC system and to track system
use for billing purposes. There are two types of accounts: group and user. A group account
consists of four characters; a user account consists of a three-character user ID followed by the
four character group the user belongs to (iiiaaaa, where iii represents the user account and aaaa
represents the group account). It is possible for a user to belong to more than one group. The
user ID and group account are required, along with a password, when a user logs on. They are
also needed when a user submits a job to run in the background (batch) mode. The ID and
group account also establish file ownership rights. Dataset names consist of 'levels'; each level
consists of one to eight characters and/or numbers separated by a dot ('.') The first character
of each level must be a letter. The total number of characters in a file name cannot exceed 44.
The first level of the dataset name is called the PREFIX and must be a valid group account or
a valid ID/group combination; the remaining levels must uniquely'identify the dataset in the
5 group or user's directory. '. .
A special type of dataset library, called a Partitioned Dataset (PDS), is available on MVS TSO.
It allows multiple files (called members) to be stored in an efficient form, one after the other,
and any of these members may be referenced by simply specifying the name of the member in
parenthesis after the dataset name. An example of how to reference a member in Partitioned
Dataset is: 'iiiaaaa.PARTITIN.DATA.SET(MEMBERl)'.
RCRIS 4.0.0 7 11/92
-------
RCRIS System Technical Guide
A user's logon PREFIX (ID/group account combination) is saved by the system at logon; the
user does not need to enter it to access datasets in his or her directory. To access a dataset in
another user's or group directory, a user must enter the full dataset name, including the
PREFIX, enclosed in single quotes. It is possible for a user to change the assumed dataset
PREFIX. This is seldom done, however, and the RCRIS system CLISTs assume that the user
PREFIX points to the logon account. Examples of valid dataset names are the following:
MARCH.REPORT.DATA (assumed to be in the account specified by the logon
PREFIX).
'DONRCRD.MASTER.TRACKING.DATA' (fully qualified name, assumed to be in the
user directory DONRCRD, which is not the user's logon PREFIX).
'RCRD.USER.LIBRARY.DATA' (fully qualified dataset assumed to be in the group
RCRD, without specifying a user ID).
2.3 Online Processing
To invoke single user RCRIS, the user enters EX 'aaaa.RCRIS.CLIST(RCRIS)' (with aaaa
denoting the account) from the TSO READY prompt. - After a brief wait, the following screen
is displayed:
RRRRRR
RR RR CC
RR RR CC
RR RR CC
RRRRRRRR CC
RR RR CC
RR RR CC
RR RR CC
RR RR CCCCCC
CCCCCC RRRRRR
RR RR
RR RR
RR RRR
RRRRRRRR
RR RR
RR RR
RR RR
RR RR
1111
XI
II
XI
ix
XI
ssssss
ss ss
ss s
ss
sssssss
ss
IX S SS
II SS SS
IIII SSSSSSS
RESOURCE CONSERVATION AND RECOVERY INFORMATION SYSTEM
If the user logged on using the development or test accounts, the prompt:
ENTER MODE (PRODUCTION, (T)EST, (D)EVELOPMENT OR (Q)OIT :
11/92
8
RCRIS 4.0.0
-------
RCRIS System Technical Guide
will be presented at the bottom of the screen (otherwise, only the RCRIS banner appears). The
MODE selection determines which datasets are included in the allocations for CLISTs (TSO
stored command files), FOCEXECs (FOCUS application programs), FOCCOMPs (compiled
FOCUS application programs), FOCMSTERs (FOCUS master file descriptions), FMUs (FOCUS
window .files), and all ISPF datasets. The datasets will be concatenated as follows for each
MODE:
P (Production) USER PDS (Only for FOCEXEC, FOCMSTER, FMU)
Production PDS
T (Test) USER PDS (Only for FOCEXEC, FOCMSTER, FMU)
Test PDS
Production PDS
D (Development) USER PDS (Only for FOCEXEC, FOCMSTER, FMU)
Development PDS
Test PDS
Production PDS
Enter the appropriate letter (P/T/D/Q) and press enter. (If the user is not logged on to the
production or test account, the MODE prompt will be bypassed and the mode will be internally
set to 'P' for production.)
In a few moments, another panel is presented which allows for selection of the database account
and database state/origin (see below).
* R c R is *
* ENVIRONMENTAL PROTECTION AGENCY DATE: 91/07/10 *
*- VERSION f.t.f 07/05/91 TIME: 21:09 *
DATABASE ACCOUNT » aaaa
DATABASE ID » sso
CONTINUE (Y/N) » Y
The Database Account is the account where all the databases and data files are stored. The
Database ID describes the database to be selected for the database account. (Because of this
remap convention, more than one database can reside in one database account.) For example-
R4M = Region 4 Merge
FLR = Florida Region
FLS = Florida State
RCRIS 4.0.0 9 11/92
-------
RCRIS System Technical Guide
The values on this screen will be blank the first time a new user logs in to the RCRIS system.
The entered values are validated, and if an error is found, then a message will be displayed.
When all fields have been properly entered, they are saved in a table and will be presented the
next time this user accesses the RCRIS system.
At this point all data which are needed to invoke RCRIS have been entered. The CLIST will
allocate all necessary libraries and databases according to the values supplied for MODE and the
database selection panel shown above. The CLIST displays the following screen while
processing:
WELCOME TO RCRIS
FILES ARE BEING ALLOCATED, PLEASE STAND BY ...
The CLIST creates a special dataset 'iiiaaaa.SYSACCNT (allocated to DDNAME ACC) which
contains the selections made by the user. This is passed to FOCUS and is used by the RCRIS
system to allocate infrequently used datasets, report output files, and temporary datasets. Six
items are passed: ,
ts *
1. The group account that the user logged on as
2. The production account prefix
3. The development account prefix
4. The test account prefix
5. The database prefix (account.state ID) (for example, aaaa.sso)
6. The selected MODE (D/T/P)
These items are all concatenated without any intervening spaces. The RCRIS PROFILE reads
these items and equates them to global variables. It is important to check that the length
assigned to each item read from this file matches that item's actual length. This dataset is stored
in the user's logon directory and is read each time RCRIS is invoked to set certain user defaults
The DDNAME PROFILE has special significance. It points to a FOCEXEC member which
FOCUS will execute upon entry. For single user systems this is allocated to dataset
*aaaa.RCRIS.FOCEXEC.DATA(PROFILSG)', shown below:
11/92
10
RCRIS 4.0.0
-------
RCRIS System Technical Guide
-PROFILSG
PROGRAM NAME: PROFILSG
PROGRAMMER: ZBZ
DAXE WRITTEN: 01/08/89
COMPANY: GENERAL SCIENCES CORPORATION
DATE UPDATED: 04/03/89
DAZE UPDATED: 10/05/89 J.2.
10/12/89 J.D.
11/28/89 D.L.
02/04/90 SBM
02/04/90 SRM
03/09/90 RJE
02/06/91 DCL
02/11/91 DCL
02/13/91 DCL
02/21/91 DCL
03/11/91 DCL
03/20/91 DCL
04/23/91 RJE
04/25/91 DCL
PREFIX * R4DB => PREFIX » &PROG
-READ ACC FILE FOR PROG VARIBLE
REMOVE &&VARIABLES
ADDED "FIN" TO BOTTOM OF PROFILE
ADDED ONLINE FOR SYNAD ERROR
TSO FREE DD(OFFLINE)
ADDED -WRITE TO INITIALIZE OFFLINE/OFFLINE2
ADDED -SET &&ACT=&ACCT;
ADDED -SET &&SYSTEM VARIABLE TO PROFILE
ADDED -SET &&ACCT=SACCT;
ADDED -SET MFIL1=Z; FOR BATCH REPORTS
ADDED EX DBRPHEAD FOR NEW MOU ACCESS
CBG READING ACC FILE FOR NEW VARIABLES
Remove code for OFFLINE2. (f110052)
ember PROFILE DOW becomes PROFILSG
SINGLE USER
PROGRAM DESCRIPTION: 'PROFILE' IS A SPECIAL POCEXEC WHICH WILL BE
EXECUTED EVERY TIME FOCUS IS INVOKED. IT IS USED TO SET UP
SYSTEM DEFAULTS, ALLOCATE FILES AND EVENTUALLY TO EXECUTE
MAIN MENU DRIVER 'RCRAMENU'.
SET SYSTEM DEFAULTS
_**»***»<
-* 10/05/89 -READ FROM FILE ACC FOR PREFIX INFO
.a*********************************************
-READ ACC &&ACCT.A4. &&PROG.A4. &&DVLP.A4. &&TEST.A4. &&DBPROG.A8.,
,&&DTP.A1. &&NEXT.A5.
-SET
-SET
-SET
-SET
-SET
-SET
.*
-SET
-SET
-SET
-SET
-SET
-SET
-SET
-SET
&&ACT = &&ACCT;
&&SYSTEM - 'TSO';
&&BATCHSEL = 'N';
&SFRINTCMD a 'PRINTOFF';
&&TPMPACK » 'DISK';
&&TWKPACK = 'DISK';
&CPLACE
t&STATE
&&TITLE
&&EPA
ft&PRT
&&FIL1
ft&TNT
&DUM
",
'!
RCRIS 4.0.0
11
11/92
-------
RCRIS System Technical Guide
SEX PREFIX
BEX MSG
SEX PAUSE
SEX LIMES
&&PROO
OPP
OPP
55
SEX LINES/PAGE=55
EZ DBRPHEAD
_*
LEX MENU = EZ PROFILE
EZ FRONTEND
OFFLINE CLOSE
ONLINE
XSO PREE DD(OFFLINE)
-ROM
FIN
Fof Sync machine multi-user systems (see the discussion of Simultaneous Usage in Section 2.6),
this is allocated to dataset faaaa.RCRIS.FOCEXEC.DATA(PROFILSU)*. It is important that
there is no member named PROFILE in any of the datasets concatenated to the DDNAME
FOCEXEC. If such a member exists, FOCUS will execute it upon entry instead of the member
allocated by the DDNAME PROFILE.
The member PROFILSG reads the variables which were passed by the CLIST, initializes some
RCRIS FOCUS global variables, sets up the variables used for report headers, and finally
executes the member FRONTEND to display the opening RCRIS menu shown below.
_^
The member PROFILSU performs the same steps as PROFILSG; however, it also sets up a
global USE statement that allows the FOCUS databases in the Sync machine to be linked to the
RCRIS application programs. When this member has completed the initialization, it calls the
member FRONTEND to display the opening RCRIS menu shown below:
11/92
12
RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRIS Frontend Menu
******* Region # Region/State Database
Version *.*.*
nun/dd/yy *******
Move cursor along the vertical bar at left to select. Press ENTER.
Use FF3 to back up, . :
Select a database.
TableTalk
Print FOCUS.OFFLINE report output.
Logon to RCRZS .
Go to the FOCUS prompt.
Exit system.
When the Logon to RCRIS option is selected from the Main Menu, it calls the FOCEXEC
member RCRA, which calls CHKPASS, which in turn displays the security ID and password
screen. This module looks in the SECURITY FOCUS file to verify the ID/password entered.
If the security entries are valid, the RCRIS main menu appears. At this point the required
RCRIS module is selected, and the relevant sub-menus will appear.
The menus extend through several levels. Eventually, a program is selected from the lowest
level menu. When a user exits the main FOCUS menu, the program returns to the opening main
menu. When a user exits the opening menu, the FOCUS environment is terminated and control
returns to the COST. The CLIST frees all databases and program libraries and returns to the
TSO READY prompt. See Appendix K for a detailed menu map of RCRIS.
2.4 Batch Processing
Batch processing allows a job to run in the system background, thereby freeing the terminal for
.use in other tasks. All data required by the program must be supplied when the batch job is
submitted and all output is either written to a dataset and/or the system print queue. Batch jobs
are used in RCRIS to run long reports while continuing other work, such as data entry, without
interference.
RCRIS batch jobs utilize several standard IBM system utilities, as well as two special programs:
FOCBATCH (PGM=FOCUS) which runs FOCUS in background and is useful for long reports,
and TSOBATCH (PGM=IKJEFT01) which allows line-oriented TSO commands to be entered
during a batch job, used to delete and/or copy groups of datasets. A quick list of these utilities
is given below along with a short explanation for each.
o IEBGENER - IBM utility to copy datasets
o IDCAMS - IBM general utility used to initiate GDG (Generation Dataset Group)
RCRIS 4.0.0 13 11/92
-------
RCRIS System Technical Guide
o IEFBR14 - IBM utility to delete datasets
o IEBCOPY - IBM utility to copy PDSs to and from tape
o FOCBATCH - Catalogued JCL procedure to run FOCUS in background
o TSOBATCH - Catalogued JCL procedure to accept TSO line commands in batch
o HLISECUR - Utility which provides simultaneous usage (SU) capability for a
designated set of databases under FOCUS
o HLIKX - Batch job to terminate simultaneous usage (SU) capability for a
designated group of FOCUS databases
Job Control Language (JCL) commands have been written into Skeletons in ISPF. This allows
for more efficient coding using SELECT statements and variable subsitution inside the JCL.
When a job is submitted for background processing, information needed by the system for
accounting, billing, and security is provided by the job card, which appears as the first few lines
of any batch job. .
On the EPA system, this would be entered as follows:
ent',
//iiifttff JOB (aaaafffff,bbbb),'20 char o
// TIME=(mm,88),PRTY=p,NOTIFY=iii
/*ROUTE PRINT HOLD
Where iii is the user ID
aaaa is the user group account
fffff is the FIMAS ID - this further qualifies the group account and is used for billing
bbbb is the box to which the output listing is routed
mm.ss is the estimated CPU time in minutes and seconds
p is the run priority: 2=standard, 1 = overnight/weekend and is 1/2 price
11/92
14
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Dataset names are always entered in fully qualified form in batch jobs, but without the
surrounding quotes. All utilities used in RCRIS batch jobs are standard IBM programs, with
the possible exception of the PROC TSOBATCH (PGM=IKJEFT01). This utility allows the
user to enter most TSO commands within a batch job. It is used in RCRIS to copy or delete
groups of datasets which would otherwise require several extra job steps using standard IBM
utilities. If this utility is not available, datasets can be deleted by performing the IBM utility
IEFBR14 using DISP=(MOD,DELETE,DELETE) once for each dataset to delete. Datasets can
be copied by using the IBM utility IEBGENER once for each dataset.
2.5 Report Processing
All reports in RCRIS 4.0.0 run interactively or in batch. The FOCEXEC programs interface
with CLISTs and Panels to provide these options. All system variables are derived from Panels
or from variables set by the operating system.
Every 'RCRIS FOCEXEC' will have a user PDS. Users may generate their own report
programs, save them under their own user account, and concatenate the user PDS with the
RCRIS PDS. This will allow these reports to be available in the RCRIS environment. User
window files and user master .files are also available (FMU and MASTER files).
Device Drivers in all FOCEXECs are standardized. The two device drivers used are--
aaaa. RCRIS. FOCEXEC. DATA(PRNDESTl) and
aaaa . RCRI S . FOCEXEC . DATA ( PRNDEST2 ) .
Member 'PRNDEST1' prompts the user to print results to the screen, printer, file or batch-
option if the batch option is available. Member 'PRNDEST2' initiates the ISPF environment
and prompts the user for system dependent parameters, for example, the FIMAS ID or bin
number.
The CLIST PRNDEST prompts the user to print results to the screen, printer, or file. Once a
user selects to print to a file, another menu appears in which the user may enter the .file name
and continue processing or return to the previous menu to back out of this current operation.
If the user has selected to process the report, the PRNDEST routine allows viewing of the file
before it is printed using the ISPF Browse utility. The user may cancel the report in ISPF and
delete it from the system if not wanted. The output of the run can be saved to a file under the
user's account with a predetermined report extension appended to the file name.
Batch reporting is an option available to the user. Upon submission of the report, the user is
prompted for a file name. If the file exists under the user's account, before saving the report
to a file, the user is prompted with the following four options:
RCRIS 4.0.0 15 11/92
-------
-------
RCRIS System Technical Guide *
1. Overwrite the existing file
* 2. Append to the existing file
(
> 3. Get another file name
4. Cancel the report
The Editor program aaaa.RCRIS.FOCEXEC.DATA(MREDPROG) always executes in batch
mode. This program initiates the ISPF environment, passing parameters to CLISTs, and
prompts the user for system dependent parameters, for example, the FIMAS ID or DEST. ~
2.6 Simultaneous Usage (SU)
The standard FOCUS configuration allows a single user to have read/write access to a FOCUS
database. Multiple users can also access a FOCUS database in read-only mode for reporting
purposes. However, if multiple users need read/write access to the same set of FOCUS database
files, the standard configuration will not work.
FOCUS provides a solution through a software component called the Simultaneous Usage (SU)
facility. SU manages and synchronizes simultaneous actions against the same set of FOCUS
database files by multiple users. This requires that some additional datasets be allocated for the
FOCUS database manager (also called a Sync Machine or Sink Machine). These additional
datasets are required to communicate information between the FOCUS session and the SU.
Before using SU, the user must initiate the Sink Machine using a special batch job stream. This
job must allocate all the user database files which are to be included in the SU environment.
These SU database files may also be allocated again in the CLIST which brings up the user
application in order to use the Multi-Threaded SU Reporting Facility.
Once the batch job has been successfully completed, the SU environment is available. Multiple
users may then perform read/write operations on the same database without loss of data.
However, when the SU is running, it is not possible to use SCAN, FSCAN, REBUILD,
-CREATE, or certain other commands that directly need to modify the database structure; if any
of these functions is required, the Sink Machine must be brought down with another special
batch job. (All users should be off the application when this is done.) The jobs to bring up and
shut down the SU require special system privileges to run on the EPA IBM at RTP, although
this is not true of every installation. See FOCUS Simultaneous Usage Reference Manual for
installation and fine-tuning information and the Database Administration Section of the RCRIS
Users Guide or RCRIS Merged Data Base Administration Guide for information on existing
routines supporting the use of SU.
11/92 16 RCRIS 4.0.0
-------
RCRIS System Technical Guide
2.7 Account and Dataset Protection
Account and dataset protection is provided by the Resource Access and Control Facility (RACF).
Once a dataset is created, it may be placed under RACF control. The user will need to delegate
appropriate levels of access at this point. This allows the dataset owner to delegate different
levels of access to datasets under the user's account on a file-by-file and/or global basis. Access
can be
o None, Read, Update (read/write)
- o Control (read/write, create/delete/rename)
o Alter (read/write, create/delete/rename, change access list for dataset)
Other options are available, such as logging invalid attempts and allowing access to datasets only
through certain programs.
2.8 RCRIS Programs on the NCC Mainframe
RCRIS is composed of the following sets of programs:
o FOCEXEC - FOCUS DBMS application programs
o FOCCOMP - FOCUS DBMS compiled application programs
o MASTER - FOCUS Master File Descriptions
o CLIST - TSO command procedures
o PANELS - TSO ISPF menu programs
o MSGS - TSO ISPF error messages
RCRIS 4.0.0
17
11/92
-------
RCRIS System Technical Guide
o FMU - FOCUS DBMS compiled window menus
o TRF - Window PC/mainframe transfer files
o SKELS - ISPF Dataset which generates customized JCL
o TABLES - ISPF-supported database which stores values
See Appendix L for a list of FOCUS database files and table lookup files by module.
11/92 18 RCRIS 4.0.0
-------
RCRIS System Technical Guide
3 SOFTWARE DISTRIBUTION FOR RCRIS
The Translator Tape Creation/Electronic File Transfer (TTC/EFT) menu allows implemented
to either generate a tape of the RCRIS software or electronically send the RCRIS software to
their mainframe or minicomputer. Three categories of transmission can be selected from a
menu:
o Generate a tape for an IBM mainframe
o Generate a tape for a non-IBM system
o Electronically send the datasets to another IBM system which is linked to the
EPA network
In addition, each of the above categories can be further qualified into sub-selections:
o Generate/send the entire RCRIS system
o Generate/send all changes since the last major release (e.g., cumulative changes
from release #.0.0 through release #.#.#)
o Generate/send only the changes for the current version of RCRIS
Note that EPA has converted its tape drives from reel (round) format to cartridge (square)
format. Cartridge tapes offer many advantages over reel tapes such as: (1) greater storage
capacity, (2) increased.reliability, (3) automatic mounting and dismounting without operator.
intervention, and (4) easier handling. The default tape device for the EPA system has been
changed from reel to cartridge; the FILETRAN program therefore has been changed to
accommodate the square tape format. This change required only a minor program update and
does not in any way affect the user interface.
It is still possible to create round tapes, however this requires special processing. Between one
and three tapes will be required, depending on the tape option selected and the RCRIS version.
Contact RCRIS User Support for full details ((800)-767-RCRI). Then it will be necessary to
contact EPA Computer User Support in North Carolina ((800)-334-2405) to purchase the round
tapes. It will be necessary to obtain the round tapes in advance and to have them assigned
volume serial numbers in the EPA system tape library. Finally, RCRIS User Support will need
to be called to request a special run to create a RCRIS round format translator tape. The
complete process will require several days to complete, and it may be a week or two before the
tape finally arrives at the translator's facility. Given the foregoing, it is strongly recommended
RCRIS 4.0.0
19
11/92
-------
RCRIS System Technical Guide
that translators install or have access to cartridge tape drives. States with IBM MVS/TSO
systems who are linked to the EPA network can also use options 7, 8, or 9 to electronically send
the RCRIS datasets to their site.
To access the TTC/EFT menu, enter-
EZ 'RCRS.RCRIS. GLISX(PXLETRAll)'
from the TSO READY prompt. If the user is logged on under the RCRIS development or test
account, the following prompt will appear:
Enter MOPE: (P)roduetion, (T)est, {Development, or QUIT ?
Enter the appropriate choice and press < ENTER >. The field will be edited and the system
will display a warning message and reprompt for a value if the input is invalid. If the user is
logged on to another system account, die mode will internally be set to production. Next, the
message-
Loading File Transfer System menu.
will be displayed while the system datasets are being allocated, followed by three stars (***) on
the next line several seconds later. Press < ENTER > once. After another few seconds, the
menu shown below will appear:
11/92 20 RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRIS FILE TRANSFER SYSTEM *
U.S. ENVIRONMENTAL PROTECTION AGENCY DATE: SM/dd/yy *
VERSION f.f.f aaVdd/yy TIME: hh:s» *
Translator Tape Creation / Electronic File Transfer
Main Menu
Coaplete RCRIS IBM Tape
RCRIS Changes IBM Tape
RCRIS V f.f.f IBM Tape
Complete RCRIS Han-IBM Tape
RCRIS Changes Non-IBM Tape
RCRIS V ft.f.f Non-IBM Tape
Coaplete systeai using TSO XMIT
RCRIS Changes using TSO XMIT
. RCRIS V t.t.f using TSO XMIT
(POS)
(PDS)
(PDS)
(Flat Files)
(Flat Files)
(Flat Files)
(PDS)
(PDS)
(PDS)
X. EXIT
SELECT!
Where #.#.# is replaced by the current RCRIS version number.
Options 1, 2, and 3 will generate tapes which are ONLY suitable for IBM systems which
suDDort the Partitioned Dataset rPDSl dataset structure. Tabes generated with this ootion can
not be read by non-IBM systems. Each option above submits a batch job which utilizes the IBM
IEBCOPY utility to convert each of the RCRIS system partitioned datasets (PDS) to serial
format on tape. This is a very efficient method for copying the datasets to another IBM system,
since the other system can use its IEBCOPY utility to create an identical copy of the original.
PDS.
Options 1, 2, and 3 should be used for generating tapes whenever possible because the
processing of PDS datasets using the IEBCOPY utility is significantly faster and more efficient
than the overhead required to convert these datasets a format suitable for non-IBM systems. The
batch jobs which are submitted by these options typically require between one hour for the full
system tape (Option 1) down to IS minutes for the current version only tape (Option 3).
Options 4, 5, and 6 will generate tapes which can be used on any non-IBM system. These
options convert each member of each PDS to a fully qualified file name on the tape. Since the
RCRIS system consists of about 2,500 programs, screens, message files, JCL files, databases,
and data files, this involves significant overhead. The time required for these options ranges
from 8 hours for the full RCRIS system (Option 4) down to 2 hours for the current version only
tape (Option 6).
RCRIS 4.0.0
21
11/92
-------
RCRIS System Technical Guide
. Options 7, 8, and 9 will allow states with IBM mainframes which are linked into the EPA
network to have their datasets sent electronically to their system. The advantage of this option
is that the datasets can be downloaded on the state system almost immediately. Typically, the
full system can be sent to the State IBM system input queue within two hours (if the client
system is ready to receive the datasets). There has been little testing of this option; therefore,
the time required may vary appreciably from the above estimate.
If it is necessary to run more than one TTC/EFT option simultaneously or if an option must be
run multiple times in the same session, it will be necessary to exit from the Main Menu and
select a different directory, either by using the PROFILE PREFIX command, or by logging into
a different directory. Failure to do this will result in system dataset contention and the failure
of all jobs submitted under the current account.
_, Detailed descriptions and instructions for each of the menu options are presented below in
numerical menu order:
3.1 Options 1, 2, and 3-Create RCRIS IBM Tape
When to use:
Advantages:
Option l--To create a tape of the entire RCRIS system for an IBM
mainframe which supports the PDS structure.
Option 2-To create a tape of all changed programs for the current major
RCRIS release for an IBM mainframe which supports the PDS structure.
(For example, if the current version of RCRIS is 4.x.x, then the tape will
contain all changes from version 4.0.0 to version 4.x.x)
Option 3To create a tape of all changed programs for the most recent
RCRIS release for an IBM mainframe which supports the PDS structure.
(For example, if the current version of RCRIS is 4.x.x, then the tape will
contain only the changes for that version.)
Option 1 batch job runs significantly faster than menu choice 4, which is
the corresponding option for making a tape for a non-IBM system.
Options 2 and 3 batch jobs run significantly faster than Option 1 (create
IBM tape of complete RCRIS system), since only changed programs in the
current major release are copied.
11/92
22
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Disadvantages:
Tape can only be read on an IBM mainframe which supports PDSs and
has the IEBCOPY utility. In addition, Options 2 and 3 should only be
selected if the full RCRIS system already exists on the local IBM
mainframe.
After the user selects Option 1,2, or 3 from the TTC/EFT main menu, the program will prompt
for the system password as shown below:
Enter system password >
Biter the password and press < ENTER >. (Authorized persons can obtain the password by
calling the RCRIS User Support Hotline at (800) 767-RCRI.) If the correct password is entered,
the menu shown below is displayed for Option 1:
A*****************************************************************
WELCOME
T O T H E IBM NVS ONLY
FULL RCRIS TAPE CREATE UTILITY
*
*
*
*
*
'*
This program will submit a batch job under your user ID using
the account specified in the system prefix to create a tape
containing all the RCRZS FOCUS programs and RCRIS FOCUS databases
in the group account pppp. The program prompts for the FIMAS
ID, the box number to route the listing to, and the MOU state.
The tape created by this job will contain partitioned datasets
(PDS) which have been copied using the IEBCOPY utility. This
format will only be usable on IBM mainframes which support this
file structure.
DO YOU WANT TO PROCEED (Y/N) ?
Where pppp is the account containing the RCRIS production system.
RCRIS 4.0.0
23
11/92
-------
RCRIS System Technical Guide
If Option 2 or 3 was chosen, the menu will display MVS ONLY/CHANGES instead of MVS
ONLY/FULL.
Input Y and press < ENTER > to proceed or N and press < ENTER > to return to the
TTC/EFT main menu. When Y is entered, the screen will clear, and prompts will be displayed.
For Option 1, the program prompts for the FIMAS ID, the box number to route the listing to,
and the MOU state, as shown below:
***** Enter QUIT for any proapt to exit to READY proapt *****
Enter 5 digit FIMAS ID used to submit the batch jobstream ?
Enter the 4 char BOX NUMBER to route the output to (xlff) ?
Enter the 3 char ID of the MOU table to be copied (xxs) ?
The Facility Impact Monitoring and Analysis System (FIMAS) code identifies a specific ADP
system or activity and associates computer usage statistics with that activity. The format is
xxxxm, where xxxx is an acronym identifying the system and m is a mode character (P, D
orT).
For Options 2 and 3, the program prompts for the FIMAS.ID and the box number to route the
listing to (but not the MOU state).
Enter the appropriate values for each of the above prompts. If an invalid value is detected in
any of the above fields, a warning message is issued, and the prompt is redisplayed. To exit
the program and return to the TTC/EFT main menu, enter QUIT for any of the above prompts.
After all of the above questions have been answered j the system clears the screen and displays
the supplied values for confirmation as shown below:
11/92 24 RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCBIS HILL TRANSLATOR TAPE CREATE PARAMETERS:
(I B N / N V S MAINFRAME ONLY VERSION)
FINAS ID for batch stfcait: xxnx
Route print to box ruter: »**
Using NOlf table for state: xxS
IS THIS CORRECT (Y/N/QUIT) ?
Where x represents a letter and # represents a digit.
(Remember that for Options 2 and 3, the MOU table prompt will not be displayed.) Type Y
and press < ENTER > to accept the values and continue, type N and press < ENTER > to
reject the current values and to be reprompted for new ones, or type QUIT to exit the program
and return to the TTC/EFT main menu. Any other response will cause the system to redisplay
the above screen.
At this point, all values required by the tape job have been supplied. The system will then
prompt: -'
Do you want to submit RCRZS TAPE CREATE batch job (Y/N) ?
Answer Y and press < ENTER > to continue, N or QUIT and press < ENTER > to abort; any
other response will cause the above prompt to be redisplayed.
The program will copy the required RCRIS datasets from the production account to the user
account. Each dataset will have the prefix 'iiiaaaa.iii' where iii is the logon user ID and aaaa
is the logon user account. This should result in unique dataset names for the user account. The
datasets must be copied to the user account, since the tape create batch job requires exclusive
use of the datasets from the time that the job enters the system batch input queue until the tape
creation job finishes execution.
The copying operation requires several minutes to complete since all PDSs and FOCUS
databases are being copied. The following messages are displayed before and after the copy
step:
RCRIS 4.0.0
25
11/92
-------
RCRIS System Technical Guide
*** Please wait while datasets are copied to account iiiaaaa ***
*** Note that this will be a loag wait of several minutes ***
*** All RCRIS software datasets have been successfully copied ***
Where Hi is the user ID and aaaa is the user account.
For Options 2 and 3, the screen will display "changes" instead of "software."
The FOCEXEC members
« «
CHKACCES
CHXACCE2
OBRPSECU
OBUPSECU .'"
and the FOCMSTER member
SECURITY
are encrypted in the production RCRIS system, since they contain the database master password.
These members are replaced by decrypted members of the same name which have had the
RCRIS system password removed.
At this point, all preparation required to submit the tape job has been completed. The program
then calls ISPF to customize the JCL stream, submits the job, and displays the following
message:
job to create FULL IBM RCRIS TAPE has been submitted.
The JCL to unload the tape is contained
in the dataset 'iiiaaaa.LOADTAPE.CNTL'
Please record the job number displayed above and press : .
Where iii is the logon user ID and aaaa .is the logon user account.
11/92 26 RCRIS 4.0.0
-------
RCRIS System Technical Guide
For Options 2 and 3, the screen will display CHANGES IBM RCRIS TAPE instead of FULL
IBM RCRIS TAPE.
After the user presses < ENTER >, the program displays a final screen which gives brief
instructions on how to fetch a job using the SDSF utility (shown below):
* BATCH JOB TO CREATE IBM FORMAT RCRIS TAPE HAS BEEN SUBMITTED *
»********************<
To access job output, type SDSF 0 at the TSO READY
prompt. To select job for viewing, move cursor opposite desired
job and type S in the leftmost column marked HP.
Use , , up and down arrows to scroll through output. Use
to exit browse. To purge output, type P next to job in
HP column. To route output, move cursor to DEST column of
desired job number and overtype field with remote number. To
exit SDSF, press repeatedly until back at TSO READY prompt.
Be sure to note the assigned tape number from the job listing
and the tape expiration date: yyddd - these will be needed
when the tape is restored.
Note that the output of the job is not available for viewing
until the job has completed execution.
For help or more info call RCRIS User Support at (800) 767-RCRI
Press to continue *** .
Where yyddd is the year and Julian day tape expiration date.
After the user presses. < ENTER >, the program exits back to the TTC/EFT main menu.
3.2 Options 4, 5, and 6~Create RCRIS non-IBM Tape
Three options on the Translator Tape Creation/Electronic File Transfer (TTC/EFT) allow the
translator to generate a tape of the RCRIS software for installation on a non-IBM/non-MVS
system. The TTC/EFT main menu below shows these as Options 4, 5, and 6:
RCRIS 4.0.0
27
11/92
-------
RCRIS System Technical Guide
HMM
RCRIS FILE TRANSFER SYSTEM
U.S. ENVIRONMENTAL PROTECTION AGENCY
VERSION f.f.f BB/dd/yy
DATE: a»/dd/yy *
TIC: hh:M *
Translator Tape Creation / Electronic File Transfer
Main Menu
1. CoBplete RCRIS IBM Tape (POS)
2. RCRIS Changes IBM.Tape (POS)
3. RCRIS V *.f.« IBM Tape (POS)
4. Complete RCRIS Non-IBM Tape (Flat Files)
5. RCRIS Changes Non-IBM Tape (Flat Files)
6. RCRIS V t.t.t Non-IBM Tape (Flat Files)
7. Complete systea using ISO KNIT (POS)
8. RCRIS Changes using TSO UNIT (POS) .
9. RCRIS V t.f .f using TSO UNIT (POS)
X. EXIT
SELECTION^
When to use:
Advantages:
Option 4»To create a tape of the entire RCRIS system for a non-IBM
system.
Option 5To create a tape of all changed programs for the current major
RCRIS release for a non-IBM system. (For example, if the current
version of RCRIS is 4.x.x, then the tape will contain all changes from
version 4.0.0 to version 4.x.x)
Option 6--To create a tape of all changed programs for the most recent
RCRIS release for a non-IBM system. (For example, if the current
version of RCRIS is 4.x.x, then the tape will contain only the changes for
that version.)
Tape can be unloaded on any non-IBM system. Option 5 and 6 batch jobs
run significantly faster than Option 4 (create non-IBM tape of complete
RCRIS system), since only changed programs in the current major release
are copied.
11/92
28
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Disadvantages:
Significantly more processing time is required for batch job to convert
partitioned datasets (PDSs) to non-IBM format. In addition, Options 5
and 6 should only be selected if the full RCRIS system already exists oh
a non-IBM computer.
After the user selects Option 4, 5, or 6 from the TTC/EFT main menu, the program will prompt
for the system password as shown below:
Enter system password >
Enter the password and press < ENTER >. (Authorized persons can obtain the password by
calling the RCRIS User Support Hotline at (800) 767-RCRI.) If the correct password is entered,
the screen shown below is displayed for Option 4:
ft*********************************************-******************
WELCOME
TO THE NOH IBM MVS
FULL RCRIS TAPE CREATE UTILITY
This program will submit a batch job under the user's ID,
using the account specified in the system prefix to create
a tape containing all the RCRIS FOCUS programs and RCRIS
FOCUS databases in the group account pppp.
The tape created by this job will have all PDS members
converted to sequential files. It is suitable for systems
which do not support the partitioned dataset (PDS) file
structure. If the local system is IBM/MVS, run the IBM
tape option instead.
DO YOU WANT TO PROCEED (Y/N) 7
Where pppp is the account containing the RCRIS production system.
RCRIS 4.0.0
29
11/92
-------
RCRIS System Technical Guide
If Option 5 or Option 6 was selected, the screen will read NON IBM MVS/CHANGES instead
of NQN IBM MVS/FULL. . * ' ,
Input Y and press < ENTER > to proceed or N and press < ENTER > to return to the
TTC/EFT main menu. When Y is entered, the screen will clear, and prompts will be displayed.
In Option 4, the program prompts for the FIMAS ID, the box number to route the listing to, and
the MOU state, as shown below:
****« Enter QUIT for any prompt to exit to READY prompt *****
Enter 5 digit FXMAS ID used to submit the batch jobstream ?
Enter the 4 char BOX NUMBER to route the output to (xff#) ?
Enter the 3 char ID of the MOU table to be copied (xxs) ?
The Facility Impact Monitoring and Analysis System (FIMAS) code identifies a specific ADP
system or activity .and associates computer usage statistics with that activity. The format is
xxxxm, where xxxx is an acronym identifying the system and m is a mode character (P, D,
orT).
For Options 2 and 3, the program prompts for the FIMAS ID and the box number to route the
listing to (but not the MOU state).
Enter the appropriate values for each of the above prompts. If an invalid value is detected in
any of the above fields, a warning message is issued, and the prompt is redisplayed. To exit
the program and return to the TTC/EFT main menu, enter QUIT for any of the above prompts;
After all of the above questions have been answered, the system clears the screen and displays
the supplied values for confirmation as shown below:
11/92 30 RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRIS FULL TAPE UTILITY CREATE PARAMETERS:
F1MAS ID for batch submit: xxxxx
Route print to box nutter: x*M>
Using NOU table for state: xxS
IS THIS CORRECT (Y/N/QUIT) ?
Where x represents a letter and # represents a digit.
(Remember that for Options 5 and 6, the MOU table prompt will not be displayed.) Type Y
and press < ENTER > to accept the values and continue, type N and press < ENTER > to
reject the current values and to be reprompted for new ones, or type QUIT to exit the program
and return to the TTC/EFT main menu. Any other response will cause the system to redisplay
the above screen.
At this point, all values required by the tape job have been supplied. The system will then
prompt:
Submit RCRIS TRANSLATOR TAPE CREATE batch job (Y/N) ?
Answer Y and press < ENTER > to continue or N or QUIT and press < ENTER > to abort;
any other response will cause the above prompt to be redisplayed.
The program will copy the required RCRIS datasets from the production account to the user
account. Each dataset will have the prefix 'iiiaaaa.iii' where iii is the logon user ID and aaaa
is the logon user account. This should result in unique dataset names for the user account. The
datasets must be copied to the user account since the tape create batch job requires exclusive use
of the datasets from the time that the job enters the system batch input queue until the tape
creation job finishes execution.
The copying operation requires several minutes to complete since all PDSs and FOCUS
databases are being copied. The following messages are displayed before and after the copy
step:
*** Please wait while datasets are copied to account iiiaaaa ***
*** Note that this will be a long wait of several minutes , ***
*** All RCRXS software datasets have been successfully copied ***
RCRIS 4.0.0
31
11/92
-------
RCRIS System Technical Guide
Where iii is the user ID and aaaa is the user account.
For Options 5 and 6, the screen will display "changes" instead of "software."
The FOCEXEC members
CHKACCES
CHKACCE2
DBRFSBCV
DBUPSBCU
and the FOCMSTER member
SECURITY
are encrypted in the production RCRIS system, since they contain'the database master password.
These members are replaced by decrypted members of the same name which have had the
RCRIS system password removed.
At this point, all preparation required to submit the tape job has been completed. The program
copies the required JCL into the user account, calls the system editor to customize it, then
submits the job and displays the following message:
Job to create FULL HON IBM RCRIS TAPE has been submitted.
The list of files written to the tape is contained
in dataset 'iiiaaaa.RCRIS.TAPLST' ' -
Please record the job number displayed above and press :
Where iii is the logon user ID and aaaa is the logon user account.
11/92 32 RCRIS 4.0.0
-------
RCRIS System Technical Guide
For Options 5 and 6, the screen will display CHANGES NON-IBM RCRIS TAPE instead of
FULL NON-IBM RCRIS TAPE, and the dataset will be 'iiiaaaa.RCRIS.TAPPLS' instead of
'iiiaaaa.RCRIS.TAPLST'.
After the user presses < ENTER >, the program displays a final screen which gives brief
instructions on how to fetch a job using the SDSF utility (shown below):
A************************************************************
BATCH JOB SO CREATE RCRIS TRANSLATOR TAPE HAS BEEN SUBMITTED
To access, job output, typa SDSP O at the TSO
READY prompt. To select job for viewing, nova cursor
opposite desired job and type S in the leftmost
column marked HP. Use , , up and down arrows to
scroll through output. Use to exit browse. To purge
output, type p next to job in HP column. To route
output, move cursor to DEST column of desired job
number and overtype field with remote number. To exit
SDSP, press repeatedly until back at TSO READY
prompt.
Be sure to note the assigned tape number from the job
listing and the tape expiration date: yyddd - these
will be heeded when the tape is restored.
Note that the output of the job is not available for
viewing until the job has completed execution.
For help or more info call RCRIS User Support at (800) 767-RCRX
Press to continue ==>
Where yyddd is the year and Julian day tape expiration date.
.After the user presses , the program exits back to the TTC/EFT main menu.
3.3 Options 7, 8, and 9-Electronic Distribution
In order to electronically send RCRIS software to an IBM/MVS/TSO system, a translator may
use Options;?, 8, and 9 on the Translator Tape Creation/Electronic File Transfer (TTC/EFT)
menu, shown below:
**********
RCRIS 4.0.0
33
11/92
-------
RCRIS System Technical Guide
* RCRIS FILE TRANSFER SYSTEM *
* U.S. ENVIRONMENTAL PROTECTION AGENCY DATE: mn/dd/yy *
* - VERSION *.*.* BW/dd/yy TIME: hh:nm
*»**«**»»»»******««********************»
Translator Tape Creation /Electronic file Transfer
M a i n M 'e n u
1. Complete RCRIS IBM Tape (PDS)
2. RCRIS Changes IBM Tape (PDS)
3. RCRIS V *.*.* IBM Tape (PDS)
4. Complete RCRIS Non-IBM Tape (Flat Files)
5. RCRIS Changes Non-IBM Tape (Flat Files)
6. RCRIS V *.*.* Non-IBM Tape (Flat Files)
7. Complete system using TSO XMIT (PDS)
8. RCRIS Changes using TSO XMIT (PDS)
9. RCRIS V *.«.* using TSO XMIT (PDS)
X. EXIT
SELECT I ON«>
When to use:
Advantages:
Option 7~To electronically send the complete RCRIS system to an IBM
mainframe which is linked to the EPA network and supports the PDS file
structures.
Option 8--To electronically send all changed programs for the current
RCRIS system to an IBM mainframe which is linked to the EPA network
and supports the PDS file structure. (For example, if the current version
of RCRIS is 4.x.x, then all changes from version 4.0.0 to version 4.x.x
will be sent.)
Option 9-To electronically send all changed programs for the most recent
RCRIS release to an IBM mainframe which is linked to the EPA network
and supports the PDS file structure, (e.g., if the current version of
RCRIS is 4.x.x, then only the changes for version 4.x.x will be sent)
RCRIS programs are available almost immediately after being sent
provided that the destination system is ready to receive them. 'Batch job
executes quickly. Cost of purchasing tape is avoided. Batch jobs under
Options 8 and 9 run faster than Option 7, since only changed programs
are copied.
inn
34
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Disadvantages:
Can only be used by states which have IBM mainframes linked to the
EPA network. IBM system must support the PDS file structure and must
have the IEBCOPY utility. In addition, Options 8 and 9 should only be
selected if the full RCRIS system already exists on the state IBM
mainframe.
After the user selects Option 7, 8, or 9 from the TTC/EFT main menu, the program will prompt
for the system password as shown below:
Enter system password >
Enter the password and press < ENTER >. (Authorized persons can obtain the password by
calling the RCRIS User Support Hotline at (800) 767-RCRI). If the correct password is entered,
the menu shown below is displayed:
*******************************<
WELCOME
TO THE. IBM NVS ONLY
FULL RCRIS PILE TRANSMITUTILILY
This program will submit a batch job under your user ID using
the account specified in the system prefix to transmit all RCRIS
FOCUS programs and RCRXS FOCUS databases in the group account
pppp to your system. The program prompts for the FXMAS ID,
the box number to route the listing to, and the MOU state.
The datasets sent by this job will contain partitioned datasets
(PDS) which have been copied using the IEBCOPY utility. This
format will only be usable on IBM mainframes which support this
file structure.
DO YOU WANT TO PROCEED (Y/N) ?
Where pppp is the account containing the RCRIS production system.
RCRIS 4.0.0
35
11/92
-------
RCRIS System Technical Guide
If Option 8 or Option 9 was selected, the screen will read MVS ONLY/CHANGES instead of
MVS ONLY/FULL.
Input Y and press < ENTER > to proceed or N and press < ENTER > to return to the main
menu. The screen will clear, and the following prompts will be displayed for Option 7:
***** Enter QUIT for any prompt to exit to READY prompt *****
Enter 5 digit FIMAS ID used to submit the batch jobstream ?
Enter the 4 char BOX NUMBER to route the output to (xiit) t
Enter NODE.USER address/user ID for the remote system 7
Enter the 3 char ID of the NOU table to be copied (xxs) ?
The.Facility Impact Monitoring and Analysis System (FIMAS) code identifies a specific ADP
system or activity and associates computer usage statistics with that activity. The format is
xxxxm, where xxxx is an acronym identifying the system and m is a mode character (P, D, or
T). .,' '
If Option 8 or Option 9 was selected, the screen will prompt for the FIMAS ID, the BOX
NUMBER, and NODE.USER (but not for the MOU state).
i ,
Enter the appropriate values for each of the above prompts. If an invalid value is detected in
any of the above fields, a warning message is issued, and the prompt is redisplayed. To exit
the program and return to the TTC/EFT main menu, enter QUIT for any of the above prompts.
After all of the above questions have been answered, the system clears the screen and displays
the supplied values for confirmation as shown below:
11/92 36 RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRZS FULL TRANSLATOR DATASET TRANSMISSION PARAMETERS:
(I B M / M V S MAINFRAME ONLY VERSION)
FIMAS ID for batch submit: xxxxx
Route print to box number: xfif
NODE.ID of remote system: xxx.xxx
Using MOU table for state: xxS
IS THIS CORRECT (Y/N/QUIT) ?
Where x represents a letter and # represents a digit.
(Remember that the MOU state prompt will not appear under Option 8 or Option 9.) Type Y
and press < ENTER > to accept the values and continue, type N and press < ENTER > to
reject the current values and to be reprompted for new ones, or type QUIT to exit the program
and return to the TIC/EFT main menu. Any other response will cause the system to redisplay
the above screen. .
,f
At this point, all values required by the TSO batch datasets transmit job have been supplied.
The system will then prompt:
Do you want to submit RCRIS DATASET TRANSMISSION (Y/N) ?
Answer Y and press < ENTER > to continue or N or QUIT and press < ENTER > to abort;
any other response will cause the above prompt to be redisplayed.
The program will copy the required RCRIS datasets from the production account to the user
account. Each dataset will have the prefix 'iiiaaaa.iii' where iii is the logon user ID and aaaa
is the logon user account. This should result in unique dataset names for the user account. It
is necessary to copy the datasets to the user account since the electronic transmission batch job
requires exclusive use of the datasets from the time that the job enters the system batch input
queue until all the files have been transmitted to the other system.
RCRIS 4.0.0
37
11/92
-------
RCRIS System Technical Guide |
The copying operation requires several minutes to complete since all PDSs and FOCUS
databases are being copied. The following messages are displayed before and after the copy
step:
*** Please wait while datasets are copied to account iiiaaaa ***
*** Note that this will be long wait of several minute* ***
***
*** All RCRIS software datasets have been successfully copied
Where iii is the logon user ID and aaaa is the logon user account.
The FOCEXEC members
CHKACCES
CHKACCB2 -
DBRPSECU
OBUP8BCU
and the FOCMSTER member
SECURITY .
are encrypted in the production RCRIS system, since they contain the database master password.
These members are replaced by decrypted members of the same name which have had the
RCRIS system password removed. -
At this point, all preparation required to submit the electronic transmission batch job has been
completed. The program then calls ISPF to customize the JCL stream, submits the job, and
displays the following message:
Job to transmit FULL IBM RCRIS SYSTEM has been submitted.
To -retrieve the datasets on the other system, enter the
RECEIVE or equivalent cosnund at the TSO READY
prompt and follow the on-screen instruction*.
Please record the job number displayed above and press :
11/92 38 RCRIS 4.0.0
-------
RCRIS System Technical Guide
For Options 8 and 9, the screen will display CHANGES instead of FULL.
After < ENTER > is pressed, the program displays a final screen which gives brief instructions
on how to fetch a job using the SDSF utility (shown below):
* BATCB JOB TO TRANSMIT PULL RCRIS SYSTEM BAS BEEN SUBMITTED *
******************************************************************
To.access job output, type SDSF O at the TSO READY
prompt. To select job for viewing, move cursor opposite desired
job and type S in the leftmost column marked HP.
Use , , up and down arrows to scroll through output. Use
to exit browse. To purge output, type P next to job in
HP column. To route output, move cursor to DEST column of
desired job number and overtype field with remote number. To
exit SDSF, press repeatedly until back at TSO READY prompt.
Since the TRANSMIT command creates several batch jobs, there
will be several entries with the same jobname. The JCL listing
will usually be located about halfway in the output list.
Note that the output of the job is not available for viewing
until the job has completed execution.
For help or more info call RCRIS User Support at (800) 767-RCRI
******************************i
Press to'continue ***
After < ENTER > is pressed, the program exits back to the TTC/EFT main menu.
RCRIS 4.0.0
39
11/92
-------
RCRIS System Technical Guide I
SOFTWARE INSTALLATION
The installation of RCRIS on either a standard or non-standard platform system follows the same
general steps. Some of these steps may need modification to include platform-specific
preparation. For specifics about installation on particular non-standard platforms, refer to the
case studies in Sections 6 and 7.
4.1 Establish Account System Configuration
Before the RCRIS software can be installed on any system, a State must set up the user accounts
required for development, testing, and production. While the procedures may differ on the local
system, the general procedures include the following:
o Setting up development, test, and production accounts.
o Creating security on accounts
o Establishing naming conventions for software and databases
A single account structure is now used. This allows only one set of production software under
the RCRS account, providing more stability and ease of maintenance. Database naming
conventions allow databases to reside in more than one account. This allows users to test
production software on their own test databases.
The following lines in the CLJST are used to assign the accounts:
/* ASSIGN PRODUCTION, DEVELOPMENT AND TEST ACCOUNTS
SET &PROO <* tSTR(RCRS)
SET &DVLP » tSTR(RCRD)
SET STEST *> tSTR(RCRT)
RCRS is the production account.
RCRD is the development account.
RCRT is the test account.
11/92
40
RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRIS CLISTS contain three variables: (1) &PROG, (2) &DVLP, and (3) &TEST. The value
of these three variables must be changed in order to use another accounting structure. The main
CUSTs to alter are RCRIS and MERGPRO.
- Users signing on as the above accounts have
an option to run production, test or development
software. Others can only run production software. The following illustrates the CLIST code
which determines if the user will be prompted for the system modes. See Section 2.3 for a
discussion of dataset concatenations for each MODE.
IF £SUBSTR(4:6,SSYSPREF) EQ &STR(RCR) OR +
tSUBSTR(4:5,&SYSPREF) BQ iSIR(KH)|THEN DO
WRITEKR ENTER MODE (P)RODUCTION, (T)EST, (D)EVELOPMENT OR +
(Q)UIT :
READ &MODE
IF &MODE ME tSTR(P) AND &NODE ME &STR(T) AND &MODE HE &STR(D) AND +
&MODE HE &STR(Q) THEN DO
WRITE
WRITE INVALID VALUE, PRESS ENTER TO CONTINUE
READ &DUMMY
GOTO WELCOME
ENDO
IF &MODE EQ &STR(Q) THEN GOTO QUIT99
ENDO
4.2 Install Software on the State Development Account
After the acounts have been set up, the RCRIS system must be received electronically or on
tape, as discussed in Section 3.
4.2.1 Receive Software Transmitted by TSO XMIT Command
To receive the datasets which have already been sent electronically (see Section 3.3), the
RECEIVE command is used by the receiving system.. This command should be run under
interactive TSO since it requests user input! Simply enter RECEIVE at the TSO READY
prompt.
The system will check to see if any datasets
have been received; if so, the system will enter
interactive mode with the user. First, the name of the first dataset sent will be displayed and
a prompt will be displayed. A user can enter "?" to list the attributes of the dataset. If a user
RCRIS 4.0.0
41
11/92
-------
RCRIS System Technical Guide
wants to create a dataset having the same name (except for the prefix), then he or she enters
only a carriage return. The dataset can be given a new name by entering DS(newname) on the
prompt line or it can be deleted from the receive queue by entering DEL. If the dataset name
already exists in the user catalog, a warning message will be displayed. A user can overwrite
the old dataset, or use the DS(. ..) option to assign a new name. These prompts will be repeated
for each dataset which is to be received. To terminate the dialog until a later time, type "END"
at any prompt.
This command will generate large amounts of output to the screen as the dataset is being
generated in the receiver's user account. This is especially true in the case of a PDS, where one
line is written to the screen for each member which is successfully restored. Unfortunately,
since this is an interactive process, it should not be run in TSO batch mode. The user must
view many screens of output, since there currently is no option to suppress the messages.
4.2.2 Unload Software/Database Tape to Development Account
Using a tape made in accordance with Section 3.1 (for IBM/MVS/TSO) or Section 3.2 (for non-
IBM/non-TSO), RCRIS software can first be installed from tape on a State development account.
The State user must modify this development version of RCRIS to accommodate the State's
specific system interface needs, as the version will become the State production version of
RCRIS.
The procedures to unload the tape depend on the type of tape (IBM or other) which was created.
If the tape was created for an IBM system which supports the PDS format, then a job stream
will be sent to the other system (via U-Mail or routed to the other system's remote printer).
This file contains a generic version of the JCL which can be submitted to perform the tape
unload. The file contains directions for customizing the accounting parameters which include
inserting-
o User ID
o Account
o Box number
o Tape volume serial number
o Tape expiration date
o Tape file prefix
11/92 42 RCRIS 4.0.0
-------
-------
RCRIS System Technical Guide
. o Account to copy tape files to <
o disposition of the copied datasets (NEW or OLD)
-:; These changes can be done using any line OF full-screen editor and performing the substitutions
r in the order which is documented in the file. After all parameters have been entered, the JCL
may be submitted. (Check with system programmers if other parameters are required by the.
installation for tape jobs.)
If the job completes successfully, the RCRIS system datasets will be in the selected system
directory. It will be necessary to modify the accounts used in the CLISTs, Skeletons,
FOCEXECs, and PANELS to match the system assigned account. Finally, the FOCEXEC
MODIFYs must be compiled before the system is ready to be tested.
* The procedure for unloading a tape on a non-IBM system differs for each system; therefore, no
^ specific instructions can be given. However, the following general instructions may be useful.
fc .
The user will need to run a utility, on the system to unload each file on the tape to a directory
on disk, performing EBCDIC to ASCII conversion if necessary. This utility will probably
require the volume serial number of the tape and the tape expiration date. The first file on the
tape contains a list of all files for all the tapes and is named 'iiiaaaa.RCRIS.FULL.TAPE.LIST'
for the full RCRIS tape and 'iiiaaaa.RCRIS.UPDATE.TAPE.LIST' for the update RCRIS tape.
The file is fixed-block, 80 characters, and is blocked at 23440 characters. Replace "iiiaaaa"
with the ID and account of the user who created the tape on the NCC mainframe.
Given the number of files to unload (over 2,500), it would probably be useful to dump the file
list and use this as a basis for creating a batch program to unload the tape(s). Since the PDS*
structure is not available, each file will be unloaded separately to the directory. Sequential files
are stored to tape using the full IBM system name. For PDS files, each member is written to
a separate file which consists of the PDS name with the member name appended to the end as
the last level.
Note;The same member name can exist in more than one PDS, $Q a. convention will need
; to be established to make these names unique when they are unloaded. One possibility is
to assign unioue extensions for each PDS tvoe.
RCRIS 4.0.0 43 11/92
-------
RCRIS System Technical Guide
4.3 Modify Software Making Translator-Specific Changes
After the datasets have been unloaded, all CLISTs and IBM JCL skeletons must be converted
to interactive^and batch command files appropriate for the system. This may not be as hard as
it appears, since most non-IBM systems do not require explicit allocation of every file and
database. The FOCEXECs (and PANELS files, if used) will need to be changed to reference
the proper accounts. Finally, the FOCEXEC files will require compiling before the system can
be tested.
If the local computer has a non-MVS/non-TSO environment, the State user will need to make
modifications to the CLISTs (FOCEXEC and batch job control changes will be discussed later)
before RCRIS will operate properly with the local computer's operating system. Before making
modifications, the user must be familiar with the major system commands required to invoke the
RCRIS system under FOCUS. (See Section 2.) Most of the required modifications to RCRIS
will involve changing the account tests and logic and changing the system functions described
in Section 2 and Appendix A to match those of the target system.
If the State is implementing RCRIS on another TSO system, the supplied CLISTs can be
modified; otherwise, the command files necessary to set up the databases and programs will need
to be written using the supplied CLISTs as a guide.
* .'
If the State is a TSO user, much of the customization can be accomplished by looking for the
global variables listed below wfth a utility which can search multiple files or members for a
specific string. - .
SET IIP DEFAULT VALUES FOR ALL GLOBAL COMMAND SUBSTITUTION PARKS.
SET &TDSCHECK
SET &TPRINTOF
SET &TCLEAR
SET &TPMDISK
SET STWKDXSK
SET &TFOCACNT
SET &TFDSN
SET &TACTRANO
SET &TSPCMOMT
&STR(DSCHECK)
SSTR(PRXNTOFF)
&STR(CLR3270)
SSTR(DISK)
CSTR(DISK)
&STR(SYS2)
&STR(FDSN)
£STR<4:7)
&STR($SH)
SET CTFLDEARC » &STR(BRECALL)
11/92
44
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Of the variables listed above, &TPRINTOF, &TCLEAR, and &TFOCACNT MUST HAVE
equivalents on the new system for RCRIS to function properly. &TPMDISK, &TWKDISK,
&TACTRANG should only be included if the accounting on the new system requires them.
&TFDSN would only be of use in an IBM TSO environment. &TSPCMGMT is only useful if
partitioned datasets are used. &TFLDEARC is only needed if the system archives datasets to
tope after a set period of inactivity.
o &TPRINTOF. TSO command to send files to printer. This is necessary for
RCRIS to function properly.
o &TCLEAR. Command to clear CRT screen. This is necessary for RCRIS to
function properly.
o &TFOCACNT. This variable holds the PREFIX for the account which contains
the FOCUS system datasets, both the libraries and the load modules. Since this
varies from system to system, this variable was provided to simplify installation.
This is necessary for RCRIS to function properly.
o &TPMDISK. Device name (Unit) for permanent files. Can be the same as
&TWKDISK. :
o &TWKDISK. Device name (Unit) for work files. Can be the same as
&TPMDISK.
o &TFDSN. Name of function to return datasets allocated to a DDNAME (set to
&STR(/*) if not used). This is an EPA-created function and is only useful in an
IBM/TSO environment.
o &TACTRANG. This variable is used on the EPA mainframe to select the
portion of the system PREFIX (CLIST pre-defined variable &SYSPREF) to
extract. On the EPA mainframe, the PREFIX consists of either a four-character
group account or of a three-character ID followed by a four-character group
account. To obtain the account from the user ID, characters 4 through 7 need to
be extracted. This is accomplished by setting &TACTRANG to 4:7, where 4 is
the first position to extract and 7 is the last position to extract. If the group is not
contained within the account, set this to 1:L, where *L' is the length of the
&SYSPREF value.
o &TDSCHECK. Used for the DSCHECK function. LISTDSI is equivalent except
for the return codes. The return codes must be changed to match those returned
by the function.
RCRIS 4.0.0 45 11/92
-------
RCRIS System Technical Guide
o &TSPCMGMT. Name of utility to compress partitioned datasets-may not be
applicable (set to &STR(/*) if not used). This utility is only useful if PDSs are
used.
o &TFLDEARC. Name of utility to recover files automatically moved off-line to
tape due to inactivity-may not be applicable (set to &STR(/*) if not used). This
'utility is only used if the system archives datasets to tape after a set period of
inactivity.
These variables should be set to the commands used by the local system to accomplish their
stated functions in the following RCRIS CLISTs: INSTALL, RCRIS, and MERGPRO. These
three are included in Appendix G. Setting the variables will ensure that the proper command
is executed when the function is needed. However, since different systems require different
parameters to be passed to each function, it will probably be necessary to perform a global
search as stated above and manually change the values on each line where the function is
invoked. This will cover a large number of the required changes. For TSO users, most of the
additional changes will involve changing the way account PREFIX information is used to access
datasets.
The first part of the RCRIS CLIST contains keyword parameters, as follows:
,RCRIS.CLIST(RCRXS)
PROG 0
CALLED() MODE<) POCVER(.) LIST(NOLIST)
The RCRIS CLIST can be executed standalone or can be called from the CLIST MERGPRO
(aaaa.RCRIS.CLIST(MERGPRO)).
The CALLED parameter indicates whether the CLIST was called by MERGPRO and is passed
to RCRIS by MERGPRO.
11/92
46
RCRIS 4.0.0
-------
RCRIS System Technical Guide
The FOCVER parameter can be used to test the RCRIS software under a new FOCUS version
different from the current production FOCUS version. The following command is an example
of how to use this feature: (This is only useful if the system name for the FOCUS load library
follows this convention for new test releases of FOCUS.)
'aaaa.RCRIS.CLIST(RCRIS)' 'FOCVER(V6R5M5)
Where V6 = _ FOCUS Version 6
R5 = Release 5
M5 - Maintenance Release 5
The appropriate parameters should be obtained from the DBA, who assures that RCRIS has been
recompiled under the specified FOCUS version.
If the user passes the FOCVER parameter, the RCRIS Mode Selection Screen will display the
FOCUS version number.
The LIST parameter provides a list function for debugging purposes. To use this function, type
the following command:
'aaaa.RCRIS.CLIST(RCRIS)' 'LIST(LIST)
Each of the relevant parameters above is passed to lower level CLIST modules. This avoids
having to manually change the above values for each called CLIST submodule.
RCRIS 4.0.0 47 11/92
-------
RCRIS System Technical Guide
ALLOC DD(RCRVEROT) DS('&PROG..RCRIS.VERSION.RELDAXE') 8HR REUSE
OPENFILE RCRVERDT INPUT
GEXPXLE RCRVERDT
BET tVERDATE = &STR(&RCRVERDT)
GETPILE RCRVERDT
SEX INVERSION = &STR(&RCRVERDT)
CLOSPIIiE RCRVERDT '
IP «STR(&NVERSXON) NE SSTR(NONE) TEEN +
SET &ZVER a &STR(V)+
&SUBSTR(1:1,&NVER8XON)+
&SUBSTR(3t3,6NVERSION)+
&SUBSTR<515,&NVERSION)
ELSE + . -
SET &ZVER = &STR(ZXXZ)
The dataset named 'aaaa.RCRIS.VERSION.RELDATE' contains two lines which maintain
information on the current and next release versions. The first line of this dataset contains the
current release version number followed by the release date. The second line contains the
number of the next release version or NONE if there is no next release. The release date in this
file is created when the Install program is run.
11/92
48
RCRIS 4.0.0
-------
RCRIS System Technical Guide
4.4 Perform Initial Tests and Modifications on Development System
After all of the changes above have been made, the following process should be used to test the
system.
. 1. Test the INSTALL CLIST first, because it compiles the FOCUS programs and
sets up the Turbo.' FOCUS source and compiled libraries. When 'turboized,' the
FOCEXECs are placed into their associated PDSs with the most frequently used
FOCEXECs positioned at the top of the PDS stack for faster retrieval. See
Appendix C, PROGCOMP and PROGCOPY for a list of Turbo PDS libraries.
2. Next, the RCRIS CLIST should be tested.
3. When these are functioning properly, the batch control job streams (skeletons)
should be converted to the current accounting system.
4. All functions connected with the MERGPRO CLIST should be tested.
Note; The RCRIS FOCUS Master file descriptions should not require anv modification tor
any system. The FOCUS Window files can be used without modification on anv IBM
system with TSO.
As discussed in Section 2 and Appendix A, parts of the RCRIS system use the IBM product
ISPF. This utility is used mainly to display full screen panels for menu choices and data entry
outside of the FOCUS environment. This allows the user to enter data which will be needed in
certain cases before FOCUS can be started. ISPF is also used inside of FOCUS to perform
utility functions which would otherwise be difficult to access. These functions can be located
by searching all CLISTs for the strings 'ISPSTART' and*'ISPEXEC'. The accompanying
screens can be found in the PANELS files and the error message text is stored in the MSGS file.
4.5 Modify System for Non-TSO Environment if Necessary
If the State is NOT running under MVS/TSO, the following is a description of what needs to
be accomplished to make RCRIS operate. First, since partitioned datasets (PDSs) are not
supported, the data will be sent in individual files. The files will, in general, be named
identically to those on the EPA IBM mainframe. PDS files will be convened to sequential files,
one for each member. They will have the same name as the EPA IBM counterpart with the
member name appended to the end. It is the State DBA's or system operator's responsibility
to retrieve and name these files to the standard FOCUS naming convention on the local system.
RCRIS 4.0.0 49 11/92
-------
RCRIS System Technical Guide
After the DBA or system operator has retrieved and renamed the above files, he or she should
study the CLIST files and note the changes which were detailed in Section 4.3. The CUSTs
must be modified, FOCUS must be invoked, and the RCRIS programs must be compiled before
system testing can begin.
These CLISTs will need to be converted to interactive command files on the local system. The
important point to remember is that all FOCUS databases, master file descriptions, window files,
and work files must be properly assigned before FOCUS is called. This should not be a major
problem on these systems, since most of them handle the file allocations automatically if the files
are named in a standard way (that is, are assigned a default extension). Many systems provide
a PATH statement which can be used to access programs when they are in a different directory.
It is important to compile the RCRIS programs before testing the system. The CLIST
PROGCOMP will show which files are needed to invoke FOCUS before RCRIS can be compiled
and the CLIST COPYCOMP will show the list of files which are the compiled modules.
In CLIST conversions, it may not be possible to convert every command that is used. In most
cases this will not matter, since some of the functions are mainly relevant to an IBM TSO
environment. However, be sure that the functions of variables which are listed as important in
Section 4.3 are provided or system performance will be unsatisfactory.
Another area which will require attention is the batch job control files (any dataset which ends
with or contains the word '.SKFX'). These files are processed by ISPF 'file tailoring' utility
which generates a job stream which can be submitted for batch processing. This service is
invoked from a CLIST as follows:
ZSPEXEC FTOPEN [TEMP]
ZSPEZEC FTINCL skeleton membername
INSPEZEC FTCLOSE
The output JCL data is written to the dataset name allocated to the DDNAME 'ISPFILE' unless
the 'TEMP' option is used; in this case the data is written to a temporary file. The temporary
file name can be retrieved through the ISPF system variable '&ZTEMPF'.
11/92
50
RCRIS 4.0.0
-------
RCRIS System Technical Guide
* The member to be processed is contained in a PDS which is allocated using the DDNAME
'ISPSLIB'. .
The ISPF processor performs the following conversions:
3
1. Replaces all *&xxx' symbolic parameters with their actual text values. These
parms have been previously set to a value in the CLJST which invokes the ISPF
service. A dot ('.') can be suffixed to the variable name if it is necessary to
append text after the variable. The dot is not printed. If it is necessary to print
the dot, then two dots must be appended to the variable.
2. Writes the resulting records to an output dataset. The processor scans for lines
which begin with ')SEL'. When such a line is found, the condition following.it
is evaluated (for example, &MODE - P) and if the condition is true, then all
records following this line are written to the output file up to the corresponding
line which contains the command ')ENDSEL' in column 1. If the condition is
. false, then these lines are skipped over.
*: .
- At the completion of the 'file tailoring', the output file contains Job Control Language (JCL)
. which is ready to submit to the batch system input queue. This is the method which is used to
submit the RCRIS batch reports and updates. For a non-IBM system, it will be necessary to
convert this JCL to the batch command language used by the translator's system. It is important
to realize that IBM JCL has a completely different syntax than TSO commands or CLISTs. A
brief overview of how to do this is presented below:
IBM batch job files bear no resemblance to the interactive command language. An IBM batch
job starts with a job card which may include more than one line. -The rest of the job is divided
into 'steps'; each step begins with //name EXEC xxxx, where 'name' is a one to eight character
assigned name for the step, EXEC is a required keyword, and xxxx is the either a one to eight
character procedure name or is PGM=xxxx, where 'xxxx' is the name of the program or utility
to run. See Appendix A for a list of some of the common programs and utilities used in the
RCRIS system.
(
After the job step are allocations for all the files that the program will be using in the form
//ddname DD [many parameters]
RCRIS 4.0.0 51 11/92
-------
RCRIS System Technical Guide
'ddname' is the handle through which the program gains access to the attached file or
device,
'DD' is a required keyword; this is followed by keywords which are used to describe the
file or device needed to the operating system. This allows the device or file name to be
changed without having to change (and possibly recompile and link) the program.
If a permanent disk file is being read or written, then the keyword 'DSNAME=' will
be present, followed by the name of the file.
- The keyword 'SYSOUT=' indicates that the data is being sent to the print queue.
The other keywords describe special properties of these files or devices and will
generally not be required when the job stream is converted.
One thing to notice when converting the RCRIS batch jobs is a special dataset construction called
a Generation Dataset Group (GDG). These can be identified in IBM utilities by the following
form: xxxx.xxxx.xxxx(+1). 'xxxx' is the dataset name and can have any number of levels (the
characters which appear between the dots). The '(+1)' indicates a GDG. Generation datasets
can be considered a sequenced set of backups for a given file. If the dataset is backed up
regularly, then the user can restore the dataset to a given state simply by restoring the proper
GDG backup. The number of backups which are kept for a dataset is specified when the GDG
structure is defined. The number of generations for RCRIS datasets on the EPA system is preset
to 20 for extract and update jobs are preset to 1 for database rebuilds; this number can be
increased or decreased. A GDG can be identified by a dataset with the suffix 'GxxxxVxx',
where 'Gxxxx' is the generation (back-up sequence number-which starts at 1 and is incremented
by one for each subsequent back-up) and .'Vxx' is the version number. The GDG format only
exists on IBM systems, although other systems usually have similar mechanisms, such as a
version number following the file extension.
The RCRIS compile procedure should be written and tested first. The next item should be to
write an interactive command procedure to bring up the RCRIS system under FOCUS. Finally,
the RCRIS Extract procedure, RCRIS utilities, and RCRIS batch programs should be modified
or rewritten.
After the interactive and batch command files have been successfully converted, the RCRIS
FOCEXEC programs will need to be changed. A special parameter file is created in the
interactive RCRIS system command file and is used by the RCRIS FOCUS system to allocate
work and report files. This file has six parameters:
11/52
52
RCRIS 4.0.0
-------
RCRIS System Technical Guide
1. The group account that the user logged on as.
2. The production account prefix.
3. The development account prefix.
4. The test account prefix.
5. The database prefix (account.state ID) (for example, aaaa.SSO).
6. The selected MODE (D/T/P).
These items are all concatenated without any intervening spaces. The RCRIS PROFILE reads
these items and equates them to global variables. It is important to check that the length
assigned to each item read from this file matches that item's actual length.
Finally, all references where the 'TSO' prefix is used need to be converted within, the RCRIS
FOCEXECs. The TSO prefix is mainly used to allocate or to free report or work files
dynamically and is used in several places to invoke the IBM ISPF system services. Since the
TSO ALLOCation should be easy to convert to the format required by the target system
(conversion may not be required in some cases), this will be more tedious than difficult. For
non-TSO systems, the &&SYSTEM will need to be redefined in PROFILSG and PROFILSU.
Refer to Appendix D, Appendix M, and page 11. A complete listing of TSO calls from CLISTs
is provided in Appendix D. For ISPF calls, refer to Appendix I.
4.6 Test Changes
After all.modifications have been made to the CLISTs and the local system is ready for release
to the production environment, the DBA or system operator will want to test all system functions
to ensure that RCRIS is now operating properly under its new environment. A specific test plan
should be written to ensure that all changes made to the system are fully tested and RCRIS is
performing correctly. This testing process will differ according to specific installation
requirements, but should generally follow the following pattern:
Compile the FOCEXECs. Before any actual testing can begin, the DBA or system operator
will need to compile all of the FOCEXECs. (See section below on testing CLISTs.)
Access and Navigation. Once the FOCEXECs have been compiled, the DBA or system
operator should invoke the RCRIS system and make sure that he or she has access to the Main
Menu and can move to sub-menus properly.
RCRIS 4.0.0 53 11/92
-------
RCRIS System Technical Guide
Data Entry Capability. After ensuring that he or she can navigate from one menu to another,
the DBA or system operator will want to make sure that he or she can perform data entry and
edits on each of the following modules: HID, CM&E, PMT/CL/PC, CA, PM, and FMP.
Reports. Careful testing of the RCRIS reporting functions will include running both STARS
and management reports to ensure that all of the appropriate data are included and are in the
proper format.
DBA Functions. The DBA or system operator should test the database administration functions
to insure proper operation and should test both Table Maintenance and the Merge Process.
MERGPRO Utility. Only GDG initialization is required for merge processing and should be
tested first. All other utilities are desirable but are not essential.
TESTING PROCEDURES FOR CLISTS
The first step to bring up RCRIS on an IBM TSO system (after all of the datasets have been
moved to proper directories and have been given the proper names) is to convert the CUSTs
to operate with the functions and accounting structure of the new system. The next step is to
test the CLISTs to ensure that they actually do work the way they were intended. This section
describes methods which can be used to accomplish this. Appendix C contains description
summaries of the RCRIS CLISTs.
The CLISTs can be grouped into three modules: (1) those used for compiling FOCEXEC
programs, (2) those used to invoke the RCRIS system, and (3) supporting utility CLISTs.
CLISTs should be tested in the same order as listed above. The RCRIS system cannot be tested
until all of the FOCEXEC modules have been compiled, and some of the utilities cannot be used
until data has been entered into the RCRIS databases.
Four CLISTs comprise the compile module:
1. INSTALL, which is the main program
2. PROGCOPY, which sets up the dataset libraries for the turbo FOCEXECs (called
from INSTALL)
11/92
54
RCRIS 4.0.0
-------
RCRIS System Technical Guide
3. PROGCOMP, which allocates the datasets and databases necessary to compile the
FOCEXECs (called from INSTALL)
4. COPYCOMP, which allocates and copies the compiled programs into the turbo
FOCCOMP libraries (called from INSTALL)
: These can all be tested by invoking the member INSTALL. If INSTALL functions properly,
messages will be displayed indicating the FOCEXECs which are being copied, FOCUS will be
invoked to compile the FOCEXECs (several screens of FOCUS compile messages are
generated), and finally a status screen will display the results of copying the compiled
FOCEXECs. Possible problems might include wrong parameters being passed to the
sub-programs or wrong PREFIXs being assigned to datasets. Although tedious, corrections to
these problems are relatively easy to make.
A The next item to test is the CLIST which invokes RCRIS.
*
This CLIST has logic which is only applicable to the EPA IBM system at NCC and which will
need to be bypassed. Change the variables to the proper values for the local system and
uncomment them if necessary. Also change the definitions for the CLIST global Variables which
are just above this area. Do not make any other changes to the CLIST at this point.
Appendix M contains the programs needed to provide multiuser capability for datasets in RCRIS.
At this point, type EX 'aaa.RCRIS.CLIST(RCRIS)'. When the DBA or system operator sees
the RCRIS main menu, the CLIST can be considered to be functional, although further testing:
of the RCRIS options in FOCUS can still reveal that certain files are not allocated properly.
If the main menu does not appear, first ensure that the initialization of global variables and the
other variables which are in the marked area immediately below this are all set properly. If this
does not solve the problem and a trace is necessary, perform the following steps:
1. Invoke the RCRIS CLIST with the trace mode enabled as follows: EX
!aaaa.RCRIS.CLIST(RCRIS)' 'LIST(LIST)'
2. Re-run the CLIST and note the logic and error messages, especially at the point
of termination.
RCRIS 4.0.0 55 . 11/92
-------
RCRIS System Technical Guide
3. Correct all errors having to do with datasets not found for ALLOC (allocation;
the dataset associated with the DDNAME) UCALC is an exception to this. (See
Appendix A, p.A-2).
4. Ignore all error messages relating to DDNAMEs which are not ALLOCated
(when a FREE command is encountered) and datasets which cannot be found for
deletion.
5. Watch for other errors, such as differences in the system functions. In most
cases these can be corrected by changing the corresponding global variable (these
are listed in another section), although it may still be necessary to change the
parameters which are associated with these variables wherever they are
referenced.
6. After changes are made, run the CLIST again with a trace on and note any
further errors.
7. Continue to correct and re-run the CLIST until all errors have been corrected and
the RCRIS main menu is displayed. At this point, the CLIST is mostly debugged
and the "List" parameter is no longer required.
s
Finally, test the utility CLIST. The main module is MERGPRO; this CLIST calls other CLISTs
depending on which menu choice is selected. To test this CLIST, select all choices on all menus
and try all of the options. . Since some of these CLISTs submit batch jobs, it is important to
correct the syntax of the JOB card for each member in 'aaaa.RCRIS.SKELS', where 'aaaa' is
the account which contains this dataset. This will also require that the edit logic be changed in
certain CLISTs. If a CLIST option terminates abnormally, it will be necessary to trace where
the error occurred. This can be done as follows:
1.
2.
3.
Turn, on the trace in MERGPRO
'aaaa.RCRIS.CLIST(MERGPRO)' 'LIST(LIST)'
by entering EX
If the menu in MERGPRO was not displayed, re-run MERGPRO and debug;
otherwise note the menu item which was selected.
Look for a series of 'SELECT' statements which check for the selected choice
(they may not all be in one place) until the one that has the choice the user
selected is found. .
11/92
56
RCRIS 4.0.0
-------
RCRIS System Technical Guide
4. Note which CLIST this calls, then edit that CLIST.
5. If the error occurred after a choice was selected from a sub-menu, repeat steps
3 and 4 again.
6. Go back and re-enter the same values as before, noting any errors having to do
with file ALLOCations or system functions; make any necessary corrections.
Again, errors involving FREE statements not finding the DDNAME ALLOCated
and deletes which do not find any dataset to delete can be ignored.
7; Repeat all of'the above steps until no more errors are found, then remember to
turn off the trace statement wherever it has been enabled. Proceed to the next
menu or sub-menu option to test. If any errors are encountered, start over from
step 1. Continue in this manner until all the sub-CLISTs have been tested and
debugged. Note that this will require a large amount of time, because of the
number of CLIST members which are called from MERGPRO.
At this point, all CLIST testing is complete; proceed to testing the FOCEXECs and FOCCOMPs
which are described above.
4.7 Move Software to Test Account for Certification Testing
After RCRIS software has passed installation testing as outlined above, move the system to the
testing account for certification testing. After certification testing, RCRIS will be ready for
release to production.
4.8 Install Next Release
The Install utility performs several functions, depending on the initiating account. If the account
matches the production account, it allows the next version of the software to be compiled and
production software to be recompiled, or Install can move the next version software into
production, compile it, and update the version number file. If the account matches the
development or test accounts, then the user can compile development or test RCRIS software,
or can perform database maintenance on development or test databases. Optionally, an override
version number can be written to a development/test MOU table to test future software
enhancements before they are moved into production. AH other users are restricted to
performing database maintenance only, although menus are displayed for merge and regional
DBAs to allow them to perform the install on one or more databases without having to rerun the
Install routine for each one.
RCRIS 4.0.0 57 11/92
-------
RCRIS System Technical Guide
No security is provided in these programs. The RCRIS administrator must use the security
package provided with the operating system to__reffrict access of each database to authorized
users. RACF is the security package provided on the EPA computer system. See Section 2.7
in this guide for a brief discussion of the RACF utility. A more detailed discussion of the
RCRIS Installation utility follows:
If the user logged on under the production account, the first screen displayed is the Version
Override Menu. This allows the version number for the next RCRIS system release to be set.
It will be written to the dataset 'xxxx.RCRIS. VERSION.RELDATE' in the Production Software
account, will be displayed at the top of most RCRIS system menus, and will be compared to the
current value in the user's MOU table at logon to determine if their databases have been
upgraded.
Note that it will be necessary to set up two production accounts to properly implement the
development-test-production cycle. The RCRIS production account contains the system actually
run by the users; the Regional Test Account allows the Regions and States to test next release
of the RCRIS software under actual operating conditions before it is released to the RCRIS
production account.
The Regional Test Account will be initialized with the programs and tables currently in RCRIS
production account; then the upgraded programs and tables are-copied in from the Test account.
To have the CLISTs in the Regional Test Account function properly, it will
be necessary to change the global variables &PROG and &TABLES in the members INSTALL,
MERGPRO, and RCRIS to reference the new account. These variables will need to be changed
again when the system is moved from the Regional Test Account to the RCRIS Production
Account.
After these accounts have been established, 'the user can test his/her databases under the new
release by executing the RCRIS CLIST in the Regional Test Account.
The Version Override Screen has the format shown below:
11/92 58 RCRIS 4.0.0
-------
RCRIS System Technical Guide
»*»*************»***»*»*********»****«***»**«*****«*
* RCRIS *
* ENVIRONMENTAL PROTECTION AGENCY DATE: yy/nm/dd *
* . TIME: hh:iwn *
»»»**************»»»»»*»**»»*************************»*
MODIFY RELEASED VERSION AND DATE
FOR DEVELOPMENT AND TESTING
CURRENT VERSION *.#.# » #.#.)»
CURRENT DATE nm/dd/yy » nm/dd/yy
USE NEW VALUES (Y/H) »
Where '#.#.#' represents the new version number, 'mm/dd/yy' is the new release date, and
'yy/mm/dd' and 'hh: mm'are the current system time and date.
After the new version number and date have been entered, the screen shown below is displayed.
It provides three choices:
Option 1 updates the system version number, generates source Turbo libraries, compiles the
source FOCEXECs into FOCCOMPs, generates FOCCOMP Turbo libraries, and performs
required maintenance on the RCRIS system shared tables and lookup files. (Turbo libraries are
generated by dividing the RCRIS FOCEXEC and FOCCOMP programs into smaller groups,
placing these program groups into separate partitioned dataset (PDS) libraries, and then
concatenating (stacking) theses libraries using a DDNAME so that the programs executed most
frequently are in the topmost datasets in the stack.)
Option 2 is used for maintenance; it recompiles the FOCEXEC programs into FOCCOMPs and
generates Turbo libraries for both, but does not update the version number/release date or
perform any table maintenance.
RCRIS 4.0.0 59 11/92
-------
RCRIS System Technical Guide
Option 3 exits the install process without performing any update. A sample screen is shown
below: .
*<«*******«*****»*»**«*»********«****»*********»»»»********»**
* RCRIS *
ENVIRONMENTAL PROTECTION AGENCY DATE: nm/dd/yy *
* VERSION #.*.# irm/dd/yy TIME: hh:«n:ss
*»*»»*»***»**»**********»»******«****«***»*
PRODUCTION pppp SOFTWARE
INSTALLATION MAIN MENU
1. INSTALL PRODUCTION SOFTWARE AND COMPILE
2. COMPILE pppp SOFTWARE
3. EXIT INSTALLATION MAIN MENU
ENTER SELECTION »
On this screen, '#.#.#' is the system version number, 'mm/dd/yy' is the release date,
'mm/dd/yy* *hh:mm:ss' is the system time and date, and 'pppp1 is replaced with the production
system account. If the version and release date were modified above, then the new values will
be displayed on the banner line.
If the user logged on under the Development or Test account, the first screen displayed is the
Version Override Menu: This allows the version/release date to be temporarily changed to new
values to allow testing of newly developed software under real system conditions. It has the
format shown below:
«»»*******»****»*****»«******»»»»*»»»»*»«********»»»»»»***«*
* RCRIS . " *
ENVIRONMENTAL PROTECTION AGENCV DATE: yy/nm/dd *
* TIME: hh:«m *
*************««*******«*****************«*******»******
MODIFY RELEASED VERSION AND DATE
FOR DEVELOPMENT AND TESTING
CURRENT VERSION #.#.# » *.*.*
CURRENT DATE mn/dd/yy >» im/dd/yy
USE NEW VALUES (Y/N) »
11/92 60 RCRIS 4.0.0
-------
RCRIS System Technical Guide
?. Where *#.#.#' represents the new version number, 'mm/dd/yy' is the new release date, and
, 'yy/mm/dd' and 'hh:mm' are the current system time and date.
After the new version number and date have been entered, the screen shown below is displayed.
: It provides three choices:
Option. 1 compiles the programs in the Development or Test FOCEXEC dataset into the
- FOCCOMP dataset. No Turbo libraries are built since response time is not important and'this
would increase the time for the install process. The values previously entered on the Version
Override Menu are ignored when this option is selected.
Option 2 tests newly developed database maintenance programs in the Development or Test
accounts. The values of the version override menu are used to fool the software so that the new
database and dataset upgrade programs can be tested before the production version number is
changed. (RCRIS compares the version number stored in the logon MOU table against the
> system version number; if the MOU table version is equal or greater than the system version,
% then the upgrades are not run. This prevents problems associated with running an upgrade twice
on the same set of databases.)
Option 3 exits the install process without executing any compiles or upgrades. A sample of this
menu appears below: .-'
* RCRIS *
* . ENVIRONMENTAL PROTECTION AGENCY DATE: mm/dd/yy *
* . VERSION #.#.# imvdd/yy TIME: hh:mm:ss *
*****»*»***«**«**»»****«»«****»***»«»»»*******»*********»
DEVELOPMENT dddd AND TEST tttt
INSTALLATION MAIN MENU
1. COMPILE aaaa SOFTWARE
2. RUM DATABASE INSTALLATION PROGRAMS
3. EXIT INSTALLATION MAIN MENU
ENTER SELECTION »
Where '#.#.#' represents the new version number, 'mm/dd/yy' is the new release date,
'yy/mm/dd' and 'hh:mm' are the current system time and date, and 'aaaa' is the production
account prefix.
RCRIS 4.0.0 61 11/92
-------
RCRIS System Technical Guide
If Option 2 was selected from the above menu, then the screen below is displayed. It allows
complete specification of the databases to be used for testing.
The database account specifies the first level (account prefix) of the databases. It can be any
valid group account on the EPA system.
The Origin is one of the items which makes up the second level of the database name. Valid
choices are 'S' (State), 'R' (Region), and 'M* (Merge). The value entered here determines what
additional information is required below and which additional menus, if any, will be presented.
The CONTINUE prompt allows the install to be terminated. After each upgrade has fully
completed, the database selection menu is presented to allow selection of another state, region,
or merged database. Enter 'N' for CONTINUE to leave this menu and quit install. See sample
screen below:
*******»»»*****»****»*»*****»*»»****************«********
* RCRIS *
* ENVIRONMENTAL PROTECTION AGENCY DATE: yy/mm/dd
* VERSION *.«.# mn/dd/yy TIME: hh:am *
»»**»*»»**»****»»»****»»»«*««*******************«********
INSTALL STATE, REGION, OR MERGED DATABASE
DATABASE ACCOUNT »
ORIGIN (S/R/H) » _
STATE » 8S (STATE)
REGION <1-10,H) » * (REGION)
CONTINUE (T/N) » _
Where '#.#.#' represents the new version number, 'mm/dd/yy' is the new release date,
'yy/mm/dd' and 'nh:mm' are the current system time and date, 'aaaa* is the database account
prefix, 'ss' is a two letter state code, and '##' is a one or, two digit region number. .
If 'S* is entered for Origin, then only the STATE field is required. The upgrade is only
performed for the specified state and no further menus are required.
If 'R' is entered for Origin, then the REGION field is required. At this point a menu similar
to the one below is displayed for the selected region.
11/92
62
RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRIS INSTALL MENU FOR REGION 4 *
ENVIRONMENTAL PROTECTION AGENCY DATE: yy/qfll/dd *
. TIME: hh:m
ENTER IN DATABASE ACCOUNT AND NARK EACH STATE.
FOR WHICH THE INSTALL IS TO BE RUN
STATE NAME DB ACCOUNT REGION
ALABAMA
FLORIDA
GEORGIA
KENTUCKY
MISSISSIPPI
NORTH CAROLINA
SOUTH CAROLINA
TENNESSEE
Notice that ail states are displayed for the previously selected region. Enter the group ID
(account prefix) for each state to be tested in the DB ACCOUNT column and place an 'X* on
the corresponding row of the REGION column. The upgrades will be performed once for each
set of databases selected and control will then return to the first Database Selection Menu above.
t '
If 'M' is entered on the first Database Selection Menu, then the REGION field is required.
After it has been entered, a menu similar to the one below is displayed for the selected region:
*****************************************************************************
RCRIS INSTALL MENU FOR REGION 4 *
* ENVIRONMENTAL PROTECTION AGENCY DATE: yy/MO/dd *
* TIME: hh:na
**********************************************************************
ENTER IN DATABASE ACCOUNT AND MARK MERGE/REGION/STATE
:-. FOR WHICH THE INSTALL IS TO BE RUN
MERGED DATABASE ACCOUNT: RCRD MERGE: _
STATE NAME DB ACCOUNT REGION DB ACCOUNT STATE
ALABAMA
FLORIDA
GEORGIA -
KENTUCKY
MISSISSIPPI
NORTH CAROLINA
SOUTH CAROLINA
TENNESSEE
RCRIS 4.0.0 63 11/92
-------
RCRIS System Technical Guide
This menu is similar to the Region Selection menu above except that it also provides fields to
select the state and/or merged databases as well. Note that the merged database account is the
same as the DATABASE ACCOUNT entry which was entered on the first selection screen. To
upgrade the merged database, place an 'X' next to the MERGE field. All other databases are
selected by entering the account on the row which contains the desired state to the left of the
STATE or REGION column and placing an 'X' in the corresponding REGION or STATE
column. The upgrades will be performed once for each selected state, region, and/or merged
database. When all processing has completed, the first Database Selection Menu will be
displayed. .
If the Install is run from an account which is not the Production, Development, or Test account,
then the only option available is to perform the database upgrade. Since there are no other
options, the front selection menu is unnecessary. Also, the Version Override Menu is not
displayed.
Instead, the Install jumps directly to the database upgrade routine and the screen below is
displayed. It allows complete specification of the databases to be converted.
The database account specifies the first level (account prefix) of the databases. It can be any
valid group account on the EPA system.
The Origin is one of the items which makes up the second level of the database name. Valid
choices are 'S* (State), 'R' (Region), and 'M' (Merge). The value entered here determines what
additional information is required below and which additional menus, if any, will be presented.
The CONTINUE prompt allows the install to be terminated. After each upgrade has fully
completed, the database selection menu is presented to allow selection of another state, region,
or merged database. Enter 'N' for CONTINUE to leave this menu and quit install. See the
sample screen below:
11/92 64 RCRIS 4.0.0
-------
RCRIS System Technical Guide *
*«***»*********»»*****«**********»**»»»*********««*»*******
* R C R J S ' *
"* ENVIRONMENTAL PROTECTION AGENCY DATE: yy/BBI/dd *
* VERSION .#.*.* mn/dd/yy TIME: hh:igm *
**»*************************************»**************
INSTALL STATE, REGION, OR MERGED DATABASE
DATABASE ACCOUNT » MM
ORIGIN (S/R/M) » _
STATE » ss (STATE)
REGION (1-10,K) » * (REGION)
CONTINUE (Y/N) » _
Where '#.#.#' represents the new version number, 'mm/dd/yy' is the new release date,
'yy/mm/dd' and 'hh:mm' are the current system time and date, and 'aaaa' is the production
account prefix.
If 'S' is entered for Origin, then only the STATE field is required. The upgrade is only
performed for the specified state and no further menus are required.
If 'R' is entered for Origin, then the REGION field is required. At this point a menu similar
to the one below is displayed for the selected region.
* RCRIS INSTALL MENU FOR REGION 4 *
* ENVIRONMENTAL PROTECTION AGENCY DATE: yy/mm/dd *
* . . TIME: hh:im *
MA**************************************************************************
ENTER IH DATABASE ACCOUNT AND NARK EACH STATE
FOR WHICH THE INSTALL IS TO BE RUN
STATE NAME DB ACCOUNT REGION
ALABAMA
FLORIDA
GEORGIA
KENTUCKY
MISSISSIPPI
NORTH CAROLINA
SOUTH CAROLINA
TENNESSEE
RCRIS 4.0.0 65 11/92
-------
RCRIS System Technical Guide
Notice that all states are displayed for the previously selected region. Enter the group ID
(account prefix) for each -state to be tested in the DB ACCOUNT column and place an 'X' on
the corresponding row of the REGION column. The upgrades will be performed once for each
set of databases selected and control will then return to the first Database Selection Menu above.
If 'M' is entered on the first Database Selection Menu, then the REGION field is required.
After it has been entered, a menu similar to the one below is displayed for the selected region:
RCRIS INSTALL MENU FOR REGION 4
ENVIRONMENTAL PROTECTION ACENCY
DATE: yy/om/dd *
TIME: hh:mn *
ENTER IN DATABASE ACCOUNT AND MARK HERGE/REGION/STATE
FOR WHICH THE INSTALL IS TO BE RUN
MERGED DATABASE ACCOUNT: RCRD MERGE: _
STATE NAME DB ACCOUNT REGION DB ACCOUNT STATE
ALABAMA
FLORIDA
GEORGIA
KENTUCKY
MISSISSIPPI
NORTH CAROLINA
SOUTH CAROLINA
TENNESSEE
This menu is similar to the Region Selection menu above except that it also provides fields to
select the state and/or merged databases as well. Note that the merged database account is the
same as the DATABASE ACCOUNT entry which was entered on the first selection screen. To
upgrade the merged database, place an 'X' next to the MERGE field. All other databases are
selected by entering the account on the row'which contains the desired state to the left of the
STATE or REGION column and placing an 'X' in the corresponding REGION or STATE
column. The upgrades will be performed once for each selected state, region, and/or merged
database. When all processing has completed, the first Database Selection Menu will be
displayed.
11/92
66
RCRIS 4.0.0
-------
RCRIS System Technical Guide
. ». -
5 MAINTAINING INSTALLED SYSTEM
5.1 RCRIS Change/Problem Control and Librarian Tracking System
To manage version control, RCRIS software is divided into development, test, and production
accounts. An automated software librarian is used to facilitate and track software check-in/out
between the.three accounts, and methodical procedures are in place to ensure software integrity
and validity. The Librarian also generates a unique tracking number for each documented
software problem and tracks it through to completion.
RCRIS User Support uses the Centralized Problem Management System (CPMS), an IBM
product modified for NCC, to record and monitor user-reported problems. Essentially, CPMS
is used to track two distinct, but interrelated, processes:
o Problem resolution
o Software change implementation
General information on the problem/change is entered into the system in order to create an audit
trail to track these processes. Such information as the name and phone number of the person
who found the problem or requested the change is entered along with a description of the
problem/change.
Problems should be reported to RCRIS User Support so the staff may determine whether the
problem is a general RCRIS bug or a translator-specific bug. Problem/change status is updated
periodically (daily, weekly, or monthly-depending on the problem) and the user is kept
informed of any changes in status.
5.2 Establish a Software Control System
The translator should implement version control procedures to control check-in and check-out
of programs during the software adaptation phase, thus preventing two or more people from
making different changes on the same program simultaneously. Such configuration management
procedures should include the following steps:
1. Assign control number to problem/change.
2. Check out programs from production to development.
RCRIS 4.0.0 67 11/92
-------
RCRIS System Technical Guide ^±
3. Modify development software where necessary.
-4. Unit test changes.
5. Move development changes to test software.
6. Thoroughly verify/certify software.
7. Check in approved/tested changes to production.
Similar procedures should be created for translator specific problems. Procedures could include
the following:
o Duplicate reported problem in production.
o If the problem is duplicated, check out from librarian to development.
o Verify problem is translator specific and fix.
o If RCRIS bug, report to RCRIS User Support.
, S *
o Return fix to test account.
o Certify problem resolved, update change/problem control status.
o Check in program(s) to production.
5.3 Completing Translator Test Form
This section sets forth a method that could be adapted to meet the needs of translators.
1. A test form must be completed for each Change Control number.
2. . Task Leader, Programmer, Librarian, and Tester must complete their appropriate
sections.
3. Each section must be approved by the appropriate person before completion of
the next section.
11/92 68 RCRIS 4.0.0
-------
RCRIS System Technical Guide
4. Task Leader must approve Programmer section and submit test form to the
Librarian. The Librarian must complete his/her section and return form to Task
Leader. Task Leader must submit form to Tester. Tester must complete his/her
section and return to Task Leader.
5. Final approval signature and date must be entered by Technical Manager.
6. Programmer instructions for completing the form:
o Include the Change Control number on all pages of the form; enter
system, version, and date submitted
o Include Programmer's name and list all modified programs related to
correcting problem .
o Complete items 1-9, where applicable, under Programmer Checklist.
Include all attachments identified in items 1-9
o Enter Problem Description on page 2
o Identify test method under Test Method #1. When more than one method
is required, enter the second method under Test Method #2. (Example:
Test Method #1 - Tested software changes under DBA module. Test
Method #2 - Tested software changes under HID module)
o Complete the Programmer Deliverable Information section on page 3
o Submit form to Task Leader for approval
7. Librarian instructions for completing the form:
o Complete items 1-7, where applicable, under Librarian Checklist
o Include all attachments identified in items 1-7
o Enter signature and approval date
o Submit test form to Task Leader
RCRIS 4.0.0 69 11/92
-------
RCRIS System Technical Guide
8. Tester instructions for completing the form:
o Complete items 1-7, where applicable, under Tester Checklist
o Identify test results under Test #1, Results on page 2. If Test Method #2
is completed, also enter test results under Test #2 Results
o Complete the Tester Deliverable Information section on page 2
o Enter signature and approval date
o Submit test form to Task Leader
9. Task Leader instructions for completing the form:
o Inspect form for completion of all sections
o Enter signature and approval date
o Submit test form to Technical Manager
10. Technical Manager instructions for completing the form:
o Inspect form for completion of all sections, signatures, and approval dates
o Complete final approval signature and approval date on page 2
o Submit test form to Administrative Assistant
11. Administrative Assistant instructions for completing the form:
o Update documentation where applicable
o File test form
11192
70
RCRIS 4.0.0
-------
RCRIS System Technical Guide
TRANSLATOR TEST FORM
System:
Version:
Change Control #:
Programmer:
Task Leader:
Approval Date:
Page 1
Date:
Programs:
PROGRAMMER CHECKLIST
1. Programs backed up prior to making software modifications.
2. Programs compiled and modified where necessary.
3. Comment-section top of program has been changed to reflect date of change,
programmer's initials, and short description of change with Change Control
Number.
4. All debugging or development only defaults removed from coding.
5. Any ALLOC, COMBINE, and USE statements added to menu.
6. Code reviewed for technique.
7. Program specifications provided.
8. All unit test documentation attached.
9. Documentation requiring updates: .
RCRIS 4.0.0
71
11/92
-------
System:
Version:
Change Control #:
Programmer: Tester:
Problem Description:
Test Method #1:
RCRIS System Technical Guide
TRANSLATOR TEST FORM
PROGRAMMER SECTION
Page 2
Date:
Additional Instructions: Y N
Test Method #2:
Additional Instructions: Y N
Method #1 Results:
TESTER SECTION
Additional Information: Y N
Method #2 Results:
Additional Information: Y N
TESTER DELIVERABLE INFORMATION
Rejected:
Rejected:
Rejected:
Final Approval:
Accepted:
Accepted:
Accepted:
Date:
Date:
Date:
Date:
Initials:
Initials:
Initials:
11/92
72
RCRIS 4.0.0
-------
RCRIS System Technical Guide
TRANSLATOR TEST FORM
System:
Version:
Change Control #:
Programmer Additional Instructions:
PageS
Date:
Tester Additional Information:
PROGRAMMER DELIVERABLE INFORMATION
CC# Programmer Tester Program Program Document
ID Type > Update
RCRIS 4.0.0
73
11/92
-------
RCRIS System Technical Guide
TRANSLATOR TEST FORM
Page 4
System:
Version:
Change Control #:
Librarian:
Approval Date:
Date:
LIBRARIAN CHECKLIST
1. Software program(s) received from programmer.
2. Reviewed software code for the following:
o Comment section top of program has been changed to reflect date of
change, programmers initials, and short description of change with
Change Control Number.
o All debugging or development only defaults removed from coding.
o Any ALLOC, COMBINE, and USE statements added to menu.
3. Successful compile of module which includes program(s) to be tested.
4. All unit test documentation received from programmer.
5. Print comparison of old program(s) to newly changed program(s) (if applicable)
using mainframe Compare utility.
6. Appropriate Librarian procedures followed.
7. Load baseline test database into mainframe system.
11/92
74
RCRIS 4.0.0
-------
RCRIS System Technical Guide
TRANSLATOR TEST FORM .
Page 5
System:
Version:
Change Control #: Date:
Tester:
Approval Date: . -
* i
TESTER CHECKLIST
1. Software passes review and approval from Task Leader.
2. Software passes review and approval from Librarian.
3. Program specifications provided.
4. Successful access0 of program through appropriate menu.
5. Software operates appropriately as stated in Change Control request.
. 6. Program returned to Librarian.
7. All test documentation to Librarian.
RCRIS 4.0.0 75 11/92
-------
RCRIS System Technical Guide
6 MVS CASE STUDY - WASHINGTON STATE FALL 1990
RCRIS has been designed to operate on a wide range of platforms, from mainframe to desk top
computers, in many different computing environments. The original mainframe version in the
FOCUS language was installed on a IBM 3090 with TSO and other utilities available. When
the software is migrated to other operating facilities where the complement of utilities varies,
certain modifications to the code must be made to accommodate the difference in the
environments.
The Washington State system is representative of the conversion that was required to get an
earlier version of RCRIS running on another IBM TSO system. The Washington State system
supports the PDS structure, so it was not necessary to break out the FOCEXEC, FOCMSTER,
CLIST, window, and panel members into separate flat files. The required conversion centered
around two areas: changing accounting parameters to the conventions used on the system, and
finding equivalent functions or work-arounds for special commands used in EPA's version of
the RCRIS CLISTs. These changes are detailed below.
The ACF2 accounting format used on the Washington State system is much different from that
used by the EPA's NCC. This program provides dataset protection which is usually based on
the first two levels of the dataset name and authorization must be coded to a special file for each
account to allow a user access to datasets in another user' account. There is no direct
relationship between, the user ID and the user account to which it belongs, at least at the
interactive logon level (the system transparently hard codes the account for users who only are
under one billing code). User IDs are seven characters long and the concept of a "group"
account is not implemented.
VARIABLE EPA VALUE WA VALUE DESCRIPTION
List dataset to printer
Clear the screen
UNIT for permanent datasets
UNIT for temporary datasets
Account containing FOCUS system
Concatenate DSNs to DDNAME-
Portion of ID to use for account
Utility to compress PDS
Utility to recover archived datasets
Name of system line editor
Batch job accounting parameters bear no direct relationship to those used to log on interactively.
A CLIST function (GETMY) can be called to obtain the necessary values; however, some
substring manipulation is required to get these in the correct form. It then requires more work
to figure out where each value fits on the job card.
&TPRINTOF
&TCLEAR
&TPMDISK
&TWKDISK
&TFOCACNT
&TFDSN
&TACTRANG
&TSPCMGMT
&TFLDEARCH
ATLINEDrr
PRINTOFF
CLR3270
DISK
DISK
SVS2
FDSN
4:7
SSM
RECALL
E
DSPRINT
KOMM RESET CLEAR-
PRIM
SYSDA
WDPSC
none
1:7
PDS
none
EDIT
11/92
76
RCRIS 4.0.0
-------
RCRIS System Technical Guide
Datasets, by default, are created on temporary storage packs and are deleted after three days of
non-use. To retain datasets for a longer period of time, the user needs to specify 'UNIT(PRIM)'
when the dataset is created. This allocates space on a disk for long term datasets. If a dataset
on a long term pack is not referenced for nine months, it is archived to tape and the dataset
name is removed from the catalog. A utility (RESTNVSM) is provided which runs under ISPF
to allow the user to request restoring an archived file from tape. However, since the system no
longer has any entry for the archived dataset, it is possible to create a new dataset on disk with
the same name and never know that there is an archived dataset using the same name.
To cope with these differences in accounting, and to make it easier to transport the RCRIS
CLISTs to other TSO systems, all edits regarding accounts and prefixes have been removed.
Consider the example below:
RCRT.RCRIS.CLISX(MREXZRA2)
&TFDSN SYSPROC,PROCSAVE,NOW
FREE DDNAME(SYSPROC)
&TDSCHECK 'RCRD.RCRIS.CLIST'
ZF fiSTR(iMODE) EQ &STR(D) AND ilASTCC LT 4 THEM +
SET &CLDEV * &STR('RCRD.RCRIS.CLIST')
ELSE +
SET &CLDEV a &STR() -
&TDSCBBCK 'RCRT.RCRIS.CLZST' ' ''
IF (tSTR(SMODE) EQ &STR(D) OR SSTR(iMODE) EQ iSTR(T) AMD +
&LASTCC LT 4 THEN +
SET &CLTSTS &STR('RCRT.RCRIS.CLIST')
ELSE +
SET SCLTST &STR'()
ALLOC DDNAME(SYSPROC) DSNAHE(&CLDBV &CLTST '&PROO..RCRIS.CLIST' +
&PROCSAVE) SHR UNZT(&TPMDISK)
I* jf logon account is RCRx, prompt for databases to use.
IF &SUBSTR(1:3,&ACCT) EQ &STR(RCR) THEN DO
GETORIO1: + .
&TCLEAR
HRITENR ENTER S, R, OR M TO INDICATE STATE, REGION, OR MERGE +
DATABASE: &STR()
READ &ORIGIN
IF iSTR(SORIGIN) EQ SSTR(R) OR &STR(&ORIGIN) EQ fiSTR(S) THEN DO
WRITE
HRITENR ENTER STATE CODE: &STR()
READ &STATE
FIN
ELSE IF &STR(&ORIGIN) EQ &STR(M) THEN DO
GETREGN1: +
WRITE
WRITENR ENTER REGION CODE (01 - 10, H): &STR()
READ ®ION
IF &STR(®ION) NE &STR(H) AND +
RCRIS 4.0.0 77 11/92
-------
RCRIS System Technical Guide
(ftLENGTH(&STR(£REOION)) HE 2 OR -f
(£STR(£RBGION) KB ftSTR(Ol) AND £STR(£REGION) MB £STR(02) AND +
£STR(£REGION) HE &STR(03) AND *STR(£REGXON) ME £STR(04) AND +
£STR(£REOXON) HE £STR(05) AND *STR(£REGZON) HE £STR<06) AND +
&SXR(&REOION) HE &STR(07) AND £STR(£REGXON) HE £STR(08) AND +
&STR(&REOION) NE £STR(09) AND £STR(®XON) ME £STR(10))) +
THEN DO
WRITE
WRITENR *** MUST BE IN RANGE 01 TO 10 OR H. +
PRESS ENTER KEY TO CONTINUE *** &STR()
READ £DUMMY
GOTO GETREGN1
FIN
IP £STR(£REGION) EQ £STR(H) THEN +
SET fi STATE = &STR(H) - -
ELSE -f "
SET &STATE = £STR(R&SUBSTR{2 : 2, (REGION) )
PIN
ELSE DO
WRITE .
WRITENR *** PLEASE ENTER M, R, OR S. PRESS ENTER KEY TO +
CONTINUE *** &STR()
READ &DUMMY
GOTO OETORIG1
PIN
CHKORIOlt +
&TCLEAR
WRITE DATABASE CODE: CORIOIN ^
WRITE
IP &STR(£ORIGIN) EQ &STR(R) OR &STR(&ORIGIN) EQ &STR(S) THEN +
WRITE STATE CODE: & STATE
ELSE IP &STR(&ORIGIN) EQ «STR(M) THEN 4
WRITE REGION CODE: &RBGION
WRITE
WRITE
WRITENR IS THIS CORRECT ? (Y,N): &STR()
READ &DUMMY
IP &STR(&DUMMY) EQ &STR(Y) THEN +
SET &DBPROG = &STR(£ACCT. .&STATE&ORIGIN)
ELSE IP SSTR(£DUMNY) EQ &STR(N) THEN +
GOTO GETORIG1
ELSE DO
WRITE
WRITENR *** PLEASE ENTER 'Y' OR 'N' . PRESS ENTER KEY TO +
CONTINUE *** £STR()
READ fiDUMKY
GOTO CBKORIOl
PIN
PIN
/* --- Logged on as a production state,
/* ,_ get databases to be extracted from user account.
ELSE IP £SUBSTR(1:2,£ACCT) EQ SSTR(KZ) THEN DO
11/92 78 RCRIS 4.0.0
-------
RCRIS System Technical Guide
SET.&DBPROG = &STR(&ACCT)
SET &ORZOZN = &STR(S)
SET &STATE = &STR(&SUBSTR(3t4,£ACCT))
PIN
/* Logged on as a production region, prompt if region or merged
/* databases are to be extracted, get region number from account.
ELSE IF &SUBSTR(ltl,&ACCT) EQ &STR(K) AMD + .
&SUBSTR(3:4,&ACCT) EQ &STR(DB) THEN DO
OETORI03: +
&TCU5AR
WRITENR ENTER 'R' FOR REGION EXTRACT, 'M' FOR MERGE EXTRACT: &STR()
READ &ORIGIN
IF &STR(&ORIGIN) NE SSTR(R) AND tSTR(&ORIGIN) ME «STR(M) THEN DO
WRITE
WRITENR *** PLEASE ENTER 'R' OR 'M'. PRESS ENTER KEY TO +
CONTINUE. *** «STR()
READ &DUMMY
GOTO GETORIG3
FIN ' *
CHKORIG3: 4-
&TCLEAR
WRITE DATABASE CODE: &ORIGIN
WRITE
WRITENR IS THIS CORRECT ? (Y,N) : &STR()
READ &DUMMY
IF £STR(&DUMHY) EQ &STR(Y) THEN DO
IF &STR(«ORIGIN) BQ &STR(N) THEN DO
SET &STATE = &STR(R&SUBSTR(2:2,&PROG)>
SET &DBPROG = &STR(&PROG)
FIN
ELSE IF &STR(&ORIGIN) EQ &STR(R) THEN DO
SET &PANREG = &SUB5TR(2:2,&ACCT)
XSPSTART CMD(%MRNUEXT2 &PANREG &ACCT &PROG &MODE &ORIGIN + :
&TDSCHECK &TPRINTOF fiTCLEAR +
&TPMDISK &TWKDISK &TFOCACNT +
&TFDSN &TACTRANG &TSPCNGMT +
&TFLDEARC &TLINEDIT)
GOTO THEEND
FIN
FIN '
ELSE IF &STR(&DUMMY) EQ &STR(N) THEN +
GOTO GETORIG3
ELSE DO
WRITE
WRITENR *** PLEASE ENTER 'Y' OR 'N'. PRESS ENTER KEY TO +
CONTINUE *** &STR()
READ &DUMMY .
GOTO CHKORIG3
FIN
FIN
/* User account is not valid for this program. Terminate execution.
RCRIS 4.0.0 79 11/92
-------
RCRIS System Technical Guide
ELSE DO
WRITE
WRXTENR *** UNKNOWN ACCOUNT TYPE.
GOTO TEEENO
PZN
PROGRAM TERMINATED. ***
It will be the responsibility of the end user RCRIS administrator to reenter these, if needed.
Two global CLIST variables were added to handle permanent and temporary dataset allocations,
&TPMDISK and &TWKDISK.
In the original CLIST, extra prompts were generated for certain user groups, such as
"(PRODUCTION, (T)EST, or (D)EVELOPMENT", "(M)ERGE, (R)EGION, OR (S)TATE",
"ENTER REGION", "ENTER STATE", "ENTER BOX NUMBER". Some of these prompts
were linked to the user's logon group; the box (bin) prompt was required for all users. These
were removed from all CLISTs since they were not required outside of the EPA IBM system.
The JCL edit search and replace strings were changed to accommodate the syntax of the job card
on the Washington State system.
The option to switch RCRIS databases was removed from the opening menu in FOCUS since
there is only one set of databases.
S *
For the batch end, the translation effort was more difficult. The GETMY CLIST function was
used to retrieve the accounting parameters, which were then manipulated and placed into the
proper positions on the job card with the system line editor. The job CLASS code was added
(it is not used on the EPA IBM), and a default value was hard coded in the job stream in each
case. If this proves unsatisfactory, a prompt can be added to each applicable CLIST for the
CLASS and an additional change command can be added to modify the job card.
The parameter "MSGCLASS=T" was added to route the output to the HOLD queue and all
references to SYSOUT-n were changed to 'SYSOUT=*'. The priority field was deleted since
it was not used and the "/*ROUTE" card was deleted since it was not required when the output
was routed to the hold queue. This will need to be changed if a default printer is to be assigned.
11/92
80
RCRIS 4.0.0
-------
RCRIS System Technical Guide
RCRT.RCRIS.CNTL(MRULRCR2) «BEFORE»
//ZZIEXTUL JOB (ZZZZRCRSD,BBBB,,9999),'EXTRACT FOR SSS',
// PRTY=2,TIME=5rMSGLEVEL=(l,l),NOTIFY=III,REGION=6000K
/*ROUTB PRINT RNT255
//*
//*
//FOCBATCH EXEC POM=FOCOS
//STEPLIB DD DSN='SYS2.FOCUS.FOCLIB.LOAD',OISP=SHR
//USERLIB DD DSN='SYS2.FOCUS.FUSELIB.LOAD',DISP=SHR
//ERRORS DD DSN='SYS2.FOCUS.ERRORS.DATA',DISPOSER
//SYSPRINT DD SYSOUT=A
//FOCBXEC DD DSN=QQeQ.RCRIS.POCEXECI.DATA,DISP=SHR
//**RCRD** DD DSN=RCRD.RCRIS.FOCEXEC.DATA,DISPOSER
//**RCRT** DD DSN=RCRT.RCRIS.FOCEXEC.DATA,DISP=SHR
// DD DSN=QQCQ.RCRIS.FOCEXEC.DATA,DISPOSER
//MASTER DD DSN=RCRS.RCRIS.FOCMSTRI.DATA,DXSP-SER
//**RCRD** DD DSN-RCRD.RCRIS.POCNSTER.DATA,OISP=SHR
//**RCRT** DD DSN=RCRT.RCRIS.FOCKSTER.DATA,DISPOSER
// DD DSNsQQQQ-RCRXS.FOCMSTER.DATA,DISPOSER
DBOW461.RCRZS.CNTL(MRULRCR2) «AFTER»
sssssssssssasassassjsggssss
//EXTRC461 JOB (3230,22-0),'EXTRACT FOR SSS',MSGCLASS=T,
// CLASSED,TIME-5,MSOLEVEL-(1,1),NOTIFY=IZZ,REGION=6000K
//*
//*
//FOCBATCH EXEC P6N-FOCUS
//STEPLIB DD DSN='WDPSC.FOCUS.FOCLIB.LOAD',DISP=SHR
//USERLIB DD DSM='WDPSC.FOCUS.FUSELIB.LOAD',DZSP=SHR
//ERRORS DD DSM*'VTOPSC.FOCUS.ERRORS.DATA",DISPOSER
//SYSPRINT DD SYSOUT-*
//FOCEXEC DD DSN=QQCQ.RCRZS.FOCEXECZ .DATA,OISP-SHR
// DD DSNsQQQQ.RCRZS.FOCEXEC.DATA,DZSP=SRR
//MASTER DD DSNsQQQO..RCRZS.FOCMSTER.DATA,DISPOSER
Certain DD statements in the JCL reference concatenated datasets (multiple datasets assigned to
the same allocation "handle") In several cases it was necessary to remove some of the datasets
since they did not exist on this system and caused the job to terminate. In addition, the PREFIX
of the FOCUS system libraries was changed from "SYS2" to "WDPSC".
The name of the model dataset for Generation Data Group' files was changed from
'MODEL.GDG.DSCB', which was used on the EPA IBM, to MODLDSCB.
RCRIS 4.0.0 81 11/92
-------
RCRIS System technical Guide
6.1 Changes Required Because of Differences in System Functions
Global variables (described in Section 4) were added to facilitate changing the names of the
system functions used in the RCRIS CLJSTs to those which were in use on Washington State's
system. In addition to &TPMPACK and &TWKPACK, which specify the permanence of
datasets, several others were added as differences between the two systems became obvious.
RCRT.RCRIS.CLIST(MERGPRO) «BEFORE»
/* Set up default values for all global command substitution paras.
SET &TDSCHECK = &STR(DSCHECK)
SET STPRINTOF = iSTR(PRINTOFP)
&STR(CLR3270)
&STR(OZSK)
KSTR(DISK)
£STR(SYS2)
&STR(FDSN)
&STR(4:7)
&STR($SN)
&STR(HRECAU.)
«STR(E)
SET &TCLEAR
SET &TPMDZSK
SET 4TWKDISK
SET 6TPOCACNT
SET &TPDSM
SET STACTRANQ
SET 4TSPCMGMT
SET &TFLDEARC
SET ftTLIHEDIT
DBOW461. RCRIS. GLXST(MERGPRO) «AFTER»
ft, _.. set up default values for all global
SET &TDSCHECK B iSTR(LISTDSI)
SET &TPRXNTOF = &STR(DSPRINT)
&STR(KOMM RESET CLEAR)
&STR(PRIN)
&STR(SYSDA)
fiSTR(WDPSC)
tSTR(/*)
£STR(1:7)
&STR(/*)
&STR(/*)
&STR(EDZT)
command substitution paras.
SET &TCLEAR
SET fcTPMDISfc
SET &TWKDISK
SET &TPOCACNT
SET &TFDSN
SET &TACTRAN6
SET &TSPCMGMT
SET &TPLOEARC
SET &TLZNEDZT
The global variables used to replace select TSO commands include the following:
&TPRINTOF Since the PRINTOFF command does not use the box parameter, it was
replaced with DSPRINT. For example: FOCEXEC PRINTFIL line 568.
11/52
82
RCRIS 4.0.0
-------
RCRIS System Technical Guide
STPRINTOF FOCUS.OFFLINE &PRTBO1 DEST(iPRTRMT) COPIES(&PRTCPY)
&TFDSN No replacement is yet available for the FDSN command outside of the ISPF
environment. Options include:
o Hard code all allocations to DD names
o Log off and log on to reallocate
o Write-a new function to implement FDSN
&TFLDEARC The HRECALL command equivalent for systems with automatic archive
function.
&TDSCHECK Used for the DSCHECK function. LISTDSI is equivalent except for the
return codes. The return codes must be changed to match those returned by the
function.
&TLINEDrr Used to call the line editor. A full screen editor cannot be^used.
&TPMDISK The Pack ID for the permanent disk pack. For example: CLIST
RCRISSU, lines 633-634.
ALLOC DD(HOLOMAST) DS(HOLOMAST) USING (AT2) -f SPACE (10,10) CYL
DIR(15) UNIT(&TPMDZSK) NEW DELETE
&TWKDISK The Pack ID for the temporary disk pack. For example: CLIST
RCRISSU, line 641.
ALLOC DD(HOLD) DS(BOLD) SP(20,20) CYL REUSE UNIT(fiTWKDISK)
&TCLEAR The command to clear the full screen terminal. Equivalent to the CLR3270
command as used at RTF.
RCRIS 4.0.0 83 11/92
-------
RCRIS System Technical Guide
&TFOCACNT The prefix for the FOCUS account. For example: CLIST RCRISSU,
line 480.
CALL 'STFOCACNT..FOCUS.FOCLIB.LOAD(FOCUS)'
&TSPCMGMT The space management command used to reclaim space used by new
members in the PDS.
&TACTRANG Used to specify the substring range to identify the account associated
with logon.
These changes to the CLISTs are not all of the answers to all of the questions concerned with
the conversion. There will be a need for other touch-ups as well. In addition to the above
mentioned global variables for CLISTs, there are three variables used to support FOCEXECs
as well:
&&PRINTCMD PRINTOFF command. As used in me TRINTFIL'FOCEXEC, lines
34-35:
TSO &&PRXNTCMD FOCUS.OFFLINE &BOZ DES(fiDEST) CO(&COPXBS) CL(&CLASS)
&CAPS
TSO &&PRXNTCMD FOCUS.OFFLINE2 SBOX DBS(6DBSX) CO(&COPIES) CL(&CLASS)
&CAPS
&&TPMPACK Permanent pack ID. As used in the 'PROFILSG' FOCEXEC, line 42
-SET &&TPMPACK = 'DISK';
&&TWKPACK Work pack ID, as used in the 'PROFILSG' FOCEXEC, line 43
11/92
84
RCRIS 4.0.0
-------
RCRIS System Technical Guide
-SET MTWKPACK = 'DISK';
There will be a need to set these variables in the PROFILSG portion of FOCEXECs,
specifically:
ZZZZ.RCRIS.POCEZEC.DATA
Some changes may also be required in JCL scripts that support RCRIS. Each JCL stream
should be reviewed for possible required'changes.
The FDSN function returns in a user-specified CLIST variable, all the datasets which are
concatenated to a specific DDNAME. This is used when it is.necessary to add a user dataset
to the concatenation stack without losing the names of the other datasets which were previously
concatenated. It is used in RCRIS to attach the user ISPF CLIST library to SYSPROC before
entering RCRIS and to restore the old concatenation dataset list after exiting RCRIS. This was
overcome on the Washington State computer by obtaining the name of the other datasets which
were previously concatenated to SYSPROC and hard coding them into the allocation statement.
Every RCRIS CLIST which us$s SYSPROC will have to be updated if the system allocation of
SYSPROC changes. ---.- .
The variable &TACTRANG was set to 1:7 to include the entire user ID as the directory name
PREFIX. The account is not contained within the PREFIX string as it is on the EPA IBM
system. The distinction between permanent and temporary datasets does not exist on the EPA
IBM; therefore, both UNIT variables are coded to the same value of "DISK".
The command "CLEAR" exists on the Washington IBM system; however, this is actually a
member in the system CLIST dataset, which contains the line "KOMM RESET CLEAR". Since
the "CLEAR" command did not function if SYSPROC was not set properly when, the ISPF
CLIST was concatenated, it was decided to use the actual system command.
The CLIST lines containing &TPRINTOF and &TSPCMGMT required editing wherever these
variables were substituted, since the parameters were different for Washington State's version
of these commands. The LISTDSI command did not function when &TDSCHECK was equated
to "LISTDSI", even though the variable was substituted properly when the CLIST trace was
enabled. This required that the "LISTDSI" command be hard coded wherever the CLIST
variable &TDSCHECK was referenced. Substitutions for the other CLIST global parameters
went smoothly and did not require any other CLIST changes.
RCRIS 4.0.0 85 11/92
-------
RCRIS System Technical Guide
NON-MVS CASE STUDY - TEXAS STATE
This section provides an example of a non-MVS translator conversion of RCRIS software. The
information included herein was provided by the programmers and analysts who worked on the
conversion.
Texas altered RCRIS so that it would run under VM/CMS instead of MVS/TSO. The Texas
VM/CMS environment consists of an IBM 9370 Model 90 computer with 16MB of memory,
8 FBA drives with 824MB each, 1 multi-speed tape drive and approximately 450 workstations
attached via Token Ring network through an IBM 3745 Communications Controller. Texas also
has a 9600 baud leased line connection to the EPA Region VI office in Dallas. The operating
system is VM/SP 5.1 with CMS using FOCUS 6.0 with the RCRIS databases divided between
3 FOCUS Sync machines. The workstations are PCs running 3270 Emulation software.
It took approximately four months for Texas to work out the tape format for transporting RCRIS
to the state system. The state needed a 6250 BPI tape that would contain the decrypted version
of RCRIS with any PDS files broken down into individual members being separate tape files.
The first file on the tape would be a list showing the order of the files on the tape. Once the
tape format had been established and tested, a tape containing the CLISTs, FOCEXECs, CNTL
files, DATA files and FOCUS master and database files for RCRIS was created. Another four
months were required to install, convert, and debug RCRIS. to the point where the state was
ready to run the HWDMS-to-RCRIS conversion and load RCRIS. The basic steps required to
complete the install and conversion included:
1. Wrote a REXX program to read the trailing label for each file and compute how
many blocks of data there were so that enough disk space could be allocated for
the RCRIS software.
2. Wrote a REXX program to read the first tape file and use it to control the
unloading of die other files on the tape. Unloaded the tape to disk.
3. Wrote a REXX program to scan through all of the FOCEXECs to determine the
type of TSO and Dialogue Manager commands needing CMS equivalents. (A
person with knowledge MVS and/or an MVS command manual is essential to
understanding the function of MVS commands.)
4. Wrote a REXX program to convert the TSO-reiated commands in the
FOCEXECs to CMS equivalents (commented out TSO commands and inserted
CMS equivalents). Ran conversion program.
ll/§>2 86 RCRIS 4.0.0
-------
RCRIS System Technical Guide
5. Determined what CLISTs did and wrote REXX equivalents for the ones needed
to load, run, and maintain RCRIS. Not all CLISTs are needed.
6. Determined how to split the FOCUS database files between Sync machines.
FOCUS COMBINE command pretty well determined what FOCUS files went to
which Sync machine. CREATE command won't work with Sync machines, so
; database load programs access the FOCUS database directly.
7. Scanned for USE statements to each PROFILSG FOCEXEC that was used by a
Texas-converted CLIST.
8. Altered the batch submission parts of RCRIS to interface with the Texas BATCH
environment.
9. Wrote REXX and CLIST programs to handle uploading and downloading of flat
files across the leased phone line for the MERGE process. At MERGE, Texas
will upload flat files to the state account on the NCC computer. Then the Region
will use those files as input to the MERGE process. When the MERGE is
completed, the fiat files containing the EPA's data will reside in the Texas
account on the NCC computer and Texas will download them to the state system
for the MERGE UPDATE. X
10. Fine-tuned FOCUS to improve response time.
These ten steps resulted in the successful installation and conversion of RCRIS 1.2.1.
RCRIS 4.0.0 87 11/92
-------
-------
RCRIS System Technical Guide
APPENDIX A SYSTEM FEATURES USED BY RCRIS
CLJST. A dataset or dataset member which contains a series of TSO commands and other logic
which can assign and compute variables, test values and perform branching, display prompts and
data and prompt for user input, and read/write datasets. It allows prompting the user for certain
items, then using the stored values for these to effect program branching and parameter
substitution. These can be used to allocate the correct datasets and run an application.
Certain variables have been pre-defined in the CLIST environment to contain special system
values; they are listed below. (Note: CLJST variables begin with an 'ampersand (&), with only
a few exceptions.)
VARIABLE CONTENTS
&SYSPREF Current set user PREFIX, (default: logon ID)
&SYSUID Logon ID of user
&SYSTIME System time in form HH:MM:SS
&SYSDATE System date in form MM/DD/YY
&SYSJDATE System Julian date in form YY.JJJ
In addition, two functions are frequently used in the RCRIS CLISTs: 1) &STR(&C) prevents
the system from performing calculations on the variable before it is tested or assigned, and 2)
&SUBSTR(L:Hr&C) extracts from position L to position H inside of character variable &C.
L and H may also be variables, or L:H may be assigned to a single variable. If L is greater
than H, or if position L or H is outside the string, then an error is returned.
RCRIS uses many advanced CLIST language features of TSO/E Version 2. First, the SELECT
statement is used, replacing the use of IF .. THEN ... ELSE ... statements. Second, within a
CLIST there are calls to a subprocedure. Third, the function &SYSINDEX is used to search
for a substring of data contained within a larger string of data. Fourth, the DO Loop with an
Index is used. Fifth, the NGLOBAL is used to pass global parameters locally to a subroutine.
within the same CLIST. Sixth, &SYSDSN is now used to replace DSCHECK. &SYSDSN is
a more powerful feature. The DSCHECK only verifies the existence or nonexistence of a
dataset. The &SYSDSN verifies the existence of a dataset and recalls it if necessary. If the
dataset is migrated, the system goes into a wait state while the dataset is automatically recalled.
Interactive System Productivity Facility (ISPF). ISPF is an IBM utility which provides
standard features such as a full screen editor and dataset manipulation utilities. It also has
utilities which can be used inside of CLISTs and programs to manipulate datasets and provides
RCRIS 4.0.0 A-l 11/92
-------
RCRIS System Technical Guide
a capability to define and manipulate data entry screens. It is used in RCRIS to generate screens
to prompt for data before FOCUS is started and to perform dataset utilities while inside of
FOCUS. . -
Generation Data Group (GDG). GDG provides sequenced back-up capability on the IBM
mainframe. Each dataset of this type is suffixed with a generation and version number. The
maximum number of versions which the system retains is determined when the GDG is defined.
If back-ups are performed to a GDG regularly, it is then possible to restore a dataset to any
previous state within the limits of the number of backups retained. GDG is used in RCRIS to
back up the RCRIS FOCUS databases before an update is performed.
TSO COMMANDS USED BY RCRIS
ALLOC This is used in the RCRIS CLIST to associate an existing dataset with a ddname. The
ddname is the name that is used in the application program to reference the dataset or device.
The program can refer to the dataset name by its ddname. This allows the name of the dataset
or device to be changed without requiring a program modification. ALLOC is used to assign
databases and program libraries for the RCRIS programs in FOCUS.
The ALLOC command has several parameters which can be used to specify information about
a dataset to the operating system. (For detailed information, refer to the IBM TSQ Job Control
Language Manual.^
LRECL = The length of the file record. If the format of the record is variable, this
gives the maximum record length. .
BLKSIZE = Indicates the number of characters in a block of records. Must be a
multiple of the record length.
RECFM = The internal format of the record. Common values are F (fixed), FB
(fixed block), V (variable), VB (variable blocked), and U (undefined).
DSORG = The system format of the file. Common values are PS" (physical
sequential) and PO (partitioned organization).
DISP = The beginning and ending file disposition.
NEW the file does not exist and will be created.
MOD . create the file if it does not exist, append to file if
it already exists
11/92 A-2 RCRIS 4.0.0
-------
RCRIS System Technical Guide
CATALOG save the file when the program completes and
' update the dataset statistics in the user directory
DELETE erase the dataset when the program completes
SHR open an existing dataset for multiuser access
OLD open an existing dataset for single user access
DIR = The amount of directory space to allocate for the member names in a PDS
ATTRIB This command allows file attributes to be associated with a user-assigned name. The
name can then be referenced in a file allocation statement. This saves typing and allows certain
attributes to be standardized across selected datasets. It is used when datasets of similar
characteristics are allocated for RCRIS.
CALL This allows a CLIST to invoke a program load module interactively after all files and
devices have been assigned. It is used to invoke FOCUS to run the RCRIS system after all
datasets and devices have been allocated using the ALLOC command above.
CLR3270 This command is used to clear the screen in a CLIST. It should be available on all
systems, although the name may be different. .
DSPRINT This TSO command is issued in the foreground region to copy a dataset to a print
file. Then a background print processor copies the print file to the printer. Thus, a user does
not have to wait while the dataset prints. (Also see "PRINTOFF")
FDSN This function returns the datasets allocated to a DDNAME in a specified CLIST
variable. An option is provided to return either the current allocated datasets, or for system
DDNAMEs, the datasets allocated at logon. This custom function exists on many TSO systems,
although the name and syntax will vary.
FREE The FREE function is used to deallocate datasets that were allocated with the ALLOC
command. FREE disassociates a file "handle" from a dataset or device so that it can be assigned
to a different file or device. Also, when the dataset is deallocated with the FREE command,
the disposition specified on the ALLOC command is processed and SYSOUT data is released
to JES2/JES3. FREE can be used, for example, to switch the name of a report output dataset.
HRECALL This utility is used to recall datasets which have been archived by the system to
tape. This command is only useful if the system utilizes the DFHSM utility for automatic
dataset tape archive/dearchive.
RCRIS 4.0.0 A-3 11/92
-------
RCRIS System Technical Guide
LISTDSI dsn Function to check for existence of 'dsn'. Returns numeric status code in CLIST
variable '&SYSREASONV If dataset is found, several other CLIST variables which describe
the dataset attributes are set. These variables can be queried by the CLIST. Can be set to not
recall archieved datasets during query.
PRINTDS (See DSPRINT.)
FRINTOFF This TSO command is used to send output to the system printer. It should be
available on most systems, although the name and parameters may be different.
$AR. Queues a dataset to be permanently archived to tape. On the EPA system this is either
two or seven years depending on the options specified. A command to perform this function
should.be available on most systems, although the name, syntax, and options will probably be
different.
$SM. This command is used to compress partitioned datasets after they have been updated with
new members. It should be available on most other IBM TSO systems, although the name and
usage will probably be different.
&SYSDSN(dsn) Function to check for existence of 'dsn'. Returns 'OK* if dataset exists and
is available, otherwise returns an error message. The problem with this function is that it will
recall migrated datasets before returning a status, which can cause long delays.
11/92
A-4
RCRIS 4.0.0
-------
RCRIS System Technical Guide
APPENDIX B PROGRAM NAVIGATION CHARTS
INSTALL
CREATET2
RCRSXVER
PROGCOMP
ISCHGCPY
ISUPFOCI
PROGCOPY
COPYCOMP
ISDBMAIN
RCRMOUTB
ISUPFOC2
Above: Navigational CLIST Chart for RCRIS INSTALL
RCRZS
CREATETB
RCRSHAIN
SUMODE
SURCRIS
Above: Navigational CLIST Chan for RCRIS Data Entry
RCRIS 3.0.0
B-l
11/14/91
-------
MKftOMO
rrDBLBTB
MKBXTKAl
CHMOUT»
MROBUTU
CBMOurm
KCBHOUTB
UBACKW
yoacrt
y*c»coe
uk*ecoe
MRSTUST '
HRtPSTtS
wasroas
MkCTCLBl
_ MKXTBCT
JOKMO
BOBMOVT*
CKIOBT1
MBUPOT
CMMAIM
UMOOC
Navigational CLIST Chart for WERGPRO
-------
RCRIS System Technical Guide
APPENDIX C SYSTEM KEY PROGRAM SUMMARIES
COPYCOMP This program deletes and reallocates all compiled Turbo PDS libraries, then
copies all the members from 'aaaa.RCRIS.FOCCOMP.DATA* into the corresponding Turbo
PDS libraries.
. FFALLOC This CLIST allocates all flat files for the user.
FFBACKUP This CLIST makes a back-up of all flat files in the user account. This is done
by copying each existing flat file dataset to a new dataset and changing the last level qualifier
from '.MDB' to '.BACKUP'.
FFCOPY This CLIST makes a copy of all flat Mies in the user account. This is done by
copying each existing flat file dataset with the same name to a new dataset in another specified
;-.' user account.
FFDELBKP This CLIST deletes the back-up copy of all merged database flat files in the user
account which end with '.BACKUP' for the given state and Julian date.
FFDELETE This CLIST deletes all flat files in the specified user account which end with
'.MDB' for the given state and Julian date.
FFRESTOR This CLIST restores from back-up all flat files in the user account. This is done
by copying each existing flat file dataset to a new dataset and changing the last level qualifier
from '.BACKUP' to '.MDB' for the given state and Julian date.
INSTALL This program is the top level CLIST for the RCRIS installation/reinstallation utility.
It prompts the user for a password, checks that the user account is valid, then calls the CLIST
ISUPINST to perform the remainder of the installation process under the ISPF environment.
This allows the program to use ISPF panels to prompt for the states under each region which
need to have RCRIS installed.
MBACKUP This CLIST makes a back-up of ail selected RCRIS FOCUS databases. The user
t is prompted for the database account and database ID. The Merged databases are then backed
up in the same account using the proper naming conventions and the last level of each database
is changed from '.FOCUS' to '.BACKUP'.
MDELETE This CLIST prompts the user for the database account and database ID of the
database back-ups to be deleted. All RCRIS FOCUS databases which have a last level of
'.BACKUP'are deleted from the user account.
RCRIS 4.0.0 C-l 11/92
-------
RCRIS System Technical Guide
MERGPRO This CLIST is the main CLIST to run all Merge utilities and functions outside of
RCRIS. It also has an option to run the RCRIS CLIST.
MODEEXEC Determine the proper CLIST to execute from.
MODEPCPY Copies a custom PROFILE from the FOCEXEC library to the user's account.
This is concatenated in front of the other FOCEXEC PDS to override the default PROFILE
startup procedure.
MODESCPY Copies a JCL member from the system CNTL library to the user's account. The
JCL is then edited and submitted. - "
MOUFCOPY This CLIST copies the MOU table flat file from a specified user account to
another specified account. .
MOUFDEL This CLIST deletes MOU flat file in prompted account.
MRCRGDG Create a base for a Generation Dataset Group under a specified account, or in the
user's logon account. The functions performed depend on the user's account.
MRCYCLE2 This module streamlines all the batch merge processes for all the Regions and
States under each merged database from a single menu. Users have an option to run all
processes or to select a certain process. Processes are in the following order:
1. Consolidator Refresh
2. Extract
3. Update Merge
4. Co-Implementer Refresh
5. Universe Calculation
The system promotes all. necessary information if a user selects only certain processes.
MRDBUTI2 This is the Main Menu for database Utilities called from MERGPRO.
11/92
C-2
RCRIS 4.0.0
-------
RCRIS System Technical Guide
MRESTORE This restores from back-up all selected RCRIS FOCUS databases. The user is
prompted for the database account database ID. The Merged databases are then restored in the
specified account using the proper naming conventions and the last level of each database is
changed from '.BACKUP' to '.FOCUS'.
MREXTRA2 This module is called to perform either an extract to the oversight database from
the regional merged database or to extract data from the state or region databases to flat files
to send to the merge update. This module prompts for the region, state, and possibly the PDS
set to use (Production, Test, or Development) depending on the logon prefix of the user. If the
user logged on as a region, then an ISPF panel is displayed, allowing selection of the regional
databases that are to have extracts performed on them. If all questions are answered, then
another CLIST is called to edit the resulting JCL and submit the batch job. Except for the
Merged database, before submitting batch job, user is prompted whether to generate update
detail report during merge update. Submitting an extract batch job requires seven parameters:
1. The passed system prefix (&PROG)
2. The prefix of the required datasets
3. The current logon prefix (&ACCT)
4. The extract type (CYCLICAL or REFRESH)
5. The selected 2 character state ID
6. Extract option (Merge, Region, or State)
7. PDS files (Production, Test, or Development)
MRFFUTIL This is the Main Menu for Flat File Utilities called from MERGPRO,
MRPRECK Main module for RCRIS database preload routine (St/Reg/Merge). This module
is called to prepare and submit a preload batch job. It requires seven parameters:
1. The passed system logon prefix (&Z)
2. The prefix of the required datasets
3. The current logon prefix (&A)
4. Control file name (ssoCLjjj)
RCRIS 4.0.0 C-3 11/92
-------
RCRIS System Technical Guide
5. The selected 2 character state ID
6. Extract option (Merge, Region, or State)
7. PDS files (Production, Test, or Development)
MRCRGDG Recover from data stored in a Generation Dataset Group to the specified user
account. The functions performed depend on the user's account. This utility can perform three
different functions:
1. Recover data from a Generation Dataset Group to a K account (K#DB.sso or
KZss.sso). If the user signs on as K#DB or KZss, then the GDG data will
. automatically be copied to the logon group account.
2. If the user logs in as RCRT, then the user can specify whether to recover GDG
data for merge, a region, or a state in the RCRT account. The data to be
recovered must already have been backed up to a GDG previously created in
RCRT.
3. If the user logs in as RCRD, then the user can specify whether to recover GDG
data for merge, a region, or a state in the RCRD account. The data to be
recovered must already have been backed up to a GDG previously created in
RCRD. The user is also privileged to recover GDG data for merge, region, or
state databases in any region or state K account. In this case, the data to be
recovered must already have been backed up to a GDG previously created under
. the K account.
MRRPSTLS State List report.
MRSTLIST State List maintenance
MRUFDAT2 This module is called to perform either an update to the regional merged database
. from the region or state level or to update the region databases from the state data (or to update
. the state databases from the region data). This module prompts for the region, state, and
possibly the PDS set to use (Production, Test, or Development) depending on the logon prefix
of the user. If the user logged on as a region, then an ISPF panel is displayed allowing selection
of which state or regional databases are to be updated TO merge or which regional databases
are to be updated FROM merge. If all questions are answered, then another CLIST is called
to edit the resulting JCL and submit the batch job. Submitting an update batch job requires
seven parameters:
11/92 C-4 RCRIS 4.0.0
-------
RCRIS System Technical Guide
1. The passed system logon prefix (&Z)
2. The prefix of the required datasets
3. The current logon prefix (&A)
4. Control file name (SSOCUJJ)
5. The selected 2 character state ID
6. Extract option (Merge, Region, or State)
7. PDS files (Production, Test, or Development)
PROGCOMP This program compiles all the compilable members in
'xxxx.RCRIS.FOCEXEC.DATA' to 'xxxx.RCRIS.FOCCOMP.DATA'. xxxx stands for the
account for production, development, or test.
FROGCOPY This program copies all of the members from. the dataset
'xxxx.RCRIS.FOCEXEC.DATA' into the corresponding Turbo PDS libraries.
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
DSNAME(
DIE (10)
DSNAME(
DIR(IO)
DSNAH£(
DZR(15)
DSNAM£(
OIR(15)
DSNAME(
DIR(15)
DSNAHE(
DIR(30)
'&ACCT..RCRZS.MAIN.FOCEXEC.DATA')
CYLINDERS NEW CAT USING(REC80)
'6ACCT..RCRIS.CA.FOCEXEC.DATA')
CYLINDERS NEW CAT USING(RECSO)
'&ACCT..RCRIS.CHE.FOCEXEC.DATA')
CYLINDERS NEW CAT USING(REC80)
'&ACCT..RCRIS.HID.FOCEXEC.DATA')
CYLINDERS NEW CAT USIN6{REC80)
'&ACCT..RCRIS.PMT.FOCEXEC.DATA')
CYLINDERS NEW CAT USING(REC80)
'&ACCT..RCRIS.PMFMPDBA.FOCEXEC.DATA')
CYLINDERS NEW CAT USING(REC80)
SPACE(1,2) +
UNIT(ficTPMDISK)
SPACE(1,2) +
UNIT(STPMDISK)
SPACE(3,2) +
UNITf&TPMDISK)
SPACE(2,2) +
UNIT<&TPMDISK)
SPACE(2,2) *
UNIT(fiTPMDISK)
SPACE(5,2) +
UNIT(STPMDISK)
RCRIORT2 This CLIST is called from the merge update utility to allocate the FOCUS datasets
necessary to invoke FOCUS and TABLE the IORTA6LE database to a sequential file.. This data
are then returned to the merge utility and are used to determine the order in which batch jobs
are submitted (that is, does the region or state batch job get submitted first for a particular
state?).
RCRIS This is the CLIST to invoke RCRIS DBMS in a single user environment.
RCRIS 4.0.0
C-5
11/92
-------
-------
RCRIS System Technical Guide
APPENDIX D - TSO CALLS FROM FOCEXECS
RCRIS makes TSO calls from FOCEXECs. These FOCEXECs will require
modifications if the TSO functions are not implemented in the same
way as those in the development environment. The listings in this
appendix show all TSO calls from each of the RCRIS FOCEXECs.
ALLMCTS
.55
137
143
150
179
184
190
233
237
BACKDOOR
IS
23
25
STRING(S) FOUND
? TSO DSNAME 'SFIL'
TSO ALLOC OD(MASTER).
TSO ALLOC 00CHASTER)
TSO ALLOC OD(NASTER)
TSO ALLOC.DD(NASTER)
TSO ALLOC OO(MASTER)
TSO ALLOC 00(MASTER)
TSO 1SPSTART CKKXSUNCOE
? TSO DONAME SYNCA
DSCttACCT.
DSCUACCT.
DSCUACCT.
DSCUACCT.
DSCUACCT.
DSCUACCT.
&SELECACT
.RCRIS.FOCMSTER.USER'
.RCRIS.FOCMSTER.USER'
.RCRIS.FOCTSTER.USER'
.RCRIS.FOCHSTER.USER'
.HCRIS.FOCMSTER.USER'
.RCRIS.FOCMSTER.USER'
(DATABASE MDTP -
STRIMG(S) FOUND
TSO ALLOC FCORIGIN) DA(ORIGIN.FOCTEMP) NEW
TSO DELETE ORIGIN.FOCTEMP
TSO FREE DOCORIGIN)
CACOMP1L
STRING(S) FOUND
14 TSO ALLOC DDNANE DSORG(PS)
TSO ALLOC DDCUPDTABFT)DSCRCRIS.UPDTABLE.DATA)SP(10,10)TR NEU CAT US(RECH)
TSO FREE ATTRLIST(RECU)
TSO FREE DONAME(UPOTABFT)
DDHANE(UPDTABFT) bSNAME(RCRIS.UPOTABLE.DATA) OLD
DDNAME(UPDTABFT)
DDNANE(UPDTABFT) DSNAMECRCRIS.UPDTABLE.DATA) OLD
DDNAME(UPDTABFT)
DDNAME(UPDTABFT) DSNAME(RCRIS.UPDTABLE.DATA) OLD
DDHAME(UPDTABFT)
DDNAME(UPDTABFT) DSNAME(RCRIS.UPOTABLE.DATA) OLD
DDNAME(UPOTABFT)
DDNAME(UPDTABFT) DSNAME(RCRIS.UPOTABLE.DATA) OLD
DDNAME(UPDTABFT)
DDNAMECUPOTABFT) DS(RCRIS.UPDTABLE.DATA) OLD
DDNANE(UPOTABFT)
TSO ALLOC
TSO FREE
TSO ALLOC
TSO FREE
TSO ALLOC
TSO FREE
TSO ALLOC
TSO FREE
TSO ALLOC
TSO FREE
TSO ALLOC
TSO FREE
RCRIS 4.0.0
D-l
11/92
-------
RCRIS System Technical Guide
210 TSO ALLOC DDHAME(UPDTABFT) DS(RCRIS.UPDTABLE.DATA) OLD
22? TSO FREE DDNAHE(UPOTABFT)
228 TSO ALLOC DDNAME(UPOTABFT) DSNAME(RCftlS.UPOTABLE.DATA) OLD
240 TSO FREE DDNAME(UPDTABFT)
241 TSO ALLOC DDNAME(UPDTABFT) DSNAME(RCRIS.UPDTABLE.DATA) OLD
254 TSO FREE DDNAME(UPDTABFT)
255 TSO ALLOC DONANE(UPDTABFT) DSNAME(RCRIS.UPDTABLE.DATA) OLD
267 TSO FREE DDNAKE(UPDTABFT)
268 TSO ALLOC ODNAME(UPOTABFT) DSNAME(RCRIS.UPDTABLE.DATA) OLD
CARPASHT - STRtNG(S) FOUND r
277 TSO ISPSTART CHD(XBATCHRP1 SPGMMAKE UDBPROG BATCHRP1 UFIL1 UF1L1
CARPCCMP STRING(S) FOUND
232 TSO ISPSTART CMD(XBATCHRP1 tPGMNAME UDBPROG BATCHRP1 UF1L1 MFIL1 -
CARPCOMP --------- STRING FOUND ----
259 TSO ISPSTART CNXWATCHRP1 &PGMNAKE UDBPROG BATCHRP1 UFIL1 MflLI -
CARPD6T1 -- STRING(S) FOUND
290 TSO ISPSTART CMD(X8ATCHRP1 &PGKNAME &SDBPROG BATCHRP1 WFIL1 &&FIL1 -
CARPDEV STRING(S) FOUND
60 TSO FREE DDNAHE(UPRINTDD)
61 TSO ALLOC DDNAHE(UPRINTDD) DSNCFOCUS.OFFLINE?) MOD UNITC&&TUKPACK)
76 TSO FREE DDNAHE(UPRINTDD)
77 TSO ALLOC DDNANE(UPRINTDD) DSKAMEC*)
CARPDEV1
STRING(S) FOUND
59 TSO FREE DDNAKE(UPRINTDD)
60 TSO ALLOC DDNAHE(UPRINTDD) DSN(FOCUS.OFFL1NE2) HOD UNIT(UTUKPACK)
75 TSO FREE DONAKE(SSPRIMTDD)
76 TSO ALLOC DDNAME(UPRINTDD) DSNAHE(*)
CARPDUE -- STRING(S) FOUND -
473 TSO ISPSTART CW(XBATCHRP1 &PGMNAME UDBPROG BATCHRP1 UFIL1 UFIL1 -
CARP0001 STRING(S) FOUND
176 TSO ISPSTART CMDCXBATCHRP1 tPGMNAHE &&OBPROG BATCHRP1 UFIL1 UFIL1 -
196 TSO FREE DD(DDFILEIN)
CARPINFF STRING(S) FOUND
374 TSO ISPSTART CHO(XBATCHRP1 &PGMNANE UDBPROG BATCHRP1 UFIL1 UFIL1 -
CARPPAST -----. STRING(S) FOUND ?
469 TSO ISPSTART CND
-------
RCRIS System Technical Guide
CARPSEL4 STRIHG(S) FOUND
581 TSO ISPSTART OCXttSCHECK NIRPSEL1 ^FILENAME)
383 -? TSO DDNAME DDFILEIN
CARPSPDV STRING(S) FOUND
106 ISO FREE ATTRLIST(RC133)
107 TSO FREE DONAME(OFFLINE)
108 TSO ATTRIB RC133 LRECL(133) BUSI2E(3990) RECFN(F B A) DOSRG(PS)
109 TSO ALLOC DD(OFFLlNE)DSCRCRlS.ftFILEOUT.DATA)SP
1450 TSO ISPSTART CMHXBATCHRPI tPGMNAME UDBPROG BATCHRP1 UFIL1 WFIL1 -
CARP0007 STRINGCS) FOUND
52 TSO FREE DDCSUM1)
53 TSO ALLOC DD(SUM1)DS(CARPT7.TENP2)LREC(80)BLX(800)RECF(F B)
713 TSO ALLOC DD(NRRPFILE) DS(CARPT7.TENP2)
771 TSO ISPSTART CMD(»ATCHRP1 tPGMNAME UDBPROG BATCHRP1 UFIL1 UFIL1
798 TSO FREE DD(SUNI)
799 TSO FREE OS(CARPT7.TENP2>
(DEVICE STRINGCS) FOUND
64 TSO FREE DDNAMECOFFLINE)
65 TSO ALLOC DDNAMECOFFLINE) OSNAMECRCRIS.FOCUS.OFFLINE) MOO -
105 ? TSO DSNAME ftCRIS.SOUTFILE
116 TSO FREE ATTRL1ST(RC133)
117 TSO FREE DDNAME(OFFLINE)
118 TSO ATTRIB RC133 LRECLC133) BLKSIZE(3990) RECFHCF B A) DSORG(PS)
119 TSO ALLOC ODCOFFLINE) DSCRCRIS.UUTFILE...DATA) -
121 TSO FREE ATTRLISTCRC133)
CESEL STRINGCS) FOUHD
410 TSO FREE ATTRLISTCREC80)
411 TSO FREE OONAMECCACTIVIT)
412 TSO DELETE RCRIS.CACTIVIT.DATA
418 TSO ATTRIB REC80 LRECLC80) BLKSIZEC4240) RECFMCF B) DSORGCPS)
419 TSO ALLOC DD(CACTIVIT) OS
-------
RCRIS System Technical Guide
CFIELD1
STRINGCS) FOUND
1 ISO DELETE RCRIS.COUMMY.FOC
CFIELD4
STRINGCS) FOUND
45 ISO DELETE RCRIS.*.FOCTENP
CHKACCXS
STRING(S) FOUND
197 TSO FREE DDNAMECIDHOLD)
226 TSO FREE DDNAME(IDHOLD)
269 TSO FREE DDNAMECIDHOLD2)
. CMEASSES
124
125
126
132
133
134
141
142
143
149
150
151
402
CMECOMP
28
141
STRINGCS) FOUND
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
FREE ATTRL1STCREC80)
FREE DDNAMECCSELECT)
DELETE RCRIS.CSELECT.DATA
ATTRIB REC80 LRECLC80) BLKSIZE(4240) RECFMCF B) DSORG(PS)
ALLOC DO(CSELECT) DS(RCRIS.CSELECT.DATA) SP(1,1) TR USCREC80)
FREE ATTRLISTCREC80)
FREE ATTRLISTCREC80)
FREE DDNAMECCSELECT)
DELETE RCRIS.CSELECT.DATA
ATTRIB REC80 LRECLC80) BLKSIZEC4240) RECFHCF 8) DSORG(PS)
ALLOC OD(CSELECT) DSCRCR1S.CSEIECT.DATA) SP(1,1) TR USCREC80)
FREE ATTRLIST(RECSO)
TSO FREE ODNAME(CSELECT)
STRINGCS) FOUND
TSO ALLOCATE DDNAME(HOLDCMID) DUMMY
TSO FREE DDNAME(HOLDCMIO)
CMFMEMFO ---- STRING(S) FOUND :
340 TSO ISPSTART CHDCXBATCHRP1 tPGMNAME MDBPROG BAT CHRP 1 UFIL1 UFIL1
CNFNEVAL - STRING(S) FOUND
456 TSO ISPSTART CMD(XBATCHRP1 &PGMNAME &&DBPROG BATCHRP1 UF1L1 UFIL1
CNMUGENL STRINGCS) FOUND
254 TSO ISPSTART CMDCXBATCHRP1 tPGHNAME &SD8PROG BATCHRP1 UFIL1 UFIL1
CMMUMA1N STRINGCS) FOUND ---
30 TSO ALLOC DDNAMECMOLDCMID) UNITCUTUKPACIC) SPACEC1) TRACK
CMRPBAT ----- STRINGCS) FOUND
85 -? TSO DDNAME HANDLER1
224 -? TSO DDNAME FOCEXEC
232 -? TSO DDNAME MASTER
253 -? TSO DDNAME OFFLINE
263 ? TSO DDNAME FIRPTEMP
267 TSO ALLOC DD(FIRPTEMP) NEW CAT DELETE
276 ? TSO DDNAME FIRPTEMP
385 -? TSO DDNAME TEMP
11/92
D-4
RCRIS 4.0.0
-------
RCRIS System Technical Guide
386 TSO EX 'IDSNANE'
392 TSO SUBMIT 'tSUBMIT'
398 -? TSO DDNAME TEMP
399 TSO EX 'CDSNAKE'
STRING(S) FOUND -
919 TSO ISPSTART ODCXBATCHRP1 tPGMNAME UD8PROG BATCHRP1 UF1L1 MFR1
GMRPOEV1 STRINC(S) FOUND
55 TSO FREE DDNANE
-------
RCRIS System Technical Guide
CRPTEVA3
33 TSO FREE DDNAME(HOLD)
79 TSO FREE OONANE(KOLD)
114 TSO FREE DDNAME(HOLDZ)
CRPTEVA5
31 TSO FREE DDNAMECHOLD)
78 TSO FREE DDNAME(HOLD)
113 TSO FREE'ODNAME
-------
RCRIS System Technical Guide
136 -? TSO OSNANE RCRIS.UTLDUPTB.DATA
154 -? TSO DDNAME DUMP1
156 TSO FREE DDNAH£{DUMP1>
157 TSO DELETE RCRIS.DUMP1.FOCTEMP
uanweLi
13
16
18
22
23
24
26
156
168
170
171
FlftHIMATU
IfOHUHAIll
56
222
225
231
233
234
235
237
244
248
249
250
252
257
258
266
305
412
450
473
492
508
524
- 599
ItBtMttlA tV
vDnUHniA
10
1417
1418
1420
1428
1429
1431
55
56
71
72
TSO FREE DDNAHE{DUHP1 )
-? TSO DSNAHE RCRIS.DUMP1.FOCTEHP
TSO DELETE RCRIS. DUMP 1.FOCTEKP
TSO FREE ATTRLIST(R386)
TSO ATTRIB R386 LRECLC386) BLKSIZE(3860) RECFN(F B) DSORG(PS)
TSO ALLOC DD(DUHPI) DS(RCRIS.DUMP1.FOCTEHP).SP(10,10) TR NEW USCR386) -
TSO FREE ATTRLISTCR386)
-? TSO DSNAME RCRIS. UTLDUPTB. DATA
-? TSO DDNAHE DUMP1
TSO FREE DDNAHECDUHP1)
TSO DELETE RCRIS.DUHP1.FOCTEHP
TSO ALLOC DDNAME(UPOTABFT) UNITUSTUKPACK) SPACE(10,10)
? TSO DSNAHE RCR1S.UM1VPASS.DATA
TSO DELETE RCRIS. UNIVPASS. DATA
-? TSO OSNANE 'SFI1D1
TSO FREE ATTRLIST(RSO)
TSO ATTRIB R80 LRECL(SO) BUSIZE(23440) RECFH(F B) OSORG(PS)
TSO ALLOC DD(UCALC) DS('tFHD') -
TSO FREE ATTRLIST(RBO)
TSO ALLOC DDNAHE(UCALC) DSNAMEC&FIID' ) SHR
TSO FREE ATTRLISTCR14) .
TSO ATTRIB R14 LRECL(14) BLKSIZEC23464) RECFH(F B) DSORG(PS) '
TSO ALLOC DD(UNIVPASS) DS(RCRIS.UNIVPASS.DATA) SPC5.5)
TSO FREE ATTRLIST(RU)
TSO ALLOC DDNAHE(UCALC) BSNAHE('IFIID') SHR REUSE
TR NEU CAT -
TSO ALLOC DDNAME (ON 1VPASS) OSNAME(RCRIS.UNIVPASS.DATA) HOD REU
-? TSO DSNAHE RCRIS. UNIVPASS. DATA
TSO DELETE RCRIS. UNIVPASS. DATA
TSO ISPSTART CHDCDBAREBLD UDBPROG MPROG MTEST UOVLP UfiTP)
TSO ALLOC DDNAHE(PERHERR) DSNAHE(RCRIS.PERHERR.OATA)
TSO ALLOC DDNAHE(PERHERR) DSNAHE(RCRIS.PERKERR.OATA)
TSO ALLOC DDNAHE(CHERR) DSNAHE(RCRIS.CHERR.DATA) SHR
TSO ALLOC DDNAHE(CHERR) DSNAHE (RCR I S.CHERR. DATA) SHR
TSO ALLOC DDNAME(CMERR) DSNAME( RCR I S.CHERR. DATA) SHR
-? TSO DDNAHE UPDTABFT
TSO ALLOC F(IOHOLD) DA(IDHOLD.FOCTEHP) SHR
TSO FREE DDNAHE (PERHERR)
TSO ALLOC OONAME(PERKERR) OSNAHECCHPX. RCR IS. PERHERR
TSO FREE DDNAME(PERHERR)
TSO FREE ODNAHE(PERHERR)
TSO ALLOC ODNAHE(PERHERR) DSNAHECCHPX. RCRIS. PERMERR
TSO FREE ODNAHE(PERHERR)
TSO FREE ODNAME(iRPDBDD)
TSO ALLOC DDNAHEC&RPOBDD) DSNAHECFOCUS.OFFLINE2) HOD
TSO FREE DDNAHE(ftRPOBDD)
TSO ALLOC DDNAHE<&RPDBDD) DSNAME (*)
SHR REUSE
SHR REUSE
REUSE
REUSE
REUSE
.DATA') SHR
.DATA') SHR
UNIT(MTWKPACK)
RCRIS 4.0.0 D-7 11/92
-------
RCRIS System Technical Guide
OBUPSTDS
119 TSO FREE 00(NTENP1)
149 TSO FREE DDCNTENPZ)
180 TSO FREE OD(MTEMP3)
DETHHAMD
57
56
92
93
STRING(S) FOUND
STRIMG(S) FOUND
TSO FREE
TSO ALLOC
TSO FREE
TSO ALLOC
DDNAME(EVLAST)
DDNAHE(EVLAST) DSKAME(RCRIS.EVLAST.FOCTEHP) SHR
DDHAMECPELAST)
DDNAMECPELAST) DSNAME(RCRIS.PELAST.FOCTEMP) SHR
DEVICE
STRING(S) FOUND
55 TSO
56 TSO
71 TSO
72 TSO
FREE
ALLOC
FREE
ALLOC
DDHAME(*RPDD>
DDNAMEURPOD) DSNANE(FOCUS.OFFLINE2) MOO UNITCUTUKPAOC)
DDNAMEURPDD)
DDNAMEURPDD) DSNAMEC*)
FCLDASC1
STRINGCS) FOUND
53 -? TSO DSNAME RCRIS.SFOUAL.DATA
62 TSO FREE DDNAME(FMP)
63 TSO ALLOC DDNAME(FMP) DSNANE(RCRIS.tFOUAL...DATA) SHR
FCLDASC3
13
14
FOUNAtN
STRING(S) FOUND
TSO FREE DDHAME(FCPARN)
TSO ALLOC DDNAME(FCPARN) DSNANE(RCRIS.FCPARH.DATA) SHR
STRIMG(S) FOUND
98 TSO FREE DDNAME(FCPARN)
FILPR1HT
STRING(S) FOUND
55 TSO FREE ODNANE(UPRINTOD)
56 TSO ALLOC DDNAME(UPRINTDD) OSNAME(FOCUS.OFFLINE2) HOD
72 TSO FREE DDNAHE(UPRINTOO)
73 TSO ALLOC DDNAHEC&&PRINTDD) DSNAME(*>
FIMUBAT
- 244
323
326
338
377
381
389
398
537
FIMUOBAT
129
135
147
161
163
165
169
221
STRINGCS) FOUND
-? TSO DDNAME HANDLER1
-? TSO DDNAME FOCEXEC
-? TSO DDNAME MASTER
? TSO DDNAME OFFLINE
-7 TSO DDNAME FIRPTEMP
TSO FREE OOCFIRPTEMP)
TSO ALLOC DD(FJRPTEMP) NEW CAT DELETE
-? TSO DDNAME FIRPTEMP
TSO SUBMIT '&DSNAME'
STRING
-------
RCRIS System Technical Guide
FWMNAIN
130
157
167
179
STRING(S) FOUND
-? TSO DSHAME LOADUPO.TOCTENP
TSO ALLOC DDNAME(HOLDCMID) UNIT(UTMCPACK) SPACE(I) TRACK -
TSO ALLOC OONAME(UPDTABFT) UNIT(UTMCPACK) SPACEC10.10) -
-7 TSO DONAME UPDTABFT
STRIHG(S) FOUND
FMPCOMP -
19 TSO FREE ATTRLIST(REC8 REC16 REC72)
21 TSO ATTRIB REC8 BUSIZE(96) LRECL(S) DSORG(PS) RECFNCF B)
23 TSO ATTRIB REC16 BLKSIZE(192) LRECLC16) DSORG(PS) RECFM(F B)
25 TSO ATTRIB REC72 BLKSIZE(864) LRECLC72) DSORG(PS) RECFMCF B)
27 TSO FREE OD(NARREXIT)
29 TSO FREE DD(FCPARH)
31 TSO FREE DD(FMP)
33 TSO DELETE RCRIS.NARREXIT.DATA
35 TSO DELETE RCRIS.FCPARM.DATA
37 TSO DELETE RCRIS.FMP.DATA
39 TSO ALLOC F(NARREXIT) DA(RCR1S.NARREXIT.DATA) NEW US(RECB) SP{1,1) TR -
42 TSO ALLOC F(FCPARM) OA(RCRIS.FCPARH.OATA) NEW US(REC16) SP(1,1) TR -
45 TSO ALLOC F(FHP) DA(RCRIS.FMP.OATA) NEW US(REC72> SP(1,1) TR UNlt(UTPNPACIC)
97 TSO FREE DDNAME(FMP)
98 TSO ALLOC DONAHE(FHP} DUMMY
100 TSO FREE DONANE(FMP)
121 TSO FREE DDNAME(FCPARM FMP)
FRONTEHD - STRING(S) FOUND
46 TSO FREE DDNAME(STREGVER)
FRONTEVJ -- STRING(S) FOUND
24 TSO FREE DONAME(STREGVER)
GLOBAL STRIHG(S) FOUND
1 -? TSO DDNAME MASTER
HANDCOHP : STRING(S) FOUND
92 TSO FREE DDNAME(UNIVPASS)
93 TSO ALLOC DDNAME
-------
RCRIS System Technical Guide
HIRPACK STRING(S) FOUND
324 ISO 1SPSTMT CMD(XBATCHRP1 ftPGKNAME UDBPROG BATCKRP1 UF1L1 UFIL1
HIRPAOCF STR1NGCS) FOUND
86 ISO FREE F(NOLDIOS)
88 ISO ALLOC F(HOLO!DS) -
91 ISO UPSTART CWXXDSCHECK HIRPACXF &FILENAME)
138 TSO ALLOC F(ACKFIDS) DA(*FILENAHE> SHR REUSE
140 -7 TSO DDNAME ACKFIOS
147 TSO FREE F CYL
244 .TSO FREE F(NID004)
249 TSO ISPSTART CNDCXBATCHRP1 &PGHNAKE &&OBPROG BATCHRP1 UFILl UFILl
KtRPDOOS
STRIttG(S) FOUND
37 TSO ALLOC F(K1D005) SP(20,20) CYL
243 TSO FREE f(HID005)
248 TSO ISPSTART CMD(XBATCHRP1 tPGNNAME UDBPROG BATCHRP1 UFILl UFILl
11/92
D-10
RCRIS 4.0.0
-------
RCRIS System Technical Guide
HIRP0006
STRING(S) FOUND
48 TSO ALLOC F(HID006) SP(20,20) CTL
349 TSO FREE F(HID006>
354 TSO ISPSTART CHDCX8ATCHRP1 fcPGMNAHE UDBPROG BATCHRP1 UFIL1 UFIL1 -
HIRP0007
STRING(S) FOUND
41 TSO ALLOC F
280 TSO ISPSTART CNDCXBATCHRP1 tPGMNAME UDBPROG BATCHRP1 UFIL1 UFILT
HIRP0009 STRINGCS) FOUND -
243 TSO ISPSTART CMD(»ATCHRP1 tPGMNAME UOBPROG BATCHRP1 UFIL1 UFIL1 -
HIRPLAB " STRINGCS) FOUND
371 TSO ISPSTART CMHXBATCHRP1 tPGMNAME UDBPROG BATCHRP1 UFIL1 UFIL1 -
HIRPLET STRING(S) FOUND
113 TSO FREE DDNAME(TEXTFILE)
114 TSO FREE DSNAME(KTEXTFILE)
269 TSO ISPSTART CMD(XBATCHRP1 &PGMNANE UDBPROG BATCHRP1 UFIL1 UFH.1 -
HIRPSEL1
STRING(S) FOUND
259 TSO ISPSTART CMOCXDSCKECK HIRPSEL1 &FILEHAME)
264 ? TSO OONAME DDFILEIN
HIRPSEL3
STRING(S) FOUND
305 TSO ISPSTART CNDCXDSCHECK HIRPSEL3 &F1LENAME)
307 -? TSO DDNAME ODFILEIN
HIRPSEL4
STRING(S) FOUND
217 TSO ISPSTART CTO(»DDEARCH HIRPSEL4 &TEXTFILE)
219 TSO ISPSTART CHD(XDSCHECK HIRPSEL4 tTEXTFILE)
221 -? TSO OONAME TEXTFILE
357 TSO ISPSTART CHDCXDOOEARCH HIRPSEL4 &TEXTFILE)
359 -? TSO DSNAME TEXTFILE.DATA
361 TSO FREE DDNAME(TI)
363 TSO ALLOC F(T1) DA(TEXTFILE.DATA) OLD REUSE
367 TSO FREE DDNAME(TI)
368 TSO ALLOC F(T1)OS(TEXTFILE.DATA)LREC(57)BLK(570)RECF(F B) NEW CAT UNI(UTUKPACK)
379 TSO ISPSTART CKXXDDOEARCH HIRPSEL4 &TEXTFILE)
381 -? TSO DSNANE TEXTSAVE.DATA
383 TSO FREE DDNANE(TI)
385 TSO ALLOC F(T1) DA(TEXTSAVE.DATA) OLD REUSE
389 TSO FREE DDNANE(TI)
391 TSO ALLOC F(T1}DS(TEXTSAVE.DATA)LREC(57)BLK{570)RECF(F B) NEW CAT UNI(UTUKPACK)
441 TSO FREE DONAME(TEXTFILE)
443 TSO FREE DAC&TEXTFILE)
468 TSO FREE DDNANE(TI)
RCRIS 4.0.0
D-ll
11/92
-------
RCRIS System Technical Guide
HIRPSELS
STRING(S) FOUND
305 TSO JSPSTART OtXXDSCHEOC HIRPSELS IFILENAME)
307 -? TSO DDNAME DDFUEIN
HIRPTSOU . STRINC(S) FOUND - -
217 TSO ISPSTART CND(XBATCHRP1 4PGMNAKE UDBPROG BATCHRP1 MFIL1 UFIL1
HIRPUNIV ' STRlttG(S) FOUND
213 TSO ISPSTART CKHXBATCHRP1 tPGMNAME UDBPROG BATCHRP1 UF1L1 UFIL1
10REXTRT - STRING(S) FOUND -
W ? TSO DSNANE '(FILENAME'
16 TSO ALLOC FI(OUTPUT) DSN('WILENAME')
25 TSO ALLOC FKOUTPUT) DSNC&FILENAME') OLD REUSE
IORLOAD
STRING(S) FOUND
32 -7 TSO DSNAME MAME
51 TSO ALLOC Fl(INPUT) OSN(tNAME) SHR REU
IORRP
STRING(S) FOUND
30 TSO FREE FI(OFFLINE)
31 TSO ALLOC FI(OFFLINE) DA(FOCUS.OFFDUMB) OLD
40 TSO FREE Fl(OFFLINE)
41 TSO ALLOC Fl(OFFLINE) DA(FOCUS.OFFLINE) OLD
ISUPCARB
STRING(S) FOUND
8 -? TSO DDNAHE CAAREA
9 TSO FREE DDCCAAREA) '
10 TSO ALLOC DD
-------
RCRIS System Technical Guide
ISUPCVRB
STRIKG(S) FOUND
8 -? TSO DDNAME CEVIOL
9 TSO FREE DD(CEVIOL)
10 TSO ALLOC OD(CEVIOLA) DS('ttSNAME') SHft REUSE
1? TSO FREE OD(CEVIOLA)
18 TSO ALLOC DD(CEVIOL) DS('U)SNAME') SHR REUSE
ISUPELRB
8
9
10
30
31
ISUPENRB
8
9
10
30
31
STRING(S) FOUND
-7 TSO DDNAHE CEEVAL
TSO FREE DD(CEEVAL)
TSO ALLOC DD(CEEVALA) DSC'&DSNAKE') SHR REUSE
TSO FREE DD(CEEVALA)
TSO ALLOC DD(CEEVAL) DS('USNAHE') SHR REUSE
STRING(S) FOUND
-? TSO DDNAME CEEHFOR
TSO FREE DD(CEENFOR)
TSO ALLOC DD(CEENFORA) DS('U)SNAME') SHR REUSE
TSO FREE DO(CEENFORA)
TSO ALLOC DD(CEENFOR) DS('tDSNAME') SHR REUSE
ISUPEVRB
8
9
10
17
IB
STRING(S) FOUND
-? TSO ODNAME EVENT
TSO FREE DO(EVENT)
TSO ALLOC DD(EVENTA) OS('tDSNANE') SHR REUSE
TSO FREE DOCEVENTA)
TSO ALLOC DD(EVENT) DSC&DSNAME') SHR REUSE
ISUPHCTV
19
62
64
66
ISUPH1RS
8
9
10
17
18
ISUPH2RB
8
9
10
17
18
ISUPINST
19
22
84
87
123
STRING(S) FOUND
TSO ALLOC FC&NANE) OACRCRS.RCRIS.&NAMEV) SHR
TSO FREE DACRCRS.RCRIS.STATECOD.DATA'}
TSO FREE DACRCRS.RCRIS.STATEC02.DATA')
TSO FREE DACRCRS.RCRIS.STATEC03.DATA')
STRING(S) FOUND
-? TSO DDNAHE HANDLER1
TSO FREE DD(HANDLERI)
TSO ALLOC DD(HAMDLRIA) DS('CDSNAME') SHR REUSE
TSO FREE DDCHANOLR1A)
TSO ALLOC D0(HANDLER 1) DSC'USNAKE') SHR REUSE
STRING(S) FOUND
-? TSO OONANE HANDLER2
TSO FREE DD(HANDLER2>
TSO ALLOC ODCHANDLR2A) DSC'USNAKE') SHR REUSE
TSO FREE 00
-------
RCRIS System Technical Guide
ISUPNOUT
7
8
9
16
17
STRIHG(S) FOUND
7 ISO DDNAKI NOUTABLE
TSO FREE DD(MOUTABLE)
ISO ALLOC DD(OLDHOU) DS('MSNAME')
ISO FREE DO(OLDMOU)
ISO ALtOC DD(HOUTABLE) DS('SDSNAME')
ISUPPNRB
STRING(S) FOUND
8 -? ISO DONAME PHCOMMIT
9 ISO FREE DD(PKCCMNIT)
10 TSO ALLOC DD(PMCOMMIA)
17 TSO FREE DDCPMCOMH1A)
18 TSO ALLOC OD(PNCONNIT)
DS('KOSNAME') SHR REUSE
DS('tOSNAME') SHR REUSE
1SUPPURB
STRING(S) FOUND
8
9
10
17
18
ISUPPVRB
8
9
10
17
18
1SUPP205
46
50
52
53
55
266
ISUPP302
39
- 43
45
48
52
54
244
? TSO DDNAHE PUNIT
TSO FREE DD(PUNIT)
TSO ALLOC OO(PUNITA) OSC&OSNAHE') SHR REUSE
TSO FREE DD(PVJNITA)
TSO ALLOC DO(PUNIT) PS('USNAME') SHR REUSE
STRING(S) FOUND
-? TSO ODNANE PEVENT
TSO FREE DO(PEVENT)
TSO ALLOC OD(PEVENTA) DS('USHAME') SHR REUSE
TSO FREE OD(PEVENTA)
TSO ALLOC DO(PEVENT) OS('tQSNAHE') SHR REUSE
STRIHG(S) FOUND
-7 TSO DDNAME PEVENT .
TSO FREE DD(PEVENT)
TSO COPT 'USNAME' 'tKEUDSN'
TSO FREE DSC'USNAME' '&NEUDSN')
TSO ALLOC DD(PEVENT) DSN('tDSNAME') SHR
-TSO RUN ISPLINK.SELECT.&COMLEH.&COMMAND
STRING(S) FOUND
? TSO DDNAME PEVENT
TSO COPY '&DSNAME'
TSO ALLOC DD(PEVENTA) DSCftOLDFILEV) SHR REU
? TSO DDNAME PMCOMNIT
TSO COPV '40SNAKE' -
TSO ALLOC DD(PMCOMMIA) DSC&OLDFILE2') SHR REU
TSO FREE DDCPEVENTA PMCOMMIA)
1SUPREDO
STRING(S) FOUND
22 -? TSO DDNAME SECURITY
23 TSO FREE DD(SECURITY)
24 TSO ALLOC DD(SECUROLD) DS('USNAME')
34 TSO FREE DD(SECUROLD)
35 TSO ALLOC DD(SECURITY) DSC40SHAME')
ISUPSTAR
STRING(S) FOUND
7 -? TSO DDNANE MOUTABLE
9 TSO COPY 'RCRS.RCRtS.PCRPSP92.DATA' -
11 TSO FREE DSC'RCRS.RCRIS.PCRPSP92.DATA'
11/92
D-14
RCRIS 4.0.0
-------
RCRIS System Technical Guide
ISUPVZOO
STRING(S) FOUKO
4 ISO
7 ISO
10 ISO
13 TSO
16 TSO
19 TSO
22 TSO
25 TSO
28 TSO
CLR3270
CLR3270
CLR3270
CLR3270
CLR3270
CLR3270
CLR3270
CLR3270
CLR3270
ISUPV211
4 TSO CLR3270
ISU2P205
46
50
52
S3
55
LOADCME
STRING(S) FOUND
STRING(S) FOUND
-? TSO ODNAME PEVENT
TSO FREE DO(PEVENT)
TSO COPY '40SNAME' '&NEUDSN' NONUM
TSO FREE DSCSDSNAHE' 'tNEUDSN')
TSO ALLOC DD(PEVENT) OSNC'SDSNAME') SHU
STRIKG(S) FOUND
182
183
184
185
186
187
188
194
195
196
197
198
199
200
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
TSO
FREE DDNAME(CHANGEEN)
FREE ATTRLJSTCREC75)
DELETE CHANGEEN.DATA
ATTR REC7S 8LKS1ZE(1500) LRECL(75) DSORG(PS) RECFMCF B)
ALLOC F TR ,
FREE F(CHANGEEN)
ALLOC F(CHANGEEN) DA(CHANCEEN.DATA) HOD
FREE F(CHAHGEEV)
DELETE CHANCEEV.DATA
FREE ATTRLISTCREC132)
ATTR REC132 BLICStZE(2640) LRECL(132> DSORG(PS) RECFMCF B)
ALLOC F(CHANGEEV) DA(CHANGEEV.DATA) US(REC132) NEW SP(5,5) TRACKS
FREE F(CKANGEEV)
ALLOC F(CHANGEEV) DA MOD
LOADIT
STRING(S) FOUND
5 TSO ALLOC DONAME(LOAD) OSNAME(RCRIS.AREADES.FOCTEMP) SHR
17 TSO FREE DDNAMEUOAD)
MRADCNTR STRING(S) FOUND -
6 TSO ALLOC F(CONTROLF) DA(CONTROLF.MDB) OLD
MRCRMOU STRING(S) FOUND -
36 ? TSO DSNAME '&FILENAME'
54 TSO ALLOC FI(INPUT) DSN('IFILENAME') SKR REUSE
77 TSO ALLOC F](INPUT) DSN('(FILENAME') SHR REUSE
143 TSO FREE Fit INPUT)
NREOALLC
STRING(S) FOUND
51 TSO ALLOC DD(EDTERRS) DS(DUMHYI) SP(20,30) CYL MX REUSE DEL -
60 TSO FREE FI(EDTERRS)
RCRIS 4.0.0
D-15
11/92
-------
r
RCRIS System Technical Guide
MREDEPAE
16
35
STRING(S) FOUND
TSO AUOC FKOUMP) SP(20,20) TRK NEW DEL UNIT(UTUKPACIC)
TSO FREE FI(DUMP)
MREDPROG
STRING(S) FOUND
2469
2681
NREDTS01
TSO ISPSTART CMXXBATCHRP1 MREDPROG UDBPROG MREDPROG -
TSO ALLOC FKOUT) DSN(B) US1NG(K32) NEW DEL REU UMIT(UTUXPAQC)
TSO FREE Fl(EDTERROR)
2 -7 TSO DSMAME &FNAME
NRLDIOR
STRING(S) FOUND
STRIKG(S) FOUND.
19
21
31
33
46
48
54
56
MRMUCF
. 41
48
109
129
130
131
142
154
163
170
183
202
. 203
204
215
227
MRMUMAIN
TSO FREE FI(OFFLINE)
TSO ALLOC FUOFFL1NE) DUMMY OLD SPACEd 1) TRACKS LRECLC133) RECFMCF 8)
TSO FREE Fl(OFFLIME)
TSO ALLOC FI(OFFLINE) OA(FOCUS.OFFLINE) OLD
TSO FREE Fl(OFFLINE)
TSO ALLOC FI(OFFLINE) DA(FOCUS.OFFLINE) OLD
TSO FREE FI(OFFLINE)
TSO ALLOC FI(OFFLINE) OA(FOCUS.OFFLINE) OLD
STRING(S) FOUND
-? TSO DSNAME '&FILENANE'
? TSO DSNAME '&FILENAME'
TSO ALLOC FI(CONTROL) DSN('IFILENAME') OLD REUSE
TSO FREE FI(CONTROL)
TSO ALLOC FI (CONTROL) NEW DEL UNIT(UTUXPACK)
TSO ALLOC Fit INPUT) DSNC&FILENAME') SHR REUSE
TSO FREE FI(INPUT) '
TSO ALLOC FI (OUTPUT) DSNC&FILENAME') OLD REUSE
TSO FREE FI(OUTPUT)
TSO FREE FI(OUTPUT)
TSO ALLOC FI(CONTROL) OSN('tFlLENAME') SHR REUSE
TSO FREE FI(CONTROL)
TSO ALLOC FI (CONTROL) NEW DEL UNIT(UTUXPACK)
TSO ALLOC FI (INPUT) DSNCIF RENAME') SHR REUSE
TSO FREE FI(INPUT)
TSO FREE FI(CONTROL)
STRING(S) FOUND
47 TSO FREE DO(ORIGIN)
132 TSO ISPSTART CMOOMREXTRA2 RCRIS UDBPROG &&EXT TYPE)
139 TSO ISPSTART CMD(XMRUPDAT2 RCRIS UDBPROG}
NRREBILD
32 ? TSO DDNANE (FILE
NRRPAUD
STRING(S) FOUND
STRING(S) FOUND
48 TSO FREE FI(OFFLINE)
49 TSO ALLOC FI(OFFLINE) DUMMY OLD SPACEd 1) TRACKS LRECL(133) RECFM(F B)
65 TSO FREE FI(OFFLINE)
66 TSO ALLOC FI(OFFLINE) OA
-------
RCRIS System Technical Guide
NR8PCF -- STRING(S) FOUND ---
130 ISO ISPSTART CMDCXBATCHRP1 IPGttNAME UOBPROG BATCHRP1 UFIL1 MFILl
KRRPDEV
95
104
110
STRING(S) FOUND
TSO ALLOC F(OFFLINE) DA(iFILEOUT) OLD
TSO ALLOC F(OFFLINE) PRINTER
TSO ALLOC F(SYSPRINT) DD<*>
NRRPOEV2
52 TSO FREE OO(PRNTQUED)
NRRPEDDT
STRING(S) FOUND
STRING(S) FOUND
54 -? TSO DSNAME '4FILE2'
61 TSO ISPSTART CMDCHRRPRCAL &FILEX)
63 -? TSO OSNAME 'SF1LEX'
78 TSO FREE DD(EDVAR)
85 TSO ISPSTART CMD(XBATCHRP3 4PGMNAME UDBPROG 8ATCHRP3
MRRPEDSU
50
58
60
70
77
129
STRING(S) FOUND
-? TSO DSNAME 'SFILE2'
TSO ISPSTART CMDCMRRPRCAL IFI LEX)
? TSO DSNAME '&FILEX'
TSO FREE DD(EDVAR)
TSO ISPSTART CMD DS('USNAME') OLD REUSE
? TSO DDNAME OFFLINE
TSO FREE DD(OFFLINE)
TSO RENAME 'tDSNAME' NCR.TEMP
TSO RENAME RCRIS.MRRPHARO '&DSNAME'
TSO ALLOC OD(OFFLINE) DS('tOSNAME') OLD REUSE
TSO DELETE HCR.TEMP
TSO FREE OOCMRRPFIL2)
RCRIS 4.0.0
D-17
11/92
-------
RCRIS System Technical Guide
MRRPHDEL
STRING(S) FOUND
40 ISO ISPSTART CMDCMRRPRCAl &FILE2)
42 - -? TSO DSNAME '4FILE2'
48 TSO ALLOC DD(HRRPFILE) DS('tFILE2') SHR
83 TSO FREE DO(NRRPFILE)
MRRP1IOR
STRING(S) FOUND
38 TSO FREE FI(OFFLINE)
39 TSO ALLOC FI(OFFLINE) DUMMY SPACEC1 1) RECFN(F B) TRACKS NEW
49 TSO FREE FI(OFFLINE)
50 TSO ALLOC FKOFFLINE) DA(FOCUS.OFFLINE) OLD
MRRPIMOU
STRING(S) FOUND
51 ? TSO OSNAME 'SFRENAME'
53 TSO ALLOC FK&NAME) DSNC&FILENAME') -
62 TSO ALLOC FI(SNAME) DSN('(FILENAME1) OLD REUSE
94 TSO FREE FK&NAME)
NRRP10RF
STRING(S) FOUND
46 -? TSO DSNANE '4IFFILE2'
52 TSO FREE DD(MRRPFILE)
53 TSO ALLOC DD(NRRPFILE) DSNAKE('t!FF!LE2') SKR
85 TSO FREE DD(MftRPFlLE)
MRRPLOGE
STRING(S) FOUND
63 TSO ISPSTART CMDCMRRPRCAL 4LEF1LE2)
65 -? TSO DSNAME '&LEFILE2'
71 TSO FREE DD(MRRPFILE)
72 TSO ALLOC DD(MRRPFILE) OSNAMECtLEFILEZ') SHR
103 TSO FREE DD(MRRPFILE)
MRRPORPH
STRING(S) FOUND
40 TSO ISPSTART CWXMRRPRCAL MRFILE2)
42 -? TSO DSNAME '&ORFILE2'
48 TSO FREE DD(MRRPFILE)
49 TSO ALLOC DD(HRRPFILE) DSNAME('&ORFILE2') SHR
78 TSO FREE DO(MRRPFILE)
MRRPPRSU
STRING(S) FOUND
48 ? TSO DSNAME '&FILE2'
57 TSO ISPSTART CMDCXBATCHRP3 KPGMNAME 4&OBPROG BATCHRP3 -
MRRPUL01
STRIHG(S) FOUND
193 ? TSO DSNAME '&NRFILE2'
202 TSO ISPSTART CMD(X8ATCHRP3 &PCMNAME UD8PROG 8ATCHRP3
MRRPUL02
STRING(S) FOUND
121 -? TSO OSNAME '&ADFILE2'
130 TSO ISPSTART CMDCXBATCHRP3 &PGMNAME UDBPROG BATCHRP3
MRRPUL03
STRING(S) FOUND
129 -? TSO DSNAME '&XDFILE2'
138 TSO ISPSTART CXDCXBATCHRP3 &PGMNAME UDBPROG BATCHRP3
11/92
D-18
RCRIS 4.0.0
-------
RCRIS System Technical Guide
HRRPUL04 STRING(S) FOUND
454 TSO ISPSTART CMDCHRRPRCAL KXF1LE2)
456 ? TSO DSNANE '4EXFILE2'
462 TSO FREE 00
463 TSO ALLOC DD(MRRPFiLE) DSNAKECIEXFILE2') SHR
497 TSO FREE DD(MRRPFILE)
MRRPUPAC STRING(S) FOUND
283 TSO ISPSTART CMD(HRRPRCAL &UPFILE2)
285 -? TSO DSNAME '4UPFILE2'
291 TSO FREE DD(NRRPFILE)
292 TSO ALLOC OO(MRRPFILE) DSNAME('4UPFILE2') SHR
323 TSO FREE DO(NRRPFILE)
MRRPUPAR STRING(S) FOUND
14 -7 TSO OSNANE (TEMP
16 TSO ALLOC F(HRRPARUP) DA(MRRPARUP.WP> MOO UNJT(MTUKPACIC)
17 TSO ALLOC F(iFILENAME) OAttTEMP) OLD
81 TSO FREE DD
82 TSO FREE OD(MRRPARUP)
NRRPUPCN STRING(S) FOUND
14 -? TSO OSNAME CTENP
16 TSO ALLOC F(tFILENAME) DA(&TEMP) OLD
17 TSO ALLOC F(MRRPCNUP) DA(MRRPCNUP.UP) MOD UNIT(UTMCPACIC)
113 TSO FREE DD(HRRPCNUP)
114 TSO FREE DDOF1LENAME)
MRRPUPD STRING(S) FOUND
12 TSO ALLOC F(MRRPDUP) DA(MRRPOUP.UP) OLD
NRRPUPDT - STRING(S) FOUND
45 TSO ISPSTART CKDCMRRPRCAL &FILE2)
47 -? TSO DSNAME '&FILE2'
56 TSO ISPSTART CMD(XBATCHRP3 &PGHNAME UOBPROG BATCHRP3
HRRPUPEL STRING(S) FOUND
14 -7 TSO DSNAME &TENP
16 TSO ALLOC F(tFILENAME) DA(ftTEKP) OLD
17 TSO ALLOC F(MRRPELUP) DA(MRRPELUP.UP) MOD UNITC&STWKPACK)
160 TSO FREE DD
-------
RCRIS System Technical Guide
17 ISO ALLOC F(MRRPEVUP) DA(MRRPEVUP.WP) HOO UNIT(MTWKPACK)
201 TSO FREE DD(ftFlLENAME)
202 TSO FREE DDCMRRPEVUP)
MRRPUPH1
15
17
18
85
86
STRIHG(S) FOUND
-? TSO DSNAME &TEMP
TSO ALLOC FUFILENAME) DA(tTEMP) OLD
TSO ALLOC F(WRPKIUP) DACMRRPH1UP.WP) HOD UNITU&TUKPACIQ
TSO FREE-DDUFILENAME)
TSO FREE DO(MRRPHIUP)
MRRPUPH2
14
16
17
332
333
MRRPUPIN
14
16
17
144
145
STRING(S) FOUND
? TSO DSNAME ftTEMP
TSO ALLOC FUFILENAME) DAUTEMP) OLD
TSO ALLOC FCMRRPH2UP) DACMRRPH2UP.UP) MOD UNIT(UTMCPACK)
TSO FREE DDUF1LENAME)
TSO FREE DDACK)
56 TSO FREE DDttFILENAME)
57 TSO FREE DD(MRRPNAUP)
MRRPUPPC
STRING(S) FOUND
14 ? TSO DSNAME (TEMP
16 TSO ALLOC F(tFILENAME) DAUTEMP) OLD
17 TSO ALLOC F(HRRPPCUP) OA(MRRPPCUP.UP) MOD UNIT(&&TUKPACK)
132 TSO FREE DDC&FILENAME)
133 TSO FREE DO(NRRPPCUP)
MRRPUPPU
STRINGCS) FOUND
14 -? TSO DSNAME STEHP
16 TSO ALLOC F((FILENAME) DA(STEMP) OLD
17 TSO ALLOC F(HRRPPUUP) DA(MRRPPUUP.UP) MOD UNIT(UTUKPACK)
47 TSO FREE DDUFILENAME)
48 TSO FREE DD(MRRPPUUP)
MRRPUPPV
STRINGCS) FOUND
14 -? TSO OSNAME &TEMP
16 TSO ALLOC FUFIIENAME) DA(tTEMP) OLD
17 TSO ALLOC FCMRRPPVUP) DA(MRRPPVUP.WP) MOD UNIT(MTUKPACK)
173 TSO FREE DDCtFILENAME)
174 TSO FREE DD(MRRPPVUP)
NRRPUPVI
STRINGCS) FOUND
13 -? TSO DSNAME &TEMP
15 TSO ALLOC FCKFILENAME) DAC&TEMP) OLD
11/52
D-20
RCRIS 4.0.0
-------
RCRIS System Technical Guide
16 TSO ALLOC F(MRRPVIUP) DA(MRRPVIUP.WP) HOD UNIT(UTUCPACK)
_ 121 TSO FREE DD(iFILENAME)
122 TSO FREE DD(MRRPVIUP)
MRRPUTBL STRING(S) FOUND -
126 TSO ISPSTART CMOCMRRPRCAL 4F1)
128 -? TSO DSNAME '&FV
130 TSO FREE DD(IF1LE NAME)
131 TSO ALLOC DDUFILEJIAME) DSNAME('tFI') SKR
HRUPIOR STRINC(S) FOUND -
15 ? TSO ODNANE ISPTLIB
MRUPLMCU STRING(S) FOUND -
37 -? TSO DSMAME 'iFILENAME'
54 TSO ALLOC Ft(lNPUT) OSNC&FILENAME') SHR REUSE
125 TSO FREE FI(INPUT)
M2ULRCRI STRING(S) FOUND
373 -? TSO DDNAME MASTER
380 TSO DELETE '&ACC..&UPDT NAME'
382 TSO COPY '&ACC..UPDTABLE.FOCUS' '4ACC..&UPDT NAME' NONUM
NARRCOMP STRING(S) FOUND
27 TSO ALLOC DONAME(FCPARM) DSHAME(RCRIS.FCPARM.DATA) SHR
28 TSO ALLOC DDNAME(NARREXIT) OSNAME(RCRIS.NARREXIT.FOCTEMP) SNR
34 TSO ALLOC DDNAME(FHP) DSNAME(RCRIS.FMP.OATA) SHR
44 TSO FREE DONAMECFCPARM FMP)
NOACCESS STRING(S) FOUND
35 TSO AILOC F(SYSPRINT) DAtRCRIS.NULL) OLD
PCLDCOMP STRING(S) FOUND
17 TSO ALLOC DD(HOLDPCID) DUMMY
PCLDFDEF STRIKG(S) FOUND
14 TSO FREE ATTRLIST(RECU)
15 TSO FREE DDNAME(LOADUPD)
16 TSO DELETE RCRIS.LOADUPD.DATA
22 TSO ATTRIB REC14 LRECL(K) BLKSIZE(4242) RECFM(F B) DSORG(PS)
23 TSO ALLOC DDUOADUPD) DSN(RCRIS.LOAOUPD.DATA) SP(10,10) TR NEW CAT
25 TSO FREE ATTRLIST(RECU)
28 TSO ALLOC DDUQADUPO) OSCRCRIS.LOADUPD.DATA) OLD REUSE
PCMUOEVC STRING(S) FOUND
72 TSO FREE ODNAME(OFFLINE)
73 TSO ALLOC ODNAME(OFFLINE) DSNAMECRCRIS.fOCUS.OFFLINE) MOD -
80 TSO FREE DDNAME(OFFLINE)
81 TSO ALLOC ODNAME(OFFLINE) DSNAMECRCRtS.FOCUS.OFFLINE) MOD
83 TSO COPY PERMIT OFFLINE
84 TSO FREE DDNAME(PERMIT) DELETE
120 ? TSO DSNAME RCRIS.tOUTFILE
131 TSO FREE ATTRIIST(RC133)
132 TSO FREE DDNAME(OFFLINE)
133 TSO ATTRIB RC133 LRECLC133) BLKSIZE(3990) RECFM(F 6 A) OSORG(PS)
RCRIS 4.0.0 D-21 11/92
-------
RCRIS System Technical Guide
134 TSO ALLOC DD(OFFLINE) DS(RCRIS.SOUTFILE.DATA) -
136 TSO FREE ATTRLIST(RC133)
161 TSO FREE DONAMECPERMIT) DELETE
PCRPCOMP STRINCCS) FOUND
326 TSO ISPSTART CMD(XBATCHRP1 &PGMNAME UDBPROG 8ATCHRP1 UFIL1 UF1L1
PCRPOEV STRINGCS) FOUND
97 TSO FREE ATTRLIST(RC133>
98 TSO FREE DDNAMECOFFLINE)
99 TSO ATTRIB RC133 LRECL(133) BUSIZEC3990) RECFM(F B A) DOSRG(PS)
100 TSO ALLOC DD(OFFLINE) DS(RCRIS.tFILEOUT.DATA) -
102 TSO FREE ATTRLIST(RC133)
110 TSO FREE DONAMECOFFLINE)
111 TSO ALLOC DDMAME(OFFLINE) DSNAMECRCRIS.FOCUS.OFFLINE) MOD -
PCRPDMP1 STRING(S) FOUND
190 TSO ISPSTART CMDCXBATCHRP1 tPGMNAME UOBPROG BATCHRP1 UFIL1 WFIL1 -
PCRPDKP2 STRING(S) FOUND -
161 TSO ISPSTART CMD(XBATCHRP1 &PGMNAME UDBPROG BATCHRPt UF1L1 UF1L1
PCRPMGR1 STRING(S) FOUND
228 TSO FREE DDNAMECPERMIT HOLD)
PCRPMGR2 .STRINGCS) FOUND :
^s
260 TSO FREE DDNAMECPERMIT HOLD)
PCRPMILE -. STRING FOUND --
- 113 TSO ISPSTART CMD(XBATCHRP1 &PGKNAME t&DBPROG BATCHRP1 UFIL1 MFIL1 -
PCRPSELA STRING(S) FOUND
f
191 TSO ISPSTART OffiCXDSCHECK HIRPSEL1 UFUENAME)
193 -? TSO DDNAME DDFILEIN
PCRPSPDR STRING(S) FOUND
817 TSO ISPSTART CMDCX8ATCHRP1 tPGMNAME UDBPROG BATCHRP1 UTEST UDVLP
PCRPSPMS STRINGCS) FOUND
360 TSO ISPSTART CK)(»ATCHRP1 tPGMNAME UDBPROG BATCHRP1 UTEST UDVLP -
PCRPSTDR STRINGCS) FOUND
813 TSO ISPSTART CMDCXBATCHRP1 &PGMNAME UDBPROG BATCHRP1 UTEST UDVLP -
11/92 D-22 RCRIS 4.0.0
-------
RCRIS System Technical Guide
IPS ID
72
73
179
180
217
218
tonnn
e.
TSO
TSO
TSO
TSO
TSO
TSO
1
FREE
FREE
FREE
FREE
FREE
FREE
DDCRC1A1)
DDCRC1A4A)
PDCRC1A1)
DDCRC1A4A)
DDCRC1A1)
DDCRC1A4A)
STRING(S) FOUND
STRI»I6
-------
RCRIS System Technical Guide
145 ISO FREE
146 ISO ALLOC
208 ISO FREE
209 * TSO DELETE
210 TSO DELETE
PNRPSEL1
ODMAME(PASS)
DDNAME(PASS) DSNAMECRCRIS.PASS.DATA) SHR
DDNAMECACTION PASS}
RCRIS.ACTION.DATA
RCRIS.PASS.DATA
STRING(S) FOUND
153 ? TSO DSMAHE 4F RENAME
155 TSO FREE OONAME(DDFILEIN)
157 TSO ALLOC F(DDFILEIM) DAC&FILENAME) SKR REUSE
PNUPINRE
46
65
66
67
69
70
71
75
75
77
79
82
PR1NTFIL
STRIKG(S) FOUND
? TSO DSNAHE ^FILENAME
TSO ALLOC DDNANEUMPOFliE) DSNANE(&FILENAME) SHR REUSE
TSO FREE ATTRLISTCR133)
TSO FREE DDNAME(NOREC ERREC FOREC)
TSO DELETE RCRIS.NOREC.DATA
TSO DELETE RCRIS.ERREC.DATA
TSO DELETE RCRIS.FOREC.DATA
TSO ATTRIB R133 LRECL(133) BLKSI2E(3990) RECFHCF B) DSORG(PS)
TSO ALLOC DD(NOREC) DS(RCRIS.NOREC.DATA) SP(20,S)TR NEU CAT REL
TSO ALLOC DD(ERREC) DS(RCRIS.ERREC.DATA) SP(20.5)TR NEW CAT REL
TSO ALLOC OD(FOREC) DS(RCRIS.FOREC.DATA) SP(20,5)TR NEU CAT REL
TSO FREE ATTRLIST(R133)
STRIKG(S) FOUND
43 TSO UPRINTO* FOCUS.OFFLINE UOX -
47 TSO ISPSTART OtKXLONGOEST 4DEST UOX (COPIES)
PRINTOFF
2
3
4
5
6
7
8
PRNDEST1
84
91
STRING(S) FOUND
TSO FREE DD(OFFLINE)
TSO FREE ATTRLIST(ATI)
TSO ATTR AT1 BLKSIZE(3990) LRECLC133) DSORG(PS) RECFMCF B)
TSO UPRINTCMD FOCUS.OFFLINE (BOX DEST(U)EST) CO(tCOPlES) CLASS(ftCL) ASA
TSO ALLOC DD(OFFLINE) OACFOCUS.OFFLINE) UNIT(SYSDA) OLD
TSO FREE DD(OFFLINE) DELETE
TSO ALLOC DO(OFFLINE) OSNCFOCUS.OFFLINE) USING(ATl) NEU CATALOG -
TSO FREE DD(PRN2PRNT)
TSO FREE DD(PRNZFILE)
PRNDEST2
STRING(S) FOUND
STRING(S) FOUND
14 ? TSO DONAME PRN2PRNT
16 -? TSO DDNAHE PRN2FILE
19 TSO ISPSTART MXXPRNDEST UEST)
PROFFREE
9 TSO
10 TSO
11 TSO
12 TSO
13 TSO
14 TSO
15 TSO
16 TSO
17 TSO
STRINGCS) FOUND
FREE DDHAHE(AGHDES AREADES CAAREA CACONST CAINST CEENFOR)
FREE DDNAHE(CEEVAL CETICK CEVIOL COMHTMNT CONSTCD CONTROL DEFAULTS)
FREE DDHANE(EPATHRD EREADES ETENPLAT EVENT GENIND IORAUDIT)
FREE DDNAME(HANDLER1 HANDLER2 IORTABLE MERGE HOUTABLE NAME OUNRTYPE)
FREE DDNAMECPERMPROJ PERMTYPE PESTATUS PEVENT PMCOMM1T)
FREE DDNAMECPROCCODE PUNIT RCRADDSC RCRAGDSC RCRASTAT RCRATDSC)
FREE DONAMECREMEDYCD RTYPDES SECURITY STATELST)
FREE DDNAME(SPECPROC SPECUOM SPEPECDE SUMMARY UOMTYPE)
FREE DDNAME(UPDTABLE VASTECDE UUGHTYPE UCALC)
11/92
D-24
RCRIS 4.0.0
-------
RCRIS System Technical Guide
PROFILSG STR1NGCS) FOUND
69 ISO FREE-DD(OFFLINE)
PROFILSU STRINGCS) FOUND
123 ISO FREE DD(OFFLINE)
PRORCRIS STRINC(S) FOUND
61 -? TSO DSNAME RCRIS.RCRISPAR.DATA
72 TSO ALLOC FILE(RCRISPAR) DSNAME(RCRIS.RCRISPAR.DATA) SHR REUSE
RCRA STRINC(S) FOUND
88 TSO ALLOC DDNANE(HOLDPCID) UKIT(UTUKPACK) SPACEC1) TRACK -
265 ? TSO DSNAME RCRIS.LOADUPO.OATA
269 TSO DELETE RCRIS.LOADUPO.OATA
421 -? TSO DSNAME RCRIS.UNIVPASS.DATA
424 TSO DELETE RCRIS.UNIVPASS.DATA
428 TSO FREE ATTRLIST(RH)
429 TSO ATTRIB R14 LRECLCU) BLKSIZEC23464) RECFH(F B) DSORG(PS)
430 TSO ALLOC 00CUMIVPASS) DSCRCRIS.UN1VPASS.DATA) TR NEW CAT US(R14)
432 TSO FREE ATTRLIST(RU)
438 TSO ALLOC DDNAME(UNIVPASS) DSNAME(RCRIS.UNfVPASS.DATA) MOO REUSE
445 -? TSO DSNAME 'SFIID'
447 TSO FREE ATTRLIST(R80>
448 TSO ATTRIB R80 LRECLC80) BLKSIZEC23440) RECFMCF B) DSORG(PS)
449 TSO ALLOC DD(UCALC) DSC'SFIID')
451 TSO FREE ATTRLISTCR80)
454 TSO ALLOC ODNAKECUCALC) DSNAMEC&FIID') SHR REUSE
459 TSO ALLOC DONAME
-------
RCRIS System Technical Guide
447
448
449
450
453
458
459
468
482
sor
508
524
528
RCRADCRP
ISO FREE DDNAHECUCALC)
TSO ATTRIB R80 LRECLC80) BLKSIZEC4240) RECFMCF B) DSORGCPS)
ISO ALLOC DDCUCALC) OSC'tFIID') SP(5,5) TR NEU CAT USCR80)
TSO FREE ATTRIIST(RSO)
TSO ALLOC OONAMECUCALC) DSNAMEC'iFIlD') SHR REUSE
TSO FREE ODHAME(UCALC)
TSO ALLOC DONAMECUCALC) DSNAMEC'SFIID') SHR
-? TSO DSNAME RCRIS.UNIVPASS.OATA
TSO CLR3270
TSO FREE DONAMECUNIVPASS)
TSO DELETE RCRIS.UNIVPASS.OATA
-? TSO DSNAME RCRIS.LOADUPD.DATA
TSO DELETE RCRIS.LOADUPD.DATA
STRING(S) FOUND
32
33
34
35
189
193
367
369
370
374
375
376
378
384
390
392
393
394
395
397
400
405
406
415
454
455
471
475
RCRISTAL
19
20
21
22
23
25
64
65
101
144
145
146
147
148
150
TSO FREE ODNAMECHOLDPCID) ATTRLIST(PCIDATTR)
TSO DELETE HOLDPCID.DATA
TSO ATTRIB PCIDATTR LRECK14) BLKSIZEC140) DSORG(PS) RECFMCF B)
TSO ALLOC DD(HOLOPCID) DS(HOLDPCID.DATA) SP(1,1> TR NEU CAT US(PCIOATTR)
-? TSO DSNAME RCRIS.LOADUPD.DATA
TSO DELETE RCRIS.LOADUPD.DATA
1 TSO DSKANE RCRIS.UNIVPASS.DATA
TSO FREE DDNAME(UMIVPASS)
TSO DELETE RCRIS.UNIVPASS.DATA
TSO FREE ATTRL1STCR14)
TSO ATTRIB R14 LRECL(H) BLKSIZE(4242) RECFMCF B) DSORCCPS)
TSO ALLOC OD(UNIVPASS) D$(RCRIS.UMIVPAS$.DATA)SP(5,S) TR NEW CAT -
TSO FREE ATTRLISTCR14)
TSO ALLOC DDNAME(UNIVPASS) DSMAME
-------
RCRIS System Technical Guide
RCRISTA2
16
17
43
44
S3
54
STRINCCS) FOUND
ISO
TSO
ISO
TSO
TSO
TSO
FREE
ALLOC
FREE
ALLOC
FREE
ALLOC
DONAME(RCRISPAR)
DDNAMEfRCRISPAR) DSNANE(RCRIS.RCRISPAR.DATA) SHR
DONAMECPROFILE)
OONAME(PROFILE) DSNAME(RCRIS.PROFILE.DATA) MOO *
DDNAME(PROFILE)
DDNAHE(PROFILE) DSNAME(RCRIS.PROFILE.DATA) SHR
REBUILD
18
26
28
36
57
STRING(S) FOUND
TSO CLEAR
TSO CLEAR
TSO. CLEAR
TSO CLEAR
TSO CLEAR
RLOAD
4
17
18
59
60
61
STRING(S) FOUND
-? TSO DDNAME MASTER
TSO FREE DDNAME (MANE)
TSO ALLOC ODNAME(&NAME) DSNAMEC'WCC..RCRIS.tNAME...DATA') SHR
TSO FREE DDNAHE(STATECOO)
TSO FREE DDNAME(STATEC02)
TSO FREE DDNAME(STATEC03)
SORTINDX
1 TSO
2 TSO
3 TSO
4 TSO
5 TSO
6 TSO
7 TSO
8 TSO
9 TSO
10 TSO
11 TSO
TTSVFLE
STRING(S) FOUND
FREE F(SORTIN SORTOUT SORTWK01 SORTUK02 SORTMC03)
FREE FCSORTWKOA SORTUKOS SORTUK06)
ALLOC F(SORTIN) SP(5,5) TRACKS
ALLOC FCSORTUKOD SPCS.S) TRACKS
ALLOC F(SORTWK02) SPC5.5) TRACKS
ALLOC F(SORTUK03) SP<5,5) TRACKS
ALLOC F(SORTUK04> SP(5,S4 TRACKS
ALLOC F(SORTUKOS) SP(5,5) TRACKS
ALLOC F,(SORTWK06) SP(5,5) TRACKS
ALLOC F(SORTOUT) SPCS.5) TRACKS
ALLOC F(SYSOUT) DA(">
STRING(S) FOUND
51 -? TSO DONAME SDDNAME
58 TSO ISPSTART CMD(XFILECOPY UONAME
60 TSO FREE DSC&OSNAME'
RCRIS 4.0.0
D-27
11/92
-------
-------
RCRIS System Technical Guide
APPENDIX E GENERAL NAMING CONVENTION FOR FOCEXEC FILES
RCRIS program names generally follow a naming convention where the first two letters denote
the module to which the program pertains, the next two letters denote the program's function,
and the remaining characters give an extremely brief description.
Module
CA Corrective Action
CM Compliance Monitoring & Enforcement
DA Data Assessment
DB DBA Programs
FC Narratives
FI FOIA Reports
FM Facility Management Planning
H Handler Identification
IS Installation Utilities
MR Merge
PC Permitting/Closure/Post-Closure
PM Program Management
Function
AD Add
CH Change ID
CI Delete ID
DE Delete
ED Edit
FM Informed Forms
LD .Load
MU Menu
RP Report
UL Unload (Extract)
UP Update
For example: PMDEEVNT would be the Program Management FOCEXEC to delete Events.
Please note that these rules are general. For various reasons, there are exceptions to these
naming conventions.
RCRIS 4.0.0
11/92
-------
-------
RCRIS System Technical Guide
APPENDIX F - List of Programs
RCRS. RCRIS. CLXST
MEMBERS
ACCEPT
ACCOUNT
*ALERTS
BATCHRP1
BATCHRP3
BATCHSUB
*BATUCALC
CALFOCUS
CARSARCH
CARSDEAR
**CMESTAR
CNEXCARS
*CNLDCARS
*CNLDCMEE
*CNLDHAND
CNLDPERM
CNMULOAD
CNMUMAIN
CNPCLOAD
CONVERT
CONVLOCP
CONVUTIL
COPYCOMP
*COPYFILE
*COPYSOFT
*COPYTABL
COPYTBOP
*COPYUSUP
CREATETB
CREATET2
CRESTTBL
IDBAMAIN
DBAREBLD
DOCJOB
DSCHECK
EDITOR
*EMERG211
*FFALLOC
**FFALLO2
FFBACKUP
*FFCOPY
FFCOPY1
FFDELBKP
FFDELETE
FFREALOC
*FFREAL02
FFREPDEL
*FFRESTOR
*FILECOPY
*FILETRAN
GDOOC
GDDOCJOB
6DEPXSPF
GDRDOCS
GOREP
GDRMAIN
GDRMENU
GDRDSER
GDVGET
HEAD
INITBDT
INSTALL
**INSTALL
*INSTALLS
*INSTALLK
INSTALLO
*INSTREG
IORFCOPY
ibRFDEL
ISCHGCPY
"ISDBMAIN
ISDBMRGE
ISDBREG
ISUPFOCI
*ISUPFOC2
ISUPINST
ISUPI201
JOBEND
KEEPDBS
KHDBSET
LONGDEST
*MAKETAPE
MBACKUP
MBACKDP2
MDBSLDBT
MDBSLDCP
MDELETE
*MERGPRO-
MODEEXEC
MODEPCPY
MODESCPY
MOUFCOPY
MOUFDEL
MOUINIT
KRCRGDG
MRCYCLE2
MRDBUTI2
MRESTORE
KREXTRA2
MRFFUTIL
MRPOP
MRPRECK
MRPRELD
MRPRERU
MRRCGDG
MRREBILD
MRRPRCAL
MRRPSTLS
MRSTDELS
KRSTLIST
*MRUPDAT2
*MRUPDT
MRXTRCT
NEWHAND1
NEWHAND2
NEWRCRIS
/NRCRIS
OHNRLIST
PASTFILE
PMDEARCH
PRDOC
PREPARE
PREPISPF
PRINTDOC
PRNDEST
PROGCOMP
PROGCOPY
PRTDEST
RBDTEMEH
RCRCPYCG
RCRCPYFL
*RCRCPYSW
RCRDOC
RCRDOCS
RCREP
RCRIBMCG
RCRIBMFL
RCRINIT
RCRIORTB
RCRIORT2
*RCRIS
RCRISDWN
RCRISREG
*RCRISSU
*RCRISVJ
RCRMEMDC
RCRMEMDP
RCRMENU
RCRMOUTB
*RCRNIBCG
*RCRNIBFL
RCRSMAIN
RCRSMAVJ
RCRSUSER
RCRSXVER
RCRUSER
RCRXMTCG
RCRXMTFL
READVAR
*REBUILD
REPORTS
RLINQISH
RSET
SUATUOP
SOAUTOP
SUADTOS
SUBMIT .
SUMAIN
SUMODE
*SUPRO
SUPR01
SURCRIS
SUREBILD
SUSTART
SUSTART1
SUSTART2
SUSTATUS
SUSTAT1
SUSTOP
SUSTOP1
SUSTTASK
SYNC .
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-l
11/92
-------
RCRIS System Technical Guide
S2KARCH
TAPEPRO
*TESTBASE
TESTLA
TSTDBCPY
TSTDBDEL
TSTDBPNL
TSTSWCPY
USRALERT
VGET
WELCOME
RCRS.RCRIS.CNTL
MEMBERS
BDTAFOC
BDTCFOC
BDTFOC
BDTHFOC
BDTPFOC
CCME
CCNTS
CCOMP
CHID
COMPCOBL
COMPPLEX
COPYSOFT
CPMT
DSK2TAPE
ECME
ECMEOLD
EDITJCL
EHID
EPMT
EXTRDATA
HCOMP
MRCNGDG
MRLDRCRI
MRLDRCR2
RCRS.RCRIS.FOCCOMP.DATA
MEMBERS
CAUPAREA
*CAUPCONS
*CAOPBVNT
*CAUPZNST
*CAUPISLK
*CAUPUPDT
CMDEAGCY
*CMDEAREA
*CMDEENFO
-*CMDEEVAL
CMDEREAS
*CMDEREGT
CMDEVIOL
*CMEUNIV
*CMUPAGCY
CMUPAREA .
*CMUPENFO
*CMUPEVAL
*CMUPLINK
*CMUPREAS
CMUPREGT
*CMUPTICK
*CMUPVIOL
DBDEETMP
*DBDENAM£
DBDETYPE
DBUPCONS
*DBUPETMP
DBUPNAME
*DBUPREM
*DBUPRESP
*DBUPTYPE
FCDENARR
*FCLDASC2
FCLDASC3
FCUPNARR
*FMADCME
FMADFMP
*FMADINFO
*FMDEEVNT
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
MRLDRCR3
MRRNGDG
MRULRCRI
MRULRCR2
OPTECME
PCOMP
RCRBDTDB
RCRBDTLD
RCRBDTSW
RCRMARCH
RCRTPCCG
RCRTPCDB
RCRTPCSW
*FMDEINFO
*FMUPCAF
*FMUPINFO
*FMUPPMT
*HCNTACTC
*HCNTACTD
*HDUPUMIV
*HNDEL
*HOTHELMC
*HOTHELMD
*HOWNDEL
*HPDEL
HPERMAOD
HPERMDEL
*HPROCADD
*HPROCDEL
HRECDATD
*HSICADD
HUNITC
*HUNITD
*HUPNOTIF
RCRTPLCG
RCRTPLDB
RCRTPLSW
RCRUPREG
SNAPREST
SNAPRES2
SUSTTASK
SUTABLE
TAPE1
TEMPI
TEMP2
*HUPPARTA
*HVHHOTIF
*HVWPARTA
HWCHARC
HWCHARD
*HWCODEAD
HWCODEDL
PCDEPEST
PCDEPJDE
*PCDEPROC
PCDEUNIT
PCUPEUPD
PCUPLUPD
*PCUPPEST
"PCUPPJAD
PCUPOWIT
PCUPUPOT
*PCUPUSPL
*PCUPUUPD
*PCVWEUPD
PMADUNIV
11/92
F-2
RCRIS 4.0.0
-------
RCRIS System Technical Guide
*PMDECARE
*PMDECOMM ,
PMDBENRE
"*PMDEEVNT
PMDEEVRE
PMDEPCRE
PMDEPMRE . .
PMHLINKM
PMSELECT
PMUPCARE
PMOPCOMM
*PMOPENRE
PMOPEVNT
PMOPEVRE
PMUPPCRE
PMOPPMRE
RCRS.RCRIS.FOCEZEC.DATA
MEMBERS CARPEVN1 CARPSPL2 CARPS2C1
CARPHDR1 CARPSPL3 CARPS2C2
ALLOACTS CARPHDR2 CARPSPL4 CARPS2ER
BACKDOOR CARPHD1 CARPSPLS CARPS2ES
BATUCALC CARPHD2 *CARPSPMS CARPS2L1
BDMUCALC CARPIF4 CARPSPM1 CARPS2L2
CACLEAN CARPIF5 CARPSPM2 CARPS2M1
CACOMME **CARPXF9A CARPSPM3 CARPS2M2
CACOMPIL **CARPIE9B CARPSPM4 CARPS3ER
CACTIVIT *CARPINFF CARPSPM5 **CARPS3ES
CADEAREA *CARPINS1 CARPSPM6 **CARPS3L1
CADECONS CARPL1NK CARPSPM7 **CARPS3L2
CADEEVNT CARPLIST CARPSP90 **CARPS3L3
CADEINST -- CARPMS6 . CARPSTAR **CARPS3L4
CAMUMAIN CARPMSG2 CARPSTSP **CARPS3M1
CAMUNEW *CARPPAST CARPS1C1 **CARPS3M2
CARPARE1 CARPPAS1 CARPS1C2 **CARPS3M3
CARPASMT **CARPPG09 CARPS1C3 *«CARPS3M4
CARPCCMP CARPSELE CARPS1C4 CARPTEX1
CARPCOMP CARPSEL1 CARPS1C5 CARPUNIV
CARPCONS CARPSEL2 CARPS1ER CARP0005
CARPCON1 CARPSEL3 CARPS1ES CARP0006
--CARPDEC1 CARPSEL4 CARPS1L1 CARP0007
CARPDEF1 CARPSEL5 CARPS1L2 CAOPAREA
CARPDET1 CARPSEL6 CARPS1L3 CAUPCONS
CARPDET2 CARPSEL7 CARPS1L4 *CAUPEVKT
' CARPDEV CARPSEL8 CARPS1L5 *CAOPINST
CARPDEV1 **CARPSEL9 CARPS1M1 *CAOPISLK
CARPDEV2 CARPSPDV CARPS1M2 CAUPUPDT
CARPDUE . CARPSPER CARPS1M3 CDEVICE
CARPDUE1 CARPSPES CARPS1M4 CEEVAL
CARPD001 CARPSPL1 CARPS1M5 CESEL
Explanation of member prefixes:
# Member deleted in this release
** . Member added in this release
* Member changed in this release
RCRIS 4.0.0 F-3 11/92
-------
RCRIS System Technical Guide
CES1LHZ
CEXTRACT
CFIELD
CFIBLD1
CFIELD2
CFIELD3
CFIELD4
CFORM
CHECK
CHECK2
CHECK3
CHCVIOL1
CHGVIOL2
CHKACCES
CHKACCE2
*CHKACCXS
CHKACCX2
CMDEAGCY
CMDEAREA
CMDEENFO
*CMDEEVAL
CMDEPTRS
CMDEREAS
CMDEREGT
CMDEVIOL
CMEASSES
CMECOMP
CMEUNIV
CMFHENFO
CMFMEVAL
CMFMEV1
CMFMEV2
CMFMEV3
CMFMEV4
CMFMEV5
CMFMEV6
CMFULREG
CMHEADIN
CMHESUMY
CMLD1
CMLD1A
CMLD1B
CMLD1C
CMLD2
CMLD2B
CMLD3
CMLD3A
CHMUDAMU
CMMUGENL
*CKMUMAIN
*CMMUREPM
. CMRPAACT
CMRPAGCY
CMRPAREA
*CMRPBAT
CMRPCOMP
CMRPCONT
"CMRPDADR
CMRPDEV1
CMRPD001
CMRPD002
CMRPD003
CMRPD004
CMRPD005
*CMRPENNO
+CMRPENNV
**CMRPEOYR
CMRPEVNO
CMRPEVNV
**CMRPFMAN
CMRPFOIA
CMRPFOI1
CMRPFOI2
CMRPGENL
*CMRPHD1
CMRPHD2
*CMRPHIST
CMRPHIS2
CHRPMENF
CMRPMINS
CMRPPOST
CMRPREAS
CMRPREDE
, CMRPREGT
CMRPSEL
CHRPSELO
CMRPSEL1
CHRPSEL2
CMRPSEL3
CMRPSEL4
CMRPSEL5
CMRPSEL6
CHRPSEL7
CMRPSEL8
CMRPSEL9
CMRPSE11
CHRPSE12
CMRPSE13
CMRPSE14
CHRPSE1S
CMRPSE16
CMRPSHRI
CMRPSMRR
CMRPSPDV
CMRPSPER
CMRPSPES
CMRPSPLC
CHRPSPLO
CMRPSPL1
CMRPSPL2
CMRPSPL3
CMRPSPL4
CMRPSPL5
*CMRPSPMS
CMRPSPMO
CMRPSPM1
CHRPSPM2
CMRPSPM3
CMRPSPM4
CHRPSPH5
CMRPSPM6
CMRPSPM7
CHRPSPRO
CMRPSPR1
CMRPSPR2
CMRPSPR3
CMRPSPR4
CMRPSPR5
CMRPSPR6
CMRPSPR7
CMRPSPR8
CHRPSPR9
*CMRPSTAR
CMRPSTSP
CMRPSTUP
CMRPSVAR
CMRPS1C1
CHRPS1ER
CMRPS1ES
CMRPS1LO
CHRPS1L1
CHRPS1L2
CMRPS1L3
CMRPS1L4
CMRPS1L5
CHRPS1MO
CHRPS1H1
CHRPS1H2
CHRPS1H3
CMRPS1M4
CMRPS1H5
CMRPS2C2
CHRPS2ER
CMRPS2ES
CMRPS2LO
CMRPS2L1
CMRPS2L2
CMRPS2L3
CMRPS2L4
CMRPS2MO
CMRPS2M1
CMRPS2M2
CMRPS2M3
CMRPS2M4
**CMRPS3ER
**CMRPS3ES
**CMRPS3LO
**CMRPS3L1
**CMRPS3L2
**CMRPS3L3
**CMRPS3L4
**CMRPS3L5
**CMRPS3MO
**CMRPS3M1
**CMRPS3M2
**CMRPS3M3
**CMRPS3M4
**CMRPS3M5
CMRPTADE
CMRPTAMV
CMRPTASP
*CMRPTGIN
*CMRPTICK
CMRPTNDA
CMRPUNV1
CMRPUNV2
CMRPUNV3
CMRPUNV4
CMRPUNV5
CMRPUNV6
*CMRPUNV7
CMRPUNV8
CMRPUKV9
CMRPUN10
CKRPUN11
CMRPUN12
CMRPUN13
CMRPUN14
CMRPUN15
*CMRPUH16
CMRPUN17
CMRPUN18
CMRPON19
CMRPVIEN
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
11/92
F-4
RCRIS 4.0.0
-------
RCRIS System Technical Guide
CHRPVZNO
*CMRPVNEN
*CMRPVNEV
CMUPAGCY
CMUFAREA
CMUPENFO
*CMUP£VAL
*CMUPLINK
CMUPREAS
CMUPREGT
*CMUPTICK
*CMUPVIOL
CNEWVI02
CNEWVI03
CNRPSTAT
COMPALL
CONTROLl
CONTROL2
CONVERT
CRPTENF1
CRPTENF2
CRPTEVA1
CRPTEVA2
CRPTBVA3
CRPTEVA4
CRPTEVA5
CSBLECT
CUTIL10
CUTIL11
CUTIL12
CTJTII.13
CUTIL14
CUTIL15
CUTII.7
' CUTIL8
CUTIL9
CVAREA
CVCARTE
CVCOMMEN
CVEVENT
CVINST
CVREPORT
*DAKUMAIN
DARPPTOT
DBACOMP
DBCHIDEA
*DBCHIDEV
*DBCHIDE1
*DBCHIDPA
DBCHIDPM
*DBCHIDSA
DBCHIDSM
*DBCHIDS1
OBCHZ8PA
' DBDEETMP
DBDENAME
**DBDESTDS
DBDBTYPE
DBHCHGID
*DBHNDEL
DBHNDEL2
*DBHNDPM
DBHNDPU
*DBMUMAIN
DBMUMAIX
DBRPBRK1
M3BRPCONS
DBRPDEV
DBRPETMP
DBRPHEAD
DBRPIF01
DBRPNAME
DBRPPG01
DBRPREM
DBRPSECU
DBRPSECX
DBRPSEL1
DBRPSRT1
**DBRPSTDS
DBRPTYPE
DBUPCONS
DBUPETMP
DBUPNAME
DBUPREM
DBUPRESP
DBUPSECU
*DBUPSECX
**DBUPSTDS
DBUPTYPE
DELHIDS
DELNOTYP
DELNULEN
DELNULEV
DELNUIX
DETHHAND
DETHUNIV
DEVICE
DSCHECK
DUP
OUP2
EDITOR
ENCRYPT
EVENT
FCDENARR
FCLDASC1
FCLDASC2
FCLDASC3
FCHUMAIN
FCRPNARR
FCUPNARR
FFA1
FFA2
FFA3
*FFA4
FFAS
FFA6
FFA7
FFA8
*FFC1
FFC2
*FFC3
FFC4
FFC5
FFC6
FFC7
**FFC8
FFHA
FFHB
FFHC
FFHD
FFHE '
FFHF
FFHN
FFH1
FFH2
FFH3
FFH4
FFH5
FFH6
FFH7
FFH8
FFH9
FFM1
FFM2
FFP1
PPP2
FFP3
FFP4
FILPRINT
*FIMUBAT
*FIMUDRIV
FIMUINIT
FIHUOBAT
*FIRPIOOO
FIRPI002
FIRPI008
*FIRPI010
FIRPI015
*FIRPI030
*FIRPI032
*FIRPI034
*FIRPI036
FIRPI038
FIRPI050
*FIRPIOS2
*FIRPI054
FIRPI056
FIRPI058
*FIRPI070
FIRPI072
*FIRPI074
*FIRPI076
FIRPI078
*FIRPI100
*FIRPI102
FIRPI108
*FIRPI120
*FIRPI122
FIRPI700
*FIRPI702
*FIRPI920
FIRPI922
FIRPI940
*FIRPI942
FMADCME
FMADFMP
FMADINFO
FMDEEVNT
FMDEINFO
FMDENARR
FMKUMAIN
FMPCOMP
FMRPAUDT
FHRPDFMP
FMRPESCH
FMRPETAB
FMRPHLST
FMRPMLST
FHRPNAME
FMRPPEND
FMRPHORK
FMUPCAF
FMUPINFO
FMUPPMT
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-5
11/92
-------
RCRIS System Technical Guide
*FRONTEND
FRONTEN2
FRONTEVJ
GLOBAL
HANDCOMP
HANDLER
HANDLERl
HANDLER2
HANDLER3
HANOLER4
HANDLERS
HANDLERS
HANDLER?
HANDLERS
HANDLERS
HANDRPT
HBURNRPT
HCAPACTY
HCAP1
*HCCIDCNA
*HCCIDCN1
HCCIDCN2
*HCCIDCRA
*HCCIDCR1
*HCCIDCR2
*HCCIDCTA
HCCZDCT1
HCCXDCT2
HCCZDENA
HCCIDEN1
HCCIDEN2
*HCCXDEVA
*HCCIDEV1
HCCIDEV2
*HCCIDPOA
*HCCZDPU1
*HCCIDP02
*HCCIDPVA
*HCCZDPV1
HCCIDPV2
*HCCIDTKA
*HCCIDTK1
HCCIDTK2
*HCCIDVIA
HCCIDVI1
*HCCZDVI2
HCHGID
*HCHGIDA
HCHGIDB
*HCHGID1
*HCHGID2
*HCHGID3
*HCHGID4
*HCNTACTC
"HCNTACTD
HCOMP
HDUPUNIV
HFDEFCLR
HFILEDEF
HZDFIXP
HZDFIXW
HZDLD1
HZDLD10
HZDLD10A
HIDLD11
HIDLD12
HIDLD2
HIDLD3
HIDLD4
HIDLDS
HIDLD6
HIDL07
HIDLDS
HIDLD9
HINSPECT
HIRPACK
HIRPACKF
HIRPACT
HZRPCALC
HIRPCP01
HIRPDEF1
HIRPDEF2
HXRPDEV
HIR-PD001
HXRPD002
HZRPD003
HZRPD004
HZRPD005
HZRPD006
HIRPD007
HIRPD008
HZRPD009
HIRPHDR1
HZRPHDR2
HZRPZF01
HZRPLAB
HZRPLAB1
HIRPLET
HZRPMSG1
HZRPMSG2
HZRPMSG3
HZRPPG01
HZRPPG02
HZRPPG03
HZRPPG04
HZRPPG05
HIRPSEL1
HZRPSEL2
HZRPSEL3
HZRPSEL4
HZRPSEL5
HIRPTSDU
HIRPUNZV
HLABEL
HLETTER
HNDEL
HONELINE
*HOTHELMC
HOTHELMD
*HOWNDEL
HPCADD
HPCDEL
HPDEL
*HPERHADD
HPERMDEL
HPROCADD
*HPROCDEL
HPTADD
HPTDEL
HPUADO
HPUDEL
*HRECDATJ}
HREPGEN
HSZCADD
HSTORTRT
*HUNZTC
*HUNZTD
*HUPNOTZF
*HUPPARTA
HUTADD
HUTDEL
**HVPARTA
*HVWNOTZF
HVWPARTA
HWCADD
HWCDEL
*HWCHARC
*HWCHARD
*HWCX>DEAD
HWCODEDL
INITSYNC
*ZORCONT
ZORCONT2
ZOREXTRT
ZORLOAD
ZORRP
ZSDEETMP
ZSTPROF
*ISUPADES
ZSUPAGCY
*ISUPCARB
ISUPCAR1
**ZSUPCZRB
ISUPCNRB
ISUPCOMT
**ZSUPCTRB
**ZSUPCVRB
ZSUPEAGY
ISUPEAG1
ZSUPECON
**ISUPELRB
**ISUPENRB
ISUPEPRA
ZSUPETMP
*ZSUPEVRB
ZSUPEVR1
ZSUPHCOT
ZSOPHCO1
ZSUPHCTY
ISUPHCT2
ZSUPHTSD
*ISUPH1RB
ISUPH1R1
ISUPH2RB
ZSUPH2R1
ISUPINST
ISUPIORP
ISUPKHDB
*ISUPMAIN
**ISUPMAIX
*ZSUPMAI2
*ISUPMAI3
ISUPMOUT
ISUPMTRG
ISUPMTVS
ISUPM201
ISUPM210
ISUPM211
ZSUPM212
ISUPPKEY
*ISUPPMRB
ZSUPPMR1
ZSUPPM01
ZSUPPROC
Explanation of member prefixes:
# Member deleted in this release
Member added in this release
Member changed in this release
**
11/92
F-6
RCRIS 4.0.0
-------
RCRIS System Technical Guide
ISUPPSEQ
*ZSUPPURB
ISUPPUR1
ZSUPPVRB
ISUPPVR1
**ZSUPP190
ISUPP205
»*ZSUPP302
ZSUPREDO
ISUPREG
**ISUPRPER
ISUPSCON
**ISUPSDEP
*ISOPSDES
ISUPSECU
ISUPSICC
ZSUPSPEP
ISUPSPRO
ISUPSTAR
*ZSUPSfAT
ISDPSUOM
ISUPUOM
ISUPV200
ISUPV211
ISUPWCUP
ISUPWPDT
ZSU2P205
LOADCARS
LOADCEEN
LOADCEEV
LOADCME
LOADHID
LOADIT
LOADNEW
LOADNEW2
LOADPMT
LOADRMV
LOADRMVA
LOADRMVB
LOADRMV2
MERGE
MERGE2
MOREPERM
MRADCNTR
MRBRCF
MRBRZOR
*MRCRCF
MRCREATE
MRCRMOU
MRCRUSE
MRDECAAR
MRDECACO
MRDECAIN
MRDECEEN
MRDECEEV
MRDECEPE
MRDECEVI
MRDEEVEN
MRDEHAND
MRDEMOUT
MRDEPEVE
MRDEPMCO
MREDALLC
MREDA1ZK
MREDA2IN
MREDA3IN
MREOA6ZN
MREDCLER
MREDC1IN
MREDC4IN
MREDC7IN
MREDC9IN
MREDDLAR
MREDDLCN
MREDDLDP
MREDDLEL
MREDDLEN
MREDDLEV
MREDDL7T
MREDDLH1
MREDDLH2
MREDDLIN
MREDDLPE
MREODLPM
MREDDLPU
MREDDLPV
MREDDLVI
MREDDOS1
MREDEPAE
HREDHANO
MREDHEZN
MREOH4ZN
MREDHSZN
MREDH6ZN
MREDH7ZN
MREDH9IN
MREDITER
HREDJOZN
MREDLOFT
KREDLDTF
MREDLOAD
MREDMAIN
MREDM1IN
MREDPROC
MREDP1IN
MREDP2ZN
MREDP4ZN
MREDRP01
MREDTS01
MREDULFT
MRED0001
MRED0002
MRED0003
MRE00004
MRE00005
MRED0006
MRED0007
MRED0008
MRED0009
MRED0010
MRED0011
MRED0012
MRED0013
MRED0014
MRED0015
MRED0016
MRED0017
MRED0018
MRED0019
MRED0020
MRED0021
MRED0022
*MRED0023
MRED0024
MRED0025
MRE00026
KRED0027
MRED0028
MRED0029
MRE00030
MRED0031
MRED0032
MRED0033
MRE00034
MRED0035
MRED0036
MRED0037
MRED0038
MRE00039
MRED0040
MRED0041
MRED0042
MRBO0043
MRED0044
MRED0045
MRED0046
MRED0047
MRE00048
MRED0049
MRED0050
MRED0051
MRED0052
MRED0053
MRED0054
MRED005S
MRED0056
MRED0057
MRED0058
MREO0059
MRE00060
MRED0061
MRED0062
MRE00063
MRED0064
MRED0065
MRED0066
MRED0067
MRED0068
MRED0069
MRED0070
MRED0071
MRED0072
MRED0073
MRE00074
MRED0075
MRED0076
MRED0077
MRED0078
MRED0079
MRED0080
MRED0081
MRED0082
MRED0083
MRED0084
MRED0085
MRED0086
MRED0087
MRED0088
MRED0089
MRED0090
MREO0091
MRED0092
MRED0093
MRED0094
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-7
11/92
-------
RCRIS System Technical Guide
MRED0095
MRED0096
MREO0097
MRED0098
MRED0099
MRED0100
MRED0101
MRED0102
HRED0103
MRED0104
MRED0105
MHED0106
MRED0107
MRED0108
MRED0109
MRED0110
MRED0111
MRED0112
MRED0113
MRED0114
MRED0115
MRED0116
MRED0117
HRED0118
MRED0119
HRED0120
MRED0121
MRED0122
MRED0123
MRED0124
MRED0125
MWED0126
MRED0127
MRED0128
MRED0129
MRED0130
MRED0131
HRED0132
MRED0133
MRED0134
MRED0135
MRED0136
MRED0137
MRED0138
MHE00139
MHED0140
MRED0141
MRED0142
MRED0143
MRED0144
MRED0145
MRED0146
MRED0147
MRED0148
MRED0149
MRED0150
MRED0151
MRED0152
MRED0153
MRED0154
MRED0155
MRED0156
MRED0157
MRZD0158
MRED01S9
MRED0160
MRED0161
MRED0162
MRED0163
MRED0164
HRED0165
MRED0166
HRED0167
MRED0168
MRED0169
HRED0170
MRED0171
MRED0172
MRED0173
MRED0174
MRED0175
HRED0176
MRED0177
MRED0178
MRED0179
MREO0180
*MRED0181
MRED0182
MRED0183
MRED0184
MRED0185
MRED0186
MRED0187
MRED0188
MRED0189
MRED0190
MRED0191
MRED0192
MRED0193
MRED0194
MRED0195
MRED0196
MRED0197
MRED0198
HRE00199
MRED0200
MRED0201
MRED0202
MRED0203
MRED0204
MRED020S
MRED0206
MRED0207
MRED0208
MRED0209
MRED0210
MRED0211
MRED0212
MRE00213
MRED0214
MRED0215
MRED0216
MRE00217
MRED0218
MRED0219
HRED0220
MRED0221
MRED0222
MRED0223
MRED0224
MRED0225
MRED0226
MRED0227
MRED0228
MRE00229
MRED0230
MRFFSTA2
MRLDARRC
MRLDCNRC
*MRLDELRC
*MRLDEKRC
*MRLDEVRC
MRLDFFA1
MRLDFFA2
MRLDFFA3
MRLDFFA4
MRLDFFA5
MRLDFFA6
MRLDFFA7
MRLDFFA8
MRLDFFC1
MRLDFFC2
MRLDFFC3
MRLDFFC4
MRLDFFC5
MRLDFFC6
MRLDFFC7
**MRLDFFC8
MRLDFFHA
MRLDFFHB
MRLDFFHC
MRLDFFHD
MRLDFFHE
MRLDFFHF
MRLDFFHN
KRLCFFH1
MRLDFFH2
MRLOFFH3
MRLDFFH4
MRLDFFH5
MRLDFFH6
MRLDFFH7
MRLDFFH8
MRLDFFH9
MRLDFFMM
MRLDFFM1
MRLDFFM2
MRLOFFP1
MRLDFFP2
MRLDFFP3
MRLDFFP4
MRLDF2A1
MRLDF2A2
MRLDF2A3
MRLDF2A4
MRLDF2A5
MRLDF2A6
MRLDF2A7
MRLDF2A8
*MRLDF2C1
MRLDF2C2
*MRLDF2C3
MRLDF2C4
MRLDF2CS
MRLDF2C6
MRLDF2C7
**MRLDF2C8
MRLDF2HA
MRLDF2HB
MRLDF2HC
MRLDF2HD
MRLDF2HE
MRLDF2HF
MRLOF2HN
Explanation of member prefixes:'
# Member deleted in this release
** Member added in this release
* Member changed in this release
11/92
F-8
RCRIS 4.0.0
-------
RCRIS System Technical Guide
MRLDF2H1
MRLDF2H2
MRLDF2H3
- MRLDF2H4
MRLDF2H5
MRLDF2H6
NRLOF2H7
MRLDF2H8
MRLDF2H9
MRLDF2M1
KRLDF2M2
MRLDF2P1
MHLDF2P2
MRLDF2P3
MRLDF2P4
MRLDF3A5
MRLDF3A6
MRLDF3A7
MRLOF3CS
MRLDF3C6
MRLDF3C7
MRLDF3H5
MRLDF3H6
MRLDF3H7
MRLDF3H8.
MRLOF3P2
MRLDH1RC
MRLDH2RC
*KRLDXNRC
MRLOIOR
MRLDNARC
*MRLDPCRC
MRLDPURC
*MRLDPVRC
MRLDRCRI
MRLDSTA2
*MRLDVIRC
MRMOUCR
MRMUCF
MRMUZOR
MRMUMAIN
MRMUMOU
MRPRELOD
MRREBZLD
MRRPAUD
MRRPCA01
MRRPCA02
MRRPCA03
MRRPCA04
MRRPCF
MRRPCM01
MRRPCH02
MRRPCM03
MRRPDEV
MRRPDEV1
MRRPDBV2
MRRPEDD
*MRRPEDDT
MRRPEDS
*MRRPEDSU
MRRPFF
MRRPFFA3
MRRPFPC4
MRRPPFH1
MRRPFFH4
MRRPFFP1
MRRPFFP4
MRRPHARD
MRRPHDEL
MRRPHI01
MRRPHI02
MRRPHI03
MRRPHI04
MRRPHI05
MRRPHI06
MRRPHI07
MRRPHI08
MRRPIIOR
MRRPIMOU
MRRPIORF
MRRPLD03
MRRPLD04
MRRPLOGE
MRRPMOU
MRRPORPH
MRRPPC01
MRRPPC02
MRRPPC03
MRRPPM01
MRRPPRS
*MRRPPRSU
MRRPSTLS
*MRRPUL01
*MRRPUL02
*MRRPUL03
*MRRPUL04
MRRPUL1
*MRRPUL1A
KRRPUL2
MRRPUL3
MRRPUP
MRRPUPAC
MRRPUPAR
MRRPUPCN
MRRPUPD
*MRRPOPDT
MRRPUPEL
MRRPUPEN
MRRPUPEV
MRRPUPH1
MRRPUPH2
MRRPUPIN
MRRPUPNA
MRRPUPPC
MRRPUPPU
MRRPUPPV
MRRPUPSM
MRRPUPVI
MRRPUTBL
HRSTDELS
MRSTLIST
MRULEXA1
MRULEXA2
MRULEXA3
*MRULEXA4
HRULEXA5
MRULEXA6
MRULEXA7
MRULEXA8
*MRULEXC1
MRULEXC2
MRULEXC3
MRULEXC4
MRULBXCS
MRULEXC6
*MRULEXC7
'MRULEXC8
KRULEXHA
HRULEXHB
MRULEXHC
MRULEXHD
MRULEXHE
HRULEXHF
MRULEXHN
. MRULEXH1
MRULEXH2
MRULEXH3
MRULEXH4
HRULEXH5
MRULEXH6
MRULEXH7
MRULEXH8
MRULBXH9
MRULEXMM
MRULEXM1
MRULEXM2
*MRULEXP1
MRULEXP2
MRULEXP3
MRULEXP4
MRULHOLD
MRULRCNT
MRULRCRI
MRULUPDT
MRUPARFT
MROPARNF
MRUPCF
MRUPCNFT
MRUPCNNF
MRUPCNTL
*MRUPELFT
MRUPBLNF
*MRUPENFT
KRUPENNF
MRUPEVFT
MRUPEVNF
MRUPH1FT
KRUPH1NF
*MRUPH2FT
MRUPH2NF
MROPINFT
KRUPINNF
MRUPIOR
MRUPLMOU
MRUPHAFT
HRUPNANF
*MRUPPCFT
MRUPPCNF
MRUPPUFT
MRUPPUKF
MRUPPVFT
*MRUPPVNF
*MRUPVIFT
*MRUPVIKF
MRUP1MOU
MRUP2MOU
MTCHAREA
H2ULMOU
H2ULRCRI
NARRCOMP
KOACCESS
NOOBA
NOMOUT
NOREPORT
Explanation of member prefixes: '
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-9
11/92
-------
RCRIS System Technical Guide
NOUPDATE
ORDCNT
PASS 3
PASS4
PCDENAHE
PCDEPEST
PCDEPJDE
PCDEPROC
PCDEUNIT
PCLDCOMP
PCLDFDEF
PCMODEVC
*PCRPCOMP
PCRPDEV
PCRPDMP1
PCRPDMP2
PCRPEM92
PCRPMGR1
PCRPMGR2
PCRPMILE
PCRPNO92
PCRPORP1
PCRPORP2
PCRPSELA
PCRPSEL1
PCRPSEL2
PCRPSEL3
PCRPSEL4
PCRPSEL5
PCRPSEL6
PCRPSEL7
PCRPSEL8
PCRPSPDR
PCRPSPMS
PCRPSPM1
PCRPSPM2
PCRPSPM3
PCRPSPM4
PCRPSPMS
PCRPSPM6
PCRPSPM7
PCRPSPM8
~ PCRPSPM9
PCRPSP10
PCRPSP11
PCRPSP12
PCRPSP13
PCRPSP14
PCRPSP15
PCRPSP16
PCRPSP17
- PCRPSP18
PCRPSP19
PCRPSP20
PCRPSP21
* PCRPSP22
PCRPSP23
PCRPSP24
PCRPSP25
PCRPSP26
PCRPSP27
PCRPSP28
PCRPSP29
PCRPSP30
PCRPSP31
PCRPSP32
PCRPSP33
PCRPSP34
PCRPSP35
PCRPSP36
PCRPSP37
PCRPSP38
PCRPSP39
PCRPSP90
PCRPSP92
*PCRPSTDR
*PCRPSTDX
**PCRPSTD1
PCRPST01
PCRPST02
PCRPST03
PCRPST04
PCRPST05
PCRPST06
' PCRPST07
PCRPST08
PCRPST09
PCRPST10
PCRPST11
PCRPST12
PCRPST13
PCRPST14
PCRPST15
PCRPST16
PCRPST17
PCRPST18
PCRPST19
PCRPST20
PCRPST21
PCRPST22
PCRPST23
PCRPST24
PCRPST25
*PCRPST26
PCRPST27
*PCRPST28
PCRPST29
*PCRPST30
PCRPST31
PCRPST32
PCRPST33
PCRPST34
PCRPST35
PCRPST36
*PCRPST91
PCRP0001
PCULFDEF
*PCUPEUPD
PCUPLUPD
PCUPNAME
PCUPPEST
PCUPPJAD
PCOPUNIT
PCUPUPDT
PCUPUSPL
PCUPUUPD
*PCVWEUPD
PERMDATA
PERMIT
PERMIT1
PERMIT2
PERMIT3
PERMIT4
PERMPROC
PEVENT
PGM1
PGM14
PGM2
PILOTRP1
PILOTRP2
PILOTRP3
PILOTRP4
PILOTRPS
PZLOTRP6
PILOTRP7
PILOTRPS
PILOTRP9
PILOTR14
PILOTR15
PILOTR16
PILOTR17
PILOTR18
PILOTR19
PILOTR20
PLINK
PMADUNIV
PMCOMP
PMDECARE
PMDECOMM
PHDEENRE
*PMDEEVNT
*PMDEEVRE
PMDEPCRE
PHDEPMRE
*PMHLINKF
*PMHLINKM
PMHLINKU
*PMMUMAIN
PMMUMAVJ
j»*PMRPDAOi
*PMRPDETC
PMRPDETE
PMRPDETH
PMRPDETR
PMRPDEV
PMRPD001
PMRPD002
**PMRPELNK
PMRPEXRE
PMRPSEL1
PMRPSEL2
PMRPSEL3
PMRPSEL4
PMRPSUMC
PMRPSUME
PMRPSUMH
PMRPSUMR
PMSELECT
PMUPCARE
PMUPCOMM
*PMUPENRE
*PMUPEVNT
PMUPEVRE
PMUPIMRE
PMUPPCRE
"PMUPPMRE
PREOCALC
PRINTFIL
PRINTOFF
PRNDEST1
PRNDEST2
PROCESS
PROCESS2
PROCTEM
Explanation of member prefixes:
# Member deleted in this release
Member added in this release
Member changed in this release
**
11/92
F-10
RCRIS 4.0.0
-------
RCRIS System Technical Guide
PROCTEM2
PROCWAIT
PROFCNED
PROFCOMP
PROFBXTR
PROFFREE
PROFILEA
PROFI.LEB
PROFILEC
PROFILES
PROFILEF
PROFILED
PROFILEL
PROFZLEM
PROFILE?
PROFILEQ
PROFILES
PROFILE!
PROFILEU
PROFILSG
PROFILSU
PROFIN5T
PRORCRIS
PUNIT
*RCRA
RCRADBUG
RCRAOCRP
RCRISTAL
RCRISTA2
REBUILD
RECCONT
REC2CONT
RLOAD
RUHFIX
SCAN
SORTINDX
SUREBILD
TEDPROF .
TTSVFLE
UNIV1REP
ONIV2REP
UNIV3REP
UNIV4REP
UNIV5REP
UNIV6REP '
UPDAREA
UPDCARTE
UPDCOMME
UPDEVENT
UPDINST2
UPDINST3
UPDINST4
UPDINST5
UPDTCONT
UPDTHOLD
UPOTHOL2
UPDTMOO
UTLDREST
UTRBFILE
UTULBKUP
UTUPUPTB
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-ll
11/92
-------
RCRIS System Technical Guide
RCRS.RCRXS.FMU
MEMBERS
CAWINDOW
CMWINDOW
CNMUMAIN
DAWINDOW
*DBWINDOW
FCMUNARR
FMMURPTS
FMWINDOW
MRMUMAIM
MRMUMAIN
MRMUMAIR
MRMUMAIS
*PMWINDOW
*RCRA
RCRIS
REGMENU
RCRS.RCRIS.MSGS
MEMBERS
CCUMS01
RCRS.RCRIS.PANELS
MEMBERS
BATCHRPT
BATCHRP1
BATCHRP2
BATCHRP3
COPYUSUP
FFREPDEL
FILETRAN
FORMINFO
GDRDOCS
GDRMAIN
GDRSUMC
GDRUSER
GOR00001
6DR00002
GDR10002
GDR50001
INSTALL
ISDBMAIN
LABFORMA
LABFORMS
MRCYPART
MRDBUTI2
MREXHARD
MREXTRA2
MRFFUTIL
MRMERGE2
MRMERGE3
MRMERGE5
MRMXTRA2
MRPOP1
MRPOP2
MRSTCYLE
MSGOO
PREPOO
RCRPOO
MRSTDELS
MRUPDAT2
MRXTRCT
PANALLRG
PANALLST
*PANINSTH
PANINSTO
PANINST1
PANINST2
PANINST3
PANINST4
PANINST5
PANINST6
PANINST7
PANINST8
PANINST9
PANRGEXH
PANRGEXO
PANRGEX1
PANRGEX2
PANRGEX3
PANRGEX4
PANRGEX5
PANRGEX6
PANRGEX7
PANRGEX8
PANRGEX9
PANRGMGH
PANRGMGO
PANRGMG1
PANRGMG2
PANRGMG3
PANRGMG4
PANRGMG5
RCRSOO
SUMSG01
TSTDB01
PANRGMG6
PANRGMG7
PANRGMG8
PANRGMG9
PANRGUPH
PANRGUPO
PANRGUP1
PANRGDP2
PANRGUP3
PANRGUP4
PANRGUP5
PANRGUP6
PANRGUP?
PANRGUP8
PANRGUP9
PREPDISP
PREPINPT
PREPKEEP
PREPUNS
FREP0001
PREP1000
PREP1100
PREP1101
PREP1102
PREP2000
PREP2100
PREP3000
PREP3100
PREP4000
PREP4001
PREP4100
PREP5000
PREP5001
PREPS100
PREP6000
PREP7000
PREP7100
PREP7200
PREP7300
PREP7400
PREP7500
PRNDESTF
PRNDESTM
PRNDESTO
PRNDESTS
PROMPTBO
RCRACT
RCRDOCS
RCRMAIN
RCRSACCC
RCRSACCD
RCRSACCG
RCRSACCN
RCRSACCR
RCRSACCT
RCRSMAIN
RCRSPRTO
RCRSXVER
RCRUSER
RCROOOQ1
RCR00002
RCR10002
RCRS0001
SELECTDB
SUMAIN
SUPRO
SUPR01
SUSTATUS
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
11/92
F-12
RCRIS 4.0.0
-------
RCRIS System Technical Guide
SUSfATl UTIL
TSTDBPNL
RCRS.RCRIS.SKELS
MEMBERS
ANINTRO
fBATCHRPT
BATCHRP1
*BATCHRP2
BATCHRP3
BATOCALC
CARPF001
*CARP0005 _
CARP0006
CARP0007
CAHSARCH
DSNFORM
GDCMDBA
GDCNUG
GDCONVRT
GDCQUX
GOCRPT
GDCST
GDCTCH
GDDED.
GDGDE
GDHWDED
GDJCLJES
GDJCLTOP
GOMDBA
GDPSUDO
GDQUICK
GDRCDED
GDRCDEDC
GDREPORT
GDSNFORM
GDSTART
GDSUMCHG
GDTRN
GDUSER
*HIRPF001
*HIRPF002
*HIRPF003
INSTALL
JCLJES
JCLTOP
LISTDED
MBACKUP
MRCRGOG
*MREDPROG
MREXTRA2
MRPRECK
MRRCGDG
MRREBILD
MRRRGDG
*MRSTDELS
*MRUPDAT2
**NTISTAPE
*PCRPOMSE
PCRPSPMS
*PCRPSTAR
RCRSTAR
RCRTPCCG
RCRTPCPL
RCRTPLCG
RCRTPLFL
RCRXMTCG
RCRXMTFL
RCRS.RCRIS.TABLES
MEMBERS
MRSTCYLE
PINST
RCRS.RCRIS.TRP
MEMBERS
*CAWINDOW
*CMWINDOW
CNMUMAIN
*DAWINDOW
DBWINDOW
FCMUNARR
FMMURPTS
FMWINDOW
MRMUMAIM
MRMUMAIN
MRMUMAIR
MRMUMAIS
PMMUSPMS
*PMWINDOW
*RCRA
*REGMENU
Explanation of member prefixes:
# Member deleted in this release
** Member added in this release
* Member changed in this release
RCRIS 4.0.0
F-13
11/92
-------
-------
RCRIS System Technical Guide
APPENDIX G INSTALL, RCRIS, AND MERGPRO CLISTS
^******************'
/* PROGRAM NAME: 'XXXX.RCRIS.CLISTCINSTALL)'
/* DESCRIPTION: Coordinates installation/reinstallation of RCRIS system
/* PROGRAMMER: GSC/ZOJ .
/* DATE CREATED: 03/28/91
/* LAST UPDATED:
/* CALLED BY: none.
/* CALLS:
/* COMMENTS: This program is the top level CLIST for the RCRIS
/ installation/reinstallation utility. It prompts the
/ user for a password, checks that the user account is
/* valid.
/* - The program will operate in one of three configurations
/* depending on the account that the user logged on under.
/* 1. If the user account (&ACCT) matches SPROG, then
/ two options are presented:
/* A. Install of next release
/* B. Install of Production software
/* 2. If the user account (IACCT) matches STEST or 40VIP
/* then three options are available:
/* A. Compile into TEST or PRODUCTION (depends on &ACCT
/* B. Perform database maintenance in TEST or PROD.
/* 3. If the account does not match &PROG, (TEST, or &DVLP
/* Perform database maintenance only
/********«*******«***»»*»***#»»***************
PROC 0 FOCVERC.) .
CONTROL EMD(ENDO) MAIN NOLIST NGMSG
/CONTROL END(ENDO) MAIN LIST MSG SYMLIST CONLIST
GLOBAL &ACCT SB SC SD &E &F. &G SH &1 &J IK &L &MOOE +
&TDSCHECK 4TPRINTOF STOLEAR ITPMDISK STUKD1SK +'
&TFOCACNT. &TFDSN STACTRANG ITSPCMGMT &TFLDEARC +
STLINED1T &FOCVER1 &PROG 4DVLP STEST (TABLES ®TEST
ATTN GOTO QUIT .
/ --- Set up default values for all global command subtitution parms.
SET SPROG = iSTR(KHDB)
SET &TEST - SSTR(RCRT)
SET 4DVLP - iSTR(RCRD)
SET STABLES = ISTR(KHDB)
SET &TOSCHECIC - ISTR(DSCHECK)
SET &TPRINTOF = SSTR(PRINTOFF)
SET &TCLEAR = tSTR(CLR3270)
SET &TPMDISIC = tSTR(DISK)
SET &TWKDISK - SSTR(DISK)
SET STFOCACNT = SSTRCSVS2)
SET STFDSN a ftSTR(FDSN)
SET STACTRANG = &STR(4:7)
SET STSPCHGMT a SSTRC*SM>
SET STFLDEARC = SSTR(HRECALL)
SET &TLINEDIT = ISTR(EDIT)
/* ... Ensure that user account prefix is valid and get group acct ID
RCRIS 4.0.0 G-l 11/92
-------
RCRIS System Technical Guide
IF tSTRCKACCT) EQ tSTRO THEN DO
IF &LENGTHUSTR(&SYSPftEF)) EO « THEN +
SET IACCT = (STR(ISYSPREF)
ELSE IF tLENGTH(&STR(&SYSPREF)) EO 7 TKEK *
SET &ACCT » iSUBSTRUTACTRANG.KYSPREF)
ELSE DO
WRITE
URITE
WRITE *** ACCOUNT PREFIX IS INVALID *STR(--> +
PLEASE CORRECT AND RERUN **
EXIT
ENDO
ENOO
/* SET FOCUS VERSION NUMBER
IF &FOCVER *= iSTRC.) THEN «
SET 6FOCVER « 4STR(.*FOCVER..)
SET 4FOCVER1 = &STR(&FOCVER)
SET (NODE " tSTR(P)
/* Proopt for node if group account is JPROG, &TEST, &DVLP, or KHDB.
/* Otherwise default to P (Production).
IF ftSTRC&ACCT) EQ tSTR(KTEST) +
OR tSTR(lACCT) EQ &STR(&DVLP) +
THEN DO
GETHOOE: »
STCLEAR
WRITEHR ENTER NODE (P)RODUCTION, (T)EST OR (D)EVELOPMENT OR +
(Q)UIT :
READ SMODE
IF &MODE NE SSTR(P) AND MODE NE ISTR(T) AND MODE NE CSTR(D) AND + .
MODE NE ftSTR(Q) THEN DO
WRITE
WRITE INVALID VALUE... PRESS ENTER TO CONTINUE > «STR()
READ &DUMMY
. GOTO GETHODE
ENDO
IF MODE EQ ISTR(Q) THEN GOTO QUIT99
EHDO
ft ... geao< jn the system version information and
ALLOC DD(RCRVERDT) OSCSPROG..RCRIS.VERSION.RELDATE') SHR
OPENFILE RCRVERDT INPUT
GETFILE RCRVEROf
SET &VERDATE = tSTR(SRCRVERDT)
SET tCURRVER = tSTR
-------
RCRIS System Technical Guide
SELECT (MODE)
WHEN (P) ALLOC OD(SYSPROC) OS( +
'SPfiOC..RCRIS.CLIST' *
tPROCSAVE) SHR REUSE
UKEN (T) ALLOC DD(SYSPROC) DSC&TEST..RCRIS.CLIST' *
'fcPROC..RCRIS.CLIST' *
&PROCSAVE) SHR REUSE
UKEN (D)* ALLOC ODCSYSPROC) DSC'WVLP..RCRIS.CLIST' +
. '4TEST..RCRIS.CLIST' +
'SPROG..RCRIS.CLIST' f
&PROCSAVE) SHR REUSE
ENOO
/* --- CALL ISPF LIBDEF TO ALLOCATE THE PANELS AND MESSAGE FILES.
SELECT (MODE)
WHEN (P) DO
ALLOC DD(ISPPLIB) DSC +
'&PROG..RCRIS.PANELS' *
KPDSNSAVE) SHR REUSE
ALLOC OD(ISPSLIB) DS( *
N 'SPROG..RCRIS.SKELS' *
SSDSNSAVE) SHR REUSE
ALLOC DDCISPTL18) DSC CTBLS +
'SPROC..RCRIS.TABLES' +
&TDSNSAVE) SHR REUSE
ALLOC OO(ISPMLIB) OS( *
'&PROG..RCRIS.MSCS' +
MDSNSAVE) SHR REUSE
ENOO -
UHEM (T) DO
ALLOC OO(JSPPLIB) DSC&TEST..RCRIS.PANELS' *
'SPROG..RCRIS.PANELS' *
&PDSNSAVE) SHR REUSE
ALLOC OD(ISPSLIB) DSCtTEST..RCRIS.SKELS' +
'4PROG..RCRIS.SKELS' *
&SDSNSAVE) SHR REUSE
ALLOC DD(ISPTLIB) DSC JTBLS +
'iTEST..RCRIS.TABLES' *
'SPROC-.RCRIS.TABLES' * :
&TDSNSAVE) SHR REUSE
ALLOC DD(ISPMLIB) DS<'&TEST..RCRIS.HSGS' +
'4PROG..RCRIS.HSGS' +
tMDSNSAVE) SHR REUSE
ENDO
WHEN (D) DO
ALLOC DDCISPPLI8) DSC'&DVLP..RCRIS.PANELS' . +
'(TEST..RCRIS.PANELS' +
'&PROG..RCRIS.PANELS' +
&PDSNSAVE) SKR REUSE
ALLOC DDCISPSLIB) DSC'&DVLP..RCRIS.SKELS' *
'STEST..RCRIS.SKELS' +
'&PROG..RCRIS.SKELS' +
&SDSKSAVE) SHR REUSE
ALLOC DDCISPTLIB) DSC &TBLS +
'&OVLP..RCRIS.TABLES' +
'&TEST..RCRIS.TABLES' +
'SPROO..RCRIS.TABLES' +
&TDSNSAVE) SHR REUSE
ALLOC DDCISPMLIB) DSC&OVLP..RCRIS.MSGS' +
'&TEST..RCRIS.HSGS' +
'&PROG..RCRIS.MSGS' +
&MDSHSAVE) SHR REUSE
ENDO
RCRIS 4.0.0 G-3 11/92
-------
RCRIS System Technical Guide
iNDO /* SELECT
/* *- create storage for panel values
IF ISYSOSN(TABLESCREBUILT2)> HE OK THEN +
ISPSTART CMDCXCREATET2)
ISPSTART CMD(%RCRSXVER SVEROATE ' *
&PROG 40VLP (TEST MODE * -
STACTRANC &TPMDISK 8TUKDISK 4TFOCACNT &FOCVER tTPRIKTOF &TFDSN)
IF MODE NE &STR(P) THEM DO
OPENFILE RCRSXVER INPUT
GETFILE RCRSXVER
SET &VERDATE = t$UBSTR(1:16.tRCRSXVER>
SET 4OJRRVER n &SUBSTR(1:5,lftCRSXVER>
CLOSFItE RCRSXVER
FREE DO(RCRSXVER)
ENOO
INSTNEHU: +
SELECT
/*UKEN (1ACCT
WHEN (&ACCT
SET tVAR
tTCLEAR
KPROG) DO
XXXX) DO
&STR( >
********************«»****************
»«********
***»********+
WRITE *
*
WRITE *
DATE: ftSYSOATE *
WRITE
TIKE: &SYSTIHE *
RCRIS
Environmental Protection Agency
Version &VERDATE +
*******»****
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITENR
READ &VAR
Production &PROG Software
Installation Main Menu
I.- Install Production Software and Compile
2. Compile ftPROG Software
3. Exit Installation Main Menu
Enter Selection »
SELECT (iVAR)
WHEN (1) DO
ALLOC DDNAME(RCRVERDT) OLD REUSE +
DSNAHECJPROG..RCH1S.VERSION.RELDATE')
OPENFILE RCRVEROT OUTPUT
SET &RCRVERDT » iSTR(iVERDATE)
PUTFILE RCRVEROT
SET IRCRVEROT a JSTR(NONE)
PUTFILE RCRVEROT
CLOSFILE RCRVEROT
XISUPFOCI SPROG &PROG SDVLP &TEST STABLES +
&VERDATE &TWKDISK &TFOCACNT &MODE &FOCVER
XPR06COPY
XPROGCOMP
XCOPYCOHP
ENOO
11/92
G-4
RCRIS 4.0.0
-------
RCRIS System Technical Guide
WHEN (2) DO
XPROGCOPY
JfPROGCOHP .
XCOPYCOKP
ENDO
WHEN (3) GOTO QUIT
OTHERWISE 00
WRITE
WRITE Invalid selection, PRESS ENTER TO CONTINUE
READ ttUMHY
ENDO /* OTHERWISE
ENDO /* SELECT
ENDO /* &PROG
WHEN (tACCT 4TEST OR 4ACCT « 40VLP) DO
SET AVAR > t$TR( )
4TCLEAR . - -
WRITE ******«*******************************************+
************
WRITE RCRIS
*
WRITE * Environmental Protection Agency +
DATE: 4STSOATE *
WRITE * Version tVERDATE +
TINE: tSYSTIHE *
URITE ******»*»*»»»»**************************»»»».«.
****************
WRITE
WRITE Development IDVLP and Test &TEST
WRITE Installation Main Menu
WRITE
WRITE
WRITE 1. Compile MCCT Software -"
WRITE 2. Run Database Installation Programs
WRITE 3. Exit Installation Main Menu
WRITE
WRITENR Enter Selection »
READ tVAR
SELECT (SVAR)
WHEN (1) XPROCCOMP
WHEN (2) ISPSTART CMDCXISDBMAIN tPROG SDVLP &TEST STABLES (MODE +
iTWKDlSK &TPMDISK &VERDATE &TFOCACNT &FOCVER)
WHEN (3> GOTO QUIT
OTHERWISE DO
WRITE
WRITE Invalid Selection, PRESS ENTER TO CONTINUE
READ &DUMMY
ENOO /* OTHERWISE
ENDO /* SELECT
ENDO /* &TEST/CDVLP
OTHERWISE DO *
ISPSTART CMD(XISD8MAIN &PROG &OVLP &TEST 4TABLES MODE +
&TWKDISK 4TPMDISK &VEROATE &TFOCACNT *
SFOCVER)
GOTO QUIT
ENDO / OTHERWISE
ENDO /* SELECT
GOTO INSTMENU
/* - End of program. Restore SYSPROC to original value.
QUIT: *
FREE DDCRCRVERDT
ALLOC DDNAME(SYSPROC) DSNAME(tPROCSAVE) SHR REUSE
ALLOC DDNAME(ISPPLIB) DSNAME(ftPDSNSAVE) SHR REUSE
RCRIS 4.0.0 G-5 11/92
-------
RCRIS System Technical Guide
ALLOC DDHAME(ISPSLIB) DSNAHE(tSDSNSAVE) SHR REUSE
ALLOC DDNAME(ISPTLIB) DSNAMEUTDSNSAVE) SHR REUSE
ALLOC DDNAMECISPML1B) DSNAME(&MDSNSAVE) SHR REUSE
QUIT99: +
ITCLEAR
WHITE
/*»**********««************»*******************
Rewrite with new logic
Removed UttlTO from shared data sets
Add FOCUS version
FREE ALL on exit
Removed code for OFFLINE2. (#110052)
Remove FOCEXECI
Added SU looic
Added CLEAR for opening screen
to eliminate pressing
Allocate datasets outside of SU machine
when SU is up (for reports)
Pass first 4 chars of tOBPROG as first
parm to SUMODE instead of &ACCT
Use return code from SUMODE to select
proper member to ALLOC to DD PROFILE
Added main FOCCOMP to concatation string
Removed next release
FOCSORT, FOCSTACK, HOLD, HOLDMAST,
SAVE allocated as temp work files.
** 06/17/92 MOM - Changed HOLD back to permanent dataset.
regions 2 and 3 depend on FOCUS.OFFLINE
and HOLD being permanent datasets.
Added "DEL HOLD" after
"DEL FOCUS.OFFLINE"
Added 'UPER' to MODE select list.
Added Alerts function.
Added SU and single user message.
/ PROGRAM NAME:
/ DESCRIPTION:
/ PROGRAMMER:
/*
/ DATE WRITTEN:
/ DATE CHANGED:
/*
/*
/*
/*
/
/*
r
.RCRIS
RCRIS MAIN MENU
GSC
02/28/91 KU - 1
03/22/91 KU - 1
04/05/91 KU - J
04/17/91 KU - I
04/23/91 RHE - I
04/25/91 KU - I
06/05/91 RU - 1
08/22/91 RHE - /
(CPMS #133693}
09/10/91 JED
09/27/91 JZ
02/05/92 RHE
i*
i*
/*
/
/*
/*
/*
/*
/*
/*
/»
/*
/*
/*
/*
/*
/(CPUS #144353) 03/12/92 RHE
/* 04/20/92 ZOJ
/(CPMS #144353) 05/28/92 RHE - Pass parms MODE tPROG 4TEST CDVLP
/*(CPMS #G00013) 06/01/92 RHE
r
/*
/*
/*
/*
/*
/(CPMS #187983) 07/19/92 LIT
/*
/*
/(CPMS # ) 08/03/92 RKE
/*
/(CPMS #187026) 09/10/92 UFP
/*
/(CPMS #157062) 09/28/92 SK
/ 10/02/92 sbm
/* (not working with TSOEXEC)
/ CALLED FROM: NONE. MERGPRO
/ CALLS: RCRSMAIN
/****»«**********»»**
/*
PROC 0
to ALERTS CLIST.
Add DDnames IDHOLD, IDHOLD2
to FREE list at end of CLIST.
Make 'NOllST' the default value for the
&LIST keywork parm. This avoids problems
when KLIST keyword is not defined and is
passed to a CLIST sub program. .
Add &LISTC) as a parm to ALERTS CLIST.
Change tTCLEAR value from CLR3270 to
KLEAR. Trial for regions having hang
problems (1,7,8).
Add perm ITCLEAR to list which
is passed to ALERTS CLIST
Change DSN from (TABLES to 4DBPROG
for PSTATDES
Add errfile.data allocation
Change to &TCLEAR - tSTR(KLEAR)
******»««*************««*«**»*»»»******
CALLEDC) MCCEO FOCVER(.) LIST(NOLIST)
11/92
G-6
RCRIS 4.0.0
-------
RCRIS System Technical Guide
CONTROL MAIN END(ENDO) NOFIUSH NOMSG
IE 4STRC4LIST) EG LIST THEN *
CONTROL MSG LIST SYNLIST CONLIST
ATTN GOTO QFREE
GLOBAL 4A U 4C ID &E &F 4G 4H 41 4J U, &L &M +
tTOSCKECK STPR1NTOF 4TCLEAR 4TPMDISK 4TWKDISK *
4TFOCACNT 4TFDSH 4TACTRANG 4TSPCMGMT 4TFLDEARC *
4TL1NEDIT &Y 4Z tPROG 40VLP (TEST
/* ... assign production, development and test accounts
SET &PROG = iSTR(ICHOB)
SET SDVLP - &STfi(RCRO)
SET STEST - 4STR(RCRT)
SET STABLES = tSTR(KHOB)
/* -- skip ctist allocations if called from NERGPRO
IF SSTR(iCALLEO) Efl HERGPRO THEN DO
SET tVERDATE = 4STR(4D)
GOTO CNERGPRO
ENDO
/* --- Set FOCUS version nunber.
IF &FOCVER KE 4STR(.) THEN +
SET SfOCVER = 4STRC.4FOCVER..)
/* **- Set up default values for all global conmand subtitution parms.
SET 4TDSCHECK
SET tTPRINTOF
SET 4TCL6AR
SET 4TPMOISK
SET 4TWKOISK
SET STFOCACNT
SET 4TFDSN
SET 4TACTRANG
SET 4TSPCHGHT
SET 4TFLOEARC
SET 4TL1NEDIT
SSTR(OSCHECK)
4STR(PRINTOFF)
4STR(KLEAR) .
4STR(DISK)
4STR(DISK)
4STR(SYS2>
4STRCFDSN)
4STR(4:7)
4STRCSSN)
ftSTR(HRECALL)
iSTR(EDIT)
IF 4LENGTHCKSYSPREF) HE 7 THEN DO
&TCLEAR
. WRITE INVALID SYSPREF: 4SYSPREF, CALL USER SUPPORT
GOTO QUIT99
ENDO
SET 4MODE = SSTR(P)
I* RCRIS welcome screen
WELCOME: * '
4TCLEAR
WHITE
WRITE
WRITE
WRITE
WRITE RRRRRR CCCCCC RRRRRR
IIII SSSSSS
WRITE RR RR CC RR RR
RCRIS 4.0.0 G-7 11/92
-------
RCRIS System Technical Guide
WRITE
II SS SS
RR RR
CC
RR RR
11 SS S -
WRITE
11
WRITE
11
WRITE
11
WRITE
11
WRITE
H
WRITE
!!H
WRITE
WRITE
WRITE
WRITE
RR RR
SS
RRRRRRRR
sssssss
RR RR
SS
RR RR
S SS
RR RR
SS SS
RR RR
SSSSSSS
RESOURCE
CC
CC
CC
CC
CC
RR RRR
RRRRRRRR
RR RR
RR RR
RR RR
CCCCCC RR RR
CONSERVATION
-
AND RECOVERY IN
IF ftFOCVER NE 4STR(.) THEN +
WRITE (FOCUS VERSION: IFOCVER)
ELSE +
WRITE
WRITE
IF ISUBSTR(4:6,&SYSPREF> EQ ISTR(RCR) OR +
KUBSTR(4:7,&SYSPREF) EQ tSTR(WPER) THEN DO .
WRITENR ENTER NODE {PRODUCTION, (T)£ST, +
(O)EVELOPMENT OR (O)UIT :
READ (MODE
IF &STR(ttODE> EQ Q THEN *
GOTO QUIT99
ELSE IF &STR(tMODE)'~NE P AND &STR(ttOD£) NE T AND +
tSTR(&NODE) NE D THEN DO
WRITE
WRITENR INVALID VALUE, PRESS TO CONTINUE
READ
GOTO WELCOME
ENDO
ENDO
AilOC DDNAME(RCRVERDT) DSNAMEC'4PROG..RCRIS.VERSION.RELDATE') SHR REUSE
OPENFILE RCRVERDT INPUT
GETFILE RCRVERDT
SET iVEROATE * ISTR(fcRCRVERDT)
GETFILE RCRVEROT
SET &NVERSIOH - CSTR<&RCRVERDT)
CLOSFILE RCRVERDT
IF tSTR(&NVERSION> NE NONE THEN*
SET &XVER * »STR(V)»
&SU8STR(1:1,&MVERSION)+
&SUBSTR(3:3,iNVERSION)+
&SUBSTR(S:S,&NVERSION>.
ELSE +
SET &XVER * tSTR(XXXX)
&TFDSN SYSPROC.PROCSAVE.MOW
&TFDSN ISPPLIB.PDSNSAVE.NOW
11/92
G-8
RCRIS 4.0.0
-------
RCRIS System Technical Guide
STFOSM ISPSLIB.SOSNSAVE.NOV
&TFDSN ISPTLIB.TDSNSAVE.NOU .
&TFDSN ISPHLIB.WSNSAVE.HOW
IF ISYSOSN(TABLES) EO OK THEN *
SET ITBLS = TABLES
ELSE +
SET ITBLS o &STRC )
SELECT (MODE)
UHEN (P) ALLOC
DDNANE(SYSPROC)
WHEN (T) ALLOC DDNAHE(SYSPROC)
UHEN (D) ALLOC DDMAME(SYSPROC)
ENDO
OSNAMEC&PROG..RCRIS.CUST' «
4PROCSAVE) SHR REUSE
DSNAMEC4TEST..RCRIS.CL 1ST' +
'&PROG..RCRIS.CLIST' +
&PROCSAVE) SHR REUSE
OSNAHE('tOVLP..RCRIS.CLIST' +
'STEST..RCRIS.CLIST' +
'4PROG..RCRIS.CLIST' +
&PROCSAVE) SHR REUSE
/* Call 1SPF LIBOEF to allocate the Panels and Message files.
SELECT (MODE)
WHEN (P) DO
ALLOC ODNAKE(ISPPLIB) DSNAHEC&PROG..RCRIS.PANELS' *
&POSNSAVE) +
SHR REUSE
ALLOC DDNAME(ISPSLIB) OSNAMEC&PROG..RCRIS.SKELS' +
SSOSHSAVE) +
SHR REUSE
ALLOC OONAME(ISPTLIB) OSNAHEC STBLS +
'(PROG..RCRIS.TABLES' +
&TDSNSAVE) +
SHR REUSE
ALLOC DDNAME(ISPMLIB) DSNAHEC&PROG..RCRIS.MSGS' *
(KDSNSAVE) *
SHR REUSE
ENDO
UHEM (T) 00
ALLOC OONAME(ISPPLIB)
ALLOC DDKAMEUSPSLIB)
ALLOC OONAME(ISPTLIB)
ALLOC ODNAMH(ISPMLIB)
ENDO
UHEN (D> 00
ALLOC DDNAME(ISPPLIB)
DSNAHEC&TEST..RCRIS.PANELS' +
'&PROG..RCRIS.PANELS' +
&PDSNSAVE) +
SHR REUSE
DSNAHE('£TEST..RCRIS.SKELS' +
'4PROG..RCRIS.SKELS' +
&SDSNSAVE) +
SHR REUSE
DSNAKEC &TBLS +
'&TEST..RCRIS.TABLES' +
'CPROG..RCRIS.TABLES' +
&TDSNSAVE) +
. SHR REUSE
DSNAHEC&TEST..RCRIS.MSGS' +
'&PROG..RCRIS.NSGS' *
4MDSNSAVE) +
SHR REUSE
DSNAHEC&DVLP..RCRIS.PANELS' +
'&TEST..RCRIS.PANELS' +
'4PROG..RCRIS.PANELS' *
RCRIS 4.0.0
G-9
11/92
-------
RCRIS System Technical Guide
SKELS'
SKELS'
SKELS'
TABLES' *
TABLES' +
TABLES' *
MSGS' *
HSCS' *
KSCS' +
IPDSNSAVE)
SHR REUSE
ALLOC ODNAME(ISPSLIB) OSNAHEC&DVLP. .RCRIS.
'&TEST..RCRIS.
'&PROG..RCRIS,
ftSOSNSAVE)
SHR REUSE -
ALLOC DDNANE(ISPTLIB) DSNAMEC ITBLS
'JBVLP..RCRIS.
'STEST..RCRIS,
'tPROC..RCRIS,
ftTDSNSAVE)
SHR REUSE
ALLOC DDNAKEUSPMLIB) DSNAMEC'CDVLP..RCRIS,
'4TEST..RCRIS,
'&PROG..RCRIS,
&MD5NSAVE)
SHR REUSE
ENDO
ENOO /* select
/* >-- Display the RCRIS system Implement or Alerts.
ISPSTABT CMD(XALERTS MODE COVLP (TEST tPROG &TCLEAR LIST((L!ST»
1SPSTART CND(XRCRSXVER &VEROATE &PROG &DVLP 4TEST (MODE *
STACTRANG &TPMDISK 4TWKDISK &TFOCACNT &FOCVER +
I.TPR1NTOF ITFDSN)
IF &NGOE ME P THEN 00
OPENFILE RCRSXVER INPUT
GETFILE RCRSXVER
SET tVERDATE * &SUBSTR(t:16,tRCRSXVER)
CLOSFILE RCRSXVER
FREE DDNAHE(RCRSXVER> -
ENOO
/* Create storage for panel values.
IF &SYSOSN(TABLES(RCRSHERG)) NE OK THEN DO
STCLEAR .
ISPSTART CMXXCREATET8)
ENDO
/- --- Allocate user POS's.
XRCRSUSER
/ --- &VEROATE contains blanks - retrieves as two parameters.
CHERGPRO: *
STCLEAR
/* WRITE
ISPSTART CMDCXRCRSNAIN SVEROATE &PROG SDVLP &TEST MODE +
STACTRANG &TPMDISK &TUKDISK &TFOCACNT &FOCVER &TPR1NTOF)
&TFDSN RCRVERDT,XVERDT,NOU
IF KXVERDT NE *STR( ) THEN +
FREE DDMAHE(RCRVERDT)
ELSE +
SET iXVER = SSTR(XXXX)
&TFDSN ACC.XACCT.NOW
IF &XACCT EQ 4STR( ) THEN *
11/92
G-10
RCRIS 4.0.0
-------
RCRIS System Technical Guide
GOTO QUIT
&TCLEAR
WRITE
MITE
MITE
MITE UELCOME TO RCRIS
MITE
MITE
MITE
MITE FILES ARE BEING ALLOCATED, PLEASE STAND BY ...
MITE
OPENFILE ACC INPUT
BETFILE ACC
SET &OBPROG « 4SUBSTR(17:24,4ACC)
SET &DBACCT4 => &SUBSTR(17:20,&ACC) . "
SET &IMPL » &SUBSTR(6:8,U>BPROG)
SET MEXT » «SUBSTR(26:26,tACC)
CLOSFILE ACC
SET IACCT » &SUBSTR(4:7,tSYSPREF)
IF &LIST EQ KTRO THEN +'
SET &LIST « tSTR(X)
XSUNODE 4DBACCU &IMPL MODE tPROG (TEST &LIST
/*
I* allocate the correct FOCUS startup PROFILE
/ --- based on the return status from SUMODE
/*
/* code meaning profile
/* --
/* 0 No SU P80F1LSG
/* 1 SU Up PROFILSU
/* 99 «ATTN* exit CL1ST
/*
SET &RETN « JLASTCC
IF METN EQ 99 THEN /* Interrupted by *ATTN* */ +
GOTO OUIT99
ELSE IF METN EQ 1 THEN DO /* SU exists and is up */
SET tPROFMEH * tSTR(PROFILSU)
MITE SUMODE *
ENDO
ELSE DO I* No SU or SU not up V
SET tPROFMEH = &STR(PROF1LSG)
MITE SINGLEUSERMODE
ENDO
FREE DDNANE(OFFLINE) DSNAME(FOCUS.OFFLINE)
FREE ATTRLISTCAT1 AT2 AT3 AH F1 K32 MR1 MR2 MR3)
/* - - V
/* - Set up attributes, for allocations /
/ - /
ATTR AT1 BLKSIZEC3990) LRECLO33) DSORG(PS) RECFM DSORG(PS) RECFM(F B)
ATTR F1 BLKSIZE(4096) LRECLC4096) DSORG(PS) RECFM(F)
ATTR 132 BLKS!ZE(23472) LRECL(46) DSORG(PS) RECFMCF B)
ATTR NR1 BLKSIZEC3860) LRECL(S) DSORG(PS) RECFMCF B)
ATTR NR2 BLKS1ZE(3857) LRECL(7) DSORG(PS) RECFMCF B)
ATTR MRS BUSIZE(23464) LRECL(28) DSORG(PS) RECFHCF B)
RCRIS 4.0.0 G-ll 11/92
-------
RCRIS System Technical Guide
/«***»*****»***»*
/* Delete RCRIS.UNIVPASS.DATA - used for Universe Calculations */
/**«******«*****************************************/
DEL RCRIS.UMIVPASS.DATA
DEL FOCUS.OFFLINE
DEL HOLD
IF 4SYSDSNC&DVLP..RCRIS.FOCEXEC.DATA(SPROFMEM)') EQ OK *
AND MODE EQ D THEN *
AUOC DDROFKEK)') SHR REU
ELK +
IF &SYSDSNC&TEST..RCRIS.FOCEXEC.DATAC&PROFNEM}'} £0 OK +
AND (MODE EQ D OR MODE EQ T) THEN +
AUOC DD(PROFILE) DSC4TEST..RCRIS.FOCEXEC.DATA(4P80FMEH)') SHR REU
ELSE *
AUOC OD(PROFILE) DSC&PROG..RCRIS.FOCEXEC.DATA(tPROFH£M)') SHR REU
/* -
/ *** allocate errfile.data
/
IF 4STSOSHCSDVLP..RCRIS.ERRFILE.DATA') EQ OK +
AND &MOOE EQ D THEN +
ALLOC DONAME(ERRFILE) OSNAHECtDVLP..RCRIS.ERRFILE.DATA') SHR REU
ELSE +
IF &SYSDSNC&TEST..RCRIS.ERRFILE.DATA') EQ OK +
AND (MODE EO D OR MODE EQ T) THEN +
ALLOC DDNAME(ERRFILE) 0 SHAME CiTEST..RCRIS.ERRFILE.DATA') SHR REU
ELSE +
ALLOC DDNAME(ERRFIIE) DSNANEC&PR06..RCRIS.ERRFILE.DATA') SHR REU
SELECT (MODE)
WHEN (P) DO
ALLOC DDNAHE(MASTER)
ALLOC DDNAME(FMJ)
ALLOC OONAME(TRF)
ALLOC DDNAME(FOCEXEC)
4
ALLOC DDHAME(FOCCOHP)
ENDO
WHEN (T) DO
ALLOC DD(NASTER)
DSNAMECiACCT.. RCRIS. FOCHSTER. USES' +
'&PROG..RCRIS.FOCMSTER.DATA') +
SHR REUSE
DSNAMECiACCT..RCRIS.FMU.USER' +
'4PROG..RCRIS.FHU') +
SHR REUSE
DSNAMEC&PROG.. RCRIS. TRF') +
SHR REUSE
DSNANE(' &ACCT..RCRIS.FOCEXEC.USER' +
'WROG..RCRIS.MAIN.FOCEXEC.DATA' +
'&PROG..RCRIS.HID.FOCEXEC.DATA' +
'&PROC..RCRIS.PMT.FOCEXEC.DATA' +
'&PROG..RCRIS.CME.FOCEXEC.DATA' +
'4PROG..RCRIS.CA.FOCEXEC .DATA' +
'tPROG..RCRIS.PMFMPDSA.FOCEXEC.DATA' +
'tPROG..RCRIS.FOCEXEC.DATA') +
SHR REUSE
DSNAMEC&PROC..RCRIS.HID.FOCCOMP.DATA' +
'4PROG..RCRIS.PMT.FOCCOMP.DATA' +
'4PROG..RCRIS.CHE.FOCCOMP.DATA' *
'4PROG..RCRIS.CA.FOCCOMP.DATA' +
SPROG..RCRIS.PMFMPDBA.FOCCOMP.DATA' *
'SPROG..RCRIS.FOCCOMP.DATA') +
SHR REUSE
DSNAMECiACCT.. RCR IS. FOCMSTER.USER' +
'4TEST..RCRIS.FOCMSTER.DATA' +
'4PROG..RCRtS.FOCMSTER.DATA') +
SHR REUSE
11/92
G-12
RCRIS 4.0.0
-------
RCRIS System Technical Guide
ALLOC DDNANE(FNU) DSNAMECtACCT..RCRIS.FMU.USER' *
'4TEST..RCRIS.FMU' *
'SPROC..RCRIS.FHU') +
SHR REUSE
ALLOC DDNAME(TRF) DSNAHEC&TEST..RCRIS.TRF' +
'4PROG..RCRIS.TRF') *
SHR REUSE
ALLOC DDNAMECFOCEXEC) DSNAME('*TEST..RCRIS.FOCEXEC.DATA' *
'&ACCT..RCRIS.FOCEXEC.USER' *
'4PROG..RCRIS.MAIN.FOCEXEC.DATA' +
'4PROC..RCRIS.HID.FOCEXEC.DATA' *
tPROG..RCRlS.PMT.FOCEXEC.DATA' +
'tPROG..RCRIS.CHE.FOCEXEC.OATA' +
. '4PROG..RCRIS.CA.FOCEXEC.DATA' *
'4PROC..RCRIS.PMFMPDBA.FOCEXEC.DATA' +
'&PROG..RCRIS.FOCEXEC.DATA') «
SHR REUSE
ALLOC ODNANECFOCCOMP) DSNAMEC&TEST. .RCR IS.FOCCOMP.DAT A' +
'4PROG..RCRIS.HID.FOCCOHP.DATA' +
'&PROG..RCRIS.PUT.FOCCOHP.DATA' +
'4PROG..RCRIS.CHE.FOCCQMP.DATA' +
'tPROG..RCRIS.CA.FOCCOMP.DATA' +
'&PROG..RCRIS.PHFKPOBA.FOCCOKP.DATA' *
'SPROC..RCRIS.FOCCOHP.DATA') +
SHR REUSE
EMOO
MIEN (D) 00
ALLOC DON AME (MASTER) DSMAMEC4ACCT. .RCRIS. FOCMSTER. USER' +
'4DVLP..RCRIS.FOCXSTER.DATA' *
'tTEST..RCRIS.FOCMSTER.DATA' *
'tPROG..RCRIS.FOCMSTER.DATA')* ,'
SHR REUSE
ALLOC ODNAME(FHU) DSNAMEC'MCCT.. RCRIS. FMU.USER' +
UBVLP.. RCRIS. FMU' +
'4TEST..RCRIS.FHU' +
'4PROG..RCRIS.FMU') *
SHR REUSE
ALLOC DDHAME(TRF) DSNAME('SOVLP..RCRIS.TRF' +
'4TEST..RCRIS.TRF' +
'APROG..RCRIS.TRF') +
SKR REUSE
ALLOC DDNAMEC FOCEXEC) DSNAMECUVLP..RCRIS.FOCEXEC.DATA' +
'SACCT.,RCRIS.FOCEXEC.USER' *
'STEST.. RCRIS. FOCEXEC.DATA' «
'&PROG..RCRIS.MAIM.FOCEXEC.DATA' *
'tPROG..RCRIS.HID.FOCEXEC.DATA' +
'4PROG..RCRIS.PMT.FOCEXEC.DATA' »
'4PROG..RCRIS.CHE.FOCEXEC.OATA' +
'4PROG..RCRIS.CA.FOCEXEC.DATA' +
'4PROG..RCRIS.PMFMPDBA.FOCEXEC.DATA' +
'SPROC..RCRIS.fOCEXEC.DATA') +
SKR REUSE
ALLOC ' ODNAME(FOCCOMP) DSNAMECUVLP. .RCRIS.FOCCOHP.DATA' *
'4PROG..RCRIS.HID.FOCCOHP.DATA' +
4PROG..RCRIS.PMT.FOCCOHP.DATA' +
'4PROC..RCRIS.CME.FOCCOMP.DATA' »
'4PROG..RCRIS.CA.FOCCCMP.DATA' *
'4PROG..RCRIS.PMFMPDBA.FOCCOKP.DATA' +
'4PROG..RCRIS.FOCCOKP.DATA') +
SHR REUSE
ENDO
ENDO / select
RCRIS 4.0.0 G-13 11/92
-------
RCRIS System Technical Guide
SET CHECKDB = &SUBSTR(6:8,&DBPROG}
IF tCHECKDB EO USD THEN 00
ALLOC DDCHANDLER3) DSNC'JDBPROG..RCRIS.HANDLERS.FOCUS') SHR REU
ALLOC DDCHANOLER4) DSMC'ttSPROO..RCRIS.HANDLER*.FOCUS') SHR REU
ALLOC DD *
ALLOC OONAME(MASTER)
WHEN (T) *
ALLOC DONAME(HASTER)
WHEN (D> +
ALLOC DONAMECHASTER)
ENOO /* select
ENDO /* Schecktfc eq
OSNAMEC&ACCT..RCRIS.FOCMSTER.USER' +
'RCRO.RCRIS.FOCMSTER.OATA' »
'&PROG..RCRIS.FOCMSTER.OATA') *
SHR REUSE
DSMAHEC&ACCT.. RCRIS. FOCMSTER.USER' +
'RCRO.RCRIS.FOCMSTER.OATA' +
'&TEST..RCRIS.FOCHSTER.DATA' *
'4PROC..RCRIS.FOCMSTER.OATA') *
SHR REUSE
DSNAMEC4ACCT.. RCRIS. FOCMSTER.USER' +
'RCRO.RCRIS.FOCMSTER.DATA' +
'&DVLP-.RCRIS.FOCMSTER.DATA' +
'4TEST..RCRIS.FOCMSTER.DATA' +
'&PROG..RCRIS.FOCMSTER.DATA') +
SHR REUSE
ALLOC OD(OFFLINE)
ALLOC OD(OBNAMES) DSNAME('(TABLES..RCRIS.DBNAHES.DATA') SHR REUSE
ALLOC DD(HOLDHAST) USINGCAT2) SPACE(10,10) CYLINDERS OIRC15) * .-'
UHIT(ITPMDISK) NEW DELETE REUSE
OSNAME(FOCUS.OFFLINE) USING(ATI) SPACE(30,20) +
CYLINDERS UMIT(&TPMOISK) NEW CATALOG REUSE
ALLOC DD(HOLD) DS(HOLO) SPACE(30,20) CYL REUSE UNITUTUKDISK) +
NEW CATALOG
ALLOC DO(SAVE) SPACE(30,20) CYL REUSE UNIT(&TWKDISK) NEW DELETE
ALLOC DD(FOCSORT) SPACE(265,35) CYL REUSE UNIT(&TWKDISK) NEW DELETE
ALLOC DD(FOCSTACK) SPACE(l.t) CYLINDERS REUSE UNIT(CTWKDISK)
ALLOC OD(ERRORS) OSC5TFOCACNT..FOCUS&FOCVER.ERRORS.DATA') SHR REU
ALLOC OD(USERLIB) OS('ftTFOCACNT..FOCUStFOCVER.FUSEL IB.LOAD') SHR REU
Allocate FOCUS user databases for RCRIS system
*/
-*/
ALLOC DDHAHE(AGHDES) OSNAMECMBPROG..RCR1S.AGNDES.FOCUS') SHR REU
ALLOC DDNAME(AREAOES) OSNAMECtDBPROG..RCRIS.AREADES.FOCUS') SHR REU
ALLOC DDMAME(CAAREA) OSNAMECtDBPROG. .RCRIS.CAAREA. FOCUS') SHR REU
ALLOC DDNAME(CACONST) DSNAMEC&DBPROG..RCRIS.CACOKST.FOCUS') SHR REU
ALLOC DDNAME(CAINST) DSNAMEC&DBPROG..RCRIS.CAINST.FOCUS') SHR REU
ALLOC DONAME(CEENFOR) DSNAHECtDBPROG..RCRIS.CEENFOR.FOCUS') SHR REU
ALLOC DONAME(CEEVAL) OSNAMECtDBPROG..RCRIS.CEEVAL.FOCUS') SHR REU
ALLOC DDNAME(CETICK) OSNAKECtDBPROG..RCRIS.CETICK.FOCUS') SHR REU
ALLOC OONAME(CEVIOL) OSNAMECUBPROG..RCRIS.CEVIOL.FOCUS') SHR REU
ALLOC DDNAHE(CMERR) DSNAMECtTABLES..RCRIS.CMERR.DATA') SHR REU
ALLOC DDHAME(COMMTMNT) OSNAKECtDBPROG..RCRIS.COHMTHNT.FOCUS') SHR REU
ALLOC DDNAME(COMSTCD) DSNAKEC40BPROG..RCRIS.CONSTCD.FOCUS') SHR REU
ALLOC DDNAME(CONTROL) DSNAMEC&DBPROG..RCRIS.CONTROL.FOCUS') SHR REU
ALLOC DDNAME(EPATHRD) DSNAMECSOBPROG..RCRIS.EPATHRD.DATA') SHR REU
ALLOC OONAME(EREADES) DSNAMEC&DBPROG..RCRIS.EREADES.FOCUS') SHR REU
ALLOC DONAME(ETEMPLAT) DSNAMECttBPROG..RCRIS.ETEKPLAT.FOCUS') SHR REU
ALLOC DONAME (EVENT) DSNAMECUBPROG..RCRJS. EVENT. FOCUS') SHR REU
11/92
G-14
RCRIS 4.0.0
-------
RCRIS System Technical Guide
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
ALLOC
/*....
DDNAMECGENIND}
DDNAMECHANDLER1)
OONAMECHANDLER2)
DDNANECKCOUNTY)
DDNAMECiORAUDIT)
DONAMEC IORTABLE)
DDNANECMERGE)
DDRAMECMOUTABLE)
DDNAKECNAME)
DDNAMECOUNRTYPE)
DDNANECPERMPROJ)
DDNAMECPERMTYPE)
OONAMECPESTATUS)
DONAMECPEVENT)
DDNAMECPMCOMMIT)
DDNAMECPROCCODE)
ODNANECPSTATDES)
DONANECPUNIT)
DDNANECRCRADDSC)
DDNANECRCRAGDSC)
DONAMECRCRASTAT)
DDNAMECRCRATDSC)
DONAMECRCRVERDT)
DDNAMECREGION)
DONAMECREMEDYCO)
OONAMECRTYPDES)
DONAMEC SECURITY)
DDNAMECSICCODE)
OONAMECSPECPROC)
DONAMECSPECUOM)
DDNANECSPEPECDE)
DDNAMEC STATE)
DONAMECSTATELST)
DDNAMECSUMMARY)
DDNAMECUCALC)
OONANECUONTYPE)
DO NAME (UPOT ABLE)
ODNANECUASTECDE)
DDNAMECMJONTYPE)
DSNAKEC'tOBPROG. .RCRIS. GENIND. DATA' )
DSNAMEC 'tDBPROG .. RCR I S. HANOLER1 . FOCUS ')
DSNAMEC'IDBPROG.. RCRIS. HANDLER2. FOCUS')
DSNAMEC 'tTABLES . .RCRI S . HCOUNTY . FOCUS' }
DSNAMEC'IDBPROG.. RCRIS.IORAUDIT. FOCUS'}
DSNAMEC 'tDBPROG. .RCRIS. IORTABLE. FOCUS' )
DSNANEC 'IOBPROG. .RCR IS. MERGE. FOCUS' )
OSNANEC 'tDBPROG. .RCR IS. MOOT ABLE. FOCUS' )
OSNANEC 'UBPROG. .RCR IS. NAME. FOCUS' )
DSNANEC 'UBPROG. .RCRI S.OUNR TYPE .DATA' )
DSNANEC 'UBPROG. .RCRIS. PERMPROJ .FOCUS' )
DSNAMEC'UBPROG.. RCRIS.PERMTYPE. FOCUS')
DSHAMEC'UBPROG. .RCRIS. PEST ATUS. FOCUS' )
OSNAMEC 'tOBPROG. . RCR 1 S.PEVENT . FOCUS ')
DSNAMEC 'UBPROG. . RCR 1 S.PMCOMMI T . FOCUS ')
OSNAMEC 'UBPROG. . RCR 1 S.PROCCODE . FOCUS '}
DSNAMEC 'UBPROG . .RCRI S .PSTATDE5 . FOCUS' )
DSNAMEC 'tDBPROG.. RCRIS. PUNIT. FOCUS')
DSNANEC'UBPROG. . RCR 1S.RCRADOSC. DATA')
DSNAMEC'UBPROG.. RCRIS. RCRAGDSC. DATA')
DSNAMEC 'SDBPROG. .RCRIS. RCRASTAT. DATA' )
OSNANEC 'UBPROG. .RCRIS.RCRATDSC.DATA' )
OSNANEC ' tPROG. .RCRIS.VERS10N.RELDATE' )
DSNAMEC 'tTABLES. .RCRIS. REGION. DATA' )
OSNAMEC 'UBPROG. .RCRI S.REMEDYCO . FOCUS' )
DSNAMEC'IDBPROG. .RCRIS.RTYPOES. FOCUS')
DSNAMEC'UBPROG. .RCRIS. SECURITY. FOCUS')
DSNAMEC 'tTABLES. .RCRIS. SICCOOE.FOCUS' )
DSNAMEC'UBPROG. .RCRIS.SPECPROC. FOCUS' )
DSNAMEC'UBPROG. .RCRIS. SPECUOM.FOCUS' )
DSNAMEC 'UBPROG. . RCR 1 S . SPEPECDE . FOCUS ')
DSNAMEC 'tTABLES .. RCR I S. STATE .DATA ')
DSNAMEC 'UBPROG. .RCR I S. STATELST . FOCUS '}
OSNAMEC 'UBPROG . .RCR 1 S . SUMMARY . FOCUS' )
DSNAMEC 'UBPROG. .RCRIS. UCALC. DATA' )
DSNAMEC'UBPROG. .RCRIS.UOMTYPE.FOCUS')
OSNAME C ' UBPROG . . RCR I S . UPDTABLE . FOCUS ' )
DSNAMEC 'UBPROG. .RCRIS.UASTECDE. FOCUS' )
DSNAMEC'UBPROG. .RCRIS.UUOMTYPE.DATA' )
Data file allocations
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SKR
SKR
SKR
SKR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SHR
SKR
SHR
SHR
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
REU
ALLOC ODNAMECDATAIN)
ALLOC DONAMECIORSTATE)
ALLOC DDNAMECHBOYSNC)
ALLOC DDNAMECDEFAULTS)
ALLOC DDNAMECPC8PSP92)
DSNAMEC'tTABLES..RCRIS.MRLDIOR.DATA') SHR REU
DSNAMEC'tTABLES..RCRIS.STATE2.DATA') SHR REU
DSNAMEC'tTABLES..HBOYSNC.SPMSf) SHR REU
DSNANEC'IOBPROG..RCRIS.PCRPSPDF.DATA') SHR REU
DSHAMEC'tDBPROC..RCRIS.PCRPSP92.DATA') SHR REU
/*-
/*
/*
Call FOCUS . . .
ATTN OFF
CALL 'tTFOCACNT..FOCUStFOCVER.FOCLIB.LOADC FOCUS)'
QFREE: *
tTCLEAR
WRITE
FREE DDNAMECHOLDKAST HOLD SAVE FOCSORT FOCSTACK) DELETE
FREE ODNAMECNASTER ERRORS USERLIB FOCCOKP FMU TRF FOCEXEC RCRISPAR)
FREE DDNAMECACC AGNDES CAINST CEVIOL ETEHPLAT HCOUNTY PERHPROJ PPARNS)
RCRIS 4.0.0
G-15
11/92
-------
RCRIS System Technical Guide
FREE ODNAMECSECURITY UOMTVPE AHOLD CEENFOR COMMTHNT MERGE DBNAMES)
FREE DDNAMECPERMTYPE PROCCOOE SPECPROC UPOTABLE AREAOES CEEVAL CONSTCO)
FREE DDNAMECEVENT MOUTABLEPESTATUS PUNIT SPECUGK CAAREA PSTATDES)
FREE DONAHE(HANDLER1 NAME PEVENT REMEDYCO SPEPECOE STATELST)
FREE DDNAMECUASTECDE CACONST CETICK EREADES HANDLER2 PHCQHHIT)
FREE DDNAME(RTYPDES SUMMARY 10RSTATE IORAUDIT DATA1N CMERR STATE)
FREE DDNAME(HBOYSNC IORTABLE ERRFILE CONTROL PROFILE)
FREE DDNAME(EPATHRD GENIND OWNRTYPE RCRAOOSC RCRAGDSC RCRASTAT RCRATDSC)
FREE DDNAMECREGION UCALC UUONTYPE OFFLINE DEFAULTS SICCOOE PCRPSP92)
FREE DDNAME
-------
RCRIS System Technical Guide
/* ASSIGN PRODUCTION, DEVELOPMENT AND TEST ACCOUNTS
SET CPROG « 4STRCKHDB)
SET IOVLP ISTR(RCRD)
SET tTEST > ISTR(RCRT)
SET ftTABLES « iSTR(KHDB)
/* SET FOCUS VERSION NUMBER
IF &FOCVER A« £STR(.) THEN +
SET tFOCVER * tSTRC.lFOCVER..)
/* Set up default values for all global coonand subtitution paras.
SET tTDSCHECK
SET tTPRINTOF
SET 1TCLEAR
SET STPWISK
SET ITVKDISK
SET &TFOCACNT
SET tTFDSN
SET 4TACTRANC
SET &TSPCNGNT
SET ITFLDEARC
SET tTLINEDIT
tSTR(DSCHECK)
KSTR(PRINTOFF)
&STR
-------
RCRIS System Technical Guide
(FOCUS VERSION: IFOCVER)
IF IFOCVER *« SSTR(.) THEN +
MITE
ELSE +
WRITE
MITE
IF tSUaSTR(4:6,KSYSPREF) EQ &STR(RCR) THEN 00
MITENR ENTER NODE (P)ROOUCTION. (T)EST. (D)EVELOPNENT OR +
(Q)UIT :
READ IMOOE
IF SMOOE NE SSTR(P) AND MODE NE &STR(T) AND MODE NE SSTR(D) AND +
&MODE NE SSTR(O) THEN DO
WRITE
WRITE INVALID VALUE, PRESS ENTER TO CONTINUE
READ SCUMMY
- GOTO WELCOME
ENDO
IF (MODE EQ tSTR(Q) THEN GOTO OUIT99
ENDO
ALLOC DD(RCRVERDT) OSCtPROG..RCRIS.VERSION.RELDATE') SHR
OPENFILE RCRVERDT INPUT
GETFILE RCRVERDT
SET &VERDATE * &STRC&RCRVERDT)
GETFILE RCRVERDT
SET DIVERSION = SSTR(iRCRVERDT)
CLOSFILE RCRVERDT
SET &XVER » &STR(NONE)
tTFDSN SYSPROC PROCSAVE NOW
&TFDSN ISPPLIB PDSNSAVE NOW
STFOSN 1SPSLIB SDSNSAVE NOW
ftTFDSN ISPTLIB TDSNSAVE NOW.
&TFDSN ISPKLIB HOSNSAVE NOW
IF SSTSOSN(TABLES) EQ OK THEN +
SET &TBLS - iSTR(TABLES)
ELSE SET &TBLS = &STRC )
SELECT (MODE)
WHEN (P) ALLOC OO(SYSPROC) DSC +
. '&PROG..RCRIS.CLIST' +
&PROCSAVE) SHR REUSE
.WHEN (T> ALLOC OOCSYSPROC) DSC4TEST. .RCRIS.CLIST' +
'(PROG..RCRIS.CLIST' +
&PROCSAVE) SHR REUSE
WHEN (0) ALLOC DD(SYSPROC) DSC&DVLP..RCRIS.CLIST' +
'4TEST..RCRIS.CLIST' *
'&PROG..RCRIS.CLIST1 +
tPROCSAVE) SHR REUSE
ENDO
/* CALL ISPF LIBDEF TO ALLOCATE THE PANELS AND MESSAGE FILES.
SELECT (MODE)
WHEN (P) DO
ALLOC OD(ISPPLIB) DS( *
'tPROG..RCRIS.PANELS' +
&PDSNSAVE) SHR REUSE
ALLOC DD(ISPSLIB) DSC *
'4PROG..RCRIS.SKELS' +
tSDSNSAVE) SHR REUSE
ALLOC DD(ISPTLIB) DS( &TBLS . +
11/92
G-18
RCRIS 4.0.0
-------
RCRIS System Technical Guide
'SPROG..RCRIS.TABLES' *
4TDSNSAVE) SHR REUSE
ALLOC DD(ISPMLIB) DSC *
'4PROG..RCRIS.MSGS' *
. &MDSNSAVE) SHR REUSE
ENOO
WHEN (T) DO
ALLOC DDUSPPLIB) OSC'(TEST..RCRIS.PANELS' *
'4PROC..RCRIS.PANELS' +
&POSNSAVE) SHR REUSE
ALLOC DDCiSPSLIB) DSC&TEST.; RCRIS. SKELS' +
'4PROG..RCRIS.SKELS' +
tSDSNSAVE) SHR REUSE
ALLOC DD(ISPTLIB) OS( ftTBLS +
'(TEST..RCRIS.TABLES' +
.'SPROG..RCRIS.TABLES' *
_ &TDSNSAVE) SHR REUSE
ALLOC DDUSPMLI8) DSC&TEST..RCRIS.MSGS' +
'&PROG..RCRIS.HSGS' +
SMDSNSAVE) SHR REUSE
ENOO
WHEN (0) DO
ALLOC DDUSPPLIB) OSC10VLP..RCRIS.PANELS' +
'STEST..RCRIS.PANELS' +
SPROC..RCRIS.PANELS' +
&PDSNSAVE) SHR REUSE
ALLOC OD(ISPSLIB) DSC40VLP..RCRIS.SKELS' *
'4TEST..RCRIS.SKELS' +
'tPROG..RCRIS.SKELS' *
tSDSNSAVE) SHR REUSE
ALLOC DD(ISPTLIB) DS( &T6LS +
'SDVLP..RCRIS.TABLES' +
'&TEST..RCRIS.TABLES' +
'4PROG..RCRIS.TABLES' +
&TDSKSAVE) SHR REUSE
ALLOC DD(ISPMLIB) DSCtDVLP..RCRIS.MSGS' +
'4TEST-.RCRIS.MSCS' *
'SPROC..RCRIS.MSGS' +
SMDSNSAVE) SHR REUSE
ENDO
ENDO /* SELECT
/* --- create storage for panel values
IF &SYSOSN(TABL£S(REBUILT1)) NE OK THEN +
ISPSTART CMD(XCREATETB)
/* --- prompt for new version and data for development and test
/* --- also writes out global variables to ispf profile
ISPSTART CHD(XRCRSXVER &VERDATE SPROG &DVLP (TEST &MODE +
tTACTRANG &TPMDISK tTWKDISK 4TFOCACNT &FOCVER &TPR1NTOF +
STFDSN)
IF 4MOOE NE &STR(P> THEN 00
OPENFILE RCRSXVER INPUT
GETFILE RCRSXVER
SET tVERDATE s &SUBSTR(1:16,4RCRSXVER)
CLOSFILE RCRSXVER
FREE 00(RCRSXVER)
ENOO
SET SVAR = 4STR{ >
RCRIS 4.0.0 G-19 11/92
-------
-------
RCRIS System Technical Guide
DO WHILE AVAR *« 8
4TCLEAR
yg | T£ »*************»»***
**»****«***
MITE *
(***********«***.»
RCRIS
ENVIRONMENTAL PROTECTION AGENCY
VERSION 4VEHDATE
MERGE PROCESSING MAIN MENU
WRITE *
DATE: &SYSOATE *
MITE *
TIME: &SYSTIME *
MITE **************************»*»*****»**********»*****+
ft***************
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITE
MITENR
READ AVAR
3.
4.
1. FLAT FILE UTILITY MENU
2. DATABASE UTILITY MENU
EXTRACT PROGRAMS
TRANSLATOR PRELOAD TEST
5. UPDATE PROGRAM
6. CALL RCRIS
7. STATE CYCLE
8. EXIT MERGE PROCESSING MAIN MENU
ENTER SELECTION »
SELECT (AVAR)
UHEN
UHEN
UHEN
UHEN
UHEN (5)
UHEN (7)
UHEN
(1)
(2)
(3)
(4)
(6)
WHEN (8)
OTHERWISE
MITE
MITE
READ &DUMMY
ENDO /* OTHERWISE
ENDO /* SELECT
ENDO / DO-UHItE
ISPSTART CMD(XMRFFUTIL)
ISPSTART CMDCXMRD8UTI2)
ISPSTART CMD<»REXTRA2 MERGPRO PARM1 PARM2)
ISPSTART CMD(XMRPRECK)
ISPSTART CMD(XHRUPDA?2 MERGPRO PARM1)
ISPSTART CMDCXMRCYCLE2)
DO .
SET 80 = &STR(ftVERDATE)
XRCR1S CALLED(MERGPRO) +
MOOE(tMOOE) FOCVER(CFOCVER)
ENDO
GOTO WIT
DO
INVALID SELECTION, PRESS ENTER TO CONTINUE
QUIT: +
FREE DD(RCRVERDT)
ALLOC DDNAME(SYSPROC)
ALLOC ODNAMEdSPPLlB)
ALLOC DDNAME(ISPSLIB)
ALLOC DDNAME(ISPTLIB)
ALLOC DDNAME(ISPKLIB)
QUIT99: +
tTCLEAR
MITE
DS(tPROCSAVE) SKR REUSE
DS(tPDSNSAVE) SKR REUSE
DSttSDSNSAVE) SHR REUSE
DSC&TDSNSAVE) SHR REUSE
DS(tKDSNSAVE) SHR REUSE
11/92
G-20
RCRIS 4.0.0
-------
RCRIS System Technical Guide
APPENDIX H - PANEL DISPLAYS
BATCHRP1
50
87
137
146
STRING(S) FOUND
ISPEXEC DISPLAY PANEL(BATCHRPI)
1SPEXEC DISPLAY PANEL(PRKDESTS)
ISPEXEC DISPLAY PANELCFORMINFO)
ISPEXEC DISPLAY PANEL(LABFORMS)
BATCHRP3 STRING
CNLDCARS STRING(S) FOUND
31 ISPEXEC DISPLAY PANEL(RCRSMAIN)
CNLDCMEE STRINGCS) FOUND
60 ISPEXEC DISPLAY PANEL(RCRSMAIN)
CNLDHAND - STRINGtS) FOUND
57 ISPEXEC DISPLAY PANEL
-------
RCRIS System Technical Guide
FFCOPY STRING(S) FOUND
25 ISPEXEC DISPLAY PANEURCRSACCC)
FFCOPY1 STRING(S) FOUND
24 ISPEXEC DISPLAY PANEL(RCRSACCC)
FFOELBKP STRIMG(S) FOUND
26 ISPEXEC DISPLAY PANEL(RCRSACCT)
FFDELETE STRING(S) FOUND
27 ISPEXEC DISPLAY PANEL(RCRSACCT)
FFREPDEL " - STRING(S) FOUND
25 ISPEXEC DISPLAY PANEL(FFREPOEL)
FFRESTOR .-- STRING(S) FOUND
23 ISPEXEC DISPLAY PANEL(RCRSACCT)
FILETRAN STRING(S) FOUND
115 ISPEXEC DISPLAY PAHEL(FILETRAN)
GDEPISPF STRINC(S) FOUND
36 ISPEXEC DISPLAY PANEL(PREPINPT)
146 ISPEXEC .DISPLAY PANEKPREPDISP)
178 ISPEXEC DISPLAY PANEL
-------
RCRIS System Technical Guide
1SUPINST STRING(S) FOUND
267 ISPEXEC DISPLAY PANEL(PANINSTUtEGION)
ISUPI201 STRING(S) FOUND
306 ISPEXEC DISPLAY PANEL(PANINSTMEfilON)
N8ACKUP STRING(S) FOUND
23 ISPEXEC DISPLAY PANEL(RCRSACCD)
NBACKUP2 STRtNG(S) FOUND
28 ISPEXEC DISPLAY PANEL(RCRSACCG)
MDELETE STRING(S) FOUND
23 ISPEXEC DISPLAY PANEL(RCRSACCD)
.NRCRGDG STRING(S) FOUND
23 ISPEXEC DISPLAY PANEL(RCRSACCG)
NRCTCLE2 STRING(S) FOUND
28 ISPEXEC DISPLAY PANEL(MRMERGES)
77 ISPEXEC TBOISPL NRSTCYLE PANEL(MXSTCYLE) CURSOR(S1)
198 ISPEXEC DISPLAY PANEL(WtXTRCT)
237 ISPEXEC DISPLAY PANEL(MXXTRCT)
NRDBUTI2 "STRING(S) FOUND
18 ISPEXEC DISPLAY PANEL(MRD8UT12)
NRESTORE - STRING(S) FOUND
23 ISPEXEC DISPLAY PANEL(RCRSACCD)
HREXTRA2 STRING(S) FOUND
78 ISPEXEC DISPLAY PANEL(PRONPTBO)
95 ISPEXEC DISPLAY PANEL(HRHERGE2)
128 ISPEXEC DISPLAY PANEL(NREXTRA2)
... 141 ISPEXEC DISPLAY PANEL
194 ISPEXEC TBOISPL KRSTCYLE PANEL(HRHXTRAZ) CURSOR(Y)
323 ISPEXEC DISPLAY PANEL(KREXHARD)
MRFFUTIL STRING
-------
134
_ 157
161
MRPRECK
30
66
79
66
KRPRELD
90
92
ISPEXEC DISPLAY PANELCHRPOP1)
ISPEXEC DISPLAY PAN£L(MRPOP2)
i SPEXEC D1 SPLAY PANEL(MRPOP1)
STRIKG(S) FOUND
ISPEXEC DISPLAY PANEL(KRMERGE3)
ISPEXEC DISPLAY PANEL(MRUPDAT2)
ISPEXEC DISPLAY PANEL(PANRGUP®ION)
ISPEXEC DISPLAY PANEL
-------
RCRIS System Technical Guide
RCRINIT ""- STRINGCS) FOUND
68 ISPEXEC DISPLAY PANEUfiCRSMAIN)
RCRNENU STRINGCS) FOUND
63 ISPEXEC SELECT PANEL(RCRNAIN)
RCRSMAJN STRING(S) FOUMD
47 ISPEXEC DISPLAY PAMEL(RCRSNAIN)
RCRSXVER STRING(S) FOUND
29 ISPEXEC DISPLAY PANEL(RCRSXVER)
RCRUSER STRING(S) FOUND
24 ISPEXEC DISPLAY PANEL(RCRUSER)
REPORTS STRING(S) FOUND
357
393
SUMAIN
46
SUPR01
101
SUSTART1
75
SUSTAT1
27
93
SUSTOP1
- 71
S2KARCH
23
TSTDSPNL
ISPEXEC DISPLAY PANEL(RCROACT)
ISPEXEC SELECT PANEL(REPORTI)
STRING(S) FOUND
ISPEXEC DISPLAY PANELCSUMAIN)
f STRING(S) FOUND
ISPEXEC TB01SPL SUPR01 PANEL(SUPRO) CSRROU(I) AUTOSEL(NO)
STRING(S) FOUND
ISPEXEC DISPLAY PAHEL(SUPROI)
STRINC(S) FOUND
00004800
ISPEXEC DISPLAY PANEL(SUSTAT1)
ISPEXEC TBDISPL SUPR02 PANEL(SUSTATUS) CSRROU(1) AUTOSEL(NO)
t" STRING(S) FOUND
ISPEXEC DISPLAY PANELCSUPR01)
STRING(S) FOUND
ISPEXEC DISPLAY PANEL(SZKARCH)
STRING(S) FOUND
46 ISPEXEC DISPLAY PANEL(TSTOBPNL)
00004600
RCRIS 4.0.0
H-5
11/92
-------
-------
RCRIS System technical Guide
APPENDIX I KPF SKELETON TAILORING CALLS
IATCKRP1
185 ISPEXEC FTOPEN TEMP
186 ISPEXEC FTINCL SSKLHAME
187 ISPEXEC FTCLOSE
BATCHRP3
STRING(S) FOUND
STRING(S) FOUND
105 ISPEXEC FTOPEN TEMP
106 ISPEXEC FTINCL BATCHRP3
107 ISPEXEC FTCLOSE
BATCHSUB
STRING(S) FOUND
104 ISPEXEC FTOPEN TEMP
105 ISPEXEC FTINCL &SKELNEM
106 ISPEXEC FTCLOSE
8ATUCALC
STRINGCS) FOUND
47 ISPEXEC FTOPEN TEMP
48 ISPEXEC FTINCL BATUCALC
49 ISPEXEC FTCLOSE
CARSARCH
STRINGCS) FOUND
243 ISPEXEC FTOPEN
244 ISPEXEC FTINCL CARSARCH
245 ISPEXEC FTCLOSE
CMESTARS
403
404
405
406
407
DBAftEBLD
38
39
40
oocjoe
28
29
30
31
32
fiODOCJOB
28
29
30
31
32
STRINGCS) FOUND
ISPEXEC FTOPEM TEMP
ISPEXEC FTINCL STARSJOB
IF 4PROCOPT =» I THEN ISPEXEC FTINCL STARSREJ
ELSE ' ISPEXEC FTINCL STARSRFN
ISPEXEC FTCLOSE
STRINGCS) FOUND
ISPEXEC FTOPEN TEMP
ISPEXEC FTINC.L MRREBILD
ISPEXEC FTCLOSE
STRINGCS} FOUND
ISPEXEC FTOPEN
ISPEXEC FTINCL JCLTOP
ISPEXEC FTINCL JCLJES
ISPEXEC FTINCL KSKNAM
ISPEXEC FTCLOSE
STRIKG(S) FOUND
ISPEXEC FTOPEN
ISPEXEC FTINCL GDJCLTOP
ISPEXEC FTINCL GOJCLJES
ISPEXEC FTINCL &SKNAM
ISPEXEC FTCLOSE
RCRIS 4.0.0
1-1
11/92
-------
RCRIS System Technical Guide *
ISUPFOC2
559 ISPIXEC FTOPEN TEMP
560 ISPEXEC FTINCL INSTALL
561 ISPEXEC FTCLOSE
NBACKUP2
54 ISPEXEC FTOPEN TEMP
55 ISPEXEC FTINCL MBACKUP
56 ISPEXEC FTCLOSE
MRCRGDG
47 ISPEXEC FTOPEN TEMP
48 ISPEXEC FTINCL MRCRGDG
49 ISPEXEC FTCLOSE
MREXTRA2
325 ISPEXEC FTOPEN TEMP
326 ISPEXEC FTIMCL MREXTRA2
327 ISPEXEC FTCLOSE
MRPRECK
STRING(S) FOUND
STRJNG(S) FOUND
STRING(S) FOUND
STRING(S) FOUND
STRING(S) FOUND
312 ISPEXEC FTOPEN TEMP
313 ISPEXEC FTINCL MRPRECK
314 ISPEXEC FTCLOSE
NRRCGDG
STRING(S) FOUND
56 ISPEXEC FTOPEN TEMP
58 ISPEXEC FTINCL MRRRGDG
60 ISPEXEC FTINCL MRRCGDG
61 ISPEXEC FTCLOSE
MRREBILD
19 ISPEXEC FTOPEN TEMP
20 ISPEXEC FTINCL MRREBILD
21 ISPEXEC FTCLOSE
NRSTDELS
97 ISPEXEC FTOPEN TEMP
98 ISPEXEC FTINCL MRSTDELS
99 ISPEXEC FTCLOSE
NRUPDAT2
350 ISPEXEC FTOPEN TEMP
351 ISPEXEC FTIMCL MRUPDAT2
352 ISPEXEC FTCLOSE
MRUPDT
STRING(S) FOUND
STRING(S) FOUND
STRING(S) FOUND
STRIHG(S) FOUND
210 ISPEXEC FTOPEN TEMP
211 ISPEXEC FTINCL MRUPOAT2
212 ISPEXEC FTCLOSE
11/92
1-2
RCRIS 4.0.0
-------
r
RCRIS System Technical Guide
MRXTRCT
STRING(S) FOUND
132 ISPEXEC FTOPEN TEMP
133 ISPEXEC FTIHCL MREXTRA2
134 ISPEXEC FTCLOSE
RCRIBMCG
332
333
334
348
349
350
RCR1BMFL
STRIMG(S) FOUND
ISPEXEC FTOPEN TEMP
ISPEXEC FTINCL RCRTPLCG
ISPEXEC FTCLOSE
ISPEXEC FTOPEN TEMP
ISPEXEC FTINCL 8CRTPCCG
ISPEXEC FTCLOSE
STRING(S) FOUND
367 ISPEXEC FTOPEN TEMP
368 ISPEXEC FTINCL RCRTPLFL
369 ISPEXEC FTCLOSE
381 ISPEXEC FTOPEN TEMP
382 ISPEXEC FTINCL RCRTPCFL
383 ISPEXEC FTCLOSE
RCRXNTCG
STRING(S) FOUND
289 ISPEXEC FTOPEN TEMP
290 ISPEXEC FTINCL RCRXMTCG
291 ISPEXEC FTCLOSE
RCRXMTFL
STRING(S) FOUND
314 ISPEXEC FTOPEN TEMP
315 ISPEXEC FTINCL RCRXMTFL
316 ISPEXEC FTCLOSE
S2KARCH
91
92
93
STRING(S) FOUND
ISPEXEC FTOPEN
ISPEXEC FTINCL (ARCH
ISPEXEC FTCLOSE
RCRIS 4.0.0
1-3
11/92
-------
-------
RCRIS System Technical Guide
APPENDIX! - PROFILE ALLOCATIONS
CALFOCUS
15 FREE DD(PROFILE)
CNEXCARS
79
80
89
90
91
93
94
105
106
107
108
109
110
112
113
CNLDCARS
142
143
151
152
153
155
156
166
167
168
169
170
171
173
174
CNLOCMEE
119
120
; 128
129
130
132
133
143
144
145
146
147
148
150
151
STRING(S) FOUND
STRING(S) FOUND
ALLOC DDNAME(PROFILE) +
DSNAMEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEE)') SHR
IF &SYSDSNC&TEST..RCRIS.FOCEXEC.OATA(PROFILEE)'> EO OK THEN*
ALLOC DDMAMECPROFILE) SHR REUSE*
OSKAMEC&TEST..RCRIS.FOCEXEC.DATA(PROFILEE)')
ALLOC DDKANE(PROFILE) SHR REUSE +
CUTANEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEE)')
IF &SYSOSNC&DVLP..RCRIS.FOCEXEC.OATA(PROFILEE)') EQ OK THEN +
ALLOC DDNANE(PROFILE) SHR REUSE +
DSNAME('&DVLP..RCRIS.FOCEXEC.DATA(PROFILEE)')
ELSE IF &SYSOSNC*TEST..RCRIS.FOCEXEC.DATA(PROFILEE)') EQ OK THEN +
ALLOC DDNAME(PROFILE) SHR REUSE +
DSNAMEC&TEST..RCRIS.FOCEXEC.DATA(PROFILEE)')
ALLOC DDNAMECPROFILE) SHR REUSE +
DSNAMEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEE)')
STRING(S) FOUND
ALLOC DONAME(PROFILE) +
DSNAMEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEF)') SHR
IF iSYSOSNC&TEST..RCRIS.FOCEXEC.DATA(PROFILEF)') EO OK THEN*
ALLOC DDNANE(PROFILE) SHR REUSE *
DSMANEC4TEST?.RCRIS.FOCEXEC.DATA(PROFILEF)')
ALLOC DDNAME(PROFILE) SHR REUSE +
DSNAMEC&PROG..RCRIS.FOCEXEC.OATA(PROFILEF)')
IF &SYSDSNC&DVLP..RCRIS.FOCEXEC.DATA(PROFILEF)') EQ OK THEN *
ALLOC DDNAME(PROFILE) SHR REUSE *
DSNAMEC'&DVLP..RCRIS.FOCEXEC.DATA(PROF1LEF)')
ELSE IF &SYSDSNCSTEST..RCRIS.FOCEXEC.DATA(PROFILEF)') EQ OK THEN
ALLOC DDNAME
-------
RCRIS System Technical Guide
CNLDHAND
130
131
139
140
141
143
144
154
155
156
157
158
159
161
162
CNLDPERM
129
130
138
139
140
142
143
153
154
155
156
157
158
160
161
EDITOR
82
84
86
88
90
STRINGCS) FOUND
ALLOC DDNAKECPROFIbE) +
DSNAMECiPROG..RCRIS.FKEXEC.DATACPROFILEA)') SHR
IF &SYSDSNC&TEST..RCRIS.FOCEXEC.DATA(PROFILEA)'} EO OK THEN +
ALLOC DDNAME(PROFILE) SHR REUSE +
DSNAHEC'JTEST..RCRIS.FOCEXEC.DATA(PROFILEA)')
ALLOC DDNAHEtPROFILE) SHR REUSE +
DSNAKEC'SPROG..RCRIS.FOCEXEC.DATACPROFILEA)')
IF iSYSDSNC'*DVLP..RCRIS.FOCEXEC.OATA(PROFILEA)') EQ OK THEN*
ALLOC ODNAMECPROFILE) SHR REUSE +
DSNAME('SDVLP..RCRIS.FOCEXEC.DATA(PROFILEA)')
ELSE IF SSYSOSNC'tTEST..RCRIS.FOCEXEC.DATACPROF1LEA)') EQ OK THEN +
ALLOC DDNAMECPROFILE) SHR REUSE +
DSNAMEC'iTEST..RCRIS.FOCEXEC.DATA(PROFILEA)')
ALLOC DDNANE(PROFILE) SHR REUSE +
OSNANEC&PROG. .RCRIS.FOCEXEC.DATA(PROFILEA)')
STRING(S) FOUND
ALLOC DDMAMECPROFILE) *
DSNAMEC'tPROG..RCRIS.FOCEXEC.OATACPROF1LEB)') SHR
IF SSYSDSMC'STEST..RCRIS.FOCEXEC.DATA(PROFILES)') EQ OK THEN +
ALLOC DDMAKEtPROFILE) SHR REUSE +
OSNAME<'ATEST..RCRIS.FOCEXEC.DATA(PROFILEB)'>
ALLOC DDNAMECPROFILE) SHR REUSE *
DSHAMEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEB)')
IF &SYSDSN('(DVLP..RCRIS.FOCEXEC.DATA(PROFILEB)') EQ OK THEN +
ALLOC DDNAME
-------
RCRIS System Technical Guide
ISUP1201
1825
1826
STRING(S) FOUND
REN RCRIS. FOCEXECI .DATA*PROFI LEO) *
. RCRIS.FOCEXECI.DATA(PROFILE)
MDBSLDBT
STRINGCS) FOUKD
31 DELETE RCRIS.FOCEXEC.DATA
-------
RCRIS System Technical Guide
RCRIORT2
17
47
49
51
53
55
STRING(S) FOUND
FREE ODMAME(PROFILE)
IF &SYSOSN('SOVLP..RCRIS.FOCEXEC.DATA(PROFILEL)'} « OK +
ALLOC DD(PROFILE) DSC&DVLP..RCRIS.FOCEXEC.DATA(PROFILED')
IF SSYSDSNCMEST..RCRIS.FOCEXEC.DATA(PROFILEL)') = OK *
ALLOC OO(PROFILE) OSC'STEST..RCRIS.FOCEXEC.DATA(PROFILED') SHR
ALLOC DO(PROFILE) DSC'SPROG..RCRIS.FOCEXEC.DATA(PROFILED') SHR
SHR
RCRIS
353
357
388
392
394
RCRISREG
302
304
360
364
368
371
STRING(S) FOUND
SET 4PROFMEM « SSTR(PROFILSU)
SET ftPROFNEM = 4STR(PROFILSG)
ALLOC DD(PROFILE) DSC&DVLP..RCRIS.FXEXEC.DATA(&PROFMEN)') SHR REU
ALLOC OD(PROFILE) DSC&TEST..RCRIS.FOCEXEC.DATAC&PROFNEN}'} SHR REU
ALLOC DD(PROFILE) DSC&PROG..RCRIS.FOCEXEC.DATAC&PROFNEM)') SHR REU
STRING(S) FOUND
SET &PROFNEM * tSTR(PROFILSU)
SET fcPROFMEN « ftSTR(PROFILSG)
ALLOC DO(PROFILE) DS('U>VLP..RCRIS.FOCEXEC.DATA(&PROFMEM)') SHR
ALLOC OO(PROFRE) OSCtTEST..RCRIS.FOC£XEC.DATA(4PROFMEM>'> SHR
ALLOC DO(PROFILE) DSCtTEST..RCRIS.FOCEXEC.CHANGES.ftXVER(ftPROFMEM)') *
ALLOC DD(PROFILE) DSC&SPROG..RCRIS.FOCEXEC.DATAC&PROFHEN}') SHR
RCRISVJ
312
314
370
374
378
381
RCRMEMK
36
37
38
39
40
41
43
.. 44
47
48
49
51
52
54
55
RCRNEMDP
STRING(S) FOUND
SET ftPROFNEM > tSTRCPROFILSU)
SET &PROFMEM a &STRCPROFILSG)
ALLOC OD(PROFILE) DSCtOVLP..RCRIS.FOCEXEC.DATAC&PROFMEM)') SHR
ALLOC DD(PROFILE) DS('&TEST..RCRIS.FOCEXEC.OATA(W>ROFMEM)') SHR
ALLOC DD(PROFILE) DSC4TEST..RCRIS.FOCEXEC.CHANGES.SXVERC&PROFMEM)') +
ALLOC DD(PROFILE) OSCNKGRCRT.RCRIS.FOCEXEC.DATA(PROFILVJ)') SHR
STRING(S) FOUND
IF
SSrSOSHCSDVLP..RCRIS.FOCEXEC.DATA(PROFILEM)') EQ OK THEN +
ALLOC DDNANE(PROFILE) SHR *
DSMAMECiOVLP..RCRIS.FOCEXEC.OATA(PROFILEM)')
ELSE IF &SYSOSMC4TEST..RCRIS.FOCEXEC.DATA(PROFILEN)') EQ OK THEN *
ALLOC ODNAHE
-------
RCRIS System Technical Guide
49
50
52
53
56
57
58
60
61
63
64
90
91
92
93
RCRMOUTB
29
60
62
64
66
68
REBUILD
160
189
223
SURCRIS
75
77
79
81
83
85
88
ALLOC OONAMf(PROFILE) SHR +
DSNAHEC&TEST..RCRIS.FOCEXEC.DATACPROFILEM)')
ALLOC DDNAMECPROFILE) SHR +
DSNAHEC&PROG..RCRIS.FOCEXEC.DATACPROF1LEM)')
IF &SYSDSNC&TEST..RCRIS.FOCEXEC.DATACPROF1LEN)1) EQ OK THEN*
ALLOC DDNAMECPROFILE) SHR +
OSNAMEC4TEST..RCRIS.FOCEXEC.DATACPROFILEM)')
ALLOC DDNAMECPROFILE) SHR *
DSMAMEC&PROG..RCRIS.FOCEXEC.DATA(PROFILEH)')
WHEN CP1 ALLOC DDNAMECPROFILE) SHR +
OSHAMEC&PROG..RCRIS.FOCEXEC.DATACPROF1LEM)')
DELETE 'iCPYACT..»CRtS.FOCEXEC.CHANGES&VERCPROFILE)'
IF &SYSDSNC&CPYACT..RCRIS.FOCEXEC.CHANGES&VERCPROFILZZ)'} EQ OK THEN *
RENAME '&CPYACT..RCRIS.FOCEXEC.CHANGES&VERCPROFILZZ)' +
'KPYACT. .RCRIS. FOCEXEC.CHANGES&VERCPROFILE)'
STRING(S) FOUND
FREE DDNANE(PROFILE)
IF &SYSDSNC&DVLP..RCRIS.FOCEXEC.DATA(PROFILEU)') = OK +
ALLOC DD(PROFILE) DSC&DVLP..RCRIS.FOCEXEC.OATA(PROFILEU)') SHR
IF &SYSDSNC&TEST..RCRIS.FOCEXEC.OATA(PROFILEU)') = OK +
ALLOC DD{PROFILE) DSC&TEST..RCRIS.FOCEXEC.DATA(PROFILEU)') SHR
ALLK DD(PROFILE) DSC&PROG..RCRIS.FCCEXEC.DATA(PROFILEU)') SHR
STRIHG(S) FOUND
ALLOC DD(PROFILE) +
ALLOC DD(PROFILE) +
ALLOC DD(PROFILE) +
STRIHG(S) FOUND
IF &SYSDSNC&DVLP..RCRIS.FOCEXEC.DATA(PROFILSU)') » OK +
ALLOC DD(PROFILE) DSC&DVLP..RCRIS.FOCEXEC.DATA(PROFILSU)'} SHR
IF &SYSDSMC&TEST..RCRIS.FOCEXEC.DATA(PROFILSU)'} = OK +
ALLOC DD(PROFILE) DSC&TEST..RCRIS.FOCEXEC.DATA(PROFILSU)') SHR
IF (SYSDSNC&TEST..RCRIS.FOCEXEC.CHANGES.SXVER(PROFILSU)') OK *
ALLOC DD(PROFILE) DSC&TEST..RCRIS.FOCEXEC.CHANGES.»XVER
-------
-------
RCRIS System Technical Guide
APPENDIX K RCRIS MENU MAP
The following five-page diagram is a complete listing of the RCRIS menus. The diagram
displays each module in RCRIS, each menu option and the program name called by the menu
option.
The menu map also utilizes a numbering system for the menu options. Each option is assigned
a one- to four-digit number, depending upon the level of menu:
o One-digit numbers are assigned to the first menu level (the modules from the
main RCRIS menu). - -
o Two-digit numbers are assigned to the second menu level (the options from each
module's main menu).
o Three-digit numbers are assigned to the third menu level (sub-options for each
module).
o Four-digit numbers are assigned to the fourth menu level (the lowest level of
options).
s
If a menu contains more than nine options, letters are assigned after the ninth.
For example, the Commitment Dump has been assigned the number 5911. The meaning of this
number is as follows:
5 represents Option 5 from the RCRIS Main Menu (Program Management).
9 represents the ninth option from the Program Management Main Menu (PM Reports).
1 represents the first option from the PM Reports Menu (Dump Reports).
1 represents the first option from the Dump Reports Menu (Commitment Dump).
RCRIS 4.0.0
K-l
11/92
-------
-------
r
fi
I
C.IP*
ii
f
-------
TTrrrn
-------
-------
TJ I MM MUM
-------
\\
vr
!i
1
-------
RCRIS System Technical Guide
APPENDIX L FOCUS DATABASE FILES AND TABLE LOOKUP FILES BY
MODULES
DATABASE / DATASET NAME
fiDBPROG..RCRZS.AGNDES.FOCUS
&DBPROG..RCRIS.AREAOES.FOCUS
fiDBPROG..RCRIS.CAAREA.FOCUS
&DBPROG..RCRIS.CACONST.FOCUS
&DBPROG..RCRIS.CAINST.FOCUS
fiDBPROG..RCRIS.CEENFOR.FOCUS
fiDBPROG..RCRIS.CEEVAL.FOCUS
&DBPROG..RCRIS.CETICK.FOCUS
SDBPROG..RCRIS.CEVIOL.FOCUS
fiDBPROG..RCRIS.COMMTMNT.FOCUS
fiDBPROG..RCRIS.CONSTCD.FOCUS
&DBPROG.. RCRIS. CONTROL. FOCUS
fiDBPROG..RCRIS.EPATHRD.DATA
fiDBPROG..RCRIS.EREADES.FOCUS
fiDBPROG..RCRIS.ETEMPLAT.FOCUS
fiDBPROG..RCRIS.EVENT.FOCUS
&DBPROG..RCRIS.GENIND.DATA
SDBPROG..RCRIS.HANDLERl.FOCUS
fiDBPROG..RCRIS.HANDLER2.FOCUS
&DBPROG..RCRIS.IORAUDIT.FOCUS
SDBPROG..RCRIS.IORTABLE.FOCUS
fiDBPROG..RCRIS.MERGE.FOCUS
fiDBPROG..RCRIS.MOUTABLE.FOCUS
&DBPROG..RCRIS.NAME.FOCUS
fiDBPROG..RCRIS.OWNRTYPE.DATA
&DBPROG..RCRIS.PERMPROJ.FOCUS
6DBPROG..RCRIS.PERMTYPE.FOCUS
&DBPROG..RCRIS.PESTATUS.FOCUS
fiDBPROG..RCRIS.PEVENT.FOCUS
&D8PROG..RCRIS.PSTATDES.FOCUS
&DBPROG..RCRIS.PMCOMMIT.FOCUS
SDBPROG..RCRIS.PROCCODE.FOCUS
fiDBPROG..RCRIS.PUNIT.FOCUS
fiDBPROG..RCRIS.RCRADDSC.DATA
fiDBPROG..RCRIS.RCRAGDSC.DATA
fiDBPROG..RCRIS.RCRASTAT.DATA
fiDBPROG'.. RCRIS. RCRATDSC. DATA
fiDBPROG..RCRIS.REMEDYCD.FOCUS
fiDBPROG..RCRIS.RTYPDES.FOCUS
fiDBPROG..RCRIS.SECURITY.FOCUS
SDBPROG..RCRIS.SPECPROC.FOCUS
SDBPROG..RCRIS.SPECUOM.FOCUS
fiDBPROG..RCRIS.SPEPECDE.FOCUS
fiDBPROG..RCRIS.STATELST.FOCUS
6DBPROG..RCRIS.SUMMARY.FOCUS
fiDBPROG..RCRIS.UCALC.DATA
fiDBPROG..RCRIS.UOMTYPE.FOCUS
&DBPROG..RCRIS.UPDTABLE.FOCUS
fiDBPROG..RCRIS.HASTECDE.FOCUS
&DBPROG..RCRIS.WUOMTYPE.DATA
RCRIS 4.0.0
MODULE(S)
ALL
CA
CA
CA
CA
CMS
CHE
CME
CME
PM
CA
MERGE
ALL
CME
CA, CME, FMP, PM, PMT
CA, FMP, PM
HID
ALL
ALL
MERGE
MERGE
MERG&
ALL
ALL
HID
PMT
PMT
PMT
PMT
ALL
PM
PMT
PMT
HID
HID
HID
HID
CA
CME
ALL
HID
HID
PMT
MERGE
CA, CME, FMP, PM
ALL
PMT
ALL
HID
HID
L-l
11/92
-------
RCRIS System Technical Guide
STABLES..RCRIS.CMERR.DATA
STABLES..RCRIS.ERRFILE.DATA
STABLES. . RCRIS. HCOUNTY. FOCUS
STABLES..RCRIS.REGION.DATA
STABLES..RCRIS.SICCODE.FOCUS
STABLES..RCRIS.STATE.DATA
&DBPR06..RCRIS.PCRPSP92.DATA
SDBPROG..RCRIS.PCRPSPDF.DATA
STABLES..HBOYSNC.SPHS
STABLES..RCRIS.MRLDIOR.DATA
STABLES.. RCRIS. STATE2. DATA
&PROG..RCRIS.VERSION.RELDATE
STABLES..RCRIS.DBNAMES.DATA
ALL
ALL
ALL
ALL
ALL
ALL
PMT -
PMT
CHE
MERGE
ALL
ALL
ALL
11/92
L-2
RCRIS 4.0.0
-------
RCRIS System Technical Guide
APPENDIX M
SU PROGRAM: SUSTART, SUAUTOS, SUSTOP, SUAUTOP,
PROFILSU, SUTABLE, AND SUSTATUS
SUSTART
PROC 0 LISTO
/A*************************************************************
/* START FOR ALL SINK MACHINES BY USER ID: CREATED 7/18/91
/* CREATED IN RESPONSE TO CPMS * 133736
/ SEARCHES THE RCRS.RCRIS.SUTABLE.DATA TABLE FOR A PRIMARY
/* RESPONSIBLE USERID EQUAL TO THE CURRENT USERID AND THEN
/ EXECUTES SUAUTOS CLIST FOR EACH EQUAL CONDITION.
DRIVEN BY PARAMETER FILE: RCRS.RCRIS.SUTABLE.DATA
TABLE COLUMNS: (FOR PARAMETERS)
NONE, S « STAT,
FOR SINK MACHINE
E = ECHO)
/*
/*
/* 01-08 SINK MACHINE START ID.
/* 10-17 SINK MACHINE STOP ID.
/* 19 HLIPR1NT PARAMETER (BLANK
/* 20-23 GROUP ACCOUNT RESPONSIBLE
/* 25-33 BATCH JOB ACCOUNT CODE
/ 35-38 BOX CODE
/* 40-56 REMOTE PRINTER DESIGNATION
/* 58-60 PRIMARY RESPONSIBLE USERID
/* 62-64 ALTERNATE RESPONSIBLE USERID
/* 66-68 RCRIS SUPPORT USERID
/ 70-73 SU START TIME
/* 75-78 SU STOP TIME
/* 80-83 RCRIS MASTER DATA BASE DEFINITION ACCOUNT CODE (MACT)
/* 85-88 FIRST RCRIS DATA BASE ACCOUNT CODE
/* 90-92 FIRST RCRIS DATA BASE IMPLEMENTER COTE
/* 94-97 SECOND RCRIS DATA BASE ACCOUNT CODE ,
/ 99-102 SECOND RCRIS DATA BASE IMPLEMENTER CODE
/* 104-107 THIRD RCRIS DATA BASE ACCOUNT CODE
/* 109-111 THIRD RCRIS DATA BASE IMPLEMENTER CHE
/* 113-116 FOURTH RCRIS DATA BASE ACCOUNT CUE
/* 118-120 FOURTH RCRIS DATA BASE IMPLEMENTER CODE
/* 122-125 FIFTH RCRIS DATA BASE ACCOUNT CODE
/* 127-129 FIFTH RCRIS DATA BASE IMPLEMENTER CODE
/* 131-134 SIXTH RCRIS DATA BASE ACCOUNT COTE
/ 136-138 SIXTH RCRIS DATA BASE IMPLEMENTER CODE
/* 140-143 SEVENTH RCRIS DATA BASE ACCOUNT CODE
/ 145-147 SEVENTH RCRIS DATA BASE IMPLEMENTER CODE
/
*/
V
V
V
*/
*/
V
*/
*/
V
*/
*/
*/
V
*/
*/
*/
V
V
*/
V
*/
V
*/
V
CLIST PARAMETERS:
. LIST. - WHEN SET TO LIST, TURNS ON DEBUG OPTIONS
MODIFIED:
/*
/*
/*
/*
/*
/*****
CONTROL END(ENDO) NOFLUSH MSG MAIN NOLIST NOSYMLIST NOCONLIST
IF &LIST « tSTRUIST) THEN +
CONTROL LIST SYMLIST CONLIST
IF 4LIST NE tSTRUIST) THEN »
. SET &LIST « &STR(.)
SET tPREF = &SYSPREF
ATTN +
GOTO FINISH
SET tUSR * tSUBSTR(1:3r&SYSPREF)
SET &ACCT = tSUBSTR(4:7,2SYSPREF)
SET &FND a SSTR(F)
*/
*/
V
»»»*«***»/
RCRIS 4.0.0
M-l
11/92
-------
RCRIS System Technical Guide
If &LIST HE &STRUIST) THEN +
CONTROL NOMSG
FREE DD(SUTBLE)
CONTROL NSG
IF &ACCT « *STR(RCRT) +
OR &ACCT * SSTR(RCRO) THEN +
DO
IF &SYSDSHCRCRT.RCRIS.CLISTCSUAUTOS)') = OK THEN +
SET &PROG « &ACCT
ELSE +
SET (PROG = SSTR(KHDB)
IF 4SYSDSNCRCRT.RCRIS.SUTABLE.DATA') = OK THEN +
ALLOC DD(SUTBLE) DACRCRT.RCRIS.SUTABLE.DATA') SHR
ELSE + .
. ALLOC OD(SUTBLE) DACRCRS.RCRIS.SUTABLE.DATA') SHR .
ENDO
ELSE *
DO
SET SPROG &STR(KHOB)
IF tSTSDSNCRCRS. RCRIS. SUT ABLE.DATA') = OK THEN +
ALLOC DD(SUTBLE) DACRCRS.RCRIS.SUTABLE.DATA') SHR
ELSE »
ALLOC DD(SUTBLE) DACRCRT.RCRIS.SUTABLE.DATA') SHR
ENOO
OPENFILE SUTBLE INPUT
GETFILE SUTBLE
SET iSUINIT > &SUBSTR(1:8,&SUTBLE>
DO UHILE &SUIN1T HE &STR(#0###0##)
SET SSUACCT = tSUBSTR(85:88,tSUTBLE)
SET tSUIMPL = &SUBSTR(90:92.&SUTBLE)
SET &SUPRIM « tSUBSTR(S8:60,lrSUTBLE)
SET &SUSECM = &SUBSTR(62:64,&SUTBLE)
IF 4USR = tSUPRIM *
OR IUSR = &SUSECN THEN *
DO
SET 4FND s 4STR(T)
PROFILE PREFIX(SUSRftSUACCT)
EX '&PROG..RCRIS.CLIST(SUAUTOS)' +
'IHPL(&SUIMPL) LIST(illST)'
ENDO
GETFILE SUTBLE
SET &SUINIT = &SUBSTR(1:8,&SUTBLE)
ENDO
IF &FND - &STR(F) THEN +
DO
WRITE
WRITE NO ENTRIES FOUND IN SU TABLE FOR YOUR USERID, &USR
WRITE
ENDO
FINISH: *
PROFILE PREFIX(SPREF)
IF &LIST NE &STRUIST) THEN *
CONTROL NOMSG
CLOSFILE SUTBLE
FREE ODCSUTBLE)
CONTROL NSG
EXIT
11/92
M-2
RCRIS 4.0.0
-------
RCRIS System Technical Guide
SUAUTOS
PROC 0 IMPLO LISTO BATCHO
/ SINK MACHINE AUTO START: CREATED 3/22/91 V
/* DRIVEN BY PARAMETER FILE: RCRS.RCRIS.SUTABLE.DATA V
I* TABLE COLUMNS: (FOR PARAMETERS) */
/* 01-08 SINK MACHINE START ID. */
/* 10-17 SINK MACHINE STOP ID. */
/* .19 HLIPRINT PARAMETER (BLANK = NONE, S » STAT. E « ECHO) */
/* 20-23 GROUP ACCOUNT RESPONSIBLE FOR SINK MACHINE V
/* 25-33 BATCH JOB ACCOUNT CODE */
/ 35-38 BOX CODE /
/ 40-56 REMOTE PRINTER DESIGNATION */
/* 58-60 PRIMARY RESPONSIBLE USERID */
/* 62-64 ALTERNATE RESPONSIBLE USERID */
/* 66-68 RCRIS SUPPORT USEIHD V
/* 70-73 SU START TIME /
/ 75-78 SU STOP TIME */
/* 80-83 RCRIS MASTER DATA BASE DEFINITION ACCOUNT CODE (MACT) */
/* 85-88 FIRST RCRIS DATA BASE ACCOUNT CODE */
/ 90-92 FIRST RCRIS DATA BASE IMPLEMEMTER CODE */ '-
/* 94-97 SECOND RCRIS DATA BASE ACCOUNT CODE /
/* 99-102 SECOND RCRIS DATA BASE IMPLEMENTER CODE /
/ 104-107 THIRD RCRIS DATA BASE ACCOUNT CUE */
/* 109-111 THIRD RCRIS DATA BASE IMPLEMENTER CODE /
/* 113-116 FOURTH RCRIS DATA BASE ACCOUNT CODE V
/* 118-120 FOURTH RCRIS DATA BASE IMPLEMENTER CODE */
/* 122-125 FIFTH RCRIS DATA BASE ACCOUNT CODE */
/* 127-129 FIFTH RCRIS DATA BASE IMPLEMENTER CODE */
/* 131-134 SIXTH RCRIS DATA BASE ACCOUNT CODE */
/* 136-138 SIXTH RCRIS DATA BASE IMPLEMENTER CODE V
/* 140-143 SEVENTH RCRIS DATA BASE ACCOUNT CODE V
/* 145-147 SEVENTH RCRIS DATA BASE IMPLENENTER CODE ' */
/* - .- : */
/* CLIST PARAMETERS: */
/* . IMPL - USED TO DESIGNATE THE DATA BASE IMPLEMENTER CODE /
/* . LIST - SET TO 'LIST' TO TURN ON DEBUG FEATURES /
/* . BATCH - USED BY BATCH TSO JOB (TO INDICATE BATCH USAGE (Y» */
/* V ,
/* MODIFIED: */
/*. */
/* 04-10-91 BNT ADDED NEW PARAMETER FILE OPTIONS AND FILE NAME */
/* 07-30-91 XHT - ADDED LOGIC TO TEST IF DATA BASE IS IN USE */
-/* 08-16-91 XHT - ADDED DISPLAY FOR USERID IF INUSE - CPMS 141685 */
^****»**!»««»««*»**»*»*«»**************«««*»«««»*»»»»*»»»*«»*«««»**««/
CONTROL END(ENDO) NOFLUSH HSG MAIN NOLIST NOSYHLIST NOCONLIST
ATTN +
GOTO FINISH
IF &LIST * &STR(L1ST) THEN +
CONTROL LIST SYNLIST CONLIST /* DEBUG FEATURE
CLEAR
SET CUSR = tSU8STR(1:3,SSYSPREF)
SET &ACCT - *SUBSTR(4:7,«YSPREF)
SET tSACT > &ACCT /* IMIT. SEARCH ACCOUNT
IF ftBATCH HE CSTR(Y) THEN *
DO. /* DO FOR NON BATCH ONLY
IF &ACCT = tSTR(RCRT) +
OR MCCT « tSTR(RCRD) THEN +
DO /* DO FOR RCRT OR RCRD
GETACNT: +
CLEAR
RCRIS 4.0.0 M-3 11/92
-------
RCRIS System Technical Guide
URITENR ENTER SUTABLE ACCOUNT (IN LIEU OF &ACCT):
READ 4SACT
IF &SACT = &STRO THEN *
SET 4SACT = &ACCT
ELSE +
DO
WRITE
WRITE YOU ENTERED SUTABLE ACCOUNT: tSACT
WRITE
WRITEKR IS THIS INFORMATION CORRECT? (T OR N)
READ toUMl
IF 4DUM1 a tSTR(N) THEN *
GOTO GETACNT
ENDO
ENDO
ENDO
SET &FND - tSTR(F) /* FOUND SWITCH (T OR F>
SET &AST a &STR(«) / USED FOR JOB ROUTING
IF KACCT = tSTR(RCRT) +
OR &ACCT - SSTR(RCRD) THEN *
DO /* DO FOR RCRT OR RCRD
IF ISYSDSNCRCRT.RCRIS.CLIST(SUAUTOS)') = OK THEN +
SET &EXPREF « iSTR(RCRT)
ELSE +
SET &EXPREF = KTR(RCRS)
IF SSYSDSNC'RCRT.RCRIS.SUTABLE.DATA') » OK THEN *
ALLOC DD(SUTABLE) DACRCRT.RCRIS.SUTABLE.DATA') SHR REUSE
ELSE +
ALLOC DD
-------
RCRIS System Technical Guide
WRITE DATA BASE IS IK USE, SU CANNOT ALLOCATE FILES
WRITE
GQSCAN '4SACT..4WPL..RCRIS.SECURITY.FOCUS'
GOTO FINISH
ENDO
SET tBATJOB * IUSR&IMPLSSTRCP) /* CREATE BATCH JOB ID
OPENFILE SUTABLE INPUT
GETFILE SUTABLE
SET &SUSTOP » 4SUBSTR(10:17,*SUTABLE)
DO WHILE 1SUSTOP NE KT«<##*#*#*#) /* *'S INDICATE EOF ON TABLE
SET &SUINIT » &SUBSTR(1:8,ISUTABLE)
SET tSUACCT « &SUBSTR(8S:B8,tSUTABLE)
SET tSUIMPL *SU8STR<90:92,KUTA8LE>
IF 4SACT « tSUACCT *
AND 4IMPL s &SUIMPL THEN +
00 / SEARCH SUTABLE FOR KEY
SET SFND = SSTR(T)
SET &TIN = 4SUBSTR(75:78,SSUTABLE)
SET SMACT = &SUBSTR(80:83,tSUTABLE)
IF &L1ST NE KSTR(LIST) THEN +
CONTROL NONSG
FREE ATTRLIST(ADCB)
CONTROL NSG
IF ftSYSDSN('&SYSPREF..tSUIKlT..SUAUTOP.CNTL') = OK THEN +
DO
IF &LIST NE tSTR(LIST) THEN +
CONTROL NOMSG
DEL '&SYSPREF..tSUINIT..SUAUTOP.CNTL'
CONTROL NSG
ENDO
, ATTR ADCB BLICSIZE(3840) LRECL(80> RECFH{F,B> DSORG(PS)
ALLOC DD / SUBMIT FLAG (T OR F)
SET tSYSOUTTRAP » 100
STATUS (&USRUMPLtSTR(P),&USR«IMPLlSTR(S))
SET &SYSOUTTRAP = 0
SET &SU8LINE = tSYSOUTLINE
SET &SU82 * 1
DO WHILE &SUB2 LE &SUBLINE
SET &LINE2 = CSTR(&SYSNSUB(1,USYSOUTLINE&SUB2))
SET tSYSOVAL * &LINE2
RCRIS 4.0.0 M-5 11/92
-------
RCRIS System Technical Guide
REMOVAL A1 A2 A3 M AS A6
IF 4A6 « iSTR(EXECUTION) THEN +
00 /* JOB ALREADY IN HOLD
SET 4SUBIT » 8STR(F)
SET 4SUB2 - &SUBLIKE + 1
ENDO
ELSE +
SET 4SUB2 « KUB2 + 1
ENDO
IF KUBIT * KSTR(T) THEN +
DO /* SUBMIT SU STOP JOB
OPENFILE JCLFILE OUTPUT
SET IJOBACCT » 4SUBSTR<25:33,*SUTABLE)
SET (BOX » »SUBSTR(35:38,4SUTABLE)
IF THEN +
DO /* SPECIAL CASE.
SET 4JOBACCT = +
&STR<4SUBSTR(4:7,4SYSPREF)4SUBSTR(29:33,4SUTABLE))
IF (BATCH HE 4STR(Y) THEN +
00
WRITENR ENTER YOUR BOX NUMBER ==>
READ 4BOX
ENDO
ENDO
SET 4RMT * t$U8STR(40:56,ftSUTABLE)
SET 4JCLFILE = *
4STR(//4BATJ08 JOB <&JOBACCT,WOX>.)
PUTFILE JCLFILE
SET &JCLFILE " 4STR(//
PUTFILE JCLFILE
SET 4JCLFILE = 4STRC//
PUTFILE JCLFILE
SET 4JCLFILE * ISTRC//
PUTFILE JCLFILE
SET &JCLFILE « tSTRC//
PUTFILE JCLFILE
SET 4JCLFILE = 4STRC/4AST.ROUTE PRINT 4RHT)
PUTFILE JCLFILE
SET 4JCLFILE = 4STR(/4AST.AFTER 4TIM)
PUTFILE JCLFILE
SET AJCLFILE « *
4STRC//TSO EXEC PGM-IKJEFT01.DYNAMNBR-25)
PUTFILE JCLFILE
SET 4JCLFILE = 4STR(//SYSTSPRT DD SYSOUTs*)
PUTFILE JCLFILE
SET 4JCLFILE. = 4STRC//SYSTSIN DD *)
PUTFILE JCLFILE
SET 4JCLF1LE a 4STRCTIME)
PUTFILE JCLFILE
SET 4JCLF1LE = +
4STR(EX 'RCRS.RCRIS.CLIST(SUAUTOP)' +
IMPLC4IHPL) BATCH(Y)')
PUTFILE JCLFILE .
SET 4JCLFILE = 4STR(/*>
. PUTFILE JCLFILE
SET 4JCLFILE = 4STR(//>
PUTFILE JCLFILE
CLOSFILE JCLFILE
SUBMIT '4SYSPREF..4SUINIT..SUAUTOP.CNTL'
SE 'SINK MACHINE 4SUINIT AUTO START EXECUTED BY 4SYSPREF' +
USER(BNT) LOGON
ENDO
ENDO
11/92 M-6
'STOP SU',)
MSCLEVEL=C1.1),)
HSCCLASS=A,)
NOTIFY=4USR.)
RCRIS 4.0.0
-------
RCRIS System Technical Guide
£NOO
GETFILE SUTA8LE
SET tSUSTOP n MUBSTR(10:17,*SUTABLE>
ENDO
IF *FND » KSTRCF) THEM +
DO
WRITE
MITE HO ENTRIES FOUND IN SU TABLE FOR YOUR ACCOUNT, &SACT
MITE
ENOO
CLOSFJLE SUTABLE
FINISH: »
IF 1LIST NE &STRCLIST) THEN +
CONTROL NOMSG
FREE ATTRLIST(AOC8)
FREE DDCSUTABLE JCLFILE)
DEL 'KTSPREF..4SUINIT..SUAUTOP.CNTL'
CONTROL NSG
EXIT
RCRIS 4.0.0
M-7
11/92
-------
RCRIS System Technical Guide
SUSTOP
PROC 0 LISTO
/*»*********
/*
/*
****»****»*****»**«**«****»*»
CREATED 7/22/91
STOP FOR ALL SINK MACHINES BY USERID:
CREATE IN RESPONSE TO CPMS # 133736
SEARCHES THE RCRS.RCRIS.SUTABLE.DATA TABLE FOR A PRIMARY
RESPONSIBLE USERID EQUAL TO THE CURRENT USERID AND THEN
EXECUTES SUAUTOP CLIST FOR EACH EQUAL CONDITION.
DRIVEN BY PARAMETER FILE: RCRS.RCRIS.SUTABLE.DATA
TABLE COLUMNS: (FOR PARAMETERS)
01-08 SINK MACHINE START ID.
SINK MACHINE STOP ID.
HCIPRINT PARAMETER (BLANK * NONE, S = STAT, E ECHO)
GROUP ACCOUNT RESPONSIBLE FOR SINK MACHINE
BATCH JOB ACCOUNT CODE
BOX CODE
REMOTE PRINTER DESIGNATION
PRIMARY RESPONSIBLE USERID
ALTERNATE RESPONSIBLE USERID
RCRIS SUPPORT USERID
SU START TIME
SU STOP TIME
RCRIS MASTER DATA BASE DEFINITION ACCOUNT CODE (MACT)
FIRST RCRIS DATA BASE ACCOUNT CODE
FIRST RCRIS DATA BASE IMPLEMENTER CODE
SECOND RCRIS DATA BASE ACCOUNT CODE
SECOND RCRIS DATA BASE IMPLEMENTER CODE
104-107 THIRD RCRIS DATA BASE ACCOUNT CODE
109-111 THIRD RCRIS DATA BASE IMPLEMENTER CODE
113-116 FOURTH RCRIS DATA BASE ACCOUNT CODE
118-120 FOURTH RCRIS DATA BASE IMPLEMENTER CODE
122-125 FIFTH RCRIS DATA BASE ACCOUNT CODE
127-129 FIFTH RCRIS DATA BASE IMPLEMENTER CODE
131-134 SIXTH RCRIS DATA BASE ACCOUNT CODE
136-138 SIXTH RCRIS DATA BASE IHPLEMENTER CODE
140-143 SEVENTH RCRIS DATA BASE ACCOUNT CODE
145-147 SEVENTH RCRIS DATA BASE IMPLEMENTER CODE
CLIST PARAMETERS:
. LIST - WHEN SET TO LIST, TURNS ON DEBUG OPTIONS
MODIFIED:
10-17
19
20-23
25-33
35-38
40-56
58-60
62-64
66-68
70-73
75-78
80-83
85-88
90-92
94-97
99-102
/*
/*
/*
/
/*
/*
/*
/*
/*
/
/*
/*
/*
/*
I*
I*
I*
I*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
y«**»*****»««»*»»*«*»********»»»»»**********»*»»««»»»»***
CONTROL END(ENDO) NOFLUSH MSG MAIM KOL1ST HOSYML1ST MOCONLIST
IF &LIST = tSTR(LIST) THEN *
CONTROL LIST SYMLIST COW. 1ST
IF tLIST HE ISTR(LIST) THEN +
SET &LIST = &STR(.)
SET SPREF = &SYSPREF
ATTN *
GOTO FINISH
SET &USR « SSUBSTR(1:3,4SYSPREF)
SET &ACCT = &SUBSTR(4:7,»SYSPREF)
SET 4FND s SSTR(F)
IF (LIST NE iSTR(LIST) THEN +
CONTROL KOMSG
FREE DO(SUTBLE)
CONTROL NSG
*****/
*/
*/
V
/
V
*/
/
V
V
V
V
*/
*/
*/
*/
/
*/
V
*/
/
V
*/
/
*/
/-
*/
»/
*/
*/
/
/
*/
V
*/
*/
/
/
*/
»****/
11/92
M-8
RCRIS 4.0.0
-------
RCRIS System Technical Guide
IF MCCT « tSTR(RCRT) *
OR 4ACCT > &STR(RCRD> THEN +
-DO1
IF ISTSDSNCRCRT.RCRIS.CLIST(SUAUTOP)') « OK THEN +
SET &PROG « MCCT
ELSE +
, SET tPROG « tSTR(KHDB)
IF »SYSDSN('RCRT.RCRIS.SUTABLE.DATA') - OK THEN «
ALLOC DD(SUTBLE) DAC'RCRT.RCRIS.SUTABLE.DATA') SHR
ELSE *
ALLOC DD(SUTBLE) DACRCRS. RCRIS MUTABLE.DATA') SHR
EHDO
ELSE +
DO
SET &PROG « &STRCKH9B)
IF SSYSOSMCRCRS.RCRIS.SUTABLE.DATA') * OK THEN +
ALLOC DD(SUTBLE) OACRCRS.BCR1S.SUTABLE.DATA') SHR
ELSE +
I ALLOC DD(SUTBLE) OAC'RCRT.RCRIS.SUTABLE.DATA') SHR
ENDO
OPENFILE SUTBLE INPUT
CETF1LE SUTBLE
SET &SUIHIT = 4SUBSTR(1:8,iSUTBLE)
DO WHILE tSUINIT NE SSTR(########)
SET tSUACCT » &SUBSTR(8S:88,tSUTBLE)
SET &SUINPL » ftSUBSTR(90:92,tSUTBLE)
SET KSUPRIN - »SUBSTR(S8:60,&SUTBLE)
SET &SUSECN iSUBSTRC62:64,4SUT8LE)
IF SUSR > &SUPRIM +
OR 4USR * tSUSECN THEN *
DO
; SET &FND * tSTR(T)
PROFILE PREFIXCtUSR&SUACCT)
EX 'W>ROG..RCRIS.CLIST(SUAUTOP)' +
'IMPL(ftSUiNPL) LIST(ALIST)'
ENDO
GETFILE SUTBLE
SET, &SUINIT 3 &SUBSTR(1:8,&SUTBLE)
ENDO
IF tFNO = &STRCF) THEM +
D0[
MITE
MITE NO ENTRIES FOUND IN SU TABLE FOR YOUR USERID, SUSR
MITE
-"ENDO "
FINISH: +
PROFILE PREFIXCSPREF)
IF (LIST NE 4STR(LIST) THEN +
CONTROL NOHSC
CLOSFILE SUTBLE
FREE DD(SUTBLE)
CONTROL HSG
EXIT '
RCRIS 4.0.0
M-9
11/92
-------
RCRIS System Technical Guide
SUAUTOP
PROC 0 IMPLO FOCVERO LI STO "BATCH O
/
/*
/*
/
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
/*
SINK MACHINE AUTO STOP: CREATED 3/22/91
DRIVEN BY PARAMETER FILE: RCRS.RCRIS.SUTABLE.DATA
TABLE COLUMNS: (FOR PARAMETERS)
01-08 SINK MACHINE START ID.
10-17 SINK MACHINE STOP ID.
19 HLIPRINT PARAMETER (BLANK « NONE, S STAT, E -ECHO)
20-23 GROUP ACCOUNT RESPONSIBLE FOR SINK MACHINE
25-33 BATCH JOB ACCOUNT CODE
35-38 BOX CODE
40-56 REMOTE PRINTER DESIGNATION
58-60 PRIMARY RESPONSIBLE USERID
62-64 ALTERNATE RESPONSIBLE USERID
66-68 RCRIS SUPPORT USERID
70-73 SU START TIME
75-78 SU STOP TIME
80-83 RCRIS MASTER DATA BASE DEFINITION ACCOUNT CODE (MACT)
85-88 FIRST RCRIS DATA BASE ACCOUNT CODE
90-92 FIRST RCRIS DATA BASE IMPLEMENTER CODE
94-97 SECOND RCRIS DATA BASE ACCOUNT CODE
99-102 SECOND RCRIS DATA BASE IMPLEMENTER CUE
104-107.THIRD RCRIS DATA BASE ACCOUNT CODE
109-111 THIRD RCRIS DATA BASE IMPLEMENTER CODE
113-116 FOURTH RCRIS DATA BASE ACCOUNT CODE
118-120 FOURTH RCRIS DATA BASE IMPLEMENTER CODE
122-125 FIFTH RCRIS DATA BASE ACCOUNT CODE
127-129 FIFTH RCRIS DATA BASE IMPLENENTER CODE
131-134 SIXTH RCRIS DATA BASE ACCOUNT CODE
136-138 SIXTH RCRIS DATA BASE IMPLEMENTER CODE
140-143 SEVENTH RCRIS DATA BASE ACCOUNT CODE
145-147 SEVENTH RCRIS DATA BASE IMPLEMENTER CODE
e
CLIST PARAMETERS:
. FOCVER - USED TO TEST A NEW FOCUS SOFTWARE VERSION
. LIST - SET TO 'LIST' TO TURN ON DEBUG FEATURES
. BATCH - USED BY BATCH TSO JOB (TO INDICATE BATCH USAGE (Y»
. !NPL - USED TO DESIGNATE THE DATA BASE IMPLEMENTER CODE
MODIFIED: .
04-10-91 BNT
07-01-91 XHT
10-28-91 XKT
ADDED NEW PARAMETER FILE OPTIONS AND FILE NAME
ADDED SU NAME TO TEMPORARY FILES FOR UNIQUENESS
CPHS ITEM #152540
BATCH JOB TIMED OUT (S322) WAITING FOR USER TO
LOGOFF: MODIFIED CLIST TO DETERMINE ONLINE USERS
VIA GOSCAN AND A PROGRAM CALL FOR WAIT STATE.
!*********************»***********************m
CONTROL END(ENDO) NOFLUSH MSG MAIN NOLIST NOSVMLIST NOCONLIST
IF (LIST =.&STR(LIST) THEN +
CONTROL LIST COWL1ST SYHLIST
ATTN *
GOTO FINISH
IF IFOCVER NE SSTRO THEN +
IF 4SUBSTR(1:1,SFOCVER) NE &STRC.) THEN «
SET &FOCVER = SSTR(.)4FOCVER
CLEAR
SET SUSRCHK = tSTR(T)
SET &USR * &SUBSTR(1:3,tSrSPREF)
V
V
V
V
V
V
/
*/
/
V
*/
*/
*/
*/
V
*/
V
*/
*/
V
V
*/
*/
*/
*/
*/
*/
*/
*/
*/
V
*/
*/
/
11/92
M-10
RCRIS 4.0.0
-------
RCRIS System Technical Guide
SIT tACCT « tSUBSTR(4:7,t$YSPREF)
SET ISACT « iACCT /* INITIALIZE SEARCH ACCOUNT
IF MATCH HE tSTR(V) THEN «
00 /* NOT A BATCH JOB
IF (KACCT * tSTR(RCRT) *
OR tACCT « tSTR(RCRD)) THEN +
00 /* ONLY FOR RCRT AND RCRO
GETACNT: *
CLEAR
WRITEMR ENTER SUTABLE ACCOUNT (IN LIEU OF tACCT}:
READ tSACT
IF tSACT « ASTRO THEN *
SET ISACT = tACCT
ELSE *
DO
WRITE
WRITE YOU ENTERED SUTABLE ACCOUNT: tSACT
yRITE
URITEKR IS THIS INFORMATION CORRECT? (Y OR N>
READ IDUN1
IF tOUMI > tSTR(N) THEN *
GOTO GETACNT
ENDO
ENDO
ENDO
SET ItFND * tSTR(F) /* FOUND FLAG (T OR F)
SET CAST * ISTRC*) /* USED FOR JOB ROUTING
IF (tACCT = tSTR(RCRT) +
OR tACCT o tSTR(RCRD)) THEN *
DO /* ONLY FOR RCRT AND RCRO
IF tSrSOSMCRCRT. RCRIS. CLIST(SUAUTOP)') = OK THEN +
SET tEXPREF » tSTR(RCRT)
ELSE +
SET tEXPREF « tSTR(RCRS)
IF tSYSDSKCRCRT. RCRIS. SUTABLE. DATA') - OK THEN *
ALLOC DD(SUTABLE) DA('RCRT.RCRIS.SUTABLE.DATA') SHR
ELSE *
ALLOC DO(SUTABLE) DACRCRS. RCRIS. SUTABLE. DATA') SHR
ENDO
ELSE *
DO
SET tEXPREF = tSTR(RCRS)
IF tSYSDSNCRCRS. RCRIS. SUTABLE. DATA') = OK THEN +
ALLOC DD(SUTABLE) OACfiCRS. RCRIS. SUTABLE. DATA') SHR
ELSE +
ALLOC DD(SUTABLE) DA('RCRT.RCRtS.SUTABLE.DATA') SHR
ENDO .
IF tINPL » ISTRC ) THEN «
DO
IF tSU8STR(2:2,tSACT) NE tSTR(Z) THEN +
DO -
GETIMPL: +
s WRITE
WRITENR ENTER THREE CHARACTER INPLENENTER CODE:
READ &INPL
IF iLEMGTH(tlHPL) NE 3 THEN +
GOTO GETIMPL
WRITE
WRITENR tIMPL, IS THIS VALUE CORRECT (Y OR N):
READ tANS
IF tANS = tSTR(N) THEN +
GOTO GETIMPL
RCRIS 4.0.0 M-ll
-------
RCRIS System Technical Guide
ENDO
ELSE + .
SET ftlHPL « ISUBSTR(3:4,&SACT)&STR(S)
EMOO-
SET 4BATJ08 SUSR»INPL*STR /* CREATE BATCH JOB ID
OPENFILE SUTABLE INPUT
GETFILE SUTABLE
SET ISUSTOP = iSUBSTR(10:17,SSUTABLE>
DO WILE &SUSTOP ME 4STR<*###*###> / *'$ INDICATE EOF ON TABLE
SET ISUINIT » KUBSTR(1:e,*SUTABLE>
SET 4SUACCT « tSUBSTR(8S:88,lSUTABLE) '
SET 4SUIMPL = &$UB$TR(90:92,ftSUTABLE)
IF &SACT = 4SUACCT +
AND IIMPL - 6SUINPL THEN f
DO / KEYS FOUND IN SUTABLE
SET &FND * «STR(T)
SET tTIM = &SUBSTR(70:73,&SUTABLE)
SET 4ACNT = &SUBSTR(85:88,ftSUTABLE>
SET &MACT = &SUBSTR<80:83,&SUTA8LE)
IF 4LIST HE fiSTR(LIST) THEN +
CONTROL MONSG
FREE ATTRLIST(ADCB)
CONTROL MSG
IF iSYSOSN{'4SYSPREF..SSUINIT..SUAUTOS.CNTL') = OK THEN +
DO
IF &LIST NE &STRCLIST) THEN +
CONTROL NONSG
FREE DA('lSYSPREF..tSUINIT..SUAUTOS.CNTL')
DEL '&SYSPREF..JSUIN1T..SUAUTOS.CNTL'
CONTROL MSC
ENDO
ATTR ADCB BLKSIZEC3840) LRECLC80) RECFN(F,B) DSORC(PS)
ALLOC OD(JCLFILE) DA('tSYSPREF..»SUINIT..SUAUTOS.CNTL') +
NEW CATALOG USING(ADCB) SPACE(Z.I) TRACKS
SET 8STSOUTTRAP 100 .
STATUS &SUINIT
SET iSYSOUTTRAP = 0
SET &LINENO = &SYSOUTLINE'
/ CHECK STATUS OF SU
SET &LINE = tSTRUSYSNSUBd.USYSOUTLINE&LINENO))
SET &SYSDVAL « &LINE
READDVAL A1 A2 A3 M
IF 4A4 = &STR{EXECUTING) THEM +
DO /* SU IS EXECUTING
DO WHILE &USRCHK = tSTR(T) /* TEST IF USERS ARE ON
SET &SYSOUTTRAP = 999 .
GOSCAN '&SACT..&IMPL..RCRIS.SECURITY.FOCUS'
SET &SYSOUTTRAP = 0
SET &LINENO = &SYSOUTLINE
SET &UA1T5 = 4STR tSTR(T)
SEND *
11/92 M-12 RCRIS 4.0.0
-------
RCRIS System Technical Guide
'SINK MACHINE ISU1NIT COMMIMG DOWN IN 5 MINUTES' *
USER(&A1) NOW NOUAIT
ENDO
SET SSUBX * &SU8X * 1
ENDO /* END USER ONLINE TEST
SET &KKT * 1
IF (WAITS « tSTR(F) THEN +
SET tUSRCHK 4STR(F)
ELSE *
DO /* WAIT 5 MINUTES
CALL 'RCRS.RCRIS.LOADLIBCWAITER)' '/300' ' 00760005
SET tKNT = IKNT + 1
IF (BATCH * 4STRCY) THEN +
IF tKNT > 1 THEN *
DO
SET tWAITS = tSTR(F)
SET &USRCHK « tSTR(F)
ENDO
ELSE « /* UAIT ONCE FOR ONLINE /
DO
SET (WAITS > ftSTR(F)
SET tUSRCHK * tSTR(F)
ENDO
ENDO /* END UAIT S MINUTES */
ENDO /* END USER ONLINE CHECK
CMD S &SUSTOP
URITE
WRITE SINK MACHINE &SU1NIT HAS BEEN SUCCESSFULLY STOPPED
WRITE
SET KSUBIT = &STRCT)
SET &SYSOUTTRAP =100
STATUS (&USRiIMPL&STR(S),tUSR&IHPL&STR(P))
SET SSYSOUTTRAP * 0
SET ftSUSLINE = ASYSOUTLINE
SET &SU82 s 1 . ° *
00 WHILE 4SUB2 LE KSUBLINE /* TEST FOR JOB IN QUEUE
SET &LINE2 - &STR((SYSNSUB(1,USYSOUTLINEtSUB2)>
SET ftSYSDVAL = &LINE2
READDVAL A1 A2 A3 A4 AS A6
IF 4A6 = tSTR(EXECUTION) THEN +
00
SET &SUBIT " SSTR(F) /* JOB ALREADY IN QUEUE
SET &SUB2 > &SUBLINE * 1
ENDO
ELSE +
SET SSUB2 a &SUB2 + 1
ENDO /* END TEST FOR JOB
IF ISUBIT = ftSTR(T) THEN + -
DO /* SUBMIT START JOB .
SET &JOBACCT - tSUBSTR(2S:33,&SUTABLE)
SET &BOX > &SUBSTR(3S:38,tSUTABLE)
IF &SUBSTR(4:7,tSYSPREF) « tSTR(RCRT) +
OR &SUBSTR(4:7,tSYSPREF) * tSTR(RCRD) THEN +
DO
SET &JOBACCT « *
&STR{&SUBSTR(4:7,tSYSPREF)tSUBSTR(29:33,
READ CBOX
ENDO
ENDO
SET &RMT « &SUBSTR(40:56,&SUTABLE)
OPENFILE JCLFILE OUTPUT
RCRIS 4.0.0 M-13 11/92
-------
RCRIS System Technical Guide
Sit ftJCLFILE « »STR(//SBATJ08 JOB (ftJOBACCT.&BOX),)
PUTFILE JCLFILE
SET ftJCLFILE * 4STR(// 'START SU',)
PUTFILE JCLFILE
SET ftJCLFILE « 4STR{// NSGLEVEL'(1,1),)
PUTFILE JCLFILE
SET ftJCLFILE « &STR(// NSGCLASS'A.)
PUTFILE JCLFILE
SET ftJCLFILE » &STR(// NOTIFY4USR.)
PUTFILE JCLFILE
SET &JCLFILE - ftSTRC/ftAST.ROUTE PRINT ftRMT)
PUTFILE JCLFILE
SET &JCLFILE « SSTR(/iAST.AFTER HIM)
PUTFILE JCLFILE
SET &JCLFILE * +
&STRC//TSO EXEC PGM=IICJEFT01,DYNAMHBR=25)
PUTFILE JCLFILE
SET ftJCLFILE = &STRC//STSTSPRT DO SYSOUT**)
PUTFILE JCLFILE
SET (JCLFILE » &STR(//SYSTS1M DD )
PUTFILE JCLFILE
SET tJCLFILE = ftSTR(TIHE)
PUTFILE JCLFILE
SET tJCLFILE = +
&STRCEX '&EXPREF..RCRIS.CLIST(SUAUTOS)' *
'INPL(tlMPL) BATCH(Y)')
PUTFILE JCLFILE
SET ftJCLFILE * ftSTRC/*}
PUTFILE JCLFILE
SET ftJCLFILE = &STR(//>
PUTFILE JCLFILE
CLOSF1LE JCLFILE
SUBMIT '&SYSPREF..SSUINIT..SUAUTOS.CNTL'
SE 'AUTO STOP FOR SINK MACHINE &SUINIT EXECUTED BY tSYSPREF' +
USER(BHT) LOGON
ENOO " /* END SUBMIT START JOB
ENDO /* END SU IS EXECUTING
ELSE +
DO
WRITE
WRITE SINK MACHINE &SUINIT IS NOT RUNNING
WRITE
ENDO
ENDO /* END SU KEYS FOUND
-GETFILE SUTABLE
SET &SUSTOP = ftSUBSTR(10:1?,ftSUTA8LE>
ENDO . /* END SUTABLE SEARCH
IF ftFND - SSTRCO THEN +
DO
WRITE
WRITE NO ENTRIES FOUND IN SU TABLE FOR YOUR ACCOUNT, &ACCT
WRITE
ENDO
CLOSFILE SUTABLE
FINISH: +
IF (LIST NE tSTR(LIST) THEN +
CONTROL NOMSG
FREE DD(JCLFILE) . ,
FREE DD(SUTABLE)
FREE ATTRLIST(ADCB)
DEL '&SYSPREF..&SUINIT..SUAUTOS.CNTL'
CONTROL MSG
EXIT
11/92 M-14 RCRIS 4.0.0
-------
RCRIS System Technical Guide
PROPXLSU
;*****«******************
PROGRAM NAME: PROFILSU
* PROGRAM DESCRIPTION: 'PROFILSU' IS A SPECIAL FOCEXEC WHICH WILL BE
* EXECUTED EVERY TIKE FOCUS IS INVOKED. IT IS USED TO SET UP
* SYSTEM DEFAULTS, ALLOCATE FILES AND EVENTUALLY TO EXECUTE
* MAIN MENU DRIVER 'RCRAMENU'.
MAINTENANCE
* 07/15/91 XHT, ADDED MULT I -THREADED REPORTING TO USE STATEMENT
, '
.0
SET SYSTEM DEFAULTS
* _ .
- 10/05/89 -READ FROM FILE ACC FOR PREFIX INFO
_»»««********»*««***** *»»«»*»**»* **********
-READ ACC UACCT.A4. UPROG.A4. MDVLP.A4. MTEST.A4. UBPRE.A5.,
.&IMPL.A3. U0TP.A1. HNEXT.A5.
.*
-SET ECHO « ALL;
-SET UDBPROG
-SET UACT
-SET USYSTEM
-SET UBATCHSEL
-SET UPRINTCND
-SET UTPMPACK
SET UTUKPACK
&DBPRE ) tIMPL;
UACCT;
'TSO';
'N';
'PRINTOFF';
'DISK';
'DISK';
SET UPLACE
SET USTATE
SET MTITLE
SET UEPA
SET UPRT
SET UFIL1
SET UTNT
SET CDUH
t
Z
0;
<
SET PREFIX * MPROC
SET NSG * OFF
SET PAUSE = OFF
SET LINES * 55
SET LINES/PAGEeSS
-RUN
USE
AGNDES
AGNDES
AREADES
AREADES
CAAREA
CAAREA
CACONST
CACONST
CAINST
CAIHST
CEENFOR
CEENFOR
CEEVAL
CEEVAL
CETICK
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
LOCAL
ON SYNCA
RCRIS 4.0.0
M-15
11/92
-------
RCRIS System Technical Guide
CETICK LOCAL
CiVIOL ON SYNCA
CEVIOL LOCAL
CONNTHMT ON SYMCA
COMHTMNT LOCAL
EREADES ON SYNCA
EREADES LOCAL
ETENPLAT ON SYNCA
ETENPLAT LOCAL
EVEKT ON SYNCA
EVENT LOCAL
HANDLER1 ON SYNCA
HANDLER1 LOCAL
HANDLERS OK SYNCA
HANDLER2 LOCAL
NOUTABLE ON SYNCA
NOUTABLE LOCAL
HAKE ON SYNCA
NAME LOCAL
PERMPROJ ON SYNCA
PERMPROJ LOCAL
PESTATUS ON SYNCA
PESTATUS LOCAL
PEVENT ON SYNCA
PEVENT LOCAL
PNCOMMIT ON SYNCA
PNCOMM1T LOCAL
PROCCODE ON SYNCA
PROCCOOE LOCAL
PUNIT ON SYNCA
PUNIT LOCAL
REMEDYCD OH SYNCA
REMEDYCD LOCAL
RTYPOES ON SYNCA
RTYPDES LOCAL
SECURITY ON SYNCA
SECURITY LOCAL
SPECPROC ON SYNCA
SPECPROC LOCAL
SPECUOM ON SYNCA
SPECUOM LOCAL
SPEPECDE ON SYNCA
SPEPECDE LOCAL
SUMMARY ON SYNCA
- SUMMARY LOCAL
UONTYPE ON SYNCA
UOMTYPE LOCAL
UPDTABLE ON SYNCA
UPDTABLE LOCAL
UASTECDE ON SYNCA
WASTECOE LOCAL
END
-RUN
.«
EX OBRPNEAD
-*
LET MENU - EX PROFILE
EX FRONTENO
OFFLINE CLOSE
ONLINE
ISO FREE DD(OFFLINE)
-RUN
FIN
11/92
M-16
RCRIS 4.0.0
.
-------
RCRIS System Technical Guide
BUXABLB
K1DBRCRSP NIUN HOLD
K1DBRCRSP NIUN HOLD
K2DBRCRSP NLSU HOLD
K20BRCRSP NLSU HOLD
K2DBRCRSP NLSU HOLD
KSDBRCRSP MHGA HOLD
K30BRCRSP NHGA HOLD
K3DBRCRSP NHGA HOLD
K308RCRSP NHGA HOLD
K3DBRCRSP HHGA HOLD
K30BRCRSP NHGA HOLD
KSDBRCRSP B106 HOLD
K50BRCRSP B106 HOLD
K50BRCRSP B106 HOLD
IC5DBRCRSP B106 HOLD
KSDBRCRSP B106 HOLD
KSDBRCRSP B106 HOLD
K60BRCRSP NPNT HOLD
K6DBRCRSP NPNT HOLD
K60BRCRSP NPNT HOLD
K6DBRCRSP NPNT HOLD
K60BRCRSP NPNT HOLD
K8DBRCRSP HLRK HOLD
K9DBRCRSP NOVC HOLD
K9DBRCRSP NOVC HOLD
K9DBRCRSP HQVC HOLD
K9DBRCRSP NOVC HOLD
KKOBRCRSP C802 HOLD
KZARRCRSP NPNT HOLD
KZAZRCRSP HQVC HOLD
KZCARCRSP NQVC HOLD
KZCORCRSP NNNA HOLD
KZFLRCRSP NRGD HOLD
KZILRCRSP NHUP HOLD
KZKSRCRSP NBVM HOLD
KZLARCRSP HPNT HOLD
KZNIRCRSP FKTP HOLD
KZNORCRSP NEEU HOLD
KZNTRCRSP NNJG HOLD
KZNERCRSP NBOB HOLD
KZNNRCRSP NPNT HOLD
KZNVRCRSP NQVC HOLD
KZNTRCRSP HLSU HOLD
KZOHRCRSP NDPT HOLD
KZOKRCRSP NPNT HOLD
KZPRRCRSP NLSU HOLD
KZSDRCRSP NLRK HOLD
KZtXRCRSP NPNT HOLD
KZUTRCRSP NKTN HOLD
(DENOTES END OF FILE
SINK MACHINE PARAMETER TABLE
TABLE COLUMNS: (FOR PARAMETERS)
01-08 SINK MACHINE START ID.
10-17 SINK MACHINE STOP ID.
20-23 GROUP ACCOUNT
25-33 BATCH JOB ACCOUNT CODE
35-36 BOX CODE
40-56 REMOTE PRINTER DESIGNATION
58-60 PRIMARY RESPONSIBLE USERID
62-64 ALTERNATE RESPONSIBLE USERID
FOC1HAS
fFOCICTS
fFOC2NJS
0FOC2NYS
fFOC2PRS
fFOC30CS
fFOCSDES
*FOC3HDS
fFOCSPAS
fFOCJVAS
tFOCSUVS
*FOC5ILS
fFOCSINS
fFOCSNIS
\ f FOC5MNS
FOC50HS
FOC5UIS
FOC6ARS
FOC6LAS
fFOC6NHS
fFCC60KS
*FOC6TXS
«Focfiurs
fFOC9A2S
fFOC9CAS
fFOC9HIS
*FOC9NVS
*FOCRT4S
ffFOCSARS
0FOCSAZS
*FOCSCAS
0FOCSCOS
fFOCSFLS
*FOCSILS
0FOCSKSS
fFOCSLAS
*FOCSHIS
0FOCSHOS
0FOCSNTS
fFOCSNES
tFOCSNHS
fFOCSNVS
fFOCSNYS
0FOCSOHS
0FOCSOKS
0FOCSPRS
fFOCSSDS
*FOCSTXS
0FOCSUTS
HltltlHHHHI
0FOC1NAP
fFOCICTP
0FOC2NJP
0FOC2NYP
«FOC2PRP
0FOC3DCP
*FOC3DEP
0FOC3MDP
#FOC3PAP
0FOC3VAP
0FOC3UVP
fFOCSILP
0FOC5INP
»FOC5H1P
0FOC5MNP
tFOCSOHP
0FOC5UIP
0FOC6ARP
FOC6LAP
*FOC6NHP
0FOC60KP
0FOC6TXP
0FOC8VYP
0FOC9AZP
*FOC9CAP
0FOC9H1P
*FOC9NVP
*FOCRT4P
MFOCSARP
tFOCSAZP
KFOCSCAP
*FOCSCOP
OFOCSFLP
fFOCSILP
fFOCSKSP
#FOCSLAP
WOCSMIP
HFOCSNOP
HFOCSMTP
0FOCSNEP
#FOCSNHP
#FOCSNVP
fFOCSNYP
FOCSOHP
*FOCSOKP
#FOCSPRP
#FOCSSDP
FOCSTXP
«FOCSUTP
mummiiit
K1DB
K1DB
K2DB
K2DB
K2DB
K3DB
K3DB
K3DB
K3DB
KSDB
K3DB
KSDB
KSDB
KSDB
K50B
KSOB
KSDB
K6DB
K6DB
K6DB
K60B
K60B
KSDB
K9DB
K9DB
K9DB
K9DB
KHDB
KZAR
KZAZ
KZCA
KZCO
KZFL
KZIL
KZKS
KZLA
KZHI
KZHO
KZMT
KZNE
KZNM
KZKV
KZNY
KZOH
KZOK
KZPR
KZSD
KZTX
KZUT
MMW
I UN
I UN
AEL
AEL
AEL
HGA
HGA
HGA
HGA
HGA
HGA
ODB
ODB
ODB
ODB
ODB
ODB
PNT
PNT
PNT
PNT
PNT
LRK
QVC
QVC
QVC
QVC
DPA
PNT
QVC
QVC
HNA
RGD
PNT
KTP
EEU
NJG
BOB
PNT
QJC
AEL
DPT
PNT
AEL
LRK
PNT
KTN
UHT ZOJ
UHT ZOJ
OER ZOJ
OER ZOJ
OER ZOJ
NRI ZOJ
MR I ZOJ
NRI ZOJ
NRI ZOJ
NRI ZOJ
HRI ZOJ
NRO ZOJ
NRO ZOJ
NRO ZOJ
HRO ZOJ
MRO ZOJ
NRO ZOJ
USJ ZOJ
USJ ZOJ
USJ ZOJ
USJ ZOJ
USJ ZOJ
JON ZOJ
QJC ZOJ
QJC ZOJ
QJC ZOJ
OJC ZOJ
UKU ZOJ
USJ ZOJ
QJC ZOJ
QJC ZOJ
LRK ZOJ
LLK ZOJ
NRO ZOJ
RUU ZOJ
USJ ZOJ
HRO ZOJ
KDD ZOJ
LRK ZOJ
BND ZOJ
USJ ZOJ
QVC ZOJ
OER ZOJ
NRO ZOJ
USJ ZOJ
OER ZOJ
CLJ ZOJ
USJ ZOJ
LRK ZOJ
0700 1800
0700 1800
0605 2000
0605 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0605 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
0600 2000
K1DB
K1DB
K2DB
K2DB
K2DB
K30B
K30B
K3DB
K308
K3DB
K3DB
K5DB
K5DB
KSDB
KSDB
KSDB
K50B
K6DB
K60B
MOB
X6DB
K6DB
K8DB
K9DB
K9DB
K90B
K9DB
KHOB
KZAR
KZAZ
KZCA
KZCO
KZFL
KZIL
KZKS
KZLA
KZHI
KZNO
KZHT
KZNE
KZNN
KZNV
KZNY
KZOH
KZOK
KZPR
KZSD
KZTX
KZUT
K1DB MAR MRP
K1DB CTR MRP
K2DB NJR MRP
K2DB NTR MRP
K20B PRR MRP
K30B OCR HRP
KSDB DER HRP
K30B NOR HRP
K3DB PAR HRP
K30B VAR MRP
KSDB WVR HRP
KSDB ILR HRP
K50B INR HRP
KSDB HIR HRP
KSDB HNR HRP
KSDB OHR HRP
K50B UIR HRP
K6DB ARR HRP
K60B LAR HRP
K6DB NMR NRP
K6DB OKR NRP
K6DB TXR MRP
K8DB WTR NRP
K90B AZR NRP
ODB CAR NRP
K9DB HIR NRP
K9D8 NVR NRP
KHDB PRR 8NG
KZAR ARS HRP
KZAZ AZS NRP
KZCA CAS NRP
KZCO COS NRP
KZFL FLS HRP
KZIL ILS HRP
KZKS KSS HRP
KZLA LAS HRP
KZHI NIS HRP
KZNO MOS HRP
KZHT NTS HRP
KZNE NES HRP
KZNH NHS NRP
KZNV NVS HRP
KZNV NVS HRP
KZOH OHS HRP
KZOK OKS HRP
KZPR PRS HRP
KZSD SOS NRP
KZTX TXS NRP
KZUT UTS NRP
8KA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BEF VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT'
BKA VFB LIT
BKA VFB
BKA VFB
BKA VFB
BKA VFB
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
BKA VFB LIT
LIT
LIT
LIT
LIT
FOR CLIST'S)
SEPTENBER 27, 1991
RCRIS 4.0.0
M-17
11/92
-------
RCRIS System Technical Guide
66-68 RCRIS SUPPORT USER10
70-73 SU START TIME
75-78 SU STOP TINE
80-83 RCRIS MASTER DATA BASE DEFINITION ACCOUNT CODE (MACT fFOCRUS)
85-88 FIRST RCRIS DATA BASE ACCOUNT CODE j PRIMARY MATCH .
90-92 FIRST RCRIS DATA BASE IMPLEMENTER CODE | FIELDS
94-96 BACKUP SU ADMINISTRATOR
98-100 BACKUP SU ADMINISTRATOR
102-104 BACKUP SU ADMINISTRATOR
106-108 BACKUP SU ADMINISTRATOR
11/92 M-18 RCRIS 4.0.0
-------
RCRIS System Technical Guide |
SUSXATUS
/* PROGRAM NAME: SUPRO
/* DESCRIPTION: MAIN DRIVER FOR SINK MACHINE
f* PROGRAMMER: GSC
/ DATE IflliTTEN: 03/05/92 KU
I* DATE CHANGED:
/«**»****«*****»**************»*»»*«»***********»******«***«/
PROC 0 LIST (MUD
PROFILE NONSGID
IF ILIST * LIST THEN *
CONTROL NSC NOFLUSH END(ENDO) LIST CON LIST SYMLIST
ELSE *
CONTROL NSG NOFLUSH END(ENDO) .
ATTN EXIT
/* ASSIGN PRODUCTION, DEVELOPMENT AND TEST ACCOUNTS
SET tPROG * &STRCKHDB)
SET tTEST ISTR(RCRT)
SET SDVLP » tSTR(RCRD)
/* CHECK THAT USER IS NOT LOGGED INTO A GROUP ACCOUNT
IF &LENGTH<&STR(&SYSPREF» NE 7 OR *
lSUBSTR<1:3,tSY$PREF) NE &SYSUID THEN DO
WRITE
WRITE ***** INVALID ACCOUNT PREFIX -- PROGRAM TERMINATED *****
WHITE
EXIT
ENDO .-,-'
/* SET DEFAULT FOR RHODE OR PROMPT DEPENDING ON USER ACCOUNT.
SELECT &$UBSTR(4:7,&SYSPREF)
WHEN (RCRD 3 RCRT ] RCRS ) RCRO ) WPER) DO
GETMODE: *
CLR3270
WRITENR ENTER MODE: (PRODUCTION, (T)EST, ( DEVELOPMENT, +
(Q)UIT ? tSTRO
READ MODE
SELECT iSTR(SMOOE)
WHEN (0) EXIT
WHEN (D ] T ] P)
OTHERWISE DO
WRITE
WRITENR INVALID VALUE -- PRESS ENTER TO CONTINUE:
READ &DUMMY
GOTO GETMODE
ENDO /* - OTHERWISE
ENDO /* SELECT . '
ENDO /* -" WHEN
OTHERWISE SET MODE * ISTR(P)
ENDO
CLR3270
WRITE LOADING $U STATUS MENU .....
IF ftSYSDSN(TABLES) * OK THEN +
SET &TBLS * &STR
-------
RCRIS System Technical Guide
ATTN OFF
FDSN SYSPROC,SYSP,NOU
FDSN ISPMUB,MDSNRPT,NOU
FDSH ISPPLIB.POSNRPT.NOW
FOSN ISPSLIB.SDSNRPT.NOU
FOSN ISPTLIB.TDSNRPT.NOV
SELECT (MODE)
WHEN (P) DO
ALLOC DD(SYSPROC)
. ALLOC OD(ISPNLIB)
ALLOC DD(ISPPLIB)
ALLOC DDC1SPSLIB)
ALLOC DD(ISPTLIB)
ENDO
WHEN DO
ALLOC DD(SYSPROC)
ALLOC DD(ISPHLIB)
ALLOC DD(ISPPLIB)
ALLOC DD(ISPSLIB)
ALLOC DDUSPTLIB)
ENDO
WHEN (0) DO
ALLOC DD(SYSPROC)
ALLOC DD(ISPHLIB)
ALLOC OD(ISPPLIB)
ALLOC DD(JSPSLJB)
ALLOC DD(ISPTLIB)
ENDO
OTHERWISE EXIT
ENDO /* --- SELECT
DAC&PROG..RCR1S.CLIST' +
*SYSP> SHR REUSE
DAC4PROG..RCRIS.MSGS' *
&MDSNRPT) SHR REUSE
OACSPROG..RCRIS.PANELS' +
tPOSNRPT) SHR REUSE
DAC&PROG.. RCRIS. SKELS' +
4SDSNRPT) SHR REUSE
DA( &T6LS +
'1PROG..RCRIS.TABLES' *
STDSNRPT) SHR REUSE
DAC&TEST..RCRIS.CLIST' +
'SPROG..RCRIS.CLIST' +
4SYSP) SHR REUSE
OAC'STEST..RCRIS.MSGS' *
'&PROG.,RCRIS.MSGS' +
WDSNRPT) SHR REUSE
OA('(TEST..RCRIS.PANELS' +
'(PROG..RCRIS.PANELS' *
&PDSNRPT) SHR REUSE
DACiTEST..RCRIS.SKELS' +
'&PROG..RCRIS.SKELS' *
&SDSNRPT) SHR REUSE
DA( 4TBLS + -
'4TEST..RCRIS.TABLES' *
'&PROC..RCRIS.TABLES' +
4TDSNRPT) SHR REUSE
DAC'SDVLP..RCRIS.CLIST' +
'&TEST..RCRIS.CLIST' +
'SPROG..RCRIS.CLIST' +
&SYSP) SHR REUSE
DA('&OVLP..RCRIS.MSGS' +
'&TEST..RCRIS.MSGS' *
'4PROG..RCRIS.HSGS' +
MDSNRPT) SHR REUSE
DAC&OVLP.. RCRIS. PANELS' +
4TEST..RCRIS.PANELS' +
'SPROG..RCRIS.PANELS' +
&PDSNRPT) SHR REUSE
DAC4DVLP..RCRIS.SKELS' +
'4TEST..RCRIS.SKELS' +
'&PROG..RCRIS.SKELS' +
&SDSNRPT) SHR REUSE
DA( tTBLS +
'tDVLP..RCRIS.TABLES' *
'(TEST..RCRIS.TABLES' +
'(PROG..RCRIS.TABLES' +
&TOSNRPT) SHR REUSE
11/92
M-20
RCRIS 4.0.0
-------
RCRIS System Technical Guide
ATTN GOTO RESET
/* START THE ISPF ENVIRONMENT.
ISPSTART CWXXSUSTAT1 tOVLP 4TEST &PROG MODE iLIST)
/* MITE EXIT MESSAGE AT END OF RUN.
RESET! + .
ATTN OFF ,
CLR3270
WRITE
WRITE LEAVING THE SU STATUS MENU
WRITE
f* " AT END OF RUN, RESTORE ALL ALLOCATIONS BACK TO SAVED VALUES.
IF (LIST NE &STRCLIST) THEN +
CONTROL NONSG
FREE DD(STSPARM)
CONTROL NSG
ALLOC DD(SYSPROC) DA(iSYSP) SHR REUSE
ALLOC ODUSPMLIB) DA(WOSNRPT) SHR REUSE
ALLOC DD(ISPPLIB) DA(tPDSNRPT) SHR REUSE
ALLOC DD(ISPSLIB) DA(ISDSNRPT) SHR REUSE
ALLOC DD(ISPTLIB) DAUTOSNRPT) SHR REUSE
EXIT
RCRIS 4.0.0 M-21 U/92
-------
------- |