EPA-450/3-78-011
April 1978
COMPILATION
OF CDHS STATE
ASSISTANCE REPORTS
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Air and Waste Management
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
-------
EPA-450/3-78-011
COMPILATION
OF
CDHS STATE ASSISTANCE REPORTS
by
Larry R. McMaster,
Research Triangle Institute
P.O. Box 12194
Research Triangle Park, North Carolina 27711
Contract No. 68-02-1386
Task Order No. 14
EPA Project Officer: Lloyd Hedgepeth
Prepared for
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Air and Waste Management
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
April 1978
-------
This report is issued by the Environmental Protection Agency to report
technical data of interest to a limited number of readers. Copies are
available free of charge to Federal employees, current contractors and
grantees, and nonprofit organizations - in limited quantities - from the
Library Services Office (MD-35) , U.S. Environmental Protection Agency,
Research Triangle Park, North Carolina 27711; or, for a fee, from the
National Technical Information Service, 5285 Port Royal Road, Springfield,
Virginia 22161.
This report was furnished to the Environmental Protection Agency by
the Research Triangle Institute, P.O. Box 12194, Research Triangle Park,
N.C., in fulfillment of Contract No. 68-02-1386. The contents of this report
are reproduced herein as received from the Research Triangle Institute.
The opinions, findings, and conclusions expressed are those of the author
and not necessarily those of the Environmental Protection Agency. Mention
of company or product names is not to be considered as an endorsement
by the Environmental Protection Agency.
Publication No. EPA-450/3-78-011
11
-------
TABLE OF CONTENTS
Page
Introduction 1
1.0 Overview 1
Establishment of CDHS User Groups 3
2.0 Background 3
2.1 Recommendations and Suggestions 3
User Requirement Surveys 7
3.0 Introduction 7
3.1 Approach Used to Obtain User Requirements 7
3.2 Suggested Modifications 7
3.2.1 EIS/P&R Modifications 7
3.2.1.1 Standard Retrieval Modification 7
3.2.1.2 Batched Retrievals 7
3.2.1.3 Retrieval of Segment 3 Records 8
3.2.1.4 Additional Conversion Programs 8
3.2.1.5 Modification of the Print Programs 8
3.2.1.6 Modifications to File Maintenance 8
3.2.1.7 New Print Programs 8
3.2.1.8 Additional Criteria Pollutants 8
3.2.1.9 Automatic Semiannual Reporting 9
3.2.1.10 Suballocation of Area Sources in EIS/P&R .... 9
3.2.1.11 Revise the Emission Factor Table Generator ... 9
3.2.1.12 Modify the Emission Factor Insertion Program . . 9
3.2.1.13 Modify the Transaction Generator 9
iii
-------
Page
3.2.2 AQDHS-II Modifications 10
3.2.2.1 Standard Violations 10
3.2.2.2 Summary Reports 10
3.2.2.3 File Maintenance 10
3.2.2.4 Transaction Edit 10
3.2.2.5 Additional Sort Programs 10
3.2.2.6 Site Code File 11
3.2.2.7 Parameter Code File 11
3.2.2.8 Parameter Standards File 11
3.2.2.9 Table Maintenance Program 11
3.2.2.10 Incorporate Several SAROAD Report Programs ... 11
3.2.2.11 Provide the Capability of Automatically Providing
the SLAMS Annual Report 11
3.2.2.12 Negative Data 11
3.2.2.13 Anomaly Screening Techniques 12
3.2.2.14 Sliding Average Program 12
3.2.3 Documentation 12
Distribution Procedures 13
4.0 Software and Documentation Distribution 13
4.1 Introduction 13
4.1.1 Procedures for Initial Software Distribution .... 13
4.1.2 Library Maintenance Procedures for CDHS Tapes ... 41
4.2 General Update Procedures 60
4.2.1.1 Preliminary Update Procedures 61
4.2.1.2 Tape Procedures 61
4.2.1.3 Card Update Procedures 70
4.2.1.4 Other Forms 70
iv
-------
Page
4.3 Procedures for Maintaining Mailing Label Files 79
Hardware/Software Configurations and Other Characteristics of the
DCHS Installations 83
5.0 Overview 83
Troubleshooting Techniques 89
6.0 Troubleshooting 89
6.1 Possible Problem Areas 89
6.1.1 Faulty User Procedures 89
6.1.2 Program "Bug" 89
6.2 Troubleshooting Procedures 89
6.2.1 Approach Study 89
6.2.1.1 Problem Statement 90
6.2.1.2 Narrative of Solution 90
6.2.1.3 Test Plan 90
6.2.1.4 Implications 90
6.2.2 Program Coding and Compilation 91
6.2.3 Program Testing 91
6.2.4 Documentation Changes 91
6.2.5 Acceptance Testing in the Baseline Subsystem .... 91
6.3 Problem Reporting Forms 91
i
6.3.1 Information Which Should Accompany Problem
Reporting Forms 92
6.4 Procedures to Follow in Solution of Problem 92
Appendix A: System Status/Hardware/Software Questionnaire Returned
by Users 95
Appendix B: Test Run Series for AQDHS-II and EIS/P&R 261
Appendix C: CDHS Test Jobs 291
-------
LIST OF FIGURES
Page
2.1 CDHS User Listing 4
4.1 Generation of Mailing Labels 14
4.2 CDHS Tape Labels 15
4.3 NADB Tape Inventory Form 17
4.4 AQDHS-II Tape Transmittal Letter 18
4.5 EIS/P&R Tape Transmittal Letter 19
4.6 NADB Tape Inventory Form 20
4.7 AQDHS-II Tape Copy JCL 21
4.8 EIS/P&R Tape Copy JCL 22
4.9 NADB Tape Inventory Form 23
4.10 JCL To Copy AQDHS-II To A Tape Supplied by EPA 24
4.11 Output From An EIS/P&R Tape Copy 25
4.12 Output From An AQDHS-II Tape Copy 29
4.13 NADB Tape Inventory Form 34
4.14 NADB Tape Inventory Form 35
4.15 AQDHS-II Installation JCL 36
4.16 AQDHS-II Installation Letter 42
4.17 EIS/P&R Installation Letter 45
4.18 NADB Tape Inventory Form 48
4.19 NADB Tape Inventory Form 49
4.20 Checklist for Initial Distribution - WCC Supplied Tape 50
4.21 Checklist for Initial Distribution - User Supplied Tape 51
vi
-------
LIST OF FIGURES (CONTINUED)
Page
4.22 NADB Tape Inventory Form (Inactive Form) 53
4.23 NADB Tape Inventory Form (Active Form) 54
4.24 NADB Tape Inventory Form (Active Form) 56
4.25 NADB Tape Inventory Form (Active Form) 57
4.26 NADB Tape Inventory Form (Active Form) 58
4.27 NADB Tape Inventory Form (Active Form) 59
4.28 Checklist for Tape Updates 62
4.29 Checklist for Card Deck Updates 63
4.30 Update Tracking Form 64
4.31 Sample Update Messages 65
4.32 Tape Listing JCL 67
4.33 Tape To Tape Copy JCL 69
4.34 Contents of Update 20 Tape 71
4.35 Generation of Update Decks 72
4.36 Update Verification Form 73
4.37 United States Environmental Protection Agency Letter,
AQDHS-II Update 20 74
5.1 System Status/Hardware/Software Questionnaire 84
5.2 Categorization of CDHS Users By Computer Vendor 88
vii
-------
THIS PAGE LEFT INTENTIONALLY BLANK
viii
-------
INTRODUCTION
1.0 Overview
This task was initiated on June 23, 1975 with the following objectives:
1. Prepare a report analyzing the best method for establishing
CDHS user groups. Considering those installations currently
existing and those which are pending; whether or not the
control agency has more than one CDHS subsystem and whether the
same agency personnel are involved in both; the desirability of
having central user group meetings or whether it will be
necessary to have them on a Regional basis; the organization,
content, and management of these meetings.
2. Prepare a report analyzing the most desirable, efficient,
and practical approach to conducting CDHS user requirements
surveys.
3. Prepare a report outlining the most desirable scheme for
distributing CDHS subsystem updates to the user community.
This distribution scheme shall consider the types of hard-
ware each user is operating on.
4. Prepare a report documenting the hardware/software configura-
tions, special characteristics, and any unusual local
conventions for each CDHS installation site.
5. Prepare a report analyzing the most responsive and efficient
procedures for responding to user identified subsystem
problems.
These reports are presented in chapters two through six of this report.
The task was then modified to include these additional objectives:
1. Publish the CDHS User's Bulletin.
2. Conduct CDHS users group meetings in EPA regions where requested.
3. Distribute the official CDHS subsystem updates.
4. Develop and implement procedures for distributing initial
subsystem software.
In accomplishing item one of the additional tasks, RTI developed the
format of the current CDHS USERS BULLETIN and, using that format, wrote,
-------
published, and distributed eight bulletins. Under item two of the addi-
tional tasks, RTI conducted user group meetings in Florida, Georgia, Ohio,
South Carolina, Virginia, and California. Under item three, RTI used the
techniques developed in the original scope of work to distribute twenty-one
(21) updates to EIS/P&R and twenty (20) to AQDHS-II. In accomplishing item
four, RTI (in conjunction with NADB) developed the system for distributing
initial CDHS software and, using this system, provided eighteen (18) copies of
EIS/P&R and nineteen (19) copies of AQDHS-II.
-------
ESTABLISHMENT OF CDHS USER GROUPS
2.0 Background
The EPA has ten (10) Regional Offices with responsibility for imple-
mentation of EPA environmental policies and programs, and for maintaining
liaison with and providing assistance to state and local environmental
agencies within the geographical area of each Region. The staff of each
Regional Office includes an Air Programs Office, with responsibility for
air quality programs initiated or sponsored by the federal government. This
staff should be knowledgeable of the status of its state and local CDHS user
programs.
Nationally, there are 54 CDHS subsystems installed, being installed,
or planned, with at least one site in each of the ten EPA Regions. Figure
2.1 lists these sites by Region, showing the status of each AQDHS-II and
EIS/P&R installation.
2.1 Recommendations and Suggestions
User group meetings provide an excellent forum for exchange of CDHS
information between EPA offices and the users. Such groups could be established
on a program basis, a hardware basis, or a geographical basis. Restrictions
on out-of-state travel limit some users to attending meetings only within
their geographic area. Within each EPA Region (except Region 6), there are
installations which have both the AQDHS-II and the EIS/P&R subsystems. User
groups based on subsystems would require these users to attend two sets
of meetings. Most installations use IBM-370 hardware, with the remainder
having a wide variety of different vendor's computers; consequently, hardware
would not seem to be a valid basis for grouping.
Therefore, it is recommended that the users groups be established based
on the ten (10) EPA Regions. Since there is a wide variance among the Regions
as to the status of the CDHS user programs, each Region should structure its
group for its individual needs. The Regional Offices should be designated
as points-of-contact for the CDHS user groups. They can, in addition, serve
as liaison between NADB and the users. It is recommended that each Regional
users group schedule a yearly users meeting. In addition to this scheduled
meeting, meetings should be held as needed on a local, state, Regional, or
National basis.
-------
Figure 2.1 CDHS USER LISTING
User
Hardware
Update
AQDHS-II Status
EIS/P&R
Update
Status
Region I
CONN
MASS
NH
RI
MAINE
Region II
NY City
Puerto Rico
Region III
DEL
VA
Fairfax Co. ,
VA.
Region IV
ALA
FLA
GA
KY
MISS
NC
SC
TENN
Region V
ILL
IND
MINN
OHIO
IBM-370/168
CDC CYBER 72
HONEYWELL
AMDAHL 470 V/6
HONEYWELL 6000
IBM-370
IBM-370
IBM-360/50
IBM-370/158
IBM-370/ 155. 2
UNIVAC-1100/10
UNIVAC 1100/40
UNIVAC-1110
IBM-370
IBM-370/155
IBM-370
IBM-370
IBM-370
IBM-370/168
IBM-370/ 165
CONTROL DATA 3300
IBM-370/158
Installed 17
In Progress
Installed
Installed 14
In Progress
Installed
Installed 16
Installed 19
Installed
Installed
Installed 20
Installed
Installed
Installed
Installed
Installed 18
Installed 18
In Progress (1)
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
18
19
21
10
21
20
20
-------
Figure 2.1 CDHS USER LISTING (Continued)
User
Hardware
AQDHS-II
Update
Status
EIS/P&R
Update
Status
Region VI
OKLA
NM
Region VII
IOWA
MO
Region VIII
COLO
ND
MONT
WYOMING
UTAH
Region IX
ARIZ
PIMA CO.,
ARIZ
CALIF
LA CO.,
CALIF.
VENTURA CO.,
CALIF.
SAN DIEGO CO.,
CALIF.
NEVADA
FRESNO CO. ,
CALIF.
SANTA BARBARA
CO., CALIF.
IBM-370
IBM-370
IBM-370/158
IBM-370/158 & 145
IBM-370/145
IBM-370/145
IBM-370/145
IBM-370
ITEL
HONEYWELL 6060
IBM-370/145
IBM-370/168
IBM-370
IBM-370/145
IBM-370/158 & 145
INFONET/UNIVAC-1108
MAINFRAME
IBM-370/145
IBM-370
Installed
Installed
Installed
Installed
Installed
Installed
Installed
In Progress
Installed
Installed
Installed
17
14
17
19
18
14
13
13
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
Installed
16
19
21
21
19
15
21
21
-------
User
Hardware
Figure 2.1 CDHS USER LISTING (Continued)
Update
AQDHS-II Status EIS/P&R
Region X
ALASKA
IBM-370/148
Number Installed
Number In Progress
In Progress
25
4
Installed
24
1
TOTAL 29 25
(1) This installation is being converted from an IBM to a CDC Computer.
OTHER US GOVERNMENT AGENCY USERS
U. S. Army
U. S. Navy
IBM-360/65
IBM-370
Installed
FOREIGN USERS
AQDHS-II
Australia
Rio De Janerio, Brazil
EIS/P&R
Rio De Janerio, Brazil
Sao Paulo, Brazil
Canada
Israel
Update
Status
19
-------
USER REQUIREMENT SURVEYS
3.0 Introduction
In order to provide the CDHS User with subsystems which are responsive
to their specific requirements, a mechanism should be established for
continually obtaining the requirements of each user. The establishment of
this mechanism will provide EPA with the feedback and input which is necessary
in developing immediate and long term plans for each of the CDHS subsystems.
RTI recommends that the approach used to obtain the requirements of each
user be similar to the approach implemented during this effort. This
approach is discussed in the following section.
3.1 Approach Used To Obtain User Requirements
The approach which RTI employed to obtain the CDHS user requirements
was direct communication with the user followed by a written summary of the
discussion. This appears to be the best approach to the problem of obtaining
the needs of each user. This direct communication with the user can be accom-
plished by telephone conversations or by scheduling time for a discussion
of user needs at each CDHS User's meeting, thus allowing the user the opportunity
to prepare a list of his requirements for presentation at the CDHS User's
Meeting. Also, this discussion period at the User's Meeting can be used by
EPA personnel to thoroughly discuss any modifications which are being made to
the subsystem.
3.2 Suggested Modifications
In this section, the modifications suggested by the CDHS User Community and
RTI are briefly discussed by subsystem.
3.2.1 EIS/P&R Modifications
3.2.1.1 Non-Standard Retrieval Modification
The current EIS/P&R retrieval package always produces an answer
file in master file format; that is, if a segment 2 record qualifies
for retrieval, then segments 0 and 1 would also be written to the
answer file. The proposed modification would give the user the option
to retrieve only those segments specified in the retrieval.
3.2.1.2 Batched Retrievals
The current retrieval package provides the user with one retrieval
request per run. This means that if a user has more than one retrieval
-------
request, he must make separate computer runs for each retrieval request.
This procedure is very costly and time-consuming since the entire
EIS/P&R master file must be passed for each retrieval request (this is
due to the sequential nature of the EIS/P&R master file), thus, a modifi-
cation to provide the capability of batched retrieval requests would
greatly benefit the EIS/P&R user.
3.2.1.3 Retrieval of Segment 3 Records
Currently, the EIS/P&R retrieval package will allow the user
to retrieve segment 3 records only if he specifies segment 3 information
in his retrieval request; thus, a modification which would allow the
user to retrieve all information concerning a particular plant, point,
or machine process would be beneficial.
3.2.1.4 Additional Conversion Programs
Since the EIS/P&R data base contains a great deal of information
useful in various modeling programs, it would be beneficial to provide
conversion programs which would convert the information contained
in the EIS/P&R data base to formats compatible with various modeling
programs. Some candidate conversion programs would be: a) EIS/P&R
to IPP; b) EIS/P&R to AQDM; c) EIS/P&R to HIWAY and d) EIS/P&R
to CDM.
3.2.1.5 Modification of the Print Programs
Several users have requested that a modification be incorporated
into each print program to allow them the capability of generating
agency specific information, such as agency name and address, on each
page of their report.
3.2.1.6 Modifications to File Maintenance
Several users have suggested that the file maintenance program
be modified to allow the user to add a type 13 transaction to an
existing point and blank a specific field using a change transaction.
3.2.1.7 New Print Programs
Several users have suggested that EIS/P&R should have several one
line exception reports or summary reports, such as an exception report
of 100 ton emitters, which the "Quick Look" Program will not produce.
3.2.1.8 Additional Criteria Pollutants
RTI suggests that EIS/P&R be modified to automatically generate
reports to EPA for new criteria pollutants. Currently, EIS/P&R generates
-------
the NEDS report on the five criteria pollutants identified by EPA, but
NEDS only has the capability of tracking these five criteria pollutants.
Thus, if a new criteria pollutant (possibly lead) is identified, EPA
must either modify NEDS to provide the additional tracking capability
or use another data base management system to provide this tracking
capability. The HAZARD and TRACE EMISSION SYSTEMS (HATREMS) is
a likely candidate for providing the tracking of additional criteria
pollutants. Since EIS/P&R presently provides the capability of track-
ing sixteen (16) pollutants, an EIS/P&R to HATREMS transaction format
conversion program could provide the EIS/P&R user the capability of
tracking additional criteria pollutants as they are identified.
3.2.1.9 Automatic Semiannual Reporting
EIS/P&R should be modified to handle the new NEDS P7 card and
provide the user with the automatic reporting of their semiannual
report.
3.2.1.10 Suballocation of Area Sources in EIS/P&R
The area source handling facility should be modified to allow the
user to suballocate his area sources, handle the new NEDS A7 card, and
provide the user with an automatic reporting feature.
3.2.1.11 Revise the Emission Factor Table Generator
The emission factor table generator program should be rewritten
to provide the true file maintenance capability and eliminate the
track overflow problem experienced by several IBM users.
3.2.1.12 Modify the Emission Factor Insertion Program
The emission factor insertion program should be modified to allow
the user the option of selectively replacing the emission factor related
Information.
3.2.1.13 Modify the Transaction Generator
The transaction generator program should be modified to produce
only change transactions for the automatic update. This would eliminate
the problem of deleting machine processes which do not meet the option
card criteria. This program should also have the additional capability
of generating all of the transactions in a given master file or answer
file.
-------
3.2.2 AQDHS-II Modifications
3.2.2.1 Standard Violations
Several users have suggested that additional exception report
programs be added to AQDHS-II to provide violation of standards reports
on all criteria pollutants.
3.2.2.2 Summary Reports
Several users have indicated that it would be desirable to
have additional summary reports in a format specified by the user.
A candidate modification to provide this capability would be a
"QUICK LOOK" program similiar to that being developed for EIS/P&R.
3.2.2.3 File Maintenance
Several users have complained that when they attempted to change
a null reading with a change transaction it was rejected. Thus, a
candidate modification to the file maintenance program would provide
the capability of changing a null reading to a valid reading, using
a change transaction, and setting the status flag to add for later
submission to SAROAD.
3.2.2.4 Transaction Edit
In order to provide additional anomaly screening, the data should
be compared to the minimum detectable value fcr that parameter-method
code combination. If the data is less than the minimum detectable
value, it should be accepted; however, a non-suppressible warning
message should be output for that reading.
3.2.2.5 Additional Sort Programs
Presently, the AQDHS-II relies solely on the particular utility
sorts provided with the local computer center's operating system. COBOL
sort programs should be added to the system to alleviate the problem of
varying system sort packages among different hardware vendors. The
following is a list of candidate sort programs:
a) Master file transaction sorter
b) File code transaction sorter
c) Parameter code transaction sorter
d) Parameter standards transaction sorter
e) Master file sorter
10
-------
3.2.2.6 Site Code File
Several users have suggested that the site code file be expanded
to include county codes, UTM coordinates, AQCR numbers, calibration
dates, city names, county names, site addresses, contact persons, date
sampling commenced or terminated, sampling height of the probe or
sample inlet, and air pollutants monitored at the station.
3.2.2.7 Parameter Code File
Several users have suggested that the parameter code file be
expanded to include a conversion factor to convert the reading for
that parameter to standards units.
3.2.2.8 Parameter Standards File
Several users have indicated that the parameter standards file
would be better utilized if it contained the standards in a set format,
thus allowing the programs used to determine "violations of the
standards" to access this file for the standard for that parameter
code.
3.2.2.9 Table Maintenance Program
Programs HXTABLE1, HXTABLE2, and HXTABLE3 should be modified
to provide a true file maintenance activity using "add," "change," and
"delete" transactions. In addition, the minimum delectable value should
be removed from the key portion of the parameter code file.
3.2.2.10 Incorporate Several SAROAD Report Programs
AQDHS-II is currently limited in the number of report formats it
can generate; thus, RTI suggests that the current SAROAD report formats
be examined for possible report formats which can be incorporated into
AQDHS-II.
3.2.2.11 Provide the Capability of Automatically Providing the SLAMS Annual
Report
Additional programs should be added to the AQDHS-II to provide
the user with an easy method of submitting his annual State and Local
Air Monitoring Site (SLAMS) reports.
3.2.2.12 Negative Data
Several users have suggested that AQDHS-II would be more useful if
it had the capability of processing negative data such as temperatures,
dew points, and lapse rates.
11
-------
3.2.2.13 Anomaly Screening Techniques
Several users and MDAD personnel have suggested chat anomaly
screening techniques be incorporated in AQDHS-II. This modification
would increase the reliability of the data submitted to EPA.
3.2.2.14 Sliding Average Program
Several users have requested that a "wrap-around" capability be
incorporated in the current sliding average program.
3.2.3 Documentation
Nearly every user of CDHS has suggested that the User's Guides for
EIS/P&R and AQDHS-II be completely rewritten to be more user oriented.
12
-------
DISTRIBUTION PROCEDURES
4.0 Software and Documentation Distribution
Software and documentation distribution includes both initial distribution
of the two CDHS subsystems and Users Guides and updates involving modifications
to the subsystems plus any resulting modifications to the Users Guide. The
detailed procedures for these distributions follow.
4.1 Introduction
Periodically, a request is submitted to the National Aerometric Data
Branch (NADB) for a copy of a subsystem of the Comprehensive Data Handling
System (CDHS). The two current subsystems now available are the Air Quality
Data Handling Subsystem, version Two (AQDHS-II), and the Emissions Inventory
Subsystem with Permits and Registration (EIS/P&R). These subsystems currently
reside on a mass storage device on the Washington Computer Center (WCC) IBM 370
computer located in Washington, D.C.
In order to facilitate prompt and efficient response to the requestor,
the procedures detailed in the following sections should be implemented as
the standard method of distributing initial CDHS subsystem software.
4.1.1 Procedures for Initial Software Distribution
When a requestor contacts NADB for a copy of a CDHS subsystem, his name
not only must be added to either the AQDHS-II or the EIS/P&R update distribution
list, depending on the subsystem requested, but also must be added to the CDHS
Users Bulletin distribution file. (The CDHS Users Bulletin is a publication to
Inform users of updates which have been performed on each of the subsystems,
current and planned modifications, helpful hints to users, etc.) The file con-
taining these distribution lists resides on a mass storage device on EPA's
UNIVAC 1110 computer located at Research Triangle Park, North Carolina. When
additions, changes, or deletions must be made to these lists, the files are
edited using the UNIVAC System EDIT processor. When a change or deletion is to
be made, the appropriate name is located in the file and the change or deletion
is performed. To add a name, the new name and address are entered in alphabetical
order in the file. (See Section 4.3 for further details.) Mailing labels
can be produced by executing a standard NADB program (AE001) which uses these
card image files as input (Figure 4.1).
External tape labels are assigned to tapes provided by the requestor from the
appropriate tape label pool (see Figure 4.2). For initial AQDHS-II subsystem
13
-------
Figure 4.1
GENERATION OF MAILING LABELS
The following procedures should be followed to obtain mailing address
labels from the subsystem distribution file residing on the UNIVAC 1110.
AQDHS-II
@RUN
@ASG,A
@COPY,S
@ADD,PL
<§FIN
(valid run card)
CDHS*CDHS-MAIL.
CDHS*CDHS-MAIL.AQII/NAMES,.AQII/LABELS
CDHS *CDHS-MAIL.AQII /MAIL
EIS/P&R
@RUN
@ASG,A
@COPY,S
<§CAT,P
@ADD,PL
@FIN
(valid run card)
CDHS*CDHS-MAIL.
CDHS*CDHS-MAIL.EIS/NAMES,.EIS/LABELS
PNR-OUT.
CDHS*CDHS-MAIL.EIS/MAIL
14
-------
Figure 4.2
CDHS TAPE LABELS
TAPE LABEL
AQS010
AQS020
AQS030
AQS040
AQS050
AQS060
AQS070
AQS080
AQS090
AQS100
AQS110
AQS120
AQS130
AQS140
AQS150
AQS160
AQS170
AQS180
AQS190
AQS200
AQS210
AQS220
AQS230
AQS240
AQS250
USER
TAPE LABEL
PNR010
PNR020
PNR030
PNR040
PNR050
PNR060
PNR070
PNR080
PNR090
PNR100
PNR110
PNR120
PNR130
PNR140
PNR150
PNR160
PNR170
PNR180
PNR190
PNR200
PNR210
PNR220
PNR230
PNR240
PNR250
USER
15
-------
requests, tape labels include the prefix AQS and three numbers. For initial
EIS/F&R subsystem requests, tape labels include the prefix PNR and three numbers.
A tape log is maintained which provides Information concerning the agency or
person to whom the tape is assigned, and the date NADB received the tape from
the requestor, etc. (see the hatched portion of Figure 4.3). A cover letter
identifying the tape (see Figure 4.4 and 4.5) is prepared and sent with the
tape to the EPA tape librarian at the Washington Computer Center (WCC). The
date the tape is sent to WCC is recorded in the tape log (see Figure 4.6). For
requestor supplied tapes, tape copy decks which will copy the appropriate sub-
system have been created with each tape label; e.g., if the tape label is
AQS040, then the deck with tape AQS040 already assigned to it will be used to
copy the AQDHS-II software or EIS/P&R software (see Figure 4.7 and 4.8).
If the requestor did not supply a tape, a call must be made to the WCC
tape librarian in order to reserve one of their tapes. The label for this tape
will include the prefix OS and four numbers. This label will be recorded in
the tape log along with the date issued (see Figure 4.9).
After the requestor has received the tape and has copied the subsystem
from the tape to his system, he will be responsible for returning it to NADB
who will then return it to the WCC library. The tape copy deck for a WCC supplied
tape must be created using a deck from the preasslgned decks as a guide. This is
done by copying this file into a temporary file and changing all occurrences of
the tape label to correspond to the WCC tape label. The file is then output on
cards (Figure 4.10).
The tape copy decks are used to copy the appropriate subsystem onto the
requestor's tape. The total process of copying the subsystem includes copying
the catalogued procedures, the associated test jobs (including test data), the
load module, and the source programs (Figures 4.11 and 4.12). These copy jobs
are carefully analyzed to insure a successful copy of the subsystem, the
date of the successful copy and the update level included on the tape are re-
corded on the tape tracking form (Figure 4.13). At this time, WCC is notified
by telephone to return the tape to NADB. Upon receipt of the tape, a standard
external subsystem label (AQSTAP or PNRTAP, depending on the subsystem requested)
is affixed to it and the date of receipt is recorded on the tape tracking form
(Figure 4.14).
An installation deck is then created by reproducing the baseline installa-
tion deck. A listing of these cards is produced (Figure 4.15) and the standard
16
-------
Figure 4.3
NADBTAPE INVENTORY FORM
U^R)hENTXlCAHON\ \ XXXXXX^XX \ \
X \. X X X N. N. \. >, \^ >v X\ X ^V N. >v
\McMkster XLarrY R.\ X X X . X X X \8/6AL7 X \
XVAMEXLAST\FIRS\(VIIDDLE) X X X X X X DATE ASSIGWED X \
Nv Re^arclKTriahgle instiWe,\RTP;\N.C/\277a9L \^ \^ X. X. \^
\ XDHS \ X \ \ \ \ \ \^ \^ \^ \x \^ \^ \^
Ab<;oukrcob€ \ \ \ \ \ XfROj^TcbpE \ \ X \
SYSTEM IDENTIFICATION
D NEDS D SAROAD S OTHER (SPECIFY) AQDHS-II
FILE DESCRIPTION
(DUAL • FILE NAME) System copy
D UNBLOCKED B FIXED LENGTH 80 CHARACTERS
—
DVAR LENGTH THROUGH CHARS
0 BLOCKED O 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
n . RFonRps PER RI r>OK
K 800 CHARACTERS PER RI OCK
D COBOL D FORTRAN S EBCDIC DASSEMBLER DASCII
D SDF D COPY, G IEHMOVE
NUMBER OF REELS 1
FILE TYPE
D MASTER a BACKUP LITEST DSORT DMERGE
® OTHER ^SPECIFY) AQDHS-II System Copy
SHORT DESCRIPTION OF CONTENTS
FILE RELEASED BY: HATF
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
RFfck NUMRERfSi
\ A&snArN x
\ \ \x
^se\poX89)X
X X \
\\ \ \
EPA(RTP)406
17
-------
Figure 4.4
AQDHS-II Tape Transmittal Letter
UNITED STATES ENVIRONMENTAL PROTECTION AGENCY
EPA Tape Librarian
COMNET
5185 MacArthur Blvd., N. W.
Washington, D. C. 20016
Dear Librarian:
Enclosed is a tape to which I plan to copy the Air Quality
Data Handling Subsystem (AQDHS-II).
I will be performing this copy by way of an RJE Terminal from
Durham, N.C. After I have determined that this copy is successful,
I will call you and have you return the tape to me.
This tape belongs to Mr. Larry McMaster, Research Triangle Institute,
Research Triangle Park, North Carolina 27709. Since this tape does not
belong to me and may have several control numbers, I have attached an
additional external label with the Volume Serial Number of AQS040 for
my purposes.
I am not sure of the initialization status of this tape. However,
I will use bypass label processing, so it may not be necessary to
reinitialize the tape.
Should you need to contact me regarding this tape or WCC procedures,
my telephone number is (919) 541-5491.
Sincerely yours,
Lloyd M. Hedgepeth
Environmental Engineer
National Air Data Branch (MD14)
Enclosure
18
-------
Figure 4.5
EIS/P&R Tape Transmittal Letter
UNITED STATES ENVIRONMENTAL PROTECTION AGENCY
EPA Tape Librarian
COMNET
5185 MacArthur Blvd., N. W.
Washington, D. C. 20016
Dear Librarian:
Enclosed is a tape to which I plan to copy the Emission Inventory
Subsystem/Permits and Registration (EIS/P&R).
I will be performing this copy by way of an RJE Terminal from
Durham, N.C. After I have determined that this copy is successful,
I will call you and have you return the tape to me.
This tape belongs to Mr. Larry McMaster, Research Triangle Institute,
Research Triangle Park, North Carolina 27709. Since this tape does not
belong to me and may have several control numbers, I have attached an
additional external label with the Volume Serial Number of PNR120 for
my purposes.
I am not sure of the initialization status of this tape. However,
I will use bypass label processing, so it may not be necessary to
reinitialize the tape.
Should you need to contact me regarding this tape or WCC procedures,.
my telephone number is (919) 541-5491.
Sincerely yours,
Lloyd M. Hedgepeth
Environmental Engineer
National Air Data Branch (MD14)
Enclosure
19
-------
Figure 4.6
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
McMaster. Larry R.
NAME (LAST/FIRST, MIDDLE)
Research Triangle Institute, RTF, N.C. 27709
CDHS
ACCOUNT COD'fe
8/6/77
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
AQS040
(user 007A89)
SYSTEM IDENTIFICATION
D NEDS DSAROAD HOTHER (SPECIFY! AODHS-II
FILE DESCRIPTION
(O.UAL • FILE NAME)
D UNBLOCKED E FIXED LENGTH
System copy
80
D VAR LENGTH.
.THROUGH.
.CHARACTERS
CHARS
63 BLOCKED
D 50 RECORDS PER BLOCK
a 4000 CHARACTERS PER BLOCK
D ^—RECORDS PER BLOCK
B 800 CHARACTERS PER BLOCK
RECORDING MODE
DCOBOL a FORTRAN BEBCDIC
D SDF D COPY, G IEHMOVE
NUMBER OF REELS 1
DASSEMBLER DASCII
FILE TYPE
O MASTER D BACKUP OTEST DSORT
[3 OTHER (SPECIFY) AODHS-II System Copy
EMERGE
FILE RELEASED BY:
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
20
-------
Figure 4.7
AQDHS-II Tape Copy JCL
//EPALMH JOB (A087,LMH,,LMH,,|),TIME»1,PRTY«5
//COPY EXEC PGMsJEHMOVE,
// REGIONslOOK,
// TIMEs(l,0)
//3YSPRINT DO 5Y30UT*A
//3YSUI1 00 UNITsSYSDA,SPACEs(CYL,UO,m
//D1SK1 00 UNIT*33JO,
// VOL»SERsCOHSPK,
// DISPsOLD
//TAPE 00 UNITsaaOO,
// VOLUME=3ER=AQ30aO,
// DISP=(NEW,HASS)»
// LABfcL»(»8LP),
// OCB«(RECFMaPn,LRECL=80,8LKSUEa800,DEN«3)
//3YSIN 00 *
COPY PDSaCN.EPALHH.A087.CDHS.HQ.AOS.JCL> X
TODO»TAPE,r032aOO*(ACJS040,l), X
RENAMEsCDH3.AQ3.JCU
COPY POSsCN,EPALMH.AOe7.CDHS.HO.AQS.JOBS, X
TOD03TAPE,TO=2aoOa(A030«0,2), X
RENAMEsCDH3.AOS.JOB3
COPY POSsCN.EPALMH.A067.CDH3.HO,ACS.SOURCE, X
TODD»TAPE,TOsaaOO»(A030aO,3), X
RENAME«COH3.A03.SOURCE
COPY POS«CN.EPALMH,A087.COHS.HO.A03.SYSIN, X
TOODsTAPE,TO>ZaoOXAQ3040,4), X
RENAME3COHS.A03.SY3IN
/*
21
-------
Figure 4.8
EIS/P&R Tape Copy JCL
//EPALMH JOB
-------
Figure 4.9
NADB TAPE
V" \ N \ \ \ \
USER ID&^TiFlCATI'QIM \ \ \ \
\M\^NU\R\\\\
INVENTORY FORM
^\\J^\^
XNAMENtAST^RST^Dobs) \ \v \. \^ \ \DAT£As£vGNED\x \.
\ Res^archXriarfgle iWitute, RCT, f\c- ^?09\ \ \, \^ \ \
\ \CDHS\ \ \ \ \ \ \ AO'BHS-h \ \ \ \
^ N X \
SYSTEM IDENTIFICATION
PROJECXCODX \ \ \ X
D NEDS D SAROAD H OTHER (SPECIFY) CDHS-AODHS
FILE DESCRIPTION
(QUAL • FILE NAME) System Copy
n UNBLOCKED H FIXED LENGTH
n VAR LENGTH
0 BLOCKED D 50 RECORDS PER BLOC
D 4000 CHARACTERS PER
n - Bprr
80 CHARACTERS
THROUGH CHARS
K
BLOCK
)RDSPER BLOCK
ra ann CHARACTERS PER RI OCK
RECORDING MODE
D COBOL D FORTRAN S EBCDIC
DSDF a COPY, G IEHMOVE.
NUMBER OF REELS 1
DASSEMBLER DASCII
FILE TYPE
D MASTER D BACKUP DTEST
DSORT DMERGE
G3 OTHER (SPECIFY) AODHS-II Svstem f-onv
SHORT DESCRIPTION OF CONTENTS
FILE RELEASED BY:
HATP
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
V-
REELNUMBER(S)
OS2369
EPA(RTP)406
23
-------
Figure 4.10
JCL To Copy AQDHS-II To A Tape Supplied By EPA
//EPALMH JOB (A087,LMH,,LMH,,|),TIMEsl,PRTY35
//COPY EXtC PGMsIEHMOVE,
// REGIONslUOK,
// riMEs(i,o)
//SYSPRINT DO 3Y30UT=A
//SYSUT1 DO UNir = 3YSDA,3PACE»(CYL,UO,l>)
//OISK1 00 UNITS3330,
// VOL=SER=CDHSPK,
// DISPsQLD
//TAPE DO UNIT=2«00,
// OISP=(NErt,HAS3)/
// LABEL=(,bLP),
// DCB=(RECFM=F8,LRECL=80>8LKSIZE=800,DEN=3)
//3YSIN DO «
COPY PDS=CN.EPALMH.A087. COM3. HQ.AQS. JCL, X
T0003TAPE,TO=2
-------
Figure 4.11
Output From An EIS/P&R Tape Copy
//PNRIbO JL'H VI I.C«y.Pn£Ob9,FRMKE, [ s I , PUT Ys£ , FOWMS=Wh I TF.
//COPY EXEC pf;M=iE
// Tivt=(l,o)
//SYSPRIMT DD SYSUUIsA
//SYSUri DO UMlTsSYSOA,SPACts(CrL.(IO,l)J
//DISK1 DO UNtlsOlSK,
// VOL=StK=HC40Pl,
//
//TAPE DO
//SYSIN DO *
- SItK WAS EXECUTFD - CD^JO CDDE
COHLsiOOK TIMt — 0:'i»».5 UH — -t'rt RlVrfR — Ot 19.5 «C— —
COPY USEU = 060K CPU --- 0:05.2 DISK — 1?'JH RtrfNO— — OlOO.l
COPY i/u— o:4s..i IAPE"^l^^ FL s«— 0:00.1
PNR1SO TIME — 0:«fl.6
25
-------
Figure 4.11 (Continued)
SYSTE" SUPPUHT UULITIf.3 ---- IEHMUVL
IEHU11
MEMHR
MEMBR
Mt'HIJR
COPY PDS = Mrj.CI)HS.PNH..)CL,
FHi)M = i;I3Ks
r ODt>= TAPE,
I DATA SE
CDHSCbL
Cl'MSCHLE
COHSCO'"IL
COH3FTCL
CUHSFtN
CDHSFlNL
PtjRA'-JCNV
PNRHHtPT
PNPCNCAI
PfJHCUVWr
PNHOCM'JV
PNKEFUPD
PNRFUPUT
i
•1E''IMR
PMHISOKf
PHlKP^tPf
PMKHFTVR
PNWSOWff*
PNHfBOhN
DATA SF.
T MM
MAS
HAS
HAS
HAS
MAS
"AS
HAS
HA?
HAS
HAS
HAS
HAS
HAS
HAS
HA.S
HAS
MAS
"AS
MAS
HA.3
HAS
r MU
.COMS.PM<..ICL IMLOAPF t> BECAUSE ACCESS MtTH(JD MOT COMPATIBLE
HEE"fJ UNLOADED
HfcEN UNLOADED
>*£fM UNLOADED
^EEN UNLOADED
rtttN UNLOADED
".EEN UNLOAhEO
ilF.tN UNLOADED
Htt'M UMU'ADED
HtfeN UNLOADED
»ECN UNLOADED
OLEN UNLOADED
MtCN U'JL'JAOtO
HF.tN UM(OADfcO
«Ltn UNLOADED
HRfeM >JML()«nflJ
nhtM UNLOADED
HtE'J IJMLOADf.D
HfcEN UNLOADED
UfKN UNLOADED
'ItEN UNLOADED
KEEN UNLOAPtO
.CI>HS.PNP.JCL HAS HttN CHPIH; ru VOLUME (S)
ll'il t PEC OP UUAHLM) I APt.
AfiD IS NOW MAvlEl) COHS.PMK.JCL
COfY
HDSsHf.'.CDHS.PMP. JOBS*
f- M
MfeMHH
MEMUR
MEMHH
MEMBR
MEMHH
MtMHR
MEMBR
MEMHH
MEMPP
MEMf'R
MEMHH
ll DA1A SE
PMHJOHUl
PNHJ()I)0<;
PNH.IJHOJ
PNHJLlri.ia
PMHJOHOb
PfJHJ(JR06
PNRJim«i7
PNWJOBOH
PfgRJ'JM09
PNHJOH10
PIJRJUH11
P^«juot2
PNRJJiUJ
p.MH.juui'1
PMHJUBIS
P'JHJOHlb
P'HJi)(U7
PNMJOHIfl
PMRJURl''
T MU
HAS
MAS
MAS
MAS
HAS
MA. '3
HAS
MAS
HAS
MAS
HAS
HA.?
M£MBR PMPJCIH^I
HAS
HAS
MAS
HAS
HAS
WA3
MAS
HAS
.CDHS.PMR. J013S U'lLUAUfcU HECAUSE ACCESS METHOD NOT COMPATIBLE
r»FEfJ UMl.OAr.'tO
df EU
MEEN
-iEEN
rlEEM UMI.
-
26
-------
Figure 4.11 (Continued)
SYSTfcM SUPPUWt UTILITIES —— lEHHIJVf
MEMbR PtlRJUbHS.PNH.J(18S HAS BEEN COHIF-i)
OMIT REC OR UXLAHLEn TAPE
AMI) IS W.1W MAMED COM3. PNR. JOBS
iJEEtl
HI EN
HFfc.fl
KEEN
UNLC'AOtD
TO VULU*E(S)
IEH
-------
Figure 4.11 (Continued)
SYSTEM SUPPORT UTILITIES -—
HAS HEfc'J UNLOADED
M£MHt{ FDFILMMT HAS r.»F£N IIMI.OADFD
MEMrtR GOCU-MFK; HAS 3EF.fi UNLOADED
ME'-'HH GOCU^^SG HAS HttH UNLOADED
MEMHR GDEFbNUX HAS HELM UNLOADED
MEMbR GdEFS'JOX HAS
MEMHR GOEFTAHL HAS
MEMHR GD£KjOX HAS iJEKN UNLOADED
MEMHH GOEMTHL HAS BEEN UNLOADED
MEMMR GDEMFNUX HAS >..| NAMt.D Ci'HS.PMR.SOURCE
28
-------
Figure 4.12
Output From An AQDHS-II Tape Copy
//AUS130 JU'i Wf I .C'»«.PO<>Ofj9,FRA'JKfc.» Ts4,PHTYs
//COPY txtC P&M=Itnrif)wF,
// HEGIUNslOOK,
//SYSPKINT 00 SYSOUTsA
//SYSUU 00 UfJIT=SYSOA,SPACE =
//OISM DO UNITsDISK,
//
//TAPE
(10, 1 ))
oi) UNI r=2aoo,
vuLuv'E=5EH=Ansi 30,*! JG=IN,
UISP=(NEw,PASS),
COPY
COCY
COPY
- STEP WAS EXECUTED - ccwo ciiot ooo'i
Ci)KE = 100K TI«fc---a:00.0
CPU---0:05.'I
I/O --- 1:5«.6 TAPt —
KO//>lR---0:2fl.fl
KtrfND — 0:00.1
FL SB OtOO.l
RC——a
AOS130 TIME— «»:00.|
29
-------
Figure 4.12 (Continued)
SYSTEM SUPPORT UTILITIES --- - I£M-U.Wt
CUPt
POS=Hq.CDHS.AQS. JCL,
roUD=FAP£, ins^'JOOr (ftiJS130, 1 ) ,
RtNAMEsCDHS.ARS. JCL
MEMHR
MEM3H
XEMBH
MEMhH
MfMBH
HAS
HAS
HAS
HAS Btt'fi UNLOADED
HAS Ht'tfJ HMLOAOED
llliLO«OED
M£MrtH
IINLOA(1FD
i DATA SET MIJ.CDHS.AQS.JCL jM
AUSACNVJ HAS BEE'J UNLOADED
AUSHC'MVT HAS BEEN HNLOAOF.D
AUSCMVRT HAS HtEu UNLHAOfcD
AQSiMUAL HAS tfEEiJ UMLOAOEP
AQSOU'IP
AQSELlSf
AfJGruPDf HAS
AiJSMIIPOt HAS rtEEM
A'lSHUPl)«» HAS fJEE'l
AOSHUP03 MAS bfcfcM
AQSIAVGS HAS otEf«
AOSILIST HAS rifc£f.'
AiJS'-'E!»fit HAS Stt'N
ArgS."'Lf-.D fAPt
A NO 18 MHu UA'ltD CDH3.AQ3.JCl.
IEHUH
MEMBH
MEMHR
ME'-'HH
M£MH«
MfMHR
M£,1HR
I OAfA
TCSTOJ
TESIOe!
TESfOi
TESTOU
ftSTOS
TEST06
itsro;
TESlO'i
ItSIO'J
! to I 10
Tt3Tll
Sfc
KHO
IOI.
k
T H
HAS
MAS
HAS
HAS
HAS
HAS
MAS
HAS
HAS
HAS
nAS
, X
X
J=I APF , Tns^/400 = ( AUSI 3'> f 2) . X
.AOS. JJtfS
ij.COHS.AOS.JOHS UhLHADEC Mf-.CAl'SE ACCESS METHOD NOT COMPATIBLE
»ILEM
afcEfj
^EEN
'
-------
Figure 4.12 (Continued)
UTILITIES
MEM8R
MEMOR
MEMBR
MEMHR
MEMBH
MEMBR
MEMoH
MEMHR
"IF.MHR
MfcMHP
MEMHH
ItMNH
MEMHR
ME.MOR
\\EMbR
MEMHR
MF.MHR
TtSTl,?
IE 3 r 1 $
! E S M '«
IFSI1S
TEsrtb
TEST17
TfcSTIK
T E S r I '»
1ESI21
ItST^i
T t S I i. 7
1ESI
U'JLJAOtD
tifcET! I.IMLLIAOEO
btt.l MML'JAPEi)
BEEH
UNLOADED
iJf'LOADFO
ilNLO/»OF.P
MMLDADEO
UNLfJAOfci)
S BLEU
ft EM
SEEM
UK EM
IIMLOAOFO
MfJLOAnEfi
iit.LUADEO
UNLOADED
IJNL JAPFD
HKEM
HEF'i
Stl HU.CUMS.AfJS.JOrtS HAS nFE'J LOPItJ TO VOIU^F(S)
Drill WEC OH U JLAHLED TAf'F
ATiu IS M.U flA'lEl) COnS. AiJO. Jlii'S
MEMBH
MEMHH
MEMDW
MEMHH
CUPT
I 1 OAT A SL' T
ADCU'JVHt MAS tJEtfl
=Ci'Hr3. AiJS.SJUI'Ct
Htr^ust ACCESS METHOD TJOI CJ^PATIBLE
AOMtRl.f-
COCUfWKT
DDSTATIS
HAS
nAS
HA:;
HAS
Hf t>!
M^ I.OADti)
31
-------
Figure 4.12 (Continued)
SYS1FM S
UTILFFIES ---- IEHMDVF.
EDKPFLST
F0^ ILMNT
GOMAXHOG
GO.MSTREC
: IL
MEMBK
MDtA«Lt 1
MF.f'BR
MEMttR
JDSLDAvl-
MDSt'-lTUL
NULL
FO'lt I Hill)
WOAUSHhC
ROC N (L.'Sv.
MF.MHW
MEMHR
MF.MHH
MEMBR
MfcMHR KOSLCTLS
Mf MHW
MEMUH
HfjilSEH'i 1
WOi'.'K -tSFH
M MR
RPO'hi IL
K P f-! A I , J L f
PHMA I'>lR-l
HP'irt tnill)
UPf-V ''S Fri
Kf'JLI vlIT
r
,'IEi'bR KPWt'Ph AF
'PGf JCFL
P I L S F i) 1
T
MEMUR
MEMtlR
rlfcl'UtP
rt P .'I H A P U P
RPrtKI TCL
KP.-.HI Ft
MP'.'.'Hl TF.3
K P f . K I T .': K
W T « E ! K V «
,'iOPH in I 3
I I) I «E10 1 I
HAS
HAS
HAS
HAS
MAS
HAS
MAS
HAS
HAS
HAS
HAS
HAS
HAS
H A 3
HAS
HAS
n A !i
H'ILOAOFQ
UNLOAOFO
iMLOAOED
HEtN UMLOADED
UNLOADED
UNLOADED
UNLOADED
•JEEN
HEEN
HtEN
rltt'N
btfc',
SJt EN
UNLOADED
MAS
HAS
MAS
HAS
HAS
HAS
HAS
HAS
HAS
HAS
HAS
HAS
MAS
HAS
HAS
HAS
HAS
HAS
HAS
H A S
H A S
HAS
HAS
H A S
HAS
HAS
HAS
HAS
MAS
HiS
HAS
HAS
HAS
HAS
,IAS
HAS
HuS
HAS
H A :>
UNLOADED
liULOADED
M"il.n4DF:D
UMLOAOEi")
iJNLOAOED
UNLOADED
Htt'-l
N IINLUADFD
UNLOADED
BEEM
HEfcN
HMLtJAOFD
iJfJLr]AOED
•Itt
UMLOAOFD
. •', IIMLHADED
.•iEt'J 'i^LllADF.D
rttf. fi liMLnAriF n
U tH MfiLilADF i)
KEE'J H<>
MMJIADED
MtEM llf.l.l.lAilE'l
fiLF.r. \)f
i'fcF'
32
-------
Figure 4.12 (Continued)
SYSTEM 3UPPUK1 llflLintS
MtMHH U!>MLDSM> HAS HKf. UNLOADED
DATA 5tl HIJ.COHS.AUS.S'JI'SCt HAS HEfcH tUCJF.D 10 VULUMt(S)
UMlf (-'FC ni<
A.MI is ^'ji>i M
isI APt i TD = ?'40'i
HF NAMt =CUMS. AUS. SYS IN
IIAIA StI H!j.Cl)na.AriS.SYSIN LiuijiAOtO
HtCAjSE ACCESS METMUD :JUT CUMPATIOLE
MF.MHP
MfcHHrt
HAS HfcE '* IIMLUAOEO
HAS ^EtfJ
tiA.S Httfi
HAS HtF.M
MAS HEFM
IIMLOAOFO
IIML'JAOEO
ALLCII.'J
HSI
-------
Figure 4.13
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
McMaster. Larry R.
12/18/76
NAME (LAST, FIRST, MIDDLE)
Research Triangle Institute, RTF, N.C. 27709
CDHS AQDHS-II
ACCOUNT CODE
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
OS2369
SYSTEM IDENTIFICATION
D NEDS D SAROAD
H OTHER (SPECIFY) CDHS-AQDHS
FILE DESCRIPTION
System Copy
(QUAL • FILENAME)
D UNBLOCKED 13 FIXED LENGTH.
80
VAR LENGTH.
.THROUGH.
.CHARACTERS
CHARS
53 BLOCKED
D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
D ^—RECORDSPER BLOCK
B 800 CHARACTERS PER BLOCK
RECORDING MODE
DCOBOL DFORTRAN SEBCDIC
D SDF a COPY, G IEHMOVE
NUMBER OF REELS 1
DASSEMBLER OASCII
FILE TYPE
D MASTER D BACKUP DTEST DSORT
Q OTHER (SPECIFY) . AQDHS-TT Sygt-om Tnpy
DMERGE
RIPTIOkoF CQNTFN,
TS
FILE RELEASED BY:
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
34
-------
Figure 4.14
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
T.arrv R.
12/18/76
NAME (LAST, FIRST, MIDDLE)
Research Triangle Institute, RTF, N.C. 27709
CDHS AQDHS-II
ACCOUNT CODE
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
OS2369
SYSTEM IDENTIFICATION
D NEDS D SAROAD
I OTHER (SPECIFY) CDHS-AQDHS
FILE DESCRIPTION
(QUAL -FILE NAME)
D UNBLOCKED S FIXED LENGTH
System CODV
SO
D VAR LENGTH.
.THROUGH.
.CHARACTERS
CHARS
SLOCKED
D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
O ^-RECORDS PER BLOCK
53 800 CHARACTERS PER BLOCK
RECORDING MODE
DCOBOL DFORTRAN
nsoF a COPY, G
NUMBER OF REELS 1
S EBCDIC
IEHMOVE
DASSEMBLER DASCII
FILE TYPE
a MASTER D BACKUP QTEST DSORT
E OTHER (SPECIFY) AQDHS-II System Copy
DMERGE
SHORT PSSCRVrioNkOF C&NTF
FILE RELEASED BY:
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
35
-------
Figure 4.15
AQDHS-II Installation JCL
//EPALMHOl JUB (A087,LMH,,LMH,,3),TIME=12,PHTYs5
//* AOOHS INSTALLATION
//* THIS JOB WILL SCHATCH AND RE-ALLOCATE ALL DATA SETS NECESSARY FUK
//•
//* THE INSTALLATION OF THE AQDHS. IT WILL THEN COPY THE INSTALLATION
//*
//* TAPE INTO THESE DATA SETS AND PUNCH THE JOBS REQUIRED TO COMPILE
//*
//* AND LINK-EDIT THE VARIOUS PROGRAMS IN THt SYSTEM. IT WILL THEN
//*
//* PRINT THOSE JOBS, THE CATALOGED PROCEDURES, THE LINKAGE EDITOR
//*
//* CONTROL CARDS, THE SORT CONTROL CARDS AND THE TEST DATA. THE
//*
//* LISTING SHOULD BE EXAMINED TO BE CERTAIN THAT THE PROCEDURES ARE
//* CORRECT FOR THIS PARTICULAR COMPUTER CENTER. AFTER ANY NECESSARY
//*
//* CHANGES HAVE HEEN MADE, THE JOBS PUNCHED UUT MAY BE RUN
//*
//* SEQUENTIALLY TO INSTALL AND TEST THE AQDHS.
//*
//SCRATCH EXEC PGMs IE.FBR 1 4 ,
// TIM£=(0,5),
// REGI3N=4K
//JCL DO UI3P=(OLO,DELETE),
// DSMA1E=COHS.AQS.JCL
//JOBS DO 01SP=(ULO,DELETE),
// 03NAME=CDHS.AOS.JOBS
//LOAD 00 DISP=(OLD,DELETE),
// OSNA^IEsCDHS.AOS.LOAD
//SOURCE DO DISP=(OLD,DELETE),
// DSNA\1t=CDHS.A(JS,SOURCE
//SYSIN DO DISP=(OLD,DELETE),
// DGNAMEsCDHS.AOS,SYSIN
//ALLOC EXEC PGM=IEFBR14,
// REGION=4K,
// riME=(0,5)
//JCL DO UNIT=3330,
// VOLUME=(PRIVATE,RETAIN,SER=CDHSPK),
// DISP=(NErt,CATLG,DELETE),
// SPACE=(TRK,(20, 10,5)),
//JOBS
//
//
//LOAD
//SOURCE
//
//
//
//
//SYSIN
//
//
00 UN1T=3330,
Vf)LUvit= (PRIVATE, RET A IN, SER = CDHSPK),
DI5P=(NEW,CATLG, DELETE),
SPACE=(TRK,(10,10,5)),
OSNAME=CDHS.AQS.JOBS
00 UNITs333<>,
VOLUME=(PRIVATE,RETAIN,SER=CDHSPK),
OISP=(Nt'W,CATLG,DELETt),
SPACE=(TRK,(«a,lO,5)),
00 UNIT=3330,
VOLUMES (PRIVATE, RET A IN, SER = CDHSPK) ,
OISP=(NF.W, CATLG, DELETE) ,
SPACE=( THK, (200,50,5)),
DSNA,viE=COHS.AQS. SOURCE
OU UNir=3330,
VOLUME = (PRIVATE, RET A IN, SER = CDHSPK),
OISP=(N£w, CATLG, DELETE) ,
SPACt=(TRK, (5,5,S)),
D3NAME=CDHS.AQS. SYSIN
00000100
00000200
00000300
oooooaoo
00000500
00000600
00000700
00000800
00000900
00001000
00001 100
00001200
00001300
00001«00
00001500
00001600
00001 700
00001800
00001900
00002000
00002100
00002200
00002300
00002UOO
00002500
00002600
00002700
00002800
00002900
00003000
00003100
00003200
00003300
00003400
00003500
00003600
00003700
00003800
00003900
0000«000
00004100
00001200
00004300
0000««00
00004500
00004600
00004700
OOOOUPOO
00004900
00005000
00005100
00005200
00005300
00005400
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006200
00006300
00006'JOO
36
-------
Figure 4.15 (Continued)
//SYSPRINT
//SYSUT1
//CDHSPK
//TAPE
//SYSIN
COPY
COPY
COPY
COPY
//PUNCH
//SYSPHINT
//SYSUT1
EXtC PGMrlEHMOVE,
HEGION=90K,
TIMEs(5,0)
DO SYSOUTsA
00 UNIT=3330,
VOLUMES(PRIVATE,RETA IN,SERsCDHSPK),
DISPsOLD
DO UNIT33330,
VOLUMES(PRIVATE,RETA IN,SERsCDHSPK),
DISPsOLD
DO UNITs2400,
VOLUMEsSERsAUSTAP,
DISPs(NErt,PASS),
LABELs(,8LP),
DCBs(RECFM3FB,LRECL=80,BLKSIZEs800,DENs3)
*
T033330=CDHSPK,FROMDD=TAPE,FROMsTAPE=(AQSTAP,1),
PDS=COHS,AQS.JCL
rO=3330=CDHSPK,FROMDDsTAPE,FROWsTAPE=(AOSTAP,2),
POSsCDHS.AOS.J08S
TO=3330=CDHSPK,FROMDDsTAPE,FROM=TAPE«(AOSTAP,3),
P03=CDHS.AQS.SOURCE
TOs3330sCDHSPK,FROMDOsTAPE,FROWsTAPEs(AQSTAP,«),
POS=CDHS.AOS.SYSIN
EXEC PGMsIEBPTPCH,
REGIUNs60K,
TIME=(1,0)
00 SYSOUTsA
00 OSNAMEsCDHS.A03.JOaS,
VOLUMES(PRIVATE,RETAIN),
DISPs(SHR,PASS)
00 SYSOUTsB
00
//SYSUT2
//SYSIN 00 *
PUNCH TYPORGsPO,MAXNAMEs2
//PRINT1 EXEC PUMslEBPTPCH,
// H£GION=60K,
// TIMEs(1,0)
//SYSPRINT 00 SYSOUTsA
//SYSUT1 DO OSNAMEsCOHS.AOS.JCL/
// VOLUMEs(PRIVATE,RETAIN),
// UI3Ps(SHR,PASS)
//SYSUT2 DO SYSOUTsA
//SYSIN 00 *
TYPORG=PO,MAXFLDSsl
ITEMsC ACJDHS-II CATALOGED PROCEDURES', 1)
ITEMsf ',))
FIELDs(80,l,,25)
EXEC PGMsIEBPTPCH,
KEGION=60K,
TIMEs(t,0)
00 SYSOUTsA
00 OSNAMEsCDH3.AnS.J08S,
VOLUMES(PRIVATE,RET A IN),
OISP=(SHR,PASS)
00 SYSOUTsA
PRINT
TITLE
TITLE
RECORD
//PRINT2
//SYSPRINT
//3YSUT1
//SYSUT2
//SYSIN
00
TYPORGsPO,MAXFLDSsl
ITEMs('AQOHS-II INSTALLATION JOBS',1)
ITEMsC M)
FlELDs(90,l,,25)
EXEC PGMsIEBPFPCH,
// HEGIONS60K,
// II.vlEs(l,0)
//SYSPHINT 00 SYSOUTsA
PRINT
TITLE
TITLE
RECORD
//PRINTS
00006500
00006600
00006700
00006000
00006900
00007000
00007100
00007200
00007300
oooo7aoo
00007500
00007600
00007700
00007800
00007900
00008000
X00008100
00008200
X00008300
ooooaaoo
X00008500
00008600
X00008700
00008800
00008900
00009000
00009100
00009200
00009300
00009UOO
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
oootoaoo
00010500
00010600
00010700
00010800
00010900
00011000
000'1 100
00011200
00011300
00011UOO
00011500
00011600
00011700
00011800
00011900
00012000
00012100
00012200
00012300
00012100
00012500
00012600
00012700
00012BOO
37
-------
Figure 4.15 (Continued)
//SYSUTl
DO
//SYSUT2 DO
//SYSIN DO
PRINT
TITLE
TITLE
RECORD
//PRINT4 tXEC
//SYSPRINT DO
//SY3UT1 DO
//SYSUT2 DO
//SYSIN 00
PRINT
TITLE
TITLE
RECORD
DSNAME=CDHS.AQS.SOURCE,
VOLUME = (PRIVATE,RE TAIN),
OI5P=(3HR,PASS)
SYSUUT=A
*
TYPORG=PO,MAXFLOS=1
ITEM=('A«OHS-II SOURCE COOE',1)
ITEMS(' ',!)
HELO=(80,1,,25)
PUM=IEBPTPCH,
REGION=60K,
TIME=<1,0)
SYSOUT=A
DSMAMfcsCDHS.AQ3.SYS IN,
V(JLUM£= (PRIVATE, RE TAIN),
DISP=(SHR,PAS3)
SYSOUT=A
*
TYPORG=PU,MAXFLDS=1
ITEM=(' AQDH3-II SYSIN STATEMENTS ' , 1)
ITEM=(' ',!)
FIELD=(80,t,,a5)
00012900
00013000
00013100
00013200
00013300
00013400
00013500
00013600
00013700
00013*00
00013900
0001UOOO
0001«100
0001U200
00014300
00014100
00014500
00014600
00014700
00014800
00014900
00015000
38
-------
Figure 4.15 (Continued)
EIS/P&R Installation JCL
//EPALMH02 JOB (A087,LMH,,LMH,,3),TIME=12,PRTYs5 00000100
//* 00000200
//* EI3/P&R INSTALLATION 00000300
//* 00000400
//* THIS JOB WILL SCRATCH AND RE-ALLOCATE ALL DATA SETS NECESSARY FOR 00000500
//* 00000600
//* THE INSTALLATION OF EIS/PiR. IT WILL THEN COPY THE INSTALLATION 00000700
//* 00000800
//* TAPE INTO THESE DATA SETS AND PUNCH THE JOBS REQUIRED TO COMPILE 00000900
//* 00001000
//* AND LINK-EDIT THE VARIOUS PROGRAMS IN THE SYSTEM. IT WILL THEN 00001100
//* 00001200
//* PRINT THOSE JOBS, THE CATALOGED PROCEDURES, THE LINKAGE EDITOR 00001300
//* 00001400
//* CONTROL CARDS, THE SORT CONTROL CARDS AND THE TEST DATA. THE 00001500
//* 00001600
//* LISTING SHOULD bE EXAMINED TO BE CERTAIN THAT THE PROCEDURES ARE 00001700
//* 00001800
//* CORRECT FOR THIS PARTICULAR COMPUTER CENTER. AFTER ANY NECESSARY 00001900
//* 00002000
//* CHANGES HAVE BEEN MADE, THE JOBS PUNCHED OUT MAY BE RUN 00002100
//* 00002200
//* SEQUENTIALLY TO INSTALL AND TEST EIS/P&R. 00002300
//* 00002400
//SCRATCH EXEC PGM=IEFBR14, 00002500
// TIM£=(0,5), 00002600
// REGION=4K 00002700
//JCL 00 DISP=(OLO,DELETE), 00002POO
// USNAME=CDHS.PNR.JCL 00002900
//JOBS DO DISP=(OLD,DELETE), 00003000
// OSNAME=CDHS.PNR.JOBS 00003100
//LOAD OU DISP=(OLD,DELETE), 00003200
// DSNAME=CDH3.PNH.LOAD 00003300
//SOURCE DD DISP=(OLD,DELETE), 00003400
// D3NAME=COHS.PNR,SOURCE 00003500
//ALLOC EXEC PGMSIEFBRU, 00003600
// HEGIONS4K, 00003700
// TI^E=(0,5) 00003800
//JCL 00 UNH = 3330, 00003900
// VOLUME=(PRIVATE,RETAIN,SERsCDHSPK), 00004000
// DISP=(NEW,CATLG,DELETE), 00004100
// SPACE=(TRK,(20,10,5)), 00004200
// DSNAME=CDHS.PNR.JCL 00004300
//JOBS DO UNIT=3330, 00004400
// VOLUME=(PRIVATE,RETAIN,SERsCDHSPK), 00304500
// OISP=(NEW,CATLG,DELETE), 00004600
// SPACE=(TRK,(10,10,5)), 00004700
// D3NA^t=CDHS.PNR.JOBS 00004800
//LOAD 00 UNIT=3330, 00004900
// VOLUME=(PRIVATE,RETAIN,SER=CDHSPK), 00005000
// OISP=(NEW,CATLG,DELETE), 00005100
// SPACE=(TRK,(40,10,5)), 00005200
// U3NAME=CDHS.PNR.LOAD 00005300
//SOURCE DO UNIT=3330, 00005400
// VULUME=(PRIVATE,RETAIN,SER=CDHSPK), 00005500
// DISP=(NEW,CATLG,DELETE), 00005600
// SPACE=(TRK,(100,50,5)), 00005700
// OSNAME=CDHS.PNR.SOURCE 00005800
//TAPEIN EXEC PGM=IEHM(JVE, 00005900
// KEGION=90K, 00006000
// TIMEs(5,0) 00006100
//SYSPRINT 00 SYSOUT=A 00006200
//SYSUn 00 UNIT=i330, 00006300
// VOLU1E = (PRIVATE, RETAIN, SF.R = COH3PK) , 00006400
39
-------
Figure 4.15 (Continued)
// DISP=OLD
//CDMSPK DO UNII=3330,
// VOLUM£=(PRIVATE,R£TAIN,SER=CDHSPK),
// OI3P=OLD
//TAPE 00 UNIT=TAPE,
// VOLUMt = SE(?=PNRTAP,
// OISP=(NEW,PASS),
// LAB£L=(,BLP),
// OCB=(RECFM=FH,LRECLs80,BLK31ZE=800,DEN=3)
//SYSIN DO *
COPY TO=3330=CDHSPK,FRQMDO=TAPE,FROM=TAPE=(PNRTAP,1),
PDS=CDHS.PNR.JCL
COPY TO=3330=CDHSPK,FROMDO=TAP£,FROM=TAPE=(PNRTAP,2),
PDS=CDHS,PNR.JOBS
COPY TO=3330=COHSPK,FROMDD=TAPE,FROM=TAPE=(PNRTAP,3),
PDS=COHS,PNR.SOURCE
//PUNCH EXEC PGMsIEBPTPCH,
// REGION=60K,
// TIM£=(1,0)
//SYSPHINT DD SYSOUT=A
//SYSUTl DD DSNAM£=CDHS.PNR.J08S,
// VOLUME=(PRIVATE,RETAIN),
// DISP=(SHR,PASS)
//SYSUT2 00 SYSOUT=8
//SYSIN 00 *
PUNCH TYPORG=PO,MflXNAME=2
//PRINT1 EXEC PGMrlEBPTPCH,
// REGION=60K,
// TIM£=(1,0)
//SYSPRINT 00 SYSOUT=A
//SYSUTl 00 U5NAME=CDHS.PNR.JCL,
// VOLUME=(PRIVAT£,RETAIN),
// OISP=(SHR,PASS)
00 SYSOUT=A
//SYSUT2
//SYSIN
DD
PRINT
TITLE
TITLE
RECORD
//PRINT2
TYPORG=PO,MAXFLDS=I
ITEM=(' EIS/PNR CATALOGED PROCEDURES ', 1 )
ITEM=C ',!)
FItLD=(80, 1, ,25)
EXEC PGMsIEBPTPCH,
HEGION=60K,
//SYSPHINT DD
//SYSUTl 00
//SYSUT2 DO
//SYSIN 00
PRINT
TITLE
TITLE
RECORD
//PRINTS EXEC
//SYSPRINT DD
//SYSUTl 00
//SYSUT2 00
//SYSIN 00
PRINT
TITLE
TITLE
SYSOUT=A
DSNA^E=CDHS.PNR.JOBS,
VOLUME = ( PRIVATE, RE TAIN),
DISP=CSHR,PASS)
SYSOUTsA
*
TYPORG=PO,MAXFLDS=1
ITEM=('EIS/PNR INSTALLATION JOBS', 1)
FIELD=(80,t,,25)
PGMsIEBPTPCH,
REGIDN=60K,
TIM£=(1,0)
3YSOUT=4
L)SNAM£=CDHS.PNR.SOURCE,
VOLUME=(PRIVATE,RETAIN),
DISP=(SHR,PASS)
SYSOUT=A
*
TYPORG=PO,MAXFLDS=1
IT£M=('EIS/P*R SOURCE COOE',1)
00006500
00006600
00006700
00006600
00006<500
00007000
00007100
00007200
00007300
00007«00
X00007500
00007600
X00007700
00007800
X00007VOO
00008000
00006100
00008200
00008300
00008UOO
00008500
00008600
00008700
00008800
OOOOB900
00009000
00009100
00009200
00009300
00009100
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
00010600
00010700
00010800
00010900
00011000
0001 1 100
00011200
0001 1300
00011UOO
0001 1500
00011600
0001 1700
00011800
00011900
00012000
00012100
00012200
00012300
00012100
00012SOO
00012600
00012700
00012800
40
-------
AQDHS-II Installation cover letter (Figure 4.16) or standard EIS/P&R in-
stallation cover letter (Figure 4.17) is typed, depending on the subsystem
being installed. These, along with the installation deck and the tape copy,
are sent to the requestor. The date that this package is mailed to the re-
questor is recorded on the tape tracking form (Figure 4.18). When the requestor
receives the package, he installs the subsystem on his computer and compiles
and link edits the programs. When this is successfully done, he will notify
NADB that he has received his tape. The date that the requestor acknowledges
that he received his tape is recorded on the tape tracking form (Figure 4.19),
and his tape label number is returned to the tape label pool for use by
another tape. If the tape is one which is leased from WCC, the requestor is
reminded in the cover letter to return it to NADB after a successful copy.
When NADB receives the tape froia the requestor, NADB returns the tape to WCC.
These dates are recorded on the tape tracking form also. At this point, the
request has been satisfactorily completed and the process begins again for
another requestor.
Internal checklists are used for initial distribution of WCC supplied
tapes (Figure 4.20) and user supplied tapes (Figure 4.21).
4.1.2 Library Maintenance Procedures for CDHS Tapes
The Comprehensive Data Handling System, being a computerized data base
management system, used by dozens of agencies internationally, requires an
input/output medium that can be transmitted readily between EPA and the user
agency, specifically magnetic tape. The tape medium is used for the follow-
ing:
a. To transmit copies of either the AQDHS-II subsystem or the EIS/
P&R subsystem from EPA to the user.
b. To transmit sample job streams (including test data) that can
test the operation of the installed system as well as integrate
the agency's actual air quality data into the system.
c. To transmit program updates to correct or expand the capabilities
of the system.
d. To transfer data or data files between the user and EPA.
41
-------
Figure 4.16
AQDHS-II Installation Letter
UNITED STATES ENVIRONMENTAL PROTECTION AGENCY
Mr. Larry R. McMaster
Research Triangle Institute
P. 0. Box 12194
Research Triangle Park, N.C. 27709
Dear Mr. McMaster:
Enclosed is a tape to which I have copied the AQDHS-II subsystem
of CDHS. I am also enclosing a copy of the JCL printout which re-
sulted from that copy. Please note that the IBM utility IEHMOVE was
used in creating your tape. Since IEHMOVE copies the data sets to
your tape in an unloaded format, it will be necessary to use IEHMOVE
to copy the system from this tape to your disk prior to your being
able to obtain a readable printout.
To aid you in the installation, I am also enclosing an "install-
ation deck" and listing which is set up for an IBM (OS) computer.
There are four data sets on your tape each containing several members:
DSNAME=CDHS.AQS.JCL
DSNAME=CDHS.AQS.JOBS
DSNAME=CDHS.AQS.SOURCE
DSNAME=CDHS.AQS.SYSIN
Necessary disk space for each data set is allocated using IEFBR14. The
actual copy from tape to disk is accomplished using IEHMOVE. The load
modules will be created when you compile and link-edit the programs. Also,
if you wish to re-name the data sets when you copy them from tape to disk,
you can do so by adding another control card in each COPY statement.
The installation deck is also set up to punch out all jobs re-
quired to accomplish the following:
Copy PROGS to PROCLIB
Compile and Link-Edit all programs
Run test programs using test data supplied (run in order)
It is also set up to print the JCL for all the catalogued procedures,
print all the JOBS which were punched above, print the sort control
statements, and print all source code.
In addition, the last job step will allow you to map your disk.
42
-------
Figure 4.16 (Continued)
Please note that it will be necessary for you to make changes to
the installation deck to suit your local situation. For example, you
may not use 3330 disk packs at your installation, and I am sure that
your disk volume-serial number will not be CDHSPK. Your tape unit
designation may not be 2400, and you may wish to re-name the data sets
upon copying them from your tape to disk.
After you have installed the system, it will be necessary for
you to change several lines of coding of the following PROCS prior to
copying the PROCS to your PROCLIB:
AQSACNVT
AQSBCNVT
AQSCNVRT
AQSDANAL
AQSELIST
AQSHUPD2
AQSHUPD3
AQSIAVGS
AQSILIST
AQSMERGE
AQSMFUPD
AQSRTRCL
AQSRTRGO
AQSMSENT
AQSNSENT
AQSRETVR
AQSUBILD
AQSHUPD1
AQSTEDIT
AQSFUPDT
AQSSLIST
CDHSCBL
CDHSCBLE
CDHSFTN
CDHSFTNL
CDHSCOML
CDHSNTNL
AQSPMETH
AQSPSITE
AQSPSTDS
Should you choose to retain the data set names of CDHS.AQS., you
should change the appropriate lines of each procedure to read:
//ddname PROC PROJECT"'CDHS.AQS',
43
-------
Figure 4.16 (Continued)
or the equivalent for whatever data set name you choose. Similar changes
will be required in the data set (DSNAME-CDHS.AQS.JOBS).
I urge you not to make any modifications other than necessary to the
Job Control Language (JCL). NADB will make all modifications to the
Standard NADB system, and will support ONLY NADB-modified versions of
the system.
Updates 1 through 20 have been incorporated into your system; thus
the next AQDHS-II update will be number 21.
If you have any questions, do not hesitate to call me at (919)
541-5491.
Sincerely yours,
Lloyd M. Hedgepeth
Project Officer
National Air Data Branch (MD14)
44
-------
y—% Figure 4'17
iSB,1
*> ^x
'"« «o'«-{>
EIS/P&R Installation Letter
UNITED STATES ENVIRONMENTAL PROTECTION AGENCY
Mr. Larry R. McMaster
Research Triangle Institute
P. 0. Box 12194
Research Triangle Park, N.C. 27709
Dear Mr. McMaster:
Enclosed is a tape to which I have copied the EIS/P&R subsystem
of CDHS. I am also enclosing a copy of the JCL printout which re-
sulted from that copy. Please note that the IBM utility IEHMOVE was
used in creating your tape. Since IEHMOVE copies the data sets to
your tape in an unloaded format, it will be necessary to use IEHMOVE
to copy the system from this tape to your disk prior to your being
able to obtain a readable printout.
To aid you in the installation, I am also enclosing an "install-
ation deck" and listing which is set up for an IBM (OS) computer.
There are three data sets on your tape each containing several members:
DSNAME-CDHS.PNR.JCL
DSNAME-CDHS.PNR.JOBS
DSNAME-CDHS.PNR.SOURCE
Necessary disk space for each data set is allocated using IEFBR14. The
actual copy from tape to disk is accomplished using IEHMOVE. The load
modules will, be created when you compile and link-edit the programs. Also,
if you wish to re-name the data sets when you copy them from tape to disk,
you can do so by adding another control card in each COPY statement.
The installation deck is also set up to punch out all jobs re-
quired to accomplish the following:
Copy PROCS to PROCLIB
Compile and Link-Edit all programs
Run test programs using test data supplied (run in order)
It is also set up to print the JCL for all the catalogued procedures,
print all the JOBS which were punched above, and print all source code.
In addition, the last job step will allow you to map your disk.
Please note that it will be necessary for you to make changes to
the installation deck to suit your local situation. For example, you
45
-------
Figure 4.17 (Continued)
may not use 3330 disk packs at your installation, and I am sure that
your disk volume-serial number will not be CDHSPK. Your tape unit
designation may not be 2400, and you may wish to re-name the data sets
upon copying them from your tape to disk.
After you have installed the system, it will be necessary for
you to change several lines of coding of the following PROCS prior to
copying the PROCS to your PROCLIB:
CDHSCBL
CDHSCBLE
CDHSFTN
CDHSFTNL
CDHSCOML
CDHSFINL
PNRANCNV
PNRBREPT
PNRCNCAT
PNRCNVRT
PNRDCONV
PNREFUPD
PNRPREPT
PNRRETVR
PNRSORTR
PNRTBGEN
PNRKEFIN
PNRFUPDT
PNRISORT
PNRHREPT
PNRNCONV
Should you choose to retain the data set names of CDHS.PNR. ,
you should change line 300 of the appropriate PROCS to read:
//ddname PROC PROJECT='CDHS.PNR', 00000300
or the equivalent for whatever data set name you choose.
J urge you not to make any modifications other than necessary to the
Job Control Language (JCL). NADB will make all modifications to the
Standard NADB system, and will support ONLY NADB-modified versions of
the system.
Updates 1 through 21 have been incorporated into your system; thus
the next EIS/P&R update will be number 22.
46
-------
Figure 4.17 (Continued)
If you have any questions, do not hesitate to call me at (919)
541-5491.
Sincerely yours,
Lloyd M. Hedgepeth
Project Officer
National Air Data Branch (MD14)
47
-------
Figure 4.18
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
McMaster, Larry R.
12/18/76
NAME (LAST. FIRST, MIDDLE)
Research Triangle Institute, RTF, N.C. 27709
CDHS AQDHS-II
ACCOUNT CODE
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
OS4760
SYSTEM IDENTIFICATION
D NEDS D SAROAD
H OTHER (SPECIFY) CDHS-AQDHS
FILE DESCRIPTION
(QUAL • FILE NAME)
D UNBLOCKED B FIXED LENGTH
System Copy
80
DVAR LENGTH.
.THROUGH.
.CHARACTERS
CHARS
BLOCKED
D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
D ^.RECORDS PER BLOCK
3 800 CHARACTERS PER BLOCK
RECORDING MODE
D COBOL D FORTRAN S EBCDIC
DSDF DCOPY, G IEHMOVE
NUMBER OF REELS i
DASSEMBLER QASCII
FILE TYPE
D MASTER D BACKUP DTEST DSORT
S OTHER (SPECIFY) AQDHS-II System Copy
DMERGE
\HOR\DESCRIPTlbN OF&ONTEN
FILE RELEASED BY:.
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES-'
EPA(RTP)406
48
-------
Figure 4.19
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
McMaster, Larry R.
12/18/76
NAME (LAST, FIRST, MIDDLE)
Research Triangle Institute, RTF, N.C. 27709
CDHS AQDHS-II
ACCOUNT CODE
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
OS4760
SYSTEM IDENTIFICATION
D NEDS D SAROAD
B .OTHER (SPECIFY) CDHS-AQDHS
FILE DESCRIPTION
(QUAL - FILENAME).
System Copy
D UNBLOCKED
BLOCKED
IS FIXED LENGTH.
DVAR LENGTH_
80
.THROUGH.
.CHARACTERS
CHARS
D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
D = RECORDS PER BLOCK
S 800 CHARACTERS PER BLOCK
RECORDING MODE
DCOBOL DFORTRAN B EBCDIC
D SDF D COPY, G IEHMOVE
NUMBER OF REELS 1
DASSEMBLER DASCII
FILE TYPE
D MASTER D BACKUP DTEST DSORT
S OTHER (SPECIFY) AODHS-TT Sysrpm Crmy
DMERGE
\
\
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
49
-------
Figure 4.20
Checklist for Initial Distribution
WCC Supplied Tape
Date/Initials
1. Add users name to distribution lists
2. Call WCC tape librarian to reserve tape, record in tape log
3. Create a tape copy deck using preassigned decks as guide
4. Copy system onto tape, record in tape log
5. Verify copy was successful
6. Notify WCC by phone to return tape
7. When tape is returned, put AQSTAP or PNRTAP label on it,
record in tape log
8. Create installation deck for user
9. Type cover letter for the particular subsystem
10. Send installation decks (with listing), tape, and letter
to user; inform user it is his responsibility to return
tape to NADB; record in tape log
11. User notifies NADB that he has installed system and/or
returns tape to NADB, record in tape log
12. Return tape to WCC, record in tape log
50
-------
Figure 4.21
Checklist for Initial Distribution
User Supplied Tape
Date/Initials
1. Add users name to distribution lists
2. Assign tape label to users tape - record in tape log
3. Type cover letter for transmitting tape to WCC
4. Send tape and cover letter to WCC, record date in tape log
5. Make sure an appropriate deck to copy system is available,
if not, create one.
6. Copy subsystem onto tape, record in tape log
7. Verify copy was successful
8. Notify WCC by phone to return tape
9. When tape is returned, put AQSTAP or PNRTAF label on it,
record in tape log
10. Create installation deck for user
11. Type cover letter for the particular subsystem
12. Send installation deck, tape copy, and letter to user,
record date in tape log
13. User notifies NADB that he has installed system
51
-------
Clearly, there needs to be both a tracking method by which the current
location, contents, and other specifics can be determined for each tape in
the system as well as a recording method through which the history of any
tape in the system pool can be maintained. In order for EPA to have access
to relevant information about the tapes that are being or have been used
for CDHS, each usage of any such tape should be recorded on a NADB Tape
Inventory Form. The activity of each tape used in the system should be
noted on this form, regardless of whether that tape belongs to EPA, the
CDHS user, or a computer installation.
Generally, a separate NADB Tape Form should be filled out, not only
for each reel number, but also for each distinct usage period of a reel. Two
periods of use of a particular tape represent distinct usages when the con-
tents of the tape differ from one period to the other or when the tape's user
changes from the first to the second period. For each tape usage, the
corresponding tape form should contain the following information: (1) the
reel (volume serial) number; (2) the user's name and address; (3) the date
the tape was assigned to this particular usage; (4) a description of the
contents; (5) blocking and recording mode information; and (6) each date
that the tape was transferred between EPA and any computer installation
or the user.
At any given time, all the NADB forms that are being or have been used
fall into two categories: (1) an active file, consisting of all forms which
correspond to tapes which are currently being used; and (2) an inactive file,
consisting of the remaining forms which correspond to tapes not currently being
used. A special situation occurs for a particular tape when there is no form
corresponding to it in the active file; this means, of course, that the tape
is not presently being used. If the tape is still in EPA's possession, it
is designated as an available tape and may be put to any new usage when the
need arises. A record should be kept of those tapes that are in the available
pool at any given time.
For clarification, refer to the following two example NADB forms. Figure
4.22 is an inactive form for reel number SRD212, as indicated by the fact that
the tape librarian signed and dated the 'file released' portion at the bottom
of the form. Figure 4.23 shows that the same reel was assigned a second usage
52
-------
(Inactive Form)
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
Prichard, William D. . 10/17/76
NAME (LAST, FIRST, MIDDLE) DATE ASSIGNED
Central Data Systems
171 Knn-y Tli-ivf, Rpnwi r_k , frfi tn-na. 85120
ACCOUNT CODE PROJECT CODE
SYSTEM IDENTIFICATION
D NEDS D SAROAD 13 OTHER (SPECIFY) AQDHS-II (Update 25)
FILE DESCRIPTION
(QUAL - FILE NAME) CDHS Update (AODHS-II Update 251
n UNBLOCKED D FIXED LENGTH CHARACTERS
nVAR LENGTH THROUGH CHARS
B BLOCKED D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
n „ , RECORDS Pf=P Ri ncK
[S 8000 CHARACTERS PER BLOCK
nhCURDINu MUDh No Labels
D COBOL D FORTRAN S EBCDIC DASSEMBLER DASCII
D SDF D COPY, G
NUMBER OF REELS 1
FILE TYPE
D MASTER D BACKUP DTEST OSORT DMERGE
BOTHER (SPECIFY) CDHS Update (AQDHS-II Update 25)
IEBUPDTE
SHORT DESCRIPTION OF CONTENTS AQTWS-TT mpHai-P 7S1
10/17/76: Sent to TUCC
10/21/76: Returned from TUCC
10/22/76: Sent to NCC (B# - B174JS)
in/9^/7A- p£»t-it-»*r*£i/^ f-r-i-\m MTP
10/23/76: Sent to User
11/n7/7fi- Pol-iirnoH Kv TTaoT
\.\\\\\\\\\
FILEvRELEA^ED BY\ \ John Senders \ \ HATF\ 11/03/76 \
^ \ \V \ \ \ \ \ x
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
V-
REEL NUMBER(S)
oKUZlZ
EPA(RTP)406
53
-------
Figure 4.23
(Active Form)
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
Johnson. Morris R. . 11/09/76
NAME (LAST, FIRST. MIDDLE) DATE ASSIGNED
Premier Environmental Group
700 Banner Road, Gate City, Florida 33777
ACCOUNT CODE PROJECT CODE
SYSTEM IDENTIFICATION
O NEDS D SAROAD S OTHER (SPECIFY) Florida AODHS-II Master
FILE DESCRIPTION
(QUAL • FILE NAME) CDHS File (AODHS-II Master - Florida)
a UNBLOCKED D FIXED LENGTH rHARArTFRS
E VAR LENGTH 40 THROUGH 190 CHARS
D BLOCKED D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
n • RFCORPSPFR Rl OCK
n CHARACTERS PFR Rl nCK
RECORDING MODE NO T.ahels
D COBOL D FORTRAN 0 EBCDIC DASSEM8LER OASCII
n SDF a COPY, G
NUMBER OF REELS 1
FILE TYPE
D MASTER D BACKUP DTEST DSORT DMERGE
a OTHER fSPECIFY) CDHS File (AQDHS-II Master - Florida)
Created by AQDHS-II Subsystem
SHORT DESCRIPTION OF CONTENTS Florida AQDHS-II Master File
(70,500 Records)
11/09/76: Sent to User
11/28/76: Returned from User
11/28/76: Sent to COMNET
FILE RELEASED BY: DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
r-
REELNUMBER(S)
SRD212
EPA(RTP)406
54
-------
one week after it was released from the usage in Figure 4.22. During the
intervening week between release from first usage and assignment to second
usage, SRD212 was in the available pool. Figure 4.23 is an example of an
active form.
When an available tape is assigned a usage, an active form is created.
The reel number is recorded in the designated area in the upper right corner.
The date is recorded in the 'date assigned' area. In the 'user identification1
section, the name and address of the user who will receive the tape is re-
corded. Should a particular tape usage be solely for EPA, the appropriate per-
sonnel name at the agency may be used instead of a regular user's name. Nor-
mally, CDHS tapes do not require 'account code* and 'project code' information
in the corresponding spaces. Note that the contents of the file are described
in four different sections: the 'system identification' section, the "file
description' section, the 'file type' section, and the section labeled
'short description of contents.' In the hatched portion of Figure 4.24, the
tape contained a CDHS update; in the hatched portion of Figure 4.25, it con-
tained a user's data file. Other possible types of tape contents include
copies of one of the CDHS subsystems and copies of test job streams for the
system.
Other kinds of information for which no section is presently set aside
on the NADB form may be inserted in convenient areas on the form. For example,
the labeling characteristics of the tape (whether it has standard labels,
non-standard labels, or no labels) may need to be recorded. In Figures,
(4.24 and 4.25) this information is given between the 'file description' and
the 'recording mode1 sections. Another valuable bit of information is the pro-
cedure used to copy the contents onto the tape. In the examples, this was
inserted on the bottom line of the 'file type' section. Normally, an update
tape (see the hatched portion of Figure 4.26) is created using the IEBUPDTE
utility. A CDHS data file (see the hatched portion of Figure 4.27) is
created by the appropriate subsystem, either AQDHS-II or EIS/P&R. As
a third example, a tape copy of either the AQDHS-II or the EIS/P&R
55
-------
Figure 4.24
(Active Form)
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
Johnson, Morris R.
NAME (LAST. FIRST, MIDDLE)
Premier Environmental Group
700 Banner Road, Gate City, Florida 33777
ACCOUNT CODE '
11/09/76
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
SRD212
SYSTEM IDENTIFICATION
D NEDS D SAROAD Ed OTHER (SPFPIFVI^AQDHS-II Update 20
KLE
(AQDHS-II Hpdate20)
QUALFILEMAME)
BLOCKED \3 FIX^D LENCiTH \ 80
AR LBWGTH
LI 50 R€CORtf&PER BbOCK
RACTERS PER BLOC
RECORDS PERmOCK
ARAC\ERSPFR BLOC
FILE TYPE
MASTER D BACKUP DTEST DSORT
1 OTHER (SPECIFY) CDHS (AQDHS-II Update 20)
IEBUPDTE
DMERGE
SHORT DESCRIPTION OF CONTENTS
11/09/76: Sent to TUCC
11/28/76: Returned from TUCC
11/28/76: Sent to COMNET
ACDHS-II Update 20
FILE RELEASED BY:
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
56
-------
Figure 4.25
(Active Form)
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
Johnson. Morris R.
NAME (LAST, FIRST, MIDDLE)
Premier Environmental Group
700 Banner Road, Gate City, Florida 33777
ACCOUNT CODE
11/09/76
DATE ASSIGNED
PROJECT CODE
REELNUMBER(S)
SRD212
SYSTEM IDENTIFICATION
D NEDS D SAROAD B OTHER (SPECIFY) Florida AODHS-IT
CDHS File\(AQDHS\II Mas\er - Florida
(QUAL * FILENAME)
UNBLOCKED
D FIX^D LENG
VAR L&NGTH
CHARACTERS
50 RECORDSvPER E
4000 CHARACTERS PER "BLOCK
.\RprnRrrePFR BLQiCK
53 15S6 \ ra&RArTERS PER BbOCK
COBOLX Q-RORTRA
\ DCOTY, G
FILE TYPE
D MASTER
D BACKUP
DTEST
DSORT
DMERGE
I OTHER {SPECIFY) CDHS File (AODHS-II Master - Florida)
Created by AQDHS-II Subsystem
SHORT DESCRIPTION OF CONTENTS
11/09/76: Sent to User
11/28/76: Returned from User
11/28/78: Sent to COMNET
Florida AQDHS-II Master File
(70,500 Records)
FILE RELEASED BY:
DATE
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
EPA(RTP)406
57
-------
figure t./o
(Active Form)
NADBTAPE INVENTORY FORM
USER IDENTIFICATION
Johnson, Morris R. . 11/09/76
NAME (LAST, FIRST, MIDDLE) DATE
Premier Environmental Group
700 Banner Road, Gate City, Florida 33777
ACCOUNT CODE PROJECT CODE
SYSTEM IDENTIFICATION
ASSIGNED
D NEDS D SAROAD 0 OTHER (SPECIFY) Florida AODHS-II Master
FILE DESCRIPTION
(QUAL • FILE NAME) CDHS File (AODHS-II Master - Florida)
13 UNBLOCKED D FIXED LENGTH
E VAR LENGTH 40 THROUGH
D BLOCKED Q 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
f~l - , RF<"ORPS PFR PI OCK"
D CHARACTERS PFR BL OCK
D COBOL D FORTRAN H EBCDIC DASSEMBLER
DSDF D COPY, G
NUMBER OF REELS 1
FH-ETY^ \ \ \ \ \ \ \
v \JMASTE« CNBACKUK \DTEST\ DSORT \ \
\ a OTHER fsfc£ClFY)\CDHS File (AODHS-II\Master\- Flo\ida)
\ \ \ \ S X \ H^3^3 *^ \
SHORT DESCRIPTION OF CONTENTS nor^A AODHS-TT M3Sf
(70,500 Records)
11/09/76: Sent to User
11/28/76: Returned from User
11/28/76: Sent to COMNET
FILE RELEASED BY: HATF
rHARArn-FRS
190 CHARS
D ASCII
•OMERG^ \
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
REELNUMBER(S)
SRD212
_EPA(RTP)406
58
-------
Figure 4.27
(Active Form)
NADB
USER IDENTIFICATION
Johnson, Morris R.
TAPE INVENTORY FORM
11/09/76
NAME (LAST, FIRST, MIDDLE) DATE ASSIGNED
Premier Environmental Group
700 Banner Road. Gate City. Florida 33777
ACCOUNT CODE
SYSTEM IDENTIFICATION
PROJECT CODE
D NEDS D SAROAD S OTHER (SPECIFY) Florida AODHS-II Master
FILE DESCRIPTION
(DUAL* FILE NAME) CDHS File CAODHS-II Master - Florida^
3 UNBLOCKED D FIXED LENGTH
H VAR LENGTH
rHARACTFRS
40 THROUGH 190 CHARS
S BLOCKED D 50 RECORDS PER BLOCK
D 4000 CHARACTERS PER BLOCK
n RprnRnsppR RI nr«
p 1556
RECORDING MODE Mr, i.xh*T*
CHARACTERS PER BLOCK
D COBOL D FORTRAN H EBCDIC DASSEMBLER DASCII
DSDF D COPY, G
NUMBER OF REELS 1
Flbf-TYpX \ \ \ \
\ LTMASTEffV DBACKUPX L3.TES
\SOTttER fSPEfclFY) CBHS File (AoblJ
\ \ \ \ Created IsV AQDH
\ \ \ \ \ \
SHORT DESCRIPTION OF CONTENTS
11/09/76: Sent to User
11/28/76: Returned from User
11/28/76: Sent to COMNET
FILE RELEASED BY:
S-II MasterV Florida) \ \
Srrll Subsystem^ \ \ \
\X\\\\
Florida AQDHS-II Master File
(70,500 Records)
DATF
FILL OUT ONLY ONE FORM FOR MULTIPLE-REEL FILES.
REELNUMBER(S)
SRD212
EPA(RTP)406
59
-------
subsystem may be a sequential copy for a non IBM-OS user, or may be created
using the IEHMOVE utility if the subsystem copy is for an IBM-OS user.
Finally, it may be seen from the two examples that the history of
a tape's transmissions, under 'short description of contents,' includes the
tape transmittal date as well as the sender and/or receiver. This information
is recorded not only when the tape is transmitted between a CDHS user and EPA
but also when it is transmitted between EPA and one of the computer installa-
tions used (e.g., TUCC, NCC, or COMNET) by EPA. Note that when a tape is
sent to NCC, the identifying B-number (an external label assigned to the tape
by NCC) should be recorded with the date the tape was transferred to NCC.
The B-number is a 6-character string in which the first character is always
'B,' the next 3 characters comprise a 3-digit sequence number, and the last
two characters are the initials of the person who submits the tape to NCC.
4.2 General Update Procedures
When a change to one of the CDHS subsystems is found to be necessary,
a thorough check of all programs in the subsystem should be made to deter-
mine which programs require modifications. After consultation with
the Project Officer, the changes should be made and tested.
If any changes in documentation are necessary, they should be made
and submitted to the Project Officer prior to acceptance testing. Once
program changes and any necessary documentation changes are completed,
the changes should be installed on the Baseline System at the Washington
Computer Center (WCC) IBM 370 in Washington, B.C., and the EPA UNIVAC 1110
at Research Triangle Park, N.C. Then, the Project Officer supervises a
series of acceptance tests for the subsystem on the baseline version at
WCC. These tests are general in nature and are designed to exercise each
program in the system. Tests or additional test data should be added to
exercise new changes made in the programs.
The update is assigned a number. Updates to each subsystem are numbered
sequentially beginning with 1. This number serves as a means of identifi-
cation and easy reference.
Once the acceptance tests are completed and any documentation changes
approved, the update should be prepared for distribution. The documentation
changes can be sent to the printer at this time.
60
-------
Internal checklists for the update procedure can be found in Figure
4.28 for tapes and Figure 4.29 for card decks.
4.2.1.1 Preliminary Update Procedures
The Update Tracking Form (Figure 4.30) is used to follow the dis-
tribution of the update. Prior to distribution, mailing labels will be
produced for the appropriate subsystem. (See Section 4.3 for details on the
mailing labels.) Each label is attached to a tracking form. Information on
the installations hardware and software configurations is recorded on the form.
Such information can be obtained from the user survey. This information is
beneficial in the production of an update that will be most easily handled by
the user's installation. Special instructions (such as "Letter Only") should
also be recorded prior to distribution, or as it becomes available.
Most of the programs in the system have update messages (see Figure 4.31).
Any program which is changed should have this message updated (or added if it
is not already in the program). These messages allow persons performing trouble
shooting services on a subsystem to know at a glance whether all updates have
been installed for a given program.
It is recommended that any program or JCL PROC that has more than a
few statements changed be completely replaced. The baseline version of the
system has IEBUPDTE (IBM utility) generated line numbers in columns 73-80 of
the record. These line numbers can be used by non-IBM users to indicate where
changes are to be made in their source code. The line numbers will only be
correct if no non-EPA modifications to the system have been made by the users.
In addition, users are warned that modifications need to be made sequentially to
the system. Should the user desire to make modifications for his own purposes,
these should be done to a copy of the baseline, keeping their baseline intact.
4.2.1.2 Tape Procedures
For large updates (greater than 500 statements), magnetic tapes are used
to distribute the updates. At the present time, about 50 tapes are needed to
distribute an update to one subsystem. These tapes are checked out from the
NADB tape library. Standard, unlabeled, 9-track tapes recorded at 1600 BPI
are used unless an installation specifies otherwise. The users are requested
to return these tapes to the Project Officer at NADB as soon as they have
61
-------
Figure 4.28
CHECKLIST FOR TAPE UPDATES
Date/Initials
1. Submit documentation changes (if any) to Project Officer
2. Update baseline subsystem
3. Conduct acceptance tests in conjunction with the Project Officer
4. Create master copy of update tape
5. List contents of master update tape
6. Send documentation to printer
7. Obtain tapes from the tape library or NADB
8. Initiate update tracking form for each user
9. Assign tape to each user - record on update tracking form
10. Create copy of master tape for each user - record on update
tracking form
11. List each update tape - record date on update tracking form
12. Create master update card deck
13. Copy master update card deck for each user
14. List each update card deck
15. Generate mailing labels for all users
16. Type update cover letter
17. Reproduce update cover letter for all users
18. Reproduce update verification forms for all users
19. List tape contents of each user's tape
20. Assemble update packages - check off contents on update
tracking form
21. Reproduce update tracking form to send with package - keep
original in file
22. Mail packages
23. When update verification form and/or tape returned, record
on update tracking form
62
-------
Figure 4.29
CHECKLIST FOR CARD DECK UPDATES
Date/Initials
1. Submit documentation changes (if any) to Project Officer
2. Update baseline subsystem
3. Conduct acceptance tests in conjunction with the Project Officer
4. Create and list master copy of update deck
5. Send documentation to printer
6. Initiate update tracking forms for each user
7. Copy master card deck for each user
8. List each card deck - record date
9. Generate mailing labels for all users
10. Type update cover letter
11. Reproduce update cover letter for all users
12. Reproduce verification forms for all users
13. Assemble update packages - check off contents on update
tracking form
14. Reproduce update tracking form to send with package, keep original
in file
15. Mail update packages
16. When update verification form returned, record on update
tracking form
63
-------
Update #:
Name:
Figure 4.30
UPDATE TRACKING FORM
Date:
Tape #:
Attributes:
Date Copied:
Date Listed:
Date Mailed to User:
Update # Returned: YES
Type of Hardware:
Software Configuration:
Special Instructions:
Date Returne '.:
NO
Tape Enclosed:
Tape Listing:
Update Verification Form:
Documentation:
Update Cover Letter:
Problem Reporting Form:
Update Deck:
Update Deck Listing:
Tape Contents:
Update Tracking List;
64
-------
Figure 4.31
Sample Update Messages
PRUliHAM NAME: TXTKEOIT
REVISION LEVEL: 3-00
LAST UPDATE «: 20 • NEGATIVE OATA
INCORPORATED: JUNE i, 1977
65
-------
installed the update. The tapes are logged on the NADB tape inventory forms
as well as on the update tracking forms.
At this point, a list of the number of different types of update data sets
needed can be made. At present, these data sets are being produced in three
versions (IBM IEBUPDTE, non-IBM IEBUPDTE, and UNIVAC depending on the user's
computer hardware/software). In the future, it is planned that additional
versions, such as a Honeywell version, can be produced. From the hardware
and software configurations of the user, it can be determined which version to
send them. The WCC baseline version of CDHS uses the standard IBM (OS) parti-
tioned data sets to store the program source and load modules, as well as the
JCL procedures. The IBM utility IEBUPDTE provides a satisfactory method for
updating a partitioned data set; therefore, one version of the update is for
IBM users. It contains the IEBUPDTE control cards as part of the data set.
The second version is for non-IBM users or those users who employ means other
than partitioned data sets (such as PANVALET or ADR Librarian). This version
contains only the actual updated modules and not IEBUPDTE control cards. A
third version is for UNIVAC users. A copy of the baseline system has been
installed at the EPA UNIVAC 1110 in the Research Triangle Park, N.C. This
system is used to generate UNIVAC updates.
A master update tape is created for each version of the update. It is
recommended that for very large updates, several files be used on the tape
for ease of installation. It is suggested that a separate file be used for
each source program, plus one for JCL procedures. Once the master tapes have
been created, they are listed using the COPY utility at TUCC (see Figure 4.32);
however, any local print utility may be used to provide a listing of the update
tape.
All tapes sent to users are created from the master tapes using a tape
copy program (see Figure 4.33). Each tape is assigned to a user on an update
tracking form prior to being copied. The date copied is entered on the form.
It is possible that some tapes will need to be initialized prior to being used.
Once the tape is copied, it should be listed using the COPY utility (see Figure
4.32) with the listing date recorded on the tracking form. The listing should
be visually checked for verification. The listing and tape should be labeled
so that the correct listing for each tape will be sent.
66
-------
Figure 4.32
Tape Listing JCL
JUH K1 1.C41 .PUoOoo,HJA Mt , f=10,Pi<
//
CUt'Y
00 U.MI T=TAPL, VUL=( , KL! A 1 -J, S
WtCFH = Kh,LWfc.CL = HO,Hl KSI/E.=-4000)
// Oi3P=(ULO,PAS3)
// F.xec CUPY
//IMPJI 00 UNIF =
*1 ),I.A:)EL=U
// 013P=(ULO,PAS3)
// LXEC COPY
//INPUT i)0 Ui\IT =
// i;ISP=(OLL),PAS3),
/ / l)t; M = ( K£C f- •'' = »• d , L «F CL =H 0 , 4L K S J 7 E = H 0 0 0 )
// HXEC COPY
//INPUT DO U-VirsfAPt, VLlL = (fKLTA
CL = 80, HLKS t
,LABLL=(3,NL),
// F-XKC CUPY
//INPUT 1)0 UNI IsTAPf;, VUL=(,Kfc f A IN, S
// OCll=(KLCPN=f'U,L«tCL = rtn, rtl.K S I /£s«
// OISP=(ULU,PAS3)
// f.XbL COPY
//1NPUJ OL» Ur*ll =
// LALC COPY
//INPUI DO U
// OI3P=(ULl)fPA3fj)
// F
-------
Figure 4.32 (Continued)
// D1SP=
00
L=nO, HI KSI
, vHL = ( , Kfc F A
l. = >H),MLKSI
L = M o , hi K S [ L I - a (1 0 U )
, L/U1EL =
) ,LABLL = ( 10,NL),
NL J
// tXt.1- CiiPY
//LfJPiJT LID UiMH = IA
// OCH = (Kt Cf->i = l-U,L
// UlSP=(ULOfPASS)
// LxLC CUPY
//INPJI ulJ UiJl f = T APL, VilL =
// DiSP=(ULD,PASS)
// t. A.F.C CUPY
//1MPUI OD lJ.ISP=(ULl>/PASS)
// LxLC CUPY
//ItMPUl Ou IJUI 1 = I APE/ \/UL=(,KE f A[ J,St k = SKI)OHl ) ,l.ABtL=( 15,NL) ,
// UCH-(KLCMvi = Fb,l.-
-------
.Figure 4.33
Tape To Tape Copy JCL
//TPCUPY JUh KI 1 ,C'M.tWObcy,MCMA3U .H, 1=1 , PkTY = = OLO,L.Arttl = (,i UNI T = rAPL»l)ISP = OLO,LAr*F.L = (/.NL)» Vul. = St"R = SHlMJ39,KING = IM 0000UOUO
VD
-------
A table (see Figure 4.34) showing the contents of each file on the
tape, the number of records, and the user file to be updated (source, load,
JCL, etc.) should be typed for each update version.
An update card deck will be created for each version of the update.
Copies of these decks and listings of them will be made as detailed under
Card Updates, 4.2.1.3.
4.2.1.3 Card Update Procedures
For updates with a minimal number of records being changed,
cards can be used to distribute the update. A card deck is created that
contains both the JCL to install the update and the update cards themselves.
The master deck is then copied and listed on the UNIVAC 1110 as seen in
Figure 4.35. The listings should be carefully checked for correctness and
stored with its proper card deck.
The tracking form can be used for card updates, ignoring any references
to tape number.
It is not important to have separate card versions for IEBUPDTE users
and non-IEBUPDTE users as it is easy to manually remove cards from a card deck.
A separate UNIVAC version should be created, however, since these source programs
do differ slightly from the IBM baseline versions in the Environment and Data
Division.
The same copying procedure is used for creating update decks for tape
updates.
4.2.1.4 Other Forms
An update verification form (see Figure 4.36) is sent to each
installation. This form should be returned to NADB once the user has installed
the update. It also allows the user to notify NADB of personnel changes. All
copies showing personnel changes plus the most recently returned form are kept
in an active file (see Appendix D).
An update cover letter (see Figure 4.37) is written by the Project Officer,
providing information on how to install the update and detailing changes
made by the update.
Each item is checked off on the update tracking form as it is put into
the update package. A copy of the tracking form should also be enclosed. Mail-
ing labels are generated using the procedures described in Section 4.3 and the
70
-------
Figure 4.34
CONTENTS OF UPDATE 20 TAPE
FILE # PROGRAMS
2 AQSRTRCL, AQSRTRGO, AQSCNVRT
3 ADMERGE
4 ADCONVRT
5 CDCONVRT
6 DDSTATIS
7 EDRPTLST
8 FDFILMNT
9 HDTABLE1
10 IDSLDAVG
11 LDLNGPRC
12 MDSENTNL
13 NDSENTNL
14 PDSITE
15 SDPRINTS
16 TDTREDIT
17 Copy Members - RTRETRVR, RPREPEAT,
RPSKCOMP, RPSLRCTL, RPSTDCTL, RPWRITCL,
RPWRITES, GDMAXRDG, RDANSRCB, RDCNTLSW,
RPUSERRT, RPWRAPIT, RPWRAPUP, RPWRITWK,
RDERRMSG, RDSLCTLS, RDSLERMS, RDUSER01,
RDWKMSTR, RPBLDNUL, RPDELTPD, RPGENREC,
RPGMINIT, RPGMINTL, RPMAINRT, RPMAINSD,
RPMVMSTR, RPQLINIT
1 OF RECORDS
253
393
879
1027
988
4084
2870
789
1444
2465
455
438
241
2008
3164
1433
UPDATE FILE
JCL
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
SOURCE
NOTE: File #1 is a dummy file and is not a part of this update.
71
-------
Figure 4.35
GENERATION OF UPDATE DECKS
@RUN (valid run card)
@ELT, IL TPF$.UPDAT
Update cards go here
@EOF
@ASG,CP PI.
@BRKPT PUNCH$/P1
@PCH,S UPDAT
@BRKPT PUNCH$
@FREE PI
@SYM Pl.,n,CP where n is the number decks required
@FIN
72
-------
Update No.
Figure 4.36
UPDATE VERIFICATION FORM
Subsystem (check one):
AQDHS-II
EIS/P&R
Date update performed:
Date affected programs recompiled:
Date affected programs link-edited:
PERSONNEL CHANGES
(For personnel on EPA mailing lists for update decks and letter, update letter only. Newsletter)
New employee (name):
Assigned to (check as appropriate):
Replaces (name):
AQDHS-II
EIS/P&R
To receive (check as appropriate):
Update letters w/o decks
Update decks and letter
Newsletter
New employee (name):
Assigned to (check as appropriate):
Replaces Tname)):
AQDHS-II
EIS/P&R
To receive (check as appropriated:
Update letters w/o decks
Updates decks and letter
Newsletter
(For additional listings, please use blank sheet)
(Signature)
(Title)
(Agency)
(Date)
73
-------
UNITED STATES ENVIRONMENTAL PROTECTION AGENCY
?^ SEP 3 0 fe/7
SUBJECT: AQDHS-II UPDATE 20
FROM: Lloyd Hedgepeth, Environmental Engineer
Systems Development Section, NADB (MD-14)
TO: AQDHS-II USERS
Enclosed is the package for Update 20 to the AQDHS-II system. The
Update Tracking Form shows what your package contains. If the hardware
or software information on the form is not correct for your installation,
please notify me. This information will be used to provide you with an
update package most suited to the needs of your installation.
This update was basically required in order to incorporate the
negative meteorological data handling capability. However, there were
a number of additional improvements made and several reported problem
solutions are incorporated in this update. These are discussed in
Attachment 1.
As many non-OS users have requested update tapes with each program
in a separate file, and with no control cards, we have provided such a
tape for those installations. Please note that on that tape, files 1 and
2, containing multiple programs, do contain control cards separating the
COBOL copy members.
The actual contents of your tape will be shown on the tape contents
sheet and in the listing printed from your tape.
An update deck is provided for those who use the standard IBM-OS
utilities. In almost every installation, your data sat name (DSNAME) will
not be the same as that on the //SYSUT1 and //SYSUT2 cards required for the
IEBUPDTE utility. Be sure to change the DSNAME to your data set name on
those cards in each s_tcp_ of the update. If the member name on the control
card image which is contained on the enclosed tape (./ REPL NAME-XXXXXXXX,
LIST=ALL) is not correct for your installation, this will have to be changed.
For those users not having IBM equipment, you can use your own
update utility.
We have enclosed a revised trouble shooting form. We hope this one
page form will be easier to use. Please use it when reporting any pro-
fa lems.
The baseline test series has been expanded to 53 test jobs. We feel
that they better exercise the system. A copy of the test series may be
obtained by returning the enclosed test series request form and a tape
to which they can be copied.
EPA Fo.m 1320-6 'Rev. 3-76)
74
-------
Figure 4.37 (Continued)
Each user is reminded not to make program modifications to AQDES-II
other tl'ian those released or approved by MDB. Only the NADB version of
AQDES-II will be supported by NADB. All modified versions (unless authoriz-
ed to meet a specif'ic computer system problem) must be supported by the
organization which performs the modification. NADB has begun a practice
of inserting comments in the programs affected by updates. These comments
will allow the user to inform NADB of the update status of a particular
program in case of problems. The user is urged not to remove these
comments as they will be modifications to the NADB version.
If you wish to make modifications for your own purposes3 you should
irtake them to a copy of the baseline system. You should, however, main-
tain the baseline system with no changes. Tliis will give you an
opportunity to test problems against the baseline. If you have a pro-
blem and the problem is reproduced in the baseline, please report the
problem to NADB. If the problem occurs in the modified version only,
it is the user's responsibility to correct that problem.
Please fill out the enclosed Update Verification Form and return
it to me. Return the tape to NADB as soon as possible.
If you need further assistance or additional information, please
contact Mr. Lloyd Hedgepeth at (919) 541-5491, or Mr. Larry McMaster
at (919) 541-6821.
Enclosures
75
-------
Figure 4.37 (Continued)
ATTACHMENT 1
Problems Resolved and Improvements Incorporated in
Update 20 to AQDHS-II
A. General Problems
1. The update messages have been incorporated into all programs
affected 'by this update.
2. All the programs were compiled and run on the UNIVAC 1110
and all general errors resulting from Update 18 have been resolved.
These errors vere tolerated by an IBM compiler but caused severe
problems for a LTNIVAC compiler. The UNIVAC related problems
were:
a) "01" appearing in the B margin
b) Logical "IF" statements were too complex for the UNIVAC
compiler to handle
c) Empty paragraphs
d) Invalid sentence continuation
e) Failure to close all files
f) Mixed -ode moves (i.e., alphameric to numeric, etc.)
g) Use of "FI1LI?." at the group level
h) Use of recursive subroutine calls.
B. Specific Program Problems
1. AXCONVRT - Modified the summary statistics to delete the count
for the number of SAROAD ADD transactions with all null readings.
2. CXCONVRT
a) Incorporated a "LIST" option of valid transactions (default
is "NOLIST").
b) Standardized the error messages.
c) Included the number of action cards ("$" cards) in the
summary statistics.
76
-------
Figure 4.37 (Continued)
3. DXSTATIS
a) Standardized the error messages.
b) Provided summary statistics.
c) Since the negative data mods altered the internal file
format in a manner which is not compatible with FORTRAN,
the sentinel programs (MXSENTNL and NXSENTNL) must now be
run prior to execution of DXSTATIS to reformat the file to
be FORTRAN compatible. Otherwise DXSTATIS will abort the run.
4. EXRPTLST
a) Expanded the print line to 132 characters since there was no
negative response to this modification as discussed in
Volume I, No. 6 of the Users Bulletin.
b) Incorporated the minimum detectable value in the report header.
c) Corrected the method used to obtain the maximum raw
data value.
d) Modified the nean value calculations routine to provide
round off instead of truncation. Printed values from the COBOL
and FORTRAN programs should now match exactly.
5. FXFILMNT
a) Expanded the summary statistics uo indicate the number of
readings flagged for deletion.
b) Provided a negative value table for the "LIST" option since the
list cr'.icr. shows the data field with the negative sign as an
overp-.inched character. This table allows the user to readily
interpret che data value.
c) Corrected tha technique used in processing composite data.
6. IXSLDAVG - Corrected a subscripting problem which resulted from
Update 18.
7. PXSITE
a) Added title line.
b) Decreased number of lines per page.
8. SXPRINTS
a) Prints two sites per page to save paper.
77
-------
b) Prints the minimum detectable value and the number of times
it was substituted.
9. TXTREDIT
a) Performs an edit check on the data for all parameters for
which SAROAD has a maximum value check. The values which
exceed the maximum value check are now accepted by AQDHS-II
and a non-suppressible warning message is printed.
b) Corrected several error messages.
c) Added additional edit checks for negative data.
d) Any Form 2 or 3 repeating data which is in error will not
appear on the list of valid transactions (using the LIST
option). However, the data in error is listed in the
diagnostic listing with its appropriate error messages.
e) Edit checks for the entire matrix of SAROAD start hour versus
sampling interval have been included.
10. RTRETRVR - Corrected the wrap-around feature for the sliding
average mode from Update 18.
Additional Procedures
1. A procedure AQSRETCL was added to allc" the user to compile, link
edit, and save standard retrievals in the LOAD library. This saves
the user th= exper.se of recompiling and linking his standard
retrievals each time they are needed.
2. Procedure .-.;S?:£IG: was added to allow for execution of retrievals
stored in the LCAD library.
78
-------
update packages are included. The tracking forms are then kept as a re-
cord of the update being sent. When the user returns the update tape to
NADB, the date is recorded on the tracking form.
4.3 Procedures for Maintaining Mailing Label Files
When a requestor contacts NADB for a copy of a CDHS subsystem, AQDHS-II
and/or EIS/P&R, the requestor's name and address are added to the appro-
priate distribution lists, AQDHS-II or EIS/P&R updates, and the CDHS User's
Bulletin, which reside on a mass storage device on EPA's UNIVAC 1110 computer
located at the Research Triangle Park, North Carolina. These files are edited
using the UNIVAC System EDIT processor.
Using James Rogers as an example requestor, the following steps
would be used to add his name to the distribution lists:
1. Sign onto the computer
2. >@RUN (valid run card)
3. >@ED,U CDHS-MAIL.AQII/NAMES
(or EIS/NAMES or CDHS-NEWS.LETTER, depending
on the file desired)
4. Locate the line where James Rogers should be entered alphabetically
in the distribution list.
>403
+001 (the program prints line 403)
403:> (depress "return" to switch from Edit to Input mode)
INPUT
5. Now the requestor's name, telephone number, and address can be
entered using a maximum of 6 lines.
4041:> 1 James Rogers (404) 528-6379
4051:> 2 568 Logan Lane
4061:> 3 Atlanta, Georgia 30658
4071:> +001
(this last line should be added to specify the number
of labels desired for this file name)
4081:> (depress "return" to switch from Input to Edit mode)
EDIT
6. >EXIT
79
-------
If James Rogers notified NADB that he was no longer using the CDHS
subsystem, his name should be deleted from the appropriate distribution
lists. Steps 1-3 would be followed as above. The remaining steps are
shown below.
4. Locate James Rogers in the distribution list.
>L James Rogers
404: 1 James Rogers (404)528-6379 (the program prints the line)
>405
405: 2 568 Logan Lane (the program prints line 405)
>406
406: 3 Atlanta, Georgia 30658
>407
407: +001
5. Now the entire name and address can be deleted in the following
way:
>D 404 407
6. >EXIT
A change can be made to the distribtuion list. If, for example, James
Rogers' street address changes, the following steps would be taken. Steps
1-3 would be followed as above.
4. >L 568 Logan Lane
405: 2 568 Logan Lane (the program prints the line)
5. >R 2 618 Patterson Street (This will replace the old address
with the new address)
6. >EXIT
To obtain a print-out of the distribution list, the following steps
would be taken:
1. Sign onto the computer
2. >@RUN (valid run card)
3. >@CAT,P (print file).
Ready
4. >@ASG,A (print file).
Ready
80
-------
5. '(3BRKPT PRINT$/(print file) (no period)
6. >(PPRT,S CDHS-MAIL.AQI I/NAMES
(or EIS/NAMES or CDHS-NEWS.LETTER, depending
on the file desired)
7. ><3BRKPT PRINTS
8. >SYM,U (print file).,2,PR
(The 2 denotes the number of copies desired; null defaults to 1)
9. ><3FIN
Mailing labels are generated when a CDHS User's Bulletin, AQDHS-II
or EIS/P&R updates are to be sent to the subsystem users. These mailing
labels are produced by executing a standard NADB program (AE001) which
uses the card image files stored on EPA's UNIVAC 1110 computer as input.
The following procedure should be used to obtain the AQDHS-II mailing
labels:
1. Sign onto the computer
2. >@RUN (valid run card)
3. >@ASG,A CDHS*CDHS-MAIL.
4. >G>COPY,S CDHS*CDHS-MAIL.AQII/NAMES,.AQII/LABELS
5. >@CAT,P AQII-OUT.
6. >G>ADD,PL CDHS*CDHS-MAIL.AQII/MAIL
7. >FIN
The following procedure should be used to obtain the EIS/P&R mailing labels,
Steps 1-3 would be the same as above.
4. >@COPY,S CDHS*CDHS-MAIL.EIS/NAMES,.EIS/LABELS
5. >@CAT,P PNR-OUT.
6. >@ADD,PL CDHS*CDHS-MAIL.EIS/t1AIL
7. >@FIN
81
-------
HARDWARE/SOFTWARE CONFIGURATIONS AND OTHER CHARACTERISTICS
OF THE CDHS INSTALLATIONS
5.0 Overviev
EPA should have the capability of providing service to each user of
its Comprehensive Data Handling System at crucial periods in the operation
of the system: (1) when the user's particular subsystem is installed; (2)
whenever EPA distributes an update which is to be incorporated into the
subsystem; and (3) whenever the user experiences difficulties in the operation
of the subsystem which require EPA assistance. In order to achieve this capa-
bility, EPA must obtain the basic information, as well as any peculiarities
of the operation of an installation, as soon as possible after it is determined
that the installation site is to become a part of the CDHS network of users.
This vital information includes the following areas of concern: (1) the particu-
lar subsystem being used at the site (either AQDHS-II or EIS/P&R); (2) the status
of the installation of the subsystem (whether installation is still only planned,
is in progress, or has been accomplished); (3) the hardware/software configura-
tion and any special characteristics thereof; and (4) the names, addresses, and
phone numbers of key air pollution control and data processing personnel
associated with the installation.
To obtain this information from the user, a special four-page form (see
Figure 5.1) was designed and sent to each current and new user of CDHS. This
form is also supplied with initial distribution of CDHS software.
Appendix A provides the reader with the complete hardware/software confi-
guration status as returned by each CDHS user; Figure 5.2 provides a break-
down by computer vendor.
83
-------
Figure 5.1
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency;
Address:
HARDWARE
Location:
Other
IBM UNIVAC (Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,
etc.)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
84
-------
Figure 5.1 (Continued)
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
(dates)
#
No
Date
85
-------
Figure 5.1 (Continued)
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Agency:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II DATA BASE COORDINATOR;
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
86
-------
Figure 5.1 (Continued)
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip;
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
87
-------
Figure 5.2
Categorization of CDHS Users By Computer Vendor
Computer Number of
Vendor CDHS Users
AMDAHL 1
Control Data Corporation (CDC) 2
Honeywell 2
International Business Machines (IBM) 30
UNIVAC 4
88
-------
TROUBLESHOOTING TECHNIQUES
6.0 Troubleshooting
When users encounter any unusual occurences in either of the
Comprehensive Data Handling System (CDHS) subsystem packages, they normally
report the problem to the National Air Data Branch (NADB). These problem
areas are discussed in the following sections.
6.1 Possible Problem Areas
These problems can be classified as either user errors or program "bugs."
6.1.1 Faulty User Procedures
If the problem results from faulty user procedures (i.e., wrong
version of the subsystem being used, incorrect data manipulations, or in-
validated data) the user personnel should be instructed in the correct
procedures. The user problem is the most common, and the most serious types
of errors should be solved as quickly as possible.
6.1.2 Program "Bug"
If the problem is due to a program "bug" (a system error in one or
more programs of a particular subsystem), RTI suggests that the following
procedures which outline the techniques used in program trouble shooting be
followed.
6.2 Troubleshooting Procedures
Upon notification from the EPA Project Officer that a problem exists,
the following procedures should be followed to provide a comprehensive method
of tracking a problem from its inception to its solution.
1. Approach Study
a. Problem Statement
b. Narrative of Solution
c. Test Plan
d. Implications
2. Program Coding and Compilations
3. Program Testing in a Backup System
4. Documentation Changes
5. Acceptance Testing in the Baseline Subsystem
These methods are further discussed in the following sections.
6.2.1 Approach Study
The following items of the Approach Study, appropriately labeled
and dated, should be submitted for approval of the EPA Project Officer prior
89
-------
to initiation of any source coding modifications:
6.2.1.1 Problem Statement
The Problem Statement is a description of the problem to be
corrected or the modification which is requested. The Problem Statement
can be a restatement of the problem or the modification received from the
EPA Project Officer or can provide further clarification of the problem.
The Problem Statement should fully describe the problem or the modification.
6.2.1.2 Narrative of Solution
The Narrative of Solution should discuss a) the solution
or modification to be implemented, being specific and referencing current
program logic, and b) any consideration given to other solutions or modi-
fications not recommended by the EPA Project Officer. The Narrative should
be of sufficient detail to clearly outline the proposed code and logic
changes which are to be made. Included in this part of the Approach Study
should be any changes to formats (either input, output, or file modifications)
6.2.1.3 Test Plan
The Test Plan should indicate the test flowcharts and test
data characteristics which should be used to test the new program logic.
It should also indicate which of the baseline test jobs (see Appendix B for
a description of the baseline test jobs and Appendix C for the test jobs)
will be specifically used to thoroughly exercise the program modification.
If there is no job in the baseline test jobs which adequately tests the
program modification, a new test job should be created to provide adequate
testing and should be integrated into the baseline test jobs along with a
description of the new test job. Upon successful completion of the program
testing, the Test Plan should include the execution of the entire baseline
test job series unless specifically waived by the EPA Project Officer.
6.2.1.A Implications
The Implications section should discuss the effects these
proposed modifications will have on any other programs of the subsystem in
question, program files, or procedures. If the proposed fix or modifica-
tion will have no effect on any other software or procedures, it should be
so stated.
90
-------
6.2.2 Program Coding and Compilation
Since the programs in AQDHS-II and EIS/P&R are written using a top-
down structured approach, any programming of additional programs or modifi-
cations to existing programs should be done using the top-down structured
approach. In addition to using the top-down structured techniques of pro-
gramming, all the program code should follow the standards as set forth by
the American National Standards Institute (ANSI).
6.2.3 Program Testing
In order to ensure the integrity of the NADB baseline version of CDHS,
all program testing should be conducted in a copy of the baseline subsystem.
This testing should include not only specific program testing, but also the
complete test job series should be run to determine the impact of the modifi-
cation on the total subsystem.
6.2.4 Documentation Changes
The existing subsystem documentation should be reviewed to determine
if the fix or modification requires a revision to the documentation. If it
does, the revision should be distributed to the users of the affected sub-
system.
6.2.5 Acceptance Testing in the Baseline Subsystem
After the program testing and documentation revisions have been
initially accepted by the EPA Project Officer, the final acceptance testing
in the NADB Baseline Subsystem should be run. Upon successful completion of
this Acceptance Testing, computer cards (interpreted) or a tape of all pro-
gramming changes which are made should be provided to the EPA Project Officer.
A listing which clearly shows all lines of coding which were either inserted,
changed, or deleted should also be supplied. If the changes are sufficiently
extensive to require total program replacement, this shall be documented in
a letter accompanying the tape and listings.
6.3 Problem Reporting Forms
Problem reporting forms (see Figure 6.1) are issued with each update,
periodically in the CDHS USERS BULLETIN and upon request to all users of the
Air Quality Data Handling Subsystem - Version Two (AQDHS-II) or the Emission
Inventory Subsystem/Permits and Registration (EIS/P&R). This form was designed
for the users of the subsystem as a guide in supplying pertinent information
about the problem in order for NADB to expedite a solution.
91
-------
6.3.1 Information Which Should Accompany Problem Reporting Forms
1) A compile listing of the program, including maps
2) JCL listing for the job
3) System log listing for the job
4) A listing of all in-stream JCL and input control cards
5) Total run listing
6) All diagnostic messages
7) Printout of program results
8) Copy of input and output files (OPTIONAL)
Often, a user calls one of the personnel listed in the CDHS USERS
BULLETIN or writes a letter concerning the problem, but a problem reporting
form and all necessary information should also be forwarded to NADB.
6.4 Procedures to Follow in Solution of Problem
Upon notification of a problem, the EPA Project Officer assigns a problem
number (each subsystem has an individual sequence). The reported problem
is then forwarded to the EPA contractor who is responsible for CDHS trouble-
shooting.
The problem is then studied to determine whether it is a user error
or a system error which usually involves a bug in one or more programs of
the subsystem.
Problems affecting the system are prioritized into three categories:
1) Low (does not affect the user or his file in a detrimental manner.
These are minor problems, such as non-ANS COBOL usage.)
2) Medium (does not affect the user or his file in a detrimental
manner, bur whose solution would clarify or enhance the use of the
subsystem, such as the rounding differences between COBOL and
FORTRAN. )
3) High (adversely affects the user or his file. All user-related
problems are treated as high priority.)
The priority is set in conference with the Project Officer. Also, the time
anticipated for producing a solution to the problem is estimated. If the
solution will require more than 40 manhours, permission to work on the problem
must be obtained from the Project Officer. If permission is not granted, all
work on that problem is held until a future date. Otherwise, if a solution
92
-------
will take less than 40 manhours, or permission is obtained to work on a large
problem, the problems are investigated in order of priorities. The decision
to implement a program correction is frequently determined by the timing
of other scheduled modifications to the subsystem.
In solving a reported problem, one should check the problem against the
list of previously reported problems and the list of corrections made by
previous updates to the system. It has been found that many problems can be
solved quickly by checking against these two sources. The problem reporting
form requests that the user apply all updates to the system prior to reporting
a problem; however, in many cases, this has not been done.
If the problem cannot be solved from past troubleshooting experience as
shown above, one should try to duplicate the problem on the CDHS baseline
system.
Often, this requires the actual data in question to be submitted. If the
problem cannot be duplicated on the baseline system, one should look for user
modifications made to the problem program. One should also look for possible
computer problems which cannot be corrected by modifying the CDHS. If the
problem is duplicated, a program problem is likely, and should be investigated
using standard debugging techniques.
Once the problem has been located, a solution must be found. Special care
must be taken so that the solution is complete, and yet does not cause other
problems in the system. Tests of the solution should be run prior to releasing
it to the Project Officer and/or users. Some considerations related to pro-
blem solutions are:
1) Does the problem warrant an update of the system? If so, can
this be held until the next scheduled release, or should it be
released as soon as possible? The size of the correction, the
severity of the problem, and the estimated date of the next
update would be used in any determination made here.
2) Is there a temporary solution the user can apply prior to a
general system update? How can this solution be transmitted
(i.e., telephone conversion followed by written verification,
update cards or tape)?
3) Was the problem related to faulty data of a type not tested for
in the subsystem? If so, should additional checks be put into the
system? Should the test data base be expanded?
93
-------
4) Can a problem which could not be reproduced in the baseline be
corrected by running the file in question through the baseline
system? Such a problem might be an out-of-sequence master file,
or a sort program problem.
5) Can the problem be corrected by using an in-line COBOL retrieval
to change or remove data from the users file?
The actual method for correcting the problem should be discussed with
the Project Officer. Then, the user is informed of the most efficient solution
and the problem report is updated. Should an update to the system be
necessary to correct a problem, it would be handled through the general update
procedures (see Section 4.2).
94
-------
Appendix A - System Status/Hardware/Software Questionnaires
Returned By Users
Page
Introduction 97
Air Pollution Control Division (Indianapolis, Indiana) 99
Rhode Island Division of Air Pollution Control 103
Mitre Corporation (Bedford, Massachusetts) 107
Connecticut Department of Environmental Protection Ill
North Dakota State Department of Health 115
Air Quality Bureau, Montana Dept. of Health & Environmental Sciences . 127
State Department of Health (Phoenix, Arizona) 131
Pima County Air Quality Control District 135
California Air Resources Board 139
Ventura County Air Pollution Control District 143
Dept. of Human Resources, Environmental Protection Section
(Carson City, Nevada) 147
Fresno County Air Pollution Control District 151
Environmental Improvement Agency, Air Quality Div. (Santa Fe,
New Mexico) 155
Dept. of Environmental Conservation (Juneau, Alaska) 159
FEEMA (Rio de Janeiro, Brazil) 163
Dept. of Environmental Conservation (Haifa, Israel) 167
U.S. Army Air Pollution Engineering Div. (Aberdeen Proving Ground,
Maryland) 175
Caltrans (Sacramento, California) 179
95
-------
Appendix A (Continued)
Page
Air Management Services - Dept. of Public Health
(Philadelphia, Pennsylvania) 183
Kappa Systems, Inc. (Colorado Springs, Colorado) 187
Texas Air Control Board (Austin, Texas) 191
Iowa Dept. of Environmental Quality 195
Air Quality Program (Jefferson City, Missouri) . . 199
Air Pollution Control Agency (Concord, New Hampshire) 203
Dept. of Natural Resources & Environmental Control (Dover, Delaware) . . . 207
State Air Pollution Control Board (Richmond, Virginia) 211
Fairfax County Health Department 215
Alabama Air Pollution Control Commission 219
Dept. of Environmental Regulation (Tallahassee, Florida) 223
Minnesota Pollution Control Agency 227
Colorado Air Pollution Control Division 231
Illinois EPA (Springfield, Illinois) 236
San Diego County APCD - Health Care Agency (County of San Diego) 240
Massachusetts Dept. of Environmental Quality Engineering 244
Air Protection Branch, EPD, Dept. of Natural Resources (Atlanta, Georgia). 248
Mississippi Air & Water Pollution Control Commission 253
Ohio EPA (Columbus, Ohio) 257
96
-------
APPENDIX A
This appendix provides the reader with the hardware/software confi-
guration status of each user who returned a completed questionnaire (See
Figure 5.1).
97
-------
THIS PAGE LEFT INTENTIONALLY BLANK
98
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Air Pollution Control Division
Address: c/o State Board of Health, 1330 West Michigan St.
Indianapolis, Indiana 46206
HARDWARE
Location: . Control Data Processing
Downtown Indianapolis, Indiana
Other
IBM UN I VAC (Specify)
Model Number
Series Number 165 MOD 3
Core size (specify words or bytes 5 Megabytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) OS-VS2
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.) 9 track '1600 bpi
Disk Drive (specify 2314, 3330,.
etc.) 3330-1
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Standard IBM utilities are used.
99
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
if
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
X
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
walden Research Division of Abcur, Inc.
Wilmington, MA 01887
(date) Jan. 28, 1976
(date) June,1976
Yes
No
(date)
Yes
No
(dates)
Date
100
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Harry Williams, Director
Air Pollution Control Division
Agency: Air Pollution Control Division
Address: c/° State Board of Heatlh
1330 West Michigan Street
City: Indianapolis State: Indiana Zip: 46206
Phone Number(s): (317)633-4814
AQDHS-II DATA BASE COORDINATOR:
r
Name and Title: Noi applicable.
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Keith Bougues
Address: Division of Air Pollution Control Division
State Board of Health, 1330 West Michigan Street ,
City: Indianapolis State: Indiana Zip: 46206
Phone Number(s): (317)633-4814
101
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: v State: . Zip:
Phone Number(s): .
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Ms. Roberta Joest
Address: Data Processing Division, State Board of Heatlh
1330 West Michigan Street
i
City: Indianapolis State: Indiana Zip: 46206
Phone Number (s): (317)633^5510
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Walden Research Division of Abcor Inc.
8bO Main Street ——
Wilmington, MA 01887
Dr. Shashi B. Khanna
(617)657-4250
-___ _ ___—
-------
Agency:
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Rhode Island Division of Air Pollution Control
Address: Davis Street, 204 Health Building
Providence, Rhode Island 02908
HARDWARE
Computer time rented to Rhode Island by:
Location: Comsis: Transportation and Planning
2025 Greentree Rd., Pittsburgh, PA 15220
IBM
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
UNIVAC (Specify)
Amdahl
470V/6
4 megabytes
OS-MVT
8 STC 9-trk, 1600/6240
3 STC 9-trk, 800/1600 bi
1 STC 7-trk, 556-800 bpi
35 CDC 3330
8 CDC 2314
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
The operating system for the Amdahl 470V/6 is standard OS-MVT (see
attachment). All updates will "be standard IEBUPDTE format.
Access to the Amdahl computer, which is owned by the Computer Usage Corp.,
is provided to the Rhode Island Division of Air Pollution Control by
Comsis Transportation and Planning.
103
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed? Yes X No
By whom? Walden Research
Task Order Expiration (date) November 28, 1976
Operational since (date) April 23. 1976
Installation in progress? Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
' 1 ^
Last update performed # • Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed? Yes No
By whom? '
Task Order expiration (date)
Operational since (date)
Installation in progress Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed tf ; Date
104
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Austin C. Daley
Chief
Agency: Rhode Island Division of Air Pollution Control
Address: Davis Street 204 Health Building
City: Providence State: Rh°de Island zip: 02908
Phone Number(s): (401)277-2808
AQDHS-II DATA BASE COORDINATOR:
»
Name and. Title: Tom Noel
Senior Engineer
Address: Rhode Island Division of Air Pollution Control
Davis Street 204 Health Building
City: Providence State. Rhode Island Zip. 02908
Phone Numbers): (401)277-2808 •
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Not applicable.
Address: .
City: State: Zip:
Phone Number(s):
105
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director;
Name and Title: does not apply (computer facilities
provided by a private company - see below)
Address:
City: State: Zip;
Phone Number(s): __ .
AQPHS-II Contact (person, responsible for performing updates):
Name and Title: Mr, Dan Bryant
Address: Comsis Transportation and Planning
« 2025 Greentree Rd. '
City: Pittsburgh State: J?A zip. 15220
Phone Number(s): (412)343-5665
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Not applicable.
Address:
City: ___ State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Walden Research
Dr. Richard D. Siegel
—Walden Research Dlvlsimi of Abcor, Inc. • •
850 Main St.
Wilmington,.-MA—9iS£? Phonei (617)657 'i250 •
106
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency;
Address:
HARDWARE Mitre Corporation
Location: Burlington Rd., Bedford, Massachusetts 01730 .
Other
IBM UNIVAC (Specify)
Model Number 370
Series Number 158
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556 ,
bpi, 9-track 1600 bpi, etc.) 9 trk 1600
Disk Drive (specify 2314, 3330,.
etc.) 2314
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
We have blocked all data. We have insert pd "Block f!nnt-g-tnt$ O .
in all input and output file control sections. This allows us to place
blocking parameters in DCB of JCL and have to recompile to optimize
blocking from disk to disk or tape. This also allows file parameters
to be picked up from file labels so any disk or tape can be used for input.
107
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
GCA Tech
(date)
(date)
Yes
1975
No
(date)
Yes
No
(dates)
none
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom? '
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
GCA Tech
(date)
(date) 1975
Yes
No
(date)
Yes
No
(dates)
* 7
Date 1/23/76
108
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Agency:
Address:
City: State: Zip;
Phone Number (s):
AQDHS-II DATA BASE COORDINATOR: ' .
Name and Title:
Address:
City: State: , Zip:
Phone Number(s) :
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: ziP:
Phone Number (s) :
109
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title:
Address:
City: _^ State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Roger Stern
Address: GCA Technology
Burlington Rd.
City: Bedford State: Massachusetts zip: 03-730
Phone Nuraber(s): 1-617-275-9000
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Roger Stern
Address: GCA Technology ^_
Burlington Rd.
City: Bedford State: Massachusetts zip. 01730
Phone Number(s): 1-617-275-9000 . .
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
110
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Aeency: Connecticut Department of Environmental Protection
Address: State Offlce Buildin8
Hartford. Connecticut 06115
HARDWARE Connecticut Central Data Processing Service
Capitol Ave.
Location: Hartford, Connecticut 06115 .
Other
IBM UNIVAC (Specify)
Model Number 37°
Series Number • 168
Core size (specify words or bytes 3 megabytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556 ^ » _,„ . .
bpi, 9-track 1600 bpi, etc.) 9-trk 1600 bpi
Diskdrive (specify 2314, 3330,.
SOFTOARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
All updates will be standard IEBUPDTE format.
Ill
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule-
Last update performed
Yes
No
Walden Research
(date) December 6, 1976
(date) May 21, 1976
Yes No
(date)
Yes
No
(dates)
I 13
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom? '
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
(dates)
if
No
Date
112
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. Henry Seal
Director of Air Compliance
Agency: Connecticut Department of Environmental Protection
Address: State Office Building
City; Hertford Statft. Connecticut zip; 06115
Phone Number(s): (203)566-4030
AQDHS-II DATA BASE COORDINATOR:
*
«
Name and Title: Mr. Vic Yanosy
Air Pollution Engineer
Address: Department of Environmental Protection
Air Compliance Section, State Office Building
City: Hartford State: Connecticut Zip: 06115
Phone Number(s): (203)566-7366
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Not applicable.
Address:
City: State: Zip:
Phone Nuinber(s) : ^^^^
113
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Mr- Charles Mule
Manager, Data Processing
Address: Department of Environmental Protection
State Office Building
City: Hartford State: Connecticut zlp. 06115
Phone Number(s): (203)566-7366
AQDHS-II Contact (person responsible for performing updates):
Name and Title: MC Susan. Coole
Programmer
Address: Connecticut Department of Environmental Protection
State Office Building '
City: Hartford State: Connecticut z±p. 06115
Phone Number(s): (203)566-7366
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Not applicable.
Address:
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Walden Research •
Dr. Richard D. Siegel, Walden Research Division of Abcor, Inc.
850 Main Street
Wilmington, MA 01887 Phone; (617)657-4250
114
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; North Dakota State Department of Health
Address: 1200 Missouri Ave.
Bismarck, North Dakota 58505
HARDWARE
Location: Data Processing, North Dakota Hi-way Building
Bismarck, North Dakota5B505
Other
IBM . UNIVAC (Specify)
Model Number 370
Series Number 145
Core size (specify words or bytes 1.000,000 bytes
Operating System (specify OS-MFT, o<, .-.,
OS-MVT, OS-VSI, EXEC-8, etc.)
r, - / •* -i „ i ccc 7 or 9 track
Tape Drive (specify 7-track 556 ,
bpi, 9-track 1600 bpi, etc.) 800 or 1600 BPI
Disk Drive, (specify 2314, 3330,
etc.) 3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
NONE
115
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Mr Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Walden Research
(date) July 31. 1976
(date) 2-13-76
Yes
No
(date)
Yes
No
(dates)
# 13.
Date 2-12-76
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom? '
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Walden Research
(date) July 31, 1976
(date) December 5, 1976
Yes
No
(date)
Yes
No
(dates)
14
Date
116
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER.;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. Dana K. Mount
Asst. Director
Agency: North Dakota State Dept. of Health
Address: 1200 Missouri Ave. ^
City: Bismarck State. North Dakota zip. 58505
Phone Number(s): (701)224-2348
AQDHS-II DATA BASE COORDINATOR;
*
Name and Title: Jay Crawford
Meteorologist
Address- North Dakota State Department of Health
1200 Missouri Ave.
City: Bismarck gtate; North Dakota zip; 58505
Phone Number(s): (701)224-2348
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Darwln SchultZ
Environmental Engineer
North Dakota State Dept. of Health
Address:
1200 Missouri Ave.
Bismarck _ North Dakota 58505
City: State: Zxp:
Phone Number(s): (701)224-2348
117
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Jim Heck
Director
Address: Central Data Processing
North Dakota State Highway Building
City: Bismarck State: North Dakota Zip: 58505
Phone Number(s): (701)224-3190
AQDHS-II Contact (person responsible for performing updates):
Name and Title: George Bales
Programmer III
Address: Central Data Processing
. North Dakota State Highway Building
City: Bismarck State. North Dakota z±p. 58505
Phone Number(s): (701)224-3190
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Georne Bales
Programmer III
Address: Central Data Processing
North Dakota State Highway Building
City: Bismarck State: North Dakota Zip: 58505
Phone Number(s): (701)224-3190
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
118
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
North Dakota Department of Health, Division of Environmental Engineering
Address: State Capitol
Bismarck, North Dakota 58501 _
HARDWARE
Location: North Dakota Central Data Processing _
State Highway Building, Bismarck, North Dakota 58501
Other
IBM UNIVAC (Specify)
Model Number 370
Series Number 145
Core size (specify words or bytes 1 megabyte
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) OS-VSI
9-track
Tape Drive (specify 7-track 556 1600 BPI
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.) 3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
ADHS-II - All updates will be standard
EIS/P&R - All updates will be standard
119
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Walden Research Div. of Abcor, Inc.
(date) June 11, 1976
(date) December 12, 1975
Yes No
(date)
Yes
No
(dates)
& 10
Date December 18, 1975.
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Walden Research Div. of Abcor, Inc.
(date) June 11, 1976
(date) December 5, 1975
Yes No
(date)
Yes
No
(dates)
f 5
Date December 5, 1975
120
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Dana K. Mount, Supervisor
Air Pollution Control Program
Agency: North Dakota Department of Health, Division of Environmental Engineerir
Address: State Capitol . ^^
City: Bismarck State: North Dakota zip. 58501
Phone Number(s): (701)224-2348 '
AQDHS-II DATA BASE COORDINATOR:
»
Name and Title: Jay Crawford
Meteorologist
Address- North Dakota Department of Health, Division of Environmental Engineerj
State Capitol
City: Bismarck State: North Dakota 58501
Phone Numbers) : (701)224-2348
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Darwin W. Schultz
Sanitary Engineer
Address: North Dakota Department of Health, Division of Environmental Engineerii
State Capitol .
City: Bismarck State: North Dakota zip: 58501
.. M . , . (701)224-2348
Phone Number(s) :
121
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Fran Ely, Systems Manager
Address: Central Data Processing
Highway Building, State Capitol
City: Bismarck State: North Dakota Zip: 58501
Phone Number(s): (701)224-3190
AQDHS-II Contact (person responsible for performing updates);
Name and Title: George Bales, Programmer
Address: Central Data Processing ^^
• Highway Building, State Capitol'
City: Bismarck State: North Dakota 2ip: 58501
Phone Number(s): (701)224-3190
EIS/P&R Contact (person responsible for performing updates);
Name and Title: George Bales, Programmer
Address: Central Data Processing
Highway Building, State Capitol
City: Bismarck State: North Dakota Zip: 58501
Phone Number(s): (701)224-3190
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Walden Research Division of Abcor, Inc.
201 Vassar St., Cambridge, Massachusetts—02139 -'FhOne:(617)868-3940
AQLJHS-II: Brian"!.. KemeTeT ~~
EIS/P&R: Dr. Shashi B. Khanna
122
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: North Dakota State Health Dept., Air Pollution Division
Address: State Capitol Building.
Bismarck, North Dakota 58501
HARDWARE
Central Data Processing
Highway Building, Capitol Grounds
Location: Bismarck, North Dakota 58501
IBM
UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
370/145
1 mega
OS-VSI
3420,9-track~
800 and 1600 bpi
3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
NONE
123
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed? Yes x No
By whom? Brian Kemerer, WaJLden Research
Task Order Expiration (date)
Operational since (date) December 12, 1975
Installation in progress? Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed . tf ^ Date Dec< 12' 1975
»
i
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes X No
By whom? ' S. Khanna, Walden Research
Task Order expiration (date)
Operational since (date) Pec. 5, 1975
Installation in progress Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates) '
Last update performed tf 5 Date Dec. 2, 1975
124
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Darwin Schultz
Environmental Engineer
Agency: North Dakota State Health Dept., Air Pollution Division
Address: State Capitol Building
City:
Bismarck
Phone Number(s):
State: North Dakota
Zip: 58501
AQDHS-II DATA BASE COORDINATOR:
Name and Title: 'George Bales
Programmer III
Address:
Central Data Processing
Highway Building, Capitol Grounds
City:
Phone Number(s):
Bismarck
State: North Dakota zip.
(701)224-3190
58501
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
George Bales
Programmer III
Address:
Central Data Processing
Highway Building, Capitol Grounds
City:
Phone Number(s):
Bismarck
State:
North Dakota z± 58501
(701)224-3190
125
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Jim Heck
Director
Address: Central Data Processing
Highway Building, Capitol Grounds
City: Bismarck State: North Dakota Zip; 58501
Phone Number(s): (701)224-3190
AQDHS-II Contact (person responsible for performing updates);
XT j T-4.1 George Bales
Name and Title: e
Programmer III
,, , Central Data Processing
Address:
Highway Building, Capitol Grounds
c±tys Bismarck^ state: North Dakota 58501
Phone Number(s): (701)224-3190
EIS/P&R Contact (person responsible for performing updates);
Name and Title: George Bales
Programmer III
Address: Central Data Processing
Highway Building, Capitol Grounds
City: Bismarck State: North Dakota zip: 58501
Phone Number(s): (701)224-3190
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Brian Kemerer and S. Khanna - Phone; (617)868-3740 •
Both of the above work for:
Walden Research, Division of Abcor, Inc.
201 Vassar St., Cambridge, Massachusetts 02139
126
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Air Quality Bureau, Montana Dept. of Health & Environmental Sciences
Address: Cogswell Building
Helena, Montana 59601
HARDWARE
Location:
Montana Dept. of Highways
Capitol Complex, Helena, Montana 59601
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
370-145
768k
OS-VSI
9-track
1600 bpi
2314 and
3330
Other
(Specify)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
NONE
127
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
X
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes
By whom? '
Task Order expiration (date)
Operational since
Installation in progress
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule (dates)
Last update performed tf
X
No
Pacific Environmental Services
Mid-1976
(date) approx. Feb. 1976
Yes No
No
Date
128
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mike Roach _ _ . _ _ _
Chief '
Agency: ^ir Quality Bureau
Address: Montana Dept. of Health & Environmental Sciences, Cogswell Building
City: Helena State: Montana zip. 59601
Phone Number(s): (406)449-3454
AQDHS-II DATA BASE COORDINATOR: ,
Name and Title:
Address: ,
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title: James W. Gelhaus
Air Pollution Meterologist
Address: Montana Dept. of Health & Environmental Sciences
Cogswell Building
City: Helena State: Montana Zip: 59601
Phone Nuraber(s): (404)449-3454
129
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
James W. Gelhaus
Name and Title:
Air Pollution Meterologist
Address: Montana Pept. of Health & Environmental Sciences
' Cogswell Building
City: Helena State: Montana zip: 59601
Phone Number(s): (406)449-3454
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number (s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: James W. Gelhaus
Air Pollution Meterologist
Address: Montana Dept. of Health & Environmental Sciences
Cogswell Building
City: Helena State: Montana zip. 59601
Phone Number(s): (406)449-3454
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Murray Levy
Pacific Environmental Services
Santa Monica, California
(213)393-9449 ~_—
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
. State Department of Health
Agency: ___^
State Dept. of Health Building, 1740 West Adams St.
Address: _
Phoenix, Arizona 85007
HARDWARE
Location:
State of Arizona
212 E. Osborn, Phoenix, Arizona
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
(Specify)
Honeywell
6000
256k (6 bit words]
GCOS
9-track,1600 bpi
191
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
JLL/NEDSIN - converts NEDS tape to Honeywell
JLL/NEDSONT - converts Honeywell to IBM NEDS
131
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes
By whom? '
Task Order expiration (date)
Operational since
Installation in progress
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule. (dates)
Last update performed t 14
No
GCA Technology
(date) August 1, 1976
Yes No
No
Date
132
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director,
Name and Title: Mr. Lloyd Rone ^
Acting Manager of Planning and Special Projects
Agency: State Dept. of Health Building
Address: 174° West Adams St-
City: Phoenix State: Arizona Zip: 85007
Phone Number(s): (602)271-5306 ' _
AQDHS-II DATA BASE COORDINATOR;
r
Name and Title: •
Address:
City: ' State: Zip:
Phone Number (s) :
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Mr. Lloyd Rone
Acting Manager of Planning and Special Projects
. j. State Dept. of Health Building
Address: _ _
1740 West Adams St.
Phoenix „_ Arizona 85007
City: State: Zip:
Phone Number(s): (602)271-5306
133
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director;
Name and Title: Mr. Mike Mahattey
State Dept. of Health Building
Address: ' 1740 West Adams St.
City: Phoenix State: Arizona Zip; 85007
Phone Number(s): (602)271-4543
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Mr. Mike Mahattey
State Dept. of Health Building
Address: 1740 West Adams St.
City: Phoenix State: Arizona z±p: 85007
Phone Number(s): (602)271-4543
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Mrs. Joyce Wass •
134
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Pima Count7 Air Quality Control District
Address: 151 W. Congress
Tucson, Arizona 85701
HARDWARE
Location: Pima County Data Processing Dept.
l3l West Congress, Tucson, Arizona83701
Other
IBM UNIVAC (Specify)
Model Number ...37°.
Series Number
Core size (specify words or bytes 512k real, 2 megas virtual
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) DOS~VS
Tape Drive (specify 7-track 556 r , „,.„ , .
bpi, 9-track 1600 bpi, etc.) 9-track, 160° bPi
Disk Drive (specify 2314, 3330,
etc.) 333°
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
1) Pima County utilizes the LIBRARIAN software product. This is a source
library
2) DOS installation required the following modifications:
b) LDLNGPRC and the retrieval skeleton were modified
c) SLaLibLical analysis print program was niuJifieJ to read 260 byte
unblocked record
J) DOS FORT RAN lequlreb' unblocked input files; hence, -a separate program
was written to copy and unblock the answer and table files. This pro-
the iwo flagging programs supplied with the ayatem.
e) TOTREDIT was modified to change leading spaces to zero and to print
only erroneous transactions. These changes were implemented by the
addition of a new module to the end of the existing program; hence,
all existing sequence numbers match NADB's.
135
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed '
Yes
No
Pacific Environmental Services
7/76
(date)
(date) 5/76
Yes X
No
Pacific Environmental Services
(date) 5/76
Yes X
No
(dates) Begin January 1976
13
Date
2/76
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R)
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed -
Yes
No
(date)
(date)
Yes
No
(date)
Yes
(dates)
No
Date
136
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: C. Lee Fox _ _
Director
Agency: Pima County Air Quality Control District
Address: 153L w- Congress
City: Tucson _ ___ State: Arizona zip. 85701
Phone Number(s): (602)792-8686 or 792-8803 _ ; _ _
AQDHS-II DATA BASE COORDINATOR;
Name and Title: Karen J. Heidel
Project Engineer
Address- Pima County Air Quality Control District
151 West Congress
City: Tucson _ State: Arizona Zip: 85701
Phone Number(s): (602)792-8686
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: Zip:
Phone Number(s): .
137
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Jack Shomauta
D.P. Manager
Address: Pina County Data Processing Dept.
131 West Congress
City: Tucson State: Arizona Zip: 85701
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip;
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Murray Levy
Pacific Environmental Services
1930 14th Street, Santa Monica CA 90404
138
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: California Air Resources Board
Address: Sacramento, California 95814
HARDWARE
Stephen P.- Teale Consolidated Data Center
Location: 2^15 First Avenue, Sacramento, CA 95818
Other
IBM UNIVAC (Specify)
Model Number 37°
Series Number ____
2 mega bytes — 1st CPtJ
Core size (specify words or bytes 3 mega bytes - 2nd CPU
Operating System (specify OS-MFT, 91 17
OS-MVT, OS-VSI, EXEC-8, etc.) vs 2 release 1.7
7 trk 200, 556; and 800 BPI
Tape Drive (specify 7-track 556 9 trk 800, 1600, and 6250 BPI
bpi, 9-track *L600 bpi, etc.)
3330 and
Disk Drive (specify 2314, 3330,. 3339 _ n
etc.)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
There are no special features which should affect how updates can be
incorporated. The system has two IBM 370/168 machines with ample
peripherals. The important software features are:
1. vs 2 release 1-7 under ASP scheduled to 'go to JES3 within a year
2. Standard IBM utilities
3. TSO
4. PANVALET is available
139
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes X
No
California Air Resources Board
(date) October 1976
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom? /
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
California Air Resources Board
(date) not applicable
(date) January 1976 -
Yes
No
(date)
3.
Yes
No
(dates)
a 10
Date April 1976
140
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: William H. Lewis, Jr. •
Executive Officer
Agency: California Air Resources Board
Address: __
City: Sacramento State: CA Zip: 95814
Phone Number(s):
AQDHS-II DATA BASE COORDINATOR;
«
Name and Title: Robert Hollingsworth '
Air Sanitation Engineering Associate
Address: P.O. Box 2815
City: Sacramento State: CA . zip: 95812
Phone Number(s): (916)322-6045
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Russ Tate '_ .
^ Assoc. Air Pollution Engineer
Address: P.O. Box 2815
City: Sacramento State: CA ' Zip: 95812
Phone Number(s) : (916)322-6018
141
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Duane E. Seibel
Manager, Data Processing
Address: 'P.O.. Box 2815
City: Sacramento State: CA z±p: 95812
Phone Number(s): (916)322-6018
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Ed Fitzgerald
Assistant Air Pollution Engineer
Address: P.O. Box 2815 ,
•
j
City: Sacramento State: CA Zip: 95812
Phone Number(s): (916)322-6018 .
EIS/P&R Contact (person responsible for performing updates):
Name and Title: John Graham
Programmer/Analyst
Address: P.O. Box 2815
City: Sacramento state: CA Zip: 95812
Phone Number(s): (916)322-6018
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
NONE
142
-------
SYSTEM STATUS/HAKDWARE/SOFTWARE QUESTIONNAIRE
Agency: Ventura County Air Pollution Control District
Address: 74° E- Maln St-
Ventura, CA 93001
HARDWARE
Santa Barbara County Data Services
Location: 105 East. Anapamu St., Santa Barbara, CA 93103
Other
IBM UNIVAC (Specify)
370
Model Number
Series Number • 145
Core size (specify words or bytes 512k
Operating System (specify OS-MFT, ng-WT
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556 9 track
bpi, 9-track'1600 bpi, etc.) 800 bpi
Disk Drive (specify 2314, 3330,.
etc.) 3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
DYL260 - Dylakor, Inc.
Librarian - Applied Data Research
IV-70 - Four Phase, Inc. - Data Entry
143
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes X
No
Santa Barbara County, EDP
(date) 9-1-76
Yes
No
(dates)
t
Date
144
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Jan Bush .
APCD Manager
Agency: Ventura County Air Pollution Control District
Address: 740 E. Main St.
City: Ventura State: CA Zip: 93001
Phone Number(s): (805)648-6131. Ext. 2667
AQDHS-II DATA BASE COORDINATOR;
Name and Title: •
Address:
City: State: . Zip:
Phone Number(s) :
EIS/P&R DATA BASE COORDINATOR;
Name and Title: David Barnes - Engineer
(or) Douglas Tubbs - Data Systems
Address: 740 E. Main St.
City: Ventura State: CA zip; 93001
Phone Number(s): (805)648-6131, Exts. 2664 or 2668
145
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Darrell Tate -
Name and Title:
EDP Manager
... 105 East Anaparau St.
Address: ^
Santa Barbara CA 93103
City: State: Zip:
Phone Number(s): (805)966-1611, Exts. 223, 331, or 423
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: _____ State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: David Barnes - Engineer
(or) Douglas Tubbs - Data Systems
Address: 740 E. Main St.
City: Ventura State: CA zip: 93001
Phone Number(s): (805)648-6131, Exts. 2664 or 2668
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
146
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Department of Human Resources, Environmental Protection Section
Address: Air Quality Control, 1209 Johnson Street
Carson City, Nevada 89710
HARDWARE
Computer Sciences Corp., Infonet Division
Location: 650 Sepulveda, El Segundo, CA 90245
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
(Specify)
Infonet
UNIVAC -
1108 Mainframe
256K wds.
CSTS
9-Track 800 BPI
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than .
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
*disk drives currently in use resemble 3330* s in characteristics
and operation
State of Nevada has a DASI silent 700 with dual cassetes as mode of
data entry. Infonets editor commands closely resemble UNIVAC's for
purpose of making updates to the system.
147
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed -
Yes
No
(date)
(date)
Yes x
No
Computer Sciences Corp,
(date) Feb. 27, 1976
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom? '
Task Order expiration
Operational since
Installation in progress
i
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
(dates)
No
Date
148
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Richard Serdoz
Air Quality Officer
Agency: Dept. of Human Resources •-.....'
Address: Environmental Protection Section, Air Quality Control
1209 Johnson Street
City: Carson City State: Nevada Zip: 8971°
Phone Number(s): (800) 992-0900 Ext. 4670
(702) 885-4670
AQDHS-II DATA BASE COORDINATOR; . •
Name and Title: '
Address:
City: State: Zip:
Phone Nuraber(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
149
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s): .
EIS/P&R Contact (person responsible for performing updates):
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
150
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Fresno County Air Pollution Control Dist.
Address: 1246 "L" Street
Fresno, CA 93721
HARDWARE
Fresno County Computer Services Department,
Location: 1020 South Tenth Street, Fresno, CA 93702
IBM
UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
370
145
*5 meg real
6 meg virtual
OS-VSI
9-Track
16OO BPI
3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Standard Utilities
151
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration'
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
f
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
Fresno County Computer Svcs. Dept.
(date) 2-28-77
Yes
No
(dates)
* 17
Date 12-20-76
152
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Dr. Trevor Glenn
Air Pollution Control Engineer
Agency: Fresno County Air Pollution Control Dist.
Address: 1246 "L" Street
City: Fresno State: <* Zip: 93721
Phone Number(s): (209) 488-3239 (209) 488-3757
AQDHS-II DATA BASE COORDINATOR:
»
Name and Title:
Address:
City: State: Zip:
Phone Nuraber(s):
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Don Nelson.
Data Processing Coordinator
.,, . Fresno County Dept. of Health
P. 0. Box 11867
City: Fresno State: CA Zip: 93775
Phone NumberCs): (209) 488-2920
153
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: (Same as Above) .
Address:
City: State: ; Zip:
Phone Number(s): ^
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
154
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Environmental Improvement Agency, Air Quality Division
Address: P. 0. Box 2348
Sante Fe, New Mexico 87503
HARDWARE
Division of Automated Data Processing, P.E.R.A. Bldg.,
Location: Room 103» Sante Fe> New Mexico 87501
IBM
. UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
370
158 dvd 145
1000K
OS-VS2 and OS-VM
9/1600
3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to.your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
In addition to IBM utilities, UNIV Computing Corp. TMS •
Panvalet, HASP
155
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
X
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
i
by 6-30-77
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No X
(date)
(date)
Yes
No
(date)
Yes X
No
(dates) by 6-30-77
// Date
156
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the.
agency's director.
Name and Title: Thomas E. Bacon _ _ _
_ Director, Environmental Improvement Agency _
Agency: Air Quality Division
Address: P. 0. Box 2348
ATTN: Ken Hargis, Chief, Air Quality Division
City: Sante Fe State; New Mexico ^_ Zip: 87503
Phone Number (s): (505) 827-5271
AQDHS-II DATA BASE COORDINATOR:
Name and Title: Brilce Nicholson, Program Manager .
Air Quality Division
Address: Environmental Improvement Agency
P. 0..Box 2348
City: Sante Fe State: New Mexico zip: 87503
Phone Number(s): (505) 827-5271, Ext. 359
EIS/P&R DATA BASE COORDINATOR;
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s) :
157
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Ralph Trigg, Cheif
Division of Automated Data Processing
Address: P.E.R.A. 31dg. , Room 183 '
City: Sante Fe State: New Mexico Zip: 87501
Phone Number(s): (505) 827-3271
AQDHS-II Contact (person responsible for performing updates):
Name and Title: Ivy Iwashita
Programmer
Address: Air Quality Division, Environmental Improvement Agency
P. 0.' Box 2348 '
City: Sante Fe State: New Mexico Zip: 87503
Phone Number(s): (505) 827-5271, Ext. 359
EIS/P&R Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address: __
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone nuinber(s)
of any contract personnel supporting your CDHS subsystems.
None
158
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Department of Environmental Conservation
Address: Pouch 0
Juneau, Alaska 99811
HARDWARE
State of Alaska, Dept. of Administration, Division of Data
Location: Processing,- Pouch C, Juneau, Alaska 99811 .
Other
IBM UNIVAC (Specify)
Model Number 148
Series Number 370
Core size (specify words or bytes 256K
Operating System (specify OS-MFT, i
OS-MVT, OS-VSI, EXEC-8, etc.) DOS/VS
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.) 9-Track 1600BPI
«
Disk Drive (specify 2314, 3330^
etc.) . 33407omb
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Regular IBM utilities
360 system utilities
"DITTO" utilities •
Power VS
159
-' • - " • I —--»~-~.«r-*«»«^»t,^J«Jpjr- .WN'4.T'«n«!«r7,-f-i-.i7 .-, r • ,^ft:yjry~ - - „!' -.-:--. — i----^ _'
• Vr*
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
X
(date)
(date)
Yes
No
IBM Federal Services Division
(date) Unknown
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
IBM Federal Services Division
(date) Unknown.
Yes
No
(dates)
It
Date
160
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Tom Hanna ^
Air Quality Supervisor
Agency: Department of Environmental Conservation
Address: Pouch °
City: Juneau _ State: Alaska _ Zip: 99811
Phone Number (s) : (907) 465-2631 _
AQDHS-II DATA BASE COORDINATOR:
'Dave Estes
Name and Title:
Air Quality Engineer
Address: Dept. of Environmental Conservation
Pouch 0
City: Juneau State: Alaska Zip: 99811
Phone Numbers) : (907) 465-2692
EIS/P&R DATA BASE COORDINATOR:
„ , _. . (Same as Above)
Name and Title: N
Address:
City: State: Zip:
Phone Number(s):
161
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Michael Parisi
Director, Division of Data Processing
Address: Dept. of Administration, State of Alaska
Pouch C .
City: Juneau State: Alaska Zip: 99811
Phone Number(s): (907) 467-2220
AQDHS-II Contact (person responsible for performing updates):
Name and Title:
Address: Dept. of Admin., Data Processing Div., Technical Services Section,
Pouch C '
City: Juneau State: Alaska Zip: 99811
Phone Number(s): (907) 465-2222
EIS/P&R Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
162
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Fundacao Estadual de Engenharia do Meio Ambiente (FEEMA)
Address: Rua Fonseca Teles. 121 15° Andar
Rio de Janeiro, Rio de Janeiro, 20.000 Brazil
HARDWARE
Computer is operated by the State of Rio de Janeiro and is locatec
Location: within Sec, -of Finances, 11 Sta. Luzia. Rio de Janeiro-. Brazil
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
«
Disk Drive (specify 2314, 3330,.
etc.)
370/158
Other
(Specify)
1 Mega Bytes
OS-VS
9-yTrack
3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
We have standard IBM supplied update utilities
163
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed ,
Yes
X
No
John Thielke
(date)
(date) January 1, 1976
Yes No X
(date)
Yes
No
(dates)
10
Date January 7, 1976
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
X
No
John Thielke
(date)
(date) December 1975
Yes No
(date)
Yes
No
(dates)
# »
Date Dec-.20, 75
Jan. 14, 75
164
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Eng. Vitoria Valle Braile
Chief, Air Pollution Control Division
Agency: FEEMA
Address: Rua Fonseca Teles, 121 15° Andar
City: Ki° de Janeiro State: ^-° de Janeiro Zip: 20.000 Brazil
Phone Number(s) : 254-4050 R 668 '
AQDHS-II DATA BASE COORDINATOR; •
Name and Title: EnS- Neise Ribeiro Vierra Ca'rvalho
Chief - Laboratory
Address: FEEMA
Rua Fonseca Teles, 121 14° Andar
City: R*° de Janeiro State: Rio de Janeiro zip: 20.000 Brazil
Phone Number(s): 254-4050 R 928
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Eng. Isaura Maria "de Rezende Lopes
Engenharia
Address : FEEMA
o
Rua Fonseca Teles. 121 15° Andar
City Rio de Janeiro State- Rio de Janeiro zip* 20-000 Brazil
Phone Number(s): 254-4050 R
165
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Elpidio Gongalves Nina
Chief - Data Processing
Address: FEEMA
Rua Fonseca Teles, 121
City: Rio de Janeiro State: Rio de Janeiro Zip;20.OOP Brazil
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title: En8- Vitoria Valle Braille
Chief - Air Pollution Control Division
Address: ^EMA .
Rua Eonseca Teles, 121 Sala 1512
c.ty: Rio de Janeiro State. Rio de Janeiro Zip; 20.000 Brazil
Phone Nuraber(s): 254-4050 R 668
r
EIS/P&R Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Dr. John Thielke, Consultant •
FEEMA, Rua Fonseca Teles, 121 Sala 1512, Rio de Janeiro, Rio de Janeirc
20.000 Brazil (NOTE: I will be at this address until July 1, 1976)
166
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Dept. of Environmental Conservation, Haifa Municipality
Address: 24 Jerusalem Street
Haifa, Israel
HARDWARE
Location: Technion, Israel Institute of Technology
IBM
Other
UNIVAC (Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,
etc.) .
370
9-Track 1600 BPI
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
These details will be specified at a later date.
167
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Mr Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed '
Yes
No
(date)
(date)
Yes
No
Dr. A. Birenzvige
(date) April 1978
Yes
(dates)
*
No
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes X
No
Dr. A. Birenzvige
(date) April 1978
Yes
(dates)
j? Date
No
168
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Dr. A. Birenzvige
Chief, Air Resources Management Program
Agency: Dept. of Environmental Conservation, Haifa Municipality
Address: 24 Jerusalem Street
City: Haifa State: Israel Zip:
Phone Number(s):
AQDHS-II DATA BASE COORDINAT.OR;
Name and Title: '(Same as Above)
Address: ..
City: State: Zip:
Phone Number(s) :
EIS/P&R DATA BASE COORDINATOR:
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
169
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates):
Name and Title: CSame as Above)
Address:
City: State: Zip:
~ — v
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s): .
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
170
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Haifa Municipality
Address: 24 Jerusalem Street
Haifa, Israel
HARDWARE
Location:
IBM
UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
360
64K
7TRK 556
7TRK 800
9TRK 1600
9TRK 6250"
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
At this time no special software items, except the CDHS system, are
planned. Any suggestions on this- subject will be appreciated.
171
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed? Yes No
By whom?
Task Order Expiration (date)
Operational since (date)
Installation in progress? Yes No
By whom? ^^
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed ' # Date
i
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes No X_
By whom? '
Task Order expiration (date)
Operational since (date)
Installation in progress Yes No
By whom?
Scheduled to be operational (.date)
Installation planned? Yes X No
Installation schedule (dates)
Last update performed # Date
172
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Dr. A. Birenzvige
Chief, Air Resources Management Program •
Agency: Haifa Municipality
Address: 24 Jerusalem Street
City: Haifa State: Israel zip;
Phone Number(s): 664282/3 •
AQDHS-II DATA BASE COORDINATOR;
Name and Title: '(Same as Above)
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR;
Name and Title: (Sarae as Above)
Address:
City: State: Zip:
Phone Number (s) : .
173
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director;
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number (s) :
AQDHS-II Contact (person responsible for performing updates)
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Nuraber(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
174
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Air Pollution Engineering Division
Address: U.S. Army Environmental Hygiene Agency, HSE-EA •
Aberdeen Proving Ground, HP 21010
HARDWARE
Management Information Systems Office
Location: Aberdeen Proving Ground, Maryland 21005 "
Other
IBM UNIVAC (Specify)
Model Number 360
Series Number 65
Core size (specify words or bytes IMEG
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) OS-MVT
Tape Drive (specify 7-track 556
bpi, 9-track ^600 bpi, etc.) 9rl600
Disk Drive (specify 2314, 3330,
etc.) 2314
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
HASP
COBOL VER-IV
175
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed -
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
MISO, APG, MD 21005
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
//
Date
176
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Agency: Air Pollution Engineering Division,. U.S. Army Environmental Hyg-t<»n«a Agy.
Address: HSE-EA
City: Aberdeen Proving Ground State: MD
Phone Number(s): (301) 671-2509/3996
Zip: 21010
AQDHS-II DATA BASE COORDINATOR;
i
Name and. Title: '
Address:
City:
Phone Number(s):
State:
Zip:
EIS/P&R DATA BASE COORDINATOR:
Name and Title: R°y v- Carter & James Irwin
Project Engineer, Statistician
Address: HSE-EA-A
City: Aberdeen Proving Ground State:
Phone Number(s): (301) 671-2509/2371
Zip: 21010
177
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Michael L. Carothers
Chief, Data Processing Branch
Address: U.S. Army Environmental Hygiene Agency .
ATTN: HSS-AD
City: Aberdeen Proving Gd.State: _MD ziP: 2101Q
Phone Number(s): (301) 671-2475 or 671-2480
AQDHS--II Contact (person responsible for performing updates);
Name and Title: ^___
Address:
City: State: Zip:
Phone Nuraber(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Ms. Fritzi M. Pylant
Systems Analyst
Address: U.S. Army Environmental Hygiene Agency
ATTN: HSE-AD
City: Aberdeen Proving Gd^tate; MD zip: 21010
Phone NumberCs): (301) 671-2475 or (301) 671-2480
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
178
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Caltrans
Address: 1120 "N" Street
Sacramento, CA 95817
HARDWARE
Location: Teale Data Center, 2415 First Ave., Sacramento, CA 95816
IBM
Other
UNIVAC (Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
370
168
3000K
OS-VS
9TBX 6250BPI
3330-1
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Virtual Storage
179
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed? Yes No
By whom?
Task Order Expiration (date)
Operational since (date)
Installation in progress? Yes ' No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule ' (dates)
Last update performed ' $ f Date
•
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed? Yes No
By whom? - .
Task Order expiration (date)
Operational since (date)
Installation in progress Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed # Date. .
REMARKS
We store our data in the AQDHS data file. We do not use AQDHS-2 primarily because
we consider AQDHS-1 less complex.
Mr. Walter Winter, during a May 1976 telephone conversation with Mr. Lloyd Hedgepeth,
discussed our reasons for not changing to the AQDHS-2 data base file.
180
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director. • •
Name and Title: Adriana Gianturco _ _
Director
Agency: __ Cal trans _ ^
Address: H20 "N" Street
City: Sacramento State: CA ' zip: 95817
Phone Number(s):
AQDHS-II DATA BASE COORDINATOR:
— •
Name and. Title: Earl Shirley . •
Supervising M & R Engineer
Address: 5900 Folsom Blvd.
City: Sacramento State: JCA Zip: 95819
Phone Number(s): (916)444-4833
EIS/P&R DATA BASE COORDINATOR:
Name and Title: (Same as Above)
Address:
City: . State: zip:
Phone Number(s) :
181
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Ben Squires
Associate M & R Engineer
Address: 5900 Folsom Blvd.
City: Sacramento State: CA Zip: 95819
Phone Number(s): (916) 444-4824
AQDHS-II Contact (person responsible for performing updates);
Name and Title: (Same as Above)
Address:
City: State: Zip:
Phone Number (s): ^ -
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number (s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
182
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Air Management Services - Dept. of Public Health, City of Philadelphia
Address: 801 Arch St.,' 6th Floor .
Philadelphia, PA 19106
HARDWARE
Air Management Services Laboratory
Location: 1501 E. Lycoming St., Philadelphia, PA 19124
IBM
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
UNIVAC (Specify)
Hewlett Packard
9600 system(21005
computer
64K bytes
RTE-II
9-Track 800BPI
H-P 7905
(2315 type)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
We do not use, or plan to use, AQDHS-II or EIS/P&R. All our
software for SAROAD and El preparation is our own.
183
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed -
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
(date)
(date)
Yes
(date)
Yes
(dates)
No
X
No , X
No X
Date
184
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: William Reilly
Asst. Health Commissioner for Air Management Services
Agency: AMS - Dept. of Public Health, City of Philadelphia
Address: 801 Arch St. •
6th Floor
City: Philadelphia State: PA Zip: 19106
Phone Number(s): (215) MU6-7840
AQDHS-II DATA BASE COORDINATOR:
»
Name and Title:
Address: [
City: State: Zip:
Phone Number (s) :
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: Zip:
Phone Number(s): •
185
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title:
Address:
City:
State:
Zip:
Phone Number(s):
For Information Regarding SAROAD Data - Contact:
Name and Title:
Roger Levy
Engineering Supervisor
Address: Air Management Laboratory
1501'E. Lycoming St.
State: PA
City: Philadelphia
Phone Number(s): (215) 288-5177
For Information Regarding EI/.P&R Data - Contact:
Name and Title: William C. Miller
Staff Engineer
Address: 801 Arch St. , 6th Floor
Air.Management Services
Zip: 19124
zip
19106
City: Philadelphia State: PA
Phone Number(s): (215) MU6-7883 _ '
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
186
-------
Agency:
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Kappa Systems, Inc.
Address: 1*09 Potter Drive
Colorado Springs, Colorado 50902
HARDWARE
Location: Kappa Systems, Inc.
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
(Specify)
Burroughs
B-5500
64K words
7-Track
556BPI
S OF WARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
The conversion of the IBM AQDHS-II system to a Burroughs
required numerous changes. The updates must, therefore, be examined
carefully before inclusion into the B-5500 AQDHS system. Thus, all
updates are non-standard.
This is a KSI in-house installation of AQDHS.
187
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?.
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed '
Yes X B-5500
No
P. H. Karvellas (KSI)
(date)
(date) September 1975
Yes No
(date)
Yes
No
(dates)
Date Nov- 1975
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Yes
No
(date)
(date)
Yes
No
P. H. Karvellas
Scheduled to be operational (date) Indefinite
Installation planned?
Installation schedule
Last update performed
Yes
No
(dates)
Date
188
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Not applicable (in-house installation)
Agency:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II DATA BASE COORDINATOR;
Name and Title: Not Applicable
Address: i__
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Not Applicable
Address:
City: State: . Zip:
Phone Number(s):
189
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title:
Address:
City: State: Zip:
Phone Number(s) : •
AQDHS-II Contact (person responsible for performing updates);.
Name and Title: Dr. P. H. Karvellas
Kappa Systems, Inc.
Address: 1409 Potter Drive
City: Colorado Springs State: Colorado zip: 80902
Phone Number(s): (303) 597-1900
EIS/P&R Contact (person responsible for performing updates):
Name and Title: (Same as above)
Address:
City: State: Zip:
Phone Number(s) :
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of -any contract personnel supporting your CDHS subsystems.
190
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Texas Air Control Board
Address: . 8520 Shoal Creek Blvd.
Austin, Texas 78758
HARDWARE
Department .of Health Resources
Location: . I100 w- 49th, Austin, Texas 78757
IBM
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
«
Disk Drive (specify 2314, 3330,.
etc.)
UNIVAC
1106
Other
(Specify)
256K words
Exec-8
9-Track
1600BPI
8440
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
DMS -1100
SYSTEM -2000
191
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Al// Quality Data Handling Subsystem II (AQDHS-II) ;
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed •
Yes
No
X
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);•
Installed?
By whom?
Task Order expiration.
Operational since
Installation In. progress
By whom?
Scheduled to be operational
* Installation planned?
Installation schedule
Last update performed
*May be in modified fona0
Yes
No
(date)
(date)
Yes
No
(date) __
Yes X
No
(dates) 1/1/77
i
Date
192
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Charles R. Barden, PE
Executive Director
Agency: Texas Air Control Board
Address: 852° Shoal Creek Blvd.
City: Austin State: Texas Zip: 78758
Phone Number(s) : (512) 451-5711, Ext. 200 '
AQDHS-II DATA BASE COORDINATOR;
t
Name and Title: N/A , •
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name
and Title: Joe Pe™ington
Address: 8520 Shoal Creek
City: Austin State: Texas Zip: 78758
Phone Number(s) : (512) 451-5711, Ext. 435
193
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Jim Myers
Manager Data Processing
Address: 8520 Shoal-Creek
City: Austin State: Texas Zip: 78758
Phone Number(s): (512) 451-5711, Ext. 460
AQDHS-II Contact (person responsible for performing updates);
Name and Title: N/A
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: D*vid Stephenson
Address: 852° shoal Creek Blvd.
City: Austin State: Texas zip: 78758
Phone Number(s): (512) 451-5711, Ext. 474 _ .
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
None
194
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Iowa Department of Environmental Quality
Address: 3920 Delaware, P. 0. Box 3326
Des Moines, IA 50316
HARDWARE
Comptroller's Data Processing
Location: Lucas State Office Building, Des Moines, IA 50309
IBM
UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,
etc.)
(2) 370
158
Other
(Specify)
2048K Each
OS-MVT
21 9-Track 1600BPI
1 • 9-Track 1600BPI or 800BPI
44 3330 MOD-II
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
ASP Release 3.2.2
195
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration '
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
.No
IBM
(date)
(date)
Yes
3/1/76
Not operational
No
(date)
Yes
No
(dates)
none performed Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No X
(date)
(date)
Yes
No X
(date)
Yes
No X
(dates)
# Date
196
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Edward J. Stanek
Director, Air Quality Management Division
Agency: Iowa Department of Environmental Quality
Address: 3920 Delaware
P. 0. Box 3326
City:
Des Moines
State:
IA
Phone Number(s): (515) 265-8134
Zip:
. 50316
AQDHS-II DATA BASE COORDINATOR:
kichael R. Durham
Name and Title:
Environmental Specialist
Address* I°wa Department of Environmental Quality
Air Quality Management Division, 3920 Delaware
City: Des Moines
State:
IA
Phone Number(s): (515) 265-8134
Zip: 50316
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City:
State;
Zip:
Phone Number(s):
197
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director: .
Name and Title: Jane B. Swanson
Data Processing Section Chief
Address: Iowa Department of Environmental Quality
3920 Delaware Ave., P. 0. Box 3326
City: Des Moines State: JA Zip: 50316
Phone Number(s): (515) 265-8134 ' '
AQDHS-II Contact (person responsible for performing updates):
Name and Title: Jerry Tunistra '
Data Processing Section
Address: I°wa Department of Environmental Quality
3920.Delaware Ave., P. 0. Box "3326
City: Des Moines State. IA Zip. 50316
Phone Number(s): (515) 265-8134 • '
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
None '
198
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Mr Quality Program
Address: 117 Commerce Drive
Jefferson City, MO 65101
HARDWARE
Location: Employment Securities, Dunklin St., Jefferson City, MO 65101
IBM
UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,
etc.)
370
158/45
16 MEGABYTE
OS-VSII
9-TU600)
9-1(800)
3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
199
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Mike Gauer
(date)
(date) September 1975
Yes No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Mike Gauer
(date)
(date) September 1975
Yes No
(date)
Yes
No
(dates)
Date
200
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: James H. Long
Supervisor of Laboratory
Agency: Air Quality Program
Address: 117 Commerce Drive
City: Jefferson City State. MO ' Zip.
Phone Number(s): (314) 751-3252 :
AQDHS-II DATA BASE COORDINATOR:
»
„ , „,.,., Raitfdall Raymond
Name and Title: '_
Air Pollution Control Engr.
Address: 117 <*»•»«« Drive
City: ^fferson City State. MD ^ip; 65101
Phone Number(s): (314) 751-3252
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Randall Raymond
(Same as above) ^^
Address:
City: State: Zip:
Phone Number(s):
201
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Randall Raymond
(Same as above)
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates):
Name and Title: Randall Raymond
(Same as above)
Address:
City: State: ' Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Randall Raymond
(Same as above)
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of -any contract personnel supporting your CDHS subsystems.
202
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Air Pollution Control Agency
Address: State Laboratory Bldg., Hazen Drive
Concord, NH 03301
HARDWARE
Location:
Other
IBM UNIVAC (Specify)
Model Number Honeywell
Series Number 6060
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,
etc.)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
G-COS-RELEASE
203
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes _
By whom? '
Task Order expiration (date)
Operational since (date)
Installation in progress Yes
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule (dates)
Last update performed #
No
No
No
Date
204
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Agency:
Address:
City: State: Zip:
Phone Number (s):
AQDHS-II DATA BASE COORDINAT,OR: '
9
»
Name and Title: Ms. Linda Spofford
Air Pollution Control Agency
Address: State Laboratory
Hazen Drive
City: Concord State: NH zip: 03301
Phone Number (s) :
EIS/P&R DATA BASE COORDINATOR;
Name and Title:
Address:
City: State: zip:
Phone Number(s):
205
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Mr. Gerald Nelson, Director
Mr. Robert Strickland, Ass*t. Director
Address: Dept. of C.D.P. .
1 Pillsbury St. .
City: Concord State: NH Zip: 03301
Phone Number(s): (603) 271-3761
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Mr. Roland Roy
Address: Dept. of Centralized Data Processing
1 Pillsbury St. _J
City: Concord State: NH zip: 03301
\
Phone Number(s): (603) 271-3140
EIS/P&R Contact (person responsible for performing updates):
Name and Title: ,
Address:
City: State: Zip:
Phone Number (s): .
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
206
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency:
Address:
Department of Natural Resources & Environmental Control
Tatnall Building, Capitol Complex
Dover, Delaware 19901
HARDWARE
Division of Central Data Processing
Location: Highway Administration Building. Dover, Delaware 19901
IBM
UNIVAC
Other
(Specify)
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
360
50
512K
OSMFT
9-Track, 1600 bpi/800 bpi
2314 (may be upgraded to 3330's by Dec.
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Standard IBM utilities
207
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule (dates)
Last update performed tf
No
Walden Research Division of Abcor, Inc.
Wilmington. MA 01887
(date) Jan. 6. 1977
(date) June, 1976
Yes
No
No
Date
208
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER; ;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Robert R. French. Manager
Air Resources Section, Division of Environmental Control
An Department of Natural Resources & Environmental Control
Address- Tatnall Building, Capitol Complex
City: Dover State: Delaware Zip: 199Q1
Phone NumberCs): <302>
AQDHS-II DATA BASE COORDINATOR:
Name and Title: N/A
Address: (
City: State: Zip:
Phone Number(s) :
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Sam Eaton, Resources Control Specialist
Air Resources Section, Division of Environmental Control
Address: Department of Natural Resources & Environmental Control
Tatnall Building, Capitol Complex '
City: Dover State: Delaware Zip: 19901
Phone Number(s): (302) 678-4791
209
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Mr. George Theis, Director
Address: Division of Central Data Processing
Highway Administration Building
City: Dover State: Delaware Zip: 199Q1
Phone Number(s): (302) 678-4678
ApDHS-II Contact (person responsible for performing updates);
Name and Title: N/A
Address: ,
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title: ***' Clement T- Chang, Highway Engineer II
Address: Computer Support Section
Box 778
City: Dover State: Delaware Zip: 19901
Phone Number(s): (302) 678-4345
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Walden Research Division of Abcor, Inc. - Dr. Shasshi B. Khanna
850 Main .Street (617) 657-4250
Wilmington, MA 01887
210
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: State Air Pollution Control Board
Address: R°om 1106, 9th St. State Office Building
Richmond, VA 23219
HARDWARE
Transportation and Public Safety Computer Resources Center
Location: 2220 W. Broad St., Richmond, VA 23220
Other
IBM UNIVAC (Specify)
Model Number _ 37°
Series Number
Core size (specify words or bytes 2048
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) OS-INT
STC
Tape Drive (specify 7-track 556 , 9-Tr. 1600 BPI
bpi, 9-track 1600 bpi, etc.) 2=1x^-800/16008?
Disk Drive (specify 2314, 3330,. 3675
etc.) 333° _____
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
OS/MVT - Release 21.8
HASP - Version 3.1
UCC One
Tape Management Software (TMS) System
211
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
X
No
IBM
(date)
(date)
Yes
Unknown
April 28, 1976
No
State ADP
(date) April 28, 1976
Yes N/A No
(dates)
13
Date
March 1, 1976
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update perfprmed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
212
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. William R. Meyer ^ _^
Executive Director
Agency: State Air Pollution Control Board
Address: Room 1106
. 9th Street State Office Building
City: Richmond State: VA zip; 23219
Phone Number(s): (804) 786-2378 ;
AQDHS-II DATA BASE COORDINATOR:
_______________________________ t
Name and Title: ' Mr. William W. Erskine
Director, Division of Engineering
Address: Room 1106
9th Street State Office Building
City: Richmond State. VA Zip: 23219
Phone Number(s): (804) 786-2530
EIS/P&R DATA BASE COORDINATOR:
Name and Title: '
Address:
City: State: Zip:
Phone Number(s) :
213
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Mr. Herbert Alcox
Program Manager, System Support Services '
Address: 9th Street State Office Building .
City: Richmond State: VA Zip: 23219
Phone Number(s): (804) 786-6041
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Mr. Limon E. Fortner
APC Engineer
Address: 9th Street State Office Building
•Room 1106
City: Richmond State: VA Zip: 23219
\
Phone Number(s): (804) 786-1795
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Fairfax County Health Department
Address: 4100 Chain Bridge Road
Fairfax, VA 22030
HARDWARE
Fairfax County Cooperative Computer Center
Location: 4100 Chain Bridge Rd., Fairfax, VA 22030 "
Other
IBM UNIVAC (Specify)
Model Number 370-155
Series Number MOD-2
Core size (specify words or bytes 1.5M
Operating System (specify OS-MFT, OS-VS2
OS-MVT, OS-VSI, EXEC-8, etc.) Rel. 1.7
Tape Drive (specify 7-track 556 f
bpi, 9-track 1600 bpi, etc.) 9-Tr. 1600bpi
Disk Drive (specify 2314, 3330,. 3330 &
etc.) 3330-1
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
No problems in making updates. The IBM utility program IEBUPDTE
is used.
215
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Engineering Sciences, Inc.
(date)
(date) May 1975
Yes
No
(date)
Yes
No
(dates)
0 13
Date 3-19-76
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Engineering Sciences, Inc.
(date)
(date) October 1975
Yes No
(date)
Yes
No
(dates)
* 10
Date 3-19-76
216
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title:
Daniel. Helms, Director
Air Pollution Control Division
Agency:
Address:
Fairfax County Health Department
4080 Chain Bridge Rd.
City:
Fairfax
State:
VA
Phone Number(s):
(703) 691-2542
Zip:
. 22030
AQDHS-II DATA BASE COORDINATOR:
Name and Title:
Daniel Lanigan
Address:
Office of Research & Statistics
County of Fairfax, 4100 Chain Bridge Rd.
City:
Fairfax
State:
VA
Phone Number(s):
(703) 691-2355
Zip:
. 22030
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
(Same as Above)
Address:
City:
State:
Phone Number(s):
Zip:
217
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Richard P. Wahl, Jr., Director
Cooperative Computer Center
Address: County, of Fairfax
4100 Chain Bridge Rd.
City: Fairfax State: VA Zip: 2203°
Phone Number(s) :
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Daniel Lanigan
Address: (Same as Above>
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Daniel
Address:
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Alabama Air Pollution Control Commission
Address: 645 S. MacDonough Street
Montgomery, Alabama 36130
HARDWARE
UAH Computer Services, University of Alabama in Hunstville,
Location: P. 0- Box 1247, Huntsville, Alabama 35807
Other
IBM UNIVAC (Specify)
Model Number ^ 1100/10
Series Number • ••
Core size (specify words or bytes 262K words
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) Exec 8
Tape Drive (specify 7-track 556 ,
bpi, 9-track 1600 bpi, etc.) 9-Track 1600BPI
Disk Drive (specify 2314, 3330,
etc.) 8440 .
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
This installation is in the process of converting from a user-
modified, UNIVAC 1108 ANSI compiled version of AQDHS-II to a
recently updated EPA version of AQDHS-II which will be imple-
mented on a UNIVAC 1100/10 with ASCII compiler. Upon completion
of this implementation, a software package will be submitted, com-
plete with implementation notes and comments for your review.
L. B. Perry
219
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed •
Yes
No
Computer Services Department
University of Alabama. Huntsville
(date)
(date)
Yes
No
Computer Services Department
University of Alabama, Huntsville
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No X
(date)
(date)
Yes
No x
(date)
Yes
No x
(dates)
*
Date
220
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Richard McNider
Agency: Alabama Air Pollution Control Commission
Address: 645 S. MacDonough Street
City: Montgomery State: Mabaina Zip; 3613°
Phone Number(s): (205) 834-6570 ; ••
AQDHS-II DATA BASE COORDINATOR:
9
Name and Title: 'Donald Moss
Address- Alabama Air Pollution Control Commission
645 S. MacDonough Street
City: Montgomery State: Alabama Zip: 36130
Phone Number (s) : (205) 834-6570 .
EIS/P&R DATA BASE COORDINATOR;
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
221
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Sylvia F. Heard
Manager, Computer Services
Address: University of Alabama in Huntsville
P. 0. Box 1247
City: Huntsville State- Alabama Zip: 35807
Phone Number(s) : (205) 895-6347
AQDHS-II Contact (person responsible for performing updates);
Name and Title: L« B« Perry
Programmer/Analyst
Address* Computer Services, University of Alabama in Huntsville
.P. 0. Box 1247
City: Huntsville State: Alabama Zip: 35807
Phone Number(s): (205) 895-6347
EIS/P&R Contact (person responsible for performing updates):
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
222
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Dept. of Environmental Regulation
Address: 2562 Executive Center Circle East
Tallahassee, Florida 32301
HARDWARE
Dept. of Environmental Regulation
Location: 2562 Executive Center Circle East, Tallahassee, Florida 32301.
Other
IBM UNIVAC (Specify)
RCP/UNIVAC
Model Number 70/A5-FE
Series Number
Core size (specify words or bytes 196K
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) _____ DOS
Tape Drive (specify 7-track 556 . (6) 9-Track
bpi, 9-track 1600 bpi, etc.) 800 BPI
Disk Drive (specify 2314, 3330,
etc.) . (5) 70-590
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
223
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed '
Yes
No
IBM & Florida Personnel
(date)
(date) Approximately June 1975
Yes No
(date)
Yes
No
(dates)
f
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed? Yes _
By whom? • ^
Task Order expiration (date)
Operational since (date)
Installation in progress Yes
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule (dates)
Last update performed . #
No
No
No
Date
224
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities '
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Dr* J- p- Subramani, Chief, Bureau of Air Quality Mgmt.
. Director Jay Landers, Secretary
Agency: Department of Environmental Regulation
Address: 2562 Executive Center Circle East
City: Tallahassee State. Florida zlp. J32301
Phone Number(s): Subramani - (904) 488-1345; Landers - (904) 488-4807
AQDHS-II DATA BASE COORDINATOR;
9
„ j «•• + •! . ' Bob lacampo
Name and Tztle: _
Systems Program Coordinator
... t, . Department of Environmental Regulation
2562 Executive Center Circle East
City: Tallahassee State: Florida Zip: 32303
Phone Number(s): (904) 488-8626 /
EIS/P&R DATA BASE COORDINATOR;
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
225
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Terry Lee, Director
Mayo Data Center
Address:
City: Tallahassee State: Florida Zip: 32301
Phone Number(s) : (904) 488-6761
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Frank Chase - Senior Analyst _^
Address: Ambassador Building
• 2003 Appalatchie Parkway
City: Tallahassee State. Florida zip. 32301
\
Phone Number(s): (904) A88-8603
EIS/P&R Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s): '_..
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
226
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Minnesota Pollution Control Agency
Address: 1935 West County Road B-Z
Roseville, MN 55113
HARDWARE
IBM
UNIVAC
University of Minnesota Health - Computer Sciences
Location: Box 511, Mayo Memorial Building
Minneapolis, MN 55455
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Other
(Specify)
Control Data
3300
128K words
MASTER
4x7 Tracks, 556 & 800
2x9 Tranks, 800 & 160i
12x#841
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
1. Do not have IBM utility IEBGENER
2. OZ9 keypunch codes are illegal-
3. NADB tape blocking is done by support programs, rather than EIS/P&R
programs
4. All programs have been downgraded to USASI COBOL (MASTER) Version 2
from original IBM COBOL 4
5. File opening and closing functions carried out by COBOL code appended
to each program, rather than dealing through control cards (JCL)
227
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed •
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Health Computer Sciences
University of Minnesota
(date) April 1, 1976
(date) October 1975
Yes
No
(date)
Yes
No
(dates)
10
Date March 1976
228
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. E. M. Wiik. P.E.
Director, Division of Air Quality
Agency: Minnesota Pollution Control Agency
Address: 1935 West County Road B-Z
City: Roseville State: MN Zip: 55113
Phone Number(s): (612) 296-7373 '
AQDHS-II DATA BASE COORDINATOR:
.
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Mr. Gary C. Magil,- Research Scientist
Division of Air Quality
Address: Minnesota Pollution Control Agency
City: Roseville State: MN zip: 55113
Phone Number(s): (612) 296-7268
229
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
\
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates);
Name and Title- (Same as EIS/P&R Data Base Coordinator)
Address:
City: State: Zip:
Phone Number(s):
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
230
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Colorado Air Pollution Control Division
Address: *41° E' llth Ave«
Denver, Colorado 80222
HARDWARE
Colorado Division of Automated Data Processing
Location: 2002 S. Colorado Blvd., Denver, Colorado 80220
Ocher
IBM UNIVAC (Specify)
Model Number 37°
Series Number
Core size (specify words or bytes ^ Byte ^ ,
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) OS~VSI ______
Tape Drive (specify 7-track 556 9lT^rt (Tf^f are IB? N
bpi, etc.) 800/1600 3460's & STC's)
Disk Drive (specify 2314, 3330, <3330> 3314> 33AO ~ ^&^ d*ives
. „ % are CDC DBL density equivalent to
^ -- v
sj
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Operating system - VSI
I/O Spooling Executive - RES (We use a remote entry terminal)
Tape - Tape Management System (All our master files are tape generation)
Source and Load Module Control - PANVALET Version 8. All source and
load modules are maintained via PANVALET - COBOL copy statements do
not work and have been eliminated by combining all copied modules
into larger modules. (retrieval skeleton, ect.)
231
-------
Procedure Control - Test/production dual library setup using
IEBUPDTE for maintenance.
All modules (procedures, source, load) in our system reside in
common libraries. We use no private libraries or disk packs.
Because of this, all such modules are named using a rather
specific naming convention which eliminates most security problems.
This does not ordinarily cause us any difficulty., However, when
updates to the small modules used to build the skeleton programs
are issued, some difficulties can arise. I would appreciate a
full listing of all such modules in EIS (as of update 5) and
AQII (as issued) with their original and any subsequent alias
names they may have had.
Since our source is handled with PANVALET, it is impossible to
maintain your IEBUPDTE sequence numbering. So far this has not
been a problem; but if we experience difficulties, we will contact
you.
If you desire any more information regarding our procedures or setup,
please feel free to contact me.
232
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed? Yes No
By whom?
Task Order Expiration (date)
Operational since (date)
Installation in progress? Yes ^ No
By whom? TRC
Scheduled to be operational (date) Mid March, 1976
Installation planned? Yes ' . No
Installation schedule• • (dates)
Last update performed - t ' Date
r
»
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed? Yes X NO
By whom? ' Pacific Environmental Systems
Task Order expiration (date) Mid July 1975
Operational since (date) Approx. June 1, 1975
Installation in progress Yes • No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed t 6 Date Nov. 30, 1975
NOTE: Update 6 blocking factor change handled in
JCL rather than as program alteration.
233
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. Robert Sier, Assistant Director
Acting Director Air Pollution Control Division
Agency: Colorado Air Pollution Control Division
Address: 441° E- Uth Ave.
City: Denver _ State: Colorado _ Zip: 80220
Phone Number(s): (303)388-6111, Ext. 354 _
AQDHS-II DATA BASE COORDINATOR;
«
Name and Title:
Address:
City: State: Zip:
Phone Number(s) : •
EIS/P&R DATA BASE COORDINATOR:
Name and Title:
Address:
City: State: ' Zip;
Phone Number(s):
234
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Nuraber(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title:
Address:
City: State: Zip:
Phone Number(s): '
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Other than installation, there is no contract support on our systems.
235
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Illinois EPA
Address: 2200 Churchill Rd.
Springfield, Illinois 62706
HARDWARE
Location: Management Information Division, Dept. of Finance
State Office Building, Springfield, Illinois62706
Other
IBM - UNIVAC (Specify)
Model Number 370
Series Number • 168
Core size (specify words or bytes 16 M bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
9-track
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.) 1600/6250
Disk Drive (specify 2314, 3330,
etc.) 3330-11
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
EASYTRIEVE IBM COBOL ANS-4
PANVALET ' TWO "
1Mb , .
UCC-1 TMS
PAN*DA
236
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
*
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
(dates)
t
No
Date
237
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Patrick Lynch
Manager, Division of APC
Agency: Illinois EPA
Address: 220° Churchill Rd.
City: Springfield State: Illinois zip. 62706
Phone Number(s): (217)782-7326 • ^
AQDHS-II DATA BASE COORDINATOR; •
Name and Title: Shawn Patrick '
Computer Systems Software Specialist
Address: 2200 Churchill Rd.
City: Springfield SMB. Illinois Zip:62706
Phone Number(s): (217)782-4291 _
EIS/P&R DATA BASE COORDINATOR:
Name and Title: none
Address:
City: State: Zip:
Phone Number(s):
238
-------
SYSTEM STATUS/HAKDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director;
Name and Title; Vlnce Hansen - '
Manager of EPA
Address: "2200 Churchill Road
City: Springfield State: Illinois Zip: 62706
_. „ . t x (217)782-4291
Phone Number (s): _
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Dave Kolaz
Data Analysis Supervisor
Address: 220° Churchill Rd.
Springfield _ Illinois 62706
City: . 6 State: • Zip:
Phone Number(s): (217)782-5811
EIS/P&R Contact (person responsible for performing updates);
none
Name and Title:
Address:
City: ' State: ' Zip
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
none
239
-------
Agency:
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
San Diego County APCD Health Care Agency - County of San Diego
9150 Chesapeake Dr., 1600 Pacific Highway
AQ d r 6 s s •
San Diego, CA 92123 San Dieg°» CA 92101
HARDWARE
County of San Diego Administration Building
Location:
1600 Pacific Hwy., San Diego, CA. 92101
Other
IBM UNIVAC (Specify)
Model Number 370
Series Number 145,158
Core size (specify words or bytes 1536k,768k
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) O
9-track
Tape Drive (specify 7-track 556 800-6250 bpi
bpi, 9-track 1600 bpi, etc.) "
Disk Drive (specify 2314, 3330,. 3333
etc.)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect hox* an update
is or can be incorporated.
PANVALET - Program Library and Management System (installed)
TMS - Tape Management System (installed)
Reports exceeding 10,000 print lines are spooled to a print tape.
240
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II); n/a
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R):
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
County of San Diego
EDP Services & APCD
(date)
Yes
9/30/76
No
(dates)
14
Date 6/2/76
241
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: San Diego County APCP ___^_________
9150 Chesapeake Dr., SAn Diego, CA 92123
Agency: Health Care Agency - County of San Diego
Address: 1600 Pacific Highway, San Diego, CA 92101
Frank Panarisi - Assistant CAO
City: San Diego State: ^ Zip: 92101
Phone Number(s): (714)236-2881 '
AQDHS-II DATA BASE COORDINATOR:
. •
Name and Title: n/a _____
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R DATA BASE COORDINATOR:
Name and Title: John Morris
Systems Analyst
Address: San Dieg° County APCD
9150 Chesapeake Dr.
con Dieeo California 92123
City: ban uiego state: Zip:
Phone Numbers): (714)565-3901
242
-------
SYSTEM STATUS/1IARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director;
Name and Title: Al Nichols
Director
Address: San Diego County EDP Services
1600 Pacific Highway
City: San Diego State: California z±p: 92101
Phone Number(s): (714)236-2018
AQDHS-II Contact (person responsible for performing updates); n'a
Name and Title:
Address:
City: State: Zip:
Phone Number (s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: John Morris
Systems Analyst
Address: San Die8° County APCD
9150 Chesapeake Dr.
City: San Diego State: California Zip. 92123
Phone Number(s): (714)565-3901 .
Contract Support:
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
System installation and support furnished by the San Diego County
Department of EDP Services (no contract).
243
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Massachusetts Department of Environmental Quality Engineering
Address: 600 Washington St., Room 320
Boston, Massachusetts 02111
HARDWARE
Location:
Massachusetts State College Computer Network
Causeway St., Boston, Mass
02114
IBM UNIVAC
Model Number
Series Number
Core size (specify words or bytes
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
Cyber 72 Model 16
Other
(Specify)
CDC
98k 60 bit words
NOS
4-9 track 800/1600 b
1-7 track
8 CDC 844-21
110 million chars,
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
244
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed? Yes No
By whom?
Task Order Expiration (date)
Operational since (date)
Installation in progress? Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule• (dates)
Last update performe^ $ » Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R); *
Installed? Yes X No J
By whom? • IBM •
Task Order expiration (date)
Operational since (date) Summer 1975
Installation in progress Yes No
By whom?
Scheduled to be operational (date)
Installation planned? Yes No
Installation schedule (dates)
Last update performed $ ; Date
* EIS/P&R was installed on an IBM machine used by Massachusetts in 1975. In late
1975, an unforeseen change was made to a CDC machine of a different computer
services vendor. Massachusetts intends to install EIS on the new machine.
EPA support has been requested.
245
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Gilbert T. Joly •
Director, Division of Air Quality Control
Agency: Massachusetts Dept. of Environmental Quality Engineering
Address: 600 Washington St., Room 320
City: Boston State: Massachusetts zip: 02111
Phone Number(s): (617)727-2658 _
AQDHS-II DATA BASE COORDINATOR:
«
Name and Title: Robert Boiselle .
Senior Air Pollution Control Engineer
Address: Massachusetts Dept. of Environmental Quality Engineering
600 Washington St., Room 320
City: Boston State: Massachusetts Zip: 02111
Phone Number(s): (617)727-2658
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Thomas Parks .
Senior Air Pollution Control Engineer
Address: 60° Washington St., Room 320
City. Boston State: Massachusetts zip. 02111
Phone Number(s): (617)727-2658 .
246
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
, _. , Kenneth A. Hagg
Name and Title: 55
Chief, Data Management Section
Massachusetts Dept. Environmental Quality Engineering
Address: ; - .
600 Washington St., Room 320 ^
City: Boston State: Massachusetts zip; 02111
Phone Number(s): (617)727-2658 / '
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Sheldon Sobel
Principal Programmer
Address: Massachusetts Dept. of Environmental Quality Engineer*'
« 600 Washington St., Room 320
City: Boston State: Massachusetts zip. 02111
\
Phone Number(s): (617)727-2658 •
EIS/P&R Contact (person responsible for performing updates);
Sheldon Sobel
Name and Title:
Principal Programmer
Address: Massachusetts Dept. of Environmental Quality Engineering
600 Washington St., Room 320 _^___
City: Boston state: Massachusetts Zip. 02111
Phone Number(s): (617)727-2658 .
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
247
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Air Protection Branch. EPD. Dept. of Natural Resources
Address: 270 Washington Street. Room 816
Atlanta, Georgia 30334
HARDWARE
Location: Department. of Administrative Services .
270 Washington St. SW, Atlanta, Georgia 30334
Other
IBM UNIVAC (Specify)
Model Number 1110
Series Number • 1x1
32k primary (word)
Core size (specify words or bytes 262k_fi2±£nded
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.) f_r_r___
(2).dual density
Tape Drive (specify 7-track 556 , (1) ^ track
bpi, 9-track 1600 bpi, etc.) 8 U16 tape drive (5) 9 track 1600 bpi
6 disks-440
Disk Drive (specify 2314, 3330,. spindles disk
etc.)
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
1) The Univac external sort did not function properly, so four Fortran
Sort programs were written for the AQDHS system. 2) If a temporary
transaction file is being passed from a printer in one program to card-
reader in another, an extra transaction of a blank record will show up in
the listing'of transactions as the first record. It does affect program
operation since the record is rejected. (See attached sheet for continuation.'
248
-------
Attachment 1
DNIVAC ANS ASCII Differences
The following differences in ANS COBOL area encountered when installing on
the UNIVAC 1110.
1. ASSIGN TO statements were changed in all cases using:
ASSIGN TO MASS-STORAGE external-name.
(tape or disk)
ASSIGN TO CARD-READER.
ASSIGN TO PRINTER.
a) External names must be also given on CARD-READER and PRINTER
if there is more than one card-reader or printer in the program.
2. Reserved words: SET-ID
ACTIVE
3. In special names, top of page is PAGE.
4. 12 character name truncation unless there is an external name on
ASSIGN. (This is not a problem if they are still unique.)
5. The term OPTIONAL should be added to any SELECT for a file that may
at some time be dummy.
6. In sort programs, do not use a MOVE 30K statement.
7. Report Writer differs for its top of page requirements.
8. COBOL and Fortran programs can only read COBOL or
Fortran files unless they are from CARD-READER.
9. REDEFINES must be same length or the object length is used - sometimes
this is a problem and had to be coded around.
249
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II):
Installed? Yes
By whom?
Task Order Expiration (date)
Operational since
Installation in progress?
By whom?
Scheduled to be operational (date)
Installation planned? Yes
Installation schedule (dates)
Last update performed . tf
No
IBM contractor
(date) June 26, 1975
Yes No
No
10
Date ln Pr°8ress
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed? Yes
By whom?
Task Order expiration (date)
Operational since (date) _
Installation in progress Yes
By whom?
Scheduled to be operational (date) _
Installation planned? Yes
Installation schedule . (dates)
Last update performed // 5
No
IBM contractor
January 31, 1975
No
No
Date 12/12/75
250
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: R. H. Collonu Jr. ^
Chief ; '
Agency: Air Protection Branch. EPDr Dept. of Natural Resources
Address: 270 Washington St.. Room 816
City: Atlanta State: Georgia Zip: 30334
Phone Number(s): (404)656-6900 or (404)656-4867
AQDHS-II DATA BASE COORDINATOR;
• ' -
Name and Title: James D, Mullins . ;
Unit Coordinator, Meteorological & Statistical Unit
Address: Air Protection Branch
270 Washington Street, Room 816
City: Atlanta State: Georgia Zip: 30334
Phone Number (s) : (404)656-6900
EIS/P&R DATA BASE COORDINATOR:
Name and Title: James D. Mullins .
Unit Coordinator
Address: 270 Washington Street, Room 816
City: Atlanta State: Georgia zip: 30334
Phone Number(s): (404)656-4967
251
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Name and Title: Data Coordination Section
EPD, Department of Natural Resources
Address: 270 Washington Street, Room 816
City: Atlanta State: Georgia zip. 30334
Phone Number(s):
AQDHS-II Contact (person responsible for performing updates);
Name and Title: Dale Kenunerick
Environmental Specialist II
Address: 'Environmental Protection Division
270 Washington St.', S.W.
City: Atlanta State. Georgia zip. 30334
Phone Number(8)r (404)656-6900
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Dale Kemmerick
Environmental Specialist II
Address: Environmental Protection Division
270 Washington St., S.W.
City: Atlanta State: Georgia Zip: 30334
Phone Number(s): (404)656-6900
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
EPA Contractors.
252
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency; Mississippi Air & Water Pollution Control Commission
Address: P.O. Box 827
Jackson, Mississippi 39205
HARDWARE
Location: Air & Water Pollution Control Commission
P.O. Box 827, Jackson, Mississippi39205
Model Number
IBM
UNIVAC
370/155
Other
(Specify)
Series Number
Core size (specify words or bytes 2 million bytes
OS/MVT
Operating System (specify OS-MFT,
OS-MVT, OS-VSI, EXEC-8, etc.)
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.)
Disk Drive (specify 2314, 3330,.
etc.)
7 track &
9 'track
3330 and
3333
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
We are using all Standard IBM utilities.
253
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
We use AQDHS-I.
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
*
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes X
No
IBM
(date)
(date)
Yes
5/75
No
(date)
Yes
No
(dates)
*
Date
254
-------
SYSTEM STATUS /HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER;
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Mr. Glen Wood, Jr. , Director _
Agency: Mississippi Air & Water Pollution Control Commission
Address: P.O. Box 827
City: Jackson _ State: Mississippi zip; 39205
Phone Number(s): (601)354-6783 _
AQDHS-II DATA BASE COORDINATOR:
»
Name and Title:
Address
City: State: .__ Zip:
Phone Number(s) :
EIS/P&R DATA BASE COORDINATOR;
Name and Title: Earl LeMasters
Data Processing Manager
Address: P.O. Box 827
City: Jackson State: Mississippi Zip: 39205
Phone Number(s): (601)354-7513
255
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL;
Director:
Name and Title: Earl LeMasters
Data Processing Manager
Address: P.O. Box 827
Jackson „ Mississippi 39205
City: State: vv Zip:
Phone Number(s): (601)354-7513
AQDHS-II Contact (person responsible for performing updates);
Name and Title:
Address:
City: State: Zip:
Phone Number(s):
EIS/P&R Contact (person responsible for performing updates):
Name and Title: Earl LeMasters
Data Processing Manager
Address: *•<>• Box 827
City: Jackson State: Mississippi zip. 39205
Phone Number(s): (601)354-7513
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of -any contract personnel supporting your CDHS subsystems.
NONE
2.56
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
Agency: Ohio EPA
Address: 361 E. Broad St.
Columbus, Ohio 43215
HARDWARE Ohio Dept. of Administrative Services, Division of Computer Servio
30 E. Broad 'St., Columbus, Ohio 43215
Location:
Other
IBM UNIVAC (Specify)
Model Number 158
370
Series Number
2 million bytes real storage
Core size (specify words or bytes 16 million bytes virtual storage
Operating System (specify OS-MFT, r»S/V<;
OS-MVT, OS-VSI, EXEC-8, etc.) ' ._
Tape Drive (specify 7-track 556
bpi, 9-track 1600 bpi, etc.) 1600 BPI
Disk Drive (specify 2314, 3330,
etc.) 3330
SOFTWARE
Please list software items (installed, being installed, or planned)
which are/will be peculiar to your installation and programs (e.g.,
tape management, spooling requirements, update utilities other than
standard IBM utilities). We're specifically interested in any
peculiarities of your computing systems which affect how an update
is or can be incorporated.
Considerations: OEPA has not accomplished all software updates because
we do not use all AQDHS-II programs. Furthermore, due to the problems which
we encountered with the AQDHS-II package, we have written our own programs tt
circumvent some of these problems. Upon receipt of the IBM-modified package,
we plan to'evaluate IBM's results and our current processing procedures.
257
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
SUBSYSTEM STATUS
Air Quality Data Handling Subsystem II (AQDHS-II);
Installed?
By whom?
Task Order Expiration
Operational since
Installation in progress?
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
Eddie Chin, Data & Systems Div.,0hio EPA
(date)
(date)
Yes
use since November 1974
No
(date)
Yes
No
(dates)
# 9
Date
Emissions Inventory Subsystem/Permits and Registration (EIS/P&R);
Installed?
By whom?
Task Order expiration
Operational since
Installation in progress
By whom?
Scheduled to be operational
Installation planned?
Installation schedule
Last update performed
Yes
No
(date)
(date)
Yes
No
(date)
Yes
No
(dates)
Date
258
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
AIR POLLUTION CONTROL MANAGER:
Please furnish full title and address of the State and/or Local (county
or municipal) agency responsible for all air pollution control activities
of the agency, and the name, title, address, and phone number of the
agency's director.
Name and Title: Jack A. Wunderle, Chief
Office of Air Pollution Control
Agency: ohio EPA
Address: 361 E- Broad St-
City: Columbus State: ohl° Zip: A3215
Phone Number(s): (614)466-6116
AQDHS-II DATA BASE COORDINATOR:
Name and Title: Douglas Dean
Supervisor, Air Quality Group
Address: ' Office of Air Pollution Control
Ohio EPA, 361 E. Broad St.
City: Columbu3 State: Ohio Zip: 43215
Phone Number(s): (614)466-7390
EIS/P&R DATA BASE COORDINATOR:
Name and Title: Not
Address:
City: State: Zip:
Phone Number(s) :
259
-------
SYSTEM STATUS/HARDWARE/SOFTWARE QUESTIONNAIRE
DATA PROCESSING PERSONNEL:
Director:
Management Contact:
Name and Title: Albert Merkel, Chief
Systems Analysis & Software Development Section
Address: Ohio EPA, Division of Data & Systems
361 E. Broad St.
City: Columbus State: Ohio Zip: 43215
Phone Number(s): (614)466-5760
AQDHS-II Contact (person responsible for performing updates):
Name and Title: Eddie Chin, Programmer Analyst
Address: Ohio EPA, Division of Data & Systems
« 361 E. Broad St.
City: Columbus State: Ohio zip: 43215
Phone Number(s): (614)466-5760
EIS/P&R Contact (person responsible for performing updates);
Name and Title: Not applicable.
Address:
City: State: Zip:
Phone Number(s):
Contract Support;
Please identify contractor and furnish name, address and phone number(s)
of any contract personnel supporting your CDHS subsystems.
Contrarf is now pending with IBM, Gaithersburg. Thify contract
is being arranged through Steve Goranson, USEPA, Region V.
260
-------
Appendix B - Test Run Series for AQDHS-II and EIS/P&R
Page
Introduction and Background 265
AQDHS-II Test 1 267
AQDHS-II Test 2 267
AQDHS-II Test 3 267
AQDHS-II Test 4 268
AQDHS-II Test 5 268
AQDHS-II Test 6 269
AQDHS-II Test 7 269
AQDHS-II Test 8 269
AQDHS-II Test 9 270
AQDHS-II Test 10 270
AQDHS-II Test 11 270
AQDHS-II Test 12 270
AQDHS-II Test 13 270
AQDHS-II Test 14 271
AQDHS-II Test 15 271
AQDHS-II Test 16 271
AQDHS-II Test 17 272
AQDHS-II Test 18 272
AQDHS-II Test 19 272
AQDHS-II Test 20 272
AQDHS-II Test 21 272
AQDHS-II Test 22 272
AQDHS-II Test 23 273
261
-------
Appendix B (Continued)
Page
AQDHS-II Test 24 273
AQDHS-II Test 25 273
AQDHS-II Test 26 273
AQDHS-II Test 27 273
AQDHS-II Test 28 274
AQDHS-II Test 29 274
AQDHS-II Test 30 275
AQDHS-II Test 31 275
AQDHS-II Test 32 275
AQDHS-II Test 33 276
AQDHS-II Test 34 276
AQDHS-II Test 35 277
AQDHS-II Test 36 278
AQDHS-II Test 37 278
AQDHS-II Test 38 279
AQDHS-II Test 39 279
AQDHS-II Test 40 279
AQDHS-II Test 41 280
AQDHS-II Test 42 280
AQDHS-II Test 43 281
AQDHS-II Test 44 281
AQDHS-II Test 45 281
AQDHS-II Test 46 282
AQDHS-II Test 47 282
AQDHS-II Test 48 282
262
-------
Appendix B (Continued)
Page
AQDHS-II Test 49 282
AQDHS-II Test 50 282
AQDHS-II Test 51 283
AQDHS-II Test 52 283
AQDHS-II Test 53 283
EIS/P&R Test 1 284
EIS/P&R Test 2 284
EIS/P&R Test 3 284
EIS/P&R Test 4 284
EIS/P&R Test 5 285
EIS/P&R Test 6 285
EIS/P&R Test 7 285
EIS/P&R Test 8 285
EIS/P&R Test 9 285
EIS/P&R Test 10 286
EIS/P&R Test 11 288
EIS/P&R Test 12 288
EIS/P&R Test 13 288
EIS/P&R Test 14 289
EIS/P&R Test 15 289
EIS/P&R Test 16 289
EIS/P&R Test 17 289
EIS/P&R Test 18 289
EIS/P&R Test 19 289
263
-------
Appendix B (Continued)
Page
EIS/P&R Test 20 289
EIS/P&R Test 21 289
EIS/P&R Test 22 290
EIS/P&R Test 23 290
EIS/P&R Test 24 290
EIS/P&R Test 25 290
EIS/P&R Test 26 290
EIS/P&R Test 27 290
EIS/P&R Test 28-31 290
264
-------
APPENDIX B
Both of the CDHS subsystems contain a series of test runs for use in
testing the subsystem and in providing user training on use of the subsystem.
At the present time, the test run series for AQDHS-II consists of 53 test
jobs and the EIS/P&R test run series of 31 test jobs.
Both test run series have been designed to exercise all aspects of the
systems, and each program in the system is tested. Each type of transaction
and option is tested in the various programs. The various error messages
are also tested (as an example, see TEST 37 of AQDHS-II which tests all
error messages in the Transaction Edit program TXTREDIT). As new problems
or modifications occur in the system, they are reflected by additions or
changes in the test runs.
Both the AQDHS-II and the EIS/P&R test run series begin by building
the initial files used for validation and edit. Next, the programs used to
convert the NEDS or SAROAD transactions to CDHS format are run. These
transactions are then edited and used to build the CDHS master file. Once
the initial master file is built, the various retrievals and reports are
run, as well as the programs to generate NEDS/SAROAD transactions. Then,
additional file maintenance runs and further tests of the other programs are run.
The descriptions in Appendix B explain what each test run accomplishes.
Each procedure is described, identifying the programs and files involved. The
origin of each file is listed to help in running specific tests. The listings
of the JCL to run the tests can be found in Appendix C.
The test run series is included in initial installation packages for
new users and is also available upon request to other users.
A baseline series of test runs is maintained for each system and
is used for troubleshooting and for acceptance testing of subsystem
modifications.
When a user reports a problem with either of the CDHS subsystems, he
sends information regarding the problem to NADB. When necessary, an attempt
is made to duplicate the problem on the baseline system. The test run series
is very useful for this, with additional data being added as needed for the
specific problems involved. By using the standard test jobs and the baseline
265
-------
system, it is possible to determine whether the problem is with the system
or with the user's installation, data, etc. Once a problem has been found
to be in the baseline system, corrections are tested on the baseline system
using the test run series prior to issuing them to the user or to issuing
a general update.
When a general update has been completed and installed on the baseline
system, the test run series is used for an acceptance test. This is con-
ducted under the supervision of the Project Officer. New data or new runs
should be added to test the modifications included in the update. The out-
put from these acceptance test runs should be kept for use in future trouble-
shooting.
266
-------
AQDHS-II TEST 1
Build the Initial Parameter Code Table
Test 1 executes the procedures AHQHUPD1, AHQNSENT, and AHQPMETH to build, and
list the initial parameter code table. AHQHUPD1 accepts the parameter data and
initiates the system sort program to sort the parameter data. The sorted data
is then passed to the HXTABLE1 program, which builds the two files HTPRM1AA and
HTPRM2AA. File HTPRM1AA contains the parameter codes, method codes, unit codes,
and minimum detectable values; File HTPRM2AA contains the associated prose
descriptions for these values.
HTPRM1AA is input to the procedure AHQNSENT, which consists of the
program NXSENTNL. This procedure copies HTPRM1AA and appends a sentinel
record so that the file can be used as input to the FORTRAN language
statistical analysis program. This flagged file is called NTPRM1AA.
Finally, the procedure AHQPMETH invokes the program PXMETHOD and uses
the files HTPRM1AA and HTPRM2AA to print a detailed parameter code table.
AQDHS-II TEST 2
Build the Initial Site Code Table
Test 2 executes the procedures AHQHUPD2 and AHQPSITE to build and test the
initial valid site code table. AHQHUPD2 accepts the valid site data and uses
the system sort program to sort the incoming data. The sorted data is then
passed to the HXTABLE2 program which builds the initial site code file HTSITEAA.
The procedure AHQPSITE uses the program PXSITE to print a detailed listing
site code file.
AQDHS-II TEST 3
Build the Initial Parameter Standards Table
Test 3 uses the procedures AHQHUPD3 and AHQPSTDS to build and list the
initial parameter standards table. AHQHUPD3 inputs the parameter standards data
and performs the system sort program on this data. The sorted data is then
passed to the HXTABLE3 program which builds the parameter standards file
HTSTNDAA.
The procedure AHQPSTDS uses the program PXPRMSTD to print a detailed
parameter standards table from the file HTSTNDAA.
267
-------
AQDHS-II TEST 4
Create an Old Format Master File
Test 4 uses the catalogued procedure AHQUBILD to build an old AQDHS
format master file.
AHQUBILD accepts the input transactions and builds an old AQDHS format
file using the program UXBLDSRD. The file OLDAQDHS is then sorted into proper
sequence.
AQDHS-II TEST 5
Convert Old Format Master File to AQDHS-II Transactions
Test 5 converts the old format file OLDAQDHS of Test 4 into new format
transactions and uses those transactions to build a master file. It also
prints a detailed list of the master file. This test job uses the procedures
AHQBCNVT and AHQELIST.
The procedure AHQBCNVT converts the old format file OLDAQDHS to new
format transactions. BXCONVRT is the only program invoked by this procedure.
A listing of the old format file and the new format file is printed.
The new format transactions created by AHQBCNVT are passed to AHQFUPDT.
The first program executed in this procedure is TXTREDIT which edits the
transactions for correctness and converts them to the internal format
required by the file maintenance program. Any errors found during the edit
are printed. There are three input files to TXTREDIT: the new format
transactions created by AHQBCNVT; HTPBM1AA, the key portion of the parameter
code table created in Test 1; and HTSITEAA, the valid site code file created
by Test 2.
The internal format transactions, which are the output from TXTREDIT,
are sorted into master file sequence by the system sort program and then
passed to the file maintenance program FXFILMNT. FXFILMNT matches the
transactions to the master file adding, changing, or deleting records as
indicated. In this test, there is no old master file. Since all the
transactions are add transactions, a new master file AQ102976 is created.
The last procedure AHQELIST produces a detailed list of the new
master file AQ102976. It executes the program EXRPTLST, which uses the
parameter code table (HTPRM1AA and HTPRM2AA, Test 1), the site code table
(HTSITEAA, Test 2). and the parameter standards table (HTSTNDAA, Test 3) to
produce a detailed, formatted listing of the master file.
268
-------
AQDHS-II TEST 6
SAROAD Input to AQDHS-II Transactions
This test converts SAROAD input transactions to AQDHS-II transactions.
It uses the procedure AHQCNVRT which consists of the program CXCONVRT. The
output file of AQDHS-II transactions is called AQTRANS. The list option to
print only valid transactions is used in this test.
AQDHS-II TEST 7
Master File AQ102976 Updated Using the Converted SAROAD Transactions (AQTRANS)
This test updates the master file AQ102976 created in Test 5 with
the transactions converted in Test 6 (AQTRANS) and prints a detailed report.
It uses the catalogued procedures AHQFUPDT and AHQELIST.
The procedure AHQFUPDT executes the program TXTREDIT. TXTREDIT edits the
transactions in AQTRANS and converts them to the internal format required
by the file maintenance program. The key portion of the parameter code
table (HTPRM1AA) and the valid site code table (HTSITEAA) is also input
to TXTREDIT. The FLAGW and LIST options are used.
The internal format transactions which are the output from TXTREDIT are
sorted and passed to the file maintenance program FXFILMNT. The LIST and
FLAGW options are used. The output.from FXFILMNT is the updated master file
AQ1029V3.
The last procedure AHQELIST produces a detailed list of the updated
master file AQ1029V3. It executes the program EXRPTLST, which uses the para-
meter code table (HTPRM1AA and HTPRM2AA, Test 1), the new site code table
(HTSITEAA, Test 2), and the parameter standards table (HTSTNDAA, Test 3) to
produce a detailed, formatted listing of the master file. The MEAN and
DISPLAY options are used.
AQDHS-II TEST 8
Master File AQ1029V3 is Updated by AQDHS-II Transactions
This test updates the master file AQ1029V3 from Test 7 using AQDHS-II
transactions on punched cards. It uses the catalogued procedure AHQFUPDT.
The transactions are edited and converted to internal format by the
program TXTREDIT. The LIST and FLAGW options are used. The internal format
transactions are sorted and passed to the file maintenance program FXFILMNT.
The output from FXFILMNT is the updated master file AQ1029V2. No detailed
listing is made of the master file.
269
-------
AQDHS-II TEST 9
Master File AQ1029V2 Updated by New Format Transactions
This test updates the master file from Test 8 with AQDHS-II format
transactions. A detailed report using the mean and display options is pro-
duced from the updated master file AQ1029C6.
AQDHS-II TEST 10
Master File AQ1029C6 Updated Using Composite Data
This test updates the master file from Test 9 using AQDHS-II format,
composite data transactions. The updated master file is AQ1029C2. No
detailed listing is made.
AQDHS-II TEST 11
Edit Composite Data
This test uses the transaction edit program to edit composite data. It
uses the catalogued procedure AHQTEDIT. AHQTEDIT performs the edit (TXTREDIT)
and sort programs but, unlike AHQFUPDT, does not perform the file maintenance
program (FXFILMNT). A file of internal format transactions, .TRANS, is
created and can be used later as input to the file maintenance program.
AQDHS-II TEST 12
Update Master File AQ1029C2 Using the Edited Transactions From Test 11
This test performs file maintenance on the master file AQ1029C2 created
by Test 10, updating it with the transactions edited by Test 11 (.TRANS). It
uses the procedure AHQMFUPD which executes the program FXFILMNT. The output
is the new master file AQ1019CC. No detailed list is produced.
AQDHS-II TEST 13
Submit Quarterly Report
This test uses the procedure AHQACNVT to submit the data on the master
file AQ1019CC (from Test 12) to SAROAD and then repeats the procedure to verify
that all data were submitted. AXCONVRT is the program executed by AHQACNVT.
The first execution of AHQACNVT converts file AQ1019CC to SAROAD input
format and flags each reading as sent ('S'). Three output files are created:
ADDFILE, the SAROAD add file; CHNGEFL, the SAROAD change file; and AQ102076,
the new master file with all readings flagged sent ('S').
AQ102076 is then used as the input for the second execution of AHQACNVT.
Since all the records are flagged as having been sent to SAROAD, there are
270
-------
no records written for the SAROAD add and change files. The only output is
the master file FTMSTRAE.
AQDHS-II TEST 14
Retrieve TSP Data
This test retrieves all data on the master file AQ102076 which is for
the parm code 11101 (TSP) and year >_ 1972. It uses the catalogued proce-
dure AHQRETVR which invokes the language processor LXLNGPRC. LXLNGPRC
uses the retrieval specification statements to build the retrieval program
This program is then compiled, link-edited, and executed. TSPG72 is the
resultant output answer file from this test. The answer file is produced
in master file format.
AQDHS-II TEST 15
Statistical Analyses of File TSPG72
This test performs statistical analyses of the data retrieved in Test
14 from master file AQ102076. It uses the catalogued procedures AHQMSENT,
AHQDANAL, and AHQSLIST.
AHQMSENT uses the program MXSENTNL to append a sentinel record to the
input file TSPG72. This sentinel record is required by the FORTRAN statis-
tical analysis program. The resultant flagged file is then passed to AHQDANAL.
AHQDANAL invokes the FORTRAN program DXSTATIS which computes the
following statistical information: minimum and maximum observations;
arithmetic mean; standard deviation; geometric mean and standard deviation;
percentage of readings present; and the 10th, 30th, 50th, 70th, 90th, 95th,
97th, 98th, and 99th percentile occurences.
The statistics file created in AHQDANAL (STAT15B) is passed to proce-
dure AHQSLIST which invokes the program SXPRINTS to produce a formatted
listing of this statistics file.
AQDHS-II TEST 16
Retrieval on AQ102076 Using Sliding Average Mode
This test reruns the retrieval in Test 14 in sliding average mode.
It uses the catalogued procedures AHQRETVR, AHQLAVGS, and AHQELIST.
AHQRETVR produces the sliding answer file TSPG72SA and passes it to
AHQIAVGS. AHQIAVGS uses the program IXSLDAVG to compute the sliding average
values file (ITSLDA16) from TSP672SA.
The procedure AHQELIST invokes the detail list program which produces a
formatted listing of ITSLDA16.
271
-------
AQDHS-II TEST 17
Retrieve S02 Data
This test uses the catalogued procedure AHQRETVR to retrieve all data
on the parm code 42401 (Sulfur Dioxide) taken later than 1972. S02672 is the
resultant answer file.
AQDHS-II TEST 18
Detailed List of TSPG72
This test uses the catalogued procedure AHQELIST to produce a formatted
listing of the data retrieved in Test 14.
AQDHS-II TEST 19
Update HTPRM1AA and HTPRM2AA
This test executes the same procedures as Test 1. Whereas Test 1 created
the initial parameter code table, Test 19 makes additions and changes to the
existing table. Files HTPRM1AB and HTPRM2AB are the two output file segments
of this updated table. File NTPRM1AB is file HTPRM1AB with an appended
sentinel record.
AQDHS-II TEST 20
Update HTSITEAA
This test executes the same procedures as Test 2. Whereas Test 2 created
the initial site code table, this test makes additions and changes to the
existing table. HTSITEAB is the file containing the updated table.
AQDHS-II TEST 21
Update HTSTNDAA
This test executes the same procedures as Test 3. Whereas Test 3
created the initial parameter standards table, this test makes additions and
changes to the existing table. HTSTNDAB is the file containing the updated
table.
AQDHS-II TEST 22
Master File Update
This test uses the two procedures AHQTEDIT and AHQMFUPD to update the
master file AQ102076 with AQDHS-II formatted transactions. AHQTEDIT consists
of the transaction editor (TXTREDIT) and the system sort program. AHQMFUPD
consists of the file maintenance program FXFILMNT. The updated parameter code
table created by Test 19 and the updated site code table created by Test 20
are used by the edit program. AQ102576 is the updated master file created by
this test.
272
-------
AQDHS-II TEST 23
Convert SAROAD Transactions to AQDHS-II Format
This test uses the procedure AHQCNVRT to convert SAROAD input transactions
to AQDHS-II format. CXCONVRT is the program executed by AHQCNVRT, and AQTRANS
is the resultant file.
AQDHS-II TEST 24
Master File Update
This test uses the converted transactions from Test 23 to update the
master file AQ102576. It performs the procedure AHQFUPDT which consists of
the transaction editor (TXTREDIT), the system sort, and the file maintenance
(FXFILMNT) programs. WRONG76 is the updated file created by this test.
AQDHS-II TEST 25
Retrieval on WRONG76
This test retrieves all data from 1976 and changes the status flags of the
data to "ADD." The AHQRETVR procedure is used with the USER option. This
option allows the retrieval statements to be entered as COBOL language state-
ments. In this test, the COBOL retrieval statements not only select the 1976
data but also change the status flags to "ADD." AQ102876 is the resultant
answer file.
AQDHS-II TEST 26
Submit Quarterly Report
This is the second test run involving the AQDHS-II to SAROAD conversion
program (see Test 13). The master file created in Test 25, AQ102876, is used
as input to the conversion program AXCONVRT. This program is invoked by the
procedure AHQACNVT. The output files are ADDFILE, CHNGEFL, and the new master
AQ102V2.
AQDHS-II TEST 27
Retrieve Data From Test 26 on Year 1976 and List with Dump Program
This retrieval run selects all data from the output master file from
Test 26, AQ1027V2, that is from the year 1976. The catalogued procedure
AHQRETVR invokes the language processor LXLNGPRC to produce a source program
with the desired retrieval instructions. This program is then compiled, link-
edited, and executed to produce the desired output file of 1976 data, AQ76DATA.
This file is passed on to the catalogued procedure AHQDUMP. This is the only
use made of AHQDUMP in the entire series of test runs. This procedure invokes
273
-------
the program AQSDUMP (a debugging tool used by RTI replaced by the standard
program in the baseline test run series delivered to users). As its name
implies, this program produces a concise listing of the master or answer file
contents. Each non-repeating field of the master record is labeled, and each
record is printed on a maximum of 6 lines, separately from the other records.
AQSDUMP is perhaps most useful when one is primarily interested in the fields
of individual records without regard for comparisons among the data of related
records.
AQDHS-II TEST 28
Data Analysis of Test 17 File (S02 Data, 1972 to Present)
So that it can be input to the FORTRAN data analysis program, the file
created in Test 17 (S02G72) has a sentinel record appended to it by the pro-
gram MXSENTNL. The output file name is STAT78. This is accomplished in the
catalogued procedure AHQMSENT. The program DXSTATIS, which performs the actual
analysis, is then called by the procedure AHQDANAL. Printing of the resulting
SCL analysis data file (STAT28B) is carried out by SXPRINTS.
AQDHS-II TEST 29
Sliding Average Retrieval of Test 13 Output File
This run deals with the same data that the preceding test did (SCL data,
from 1972 on). However, this time it goes back to the input file of Test 17,
AQ102076, (output of Test 13) and retrieves the data in sliding average mode.
The only difference between the retrieval language statements of Test 17 and
those of this test run is the appearance of the mode keyword 'SLIDING' on the
'$$SELECT' card.
After the catalogued procedure AHQRETVR retrieves the desired answer
file in sliding average mode, S02672SA, the next step is to run the file
through IXSLDAVG, the program which computes the sliding average values.
This is accomplished by invoking the procedure AHQIAVGS. The output file,
ITSLDA29, is printed by invoking the procedure AHQELIST which uses the detail
list program EXRPTLST. Notice that EXRPTLST can handle answer files of either
type, standard or sliding average, since the file records of both are in the
same format.
User-supplied control cards enter in to both the sliding average
program and the detail list program. For this run, the sliding average
interval chosen is 3 readings, and the listing option card places no
restriction on the listing of actual data values (N>9997).
274
-------
AQDHS-II TEST 30
List the SO? Data Retrieved in Test 17
Like the preceding two tests, this run prints information from the Test 17
data. What distinguishes this test from the other two is the fact that Tests
28 and 29 list SO- data that is first massaged by the statistical analysis
and sliding average programs, whereas this test prints the raw SCL data as it
was retrieved in TEST 17. Therefore, only the catalogued procedure AHQELIST
is used in this run; it calls the detail list program EXRPTLST to list the
standard answer file. Note that this is the same program that listed the
sliding average answer file in Test 29.
AQDHS-II TEST 31
Data Analysis of File From Test 27 (1976 Data)
This test run and the following two do for the 1976 data retrieved in
Test 27 (AQ76DATA) what Tests 28 through 30 did for the SCL data retrieved in
Test 17. They manipulate the retrieved data to produce the three types of
information files that can be provided by the AQDHS-II subsystem: (1) the
standard answer file, (2) the sliding average file, and (3) the statistics
file.
This test corresponds to Test 28 in that it also performs statistical
analysis on the raw data retrieved in Test 27. First, the catalogued proce-
dure AHQMSENT invokes the program MXSENTNL to append a sentinel record to the
Test 27 answer file. This preliminary processing is for the benefit of the
FORTRAN program DXSTATIS which is called next by the procedure AHQDANAL to
perform the actual analysis. The third procedure in the stream is AHQSLIST
which lists the statistics file STAT31B by using the program SXPRINTS.
AQDHS-II TEST 32
Sliding Average of 1976 Data Retrieved from Test 26 Output File
This is precisely the same job stream as Test 29 except for differences
in the retrieval language and in the input files used. Whereas the retrieval
language in Test 29 called for S02 data, the language in this run requests
1976 data. Also, Test 29 used the same input file that Test 17 used while this
test shares Test 27's input file (AQ1027V2, the output file from Test 26).
The job stream calls for the execution of the following catalogued
procedures listed in order of their occurrence: (1) AHQRETVR, which uses
LXLNGPRC to create and run the sliding average mode retrieval program; (2)
275
-------
AHQIAVGS, the procedure that employs IXSLDAVG to compute the sliding averages,
and (3) AHQELIST, the procedure which invokes EXRPTLST to take the answer
file (in this case a sliding-average file, ITSLDA32) and list it.
A control card is included for each of the last two programs, the sliding
average calculator and the detail list program. The specifications are
again as they were in Test 29: the sliding average interval is 3, and
there is no restriction on values to be displayed.
AQDHS-II TEST 33
Listing of Data from Test 27 (1976 Data)
This is similar to Test 30. Here, the standard answer file created in
Test 27 is listed as it is, without any alterations. Only the detail list
program EXRPTLST, which is invoked by the procedure AHQELIST, is needed to
perform this task. In the report option control card, displayed values are
those not equal to zero.
AQDHS-II TEST 34
Split File from Test 26 into Two Separate Files and Merge Them Back Again
This run has the largest number of procedures executed of any in the
entire test series. Yet despite this indication of complexity, the aim of
the run is simple: to demonstrate the effectiveness of the merge procedure
AHQMERGE. This is accomplished by first splitting the file into two complemen-
tary answer files, RTANSR15 and RTANSR16, then merging them again, and finally
retrieving from both the original file and the merge file AQFINAL a set of two
specific records which should match exactly, thus demonstrating the validity of
the merge program.
The splitting process is accomplished with two executions of the
retrieval procedure AHQRETVR. The first retrieval takes out all data from
the Test 26 file that has a year greater than 1971. The second execution
retrieves from the same master file all the other data, that is, all data
with the year less than 1972.
Certainly, if these two answer files are merged properly, the resulting
file should have the very same contents as the original master file from
Test 26. The program AXMERGE, which performs this merging operation, is
therefore invoked by procedure AHQMERGE. At this point, one check for
proper merging can already be made. The number of records in the initial
master file should equal the number in the merge file; this is the case,
for each file contains 195 records.
276
-------
However, more checking for accurate merging may be done. With this
in mind, a retrieval on two specific records keys is made from each of the
files to be compared, the initial master file and the merged file. For each
file, this is accomplished by executing the procedure AHQRETVR. Then, the
standard answer files from both retrievals are printed using the procedure
AHQELIST. These listings reveal, as expected, that the same two records
were retrieved from each file.
Test 34 is the only instance in the entire run series that uses the
merging program AXMERGE. AXMERGE requires exactly two input master files;
the program merges these files into a single file in record key order. Note
that the two input file to AXMERGE used in this test have no record keys
in common since they are separated from each other by the year field. AXMERGE
requires, in fact, that there be no record keys common to the two input files.
If it should find a record key in both files, it will terminate the merging
process at that point.
In this test run, the merged file coming from AXMERGE is called AQFINAL
(this is the lowest level index of its data set name). This file will be
referred to in almost half of the remaining tests in which it is used as
an input file.
AQDHS-II TEST 35
Process, Compile, and Link-Edit Retrieval Skeleton Program for Later Execution
This test run and the next one split the retrieval procedure AHQRETVR
into two separate procedures. Recall that AHQRETVR is divided into 4 steps:
(1) execution of the program LXLNGPRC which fills in the retrieval skeleton;
(2) compilation of the resulting program; (3) link-editing of the program;
and (4) execution of the program, which results in the retrieval being
carried out. In this test, only the first three steps are executed. At the end
of this run, a program will be compiled and link-edited which will be capable
of retrieving, in this case, all the records from a master file that are
from site number 1 in Hawaii.
The advantage of using AHQRTRCL rather than the more expansive procedure
AHQRETVR may be seen when one wishes to make repeated retrievals using the
same retrieval language specifications. In this situation, if one were to
rely on AHQRETVR, the skeleton program would have to be reproduced, re-
compiled, and link-edited again each time the retrieval is needed. On the
277
-------
other hand, only one execution of AHQRTRCL would be needed to produce a
link-edited retrieval program that can be executed any time and as often as
the specified retrieval is needed.
AQDHS-II TEST 36
Execute the Retrieval Program Created in Test 35 to Retrieve Data from AQFINAL,
The Master File from Test 34
This test simply represents the completion of the retrieval process
started in Test 35. The execution of the output program (name) from Test 35,
which would be the fourth step in the procedure AHQRETVR, is here the only
step in a new catalogued procedure AHQRTRGO. Thus, one can see that an
execution of the procedure AHQRTRCL (from the last Test) followed by an
execution of AHQRTRGO using the output program from AHQRTRCL produces
the same results as an execution of AHQRETVR. The input file was AQFINAL.
The standard answer file RTANSR36 produced by AHQRTRGO is listed by the
detail list program in the procedure AHQELIST. The report options control
card is omitted in this run; a warning message indicates that the list program
assumes that the mean option is to be used and that all values are to be
displayed.
AQDHS-II TEST 37
Exercise Error Messages of Transaction Editor
A break is taken from retrieval in this test run and the following
one to demonstrate the proper functioning of the 66 error and warning
messages that may be generated by the transaction editor program TXTREDIT.
This is the largest number of error messages of any program in the AQDHS-II
subsystem; the accuracy of each of these editing checks is necessary to
insure the integrity of the master file each time it is updated.
In this run, 292 errors are detected by TXTREDIT; from these, 65 of the
66 different error and warning messages appear. On the options card for this
test, one of the keywords that appears is 'FLAGW,' which indicates that the
warning messages as well as the error messages are to appear in the diagnostic
listing; 3 of the 66 edit checks produce only warning-level messages.
Note that in this test AHQTEDIT, the transaction edit procedure, is not
followed up by AHQMFUPD, the file maintenance procedure. The purpose of this
run is not to update any existing master file but only to test the various edit
checks. The valid transactions will not be used in any of the remaining runs
of the test series.
278
-------
AQDHS-II TEST 38
Exercise Error Messages of Transaction Editor (Continued)
This run tests TXTREDIT, the transaction editor, for the only error
message that was not generated by Test 37. This message arises when an invalid
option card is detected prior to the editing of any transactions. The only
valid keywords for the option card are 'LIST,' 'NOLIST,' 'FLAGW,' and
'NOFLAGW.' As the diagnostic messages listing indicates, the option card
image for this test run is 'UTTER NONSENSE.' The error message itself indicates
that the run is aborted. This is the reason why this error could not be in-
cluded with the 65 other error messages in Test 37; no other input records
would be edited when this error occurred, so no other errors could be detected.
AQDHS-II TEST 39
Retrieve Positive Temperature Data from AQFINAL, Output File from Test 34
The next nine tests, including this one, involve retrieval with a variety
of retrieval specifications and answer file types. All retrievals in
these tests will be made from AQFINAL.
In this run, positive temperature data is specified for retrieval.
The fact that the data called for is "positive" has particular significance;
only through a recent update of the AQDHS-II subsystem, has negative data
become acceptable to the system. The retrieval is accomplished using the
series of two procedures AHQRTRCL and AHQRTRGO rather than the single pro-
cedure AHQRETVR. Recall that AHQRTRCL produces the link-edited retrieval
program, and AHQRTRGO executes that program to retrieve the data. The standard
answer file RTANSR39 is listed using the procedure AHQELIST. The mean option
is used in the detail list, and all values are displayed.
AQDHS-II TEST 40
Retrieve All Negative Data from AQFINAL and Compute Sliding Averages
In this test run, all the negative data is retrieved. Again, two procedures
are used to obtain the retrieval: (1) AHQRTRCL, which produces the link-edited
retrieval program; and (2) AHQRTRGO, which executes this program.
The retrieval language specifications indicate that the answer file
is to be in sliding average format. Logically, the next step in the job
stream after the creation of the answer file RTANSR40 is the execution of
AHQIAVGS, the procedure which invokes the sliding average computation program,
279
-------
IXSLDAVG; the options card for this program specifies a 5-reading interval
for calculating the averages.
The last step in the test is the listing of the sliding average file
ITAVGS40. AHQELIST is the detail list procedure; the report options control
card indicates no restrictions are on the values to be listed.
AQDHS-II TEST 41
Retrieve from AQFINAL Data With Decimal Position of 1 and List Using Sum Option
This retrieval run has a variety of specifications in its retrieval
language, but the chief criterion is that the data have a decimal code of 1
(in other words, that the data be expressed in tenths). Retrieval is
accomplished by the execution of the AHQRTRCL and AHQRTRGO procedures.
A detailed listing of the standard answer file RTANSR41 is performed
using the AHQELIST procedure. Two departures from the report options that have
been used in the previous run may be noted. First, the sum option is specified
in this test. The primary differences between the mean option and the sum
option are as follows: (1) summary information is taken only on each
row in the sum option while in the mean option it is taken on both row
and column; (2) the mean value of the readings in each row, calculated for
the mean option, is replaced by the sum of the readings in that row when
the sum option is specified; and (3) the maximum value of each row, which is
given in the mean option, is omitted in the sum option. The other departure
from the report options norm is the display criterion, which here allow
only values greater than .1 to be listed. Although the retrieval specifications
allow for negative data, none of the negative readings that appear in the answer
file will be displayed for this reason.
AQDHS-II TEST 42
Retrieve Hourly Data From AQFINAL and Compute Sliding Average With Interval of 12
This run is another retrieval in sliding average format. The answer
file RTANSR42 contains all hourly data. This test reverts to the single proce-
dure AHQRETVR to perform its retrieval. Then, it executes the procedure AHQIAVGS
to compute sliding averages; an interval of 12 readings for these calculations
is indicated by the options card. Finally, the sliding file ITSLDA42 is listed
using AHQELIST. The display criterion is that the data be greater than 1.
280
-------
AQDHS-II TEST 43
Compute Sliding Average With Interval of 3 From Answer File in Test 42
The intermediate file in Test 42, which is the hourly data answer file
RTANSR42 created directly from AQFINAL, is input to this program (name). New
sliding averages are calculated for this same data file; this time an interval
of 3 is used instead of the 12-reading interval in the preceding run. After
the procedure AHQIAVGS is executed to produce the sliding average file, ITSLDA43,
this file is listed by AHQELIST with all values being displayed. If one compares
the values displayed in the detail list of the preceding test with the
corresponding values in this test, one will notice a greater short-term
fluctuation in the readings for this run. This is to be expected since this
run has a shorter interval of averaging than that of the preceding run.
The larger the number of values that one averages together, the smaller
the contribution of any one of the values.
AQDHS-II TEST 44
Retrieve Certain Form 2 and Form 3 Data From AQFINAL and Compute Sliding
Average Over an Interval of 6
This test and the following one mirror the action of Tests 42 and 43.
They take the same answer file RTANSR44 and perform sliding averages on it over
different intervals producing output file ITSLA44.
The sliding average answer file is now composed of all Form 2 and
Form 3 wind speed data. The retrieval is accomplished by AHQRETVR. Sliding
average values are calculated using AHQIAVGS, and the resulting file ITSLDA44
is listed by AHQEHST. The sliding average interval is six readings.
AQDHS-II TEST 45
Compute Sliding Average With Interval of 2 From Answer File in Test 44
This run produces the second sliding average calculation on the answer
file (name) with Form 2 and Form 3 data that was retrieved in the last run.
The calculations are performed over two-reading intervals using the procedure
AHQIAVGS. After the sliding average file (ITSLAD45) is produced, it is listed
using AHQELIST. One can compare the values generated in the last test, where
the interval was 6, with those in this run, with the interval of 2. As with
Tests 42 and 43, the averages calculated with the shorter interval show greater
variability over a limited range than those computed with the longer interval.
281
-------
AQDHS-II TEST 46
Retrieve a Standard Answer File From AQFINAL Based on the Data Field Values
This is the last retrieval in this series of test runs. The records
selected are those which contain a reading in either of two disjoint sets:
these are, roughly (1) all negative readings and (2) readings greater than
20. AHQRTRCL produces the link-edited retrieval program, and AHQRTRGO follows
to execute this program. The next test run continues operations on this
answer file RTANSR46.
AQDHS-II TEST 47
Do A Statistical Analysis on the File Retrieved in Test 46
For the last eight test runs, all listings of retrievals have all been
of standard answer files or sliding average files. For variety, a statistical
list will be produced for the answer file in the last run. First, the answer
file must have a sentinel record appended to it; this is performed by the
procedure AHQMSENT. Next, procedure AHQDANAL invokes the statistical analysis
program to analyze the files. The output data file, STAT47B, from this
procedure is listed by AHQSLIST.
AQDHS-II TEST 48
Convert SAROAD Transactions to AQDHS-II Transactions Without Option Card
This is the first of a series of three tests which demonstrate the various
possiblities for the option card contents for CXCONVRTf the program invoked
by AHQCNVRT which converts SAROAD transactions to AQDHS-II transactions.
This option card determines whether the valid input and the output trans-
actions will be listed. In this run, no option card is supplied. However,
rather than aborting the run, the conversion program defaults to the option
of not listing the valid transactions. Note that no matter what the option
specified, the erroneous transactions are always listed.
AQDHS-II TEST 49
Convert SAROAD to AQDHS-II Transactions With List Option
In this run testing the CXCONVRT options, the option card is present
and contains the word 'LIST.' This indicates that all input and output
transactions, both good and bad, are to be listed.
AQDHS-II TEST 50
Convert SAROAD to AQDHS-II Transactions With NOLIST Specified
The only option possibility for CXCONVRT that has not been covered
in the preceding two runs is used here. The option card is present, and 'NOLIST'
282
-------
is specified. Only those transactions in error are listed. Recall that
this is the default option, as discussed in Test 48.
AQDHS-II TEST 51
Attempt to Convert Invalid SAROAD Transactions to AQDHS-II Transactions
This is the fourth test in succession that executes CXCONVRT. Although
the default option of 'NOLIST' is taken here, all transactions are listed.
The reason that this seeming inconsistency is true is that all the trans-
actions are in error; no output transactions are generated by this run. Thus,
this test amounts to an exercising of a good number of the edit checks in
CXCONVRT.
AQDHS-II TEST 52
Try Running File Maintenance After Flagging Master File AQFINAL
The last two tests in this series demonstrate the relationship between
•MXSENTNL, DXSTATIS, and other programs. Recall that whenever a statistical
analysis needs to be performed on an answer file, MXSENTNL must be executed
to append a sentinel record and reformat the file before DXSTATIS may be
used to analyze the file. This, of course, is because DXSTATIS is written
in FORTRAN and so requires an end-of-file record and specific format to run
successfully. Furthermore, no other program in AQDHS-II is written in
FORTRAN; for this reason, DXSTATIS is the only program established to handle
a master file with a sentinel record.
In this run, the procedure AHQMSENT invokes MXSENTNL to add the sentinel
record to the master file. Then, AHQMFUPD is executed in an attempt to run
the file maintenance program on the master file. This is impossible since
the COBOL program FXFILMNT is not intended to handle a flagged file; as a
result, the run is aborted.
AQDHS-II TEST 53
Try Running Statistical Analysis on Unflagged Master File AQFINAL
This final test in the series is, in a sense, the reverse of Test 52.
There, a program other than DXSTATIS was run against a flagged master file.
Here, DXSTATIS is run directly against an unflagged master when the proce-
dure AHQDANAL is executed. However, the FORTRAN program DXSTATIS requires
a sentinel program be executed on the master file prior to using it as in-
put to DXSTATIS; since MXSENTNL is not executed beforehand, the run is a-
borted. In short, whenever DXSTATIS is run, MXSENTNL must be run first.
Otherwise, DXSTATIS will not run.
283
-------
EIS/P&R TEST 1
Create the Official NADB Emission Factors Table
In this test run, the official NADB Emission Factor table is created
using the program TXTBLGEN. The catalogued procedure PNRTBGEN invokes
the program TXTBLGEN which sorts the input transactions and then builds
the Emission Factor Table. This program is not a table maintenance program
but only a table generator program; therefore, in order to modify the table,
you must regenerate the entire table.
EIS/P&R TEST 2
Convert NEDS Format Transactions and Merge them with EIS/P&R Transactions
In this test run, NEDS area and point source format transactions are
converted to EIS/P&R format transactions and merged with transactions
coded in EIS/P&R format.
The NEDS point source to EIS/P&R format conversion program CXNEDSCV
is invoked by the catalogued procedure PNRCNVRT while the NEDS area to
EIS/P&R format conversion program DXNEDSAS is invoked by the catalogued
procedure PNRDCONV. After the NEDS transactions are converted to EIS/P&R
format they are merged into one file by the program TXCONCAT which is invoked
by the catalogued procedure PNRCNCAT. The merged file is then merged with
the transactions coded in EIS/P&R format. This file is then sorted into the
proper sequence using the transaction sorter program IXTRNSRT which is invoked
by the catalogued procedure PNRISORT.
EIS/P&R TEST 3
Create the Initital EIS/P&R Master File
In this test run, the sorted transactions file created in test 2 is pro-
cessed by the emission factors insertion program KXEMFINS which is invoked
by the catalogued procedure PNRKEFIN. After the emission factors are inserted,
the initial master file is then created by the file maintenance program
FXFILMNT which is invoked by the catalogued procedure PNRFUPDT. A detailed
explanation of the file maintenance program can be found in Section 3.1 of
the EIS/P&R Documentation Manual (EPA-450/3-74-045-a).
EIS/P&R TEST 4
Produce the Area Source Report
In this test run, an area source report of the area source data in the
284
-------
initial master file is generated by the program HXANREPT, which is invoked by
the catalogued procedure PNRHREPT.
A detailed explanation of the area source report program can be found
in Section 4.4 of the EIS/P&R Documentation Manual.
EIS/P&R TEST 5
Detail List of EIS/P&R File
In this test run, the complete EIS/P&R master file created in Test 3 is
listed by the program PXFILPRT which is invoked by the catalogued procedure
ONRPREPT. A detailed discussion of the master file print program can be
found in Section 4.3 of the EIS/P&R Documentation Manual.
EIS/P&R TEST 6
Update the Master File
In this test run, the file maintenance program is used to update the
master file. As in all file maintenance runs, the transactions should be run
through the transaction sorter before being processed by file maintenance.
EIS/P&R TEST 7
Update the Master File
In this test run, the file maintenance program is used to update the
master file. As in all file maintenance runs, the transactions should be run
through the transaction sorter before being processed by file maintenance.
EIS/P&R TEST 8
File Maintenance Using Generated Transactions
In this test run, a user Emission Factor Table is created using the
catalogued procedure PNRTBGEN. This emission factor file is then used
in conjunction with the program EXTRNGEN to generate EIS/P&R transactions
which are used to update the master file. This procedure is called an auto-
matic file update and is used when emission factors or SCC's are added or
changed.
EIS/P&R TEST 9
Retrieval
The Retrieval Language Processor program generates the actual Retrieval
program based on English-like requests entered by the user. These retrieval
requests are edited and, if no severe error is found, the Retrieval program
is compiled and executed to extract any data meeting the user's specification.
Those records in the Master File which have qualified are placed in a separate
285
-------
Answer File for processing. The records in the Answer File are in the same
order and have the same formats as the records in the Master File. The Answer
File, therefore, may be used by any program which accepts the Master File
for processing. Care should be used, however, as modifications to the Answer
File will not be reflected in the Master File. In other words, performing an
update on an Answer File will not update the Master File.
Every retrieval request contains two control cards in addition to the
retrieval specification. The $$END card signals the end of the request. The
$$SELECT card signals the beginning of the request and the type of request.
There are three different types of request: EIS/P&R retrieval language
specifications, inline COBOL language specifications, and copied COBOL
language specifications.
EIS/P&R TEST 10
Master File Sort
The Master File Sorter program produces an Answer File sorted as
specified in the input to the Master File Sorter Generator program. This
Answer File can be used as input to the Retriever, the Summary Report, and
the File List programs. The contents of the Answer File varies depending
on what files are being used for the sort.
For sort purposes, a logical record consists of the fixed segment
(type 0 record), point source segments (type 1 record), machine process
segments (type 2 record), and permits and registration segments (type 3
record). The machine process fields in the repeating portion of the machine
process (type 2) record and all fields of the permits and registration records
cannot be used for sort fields. All type 3 records are ignored by the Master
File Sorter and do not ever appear in the Answer File produced by the Master
File Sorter.
The Answer Files generated by the sort program will differ, depending
on which type record the sort fields are in. Although the Answer File
generated by the sort program will be in Master File format, the content of
the Answer File will differ depending on the record type in which the sort
fields reside. The following will illustrate these differences.
a) Sort fields from the fixed segment (record type 0).
A logical record will be generated for each sorted type
0 record. Each type 0 record will be accompanied by its
286
-------
associated type 1 and type 2 records. No new records
are created.
b) Sort fields from the fixed portion of the point source segment
(record type 1).
A logical record will be generated for each sorted type
1 record. Each type 1 record will be accompanied by its
associated type 2 records and for each type 1 record, the
proper type 0 record will be created. The new records
created are the type 0 records, since each type 1 record
now physically carries its own type 0 record (as opposed
to the Master File in which a type one record along with
other type one records are under a 0 record).
c) Sort fields from the repeating portion of the point source
segment (record type 1).
A logical record will consist of a new sorted type 1
record for each repetition in the type 1 record. Each
of these newly created type 1 records will have the
original type 1's and 2 records and type 0 record created
also. The new records created are type 1 records because
each repetition now becomes its own individual type 1
record and type 0 and 2 records because the new type 1
record must physically include its type 0 and 2 records
with each new type 1 record created from a type 1 repetition.
d) Sort fields are from the fixed portion of the machine process
segment (record type 2).
A logical record will be generated for each sorted type 2
record. For each type 2 record, the proper type 0 and
type 1 record will be created. The new records created are
the type 0 and type 1 records, since each type 2 record now
carries its own type 0 and type 1 records.
e) Sort fields are from the repeating portion of the point source
segment (record type 1) and the fixed portion of the machine
process (record type 2).
A logical record will consist of one newly sorted type 1
repetition record (created as its own complete physical
287
-------
type 1 record), one sorted type 2 record (broken from the
other type 2 records) and the corresponding type 0 records.
For example, from one logical record in the Master File
consisting of a type 0 record, a type 1 record with three
repetitions, and two type 2 records, the sort program will
generate these six logical records:
[ (type 0, type 1 (repeat 1), type 2 (1)),
(type 0, type 1 (repeat 2), type 2 (1)),
(type 0, type 1 (repeat 3), type 2 (1)),
(type 0, type 1 (repeat 1), type 2 (2)),
(type 0, type 1 (repeat 2), type 2 (2)),
(type 0, type 1 (repeat 3), type 2 (2)) ]
The sort order of all these logical records (as explained in a through
e) in the Answer File will be dependent on the control cards i
-------
EIS/P&R TEST 14
Generate a Summary Report on the File Created in Test 13
In this test run, a summary report is generated for the file created
in Test 13. In this test run, the file is summarized by pollutant.
EIS/P&R TEST 15
Retrieval Using a Copy Member
In this test run, the retrieval program is executed using a member
which contains the retrieval language statements.
EIS/P&R TEST 16
Sort the Answer File Created in Test 15
In this test run, the file created in Test 15 is sorted on POLLUTANT-
ID, AQCR, COUNTY, and PLANT-ID.
EIS/P&R TEST 17
Generate a Summary Report from the File Created in Test 16
In this test run, the file created in Test 16 is summarized by pollutant.
EIS/P&R TEST 18
Retrieve All Area Source Data from the Current Master File
In this test run, all area source data is retrieved from the master
file. After the data has been retrieved, it is processed through the EIS/P&R
to NEDS area source conversion program AXASNEDS (invoked by the catalogued
procedure PNRANCNV) to create a file of NEDS formatted area source cards.
An area source report is then created for the NEDS area source files.
EIS/P&R TEST 19
Retrieve the Point Source Data and Convert it to NEDS Format
In this test run, all point sources are retrieved from the master file
and converted to NEDS format for submission to NEDS.
EIS/P&R TEST 20
Ad Hoc Run
In this run, an answer file is retrieved from the master file consisting
of all records containing any pollutants. This file is then sorted and
summarized. The runstream for this test incorporates into one runstream
several similiar runstreams which were run separately in previous test runs.
EIS/P&R TEST 21
AD HOC RUN
In this test, the current EIS/P&R master file is updated with change
transactions having a date of record of '73025'. Then, using the retrieval
289
-------
program and the new EIS/P&R master file as Input, an answer file consisting
of records having a date of record greater than '73001' is created. This
answer file is then used as input to the EIS/P&R to NEDS conversion program
to provide NEDS transactions of the changes.
EIS/P&R TEST 22
File Maintenance using Type 30 Cards
In this test run, the master file created in Test 21 is updated by adding
type 30 records. The type 30 add cards generate a segment 3 record in the
master file which is the Permits and Registration Segment.
EIS/P&R TEST 23
Retrieve and Print All Segment 3 Data
In this test run, an answer file consisting of all plants containing
any segment-3 records is created from the EIS/P&R master file created in
Test 22. This answer file is then printed by the detail list program.
EIS/P&R TEST 24
Retrieve and Generate EIS/P&R Transactions
In this test run, the retrieval program is executed to retrieve a
single plant within a county. This answer file is then used to generate
EIS/P&R transactions for that plant for future use.
EIS/P&R TEST 25
Add a Machine Process
In this test run, segment 2 records are merged with the transactions
generated in Test 24. After the transactions are merged they are sorted
into the proper sequence and saved in a disk file.
EIS/P&R TEST 26
Update the Master File
In this test run, the transactions prepared in Test 25 are applied to
the current EIS/P&R Master File.
EIS/P&R TEST 27
Retrieve and List the Plant Update in Test 26
In this test run, the plant updated in Test 26 is retrieved and listed.
EIS/P&R TEST 28-31
EXTRNGEN EXAMPLES
In these test runs, the transaction generator program, EXTRNGEN (invoked
by PNREFUPD), was exercised using all four modes: A, X, T, and N.
290
-------
Appendix C - CHDS Test Jobs
Page
Introduction and Background 295
AQDHS-II TEST01 297
AQDHS-II TEST02 302
AQDHS-II TEST03 303
AQDHS-II TEST04 305
AQDHS-II TEST05 307
AQDHS-II TEST06 308
AQDHS-II TEST07 317
AQDHS-II TEST08 319
AQDHS-II TEST09 325
AQDHS-II TEST10 326
AQDHS-II TEST11 327
AQDHS-II TEST12 328
AQDHS-II TEST13 329
AQDHS-II TEST14 330
AQDHS-II TEST15 331
AQDHS-II TEST16 332
AQDHS-II TEST17 333
AQDHS-II TEST18 334
AQDHS-II TEST19 335
AQDHS-II TEST20 336
AQDHS-II TEST21 337
AQDHS-II TEST22 338
291
-------
Appendix C (Continued)
Page
AQDHS-II TEST23 339
AQDHS-II TEST24 346
AQDHS-II TEST25 347
AQDHS-II TEST26 348
AQDHS-II TEST27 349
AQDHS-II TEST28 350
AQDHS-II TEST29 351
AQDHS-II TEST30 352
AQDHS-II TEST31 353
AQDHS-II TEST32 354
AQDHS-II TEST33 355
AQDHS-II TEST34 356
AQDHS-II TEST35 357
AQDHS-II TEST36 358
AQDHS-II TEST37 359
AQDHS-II TEST38 362
AQDHS-II TEST39 363
AQDHS-II TEST40 364
AQDHS-II TEST41 365
AQDHS-II TEST42 366
AQDHS-II TEST43 367
AQDHS-II TEST44 368
AQDHS-II TEST45 369
AQDHS-II TEST46 370
AQDHS-II TEST47 371
292
-------
Appendix C (Continued)
Page
AQDHS-II TEST48 372
AQDHS-II TEST49 373
AQDHS-II TEST50 374
AQDHS-II TEST51 375
AQDHS-II TEST52 376
AQDHS-II TEST53 377
EIS/P&R TEST1 378
EIS/P&R TEST2 380
EIS/P&R TEST3 385
EIS/P&R TEST4 386
EIS/P&R TESTS 387
EIS/P&R TEST6 388
EIS/P&R TEST? 389
EIS/P&R TESTS 390
EIS/P&R TEST9 392
EIS/P&R TEST10 393
EIS/P&R TEST11 394
EIS/P&R TEST12 395
EIS/P&R TEST13 396
EIS/P&R TEST14 397
EIS/P&R TEST15 398
EIS/P&R TEST16 399
EIS/P&R TEST17 400
EIS/P&R TEST18 401
EIS/P&R TEST19 402
293
-------
Appendix C (Continued)
Page
EIS/P&R TEST20 403
EIS/P&R TEST21 405
EIS/P&R TEST22 406
EIS/P&R TEST23 408
EIS/P&R TEST24 409
EIS/P&R TEST25 410
EIS/P&R TEST26 411
EIS/P&R TEST27 412
EIS/P&R TEST28 413
EIS/P&R TEST29 414
EIS/P&R TEST30 416
EIS/P&R TEST31 417
294
-------
APPENDIX C
Appendix C contains listings of the job stream (JCL and test data) used
to run the AQDHS-II and the EIS/P&R test run series. The JCL is for use on
an IBM OS/MVT computer. The listings for the AQDHS-II series illustrate the
JCL needed to run using the baseline system at the Washington Computer Center
(WCC). The procedure names are unique for the baseline system. For each run,
the prefix AHQ must be replaced by AQS to reflect the standard procedure names.
The listings for the EIS/P&R series show JCL used at the TUCC computer, Research
Triangle Park, North Carolina. Both series show local project and file names.
These would need to be changed to be run on a users own system.
As an example of how to use these listings and to run the test series,
we will use the AQDHS-II system. The EIS/P&R system is run similarly. The
AQDHS-II system as sent in an initial installation package is contained in
five partitioned data sets. Using the names given in the installation deck
(see Figure 3.15), these are
a) CDHS.AQS.JCL, containing the JCL procedures needed to run the system
b) CDHS.AQS.JOBS, containing the test run series
c) CDHS.AQS.SOURCE, containing the program source modules
d) CDHS.AQS.SYSIN, containing control cards needed for system sorts
used in the procedures
e) CDHS.AQS.LOAD, not actually on the installation tape, but which
contains the load modules produced when the source programs are
compiled and link-edited at the installation
All five data sets are needed to run the test job series.
The test runs as found in CDHS.AQS.JOBS are illustrated in Appendix B.
All data needed to build the files and to test the system is included in the
test run job streams. Brief descriptions of each job, including the procedures,
programs and files used, can be found in Appendix B of this report. Information
on the JCL procedures can be found in the Appendix D of the AQDHS-II program
documentation and User's Guide (EPA-450/3-74-045-1). Each procedure has
parameters defined for project name, file names, and other system features.
It is very likely that these parameters will differ for a given installation
from what appears in the listings. Changes can be made using the information
from the AQDHS-II documentation. The data files are shown as created on 3330
295
-------
disks. If the system is implemented using another size disk, or if an
installation assigns space by cylinders rather than tracks, the unit and
space related parameters will need to be changed. Information of the EIS/P&R
procedures can be found in Appendix A of the EIS/P&R Program Documentation
and User's Guide (EPA-450/3-74-045-a). Further information on the test runs,
including sample output from each run, can be found in documentation for the
CDHS workshops.
As described in Appendix B, both test run series begin by building
validation files needed for editing transactions and for reports. Then, pro-
grams used to convert NEDS or SAROAD transactions to CDHS format are run.
These transactions are used to build CDHS master files. From these multiple
retrievals, reports and other file maintenance programs are run. All programs
of the system are tested.
296
-------
rtsroi
//EPAL"H01 JOB (AOS7.LHH,,LMH,,3),TIME=I,PRTY=5,MSGCLAS3=P
//KILL EXEC PGM3IEFBH14
//D01 00 DlSPs(OLD,DELETE),UNIT=3330,
// VOL=SER=COHSPK,
// DSN = CN. EPALMH.A087.CDHS.HQ.AQS.DATA.HTPRMlAA
//OD2 DO OISPa(DLU,DELETE),UNIT=3330,
// VUL=SER=CUHSPK,
// D3N=CN.EPALMH.AU87.CDHS.HQ.A03.DATA.HTPHM2AA
//OD3 00 DI3P=(OLD,l)tLtrE),UNIT33330,
// VOL=3ER=CDHSPK,
// OSNsCN.EPALMH.AOtt7.CDHS.HO.AQ3.DATA.NTPRM1AA
//* TEST 1 • BUILO THE PARAMETER CODE TA8LK
//*
//TEST1A EXEC AHQHUP01,
// OUTsP,
// rJErtMSTl=HTPRM!AA,
PARTICULATE HI-VOL
U-GMS/M3 (250EG C/1013 M-BARS)
PARTICULATE MEMBRAME SAMPLE
U-GMS/M3 (ODER C, 1013 M-BARS)
(CUH/1000LF) TAPE SAMPLER
cons/loon LINEAR FEET
PARTICULATE BUCKET; JAR
TONS/SOUARE MILE-MONTH
PAHTICULAIE BUCKET; JAR
M-GMS/SQUARE CENTIMETER-MONTH
//*
//* BUILO VALID PARM, METHOD UNIT TABLE
//*
//SORT.INPUT 00 *
1 1 1 101910100010TOTAL SUSPENDED
21 1 101910100010GRAVIMErRIC
11 1 101920200111TOTAL SUSPENDED
21 1101 9202001 11 GRAVIMETRIC
111201810900012SOILING INDEX
21 120 18109000 12TRAN3M1TTANCE
121101519001432TQTAL SETTLED
221 101519001432GRAVIMETRIC
12110J519100052TOTAL SETTLED
221101519100052GRAV1METRIC
1?1101719001«32TOTAL SETTLED
PARTICULATE BUCKET; JAR
221101719001'J32GRAVIMETRIC (APCA) TONS/SQUARE MILE-MONTH
121101719100052TOTAL SETTLED PARTICULATE BUCKET; JAR
221101719100052GRAVIMETRIC (APCA) M-GMS/SQUARE CENTIMETER-MONTH
121101819001432TOTAL SETTLED PAHTICULATE BUCKET; JAR
221l018l9001U32GRAVIMtTRIC (ASTM) TONS/SQUARE MILE-MONTH
121101819100052TOTAL SETTLED PARTICULATE BUCKET; JAR
22110l»19100052GRAVIMtTHIC (ASTM)
112101110505753CARBON MONOXIDE
2U210J 1 10505753NONOISPEf(SIVE INFRA-RED
1U2101110h062«3CAR80N MONOXIDE
2«?101110606283NONOISPER3IVE INFRA-PED
1^2101 1107000'JICARBON MflNOXIOE
?u?10I1107000aiNONDlSPEK3IVE INFRA-RED
1121011207000U1CAROON MONOXIDE
PU21011207000U1COULOMETRIC
1'12101210500632CARBON MONOXIDE
2U2101210500632FLAME IONIZATION
I'I2101210700041CARBON MU^OXIDE
2y21012107000«lFLAME IONIZATIUN
142102110700010CAR80N DIOXIDE
2421021107000101MFARARED ABSORPTION
l'»2t02910500181CAHBON DIQXIDt
242102910500181PHENOLPHTHALE IN
142102910700010CARBON DIOXIOF
M-GMS/SQUARE cENTiMETER-MONTH
INSTRUMENTAL
M-GM3/M3 (250ER C/1013 M-BARS)
INSTRUMENTAL
M-GMS/M3 (OOEG C, 1013 M-BARS)
INSTRUMENTAL
PARTS PER MILLION (VOL/VOD
INSTRUMENTAL
PARTS PER MILLION (VOL/VOD
INSTRUMENTAL
M-GMS/M3 (250EG C.1013 M-BAHS)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER MILLION (VOL/VOD
GAS BUBBLER
M-GMS/M3 (250EG C,1013 M-BARS)
GAS BUBBLER
00000100
00000300
oooooaoo
00000500
00000600
00000900
00001000
00001100
00001200
00001500
00001600
00001700
00001800
00002100
00002200
00002300
00002«00
00002700
00002800
00002900
00003000
00003100
00003200
00003300
00003400
00003500
00003600
00003700
00003800
OOOOalOO
OOOOU200
00001300
OOUOU400
00004500
297
-------
TESfOl
202102910700010PHENOLPHTHALEIN
102001110202861SULFUR DIOXIDE
202UO111 020286twEST-GAEKE COLOR I METRIC
102001M07000123ULFUM DIOXIDE
20210700190SULFUW DIOXIDE
202001910700190WEST-GAEKE SULFAMIC ACID
102001920800191SULFUR DIOXIDE
20200 |9?Ofl0019lrtEST-GAt.KE
102001 1'3070019«)SULFUM DIOXIDE
2«2001930700190CONDUCT(JMErRIC
I'J?U019'401000503ULFU« DIOXIDE
2020019a0100050HrDRt)GEN PEROXIDE
102602U01018fllNI fROGEN DIOXIDE
202602110101881COLORI METRIC
102602110202051NITROGEN DIOXIDE
202602110202051 COLOR I METRIC
102602110700012NIIROGEN DIOXIDt
2'126021 1 07000 12CULORI METRIC
1026021 10800100NITMOr,EN DIOXIDE
202602 It 0900100COLORIMETRIC
102602120101881 NITROGEN DIOXIDE
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
U-GMS/M3 (OOEG C, 1013 M-6ARS)
INSTRUMENTAL
PARTS PER MILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
U-GMS/M3 (25DEG C,1013 M-BARS)
INSTRUMENTAL
U-GMS/M3 (OOEG C, 1013 M-HARS)
INSTRUMENTAL
PARTS PER MILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER 3ILLION (VOL/VOL)
INSTRUMENTAL
U-GMS/M3 (25DEG C,1013 M-8ARS)
INSTRUMENTAL
U-GMS/M3 COOEG C, 1013 M-BARS)
INSTRUMENTAL
PARTS PER MILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
U-GMSXM3 (25DEG C,1013 M-BARS)
INSTRUMENTAL
U-GMS/M3 (ODEG C, 1013 M-BARS)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
U-GMS/M3 (25DEG C/1013 M-BARS)
INSTRUMENTAL
SCIENCPARTS PER MILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER BILLION CVOL/VOL)
DAVIS INSTRUMENT
U-GMSXM3 (250EG C»1013 M-6ARS)
DAVIS INSTRUMENT
(ODEG C. 1013 M-flARS)
GAS BUBHLER
PARTS PER MILLION (VOL/VOL)
GAS SUBTLER
PARTS PER BILLION (VOL/VOL)
GAS BUBBLER
PARTS PER MILLION (VOL/VOL)
GAS BUBBLER
U-GMS/M3 (250E3 C.1013 M-BARS)
INSTRUMENTAL
U-GM3/M3 (25DEG C,1013 M-BARS)
INSTRUMENTAL
U-GMS/M3 (OOEG C, 1013 M-BARS)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
PARTS PER BILLION (VOL/VOL)
INSTRUMENTAL
00000600
00000700
00000800
00000900
00005000
00005100
00005200
00005300
00005000
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006200
00006300
00006000
00006500
00006600
00006700
00006000
00006900
00007000
00007100
00007200
00007500
00007600
00007700
00007BOO
00007900
00008000
00006100
00008200
00009300
00008000
00008500
00008600
00008700
00008000
00009900
00009000
00009100
00009200
00009300
00009000
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
298
-------
TE3T01
242602 120 10 188 1COLORIMETRIC
I'42602120700012NITROGEN DIOXIDE
242602 120 7000 12COLURI METRIC
1 426 021 3 0202051 NITROGEN DIOXIDE
2126021 3020205 1COULUME TRIG
l'J2602 140 7000 12MTHOGEN DIOXIDE
242602 14 07000 12CHEMI LUMINESCENCE
1426021 40800 lOONITROGliN DIOXIDE
242602 14030Q100CHEMILUM I NESCF.NCE
1 '42602 150 107521 NITROGEN OlOXIOt
JJ-GMS/M3 (25D£3 C,
INSTRUMENTAL
PARTS PEP MILLION
INSTRUMENTAL
U-GMS/M3 CODEC C»
INSTRUMENTAL
PARTS PER MILLION
INSTRUMENTAL
PARTS PER BILLION
INSTRUMENTAL
202602150107521POLAHOGHAPHIC DYNA SC IENCU-GMS/M3 C25DEr, C,
1 426026 1 0200551 NITROGEN DIOXIDE
2426026102005513ALTZMAN (999 AP-lt)
142602610700274NITHUGEN DIOXIDE
242602610700274SALTZMAN (999 AP-U)
1 4260271 0100050N I TROGEN DIOXIDE
24260271 0100050JACOBS-HOCHHEISEK
la 260 2 7202 00551 NITROGEN DIOXIDE
242602 720200551 SAL TZMANC50-ML TUtORIFICE
1U2602720700274NITROGEN DIOXIDE
GAS BUBBLER
U-GMS/M3 CODEC C,
GAS BUBBLER
PARTS PER MILLION
GAS BUH8LER
U-GMS/M3 (250E5 C,
GA3 3U9BLER
)U-GM3/M3 (ODEG C»
GAS BUBBLER
242602720700274SALTZMANC50ML TU+ORIFICE)PARTS PER MILLION
14260281 0100050NITROGEN DIOXIDE
24260281 01000SOJACOBS-HOCHHEISER
1 '42*02820 70 02 74N I TROGEN DIOXIDE
2426028207002 /4SALTZMANC100ML TU+ORIFIC
1 'J260294 0100050N I TROGtN DIOXIDE
242602340100050NASN SODIUM ARSENITE
l'i?h028«0200551NITROGEN DIOXIDE
2«2b029M0200551MASN 30DIJM ARSENITE
1U260291070027UNITROGEN DIOXIDE
2'i260291070027UJAC083-HnCHHEISEK
l«26029'l0200551NITROGtN DIOXIDE
2
-------
TESTOI
203501110700013COLORIMETRIC
143501910100050ALDEHYDE
2U3501910100050MBTH
1435019t07000«3ALDF.HYOE
2435019107000«3M8TH
14350192020055 I ALDEHYDE
24 350 1 920200551PAP.AROS ANILINE
1 43501920 700043ALDEHYOF
2'13501920700043PARAROSANILINE
143502910100051FORMALDEHYDE
2«3502910100051CHROMATROPIC ACID
143502710200061 FORMALDEHYDE
2"3502910200061CHROMATWOP1C ACID
1441011 10202J)-9901ELEC. / MACH
1621012215-9990 TEMPERATURE
262t012215-9990SPnT READING LEVEL 2
162103P217-99900E* POINT
2>>21032?17-9990SPUT RFAOING LEVEL 2
162201 122510 lOlS'JLAK MAOIAriON
262201 122500101 TVA PYHAUDMETER-AVG.
161101111600032BAROMfcTHIC PRESSURE
261101111600032ANEROIO
165303616700012CONDUCTIVITY
265303«16900012CONOUCTIVITY CELL
//UPDATE.AgSIJLDTt OD DUMMY
//UpOATe.AQSI)LDT2 OD DUMMY
//TEST1R EXEC AHQNSENTr
// OUT=P,
// DISP='NEW,CATLG,DELETE
KIT
HEADING
SPEED
READING LEVEL
DIRECTION
READING LEVEL
DIRECTION
OR MACHINE AVERAGE
AVG. L3-L1
1
PARTS PER MILLION
GAS BURBLER
U-GMS/M3 (250E5 C,
GAS BUBBLER
PARTS PER MILLION
GAS BUBBLES
U-GMS/M3 (ODEG C,
GAS 8U8RLER
PARTS PER MILLION
GAS 8UB8LER
U-G.MS/M3 (25DEG C,
GAS BUBBLER
U-GMS/M3 (ODEG C,
INSTRUMENTAL
U-GMS/M3 CODEC C,
INSTRUMENTAL
PARTS PER BILLION
INSTRUMENTAL
U-GMS/M3 (25DEG C,
INSTRUMENTAL
PARTS PtR MILLION
INSTRUMENTAL
U-G.MS/M3 (250EG C,
GAS 8UHBLER
PARTS PER MILLION
GAS BUBBLER
U-GMS/M3 (OOEG C,
INSTRUMENTAL
KNOTS
INSTRUMENTAL
MILES / HOUR
INSTRUMENTAL
DEGREES
INSTRUMENTAL
DEGREES
INSTRUMENTAL
DEGREES
INSTRUMENTAL
DEGREES
INSTRUMENTAL
INSTRUMENTAL
INSTRUMENTAL
(VOL/VOL)
1013 M-BARS)
(VOL/VOL)
1013 M-BARS)
(VOL/VOL)
1013 M-BARS)
1013 M-flARS)
1013 M-6ARS)
(VOL/VOL)
1013 M-8ARS)
(VOL/VOL)
1013 M-BARS)
(VOL/VOL)
1013 M-BARS)
5-MIN ROG
INSTRUMENTAL
INSTRUMENTAL
PRECIP
00016000
00016100
00016200
00016300
00016400
00016500
00016600
00016700
00016800
00016900
00017000
00017100
00017200
0001730C
00017400
00017500
00017600
00017700
00017800
00017900
00018000
00018300
00016400
00018500
00018600
00018700
00018800
300
-------
//*
//* APPEND SENTINEL RECORD FOR USE Bt DATA ANALYSIS
X/TEST1C EXEC AHOPMETH,UUT*P
301
-------
TEsro2
//EPALMH02 JOB (A087,LMH,,LMH,,1),T1ME=1,PRTY35,MSGCLASS=P
//* TEST 2 - BUILD VALID SITE CODE TABLE
//KILL EXEC PGM»lEFBRia
//3TOS 00 DISP»(OLO, DELETE), UNIT«33JO,VOL3SEH3CDHSPK,
// OSN3CN.EPAL«H,A087.CDHS.MQ,A03.DATA.HTSITF.AA
//*
//« 8UILO VALID SITE CODE TABLE
//*
//TE3T2A EXEC AHQHUPD2,
// OUT=P,
// NEHMSTRsHTSITEAA
//SORT.IMPUT DO *
370001234FOSSTATE
200001004'303STATE
120001001C01STATE
I20001002C01STATE
120001003C013TATE
i;?oooino4CoiSTATE
120001005C01STATE
I20001006C013TATE
120001007C013TATE
120001008C01STATE
3U0001001 A06STATE
J40001002A06STATE
34000100SA06STATE
3'4000100!»A063TAT£
3'40002001005STATE
340002003D05STATE
3'I0002005D053TATE
340n02007;J05STATE
3'«0003002G04STATE
340003004G04STATE
S40003006G04STATE
340003006G043TATE
340003010G043TATE
//UPDATE. AQSOLOM3
//TEST2B EXEC AHQPSI TE,Ul)TsP
» 10
= 37
= 20
= 12
3 12
3 12
= 12
- 12
s 12
= 12
3 12
: 34
s 34
3 30
s 34
3 34
3 34
* 3
-------
TE3T03
JOB (A087,LMH,,LMH,,l),TIME::l,PRTY=5.MSGC:LAS3 = P
//KILL EXEC PGMriEFBR14,REGION=«K
//DEL DO OSN=CN.EPALMH.4087.CDHS.HQ.AOS.DATA.HTSTNOAA,
// VOL=SER=CDHSPK,
// UNIT=33JO,DISP=(OLO,DELETE)
//*
//* BUILD PARAMETER STANDARDS TABLE
//»
//TESTJA EXEC AH(JHUPD3r
// UUT=P,
// NEWMSTRsHTSTNDAA
//SORT.INPUT DO *
t 101F01 101
U01F01201
1 101F02202
1 101301 102
i i 101S01202
1 1 101F03101
1110IF03201
1 1 101F04102
1 1 101FOU202
«2'401FOt 101
75 UG/M3 (25 C) ANNUAL GEOMETRIC MEAN
60 UG/MJ (25 C) ANNUAL GEOMETRIC MEAN
75 UG/MJ (0 C) ANNUAL GEOMETRIC MEAN
60 UG/MJ (0 C) ANNUAL GEOMETRIC MEAN
60 UG/M3 (0 C) ANNUAL GEOMETRIC MEAN
60 UCJ/MJ CO C) ANNUAL GEOMETRIC M£AN
260 UG/MJ (25 C) 2« HOUR MAXIMUM, 1 PER YEAR.
150 UG/MJ (25 C) 20 HOUR MAXIMUM, \ PER YEAR.
42<401F02102
42<401F02202
U2"OIF03101
42401F03201
42'401F04102
2bO UG/M3 (0 C)
150 UG/MJ (0 C)
365 UG/M3 (25 C) .10 PPM
260 UG/M3 (25 C) .1 PPM
365 UG/M3 (0 C)
260 UG/M3 (0 C)
80 UG/MJ (25 C)
60 UG/M3 (25 C)
80 UG/M3 (0 C)
60 UG/M3 (0 C)
1300 UG/M3 (25 C)
1300 UG/M3 (0 CJ
850 UG/M3 (0 C)
925 UG/M3 (0 C)
100 UG/M3 (25 C)
100 UG/M3 (25 C)
100 UG/MJ (0 C)
100 UG/M3 (0 C)
90 UG/MJ (0 C)
160 UG/MJ (25 C)
160 UG/M3 (25 C)
160 UG/MJ (0 C)
160 UG/MJ (0 C)
155 UG/MJ (25 C)
165 UG/MJ (25 C)
42101F0110110,000 UG/MJ (25 C)
«2101FOt«J01«IO,000 UG/MJ (25 C)
U2101F0210210,000 UG/MJ (0 C)
'J2101F0220210,000 UG/MJ (0 C)
'42-40 IF05201
a?'401FQ6202
42'401S01 102
«2a01SOt202
42602FOU01
'42602F01201
42602F02102
«2602F02202
4^602301102
4U101F01101
"4101F01201
44101F02102
44101F02202
44101501 101
44101S01201
2u HOUR MAXIMUM, 1 PER VEAR.
24 HOUR MAXIMUM, 1 PER YEAR.
2a HR. MAX, 1 PER YR.
2« HR. MAX, 1 PER YR.
ia PPM 2a HR. MAX, i PER YR.
1 PPM 2« HR. MAX, 1 ?ER YR.
03 PPM ANNUAL ARITHMETIC MEAN
02 PPM ANNUAL ARITHMETIC MEAN
03 PPM ANNUAL ARITHMETIC MEAN
02 PPM ANNUAL ARITHMETIC MEAN
5 PPM 3 HR. MAX, 1 PER YR,
5 PPM J HR. MAX, 1 PER YR.
5 PPM J HR. MAX, 1 PER YR.
5 PPM J HR. MAX, 1 PER YR.
05 PPM ANNUAL ARITHMETIC MEAN
05 PPM ANNUAL ARITHMETIC MEAN
05 PPM ANNUAL ARITHMtTIC MEAN
05 PPM ANNUAL ARITHMETIC MEAN
05 PPM ANNUAL ARITHMETIC MEAN
Ofl PPM 1 HR, MAX, I PER YR
08 PPM 1 HR. MAX, 1 PER YR
0« PPM 1 HR. MAX,
08 PPM 1 HH. MAX,
06 PPM 1 HR. MAX,
08 PPM 1 HR,
9 PPM 8 HR,
J5 PPM I HR,
9 PPM 8 HR,
J5 PPM
MAX,
MAX,
MAX,
MAX,
1 PER YR
1 PER YR
1 PER YR
1 PER YR
1 PER YR
1 PER YR
! PER YR
U310IFOU01
UJ101F01201
«3101F02102
UJ101F02202
'JJ101S01 102
'4J101301202
61 101FOI11J
160 UG/MJ (25 C) 3
160 UG/MJ (25 C) 3
160 UG/MJ (0 C) 3
160 UG/MJ (0 C) 3
120 UG/MJ (0 C) 3
180 UG/MJ (0 C) 3
HOUR MAXIMUM,
HOUR MAXIMUM,
HOUR MAXIMUM,
HOUR MAXIMUM,
HOUR MAXIMUM,
HOUR MAXIMUM,
1 HR. MAX, 1 PER YR
1 PER YEAR.
1 PER YEAR.
1 PER YEAH.
1 PER YEAR.
1 PER YEAR.
t PER YEAR.
00000100
00000200
OOOOOJOO
oooooaoo
00000500
00000600
00000700
00000800
00000900
00001000
00001100
00001200
00001300
00001400
00001500
00001600
00001700
00001800
00001900
00002000
00002100
00002200
00002300
00002400
00002500
00002600
00002700
00002800
00002900
00003000
00003100
00003200
00003JOO
00003400
TEST OF NEGATIVE DATA
303
-------
TE3T03
M 101F01213
61 101F021 13
61101F02213
61101301123
61101S01223
61101S0212.4
61 101S02223
61102F01114
M102F01214
61 102301 1 14
61102501214
61103F01113
61 104F01 1 14
61 10UF01214
61 104SOI 1 14
61 106F01 114
61 106S01 114
61 106301214
61202F01128
61202F01228
6120230112B
62101F01115
62101F01215
62101S01115
62I03F01122
62201F01119
62201FQJ219
62201S01119
62201S01219
62201S02219
63301FOU25
64101F01122
64101F01222
65303F01169
65303F01269
^.5303301169
TEST
TEST
TEST
IEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TfcST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
//UPDATE. AOSOLDTB
//TEST3B EXEC
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
DO D
AHQPSTDSr
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
NEGATIVE
'UMMY
OUT=P
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
(1ST SECONDARY)
(2ND PRIMARY)
(2ND SECONDARY)
(1ST STATF. PRIMARY)
(1ST STATE SECONDARY)
(2ND STATE PRIMARY)
(2ND STATE SECONDARY)
(1ST PRIMARY)
(SECONDARY)
(STATE PRIMARY)
(STATE SECONDARY)
(SECONDARY)
(STATE)
(STATE PRIMARY)
(STATE SECONDARY)
(SECONDARY)
(SECONDARY)
(STATE)
(SECONDARY)
(STATE)
(STATE SEC.)
(2ND STATE SEC.)
(SECONDARY)
(SECONDARY)
(STATE)
304
-------
TESTO'I
//£PAL«H04
//KILL EXEC PGM=IEF8P14,REGI()N = 4K
//DEL 00 OSNaCN.EPftLMH. 4087. CDH3.HQ.AQ3. DATA. OLOAQOHSr
// 0 ISPs (OLD, DELETE ),VOL3SER = CDHSPK, UNI T = 3330
//*
//• TEST 4 - CONVERT EXISTING AQDHS FILE TO NErt AQQHS FILE
//TE3TU EXEC AHQUBILD,OUT=P
//*
//* RUILO OLD FORMAT AQOHS FILE
//*
//BUILD. nPUT DO *
12E021 0000 100 14240 11 107100 M 0601 20001000 1000 1000100020002000 10002000300030003000
3000000060002000100010000000000000000000000000000
12E021 00001 001 «2«0 11 107 1007 106022000200030006000700 10001 t 00 12001 3001 200 II 0009000
»0006000h000600nb000600030001000ao006000800070007
J2E02 10000 1001'42«01 11 07 1007 106032000700020001 000 1000 10001 00010001 000300030006000
1000200030003000600 1000 11 00 11 00 1200 1300 1600 1600 IS
12E 02100001001424 01 11071007106042001 80 020002200220022002U00160018001000020001000
1000100010001000100010001000100010001000100020002
12E 02100001001424 01 110710071060520 00 30 0040004000400040005000600060 0060 0060 004000
4000300030003000300030006001800200034004400540060
12f 02 100 00 100 142401 1 10710071060620080010001010102010201 1001 13011001 10012101 10010
900800 080 00900090 009900990 0990 10001 000 1000 121 0122
t2E 0210000100142001 1 1071007106072024802000201018101760154012101000 0900 0800070006
0004000300020001000090008000700060006000600060006
(2E0210000100142401 110710071060 8200050 0050 0040003000200010001000100010001000 1000
moot oooioooioooioooioooi oooiouoioooioooioooioooi
12E 02100001001 42'4 01 1107100710609200010001000100010001000100010001000100010001000
1000 1000 1000 10001000 1000 100010001 000 1000100010001
12E02 10000 100 142401 110710 071 06 1020001 0001 000 10001000 1000 10001 0001 000 10001000 1000
1000200020002000200020002000200020002000200020002
12E021000010014240! 1107100710611200020002000200020002000200020002000200020002000
2000200020002000200020002000200020002000200020002
12E 021 00 001001424 Oil 10710071 06 1220002000 20 00 2000200020002000200020002000200020 00
2000200020002000200020002000200020002000200020002
12E02100001001424011 10710071061 3200020 00 20 0020002000200020002000200020002000 20 00
?0002000200 0200020002000200020 00 20 0020 0020 0020002
12? 0210000100142401 11071007 106 1420 0030003000 30003 00 030002000200020 002000200020 00
2000300030003000300030002000200020002000200020002
12F02 1000 01 00 142401 11 07 10 071061 5200030 003000 3000 30002000200020002000200020002000
2000300030003000300030002000200020002000200020002
12EO?l 00001001424 01 11 071 0071061620 0030003000 30003000300020002000200020002000 2000
2000100010001000100020002000100020003000300030003
I 2E 02100001001 42401 110710071061 7200040006000200010001000000000000000000000000000
0000200030006000700100011001200130012001100090009
12E 02100001001 it 24 Oil 107100710618200060006000600060006000300010004000600080007000
7000700020001000100010001000100010003000300060003
12^02 10000100142401 110710071061 920002000 3000J00060010001 1001 10012001 30 01 60016001
6001800200022002200220024001800180010000200010001
I 2K02 100001 00142401 11 071007 106202000 1000 1000 1000 10001 000 10001 000 1000 1000 10002000
20003000U00040004000400050006000600060 00 60 0040004
12E 0210000100142401 110710071062 120003000300030003000300060018002000 310044 0054006
000«00100010101 020 1020110011 30 11 00 110012101100109
12E02 100001 00 112401 11 07 1007 10622200800080009000900099009900990 100010001 000121012
2024802000201018101 760154012101000090008000700060
305
-------
TE3TOU
12£ 02100001001'4 2«011 1 07 1 0071 062J200400030002000 1 00 00<»00 08000 70006000600060 0060 00
600050005000«000300020001000100010001000100010001
i;?E0210000100142«01H0710071062«200010001000100010001000100010001000100010001000
100010001000100U100010001000100010001000100010001
12E02100001001«2
-------
rtSTos
//EPALMH05 JOn (A087,LMH,
//*
//* TEST 5 - CONVERT OLD FORMAT TRANSACTIONS AND UPDATE MASTER FILE
//*
//KILL EXEC PGMsi£FBRl«
//OP1 00 UNITaJ330,OISP=(OLD, DELETE), '
// VOL=SER=CDHSPK,
// OSNsCN.EPALMH. A087.CDHS.HO.AQS.DAT A, AQ 1029 7 6
//TE3TSA EXEC AHUBCNVT , OUT*?
//*
//• CONVERT OLD FILE TO NEW FORMAT TRANSACTIONS
//*
//TESTSB EXEC AHQFUPDT,
// OUT*P,
// RtalOOK,
PROJECT='CN.EPALMH.A087.CDHS.HQ.A3S
//*
//« BUILO NEvK FORMAT AQOHS FILE
//*
//EOIT. OPTIONS DO *
NOLIST
//EOir.nPUT DO DSNAMEriJOLDTRMS,
// OISP=(OLD, DELETE)
//UPDATE. AOSOLDMS 00 OU1MY
//UPDATE. INPUT DO *
NOL I S T
//TE3T5C EXEC AHQELI3T,
// OUTsP,
// HEGIJN.REPORT=t50K,
//* PRODUCE DETAIL LIST OF MASTER FILE
//*
//REPORT. INPUT DD *
MEAN
307
-------
TEST06
//EP4LMH06 JOB (A087,LMH, ,LMH, , 2) , TIME=1 ,PRT Y=5» MSGCLASS = P
//KILL EXEC PGM=IEF8R14
//001 00 UNIT=3330,DISP=(OLD, DELETE),
// VOL=SER=CDHSPK,
// OSNsCN.EPALMH.A087.AQTRANS
//*
//* TEST 6 - CONVERT SAKQAD INPUT TRANSACTIONS TO AQOHS-II TRANSACTIONS
//* AND SAVE CONVERTED TRANSACTIONS
//*
//*
//» CONVERT OLD FORMAT TRANSACTIONS 10 NEW FORMAT TRANSACTIONS
//*
//TEST6A EXEC AHQCNVWT,auT=P
//CONVERT. INPUT OD *
52
23^0001 002 A 068 7 J010 1004260 3990 7«-059074-026
2340001004A0687302010U42603990740025
2 34000 10 04 A06fl 7 30 30 10 04260 3990 70 -999
234000100 '-I A 0697304010042603990740023
234 000 100'JA06rt730'50 10 04260 3990 74.022
308
-------
TEST06
2340001004A0687306010002603990700021
234000100'4 A 06? 730 70 1001260 3990 70-999
23 '4000100 '1A068730801 0042603990740023
2300001004A068730901004260399070-024
234000100440687310010042603990700025
2300001004A0687.S1101004260399070-026
2300001004AO687312010042603990700025
23400020010057740801004010115011-196
234000200100577'J OH03004410115011-2 38
23400020010057740805004410115011-999
23400020010057740807004010115011-999
2340002001U05774080800441011501 1056«
23'I000200100577U090900U'M Oil 501 1-999
234000200100577«081000««101150110302
23«0002001D0577'J081l()04U10115011-999
23«0002001R0577«OflI3004«10115011-999
23'40002001D0577«0815004m0115011-999
23U000200100577«0617004«10115011-999
23«000200100577UO«19004«10115011-999
231000 20 01005 77aOB2000'tai01 1501 108 17
23400020010057740801004410183010-005
23400020010057740803004U10183010-005
23400020010057740805004U10183010-999
2340002001U05774080700«410183010-999
234000200100577408080044101930100010
23400020010057740809004410183010-999
2340002001D0577406100044101830100015
23400020010057740811004410183010-999
23400020010057/40813004410183010-999
23400020010057740815004U10183010-999
234000200100577408170C4410183010-999
23400020010057740819004410183010-999
234000200100577408200044101830100005
234000200300577'40 80 10044101 15011-038
23400020030057740803004410115011-19P
23400020050057740805004410115011-999
2340002003n057740807004Ul0115011-999
234000200300577408080040101150110463
234000200300577408090044J0115011-999
234000200300577408100044101150110630
23400020030057740811004410115011-999
23'40002003005774081300441011501 1-999
2340002003D057740815000410115011-999
23400020030057740817004410115011-999
23400020030057740819004U10115011-999
234000200300577408200044101150110197
23400020030057740101004010183010-038
23400020030057740801006120231281-013
2340002003D0577408030040101B3010-020
23400020030057 7'4080500041 01 830 10-999
220000 I 004H0377001030011201810920060
22000010048037700103006210122151-Oil
220000100480377001040011201810910007
2200001004^0377001050011201810910005
2200001004H0377001060011201810910008
220000100'4 H037700 10/001 120 181091 0009
309
-------
fE3f06
220000100«B03770010800 It 201810910010
220000100«B0377001090011201610910012
220000lOOflBOS7700110001120181091001S
220000100«B0377001110011201810910010
220000IOOUK0377001120011201610910011
220000100'JH03770011300U201610910012
2200001004B0377001140011201810910013
220000 100« 1303770011 5001120 1*109100 16
220000100180377001160011201810910017
22000OIOOIBOJ7700 1170011201810910017
22000010049037700U800112018109100 17
220000100'»80377001190011201810910018
P20000IOOan0377001200011201810910020
220000 10 0
-------
220000100480377003060Oil 201810910008
2200001004(3037700.507001120181091 0009
220000100460377003080011201810910010
2200001004H0377003090011201810910012
2200001U04B0377003100011,? 01810910015
220000100480377003110011?01810910010
2200001004B0377003120011201810910011
22000Q1004B0377003130011201810910012
2200001004B0377003140011201610910013
2200001004B03770031b001i2018109100l6
220 0001004B0377003160.0 11201810910017
220000100490377003170011201810910017
22000010041) 0377003180011201810910017
220000100'1B0377003190011 2 01810910018
220000100«(3037700320001 1201810910020
2200 00100'4'30377003210011 2 01810910021
220000100UH0377003220011201810910017
2200001 00ano37700J230011201810910016
220000100UU03770032UOOH201*109100l«
220000l00a«0i770032l3001 120181091 00 10
22 00 00 100'4B037700326001 1201810910009
220000 100'413 037700327001 1201810910006
220000100'4H03770032B001l201fll091000'4
220000 100«SO377003290011201810910008
220000100'4003770 0330001 1201810910003
?200noiOOUH037700«010011201810910002
2200001OOyB037700«03001120181091 0006
220000100UH037700UO«0011201810910007
220000 100'4B037700U05001120 18 1091 0005
220000 10044037 700<40600 II 20 18 109 10008
220000inO«H03770010700ll201610910009
22000010 '1 «0037700a0800112018t0910010
22 00 00100'4B037700« 09001 1201810910012
2200noiOOUB037700<11000i!201810910015
220000100«8037700yt10011201810910010
220000100U8037700M1200112018109100 11
220000100060377000130011201810910012
?2 OOOOIOOUR037700 '41<4001 1201810910013
2?0000100UH037700yi50011201810910016
220000100<1HOJ7700'4160 01 1201810910017
220000100aU037700ai70011201810910017
220000100'4H037700'4180 011201810910017
220000100'4B037700U190011201810910018
220000100UH0377000200011201810910020
220000 100<4B03 7700<421 00 1120 181 0910021
220000100a803770042200ll201810910017
220000100'480377004230011201810910016
220000 100'48037700424001 1201810910014
220000100'4H03770042500U201810910010
2200001004H0377004260011201810910009
2200001004b0377004d70011201«I0910006
220000] 00'4H03770042800 11 20 1810910004
2200001004110377004290011201810910008
2200001004H03770043000112018109I0003
2200001004H037700501001U01«10910002
2200001004B0377005030011201810910006
311
-------
TEST06
220000100aH03770050UU0112018t0910007
220000100303770060«006120231281-022
220000100aH03770060'>001 12 01 810910012
220000tOOan0377006100011201810910015
220000100'4^0377006110011201810910010
2200001004 HO$77006120011201810910011
220000100UU0377006130011201810910012
220000100UHOS770061'100112018109100 13
220000100UB0377006150011201810910016
2200001004B0377006160011201810910017
220000100'4U03770061 7001 120181091001 7
?200noi004rio37700618001 120 181091001 7
220000100 '4«037700M900H201H10910018
220000t 004(50^7700 620001 120161091 0020
220000100at) 037 7 006210011201810910021
?2000010oa^037700622001120181091001 7
220000100180377006230011201810910016
220000100<49037700 62 aoOl 1201 8 10910014
220000 10041303770062500 11 20 18109J 0010
220000 100UHO37fO06260011201810910009
220000100"HO 577006270011201810910006
220000100^11037700628001120181091000«
220000100UH037/00629001120181091000H
312
-------
rtsro6
220000100480377006300011201610910003
220000100400177007010011201810910002
220000100UB03770070300112018J0910006
2200001004B0377007040011201810910007
220000100480377007050011201810910005
220000100400377007060011201610910008
220000100480377007070011201810910009
220000 1 004(3037 700 70600 1120 1810910010
2200001004R0377007090011201810910012
2200001004BQ377007100011201810910015
2200001004B03/7
-------
TE3T06
220000100080377008280011201810910000
220000100080377008290011201P109I0008
220000 100080377008300011201810910003
2200001000B037700901 001120 181091 0002
220000100(130*770090300 1120181 0"I 0006
220000100080377009000011201810910007
2200001000H03770090buO112018 I09J0005
2200 00100 080377009060011201810910008
220000 1000U03770090700 11 20 181091 0009
2200001000U0377009000011201810910010
220000100'45037 700909001120 181 0910012
220000100080377009100011201810910015
220000 I000803770091100112018 109100 10
220000100080*77009120011201810910011
220000100080377009130011201810910012
220000 I 004003770091"001120 IB 10910013
2200001000H0377009150011201810910016
220000100080377009160011201810910017
220000100100377009170011201810910017
2200001000803770091 BOO 11201810910017
220000100090377009190011201810910018
220000 IOQ'480 3770092000 11 20 181 091 0020
220000100160377009210011201810910021
220000100080377009220011201810910017
220000100«90A77009230011201810910016
2200001 OO'J HO 37 700 9200 01 1201810910010
22"00010rt
-------
TEST06
220000100an03770102600112018l0910009
220000100UOOS77010270011201810910006
220000100U80377010280011201fll091000a
220000100UB0377010290011201810910008
220000100*180377010300011201810910003
220000tOO«B03770110i001l2018109ino02
220000100UB0377011030011201810910006
220000100'4 B03770llOU001120iai0910007
220000100UB0377011050011201810910005
220000100'4B037701 1060 01 1201810910008
220000100UH0377011070011201810910009
2200001000*0377011080011201810910010
220000100UB037701109001120l«10910012
220000100UI30377011 100011201 810910015
22000010OU80377011110011201810910010
220000100'1803770111 20 011201810910011
2?0000100aB03770111.5001l20l810910012
220000100MUO37701113006210122151-012
220000100UH0377011U001 1201810910013
^20000100'45037701 11 50 01 1201810910016
2200001 OO'J (30 37 70111000 11201H10910017
P20000100UB0377011170011201810910017
220000100aU03770111fl001120ini09100i;
220000100<4HO 37701 1190 01 1201810910018
220000100UBO377011200011201R10910020
22 0000100'4B037701 121001 1201810910021
2200001 00'4B037 70 11 2200 1120 18109 100 17
220000100UBO377011230011201810910016
2200001004B03770112MOO11201810910010
220000100aB037701125001120181091 0010
2?0000100aiJ03/701 126001 1201810910009
2200001001B037701127001120181091C006
2200001000Q0377011260011201810910001
220000100«rt03770112900112018109J0008
220000100'JB037701 130001 1201810910003
2200001004B0377012010011201810910002
220000tOOu(303770120i001 1201810910006
220000100UF103770120U0011201810910007
220000100 '480377012050011201810910005
2200001000RO377012060011201610910008
2?0000100'IU037701207001120iai0910009
220000100U103770120800H20I810910010
220000100UB0377012090011201R10910012
220000100UHU377012100011201810910015
220000 100'»H0377012110011201810910010
220000 100UH()i77012l20011201810910011
220000 100UH037701213001120 181091 00 12
?20000100
-------
220000100100377012220011301810910017
220000100«BOJ77012
-------
TEST07
//EPALMH07 JUB U087,LHH, ,L^H, ,2),TIME=1,PRTY=5,^SGCLAS3=P
//KILLL EXEC PGM=IEFBR14
//DDl 00 UNtT=3330,OISP*(OLD, DELETE),
// VOL=S£«3CDHSPK,
// OSN=CN. EP ALMH. A08 7. COM3. HQ.AQS.DAT A, AQ 1029V 3
//TEST7A tXEC AHUFUPDT,
// RlstOOK,
// PR'JJECT2'CN.tPALMH.A087.COHS.HQ.AQS',
// OLDMSTK*AQ102976,
//*
//* UPDATE MASTER FILE USING CONVERTED TRANSACTIONS
//*
//EUI T. OPTIONS DO *
LT3T F1.4G.1
//EDIT.lNPiJT DO *
13«OOOl003A0617505l300ollO|20l31002000000005001000non09000700U 2
1300001003A06175051iOH6U01201310001001200080005000aOOOa00030003 2
13U0001003A061 75051 316611012013100030002000200010001 00020001 0000 2
13«0003010GOai750822006ll01231210002 000100060005000000030003 2
ISaOQO 30 10GO«17SO 8220 861 101231210003000200050003000 ao 00 300000001 2
I •51000301 000117508221 66 11012312100020002000300n«00030002000 30 002 2
1 12000100 3C 01 17«06100061102211«000010002000U00030002000300020 001 2
I 12000100 3C 01 17106100861 10221 1UOQ002000100030000000200040002000U 2
II 200 0100 3C 01 17106101 661 10221 I«000u5000300020001000200020003000a 2
1 12000100 3C 01 17 30 9120061 10250 ia000050006000U00030003000 200050003 2
11 20 00100 iC 01 17 30 9120861 10250 lU00003000ao003000aOQO 30003000 30002 2
1 12000100 3C 01 17 30 9121 66 110 25 0140000 30002 00 0400030003000200040003 2
11 20001 Oil C011 741020006 11 03231 31 00040003000400030002000300030002 2
11 20 001001C01 17010200861 103231310000 00 030003000200020 0010000 2
1 120001001C01 1741020166110323131 00020003000400Q400Q500050006 2
13400020010051 7310050 061 10 42 114100030004000300020004000500030002 2
13'I0002001D051 73100506161 10421 141000400030002000400030004000 30002 2
134000200100517310051661104211410003 000200010000000200030002 2
1340002001DObt74120P0061 10 62 014100 06000400040003000500000 00 300 04 2
134 00020 01005 174120 80 861 1062 0141000400030003000300020003000300 02 2
1340 0020 01 005 1741 208 1661 106201'M 00 0300040003000 300020 00 100020002 2
1 100001 001E021 7407080061 1 0 1 20 1 3 1 -93 1 -943-995-40 1 -380-350-330-323 2
1 1 0000 100 It 021 740 70B006 120 23 128 1-93 1-94 3-995-40 1-380-350-330-323 2
1 100001001E021740708086120231281-291 005200880089010301270169 2
1100001001E 02 17407080861 101 31281 -291 005200880089010301270169 2
1100001001E02174070B1661202312B10388 017702020191020902150208 2
1 37000 1234F051 740 1 1 50061 1 0 1231 30-006-007-008-008-009-01 1 -01 2-0 H
1 37000 1234F05 1740 11 500621 01 22 150-006-007-008-008-009-0 11 -01 2-0 13 2
1370001234F 05 17401 1508621 0 1 22150-0 1 1 -009 -0030000000200030003 2
1370001234F051 740115086110221140-011-009 -0030000000200030003 2
1370001234F0517401 151 &62101221500004 0004 000600070007000*00090010 2
1 37000 1234F05 174080 100621 01 22 150 006300630062006 10060 00600062 2
1370001?34F0517408010862lOl221b000630067 00740075007700800079 2
13700012^4F05I 740801166210122150007700700073 0069006800670066 2
134 000200 3D051 751 10500b?t 03221 70-001 -001 -001-001-001-0010000 2
13400020030051751 105006110250140 -001 -001-001-001-001-0010000 2
I 34000200 30051 75 11 0508621 0322170 -0010000 00000001000100020001 2
134000?0 03005 1751 1051662 1032217000010001000000000000000000000000 2
1340002003D0517'JOd2508622012019100450044 004800490005 0038 2
1340002003005174042516622012019100370036003300300026002600250020 2
317
-------
1 12000100 3C0117312130<1fc3301 1225200030003000200020003000200030008 2
11 2000 1003CO 11 73121 3086330 112252001 0001200 1300 150022002300220020 2
112000100300117312131603301122520000 001300100009000/00050003 2
1 3«000 1003A06 175051800641 01 1122200 15001 6001 U001 30 01 200 1 1001 000 02 2
l3«0001003A061750518086ai011122200080010 001200 1 3001 U001 70018 2
13«OOOl003A06175051«166aioill?22 001500M0012 000900130012 2
13U0001003A0617aiOOa0065303816920005000aO'003000
-------
TEST08
//EPAL^HOS J(J8 (A087,LMH, , ,LMH, ,2) , T IMfc = l , PR rr = 5,
//KILL EXfcC PGM3lEFBm«
//DEL 00 UNIT=3330,DISP=(OLD, DELETE),
// VOL=SEH=CDHSPK,
// DSNsCN. F.PALMH.A08 7. CDHS.HQ.AQS.DAT A. AQ1029V2
//*
//* TEST 9 -UPDATE MASTER FILE USING NEW FORMAT TRANSACTIONS
//*
//TEST8A tXEC AHQFUPOT,
// PROJECT='CN.EHALMH.A087.COHS.HO.AQS',
// our=p,
// QlslOOK,
//EOI T.AClSUPr IN OD *
LIST, FLAG*
//EDI T.AQSTRANS 00 •
1340001001A062740225001120181091 1
1340001003A 06 175051 30 061101 201310020000000 0500100011000 90 0070011 2
134000100 3 A061750 513086 1101201310001001200080005 0004000409030003 2
13U0001 00 3A061 75051 31 6611 01 201 3 1000300020002000 1 000 10002000 10000 2
13«0003010GO<41750822006110123121000? 000 1 00060005000U00030003 2
I 3'' 000 30 10GO '4 1750822086 11 0123 121 00 0300 02 00 050 00 30001 000 3000 00 001 2
33 7F05fl!1101910l0710UU000001 23*1 0066 2
33 7F 0581 11019101071 01 180000012 3a 0067 2
33 7F 0581 1 101910107101210000012 3«00«0 2
1 3100030 tOGOai 7508221 661 10 1231 21 00020002000300040003000200030002 2
1120001003C0117'J061000611022114000010002000<100030002000300020001 2
t 120 00100 3C Oil 74061 0086 110221 iaoo002000l000300003002000«0002000« 2
11 20 00100 3C 01 17«0610 166 110221 1100005000300 02000100020 0020 003000U 2
11 2000 1003CO 11 7309 12006 11 0250 1 4000 050006000U00039003000200050 003 2
11 2000100 3C 01 17 30 9120861 1 0250 1 40000 3000a0003000U0003000300030002 2
1 12000100 3C 01 17309121 66 110250 14000030002000400030003000 200040 003 2
3 3 7F 058 11 101910107101250000012340045 2
33 7F05«1 1101910107101 28 0000012340052 2
3 3 7F 058 11 10191010710201 000001234 0101 2
11 200 01 001C011 7410200 061 103231 3 100040003000400030002000300030002 2
11 20 001001C01 17 4 1020086 11 03231 3 10004000300010002000200010000 2
11 20001001C011 7410201 66 110 323131 0002000300040004000500050006 2
13400020010051 73100500611042114100030004000300020004000500030002 2
13400020010051 7310050061 10421 14100040003000200040C030004000300 02 2
13400020011)051731005166110421 141 0003 000200010000000200030002 2
1340002001 0051 74120 00 0611062 01 410006000400 04 00033005000 'J 000 30 004 2
13400020010051 7« 1 208086 1 1 0620 1 4 1 00040003000100030002000300030002 2
134000200 10051 74 120H166 11 0620 141 000300040003000 30002000 100020002 2
1100001001E021 740708006110120131-931-943-995-401-380-350-330-323 2
I 10000 1001 £02 1 7 'JO 7 080 OM? 023 128 1-931 -943-995-40 l~3flO- 350- 330-323 2
11 0000 1 00 1E0217'4070«086 12023 1281 -291 005200880089010301270169 2
1 t 0000100 IE 021 740 7080861 10131281 -291 005200880089010301270169 2
33 7F 0581 11019101 07 1020 30000 012340060 2
337F05M 1 1019101071021) 000001234 0040 2
33 7F 0581 1 101910107102150000012 34 00 99 2
337F0581 1 101910107102180000012340051 2
33 7F 0581 11019101071030VO 000012340051 2
1 100001001F02174070H1661202312810388 017702020191020902150208 2
1 37000123'lF 05 1 7401 150 061 101231 30 -00^-007-0 08-0 08-d 09-0 I 1-0 12-013
319
-------
TESTOfl
1 3 7000 1234F05174011500621 01 22150-006-00 7-008-008-009-011-012-013 2
337F05611101910107103160000012340080 2
337F05811101910107103I70000012340062 2
137000I234F051740115086210122150-011-009 -0030000000300030003 2
1370001234FObl740115086U0221140-011-009 -0030000000200030003 2
1 370001234F05174011516621012215000040004000600070007000800090010 2
1 370001234F05174080100621012215000630063006200610060 00600062 2
1370001234F05174080108621012215000630067 00740075007700800079 2
1 370001234F 051 740801166210122150007700740073 0069006800670066 2
1340002003r.)051751105006210322170-001-001-001-001-001-0010000 2
1 V40002003DO517511050061 I 0250140-001-001-001-001-001-0010000 2
1340002003U051 751 1(150862103221 70-0010000 00000001000100020001 2
1340002003005175110516621032217000010001000000000000000000000000 2
1 S40002003U05l740425086220]2019l0045n04<4 00«800«900U5 0038 2
337F05M1101910107103230000012340063 2
337F95*1 110 1910 10710326000001?3«0070 2
13«0002003005 17«0«251662201201910037003600350030002600260025002« 2
1I20001003C01173121300633011225200030003000200020003000200030009 2
1120001003C01173121309633011225200100012001300150022002300220020 ?
t1?0001003COI17312131663301122520000 001500100009000700050003 2
13«0001003A061750S18006
-------
334406442603990747311010000010010064000001002008200000100300360000010040026 2
337FOS81110I910I0710504000001234016S 2
337F05811101910107105080000012340038 2
334406442603990747312010000010010027000001002007400000100:300410000010040025 2
334A06R43501920217001010000100100550000010021100000010030098000001004005425 2
330A06B4350192021 70040 I 00001 001 005560000 1002 11101 0001 00 J0090990001004005453 2
334A06T43501920217007010000100100566000010021112600010030090970001004005452 2
334A06B43501920217010010000100100578000010021111800010030091000001004005451 2
334A06R4 330192021 7101 OlOOOOlOOlliO 5" 3000010021113600010030090 960001004005450 2
334AObB43soi920?i7i04oiooooiooioo558ooooioo2iiio40ooioo3oo9ioioootoo4oo5449 2
337FOS811101910107105110000012340076 2
337F05H11101910107105140000012340042 2
334A06'3'I 350 192021 M 070 1 00 00 1 00 1 005600000 1 002 1 1 1 05000 1 003009098000 1 00«005U50 2
3TIA06S'J3501920217110010000100100572000010021112200010030090990001004005451 ^
3VJA06B43501920217201010000100100583000010021111900010030090970001004005452 2
33UA06H43501920217204010000100100587000010021112800010030091000001004005453 2
337F05H11101910107105170000012340077 2
33 7FOSHU 1019101071 05210 i)P0012 34 00 48 2
334A06B435019^0217207010000100100598000010021113200010030090960001004005454 2
334A0h943501920217210010000100100559000010021110100010030091010001004005453 2
2340003002G04C71019!1843502910110005 2
23'l0003002G04C 7102^1 18435029101 10008 2
2340003002r,04C71039U843502910110013 2
2340003002G04C7104911843502910110021 2
2340005002G04C7201911843502910110034 2
337F058111019101071 (J5240000012340073 2
2340003002G04C7203911843502910110039 2
2340003002G04C7204911843502910110044 2
337F05811101910107105280000012340113 2
2340003002G04C7301911843502910110033 2
2340003002G04C7302911843502910110027 2
2340003002G04C73039U843502910110010 2
2340003002G04C7304911843502910110037 2
1340001001 A06174010100II10fl01000010001000200030005000800030021 2
134000I001A0617401011 (.111019101000010001000200030005000600030021 2
I 34000]001A06174010300111019101000020002000400060010001600260042 2
33 7F 0-381 1 101910107106Gb 00000 12 34 0054 2
U'lOOOlOOlAObl74010416111019101000030003000600090015002400390013 2
I 340001001A06174010608111019101000050005001000150025004000150005 2
1340001001A0617'1010800111019101000080008001600240040001400040018 ?
1340001001A06174011008111019101000130013002600390015000400190023 2
13'IOOOIOOIA06174011016H 1019101000210021 004,? 0013000500180023004) 2
1340001001A06174012000111019)01000330033001800020020002200420014 2
337F0581110191010/106140000012340037 2
1340001001A0617401200«111019101000040004001000150025004000150005 2
1340001001A06174012016111019101000370037002800170045001200070019 2
1 340001001A0617') 013108111019101000410041003800320020000200220024 2
1340001001AO627402010111201«1091000100010002<)0030005000800030021 2
13400010014062740201171120181091000100010002000300050008000iO021 2
1340001001A06274020U01112018109100020002000400060010001600260042 2
1340001001406274020017112018109100030003000600090015002400390013 2
1340001001406274020"011120181091000500050010001500250090001S0005 2
1340001001AO62/4021201 11?01H109100080008001600?400400014000400I8 2
1340001001A0627'i021617 I1201«109100130013002600390015000"OQ|90023 2
1340001001A0627402180 11 12018109100210021004200130005001800230041 2
1340001001A06274022 SI 7112018109100530033001800020020002200420014 2
321
-------
TEST08
I 340001001A06274022517 112018109 I 000400040010001500250040001 50OOb 2
13«0001001A062740228011120181091003700370028001/0045001200070019 2
1 340001001A06274023017112018109100410041003800320020000200220024 2
1340001001A06374030102211017190200010001000200030005000800030021 ?.
1340001001A06374030302211017190200010001000200030005000800030021 2
1340001001A0637403060221101719020002000200040006001 0001 600260042 2
1340001001A0637'4031002211017190200030003000600090015002400390013 2
1340001001 A06374031202211017190200050005001000150025004000150005 2
1340001001A06374031302211017190200080008001600240040001400040018 2
1340001001A06374031402211017190200130013002600390015000400190023 2
1340001001A0637403lb0221101719020021002100420013000500l«00230041 2
1340001001A06374031B02211017190200330033001800020020002200420014 2
1340001001A06374032202211017190200040004001000150025004000150005 2
1340001001A06374032302211017190200370037002800170045001200070019 2
1340001001A06374032602211017190200410041003800320020000200220024 2
134000 1001 A064740401034210111053000100010002000300050008 2
337F05811101910107106180000012340052 2
1340001001 A06474040203421011105300010001000200030005000H 2
t340001001A064740403034210111053000200020004000600100016 2
1340001 001A064 74040403421 01 11053000 30 003000600090 01S002'4 2
1340001001A 064740 '4080 3« 21011 1053000500050010001500250040 2
1340001001A06'4 7404100 34
-------
Ttsroa
1 34000 I 00 1 A0667<10607054240 13302100 1300 130026 2
1340001001A06674060B0542401330210021002100a2 2
1340001001A0667U06240S4240133021003300330018 2
1300001001A066740626054240133021000000040010 2
1 34000100 1A066740628054240 133021003700370028 2
337F05811101910107107270000012310052 2
3 3 7F 05*511 101910107107 290000012 34 00 38 2
337F05811101910107107310000012340057 2
337F05dlll019i0107108030000012340044 2
337F>05H1110191010710tf 050000012340046 2
337F05SI110191010710«070000012340031 2
337F058111019t01071oai00000012340072 2
337F0581110191010710M1200000123'»0039 2
337F05811 101
-------
TEsroe
V37F05B11101910107110260000012310037 2
5WFOSfll1101910107110280000012310023 2
$37*0581110H10107 110300000012310032 2
337F05811101910107111020000012310035 2
337F05811101910107111010000012310031 2
337F0581110191U1071 11060000012310037 2
337F05B11101910107111090000012310038 2
337F05811101910107111300000012310021 2
337FOS8U101910107112020000012310025 2
337F05fll1101910107112070000012310015 2
337F056U101910107112110000012310025 2
2310002001P058710801001110183010000511101150 I 10196 2
23100020010058710803001110183010000511101150110238 2
23100020010058710808001110183010001014101150110561 2
23100020010058710H100011101H301000151H01150110302 2
23100020010058710820001110183010000511101150110817 2
2310002003U05*7108010011101B30100038
-------
//EPALMH09 JOB (A087.LMH, ,LMH,,3).TIME=1,PRTY=5,^SGCLASS=P
//KILL EXEC PGM=IF.FBR14
//DDt DO UNir=3330,DI3P=(OLO, DELETE),
// VUL=SEH=COHSPK,
// DSNsCN.EPALMH.A087, CDHS.HQ.AOS.DAT A. AQ1029C6
//*
//* TEST 9 - UPDATE MASTER FILE USING NErt FORMAT TRANSACTIONS
//*
//TEST9A EXEC AHUFUPOT,
// PHOJ£CT='CN.EPALMH.A087.CDHS,H«.AQS',
// OUT=P,
// Rt=100K,
//tOIT. OPTIONS 00 »
//EOIT. INPUT DO *
23«0003002r,0«C/1019l28a35029101 1 «7 2
23«0003n02GO«JC/1029t28aJ502(?1011 34 2
?3t0005002GOUC7103912fl'Ji502910U 31 2
23«0003002GnaC710«9126«35n21'I01 1 5 2
23«0003002GO'JC720 19128435029! 01 100U6 2
2340 00 3002U04C 720291 28435029101 10011 2
23U0003002GQ4C72039128U3502910I 10007 2
234000 3002G04C720491264350291 01 10018 2
?340 0030 02G04C 7 30191284 350 29101 10025 2
234000 30 02G04C730 29 12U4 35029 101 10043 2
2 34000 3002G04C 73039 128U35029101 1001 fl 2
2 34000300 2G04C 730491284 350 29 101 100 11 2
? 34000 3002G04C 74039 1286 120231 28 1-725 2
2340003002G04C7403912R6210122151-030 2
//UPDATE. INPUT DO *
'JOLIST FLAGrt
//TEST9K EXEC AHQELIST,
// OUT=P,
// REGION. KEPQRT=130K,
// H3TRFIL=AQ1029C6
//*
//* PHOOUCE DETAIL LIST OF MASTER FILE
//*
//REPORT .INPUT DO »
DISPLAY M > 50
325
-------
TESMO
//EPAL'WIO JUB CA087.LMH,
//*
//KILL EXEC Pr.HrJEFORlU
//OOI 00 'JNITs3330,OISP=(OLO, DELETE),
// VUL=3ER=CDHSPK,
// OS'J3C^.EPALMH.A087.COHS.HQ.AfJS.OATA.A(J1029C2
//* TEST 10 - UPDATE MASTER FILE USIWi NE'.n FOHMAT TRANSACTIONS
//* COMPU3ITE DATA
//*
//TEST10 EXEC AHQFUPUT,
// UUTsP,
// RlsJOOK,
// PROJECTS 'CM. EPALMH.A087.COHS.SQ.A3S',
// ME
//EDIT.DPTIIKJS DO «
LI3T FLAr,,y
//COtT. INPUT 01) *
23U0003002GOUC7J013038U35029101 10029 2
2 jao<)03002KOaC 7 30230384 550291 01 100UO 2
23«0003002GO«C/303303H« 35029101 10019 2
23«0003002C,0
-------
TEST11
//EPALMH11 JOB lOn0033 2
231000 30 02GOaC730'507Ufla 350 29 10110020 2
2310003002GO'lC730b07(48U3502
-------
-------
Ttsru
//EPALMH13 JOB (A087,LMH,/L*H,,|),TlMEsl,PRTY»Sr^SGCLASS3P
//KILL EXEC PGM=IEFBR1mr PREVIOUSLY UNSU8>4ITTEO READINGS TO SAROAD
//SU8MI1.AOOFIUE DO
//SUBMIT. CHNGEFL 00 SYS3UT=P
//TE3T13A EXEC AHUACNVT,
// OUTsP,
// DLDMSTRaAQ102076,
//
//*
//• SHO/« THAT ALL READINGS HAVE BEEN SUBMITTED
//S'JHMIT.AOOHLE DU
//SUMMIT. CHNGEFL DO 3YSOUT«P
329
-------
rtsri'4
//EPAL-*H14 JOB
//KILL EXEC PGM=IEFBR14
//001 00 UNIT=.J330,OISP=(OLD, DELETE), VOL3SERSCDHSPK,
// 03N=CN.EPALMH.AOfl7.C3HS.HQ.AOS.OATA.TSPG;2
//*
//* TEST 10 RETRIEVE UN YEAR >= 1972 AND PARM CODE OF 11101 (TSP) AND SAVE FILE
//TESTia EXEC AHORETVH,
// OUT=P,
//
// ANSWHFL=TSPG72»
// OISP='NEW,CATLG,OELETt'
//COMPILE, INPUT 00 *
MSELECT
PARAMETER-CODE = '11101* ANO
YEAR 14 < '12'
StENO
330
-------
TESTIS
//EPALMH15 JOB (A087,LMH,,LMH,,1),TIME=1.PRTY35,MSGCLASS=P
TEST 15 - DATA ANALYSES !JF FILE CREATED IN TEST 1C
//TEST15A EXEC AHQMgfNT,
// OUT=P,
EXEC
// IJUT=P,
// PRIMAHY«OS/
// M3TRFRSSTAU5,
// 3TATFIU=STAT15B
//TEST15C EXEC AHQSLIST,
00000020
00000030
00000060
00000060
00000090
000001 10
331
-------
1EST16
//EPAL*H16 JOS (A087,LMH,,L*H,,1),TIME=1,PRTY=5,^SGCLASS=P
//* 00000030
//* TEST 16 -SLIDING AVERAGE OF TSP DATA CURHtNT TO 1972 OR LATER
//» RERUNS TEST IU RETRIEVAL EXCEPT IN SLIDING AVERAGE MODE AND
//* OBTAINS SLIDING AVERAGE
//• OOOOOOSO
//TEST16A FXEC AHQHETVR,
// OUT=P,
// PRIMARY=05,
// MSTRFIL=AQ102076,
// ANS«RFL=TSPG72SA
//COMPILE.INPUT DO *
.USELECT SLIDING
PAH4METER-CUDE s '11101' AMD
YEAH N < '72'
X/TESTlbB EXEC AHOIAVGS,
// UUT=P,
// PRIMARY«05»
// MSTRFIL=TSPG72SA,
//AVERAGE.INPUT oo *
AVERAGE 2a
//TEST16C EXEC AHQELI3T,
// UUT=P,
// REGION.REPORTS130K,
// MSTRFIL=ITSLDA16
332
-------
TEST17
//EPALMM17 JOB
//KILL EXEC
//ODl 00 UNIT=i330,OISP=(OLD,DELETE),VUL=SER=COHSPK,
// DSNsCN.EPALMH.A087.CDHS.HQ.AJS.DATA.S02G72
//*
//» TEST 17 RETRIEVE ON YEAR >= 1972 AND PARM CODE OF «2'J01 AND SAVE FILE
//*
//TEST17 EXEC AHQHETVR,
// UUT=P,
// PHIMARY=OI,
// ANS«RFL=S02G72,
// OISP='fJFw,CATLG,DELETE'
// OISPs'NEW,CATLG,DELETE'
//COMPILE.INPUT 00 *
JJ3FLECT
PARAMETER-CODE = 'a2«01' AND
YEAR N < '72'
333
-------
ttsna
//EPALMH18 JUH (A087,LMH, ,LMH,, 1 ) » T IME*1 ,PRT Y=5,
//*
//* TEST 18 DETAIL LIST OF TSP DATA RETRIEVED IM TEST
//*
//TE3T18 EXEC AHUELIST,
// OJT=P,
// REGION. Kt?ORTsl30K,
//REPORT, INPUT DO *
DISPLAY > £5
334
-------
TE3M9
//EPAL'-1H19 JW (A007,LMH, ,l»H, , 1 ), T 1ME= I , PR C f=5, M3GCLASS=P
//KRL EXEC p(iM5iEFBRi«,R£c;iON=«K
//C UD D3N = CN.EPAL«*H,A08?.COHS,HU.AQS.DATA.HTPRM2AB,UNns3330,
// VOL = S£R=C[)HSPK,D 1 3Pa( OLD, DELETE)
//D OD 03N=C'M. EPALMH. A087. COM3. HQ.AQS.DAT A. HTPRM1A8, UN IT 33330,
// VOL = SEH=CDMSPK,D I Sf'=( OLD, DELETE)
//£ HO 03>J = Cf'.EPAL"H.AOH7.COHS.HlJ,AQ
// VOL=3ERsCOHSPK,DlSP=(OU>,OELETfc)
//*
//* TEST 19 - UPDATE PAWM-CODE TABLE
//•
//TFST19A EXEC 4HQHUP01,
// OUT=P,
//
//*
//» UPDATE VALID PARM, METHUO UNIT TABLE
//*
//3'JHT.I^PUT OD •
1U2U011707000«2SULFUR DIOXIDE INSTRUMENTAL 00000100
ao?(IOH707000a2POLARC)GRAPHIC PYNA SCI. PAHT3 PER MILLION (VOL/VOL) 00000300
tua(^150107521 00000^00
2«26021501075^1 00000100
1 1 1 10«910100021POLNUCLEA3 HYDROCARBONS HI-VOL 00000500
?] 1 104910I00021PIPERCJNYL CHLOHIDE U-GM3/M3 (25UEG C/1013 M-8AR3) 00000600
//TEST199 E^EC AHONSENT,
// OUT=P,
// PRIMARYrOb,
// PARMKFLsHTPR^lAB,
// PAHMFFLSNTPHMIAB,
// 01SP='NEw,CATLG, DELETE'
//*
//* APPEND SENTINEL RECORD FOR USE HY DATA ANALYSIS
//*
X/TE3T19C EXEC AHQPMETH,
// KEYFIL'HTPRMtAB,
// OUTsP,
// DE3CFIL=HTPRM2AO
335
-------
//EPALMH20 JOB
//KILL EXEC PGM=lEFBRt«.!»EGIClN=
-------
T£ST<£1
//EPALMH21 JUO
//KILL EXEC PGM=IEFBH1«,REGION=US
//O DO DSN=CN.EPALMH.A007.CDHS.HT.AUS.DATA.HrSTUOA8,DISP=(ULD,DELETE),
// VOL=3EH3COHSHK,UNIT=3330
//*
//* TEST 21 UPUATE PA«i4. STANDARDS TABLE
//*
//TEST21A EXEC AHQHUP03,OUT=P
//*
//* UPOATE PARAMETER STANDARDS TABLE
//*
//SORT.INPUT 00 *
U2101F0110110,000 U-GMS/M3 (25 C) - 8 HOUR MAX, I PER YEAH OOOOOiOO
«2101F01201UO,000 U-GMS/M3 (25 C) - 1 HOUR MAX, I PER YEAR 00000200
'•2101F031079 PPM, 8 H(JUR MAXIMUM, ONCE PER YEAR 00000300
U2101F0320735 PPM, 1 HOUR MAXIMUM, ONCE PER YEAR OOOOOaOO
-------
TtST22
//EPALMH22 JOB CA087,LMH,,LMH,,3),TIME=l,PRTY=5,MSGCLASSsP
//* TEST 22 • UPDATE MASTER FILE & DETAIL LIST
//*
//KILL EXEC PGM=IEFbR14,REGION=4K
//O 00 OSN=CN. KPAL.MH. A087. COHS, HQ.AOS.DAT A. A«TRAMS,01SP=( OLD, DELETE),
// VOL=SER=CDHSPK,UNIT=3330
//D 00 DSN=CN.£PAL*H.A087.CDHS,HQ.AQS.OATA.AQ102576,
// OISPs(OLO, DELETE),
// VOL=SER=CDHSPK,UNIT=3330
//TEST22A EXEC AHQTEOIT,
// PROJECT='CN.EPALMH.A087.COHS.HQ.AUS',
// OUT=P,
// REGION. EDIT=90K,
// PRIMARY=05,
// PARMKFL=HTPRMJ AH,
// SITEF1L=HT3ITEA8
//EDIT. OPTIONS DO *
//EDIT. INPUT 00 •
23400020030058/4020 100621 01221 51 -015 2
?S«0002003DOS67'I080100U0101 I SO I 10222 2
33" A06BO 3501 9202 1700101000001001005500000100201 1 000000 100 3009800000 I OOOOOSti 2
3 3UA06B1 350192021 700«0100000l001UOS6000001002010l000001003009900000100<«0053 2
33aA06B*i 350 192021 70070 100000 100 1006600000 10020 12600000 I 00 3009700000 100a0052 2
3 iaA06B«l 3501 92021 701001 000001001007800 000100201 1900000100 30 10000000100UO 051 2
3 3U A 0684 350 192 021 7 10 10 1 00000 100 10093000001 0020 13600000 100 3009600000 100«0050 2
334A06B621 012215 171020 100000 100 1-003000001002-01500000 100 30 102 2
33«A06Ba 3501 92021 71 OU0100 000100 100SB000001 0020 lOaOOOOO 10 0301 01 00 0001 00400U9 2
33aA06H4 350 192021 7 1070 100000 100 1006400000 10020 105000 00 100 30 09800000 10040050 2
334 A06B4 3501 92021 71 100 10000 01 00 100 7200 00010020 12200 000 100 3009900000 100400S1 2
334A06B4350 192021 720 101 00000 100 1006 300000 10020 1 1900000 1003009700000 10040052 2
334A0684350 19202 1 72040 1000001 00 100H700000 10020 12300000 100 30 10000000 10040053 2
334A06862 103221 M 72050 1 00000 1001 -0 I 3000001 002-0 1 0 2
3 34 A06R4350 192021 720 70 10000 01 00 I 009800000 10020 13200 000 100 30 09600000 10040054 2
334A06B4350 19202172100 100000 1001 0059800001 00201 0100000 100 3010 1000001 0040053 2
$34 A06A42603990 74/0 030 100000 100 1003800000 1002006200000 100300 3700 000 10040024 1
334A06A42603990 74 730 $01 00000 100 100 3800000 1002006200000 100 3003700000 10040024 2
3 34 A06A4260 3990 74 730 /O 100000 100 1004200000 1002006800000 100 3003800000 10040022 2
134000 1001 A065 740 1200 4621 0122151 -009-0 10-0 120000 3
1340001 00 1A065 7405200442 1029 1054002 I 002 10042001 S 3
//TEST220 EXE.C
//
// PR(UtCT=*C?l.EPALMH.A087.CDH3.HO.A3S',
// PRIMARY=05,
// NE*MSTHsAQll)2576
//UPOATf. INPUT 00 *
NOLIST
338
-------
TLST23
//EPALMH23 JOB (408!,LMH,,LMH,,2J,TIME*I,PRTfs
//KILL EXEC PGM=Itf-BHl<4
//OOI DO UNIT = 3330,UISP = (OLl>,DELETE),
// VOLs3ER=Cl)HSPKf
// DSNAMe=CN.EPALMH.A087.AQTRANS
//*
//* TEST 23 - CONVERT 3AROAO INPUT TRANSACTIONS TO AQDH3-II TRANSACTIONS
//» ANO SAVE CONVERTED TRANSACTIONS
//TEST23 EXEC AHQCIMVRT,OUT=P
//*
//* CONVERT OLD FORMAT TRANSACTIONS TO NEW FORMAT TRANSACTIONS
//*
//CONVERT.INPUT 00 *
*2
200001OOUB037760101001 I 201 HI0922000
i>?.0000100UH037760 10300112018 1092 600
220000100'4003776010^001 120181092 70
2200 0010 0480 3/760 105001 120101 0<»2 50
220000100*4803/760106001 1201 810<»2 80
220000100«8037760107001120181092 90
220000100UB037760108001120181092 joo
220000tnO'480377fa0109001 120181092 120
220000100<4fJ03/760 110001 120 181092 150
?(?0000100«B03776011100H201S1092 100
2200001OOaB03776011200)120101092 110
220000tOOaB037760113001120181042 120
22 00 0010008037 7 60 liaOOH201H10 92 130
2200001000803776011500U20181092 160
220000100aB037760116001120181092 I/O
220000100«B037760117001120181092 170
220000100UB037760118001120181092 170
220000 10 0<*0037760 1190 01120 161092 180
22000010016037760120001120181092 200
220000100UB037760121001120181092 210
220000100U8037760122001120181092 170
220000100'4B037760123n01 1201 81092 160
22000010HUB03776012U001120181092 1UO
220000100UB037760125001120181092 100
220000100UU037760126001120181092 90
22000010010037760127001120181092 60
220000lOuab03776012B001120181092 UO
220000100aH03776012'N) 01120181092 80
220000100a8037/60130001120181092 30
220000100<4E0277602010061202312P1-0306210122151-020
220000100U0037760201001120181092 20
220000100'4B037760 20 30 011201 81092 60
220 000100 '4B03776020U001120181092 70
22000010045037760205001120181092 50
220000100 '4H03776U20600U20181092 80
220000(00'4 00377 60 207001 1201 81092 90
220000100«H0377602080011201fll092 100
2200001 00(48037760209001 1201810 92 120
2200 00 1<10UB03 7 7602 10001 120181092 150
220000100UU037760211001120181092 100
220000100<4H03776021?001 120181 092 110
220000100'4H03776021 3001 120181092 120
339
-------
TE3T23
2200001000H037760210001120181092 130
2200001000U037760215001150181092 160
220000lOOaBO37760216001120181092 170
220000 100'JfJO3776021 7001 120181092 I 70
2200001OOOB037760218001120181092 170
22000010048037760219001120181092 I HO
2200001000HO37760220001120181092 200
220000100'lBO37 76022 100112018109? 210
2200001000B037760222001120181092 170
2200001000H037760223001120181092 160
220000100UBO3776022«001120181092 l«0
22000010008037760225001 1201«1092 100
2200001000H037760226001120181092 90
220000 100U.103 7760 22 700 11 20 181 092 60
220000100OB0377602200011201*1092 UO
2200001000H037760229001120181092 80
22000010000037760230001120181092 30
2200001000B037760301001120181092 20
220000100UB037760303001120181092 60
220000 1004H037760 30*10011 20 181092 70
220000100UHO37760305001120181092 50
2200001001B037760306001120181092 80
22000010048037760307001120181092 90
22000010006037760308001120181092 100
2200001OOOHO37760309001120181092 120
22000010005037760310001120181092 150
?20000 I 0005037760311001120181092 100
2200001000 F>037760 312001 1201810 92 110
2200 00 100 '413037760 3130 01 120181092 120
2200001000B037760310001120181092 130
22000010000037760315001120181092 160
2200001000B037760316001120181092 170
2200001000BO37760317001120181092 170
22000010008037760318001120181092 170
22000010000037760319001120181092 180
2200001000H037760320001120181091 20
2200001000B037760321001120191091 21
22000010008037760322001120181091 17
22000010U'(8037760323001 120181091 16
220000100OH037760320001120131091 10
22000010000037760325001120181091 10
2200001000BO37760326001120181091 9
2200001000H037760327001120181091 6
22000010006037760328001120181091 0
2200001000BO37760329001120181091 8
2200001000B037760330001120181091 3
2200 001000c)0377600 01001 120I8109J 2
22000010003037760003001J21161091 6
2200001000B037760005001120181091 5
22«OOOIOOOH037760006001120181091 8
220000100080377bO007001120181091 9
2200001000B0377600080011201B1091 10
22OOOOinoo0037760009001120181091 12
2200001O00ri037760010001120181 091 15
2200001000B037760M10011201H1091 10
22000010008037/60012001120181091 11
340
-------
TEST23
2200001001B037760«13001120181091 12
2200001004BO37760014001120181091 13
2200001000B0377600150 01 120191091 16
22000010001105776001 60 01120181 091 17
2200001004B037760'417001120181091 17
22000010008037760018001120181091 17
220000100UB037760019001120181091 18
22000010008037760420001120181091 20
220000 1000BO3/760021 001120 181 091 21
220000100OU037760022001120181091 17
220000inOOrt03776002300112018l09l 16
220000100'4 0037760!42400112018109l 14
2200001000B03776002S001120181091 10
22000010048037760026001120181091 9
220000100'480 37760 02 70 01120181091 6
220000100 '4 H037760 428001120181091 a
220000lOOOdO37760029001120181091 fl
220000100'J0037 760030001 120181091 3
22000OlOOaBO37760501001120181091 2
220000100aH037760b03001120181091 6
2200001004H037/6050U001120181091 7
22000010048037760b0500112016109l 5
220000100«8037760506001 120181091 8
220000100«B037760507001120181091 9
220000JOO'480 3 7 76050800ll?0181091 10
22000010048017760509001120181091 12
220000100MB037760510001 120181091 15
220000100
-------
320000!OOaH037760611001120181091 10
2200001004B037760612001120181091 11
2200001004B037760613001120181091 12
22000010U4B037760614001120181091 13
220000100UUO37760615001120181091 16
22000010043037760616001120181091 17
2200001004B037760617001120181091 17
220000 lOOaftO377606 1H001 120 IB 1091 17
2200001004H0377606r>00I 1201 HI 091 18
22000010046037760620001120181091 20
22000010048037760621001120181091 21
22000010048037760622001120 I 81091 17
2200 0010048037760623001 120181091 16
2200001004BO37760624001120 I 81 091 14
22000010046037760625001120181091 10
220000JOOaBO37760626001120181091 9
22000Q100UH037760627001120 I 81091 6
2200001004HO3776062*001120181091 4
2200001004803776062900112018109J 8
2200001004B037760630001120181091 3
22000010048037760701001120181091 2
22000010048037760703001120181091 6
220000100180377607040011201B1091 7
2200001004H03776070SO01120181091 5
220000100aB037760706001120181091 8
22000010048037760707001120181091 9
22000010049037760708001120181091 10
22000010048037760709001120181091 12
22000010048037760710001120181091 15
22000010048037760711001120181091 10
2200001004B037760712001120181091 11
22000010U4B03776071300112018109) ^^
2200001004H037760714001 120181091 13
2200001004H037760715001120181091 16
2200001004B037760716001120181091 17
P200001004U037760717001120181091 17
22000010048037760718001120181091 17
2200001004B037760719001120181091 18
2200001004H037760720001120181091 20
22000010040037760721001120181091 21
220000100 (10037760722001 120181091 17
220000 10046037/00723001120181091 16
22000010040037760724001 120181091 \U
2200001004H037760725001120181091 \0
22000010040037760726001120181091 9
2200001004UO37760727001120181091 b
2200001004U037760728001120181091 4
2200001004H037760729001120181091 8
2200001004HO37760730001120181091 3
22000010043037760801001120181091 2
2200001004B037760803001120181091 6
2200001004B03776080400|120181091 7
22000010048037760805001120181091 5
22000010043037760806001120181091 4
2200001004H037760807001120181091 9
2200001004HO37 76080f>001 120181091 10
342
-------
TEST23
2200001004B037760809001120181091 12
2200001004U037760M0001120181091 15
22"0001004B037760HI 1001 120181091 10
22000010048037760812001120181091 11
22000010048037760813001120181091 12
2200001000803776081UOO1120181 091 13
2200001004903776081SOOI 120181091 16
22000010048037760816031120181091 17
2200001004B0377608170011201 81 091 17
220000lOOaBO3776081 ROOM 20181091 17
220000100'4B037760819001120181091 18
22000010048037760820001120181091 20
22000010048037760821001120181091 21
22000010040037760822001120181091 17
22000010048037760823001120181091 16
2200001004Q037760824Q011201B1091 {ti
2200001004BO37/60825001120181091 10
22000010048037760826001120151091 9
220000100'4 H037760 827001 120181 091 6
220000100 i»n 037760828001 120181091 a
220000100«ll 037760829001 120181091 8
2200001004H037760630001120181091 3
22OOOOlOOaa037760901001120181091 2
22000010004037760903001120181091 6
220000100«B03776090U001120181091 7
2200001004H037760905001120181091 5
ta
22000010008037760906001120181091 8
220000100'18037760 907001 120181091 9
22000010048037760908001 120181091 10
2200001001B037760909001120181091 12
22000010040037760910001120181091 15
2?OOOni004B0377609H001 120181091 10
220000)0040037760912001120161091 H
22000010040037760915001120181091 12
220000100'(B037760 910001 1201B1091 13
2200001004*037760915001120181091 16
2200001004B037760916001120181091 17
2200001004H037760917001120181091 17
220000100'4H037760918001 120181091 17
2200001004B037760919001120181091 18
2200001004H0377609200011201H1091 20
22 00001004(3037760 921001 1201B1091 21
2200001004003776092200H20181091 17
2200001004D037760923001 120181091 16
2200001004B037760924001120181091 lq
22000010048037760925001 120181091 10
22000010040037760926001120181091 9
22010010045037760927001 120181091 6
220000100UB037760920001120181091 a
2200001004HO37760929001120181091 8
2200001004B0377609S0001120ieiO
-------
220000100OB037761006001120181091 8
2200001000H037761007001120181091 9
2200001 <)0'4B037761008001120181091 10
22000010000037761009001 120181091 12
2200001000B0377610I 0001120131091 15
2200001 OOOftO377610 1100 1120 I 81091 10
220000 IOOOHOS776101200112018109 I 11
22000010000037761013001120181091 12
22000010000037761OiaoO1120181091 13
2200001000*037761015001120161091 16
22000010008037761016001120181091 17
220000100'4B03 7761 01 700 11 20 1«1091 17
22000010008037761018001120181091 17
2200001000B037761019001120181091 18
220000 IOOOH0377M020001120181091 20
22000010000037761021001120181091 21
22000010008037761022001120181091 17
22000010008037761023001120181091 16
220000 IOOOBO37761020001120181091 10
22000010006037761025001120181091 10
2200001000B037761026001120181091 9
2200001000B037761027001120181091 6
22000010001)037761 0280 01 120181091 0
22000010000037761029001120181091 P,
22000010000037761030001120181091 3
2200001000B037761101001120181091 2
2200001000HO37761103001120181091 6
2200001000H037761100001120181091 7
22000010008037761105001120181091 5
2200001000B037761106001120181091 fl
220000100OB03776I107001120181091 9
22000010000037761108001120181091 10
22000010000037761109001120181091 12
220000 100'l«03 7761 11 000 11 20 181091 15
2200001OOOBO37761111001120181091 10
22000010000037761112001120181091 11
?;>00001000B037761113001120181091 12
2200001OOOH037761110001120181091 13
220000 IOOOBO37761115001120181091 16
2200001OOOBO3776111600 1120181091 17
22000010000037761II7001120181091 17
?200001000U037761118001120181091 17
22000010000037761119001120181091 18
2200001000B037761120001120181091 20
2200001OOOBO37761121001120181091 21
2200001000H037761 122001120181091 17
2200001000H037761123001120181091 16
22000010000037761120001120181091 10
220000 1000H03 1 761125001120181091 10
2200001000003/761126001120181091 9
^2000010000037761127001120181091 6
^2000010000037761128001120181091 0
220000 I 00OB037761129001120181091 8
2200001000B037761130001120181091 3
22QOOOIOOOH037761201001130181091 2
2200001000H037761203001120181091 6
344
-------
TLST23
22000010049037761204001120J81091 7
2200001004B03776120500II20181091 5
2200001004H0377612060 01 120181091 8
220000100'4R037761 20/001120181091 9
2?0000100«8037761208001120181091 10
P20000I004B037761209001120181091 12
2200001004B0377612100011201B1091 15
220000100«H03776J2l1001120181091 10
220000100<4tt037/6l2120011201fll09i n
2200001004BO37761213001120181091 12
2200001004SO37761214001120181091 13
220000100UB037761215001120181091 16
220000100<4H037f61216001 120181091 17
220 0001 00'4803776121 7001 120181091 17
2200001004U0377612180011201H1091 17
?20000100«fl037761219001120181091 18
2200001001B03776 I 220001120181091 20
2200001 nO'4B03 776122 1001120 181 091 21
2200001000H037761222001120181091 17
220000100OH037761223001120181091 16
22000010048037761221001120181091 \u
2200001000H03776 122500112018 109J 10
22000010008037761226001120181091 9
220000100UBO37761227001120181091 b
220000100««037761228001 120181091 4
2200001OOUBO37761229001120181091 fl
22000010018037761230001120181091 3
23100030100047761201006210122151-01561202312810012
//CJNVE3T.AQSOPTIN 01) *
NOLIST
//CONVERT.OUTPUT 00 UNITs3330,VOL=S£R=CDHSPK,
// OISP=(Ntrt,C«TLG,OELETE),
// SPACE=(TRK,(08,2),RLSE)»
// DSNAMEsCN.EPALMH.A087.AQTRANS
345
-------
TEST2a
//EPALMH2a JIJH (A087,Lf'H,,L^H, , 3) , T IME= 1 , PUT Y»5
//KILL EXF.C PGM=ltFUHia
X/D01 00 UNlT=3330,DISP=(OLDfDELETE)r
// VOL=SEH=COHSPK,
// OSN=C;M. EC ALMH.A087. COHS.HQ.AOS.DAT A. jKRONfi 76
//IEST2« EXEC AHQFUPDT,
// P"»i)JECT='CN,EPALMM.A087.COHS.HQ.AQS',
// RJ=100K,R2=100K,
// PRIMAHYsJO,
OLD'MSfR=AOl02576
OD *
NOLI3T FLAGw
//EDIT.INPUf 00 OSNAMt=CN.EPALMH.AOfl7,AOTRANSf
// OISP=(i)LD,Of.LETE)
//UPDATE. INPUT DO *
346
-------
1EST25
//EPALMH.J5 JOB (AQ87,LMH, ,LMH, ,3), T IMfc= 1 , PR T Y=5
//KILL EXEC PGM=IEFbHlU
//ANSWERS 1)0 JNIT = il.SOrDISP=(OLO, DELETE),
// VOL=SER=CDHSPK,DSn=CN.EPALMH.A08r.CDMS.HO.Aas.DATA.MDCGFLG
//TE3T2S EXEC AHGRETVR,
//
// 3ISP='N£rt,CAILG, DELETE'
//COMPILE. INPUT 00 *
JSSELECT USER
GO TO U3ER-PRUC.
IJSER-STAT-CHNG.
IF DATA-FIELD (SUB) NOT EQUAL '9999'
MOVE 'A' TO STATUS-FLAG (3U3).
ADO 1 TO SUB.
USER-END. EXIT.
USER-HROC.
MOVE TRUE TO RECORO-OUALIFIES-Srt.
* ALL RECORDS NEED TO BE COPIED.
MOVE t TO 3UB,
PERFORM UStR-STAT-CHNG THRU USER-END MBR-OF-READINGS TIMES,
USER-PROC-ENO, tXIT.
*.•«(•; NO
347
-------
//FPAUMH26 JUB (A087,LMH,,LMH,,3),TIME»I,P»TYS5
//KILL EXEC PGM=IEFBtfl<4
//002 00 UNITsJ3.SO,OIS>' = (OLD, DELETE),
// VOL=SER3CDHSPK,
// ()3NsCM.EPALi«IH.AOfl7.COHS.HO,AQ3.DAT*.AQ1027V8
//*
//* TEST 26 - SUBMIT DATA TO SAROAO
//*
//TFST26 EXEC AHQACNVT,
// OLDMSTR=AQ102876»
//*
//* SUBMIT PREVIOUSLY UNSUBHITTED READINGS TO SAHOAD
//*
//SUBMIT. AODFILE 00 SYSOUT^P
//SUBMIT. CHNGEFL 00 SYSOUTsP
348
-------
TEST27
//EPALMH27 JOB .(A087,LMH, ,LMH, ,2)
//KILL EXEC PGMrl£FBH14
//OD1 DO UMIT=JiiO»OISfs(OLO»OtLETE),
// VOL=SE*=COHSPK,
// D3N=CN.EPALMH.A087.COH3.Mf), AGI3.DAT A, AQ760 ATA
//*
//« TEST 27 RETRIEVE ON rEAR 1976 AND SAVE FILE
//*
//TE3T27A EXEC AHUHETVR,
PkIMAHY=15,
// DISP='NEW,CATLG, DELETE'
//COMPILE, INPUT 00 *
IfSELECT
YEAR = '76'
StENO
//TEST273 EXEC AHQOUMP,
// MSTRFIL=AQ760ATA
349
-------
rtST28
//EPALMH28 JOB (AO«7,LMH,,LMH,,05),TIMEet,PRTY85
//* TEST 28 - DATA ANALYSES OF FILE CHEATED IN TEST 17
//* 302 DATA FRU'1 1972 TD PRESENT
//*
//TEST284 EXEC AHQMSENT,
// MSTRFRS302G72,
// SrATFIL=STAT28
//TESTaSS EXEC AHliUANAC,
// MSTRFIL=STAT28,
// STATFIL=STAT288
//TE3T2flC EXEC AHOSLIST,
// STATFIL33TAT288
350
-------
//EPALMH29 JUB (A087,LMH, ,L^H,,3)»TIME=1,PRTY=5
//*
//* TEST 29 - REPEAT TF3T 17 RETRIEVAL EXCEPT NO* IN SLIDING AVERAGE
//* MODE AND OBTAIN SLIDING AVERAGE
//*
//* 302 DATA FROM 1972 TD PRESENT
//*
//TEST29A EXEC AH9HETVR,
// MSTRFIL=AQ102076,
//COMPILE. INPUT 00 *
StSFLECT SLIDING
PARAMETEU-CUnt = '02U01' AND
YEAR N < *72*
JJENO
//TEST29B EXEC AHUIAVGS,
// M3THKIL=302G72SA,
// ANSWHFL=ITSLOA29
//AVERAGE. INPUT UO *
AVERAGE 03
//TEST29C EXEC AHUELIST,
// REGION. REPo«T=i30K,
// MSTRFIL=ITSLDA29
351
-------
//EPALMHJO J08 (A08M.^H,,lMH,,J),TlMEsl,PRTY=5
//*
//• TEST 30 LIST OF S02 DATA CREATED BY fEST 17
//*
//TESM0A tXtC AHQELIST,
//REPORT. INPUT 00 *
DISPLAY < 9997
352
-------
X/I-PALMH31 JOB (A067,L"1H,,LMH,,3),TIME=1,PRTY»5
//* TEST 31 - DATA ANALYSES OF FILE CREATED IM TEST 27
//* ALL 1"»76 OATA
//*
//TE3TJIA EXEC AHQMSENT,
// MSTHFIL=AQ76DATA,
// STAfFIL=STAT31
//TEST31B EXEC AHODANAL,
// MSTRFIL=STAT31,
// 3TATFIL=STAT31Q
X/TEST31C EXEC AHQSLISFr
// STATFIL=STAT31B
353
-------
TfcST32
//EPALMH32 JOB (40«7,LMH,,i.MH,,S)f TlM£«l,PKTYs5
//*
//* TEST 32 - SLIDING AVERAGE OF FILE BASED ON SAME RETRIEVAL AS
//* TEST 27, PUT THIS 11*1 RETRIEVED IN SLIDING AVERAGE MODE
//* ALL 1976 DATA
//*
//TESTJ2A EXEC AHQHETVR,
//COMPILE.INPUT DO *
S.tSELECT SLIDING
YEAR = '76*
StEND
//TESTi2fl EXEC AHQIAVGS,
// H3|RFIL=SADATA76,
//AVERAGE.INPUT DO *
AVERAGE 3
//TEST32C EXEC AHQELIST,
// REGION.RtPORT=130K,
// MSTRFIL=IT5LDA32
354
-------
TEST33
//EPALMH33 JOB (A087,LMH,,LMH,,3),TIME»1,PRTY
//*
//* TEST J3 LIST OF OAT* CHEATED BY TEST 27
//» «LL f/ft DATA
//*
X/TEST33A EXEC AHOELI3T,
// 3EGION.REPORTSI30K,
// MSTRFIL=AQ760ATA
//REPORT.INPUT 00 *
DISPLAY M s 0
355
-------
//EPALMH3a JOU (A097,LMH, ,L*M,, 15) ,HME = 1,PHTY=5
//SCRATCH EXEC PGM=IEFBR1U
//LD 00 UNIT33330,DISP=(OLO,DELETE),
// VOL»3ER«COHSPK,
// DSNsCN.EPALMH,AOb7.COHS.HQ.AQ3.DATA,RfANSRIS
//S 00 UNlT3S330,DISPs(QLD,OtLtTE),
// VOLsSER=CDH3PK,
// OSM=CM.EPALMH,AO«7,CDH3.HQ.AUS.DATA.RTANSR16
//Q 00 UMIT=3330.0ISP=(OLD,DELETE),
// VOLsSEH=CDHSPK,
// D3NsCN.EPALMH.AOfl7.CDHS.HQ.AOS.DATA.AQFINAL
//TEST34A EXEC AHQRETVR,
// MSTRFIL=Agi027V2,
//COMPILE.INPUT DO »
IJ3ELECT
YEAR > '71'
JJENO
//TEST3a3 EXEC AHORETVH,
// MSTRFIL=A01027V2,
//COMPILE.INPUT DO *
StSELECT
YEAR < '72'
//MERGE E*EC AHQMERGE,
// PROJECTs'CN.fcPALMH.AOS7.CDHS.HQ.AQ3',
// INFILE1=«TA,MSR15,
//
//MERGE.^ErtMSTR OU D3NrCN.EPALMH,A087,CDHS,HQ.AQ3,DATA.AQFINAL,
// DISPs(NtW.CATLG),
// DNITs3330,VOL=SERsCUMSPK,
// SPACE»(THK,(20,5),RLSE),
// DC83(RECFM=vU,LRtCL=19a,BLKSIZE=1556)
//TEST30C EXEC AHQRETVK,
// MS1RFIL=AQ1027V2,
// AN3WRFL="TANSR3a
//COMPRE.INPUT DO *
1K3ELECT
IOENT-KF.Y = '100001001E02171060100U210111072' OH
* '37000123«FObfl710101001110191010'
//TEST3«D EXEC AHQRETVK,
// «-ISTRFIL=AOFINAL,
//COMPILE.INPUT 00 *
SH3ELECT
inENT-KEY s •l00001001E02l71060100«2aOH1072'
IDENT-KEY f *37000123«F05H710101001I 10191010'
//PRINT! EXEC AHtJELIST,
// HEGION.REPO«T=130K,
//PRINT2 FXEC AMUtLIST,
// RFCIOM.HEPMrtTsl30K,
M3TWFIL=RTANSR3fl
356
-------
TEST35
//EPALMH35 JOB
//*
//» TEST 35 • PROCESS WfTRIEVAL REQUESTS AND COMPILE PROGRAM TO
//* RETRIEVE STATE 12, SHE 001 RECORDS ON A LATER EXECUTION
//*
//TEST35A EXEC AHORTHCU
//COMPILE.INPUT DO *
StSELECT
STATE = '12' AND
SITE = '001'
357
-------
Tt3T36
//FPALMH36 JOB (AOB7,LMH,,LMH,,3),TIMEsl,PRTY=5
//*
//» TEST 36 - EXECUTE THE RETRIEVAL PROGRAM COMPILED IN TEST 35
//* AND 00 A DETAIL LIST OK THE RESULTING AN3h£R FILE
//*
//KILL EXEC pr,M=iEFURia
//INI DO OISP=(QLU, DELETE), UMT = 3330,
// VOLs3£R=CDHSPK,
// DSN=CN.EPALMH.AU»7.CUHS.MQ.AOS.DATA.RTANSR36
//*
//TEST36A EXEC AMQHTRGO*
// PRIMARY=10,
// MSTRFIL=AQFINAL,
// AN3WRFL=RTANS«3b
//TESTiiB EXEC AHOELIST,
// REGION.REPOHT=130K,
//
358
-------
FLST37
//tPAL"IH37 JOB (A087,LMH,,LMH,,3),
//*
//* UPOATE MASTER FILE USING CONVERTED TRANSACTIONS
//TEST37A EXEC AHOTEOIT,
// PROJECT='CN.EPALMH.A087.CDHS,HQ.AQS',
// REGION.EDIT=100K,
//F.DIT.OPTIONS L)D *
LIST FLAG.v
//EDIT.INPUT DD *
1340003010GO'4 17508220061101231210002 000100060005000400030003
13100020011)05173100500611042114100030001000300020004000500030002
1100001001E021740708086110131281-291 005200880089010301270169
2340003002G04C730307'I86 6
34 000300 2G04C7'4 0291 184 3S01910110005
2340003002G04C7401911843501910110005
2340003002U0497401911843501910 110005
7
1
199
1
1 till
1 11 1 1 1 1 'J
1 1 11 HUH
1 1 1111A010
1 1 1111A01111
1 1 1111A01170
t lltlA011701111991llimil9
11 1111AO 1170 Hill 1111 1111111AAAA
Mil 1111A011701111111111111H1
2111 1111A01C70 43501910119997
2111 1U1A01C70 1 43501910119997
2111 11111A01C7099999243501910119997
2111 11111A01C7099991243501910119997
1109997997Q971701111119999999971
1 100001997097170111 1119999999971
11 00001001Q971/01111119999999971
11D0001001E97170U1 1119999999971
1340003002U041/40IOI 0011101910109997
337F0581 1101910107105040000012349997
1 34 0001001A 06 77'4 0225101 120181091000100010001
33/09989999997979/105040099979970001
3370998999999 797971050'4000001 9970001
3370998999999 79 79 7 1050'100(100 1234000 I
3WF99899999979797105040000012340001
357Fns«111019101071050«1 1 1 t
23'1003002G04C 740191 184 99999979799999
23'10030<)2GO'4C740191 18443501979799999
234003002G04C740 I 911844350 1119799999
234003002G04C7401911846210322170-7H7
234003002G04C74019118U6210322170-7H71210111021-7776210322170-990
2 3U003002G04C74019HW41 U0192021-5006210 3221 70-5Z81110192021-321
13inooi001A06l/00101U04240|l 10210440-2191732-400
MU0001001A061700 1010062101221500440-XYZl732-ABC
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
359
-------
3 31A 06 8'(21011 1021 70010100000 100 1 -007000001002-181 00000 1 0030050 2
331 A<>6«621 0122 150 7001 01 00 000 1001 -ABC 000001002-C84000001 0031500 2
1310001003A06175051308611012013100070080 2
1310001003A06175051316611012013100070080 2
naoOO 1003A06275051300611012013100070080 2
l3l000100SA06;>750513016ll0120l3l000700flO 2
1310001003A06275051316611012013100070080 2
131000 1003A0627505131 761 1012013100070080 2
131000J003A06375051300611012013100070080 2
1310001003A063750513016110120131000700BO 2
1310001003A061/5051300611012U13100070080 2
1310001003A06375051302611012013100070080 2
1310001003A06475051300611012013100070080 • 2
ni0001003A06175051301611012013100070080 2
1310001003A06175051302611012013100070080 2
1310001003A06175051303611012013100070080 2
1310001003A06575051300611012013100070080 2
131000 1003*06575051301611012013100070080 2
1340001003A065750513026U012013100070080 , 2
1310001003A06575051303611012013100070060 2
1310001003 A065750M3016110120131000/0080 2
13«0001003A06575051305611012013100070080 2
131000 1003A06675051300611012013100070080 2
1 3«0001003A06675051301611012013100070080 2
1340001005A066750513026110120 I 3100070080 2
1340001003A0667S051303611012013100070080 2
1340001003A066 75051 30'461101 2013100070080 2
13«0001 00 SAO>>6 75051 305611012013100070080 2
IS«0001003A06675051307611012013100070080 2
13«0001003A06675051306611012013100070080 2
13«000l003A06775051300611012013100070080 2
13«0001003A06775051300611 012013100070080 2
131000 I003A06775051302611012013100070080 2
I110001003A06775051301611012013100070080 2
1310001003A06775051303611012013100070080 2
13')OOOI003AOe77b051 305611012013100070080 2
l310noi003A067750513016110120l3ino070080 2
13UOOOI 001A06775051301611012013100070080 2
IJ10001003A067750513066110120131 00070080 2
1310001003A06775051307611012013100070080 2
1310001003A06775051308611012013100070080 2
I310001003A06775051309611012013100070080 2
13io<"M003A06775051309611012013100070080 2
1VJ0001003A06775051310611 012013100070080 2
131000100SA06775051311611012013100070080 2
I 310001003A06775051316611012013100070080 2
I 310001003A06775051316611012013100070080 2
1310001003A06575051317611012013100070080 2
I 31000 I 00JA063750513176 I 1012013100070080 2
I310001003A06375051306611012013100070080 2
1310001003A06375051323611012013100070080 2
1310001003A061750513006 I 1012013100070080 2
131000 I003A06175051322611012013100070080 2
1310001003A066 75051 31 661 10 12013100070080 i.
M10001003A066/SO5130H611012013100070080 2
1310001003A06575051306611012013100070080 2
360
-------
TESTS;
1300001003A06475051304611012013100070080 2
1 340001003A063750S1303611012013100070080 2
1 34000 1003A06275051302611012013100070080 2
1340001003A06275051315611012013100070080 2
1310001003A06275051318611012013100070080 2
1340001003A06065051399611012013100070080 2
134000 1003A06865051399611012013100070080 2
134000100SA06A65051300611012015100070080 2
1340001003A06A65051324611012015100070080 2
2340002001D058740801U044101150110196 2
23U000200100597408010714101150110196 2
2300002001005A7108011214101150110196 2
2310002001D05B7408012300101150110196 2
2300002001 DOS 77008012300101150110196 2
23400020010050700801200U101150110196 2
230000200100507008012944101150110196 2
234000200100587008019QOOJ01150110196 2
2300002001005R7006019944101150110196 2
337F0511110191010M12140000012340025 2
337P05211101910107112141700012340025 2
337F05211101910107112140100012340025 2
337F05511 101910107112100500012340025 . 2
337F05711101910107112141100012300025 2
337F05711101910107112140500012340025 2
337F05AJ1101910107112140500012340025 2
337F05A11101910107112102300012340025 2
337F05*11101910107112109900012300025 2
337F05711101910107112141500012300025 2
337F05611101910107112141200012340025 2
337F05U1 1101910107112147700012340025 2
li00003002G04|7401010011101910109997 2
33/F05B11101910107105040000012349997 2
?30000300200497401010011101910109997 2
2300003002GOOC7001051811101910109997 2
361
-------
TE3T3S
XXEPALMH3B JOB (AOfl7,LMH, ,LMH, r3),TIME»t,PBTY=5
XXTEST38A EXEC AHQTEOIT,
XX PaOJECTs'CN.EPALMH,A087.CDH3.HO.AOS',
XX REGION.EOITstOOK,
XX PRI«AHYa5
XX*
xx* UPDATE MASTER FILE USING CONVERTED TRANSACTIONS
xx*
XXEDIT.OPTIONS 00 *
UTTER NOMSENSE
x.x*
XXEDIT.INPUT DO «
13«0001010GOU17508220061101331210002 000100060005000400030003
XX
362
-------
TEST39
//EPAI.MH39 JOB (AQ87,CMH,,lMH,,3),TIME=l,PRTY»5
//TESTS9A EXEC AHORTRCU
// P(JMSAVE*KXRETR39
//COMPILE. INPUT 00 •
JtSELECT
STATUS-FLAG * '3' AND
DATA-FIELO > ',001* AND
PARAMETER-CUOE s '62101'
SIENO
//TESfS^a EXEC AHOHTRGO,
// PHQGRAMSHXRETR39,
//TEST39C EXEC AHUE.LIST,
// REGION. REPURT8150K,
// MSTRFILSHTANSW39
//REPORT, INPUT DD *
DISPLAY < 4997
363
-------
JOH (A087,LMH, ,LMH, ,3)» TIMEsl,PBTY=5
//TESTOOA EXEC 4MORTHCL,
// PGMSAVEsHXPETROO
//COMPILE, INPUT oo *
tJSELECT 3LIDINR
DATA-FIELD < '0'
SSENO
//Tt3T«09 EXEC AMOP-rRGO,
//TEST«OC EXEC AHOIAVGS,
// MSTRFIL=«TANSH«O>
// PRnAKYslO,
// ANSW«FL=ITAVGS«O
//AVERAGE. INPUT oo *
AVEKAGE 5
//TTST/100 EXEC AHOELI3T,
// REGION, HEPURT=lbOK,
// MSrRFI
//HEPOHT. INPUT 00 *
DISPLAY < 9997
364
-------
fE.3T'41
//EPALMHai JOB
//TEST'41A tXEC AHORfrtCL,
// PGMSAV£sHXRET*«l
//COMPILE. INPUT 00 *
StSELECT
DATA-FIELD = DATA-FIELD AND
((DATA-FIELD > '-99' AND
DECIMAL-CODE = '!') AND
OATA-FItLO N s '2')
f SEND
//TESTaiB EXtC AH3RTHGO,
// PHOGRAMsRXRtTSUl,
// M3TRFIL=AOF1NAL,
//TE3T41C EXEC AriOELlST,
// REGION. REPORT=150K,
// HSTRFIL=RTANSH«1
//REPORT. INPUT 00 *
SUM DISPLAY > .1
365
-------
IEST42
//EPALMH42 JUH 1
366
-------
Tt3T«i
//EPALMH1S JOB (A087,LMH, ,LMH, ,3), TIME»l,PIUYs5
//*
//* TEST US - OBTAIN SLIDING AVERAGE ON ANSWER FILE FROM TEST 12 OVER
//* 3 INTERVALS
//*
//TEST4JA EXEC AHQIAVGS,
// ANSw*FL=ITSLOA4S
//AVERAGE. INPUT 00 *
AVERAGE 3
//TEST138 EXEC AHQtLIST,
// REGION. REPORT=150K,
367
-------
//EPALMM«4 JOB (AOflr/L^H,,LMH,,3),TJME=1,PRTY»5
//* TEST aa - RETRIEVE ALL FORM-CODE 2 DATA AND FOR^-COOE 3 DATA WITH
//* PARM. CODE 61101 AND 00 A SLIDING AVERAGE OVER 6 INTERVALS ON
//* ANSWER FILE
//*
//KILL EXEC PGM=IEF8Hia
//DEL DO UNIT=3330,DISP=(OLD,DELETE),
// VULa3ER=CDHSPK,
// DSN=CN.EPALMH.A087.CDH3.HO.AU3.0ATA,RTAN3Rt<»
//TEST'4«A EXEC AHOHETVR,
// DISP='NEW,CAILG,DELETE',
//
//COMPILE.INPUT DO *
SS3ELECT SLIDING
FORM-CODE = '2' OR
(FfJHM-COOE s '3' AND
= '61101')
//TEST'4afl EXEC AHQIAVC.S,
// M3TRFlL=RTANSR1«r
// ANSWRFLsITSLDAda
//AVERAGE.INPUT DD »
AVERAGE 6
//TESTauC EXEC AHQELIST,
// REGION.HEPORTslSOK,
// M3TRFIL=ITSLDA«a
//REPORT.INPUT DO *
DISPLAY > -10
368
-------
TtSTas
//EPALMH45 JOB (A087,LMH, ,U'4H, ,3), TIME=l,PRTYs5,MSGCLASS=P
//*
//• TEST as - DO A SLIDING AVERAGE OVER a INTERVALS ON ANSWER FILE FROM
//* fEsr nti
//*
EXfcC AHQI/VVGS»
//AVERAGE. INPUT DO *
AVERAGE 2
//TESTU5B EXEC AHfJELlST,
// flUTsP,
// REGION. REPUHT=150K,
// MSTRF1L3ITSLDA«5
//REPORT. INPUT 00 *
OlSPLAY > -10
369
-------
JOB
//KILL EXEC PGM=I£FbRlHSPK,
// DSNsC'J.EPALMH.AOe;. COM3, HQ.AQS.DAT A. RTANSR16
//*
//* TEST »?0' i
iSENO
//TESTflha RXEC AHQRTRGO,
// OUTaP,
// DI3Pa'NEW,CATLC, DELETE',
// M3TRFIL=AOFINAL,
// AN3WriFL*RTANSR46
370
-------
JE3T47
/F.PALMH
-------
resraa
JOB (AOH/,L'iM,,LMH,,3),TIME=l,PHTYs5,MSGCLASS3P
//*
//* TEST 46 - CONVENT 3AROAO TRANSACTIONS TO AQOH3-II TRANSACTIONS
//* rtlTHJUT SPECIFYING A,"* OPTION CARD
//*
//*
//* CONVERT OLD FORMAT TRANSACTIONS TO NEw FORMAT TRANSACTIONS
//TESTU8 EXEC AHQCIW»T,3UTsP
//CONVERT. AQ30PTIN DO *
//CONVERT. INPUT 00 *
2340 001 002 A06870040 100«2603990 71-999
23UO 00 100eAOb670060 I 00«a60 3990 70-999
231000 100aA06«700 701 0002603990 71006*
//CONVERT. OUTPUT 00 UNI TxSYSOA ,OISP»(N£rt, PASS) ,
// SPACE=CTKK,(2,n,Rl.SE),
// DSNslTRANS
372
-------
TEST'44
//EPAUMHU9 JOB (AQ87,LMH,,LMH,,3),TIMEal,PHTY=b»
//*
//* TESr U9 - CONVERT SAROAO INPUT TRANSACTIONS TO AQDHS-II TRANSAC-
II* TIO^S HITH LIST OPTIQN SPECIFIED
//*
//TEST'49 EXEC AHOCNVRT,OUT=P
//CONVERT.AQSOPTI^ 00 *
LIST
//CONVtRT.INPUT 00 •
S2
231000 100aA06673020 lOOiatiOS'JflOTaOOSS
23aOOOl002A06873030100«26039'»07«-999
23«0001002A068730a0100a2603990710085
//CONVERT.OUTPUT 00 UNITsSYSOA,OISPs(NEw,PASS),
// SPACEa(TRK,(2,l),RLSE),
// OSNsiTRAMS
373
-------
IE3T50
//EPALMM50 J08 (A087,lMH,,|.MH,,3),TIME«l,PRTYe5.M3GCLA33*P
//*
//* TEST SO - CONVERT SARQAO INPUT TRANSACTIONS TO AQDH3-II TRAN3AO
//* TIO'JS WITH 'NUtlST' OPTION SPECIFIED
//*
//TESfSO EXEC AHOCNVRT,OUTsp
//CONVENT.AOSfJPTIN 00 *
MOUI3T
//CONVERT.INPUT 00 *
S3
3340001002A06973020100426039907400S3
2310001002A06873030I 004260399074-999
234000 I002A0667304010042603990740085
//CONVERT. OUTPUT 00 UNI T»SYSDA,D1SP*(NE»», PASS) ,
// SPACE=(TRK,(2,1),RLSE),
// DSfstTRANS
374
-------
TEST51
//EPALMH51 JOB (4087,LMH,,LMH,,5) ,T IME = 1,PKTY = 5,MSGCLASSaP
//*
//* TEST 51 • ATTEMPT TO CONVERT INVALID SAROAO TRANSACTIONS TO AQDH3
//* TRANSACTIONS
//*
//TEST51 EXtC AHQCNVRT,OUT=P
//CONVERT.INPUT 00 *
12
7200001001803770010 30011201910 <>a0060
A2rt000100«n03770010300 I 1201810920060
120000100400307001030011201810920060
1 20000 100ab03Q7001031711201910920060
12000010018036700103AB1120181092-999
//CONVERT.AOSOPTIN 00 •
//CONVERT.OUTPUT 00 UNlT=SYSOA,OISPs(NE«,PASS),
// SPAC£*(TRK,(2»1)»RLSE)»
// OSN*&THANS
375
-------
rtsrsa
//EP4LMH52 JOB (A087,LMH,,LMH,,3),TIME»l»PRTY«S,v(SGCLASS«P
// EXFC PGMsIEFBRlu
//DEL 00 JNlT=J330,OISPs(OLOrDELETE),
// VOLsSERsCDHSPK,
// OS*JsCN.EPALMH.A087.CDHS.HQ,AgS.DATA.STATl5
//* TEST 52 - TRY RUNNING FILE MAINTENANCE ON A FLAGGED MASTER FILE
//TEST524 EXEC AHQMSENr,
// OUTsP»
// MSTRFIL=AUFINAL»
//
// ST4TFILSSTAT15
//TEST528 EXEC AHOMFUPO,
// PRO JECrs'CN.£PALMH.A087.CDHS.HQ, ACS',
// OLOMSTP=3TAT15
//UPDATE. AQSINTRN 00 O'JMMy
//UPDATE. AUSNE«MS 00 DUMMY
376
-------
TEST53
//EPAL(
-------
JOB RTI.C44.PU2154,*CMASTEH»PRTY = 0,FOH<-iS3i-.hITE, tsl,P=250
//•PHOCLId=HTI.C44.P02l54.MCMASTE«.COHS.JCL
//*
//* 3UILO OFFICIAL UAUb EMISSION FACTORS TAOLt
//*
//TESTl EXEC PNRraGEN,
// fcFTAaLE=NA08EFTB
//GENERATt.INPUT 00 *
1010010174256000000 1
1010010111101000017000 A 2
1010010142401000038000 S 2
10100101420020000113000 2
1010010143101000000030 2
10U010142101000001000 2
10100102/4256000000 . 1
101001021 UOIU00002000 A 2
1010010242401000033000 3 2
1010010242602000010500 2
1010010243101000000200 2
1010010242101000006000 2
1010010i/«25oOOOOOO 1
1010010311101000017000 A 2
1010010342401000039000 S 2
1010010342602000013000 2
1010010343101000000030 2
1010010342101000001000 2
1010010474256000000 1
10100104U101000002000 A 2
1010010442401000033000 S 2
1010010442602000010500 2
1010010443101000000200 2
1010010442101000006000 2
1010010574256000000 1
1010010511101000017000 A 2
1010010542401000033000 S 2
1010010542602000014000 2
1010010543101000000030 2
101001054210100000100U 2
1010010674256000000 1
1010010611101000002000 A 2
1010010642401000038000 S 2
1010010642602000006000 2
1010010643101000000200 2
1010010642101000010000 2
10100l<»974256000000 1
1010019911101000017000 A 2
101001'?94240100003UOOO S 2
1010019942602000018000 2
1010019943101000000030 - 2
1010019942101000001000 2
1010020174256000000 1
1010020111101000013000 A 2
1010020142401000033000 S 2
378
-------
50300b06H1010U0100000 2
bojoosobaauuioooooiooo a
SOiOObOoa^boaoOOOObOOO 2
50iU050ot.il01000001000 2
503
-------
//PNRTEST2 JOb RTI.C44.H02l54,'tI3/P4R',T=4,PHTY30,FUKN.S=rtHlT£,P=250,
// M=0
//*PROCLld=RTI.C44.?0215U.MCMASTER.COHS.JCL
//«
//* TEST # 2 CONVENT NEDS F3HMAT TRANSACTIONS AMD "»ERGE Th£M
//* «ITH EIS/PiR
//SCRATCH EXEC PGM=IEFBR14
//002 00 U
//r02 00 U.'JlTsmSKfJISHaCULU.OELErt) ,
// VUL = (ScRa(STIlH,fiTI222)),
// DSN-RT I. C«4.Pu215,'-i.NC.-IASTER.P'MR.OATA. SOURCE
//TEST2A EXEC
//» CONvtHT i^EOS PIJI.'MT SOURCE TRANSACT 1JNS TO EI3/PHR FORMAT
//*
//CUNvER f. INPUT 00 «
l9128006700250a«01b72'.vATT POw£H CO. O.Q. OUCK PF A=>1
191 2a006700250 1720201 00 1 0000 OoOOOOOoOOO 0060000060 0009600 OOOOOuOOOOO A? 3
191 28006700250 I 722<*2228262« 75000000000000000000000000000000000000 iJOOOOOO APU
191290067002^)017200000000000000000000000000000000000 0000000000 APS
19123006/00250172202002000497300 30009100020 82 AP6
191280067006012001572SHUCKING PQrtER CO. E.E.ELECTRICF Aai
191280067006001720000000000000000128076032001830000000 AP2
1 9128006 70uouO 172005 720090000600 00060000060000060 00 06500 00 000000000 AP3
19 128006 700600 1 72002255232«74bOO 000000000 00000000 00 00000 000000000330 00000 APU
19128006700 oO 01 7200000000000000000000000000000000000 0000000000 AP'b
19128006700600172202002010069320 31510500023 B2 AP6
19128006700600172202006010001354 03400000999 b2 A»6
191280067006012601572SMOCKING PQ/»ER CO. E .t .ELEC THICF API
191280067006002720000000000000000106050065000960270000 AP2
1912800670060 02 72001 28060000 060000060 0000600000oO 000 UUOOOOOOOOOUOOO AP3
19l23006700oU02 72040 05541 2U7 0400 000000000000000 000900000 01 00000000 0000000 AP'4
1912800670060 02 720000000000000000000000000 0000000000 000 00 00000 4=5
191280U6700600272501005010000013 00300000UO B2 AP6
19128006700600272501000010000044 00000000999 32 AP6
191280067006012601572SHUCKING PCMER CO. t .E.ELECTR ICF A»l
191260067006005720000000000000000100070034000/91610000 AP2
1 9 12dOOt>70060 05 7200240 0600000o00000600000600000oOOOOOO 00 OOOU 0000000 AP3
191 280067000005 7200 1 437492U 7230000000000000000000000000000000000033000000 AP4
1912800670060057200000000000000000000000000000000000 0000000000 APS
19128006700600572202002010012997 31510500023 B2 A?6
19128006700600572202006010000278 63400000999 02 AP6
191280067000012601572SHOCKING PO/ȣR CO. E .E .ELtC TRICF API
19128006700600972495 J020 00 00 00000 10605006500 09602 700 00 AP2
19128006/0060097200000060000060000060000060000060000000000000000000 AP3
1912300670060 09720 4Q 0554124/0400000000000000000U00000000000000000331 12150 AP4
19128006700o00972000000000200000050000040000000003004/209/209302 1 2 3 AP5
19128006700000972 AP6
1912aoO(j900201880l5/2SUPERHAN CONCRtTE CO. 6 . Z .KARACH I •* API
380
-------
1931200930 2 7501/2000030600000600000600000600
l9J1200921oOOOOOol572POLLUriur4 I,MC I .0 . l<* I SSIU'MP API
193120092 1600117200009900000000000000COOOOOOOOOOO 00 ObO A?2
1931200<»(ile001172000000o00000600000ti0000060UOOOoOOOOOOOUOOOOOOOOuOO
193120092160011 /2252525OOt2727300000000172l372130000000000uOOO.-.,HtAT ^ILLII-iG P2 APs
193i20092160000001b/2PULLUTIUN HC I .0. EMISSIONS API
193120092160013720000 9900000000000lblOOOU5000135000CC,o A?2
193l200921600l372000000070000o00000600000bOu00060000
-------
191280089 500502350 009950 543210065400 56750
191230089 0050054300 5675 7o750 23«500
191280009 09850 010900250 1500
191280089AHEA SOUHCt TEST - SO^t, 9UT NOT ALL VALUES IfJ tACH CATAGUKY
23452AA3
AAU
AA5
AA6
191230067/3 10 120204023034012302001C097508900235500050AAI
19123006723500347504210000390875005098/50123400985021500009«io569000252350
191 28006/2350 123505432500 75 7500002S000500 12350321 00000975000050321 S00009B 750
191(23006/000005000100022500035000011)7505002195022500013001230005450190 A AS
1912rt0067A»tA SUU«C£ TEST - VALUE IN £ACH SUUHCE/UUANi T Y/PEHCEN T FIELU AA6
//CONVtKT.KixHTKANS OU
// OiSfsCN
// SPACE*(THK,(10,5)),
//TEST2C EXcC PNWTR(4MG
//«
//* MERGE TANSACTIONS
X/MEROE.HLfcl
//MERGE. fiit2
//.MESGt.
//
EXEC
00
00 OSN3NfcD3.J>UINT,OISP=(OLO,UNCATLG)
.UUfULt 00 03N=4AAHE»1,
UNIT»3YSL)A,
// OISP=(.\tw,l»ASS)/
//
//TE3T2
//O 00
// UISPs(ULO,DELETE)
//TEST20 fc*EC H.MHTH.MMG
//MERGE.FILEl 00 OSN=lsAREAl,UNITsSYSOA,OISPs(ULO,OELETE)
//M£SGfc.FILE2 00 *
191280067001072000 188015F8./. LIGHT T
191230067001072000IOwA GAS AND LIGHT CO.
191280007001072000
1912800670010720000101 000000000000000 000065352470300149000
19128006700107200001015008003500000000 0000 0000000000
0080000500000000
0600000000000117
0600000000000000
0600000000000000
0600000000000000
0001496
0000000
0000000
0000000
0000000
0000000
39215200020
191^8006700107200001 11101
1912800670010/20000142401
1912300670010/20000142602
1912800670010720000U3101
19128006/0010720000142101
19123006/0010/2000010120400101
19128006700107200001012B T
1912800670010720000101
191280067001u7200001022040060l 0000019 63400001000
19128006700107200001022B T
1912800670010720000102
1912800670010720000202 000000000000000 0018235924 /0400152000
19128006/00107200002015008003500000000 0000 0000000000
1912800670010/20000211101 0080008500000000 0000000 0
1912800670010720000242401 0600000000000137 0000000 3
1912800670010720000242602 0600000000000000 0000000 0
19128006/0010720000243101 0600000000000000 0000000 0
1912800670010/20000242101 0600000000000000 0000000 0
01A
02A
03A
IU
12A
1JA
13A
134
13A
13A
21A
22A
23A
21A
23A
1IA
12A
ISA
13A
liA
13A
382
-------
1931201050460/20008Y-PAS5 CHEMICALS INC
1931201050460/2000
1931201050400/200U0101 28190000 0000000
1931201050460720000100500270475001650/
2525252524/5000531000
0000 0000000000
193120105046C720000111101
19312010504oO720000142401
1951201050460720000142602
1931201050460/20000143101
1931201050400720000142101
1931201050460/2000010160200600
1931201050460/2000010120
1931201050460/20000101
1931201050460 720000202 281900000000000
193120105046072U0002005002704750016567
0600000000000031
0600000000000006
0600000000000296
0600000000000068
ObOOOOOOOOOOOOO 1
0003400
0000000
0000000
0000000
OOOUOOO
OOOoOOO
63aC()000900
T
0000
252525252475000081000
0000000000
1931201050400720000211101
1931201050460720000242401
1931201050460720000242602
193120105046072000024310 1
193l20lOb0460720u002<*2101
193l20lObO«60720000201s0200600
19312010504607^000020128
19il201050ao0720000201
1931201050460/20000303 281903000000000
19312010504o07200003005003304200050000
06000UOOOOOOOOU4
0600000000000000
OeOOOOOOOOOOOOul
0600000000000009
0600000000000000
OOOOU6/'
0000000
0000000
0000000
coooooo
0000000
63400000900
252525252475000000000
0000 0000000000
0600000000000100
0600000000000100
0190000000000100
0600000000000100
0600000000000100
0000000
0000000
0000000
0000000
0000000
0023400640000000000000000
T
1931201050460720000311101
1931201050460720000342401
1931201050460720000342602
193l2010504e0720000343101
1931201050460720000342101
193120105046072000030102000000
19312010504607200003012P
1931201050460720000301
1931201050460720000909 26190UO00000000 252525252475000000000
1931201050460/200009012739301400218347 0000 0000000000
19312010504007200009U101 0600000000000054 OOOOOOO
1931201050460/20000942401 0600000000000000 OOOOOOO
1931201050460/20000942602 0600000000000000 OOOOOOO
1931201050400720000943101 0600000000000000 OOOOOOO
1931201050460720000942101 0600000000000000 OOOOOOO
193t2010504o072000090170200000 00l42«e500000000000000000
1931201050460/200009012PUHEA PRILL TOviER T
193120t0504o0720000901
1931201050460/2000090270200000 0014286500000000000000000
19312010504607200009022PUHEA PHILL TOWtR T
1931201050460720000902
00
//TEST2E EXEC
03A
11A
124
13A
13A
13A
13A
13A
21A
22A
23A
ilA
124
13A
13A
13A
13A
13A
21A
22A
23A
11A
12A
13A
13A
13A
13A
13A
21A
22*
23A
1 1 A
12A
13A
13A
13A
13A
13A
21A
22A
23A
21A
22A
23A
//* ENSURE THAT TRANSACTIONS ARE SORTED CORRECTLY
//*
383
-------
//SORT.PliHlMPUT 00 DS'vIAME=ll&ASEA2,
// DISPs(QLO,DELETE)
//soar.OUTPUT oo UNITSJISK,
// OISPsCM-.'OCATLt;,DELETE),
384
-------
//P*RTE3T3 JUS HTI.C44.P02154, 'El 5/P&K ' , T = i , PW r Y = 0 , FUHi"S=-vn I Tt, H=<2bO ,
// CJPItS=J
//* rtsr i - INSERT EMISSION FAcruHS I.\TU TRANSACTIONS cwtATEu IN TEST ^
//* THEN CHEATS INFIAL ElSP&w >iASTfc.R FlLt
//*
//TEST3A tAEC MiMKKEFIiM
//*
//» INSEHT EMISSION FACTOR INFORMATION
//*
//INSERT. I,
-------
XXPurtTESTa JUd KTI.CU4.PU2154, 'EISXP&H', Ts2,PHTYsO,F(jKMSs.11ASTEH.COHS,JCL
XX*
xx*
xx* TtST HU.M a - NEDS SOURCE OAfA REPORT
XX*
XXTEST4A EXtC HNRHREPT
XX*
XX* PRINT *Et>3 AREA SOURCE D«TA
XX*
XXREPURT.P.MR.MtDS 00 *
1531091312115)2 76500
50325
19312009273
193 120092123003215056750
19312009223450054350
193120092 45670
193120092 05430
193120092AREA SOURCE TEST •
19312010573
193120105
193120105
AA1
32100
3U50U
12342AA3
AAU
AAS
193120105
193120105AREA SOURCE TEST
19128006973
191280089
191280089
191280089
191230089
SO*E, 3UT NOT ALL VALUES OR CATAGORIES
18231216152185 12350
25750012503450 765045675 5o750
123500 12300
005400234500
2100
'OWE, dUT NOT ALL VALUES OH CATAGORIES
202311151131259650
67975
500502350
0050054300
o3050
AA1
AA2
21002AA3
AA4
AA5
AA6
67800 4*1
8650 09975000905056504560032100 3450 AA2
009950 543210065400 56750 23452AA3
5675 70750 234500 AA4
79500
09850 010900250 1500 AAS
191280089AREA SOURCE TEST • SOME/ BUT MOT ALL VALUES IN EACH CATAGORY AA6
19123006773 101202040230340123020010097508900235500050AA1
1912300672350034750421000039067500509675012340098502150000980569000252350 AA2
19128006723450032150432500980000097501210002345002155000975295000500035012502AA3
1912600672350123505432500757500002500050012350321000009750000503215000093750 AA4
1912800670000050001000225000350000157505002195022500013001230005450190 AAS
191230007AREA SOURCE TEST - VALUE IN EACH SUuHCEXUUANlTYXPERCEf» T FIELD AA6
386
-------
JUO RTI.C4U.PQ215U, •US/P*H',T3a,PHTYsO,FQHNS3*Ht T£,Ps,250,
//
//« TEST b PRINT Tn£ CURRtNT EIS/P4R MASTEK KILE
//*
X/rtSTbC ExtC K-iKPREPT,
// MSTHKIL=PR102676
//« TEST 5 PRINT THE EIS/P&R MASTER FILE
387
-------
JUb Rri.CU4.P(J2l54, '
//*PKaCLIb=KU.CU4.?u2l54.MCMASTEH.CDHS.JCi.
//*
//* TEST «U'V4 o • FILE MAINTENAiNCE
P=2bO
//SCRATCH EXEC P&M3IEF8R14
//D01 DO UMTsOISK,OISP=(ULD,DELETE),
// VUL=(SEH=(RTIlll,«ri222)),
// OSN = K T I. CU4.PCJ2 1S4.MCMASTEH.PNR.DAT A. PR 102 7/6
//TESTOA t*tc PNRISURT
//* EMSUHE THAT FWANSACflONS AttE 30RTEO CORRECTLY
//*
//SORT. I.'xPUT UD *
I9i28ooo/ooio72ooo i88oibFa.z
19i28006/Oul072000I3.-
-------
//PNRTfcST / JOd HTI.CU4.P0215U, 'E IS/P4N ' , T=2,?wT r so , (• Ut}i"'3 = .vHI Tfc ,P=250
//»PROCLIBsHTI.CU4.P021!><4.yCMASTEa.CDHS.JCL
//*
//* Ttsr su?j 7 - FILE MAINTENANCE
//*
//3CHATCH tX£C HG.'i=IE(-dHia
//OD1 00 UNIT=DIS*,OISP=(ULO,OEL£TEJ ,
// LiSNsH T I.C 4U. H02 1 b4.MCMASrEH.PNR.DAT A. PR 1 02 B7 fa
//rtST7A EXEC H^HISOhT
//*
//* ENSURt IHAT TRANSACTIONS AriE SORTED CURKLCTIY
. INPUT UU *
19128000700607305105 110
I93l20010046b 010
1931200V21600 1105 210
//SUHT. OUTPUT 00 UMfsSYSOA,
(TR»<, (5,1)},
// OSNA,^t = 44f
//TEST7B EXtC
//*
//« UPDATE EI3/P4H «A5TER FILE
//*
//UPDATE. INPUT 00 OSNAM£=»&TRANS»
// OISP=(OLD, DELETE)
389
-------
//PNHTESra JUS NTI.C44.P02l54,'EIS/P&R'iTa2,HRrY»0,FUHfS»*HlTfc,Hs2SO
//*PkUCLIbs«TI.C44.PU21i»4.1MCMA3TER.CDHS.JCL
//* TEST dot* a - FILE
//*
//SCRATCH fcXtC P(iM»IEF8K14
//OOl 00 UNiraOI3K,OISPs(OLD,OtLETE),
// VOLs(S£W»C!«TIlH,ftTI222)),
// D3N=«TI.C44.H02l54.K:MASTER.PNR.OATA.,ME«EF
//002 OD UMT=OISK,DI3P=COLD,OKLETE),
// VOL=(SfcHs(HTHll,Rri222n/
// OS.N*KTI.C44.PU2154.rtC*ASTER.PNR.OATA.PR102flV«»
//003 DO gMir>OISK,01SPa(Ut.OfOELErE)>
// VUL=(Stfls(RTnil,«ri222)).
exec PNHTBGEN,
//
//»
//* CENEHATE NE,v EMISSION FACTORS TABLE
//*
//GENERATE. INHUT 00 *
0000060073000000630 1
0000060011101 100000U5 2
0000060042401 iOOOOOUS 2
0000060042602 300000U3 2
0000060043101 aOOOOOUS 2
0000060042101 500000US 2
2010000073002000000 1
2010000011101 100000U 2
2010000042401 200000U 2
2010000042602 300000U 2
20100000U3101 400000U 2
2010000042101 SOOOOOU 2
201002017J002102029 1
2010020111101 100000US 2
2010020142401 200000US 2
2010020142602 300000US 2
2010020143101 40000003 2
20100201U2101 SOOOOOUS 2
2010060173002000634 1
2010060111101 100000US 2
2010060142401 200000US 2
2010060142602 300000US 2
20100601«3101 400000US 2
2010060142101 SOOOOOUS 2
2020020073064091300 1
20200200111010001SOOOOUA 2
20200200424010002bOOOOuA 2
20200200426020003SOOOOOU 2
20200200431010004SOOOOOU 2
20200200421010005SOOOOOU 2
202002017300210931S 1
2020020211101 100000US i
390
-------
9120710042401000200000US 2
91207lu04«J401000200000Ub 2
91207200730090222222 1
9120720042101000200000US 2
91207200U2<»01000200000US 2
91207300730090222222 1
9120730042401000200000US 2
9120730042401000200000US 2
9120740073009033333 1
9120/40042401000200000U3 2
91308100/3009033333 1
9130810042401000200000US 2
913081001 UOIUOOIOOOOOUA 2
9130820073009033333 1
9130820042401000200000U3 2
91308200H101000100000UA 2
9130830073009033333 1
9130830042401000200000US 2
911083001 HOlOOOlOOOOOuA 2
91308U0073009033333 1
9130840011101000100000UA 2
9130dUC011101000100000UA 2
91308S0011101000100000UA 2
413085001 1 1010U0100000UA 2
X/rtSTSB £XEC fNREFUPO,
//*
//« GENtRATE TRANSACTIONS TO UPDATE EF INFO IN MASTER FILE
//•
//tFUPOATE.IMPUT 00 *
730ot 4
//TEST8C EXEC PNRFUPDT,
// OUOMSTR3PR102876,
// NEAMSTRSPR1028V2
//*
//« UPDATE EIS/P&H MASTER FILE
//UPDATE. INPUT 00 DSNAMEsRT I .C44 .P02 154 .MCM ASTER .PMR.DATA
// OISP=(OLO, DELETE)
391
-------
//PNHTEST9 JOB «TI.CUa.P0215«,'EIS/P&R',Ts2,PHTYaO,rORMS»*MirE,P=250
//«PffUCHttsHTl.CUU,PU21btt.MCMASTEK.CDHS.JCL
//KILL tx£C P&rtslfcFbfllU
//i>01 UO UNlTxi>I3K,OISPs(OLD, DELETE)/
// VOL3(StR=(KTtlll,RTI222)).
// DSN3HT I. C4U.PU21 S4.MCMASTErt.PNH.DAT A. PULHET»V
//rEST9» txec PNRRETVH/
// M3TRF1L»PR1028V2,
// PARAMs'3IZE*<»ttK,8UF«l
//
// OISP«'.\£/«»CATLC, DELETE*
II*
//* RETRIEVE UN COUNTY AND POLLUTANT-ID
//*
//COMPILE. INPUT 00 *
SSSELECT 00000100
(COUNTY
COUNTY
POLLUTANT-ID
(POLLUTANT-ID
PULLUTANT-IO
•22BO' OH 00000200
•3120') AND 00000300
POLLUTANT-ID A.NO 000004QO
•42401' OR 00000500
'11101') 00000600
00000700
392
-------
//PNRTSMO
//*
//KILL EXEC
//001 DO UMT=OI3*,D1SP3(QLD, DELETE),
// vOL=(SER=(HTIlll,«TI2
-------
//PNRTSTU JOb KTI.Cu«.P021b4,'EIS/Ptl«',Ts 154. MCMASTEH. COM3. JCL
//CH02DISK ExeC PG-l*Itb
-------
JUfl fcTI.C4tt.P02l54» 'EIS/PiH', T=4,PRTYaO ,FUM!"
-------
//PNHTSri3 JUd Kn.Cua.P0215«, 'EIS/PiH',Tstt,PHTYsO,f:UK>ISsviHITE.P*2bO
//*PSOCLiQsRTI.CUU.PU21itt.MCMASTtK,Ci;MS.JCL
//KILL Exec PGMSIEFBKIU
//OOl 00 UNirsOISK,OISPs(OLD, DELETE),
// VOL8
-------
JOb Rri.CMU.P021bU,'EIS/P4R',T=2,PRTYsO,FORMS=.vHlTE,Ps<2bO
tXEC
00 SYSUUTiA
//SYSUT2 OU UNITsSYSOA,
SPACE»(TKK,(1,1)),
//SYSIN oo DUMMY
//SY3UT1 Du *
Muvt MSTR-PQLLUTION-IO (EM-sET-iNOtx) TU BRtAK-ciNE.
//TEST1U EXEC PNRBHEPT,
//*
//* PRINT SUMMARY REPORT FROM ANSrtER FILE
//*
//COMPILE.INPUT 00 DISPa(OLD,PaSS),UNITsSYSDA,DSN=&iINPUT
//SUMMARY.INPUT 00 *
OP1 CDHS WORKSHOP DEMONSTRATION SUM BY POLLUTANT 10/28/76
OP2 EIS/PAR rtORKSHuP DEMONSTRATION MH, LARHY ^CVAST£H,RTI
OP3
OPa POLL. ID
397
-------
//PNRTST15 JOb HTI.C4U.P021SU, •EIS/P*K',T32,PmYsOrFOW'"iS3v
-------
//PNRTST16 JU8 KTI.C44.P021bU, 'El S/P&R ' , T = u , HK T Y = 0 > FORMSswH I TE , Ps250
//«PRQCLl8sHri.C«tt.PU21S«.MCMASrEH.CDMS.JCL
//KILL EXEC PGflsIEFBHU
X/001 00 UNir=UISK,OISP=CQLD, DELETE),
//TESTlb ExEC PNRSORTK,
// MSTRFIL*POLRETK3,
// OISP»'Nfcn.,CArLC,OELETE'
//*
//* SORT ANSwER FILE ON POLLUTANT-ID, AWCHi COUNTY ANU PLANT-ID
//*
//COMPILE. linPUT 00 *
iiSOHT UUU0010U
POLLUTANT-IU A 00000200
AUCR 0 OOOOOiOO
COUNTY 0 00000400
PLANT-ID 0 OOOOOSOD
00000600
399
-------
//PNRTST17 JOB K f I ,CU<4.P02l550 ,
// MSI
//*PRUCLI3=«TI.C44.P0215U.MCMAST£S.CDHS.JCL
//CR02DISK EXtC PGM=[tbG6Ntft,
// REGIONS60K,
// TlMgs(UO)
//SYSPHINT 00 SYSUUTsA
//SYSUT2 00
// SPAC£s(TflK, (1,1)),
//
//SYSIN 00
X/3Y3UT1 DO *
HOVE MSTR-POLLUTION-IO (t.^-stT-i.-iOtx) ro BREAK-ONE.
//TESri? &XEC PNRafiEPT,
//
//» PRINT SUMMARY HEPOHT FROM AN3*EH FILE
//*
//COMPILE. INPUT 00 OISPa(OLO,P*SS)»UNITa3rSOA,OSNsiUINPUT
//SUMMARY. INPUT 00 •
OP1 COHS rtOKKSHOP OfcMONSTRATION SUM BY POLLJTANT 10/28/76
CJPa EI/P4H »«UKSH(JP MR. LARRY ilCMASTEH , S T I
OPS
OPU PULL. ID
400
-------
//PNRTSTia JOB KTI.CU4.PU<>154, 'E ! 3/P&K ' , TsJ , Pft T Y =U , FU»MS«*m Tt , P = 250
/'/* TEST RUN 18 -
EXEC
=10K
//*
//« StTHIEVfc. ALL AfiEA SUUKCt OAT4 rHQM cIS/MSK f"4STEf FILE
. INPUT oo •
IJSfcLECT 00000100
LISErt-PLANT-ID = 'AREA 30UWCE' OOOOOaOO
ilt'iO 00000300
//TEST18B EXEC PNHANC.MV,
// MSTHFIL=SOUKCE,
//*
//* CUMVtrtT ANSrtER FILE TO NEDS AREA SUUrlCu
//*
//CUNVEHT.PNHNEDS oo u>MiT=ijjo,
// VOLUM£ = (PR IV ATE/RET A ZN,3ER=HTI1 11) ,
// OISP=(NErt, PASS, DELETE) ,
// 3PACE=(THK, (5, 1 ;,
.//CONVERT .INPUT 00 •
A
//TEST18C EXEC PNRHHEPT
//*
//* PRINT NEDS AREA SOURCE RECORDS
//HEPORT.PNRNEOS 00 OSNAM£ = W TI . Cua ,P02 15U.WCMASTER ,P\R . DAT A . AREA,
// VOLUME= (PRIVATE/RET A I N,SER=«TI1 11),
// DISP=(OLD, DELETE) ,
401
-------
//PNRT3T19 JOB Rri.Ca4.P02154,'E13/P(tR',Ta2»P«nr*0,FORMS»*Hn£,Paie50.
// Mxi
//*PROCH8=HTI.CUU.P021'}4.MCMASUH.COHS.JCL
//» TEST RUN 19 - RETRIEVAL
//*
//TEST19A EXfcC PNRRETVR,
// M3TRFIL3PR1028V2,
// ANS*«FL»SOURCE2
//«
//• RETHItvE ALL POINT SOORCE DATA FHOM EIS/PSK *ASTEK FILt
//*
//COMPILE. INPUT 00 *
JSStlECT 00000100
U3EH-PLAHT-10 N = 'AHtA SOUUCt' 00000200
//r£ST19b EXEC PNRNCONV,
// M3TRFILSSOURCE2,
// NEUSOUTiA
//*
//* COfWERT ANS*£R FILE TO NEOS POINT 30UKCE FQHMAF
402
-------
//PNHTST20 JOd
//*PHOCUbs*ri.
//*
//* AU HOC HUh 20
//STEP!
//*
//* RETRIEVE ON PQLLUTAiMT-10
//*
[0 s POLLUTANT-ID
Slt.40
//3TEP2 EXEC P-JR30HTK,
//* SORT MASTER FILE ON STATE, COUNTY, AQCR, PLA.MT-ID AND POLLUTANT-IO
//*
//COMPILE.INPUT oo »
IJSGRT
STATE - 4
COUNTY A
AQCH A
PLA\T-IO A
POLLUTANr-ID A
ae.no
//CR020ISK EXEC
//SYSPHINT 00 3YSOUT=A
//3YSUT2 00
SP4CEs(TRK, (1,1)),
//SYSIN oo DUMMY
//SYSUTl 00 *
MOVE M3TR-POLLUTION-ID (EM-3ET-I.MOEX ) TO uRfcAK-ONE.
MOVt >I3TR-PLA,NT-ID TO BREAK-TxO.
i«tOVt -tSTH-AUCR TO 8REA<-THREE.
MOvE -13TR-COUWTY TO BREAK-FOUR.
MOVE ^STH"3TATE TO EHEAK'
//STEP3 EXtC PNRHHEPT,
// MSTHFIL=AOHOC320
//*
//* PROOUCE SU^MAHY HEPQPT
//*
//COMPILE.INPUT 00 OSNAME=>S,iINPUT,
403
-------
//SUMMARY.INPUT DO *
OPl COM3 aUHHSHOP DEMONSTRATION SUM BY PtiLLJfANT-PLANT 10/38/76
OP2 tlS/H&H .lUKKSHQP OfcMONSTKATI3N MR. LARr^Y MC^ASTEK,«T 1
DP3 STATE COUNTY AQCR PLANT
OP4 POLL-ID.
404
-------
//PNHTST21 JOd STI,Cuu.P0215>4,'tI3/PS,M', fs2,P«T Ysu , KUhM5=;vnI TE/ P=250,
// *=1
//*HROCLiasnri.Cuu.PU215u.MC" ASTER. CDHS.JCL
//*
//• AO HOC NUN 21
//«
//SCRATCH EXEC PGMslEFBKlU
//001 00 UNIT=OISK,DISP=(OLD, DELETE),
// VOLs(SER=(RTIlil,S7I222)),
// oS'N=rfri .c4«.pu2i5«.MC^ftsrEs.pMH.OArA.pRi 10 1 ?b
//STtPl EXfcC PNrtPUPOT,
//*
//* UPDATE tIS/Pirt --1ASTER FILE
//*
//UPDATE. INPUT oo *
19128006/002S7302S QIC
19128006700607302501 liC
UC
//3TEP2 EXEC HNHHETVH,
// ;iSTHFIL=PRl 10 176,
//*
//* WETRIEvt AUL POINT SOURCE DATA SINCE 01/01/73
//*
//COMPILE. INPUT 00 *
SIGELECT
USEH-PUANT-IO '4 = 'AHtA SOURCE' AND
OATE-OF-0-HlECORO > '73001* OR
> '73001'
//STEPS EXEC PfJRNCONV,
// MSTRf- ILSADHOC21,
//* CONVERT ANSWER FILE TO \EDS POINT SOURCE HtCOROS
//*
405
-------
//PNRTST57((2000101007RORIES 30 A
19l2ao067002S74200010U06L 30A
!9l2aoOb/002S742000101008R MAY 4, 1973. 30A
1912SOOb/002S742000101009|. PURSUANT TO SECTION 11 1 OF THE CLEAN AIR ACT, THE30A
1912800b7002S742000101009RAOMlNlSTRATOH PROPOSES HEREIN STANDARDS OF 30A
19l2900b7002S7420001010(OLPERFORMANCE FOR N£n AND «UOIHtO SOURCES MTHIN SEV3QA
19t2aoOb70025742000101010REN CATEGORIES OF STATIONARY SOURCES: ASPHALT 30A
1912800b70U25742000101011LCONCRETE PLANTS, PETROLEUM REFINERIES, STORAGE VESS30A
19i2800b7002S74^0001010URELS FOR PETROLEUM LIQUIDS, SECONDARY LEAO SMELTERS, 30A
1912300b700^S742000101012LSbCONOARY BRASS ANO ttH3N2fc INGOT PRODUCTION PLANTS, 30A
1912800b7002b742000101012R AND SEWAGE TREATMENT PLANTS. THE ADMINISTRATOR 30A
19l£800b70025742000101013LALSO PROPOSES AMENDMENTS TO TH£ GENERAL PROVISIONS 304
l9l280067002!>742000i01013ROF 40 CFS, PART »0, PUULISHEO ON DECEMBER 23, 1971 30A
1912800b700\E» OR MODIFIED 304
1912800670025742000101018LSOURCES, BOTH ThOSE STANDARDS PROMULGATED HJ DATE (304
1912800670025742000101018R36 FR 24876) ANO THOSE TO BE PROMULGATED IM TH£ 304
1912800b7002S/42000101019LF'UrURE. 30 A
1912t>0067002b7<*20U0101019R 304
191280067002S742000101020L A3 PRESCRIBED BY SECTION HI, THIS PROPOSAL OF ST30A
406
-------
1912800679999/42000105004LSHALL 3E RETAILED FOR AT LEAST 2 YEARS FULLJwI^G THJ0A
1912800b7999974200010bOOUrtE DATE 3F SUCH MEASUREMENTS ANO SUMMARIES. 304
19128006799997u200010e>001L TEST .''ETH30S A30A
1912800679999742000106001RNU PROCEDURES 30A
19128006/9999742000106002L (A) THE Pftijv IS IiJiiS OF THIS SECTION APPLY TO THE PE30A
1912800679999/42000106002RRFOHMAMCE TESTS FOR DETERMINING COMPLIANCE rtIM THE30A
1912800679999742000106003L STANDARD PRtSCRIttED bY 60.1e2. 30A
1931200921401742001005001L ALLOWABLES MISSING. 30A
193120092140174200100b004R PARAGRAPH TO idt COf'PLErED 30A
1931200921401742001099099L EMISSIONS MISSING. 30A
1931200921401742001099996H PAHAGRAGH TO 8E COHPLcTED 30A
1912600670010742000101001L APPLICABILITY A.^O OfcSIGNA[IOM JF AFFECTED FACILITY30A
19128006700H742000101001R Q£FIN ITIONS iOA
1912800670011742000101Ou2L 'ASPHALT CONCRElE PLANT' 30A
1912800670060742000202002L *****»**«*»***«***«******««**»***»•*****•«**»*****30A
19128006 70060 742000202002H****** n********************* »*•»»»•************** »»3oA
1912800670060742000202009L PP9-PARTS PER BILLION 30A
1912800670060742001001002L (AJ ON Or? AFTER THt OATE ON ^.HICH THE PERKORHANCE 30A
1912800670060742001001002RTEST REQUIRED TO ut CUNDUCTED 8r 60.a IS INITIATED 30A
1912B006700607U2001001003L 8JT NO LATER ThAM 180 DAYS AFTER iNITIAu START30A
1912800670060742001001003RUP. 30A
19128006700257420001010«1RS IN TEST METHODS 10 AND 11 ARE EXPRESSED IN MgTRICSOC
1912800670060/42000202005L HV-MILLIVOLT 30C
1912800670060742000202015L 0-OXYGEN 30C
1912800670060742001001002L (A) ON OR AFTER THt DATE ON *rt!CH THE PERFORMANCE 30C
1931200921401742001099996L (A) THE OflNER UR OPERATOR OF ANY AFFtCTfeD MCILITY30C
19312009214QI/42001099996H SUBJECT TO THE PROVISIONS OF THIS SuHPAHT SHALL 30C
193120092U01742001099997L INSTALL,CALIdRATt, MAINTAIN, AND OPERATE 30C
1931200921401742001099997RA PHOTOELECTRIC OR OTHER TYPE S*Or\E OtTECrOR. 30C
1912800670060
1912800670060
1912800679999
1931200921401
//SORT,OUTPUT
0202005
10
0105000
1005
73061 A
DO UNIT=SYSDA,
OI3P=(.ME',v,PASS),
SPACE=(TRK, (5, IJ),
110
300
210
P^RFUPOf,
OLOMSTH=PR110176,
//TEST22B E*tC
//*
//* UPDATE EIS/P&R CASTER FILE
//*
//UPDATE. INPUT JO DSNAMts&4 TRANS,
// UISHsCGLU, DELETE),
407
-------
//PNRTST23 JOB KTI .Ca«.P021S«. 'EIS/P&* ', Ta«,pRTrsO,FG**Ss.ihITt ,P«2bO
//«PROCLlB«KTI.Ctt«.Prj21b4.i«iCMASTE*.C0H5.JCL
//*
//* TtST HUN 23 - RETRIEVAL
//f£ST23A EXtC
// MsrRFlL«PR110lV2,
// SeRIAL-HTIlU
//*
//* HETRItVE G3UUPS OF UNE3
//*
X/COMHIUE.IMHUT 00 *
JJSELtCT 00000100
> '000'
00001300
//TE3f23d EXEC
//» PRINT ANSWER FILE
//*
408
-------
XXPNRTST2U JQb HTI.C44.Puai5tt, 'EISXP&H', Ts03, HRT YsQ , FORN-3 = .'iHI Tt,
XX*
XX* TEST HUN 24 - RETRIEVAL
XXKILL EXEC
xxooi oo UNiTsoiSK,oijp=(OLD,DELETE),
XXTEST2UA EXtC PNHRETVH,
XX HSTRFIISPHH01V2,
XX S£RIAL = «TIU1
XX*
XX* RETRIEVE Ol» STATE/ CUUXTY, A.MO PLANT-ID
XX*
XXCOMPILE.:r*HUT 00 *
S33ELECT
STATE = '!
-------
//PNRT3T2S JOB HTI.C44.P02154, 'EI3/P4R', T*U3,PK I Yso,FORI"S»whnE.,P«250
//*P*OCLIB»HTI.C44.PU21!»4.MCMA5TER.CUHS.JCL
//* TEST HU.J 25 - MERGE TRANSACTIONS FOK UPOrtTIf-G MASTfcH FILE
//KILL EX&C
//001 00 U.Mir»OISK,OI3?a(OLD,OeUTE),
// OSNSHT i. C4«.pu2 is*. MCHASTER.PNR.DAT A. MEWGE
//TESTSiA ExtC
//* MERGE TRANSACTIONS
//*
//MERGE. FtLEl DO OSM*RTI.C««.P02l54.MCMASTErt.PMH.DATA.SAve,OI3PaOLO
//MERGE. FILE2 oo «
191280009005073006021560100601 0001248 63400000995 21A
191280089005073006021528 A 22A
191280089005073006021 54240 1000200000SU 23A
1912800690050 7i0060215ll 1 0 1000 IOOOOOSU 23*
19l28008900bO 7300602154210 1000500 00 OSU 23 A
191 28006900507300602154310 1000400000SU 23A
19 128008900507300602 1S42602000300000SU 23A
//MERGE. UUTPILE 00 03N*liMtRGE,
//
// SPACEs(TWK,(10,5))
//TtST2bb EXtC PNRISOHT
//*
//* ENSURE TMAT TRANSACTIONS ARE SOHTEO CORHECTLY
//*
00 03NAME3&4MEHGE/
OI3Pa(OLO,OELlTt)
. OUTPUT oo UNITSOISK,
// OISP>(ri£tt,CATLG, DELETE)*
// SPACEa(TRK,(10,5)),
410
-------
//PMT3126 JOB HTI.CU4,PO<2154, 'EIS/P&*' , T=u3,PH T r=0 ,
//*PHOCLIb3HiTI.CUU.P02l5«,MCMASTES.CUHS.JCL
//*
//* TEST HUN 26 - UPDATE MASTER FILE
//*
//KILL ExtC PGMsiEFbRiu
//OOl 00 'JNITsOISK,01SHs(ULO,DEL£T£J,
//TEST26 EXEC PNrtFUHDT,
// ULOMSTK=P
// .NEWMSTHSH
UO OISPsiJLD,
411
-------
//PNRT3T27 JU6 HT I ,Ca<4.PU215«, 'EI3/PIK', T»0 J,PRTY«0,FORMSs*HI TE,P«250
//*PROCLIB*WTI.CU«.P021!»«.rtCMASTtH.CDrtS.JCL
//*
//* TEST rtUN £7 - HETWIEVAU
//TEsra7A EXEC PNRRETVR,
// MSTHf IL»PHUO«76»
//
//*
//* RETRIEVE ON STATk/ COUNTY, AND PLANT-ID
//*
//CUWPILfc. INPUT 00 *
Jisettcr
STATE a '19' AND
COUNTY « *t2ttO*
PLANT-ID « 'ooso'
llfcNO
//TEST278 EXEC PNKPREPT,
//*
//* PRINT ANSw£K FILE
412
-------
//PNRTST28 JOB
//*
//* TRANSACTION GENEKATUrt USING '^ODE 'A
//*
//TEST28 EXEC HNREFUPO,
// MSTHFlLSfHl 10476,
// rRArtS
//*
//* GtiiERATt TKA.viSACTIUcMS TO UPDATE EF INFO IN MASTER FILE
//*
//EFUPOATE.IiMPuT DO *
72000 A
413
-------
//PNHTST29 JOfl fg215«.MCMA3TEH.COHS,JCl.
//*
//« TRANSACTION GENERATOR USING MQOE 'T'
//*
//TEST29 EXtC PNHEFUPO,.
// MSTRFIl.«PR110«76,
// EFTAUCE»NEwEFT8L,
//*
//• GENERATE THANSACTIONS TO UPDATE EF INFU IN MASTER FILE
//*
X/EFUPOATE.IMPUT 00 •
72000 T
414
-------
Ji.'H
*»» rHAN^ACI IOU (.tflLUAIOII USING MODt 'I
* • »
txtt
* • *
•** Ut Kit «'Alt IKANSACI1UNS 1U UPDATt it- INFO IN MASTt.H fRF.
» * •
NJ'UI 00 «
iltl' WAS EXECUfF.O • CONU CODE 0000
EFOCOAIE CUHt = lUOK f]Mt --- 0:09.2 (JH --- 111 KU/rtM — 0:00.0 HC ---- -0
EFUPOAIL USLO=100h U'U— OtOO.'J 01SK --- 500 RlV»ND— 0 J 00.0
EFUI'OAU I/O— -OiOtl.fi 1AHI-— — 0 »L SK— OtOO.O
HMf. ---
415
-------
//PNRTST30 JOB H f 1 .CU4.P02 154, 'EI3/PHP' » TsO j,PHTrso
//*
//* THAN3ACT1LM UE
//*
//ftarjo EXEC
//*
//» GtNe^AfE r»AN3ACTiuN3 ro UPDATE EF INJ-O I.M MASTER PILE
//*
X/EFUPOATE.InPUT DO *
72000 X
416
-------
JWTST31
//«
//*
THAf4SACUu.i Gt.'<£KATO« USIUG ^'
//rtsrsi
//
//*
//* Gc^t,t
-------
TECHNICAL REPORT DATA
(Please read Instructions on the reverse before completing]
1. REPORT NO.
2.
3. RECIPIENT'S ACCESSION-NO.
4. TITLE AND SUBTITLE
Compilation of CDHS Assistance Reports
5. REPORT DATE
April 1978
6. PERFORMING ORGANIZATION CODE
7. AUTHOR(S)
Larry R. McMaster
8. PERFORMING ORGANIZATION REPORT NO.
9. PERFORMING ORGANIZATION NAME AND ADDRESS
Research Triangle Institute
Research Triangle Park, North Carolina 27709
10. PROGRAM ELEMENT NO.
11. CONTRACT/GRANT NO.
68-02-1386, T.O. 14
12. SPONSORING AGENCY NAME AND ADDRESS
U.S. Environmental Protection Agency
Office of Air and Waste Management
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
13. TYPE OF REPORT AND PERIOD COVERED
Final
14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
16. ABSTRACT
When dealing with atmospheric pollution, it is necessary for state and local
air pollution control agencies to amass, catalogue, sort, evaluate, and perform
calculations upon large volumes of data. EPA has developed and provided computer
subsystems to state and local air pollution control agencies which assist them
in these areas. These subsystems come under the umbrella system known as the
Comprehensive Data Handling System (CDHS). The CDHS subsystems are supported
by EPA after being installed by users. These support activities addressed in this
report are: (1) establishment of CDHS user groups, (2) conducting CDHS require-
ment surveys, (3) update distribution mechanisms, (4) documentation of user
hardware/software configurations, (5) procedures for responding to user identified
subsystem problems, (6) methods of communicating with users.
17.
KEY WORDS AND DOCUMENT ANALYSIS
DESCRIPTORS
b.lDENTIFIERS/OPEN ENDED TERMS
Computer Programs
Computer Software
Data Processing
Air Pollution
Data Handling
Computer Systems Programs
CDHS
AQDHS-II
EIS/P&R
Atmospheric Pollution
SAROAD
NEDS
c. COS AT I Field/Group
18. DISTRIBUTION STATEMENT
Release Unlimited
19. SECURITY CLASS {ThisReport}
Unclassified
21. NO. OF PAGES
417
20. SECURITY CLASS (Thispage)
Unclassified
22. PRICE
EPA Form 2220-1 (9-73)
------- |