ENVIRONMENTAL PROTECTION AGENCY
OFFICE OF ENFORCEMENT
EPA-330/1-77-011
A Pilot Study
To Evaluate An Objective Method
For Classifying NPDES Permits
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER, COLORADO
NOVEMBER 1977
-------
Environmental Protection Agency
Office of Enforcement
EPA-330/1-77-011
A PILOT STUDY
TO EVALUATE AN OBJECTIVE METHOD
FOR CLASSIFYING NPDES PERMITS
November 1977
National Enforcement Investigations Center
Denver, Colorado
-------
FIGURES
1 Draft Municipal Data Summary Sheet 11
2 Draft Industrial Data Summary Sheet 12
3 Alphabetical File Index 13
4 Data Summary Sheet 17
5 Numeric File Index 20
6 Computer Model Flow Diagram 34
TABLES
1 Summary of Permit Distributions 15
2 Primary Data and Weighting Elements 24
3 Rating Algorithms 29
4 Weighting Algorithms 33
5 Ranked Flow Listing 39
6 Ranked BOD Load Listing 41
7 Ranked TSS Load Listing 42
•8 Ranked COD Load Listing 43
9 Ranked Heat Load Listing 44
10 Selected Values of Rating Variables 46
11 Summary of Sensitivity Test Results 51
12 Summary of Changes in Permit Classifications . 58
13 Comparison of Changes in Permit
Classifications 58
14 Final Permit Classifications 60
-------
CONTENTS
I INTRODUCTION 1
PURPOSE 1
SCOPE 1
BACKGROUND 2
II SUMMARY AND CONCLUSIONS 5
III RECOMMENDATIONS 7
IV DATA COLLECTION 8
RECONNAISSANCE FILE REVIEW 8
PILOT FILE REVIEW 14
V DEVELOPMENT OF CLASSIFICATION METHOD 23
SELECTION OF DATA ELEMENTS 23
DESIGN OF ALGORITHMS . 28
COMPUTER MODEL 32
VI EVALUATION OF DATA 38
DATA CHARACTERISTICS 38
SELECTION OF RATING VALUES 45
SELECTION OF WEIGHTING FACTORS 49
SENSITIVITY TESTS 50
OPTIMUM CLASSIFICATION METHOD 56
METHOD APPLICATIONS AND IMPROVEMENTS 70
APPENDICES
A 1976 Workshop Recommendations
B Data Entry, Conversion and Transmittal Programs
C Pollutant Load Ranking Program
D Rating Program
E Weighting Program
-------
I. INTRODUCTION
PURPOSE
This study was undertaken at the request of the Permits Division,
Office of Enforcement, Headquarters EPA. Its purpose was to develop and
evaluate an objective method of classifying NPDES permits.
NPDES permits are now classified as "major" or "minor" based on
various sets of arbitrary and/or subjective criteria that have been
changed frequently in the past. Substantial differences exist between
states and between EPA Regions as to what is considered to be a "major"
industry. As the number of major permits in a state or Region is used
as one of the criteria for distributing resources (positions and funds)
for several programs, a uniform method of classifying permits is needed
to assist in providing a resource distribution consistent with national
and regional priorities.
SCOPE
Initially, the study considered the development of a classification
method for application to all types of permits (municipal, industrial
and agricultural). Based on the results of a reconnaissance review of
about 100 mixed permit files in Region VI and prior knowledge of permit
files in three other EPA Regions, the study was subsequently limited to
only industrial permits. Municipal permits are amenable to classification
on the basis of a few criteria, primarily size of flow treated. Agricultural
permits are not amenable to classification using the approach developed
in this study.
-------
Region VI was selected as the pilot study location because none of
the five states in the region have the NPDES program. All permit files
are thus in the regional office. Also, a wide spectrum of industrial
plant sizes.and types is present.
About one-fourth of the active permit files in the Region were
reviewed. This included 131 from Arkansas, 128 from Louisiana, 21 from
New Mexico, 120 from Oklahoma and 100 from Texas. Basic data compiled
for each permit included industry type, the types and volumes of pollutants
discharged, water uses for the receiving waters, types and severity of
permit violations, and any other data that defined the magnitude of a
potential or actual pollution problem related to the permitted discharge.
The types of data collected were primarily determined by availability in
permit files. No other program files were reviewed.
A computer model was developed to compile the co".lected data and to
evaluate various sets of objective criteria for classifying the permits.
The model was designed so that, through the use of weighting factors,
different types of data could be given more or less significance in the
classification process. Sensitivity tests were run to determine the
relative effects on permit classification of the different data types.
Based on the results of the computer tests, a set of classification
criteria were selected that maximized the objectivity of permit classi-
fications for the Region VI data set. Recommendations for use of the
classification method on data expected to be available in the near
future were also made.
BACKGROUND
On a national basis, the current classification of a permit as a
"major" or "minor" may be the result of applying objective criteria such
as volume of wastewater discharged or the type of industry or a
-------
subjective evaluation by someone that the particular plant is "big" or
the company a "bad actor." Also, what may be considered a major polluter
in one state or Region may be relatively insignificant on a national
scale or may be minor relative to national priorities.
As a result of the major differences between states or Regions in
the classifications of permits and the somewhat undefined methods of
classification, it was apparent that a more uniform approach was needed.
Development of such an approach was one task given to the participants
in a State-EPA workshop called "NPDES Permit Program Revisited" held
December 13-15, 1976. A 10-member committee with representatives of the
NPDES States and EPA Regions and Headquarters developed an approach and
two sets of criteria for classifying municipal and industrial permits
[Appendix A].
Several differences in approach were taken. For industrial per-
mits, the group recommended three classes: major, intermediate, and
minor. Two classes would be retained for municipal permits. The permit
class would be determined by the total number of points assigned to it
using specific criteria [Appendix A]. The criteria automatically assigned
50 points to any permittee discharging one or more "crisis chemicals"
(65 priority pollutants identified in the consent order for the NRDC
case) above established threshhold levels. Such permits could not be
considered minors. A second set of points ranging from 0 to 50 would be
assigned based on in-stream water quality considerations such as water
use, waste load allocations and degree of compliance with water quality
standards. Another set of points ranging from 0 to 50 would be assigned
based on water quality impact potential. Such factors as type of waste-
water discharged, flow volume, public health considerations and com-
pliance records would be considered in this point assignment. Although
more detailed criteria than presented in Appendix A would be developed,
assignment of points would still be somewhat subjective. The approach
was also complex and dependent upon data that was not necessarily easy
to retrieve from the files.
-------
The committee recommendations were submitted to a review group
consisting of three each NPDES State Directors, EPA Regional Enforcement
Directors and EPA Headquarters Directors in January 1977. The review
group concluded that the recommended approach was not workable and that
a simpler and more objective approach was needed. This study is in
response to this need.
-------
II. SUMMARY AND CONCLUSIONS
1. An objective method of classifying NPDES permits has been developed
and evaluated using a test data base abstracted from EPA Region VI
permit files. The method is flexible and can be modified to reflect
national priorities. Most of the subjective approach used in previous
classifications of permits has been eliminated.
2. Factors considered in classifying permits are industry type,
wastewater flow discharged, the relative magnitude of BOD, TSS, COD and
heat loads discharged, the presence and relative discharges of 65
priority pollutants including heavy metals identified in the NRDC Con-
sent Order, receiving water uses, water quality limiting stream condi-
tions and permit violations. Different relative weights are given to
these factors by the classification method.
3. A representative sample of about 500 permit and 500 compliance
files was selected for review from the Region VI NPDES permit files.
This represented about one-fourth of the active permit files in the
Region. Adequate data were available in this sample to complete data
sets on 428 permits. Files checked out for routine permit activity and
some incomplete data accounted for the other 72 permits. These permits
were distributed among all five states in the Region. About 15% (65) of
the permits were classed as majors.
4. A se_ries of computer programs was developed to process the permit
data. Although designed for keying in data by hand from data sheets for
this pilot study, the programs could be easily modified to accept com-
puterized data from the Regions or States when available. The programs
are resident on the NEIC DATA 100 key-disc system and the IBM 370 computer
operated for EPA by COMNET at the Washington Computer Center.
-------
5. More than 100 tests of the computer model were made against the
data base to evaluate the sensitivity of permit classifications to the
various factors considered. The results of these tests were used to
refine the model and develop the optimum classification method.
6. The factors used in classifying the permits were selected on the
basis of the availability of data and significance with respect to
national priorities. Data for all factors were available in Region VI
files, however, they were limited for several factors.
7. All test data were abstracted from the files by hand. Very little
of the necessary data is currently computerized in Region VI or nationally.
However, computerization of Discharge Monitoring Report data as currently
accomplished or proposed for several Regions would provide much of the
needed information. National application of the classification method
would be practical only when computerization of the monitoring data has
been accomplished nationally. Immediate implementation of the method
would require about 15 to 20 man-years of effort to collect and com-
puterize the necessary data.
8. The selected classification method assigns higher ratings to permittees
discharging any of the 65 priority pollutants listed in the NRDC Consent
Order. Data on heavy metals are limited and very limited on other
primary pollutants. Current Agency efforts should increase the avail-
ability of such data. Until this is accomplished, however, data is
inadequate to be able to rank the significance of different levels of
occurrence of these pollutants as it might affect permit classifications.
9. There may be biases in the classification method developed because
data from only one Region was used in the development and testing. The
method needs to be tested on data from other Regions or States to evaluate
this possibility. Also, such additional testing would assist in provid-
ing greater refinement in rating and weighting variables.
-------
III. RECOMMENDATIONS
1. The permit classification method developed in this study should be
tested against at least two additional data bases. This would provide a
check against any possible biases produced by Region VI data and would
allow for further refinement of the method. The test data bases should
include 100 to 200 permits each as a minimum.
2. Weighting factors used by the method should be evaluated against
changing national priorities to insure long-term optimization of
assigned permit classifications.
3. Any further development of the classification method should be
coordinated with national efforts to computerize permit and compliance
data. This would result in an optimal system design and reduce dupli-
cate data compilation and processing efforts.
-------
IV. DATA COLLECTION
An initial one-week reconnaissance file review was made in Region
VI to compare their NPDES file contents with the known characteristics
of files in three other EPA Regions. A file search procedure was
developed and a detailed pilot study of about one-fourth of the active
industrial permit files in Region VI was then completed. The following
sections discuss the design and conduct of the two data collection
phases.
RECONNAISSANCE FILE REVIEW
A reconnaissance review of the NPDES files in EPA Region VI, Dallas,
Texas, was made during the period March 28 to April 1, 1977. This review
provided information on the structure and general content of the NPDES
files for the states of Arkansas, Louisiana, New Mexico, Oklahoma and
Texas. A draft data summary sheet was developed and used to abstract
file data. Compliance and permit files on about 100 randomly selected
municipal, industrial and agricultural permits were reviewed. Data
collected were used as a basis for design of the second phase of this
study.
Region VI NPDES Files
The structure of the Region VI NPDES files is similar to most of
the other EPA Regions. Two files (permit and compliance) are maintained
for each permit. The permit file contains the application, any supple-
mental data submissions before permit issuance, permit rationale, draft
permits, the public notice, the issued permit and any correspondence up
-------
10
to the time the permit is issued. If an adjindicatory hearing was
requested, associated correspondence is in the permit file.
Once the permit is issued, a compliance file is established. It
contains the effective permit, any permit modifications, any progress
reports required by the compliance schedule, discharge monitoring
reports (DMR's) and associated correspondence. Any enforcement actions
against the permittee are also documented here. State enforcement
actions may also be included.
The permit and compliance files are filed together. Files are
arranged by state in numerical (permit number) sequence. The files are
housed in two types of mechanical files with a total of about 900 linear
feet of shelves. Files are accessed by permit number.
A computerized data base, Region VI Permit and Compliance System,
provides an index to the files. Bi-weekly printouts provide a current
index reflecting new permit applications and deactivated permits. Two
types of listings are available for index use, an alphabetical list and
a numerical list. The alphabetical list arranges the names of all
permittees in the file in alphabetical order with no distinction by
state. The numerical list arranges permit numbers in numerical sequence
by state.
At the time of file review, Region VI was supporting part of the
data elements in the national computerized data base, the Compliance
Data System (CDS). The CDS file was not used as a data source for this
study because of the incomplete file. Also, no permit limits or DMR
data had been computerized.
-------
11
Development of Draft Data Summary Forms
The initial reconnaissance file review was conducted by an engineer
familiar with the content of NPDES files in three other EPA Regions. A
quick review was made of about 10 varied permit and compliance files to
determine what if any significant differences there might be in the
content of the Region VI files. No significant differences were noted.
To expedite file review and data abstracting, two draft data
summary forms were then developed. Data items listed on the forms were
selected on the basis of two factors, general availability in the file
and significance in determining the magnitude of a permittees polluting
activities. One form [Figure 1] was designed for review of permit files
for municipal wastewater treatment plants or small domestic treatment
plants servicing mobile home parks, recreation facilities, etc. A
second form [Fig. 2] was designed for all sizes of industrial permit
files. No data summary form was developed for agricultural permit
files.
Random File Selection Procedure
To insure that the files reviewed were a representative sample of
the complete file, a random selection procedure was devised. The alpha-
betical index listing [Fig. 3] was used to select random permit numbers,
Only active permits were considered in the selection process. Active
permits are identifiable in Figure 3 by the presence of a date in the
0501 ISSUED (permit issued date) column and the lack of a date in the
0925 PRTERM (permit terminated date) column.
For the initial set of files reviewed, the fourth active permit
under each letter of the alphabet was selected. For additional file
-------
12
Figure 1 .
DRAFT MUNICIPAL DATA SUMMARY SHEET
DATA
SHORT FORM A - Sr
A/o,
FOAM A
///I M £
/AY/H.
£00
/r>T
erm.
A/0. VT /
ft
PPJ..tC.-A-T/0'S
Sop
A^ fTY //-'• / r.
SIC
Con-fact c,r.
Ye. 3 _ /Jo
F'sl>
-------
Figure 2 13
DRAFT INDUSTRIAL DATA SUMMARY SHEET
fap.mr /Vo-
'/;-
/
6.
/•/;: q ff
""/ ' /
S/r.fcf
-------
Firure 3
ALPHABETICAL FILE INDEX
03-03-77
'RTb"
"KTT Wi
T~R~tTT e~"c T r~o~N"A "cr
pAr-E
TrsTor
(C4T STANDARD'ALPHABETICAL PROCESSING'STATUS
~"^TS"TR~rBUTION--F.iWbJ5S~DVW«lKER~6"".3lNG'HA"M"H; TUCKER" "GijACkSON~Nr*36oOrff;'TiD6L'E""RiCK"
APPLICATION NAME
•k P HATCHEPY
0 LEE
J N1TSC.H WATER CO-HOUSTON-HARP.
o SMITH COUP-HOUSTON
V JEWELL 08A WAGONS WEST HOB II.
DOM-iNIOUE'S STOCKYARD.
OOM I NOME'S COJ PALACE,
ri. SUTtit-'LANO
SCHULMAfJ. INC-CPANGE
iiorivSMnF, FEPRIS I NO. INC.
A E. f.Tf.LFf MANUFACTURING COMPAh
a T DA !"Y
A 1 I'.Of; ILF HO1-!?. PATK
A«ifirviLi.e, COMMISSION co.
AH-«EVILLE, CI TY OF
AQUOTT LAC'OPATOhlES
A3,-3Coo"f>IE RANCHES FEED
AftF.ENATHY. CITY OF
ABILENE CATTLE FEEDERS
AOIl.E'-'E, CITY OF
AOILE'IE. CITY OF (HAM9Y)
ABIOUIO, CITY OF
A°ITA SPRINGS. TOWN Or
AflLOM POULTRY
AC PFEIFFE&
ACEDIA FE£i"iLOT-F)ASILE
ACADIA PACKINfi CO
ACAOiiN MriijiL HOME PARK 1NC-PRJM
ACCO RESEARCH STATION
ACCURATE INC.
ACE COM3 CO.BOONEVILE AR
ACHILLt, CITY OF (PWA)
ACIO OELINTERS INC
ACOMA PiJEPLO OF
ADA LIVESTOCK AUCTION
ADA, CITY OF
AfiAIR, CITY OF
AOAMS(GUO) RANCHES
ADO PROCESSING CORP-ABBEVILLE
NPOESa
A-0036145
TX 004 4679
TX0038598
A»0027081
OK0024309
i/,003*Q32
l.A0034q83
^•••0022322
f !}•: 0022004
TXOOO/12^1
LA00327S6
TX0060062
OK0023671
LA003Q748
TX002T-44I
TX003'-»?64
TX0040P60
TX0023973
NH0024P30
TA004*687
LA0036731
TX0044440
L A 0 0 0 0 1 1 6
T«039636
~ TX0063711
AR0034461
OK0027579
TX0033?.9H
NM0027391
OK 00 261 IS
TXOOS2J91
LA0051772
FORMSS
A
" D "
a
B
D
R
B
D
8
B
B
B
R .
C
C
B
0
B
B
A
C
c
B
A
B
A
A
A
A
B
B
B
B
R
D
B
C
C
A
D
A
B
A
A
B
C
HAJMIN
Z
?_
2
2
2
2
2
Z
Z
f.
z
z
z
z
z
z
z
z
\
z
z
z
z
z
\
z
z
z
z
z
z
1
2
z
z
z
z
£
z
2
2
1
2
Z
1
2
RCSENG
LINGUIST
LIUC-UIST
IMVCTJVE
INACTIVE
LINGUIST
LIN.'-UIST
LINGUIST
INACTIVE
INACTIVE
T-V>K,T
HALE
LINGUIST
INACTIVE
LIW-UIST
L-'-HSHOP
INACTIVE
LINGUIST
NO-DISCH
LINGUIST
T-jFO
"TX0023973
NO-DISCH
LINGUIST
INACTIVE
LINGUIST
' LINGUIST
LINGUIST
T_HFMATI"
HO-DISCH
INACTIVE
SIMMONS
LINGUIST
WEAVER
0-MORf IS
LINOUISt
LINGUIST
' 1103 " ~"oao9 0561
APPLST DRFREC PNISSU
02-19-77
04-16-76
03-14-75
05-24-74 6l-r3-T5 02-15-75
10-22-74
10-06-75 1 1-29-75
01-11-75
08-28-74
07-20-74
«7-?0-74
05-04-74
07-06-74
12-28-74
01-12-74
09-03-76
07-05-75
12il«--74 04-VO-75' 05-10-75
11-02-74
03-15-75
07-27-74
07-20-74
05-31-75
Told
ISSUED
04-02-75
01-19-76
02-21-75
09-06-7*
.
"09-17-74
06-20-74
Oe-29-74'
02-1 1-7 V
04-01-74
08-15-75
' 06-25-75
12-16-74
"05-08-75
09-16-74
07-14-75
__. U07 ....
05-15-75
04-11-75
10-01-74
10-01-74
07-01-74
~ 09-01-74
"03-23-75"
05-01-74
10-05-75
- oe-io-75
01-16-75
06-15-75
10-28-74
10-01-74
08-30-75
PRTERM
05-17-76
10-22-74
10-04-74
12-02-7*
12-02-74
04-09-74
04-26-74
06-13-74
11-13-74
10-04-74 " ~
06-30-76
11-13-/4
07-30-74
-------
15
sets, the 14th, 24th, 34th and 44th active permits under each letter
were selected.
This procedure resulted in the selection of 112 permits for review
of both permit and compliance files. These permits were from all five
states in the Region.
Statistics
As expected, some of the selected permit files were not present in
the filing system but were checked out for ongoing permit processing
activities. To avoid disruption of these activities, the missing files
were not retrieved from users. Of the 112 permits selected for review,
14 permit files and 13 compliance files were checked out.
File data were adequate to complete 96 data summaries. Their
distribution by State and permit type are shown in Table 1 which shows
the same distribution for all active permits in Region VI as of February
1977. Note that the reconnaisance data set distribution is comparable
to the distribution of all permits indicating that a representative
sample was obtained.
PILOT FILE REVIEW
Data collected in the reconnaissance file review were evaluated to
determine which data elements were available for most permits. A data
summary sheet was then designed to facilitate large scale file review.
At this time the study was limited to industrial permits only. The file
data indicated municipal permits could be classified on the basis of a
few relatively simple criteria. Agricultural permits did not lend themselves
to any type of systematic classification procedure.
-------
CT>
Table 1
SUMMARY OF PERMIT DISTRIBUTIONS
Type Permit
Municipal Agricultural
State
Arkansas
Louisiana
Oklahoma
New Mexico
Texas
Total
Recon
10
8
7
2
28
55
3*
4
2
0
3
12
Region Recon Region
268 59*
306 78
435 57
57 12
1,021 199
2,087 405
0
0
0
2
4
6
7
9
83
80 .
254
433
Recon
6
9
7
0
12
34
0*
1
0
0
0
1
Industrial
Pilot
104
109
107
17
91
428
*
9
26
13
4
13
65 2
Region
347 33*
491 98
389 31
47 10
992 127
,266 299
Federal
Recon Region
1
0
0
0
0
1 '
no
48
92
62
140
452
*
1
1
2
0
4
8
Recon
17
17
14
4
44
96
*
5
2
0
3
13
Total
Pilot
104 9*
109 26
107 13
17 4
91 13
428 65
Region
732
854
999
246
2,407
5,163
93
177
90
22
330
712
Numbers in this column are the numbers of principal dischargers
(majors) included in each group of permits.
-------
17
Data Summary Sheet
The draft data summary sheet used in the reconnaissance file review
was designed primarily around data elements typically present in permit
files. It did not include all data considered to be possible candidates
for use in a classification method. Also, several of the original data
elements were either not available in most files or had limited use for
permit classification purposes. The data sheet was therefore redesigned
for the pilot study to reflect the findings of the initial review.
Basically, the revised data summary sheet [Figure 4] provided for
the collection of seven types of data. Basic data collected for all
permits (Header Data) included the permit number, name of permittee,
Standard Industrial Classification (SIC) code and the permit class as
classified by Region VI permit staff.
The initial file review indicated that wastewater flow, biochemical
oxygen demand (BOD), total suspended solids (TSS), chemical oxygen
demand (COD) and temperature were the pollutant load characteristics
most commonly reported.' Since data were reported in various English and
metric units, a unit code system was used. Pollutant loads were usually
reported by outfall for multiple outfall permits. The type of waste-
water was also frequently available.
To provide information on the levels of chemical substances included
in the NRDC Consent Decree, two types of data were collected. Of these
substances, heavy metals data were the most commonly available although
somewhat limited. The data sheet was designed to facilitate rapid
conversion of available data into number of metals present and total
load discharged.
For the other priority pollutants, a small amount of data was avail-
able on cyanides, phenols, PCB's, limited types of pesticides and chlorin-
ated hydrocarbons. Very little load data was available. For this
-------
18 Figure 4
DATA SUMMARY SHEET
NPDES "MAJORS" PILOT STUDY
DATA SUMMARY SHEET
REGION VI INDUSTRIAL PERMIT Continued ?
HEADER DATA
NPDES No. SIC Code Year (1967 or 1972)
NAME '
Major/Minor Class (1,2,3,4) Application Form (c, D or R)
POLLUTANT LOADS Source Code*
Outfall Type** Flow Units Units Units Units Units
No. Waste Code BOD Code TSS Code COD Code Temp. Code
(Units Codes: 1 = mgd; 2 = m /day; 3 = gpm, 4 = mg/l, 5 = kg/day, 6 = Ib/day, 7 = °F, 8 = °C)
HEAVY METAL LOADS Source Code*
Ag , As , Cd , Cr , Hg , Ni , Pb , Zn_
Total Flow . , Units Code , Total Load , Units Code
Total No. of Heavy Metals Present
OTHER PRIORITY POLLUTANTS PRESENT Source Code*
CM, phenol, PCB's, Pesticides (List)
Chlorinated Hydrocarbons (List)
Other Primary Pollutants (List)_
(Significance Code: 0 = None, 1 = Minor, 2 = Major)
WATER QUALITY STANDARDS DATA
Water Uses: Public Water Supply, Primary Contact Recreation, Fish & Wildlife Propagation
Water Quality Limiting Stream (Codes: 0 = No, 1 = yes)
PERMIT VIOLATIONS
Discharge Monitoring Reports, Effluent Limits, Compliance Schedule
(Codes: 0 - None, 1 = Minor, 2 = Major)
SUBJECTIVE FACTOR
Value (Range 0-100, 0 is no problem, 100 is major problem)
Assign value based on factors such as size and complexity of facility, history of pollution problems,
violations of pollution control regulations other than permit conditions, attitude of permittee
(cooperative or recalcitrant, etc.) and other local factors.
* Source Codes: 1 = Discharge Monitoring Report; 2 = Permit; 3 = Application; 4 = Other
** Type Wastewater: 0 = No information, 1 = Sanitary, 2 = lion-Contact Cooling Water, 3 = Contact Cooling
Water, 4 = Cooling System Bloudoun, 5 = Water Treatment Waste, 6 - Boiler Slowdown, 10 = Process Wastewater
-------
19
reason, a significance code was included to reflect the relative number,
load size and toxic significance for reported pollutants.
Water quality standards data present in the permit files were
primarily designation of beneficial water uses. Some files indicated if
waste load allocations applied indicating when a receiving stream was
water quality limiting. Essentially no data were present to indicate if
water quality criteria were being violated because of the permitted
discharge.
Compliance files contained information on the status of compliance
with permit requirements such as the submission of DMR's according to
schedule, waste loads discharged within prescribed limits, and construc-
tion of abatement facilities per schedule. Since many simple technical
violations of permit requirements that did not reflect a significant
pollution problem were observed to occur, provision was made for ranking
permit violations. For example, one or two DMR's submitted late, in-
frequent violations of effluent limits by small margins or missing an
intermediate compliance schedule date were considered minor violations.
In contrast, persistent late DMR submission, large or frequent effluent
limit violations and long delays in final constuction completion were
all considered major violations.
Because all information indicating whether or not a permittee was
an actual or potential major polluter could not be included in the
relatively objective data discussed above, provision was made for
inclusion of a subjective factor.
Method of File Selection
The method of file selection used in the reconnaissance file review
insured an essentially random selection of files. However, because it
-------
20
selected permit numbers that were widely scattered among the filing
system, it was not practiced for large scale removal and refiling of
folders from the filing system.
For the pilot file review, the numeric index [Figure 5] was used
instead of the alphabetical index. Every other active permit file in
numeric order was selected for review. This resulted in removal of
folders from a small file section at a time substantially speeding up
retrieval and refiling time. For Arkansas and New Mexico, half of the
active permits were selected for review in this manner. This insured a
good representative sample for these two states.
Initially, the same procedure was used for Louisiana. Beginning
with the small permit numbers, every other file was selected for review.
It immediately became apparent that the older, lower numbered permits
included a disproportionate percentage of major plants. To offset this
bias in the data, half of the files selected for review were picked by
beginning at the high permit number end of the index and working back-
ward. These permits were primarily for newer and smaller plants. About
one-fourth of the active files in Louisiana were reviewed. The procedure
used was believed to result in a representative sample.
The bias apparent in the Louisiana data was not noted in the Oklahoma
and Texas files. For both states, files were selected beginning at the
small permit number end of the index. For Oklahoma, about one-third of
the active files were reviewed, selected from the front two-thirds of
the index. In Texas, about 10% of the active files were reviewed,
selected from the front 20% of the index. Both samples were also con-
sidered representative.
File Review Procedures
The file review was conducted by three administrative clerks and
-------
Figure 5
•NUMERIC FILE INDEX
03-lh-77
U
S E N V I
RON
REGION
MEN
T A L P R 0 T
E C T I
ON AGE
N C Y
PAGE 1
VI PERMIT AND COMPLIANCE SYSTEM
(CS) STANDARD
NUMCPICAL PROCESSING STATUS
APPLICATION NAME
P I CFL A^'r1? FOOpS-hKLENA
AWEHSOU CLAYTON *.. CO-PAYMASTER
t)/PDI*JlcR UIG PIVfR-HFLFNA
• OAPLING STORE FIXTURES
CftaNE CO-CI'AK*HEA<> •
OEl. Ti P.'- Of* CO-WILSON
SO'JT*'F''K I'OTIOM OIL CO
POTLATCH FOREST INC-CLAREMDON AR
JOIJf '-RO'^n tiMt'ASG FxTwACTION CQ
MOXM< mi'npffi CO-flTLcNA
.. .. . MEMPHIS COi'.PKESS 1. STORAGE-
Tur SIM-EH co-Por.'Tst TT
Mr. fNA COTTON OIL CO
UE'.t-AL f.LECTRIC - OiAlCrlEAD
H|.Y1h? VILL?.' CANNUH5-H.YT-iEVHLK
....'.. GOLF O;L pit*., w. MEMPHIS! ARK...
f.r'I.LfNA HP'. UTIL.
MON&r'F A'JTO EQUIP-GREEN
C,F;)';;> ICK wtlf VdlK.'.S
Uc'OAilWAY PACKING JUNF.SRORO
US/..F-HLYTHF.VILLE AFFJ H\
USiF-HLYTHEVJLLF. AF8 a2
USf.F-i.LYTritVlLLE AFH »3
US.'.F'-rU YTHtVILLE AFS #4
USiF-HLYTHfVlLLF. AFw »S
ST FKtKCIS KiTF.-PtilNTSF.TT
US.\F-LITTLL fiuCN AF« MISSILE SIT
USAF-LITTLE HOCK AF« MISSILE" SIT
RlCELANO FOODS-STtiTTGAFlT
AOKICO COi-'P-RLYTHtvlLLE
A-TA.'/SAS P<.L-HAMILTON MOSES /L-H
AOf.iNSAS> ELECTRIC COOP-DAILEV /P
FATO.-J COKP-FO^RtST CITY
FIPtSTOr.E TIKE fc RUSHER CO.KAGNO
GIFFOWD-HILL ». CO-LEWl SVILLE
GIFFOPO-HILL 4. co-TexA-'iKANA
PHILLIPS PETWO MCKA«1E PLANT
oaoe
-AR0000019 *•
AR0000027
. AKOOOOOSl'-
A^.'00000^0
A^OOOOOHh
AR000010H
AW0000124
*i< 0000141
APu000^05
A*J0 OflO? 1 3
AR0000221
A«0000?48 - |
AW0000264 5
A<'0000272
AP00002H1
AU0000302
AROCOO^ll
ARU000329
AK0000337
ARC000345
AK 0 0 0 0353
AR0000361
SM0000370
AROCOOJ38'"
AKC000396
AH0000400
Ai<0000442
AW0000477
o»to
FORMSS
'- — ^R
R
R
R
R - -
R
R
R —
R
R
R
H lui
'. — R :_
R
R
R
'i R
'T R
J R
R
i i
a: -±:a: ac.x. or
i j
R
R —
R
R "
R
R
R
R
R
R
R
R
.R
R
***
2
2
2
2
2
2
2
2
2
2
2
2
2
__ z
2
2
Z
2
2
2
2
a
2
2
2
2
a
i
2
z
2
2
IN RE"jfNG
N07.ACKY
ilC IJM
A-LA:iTER
A-L Av'Tl" R
A-LASTFR
HALf.
^ 0 L A C K Y
THOMSON
KULJ I AN
A-LASTEW
HUFFMAN .__
A-LA:.;TF.R
I^OZACKY
A-L#STf.R _
THOI-'I'SOM
OEKtXAK _.
A-LAiTEP
A-LA^TtR
A-LASTKR
A-LAiTEft
RO/.ACKY
IfiAC FIVE
INACTIVE
INACTIVE
INACTIVE
1NACI IVE
HUMKE
HALK
HAHTKII-LO
LASTtR
THOMSON
~"OEhN
A-LASTER
A-LiiSTilR
A-LA^TfJR
A-LASTtR
H'JMKC
HALE
kASMUSSE'N
THOMSON
HUNTEH
HUMKE
HUMKE
TALIFEHO
1103
APPl *»T
07-16-74
07-16-7*-
07-16-74
01-26-77
07-16-74
07-16-74-
04-02-74
07-16-74-
07-16-74
04-02-74-
04-30-74
04-30-74
04-30-74
07-16-74
04-30-74-
:_..
0309
i
06-26-75
06-26-75
03-04-75
02-24-75
-06-?6-75-
05-30-74
06-26-75
05-30-74
05-30-74
11-06-74
12-05-74
12-05-74
02-24-75
11-25-74
- • -
0501
PNI ssu
02-09-74
07-19-75
07-19-75
07-19-75
02-16-74 -
06-26-76
-Oi'-lh-74—
11-10-73
1 1-29-7S
04-12-75
Gft-lA-74.-.
03-20-75
11-1 /-73
12-1S-73
07-19-7S
08-24-74
?o'-2'?-73
10-13-73
10-13-73
10-13-73
10-13-73
10-13-73
01-01-99
01-24-76
08-10-73
06-29-74
04-10-76
01-2S-75
01 -25- 75
04-10-76
04-10-76
01-01-99
11-37-70
02-16-74
11-20-76
12-15-73
l?-15-73
04-13-74
1010
— !SSUEt>-
08-?2-74
_1 1-02-74-
09-10-75
09-10-75
09-10-/5
05-03-74
09-25-76
03-22-74
05-16-75
05-03-7»
10-01-74
09-10-7H
0-74
10-19-75
- 10-14-75 -
10-19-75
• 66-01-74
10-31-74
C ^ - C 1 - 7 4
Ofr-01-74
OO-np-75
- 04-01-75 — - - -
f.6-29-7S
0 7 - r 1 7 *
Ofc-Ol-74
06-01-7*
10-31-74
10-19-75
10-31-74
01-16-74 07-02-75
01-16-7* 07-0,7-75
01-16-74 07-03-75
01-16-74 07-03-75
01-16-74 07-03-75
07-01-74 lC-2'1-76
04-24-76
10-2S-73
03-"i«-75
09-01-74
07-10-76
09-09-75
07-10-76
07-10-76
07-01-74
02-27-77
06-01-74
02-20-77
03-22-74
05-01-75
ro
-------
22
secretaries supervised by the engineer. The three were initially partially
familiar with permit terminology and were specially trained for this
particular data abstracting exercise. The engineer also reviewed files
and was available to clarify ambiquities in file data. The staff was
selected on the basis of the type of team that would probably be used
for a large scale permit classification effort.
A fixed review procedure was used to ensure uniform data collec-
tion. The compliance file was reviewed first. Pollutant loads reported
in the DMR's were recorded. If loads were highly variable, the median
of the last three DMR's was used. For seasonal variations such as
cooling water temperature, the median of higher valves was used. The
DMR's were also checked for data on heavy metals or other priority
pollutants.
Water use data was usually obtained from the Fact Sheet or Public
Notice in the compliance file. Information on waste load allocations or
water quality limiting streams, when available, was sometimes present in
the compliance file but usually in the rationale in the permit file.
Data on permit violations were always obtained from the compliance file.
The permit file was the usual source of information on the type of
wastewater discharged. However, it was frequently difficult to determine
what type of wastewater was actually being discharged unless one was
familiar with the industrial process involved. If pollutant loads were
not availble from the DMR's, they were obtained from the permit limits
or from the permit application. Application data were considered the
least reliable since they were frequently three to six years old.
Most of the heavy metal data came from the permit application. This
was also true for data on other priority pollutants.
The subjective factor-was assigned only by the engineer and was
based only on information present in the permit and compliance files. In
-------
23
practice, this factor would normally be assigned by someone more familiar
with each particual permit and would consider other information as well.
Statistics
As in the case of the reconnaissance file review, a number of the
selected files were checked out for routine permit processing activities.
None of these files were retrieved. Of 500 permits selected for review,
77 permit files and 48 compliance files were checked out. Data were
available to complete 428 data summaries. Distribution of these permits
by State is shown in Table 1 previously presented.
-------
V. DEVELOPMENT OF CLASSIFICATION METHOD
The classification method evaluated in this study was developed in
four steps. Data elements were first selected based on a combination of
the availability of data in the permit files and a perception by those
in the permit program of factors that should be considered. Algorithms
were then designed to convert the raw data into rankings or classifi-
cations in as objective a manner as possible. A computer model was
developed to facilitate testing the algorithms against the data set
compiled from Region VI files. Lastly, as described in Section VI, the
test data were evaluated, sensitivity tests run and the algorithms
refined.
SELECTION OF DATA ELEMENTS
A total of 17 primary data elements comprising five types of data
were selected for evaluation in this study [Table 2]. Data types were
industry type, characteristics of the wastewater discharge, character-
istics of the receiving waters, permit compliance data and other infor-
mation relative to the significance of the wastewater discharge as an
actual or potential polluter. Other data elements or types were con-
sidered but discarded because data were not readily available or their
use in the classification system contemplated required too much subjective
judgement.
Industry type as defined by the SIC code has been used in the past
as one factor in classifying permits. The SIC code is available for
practically all permits and is usually present in computer files. It is
easily compared against tables of specific SIC codes of concern. It was
thus selected as a primary data element for this study.
-------
26
Table 2
PRIMARY DATA AND WEIGHTING ELEMENTS
Primary Data Elements Weighting Elements
INDUSTRY TYPE
SIC Code X
WASTEWATER CHARACTERISTICS
Type Wastewater X
Pollutant Load Ranking X
Biochemical Oxygen Demand
Total Suspended Solids
Chemical Oxygen Demand
Wastewater Flow X
Heat Load X
Heavy Metals X
Number of Metals Discharged
Total Load Discharged
Other Priority Pollutants X
RECEIVING WATER CHARACTERISTICS
Water Uses X .
Public Hater Supply
Primary Contact Recreation
Fish and Wildlife Propagation
Water Quality Limiting Stream X
PERMIT COMPLIANCE DATA
Permit Violations X
Discharge Monitoring Reports
Effluent Limitations
Compliance Schedule
OTHER INFORMATION
Subjective Factor X
-------
27
The type of wastewater discharged was the second data element
selected. Wastewater type is related to both the actual and potential
pollution loads discharged by a given industrial .plant. In general, a
plant discharging process wastewater has a higher pollution potential
than one discharging only non-contact cooling water. Wastewater type is
available for most permits.
Wastewater flow discharged has traditionally been one of the major
factors considered in permit classifications. Flow data are required in
all permit applications and for most DMR's. Flow data are probably the
most universally available wastewater characteristic data.
A variety of wastewater characteristics are described in permit
applications, effluent limits and DMR's. Biochemical oxygen demand and
TSS are the most frequently reported pollutant load parameters. Others
frequently reported are COD and temperature. Because these four param-
eters are the most available and because they are considered classic
indicators of pollution loads, they were selected as primary data elements.
Since the NRDC Consent Order, substantial interest and concern has
been expressed over the presence and magnitude of loads discharged of 65
chemical substances called "Priority Pollutants." Because many of these
substances were not of concern when permit applications were submitted
to EPA or when current permits were issued, little data on their occurrence
are available. Substantial activity is now underway, however, to collect
such data and availability should sharply increase in the future.
Nine heavy metals are included in the 65 priority pollutants. Some
heavy metals data are available in the permit files on a number of
permits. Although some permits require monitoring for several heavy
metals on a current basis, most of the heavy metal data is old and
-------
28
contained in permit applications. Based on currently available data,
the total heavy metals load discharged and the number of heavy metals
present were selected as data elements.
Some DMR's and permit applications contain limited data on cyanide
and phenols with very limited data on PCB's, pesticides, chlorinated
hydrocarbons and other chemicals. Because of the very limited current
data, a subjectively determined significance code was selected as the
data element. Minor significance denotes the presence of small amounts
of only a few compounds with none having high toxicity. Major signi-
ficance would be assigned to the presence of highly toxic substances,
numerous primary pollutants or large effluent loads. Because of this
limited data, an alternate approach to other primary pollutants was
considered. A table linking primary pollutants with SIC codes would be
developed to define the relative significance of each SIC code. This
approach was discarded, however, because data are not fully available yet
to develop this correlation.
Four data elements were selected to define receiving water character-
istics as related to water quality standards. Three of the elements
were water uses (public water supply, primary contact recreation, and
fish and wildlife propagation) considered to be the most affected by
wastewater discharges. These uses were usually defined in the permit
files. Whether or not a receiving water is water quality limiting as
opposed to effluent limiting was selected as the fourth data element.
This factor determines the level of treatment technology required at the
source. Unfortunately, these data were available for only a few permits.
It was considered an important enough factor, however, to retain in the
classification method. Such data could be obtained from other sources
in practice.
-------
29
Other receiving water factors such as violations of water quality
criteria, impacts of non-point and natural sources of pollution, and the
interrelationships of multiple point sources of pollution have been
suggested as possible classification factors. They were not used for
this study because it was not practical to compile such data nor to
apply them to the classification method used.
Three data elements were used to describe permit violations. Discharge
monitoring report violations included failure to submit reports on time
or incomplete submissions. Effluent limit violations were for discharge
of pollutant loads in excess of allowable limits. Compliance schedule
violations included late submittal of compliance reports or failure to
complete various stages of planning and construction of abatement facilities
as scheduled. It was necessary to make subjective evaluations of the
magnitude of violations since many minor technical violations were
observed that, reflected no significant pollution impacts. Minor violations
included late submission of a few DMR's, infrequent exceedance of effluent
limits by small amounts, occasional late submittal of compliance reports
and a missed interim construction date. Major violations included
persistent late or missing DMR's, large or frequent violations of effluent
limits and failure to complete construction of abatement facilities.
Because not all information about the actual or potential pollution
impact of a permitted wastewater discharge can readily be included in
the relatively objective data elements described above, provision was
made for including a subjective factor. This data element consisted of
a number from 0 to 100, the value to be based on such factors as the
size and complexity of the facility, history of pollution problems,
violations of pollution control regulations other than permit conditions,
attitude of permittee (cooperative or recalcitrant) and other local
factors.
-------
30
DESIGN OF ALGORITHMS
Algorithms (mathematical equations) were designed to convert the
raw permit data contained on the Data Summary Sheets into numerical data
that could be used to compare the relative significance of each permit.
Rating algorithms were-developed to assign a rating value to each
primary data element based on its relative or absolute value. Weighting
algorithms were then developed to facilitate assigning different weights
to the primary data elements in making comparisons between permits.
Rating Algorithms
As shown in Table 3, the rating algorithms generally consist of a
comparison of the data element value with some fixed or variable item.
Depending upon the result of Lhat comparison, a specific variable is
assigned. For example, the reported SIC code for each permit was com-
pared with a table of all SIC codes included in the NRDC Consent Decree.
This table was the fixed item. If the SIC code was present in the
table, variable S-j was assigned. If not, variable S2 was assigned. As
discussed in Section VI, specific point values were assigned to these
variables. In this case S, = 10 and S? = 0.
The NRDC list apparently represents the industry types of most
concern at this time. If other industry types prove to be of major
concern in the future, this table could easily be changed.
For wastewater type, numerical codes were assigned on the Data
Summary Sheet. The algorithm reviewed this code and assigned one of
three variables based on wastewater type. Sanitary and non-contact
cooling water were assigned the low value (T2), contact cooling water,
cooling system blowdown, water treatment waste and boiler blowdown were
assigned the intermediate value (T3) and process wastewater the high
value (T,).
-------
31
•Table 3
RATING ALGORITHMS
Data Element
SIC Code
Type Wastewater
Pollutant Load
Rankings
Wastewater Flow
Heat Load
Heavy Metals
Other Priority
Pollutants
Rating Question
Is SIC Code in Table?
Is Type Code > 9?
Is Type Code < 3?
Is Type Code ^ 3 but <^ 9?
Is BOD rank < Percentile 1?
Is BOD rank > Percentile 1
but < Percentile 2?
Is BOD rank > Percentile 2?
Is TSS rank < Percentile 1?
Is TSS rank > Percentile 1
but < Percentilt 2?
Is TSS rank > Percentile 2?
Is COD rank < Percentile 1?
Is COD rank > Percentile 1
but < Percentile 2?
Is COD rank ^Percentile 2?
Is Flow > Max Flow
Is Heat Load > Cutoff Btu
Is no. of metals > H max?
Is no. of heavy metals < H max
but > 0?
Is heavy metals load > HL-j?
Is heavy metals load < HL-i
but > HL2?
Is heavy metals load < HL9
but > 0? *
What is the significance of the
discharge of other priority
pollutants?
Result
Yes
No
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
Yes
No
Yes
No
Yes
Yes
No
Yes
Yes
Yes
No
Major
Minor
None
Assigned
Variable
sl
S2
T..
T2
T3
t\ T i
11
R1C)
Rn£
i\o i
21
R99
R-?o
R-,
\J 1
r\ *•» r\
R32
R33
F,
.O1
Hl
O1
HM
HM,,,
HM
1 C.
HM99
HM,9
o *-
OC,
oc'
0 2
-------
32
Table 3 (Cont.)
RATING ALGORITHMS
Data Element -
Receiving Water uses
Water Quality
Limiting Stream
Permit Violations
Rating Question Result
Are the waters classified for:
Public water supply?
Primary contact recreation?
Fish & Wildlife propagation?
Is the receiving water
quality limiting?
How significant are the
violations of Discharge Moni-
toring Report requirements?
How significant are the vio-
lations of effluent limi-
tations?
How significant are the vio-
lations of compliance
schedules?
Yes
No
Yes
No
Yes
No
Yes
No
None
Minor
Major
None
Minor
Major
None
Minor
Major
Assigned
Variable
WU,
0 '
WU9
o e-
WU,
0 J
WQ
V10
V T
V 2
1 C,
V20
V21
V
99
L.L.
V30
if OU
Voo
-------
33
Before rating values were assigned for flow, BOD, TSS, COD and heat
load, several data conversions were made. The raw data were converted
to standard units (mgd, Ib/day and °F), the flow and BOD, TSS and COD
loads summed for permits with multiple outfalls, and the flow and
temperature data converted to a heat load (BTU's). A sort program was
then used to rank flows and BOD, COD, TSS and head loads. Ranking could
be performed either for all permits in a State or in the total data
base. A separate ranking was made for each parameter. A percentile
rank was also assigned to each permit-parameter data point.
Once this ranking process was completed, rating values were assigned
to each data element. For flow and heat load, permits with values
larger than a selected level (Max Flow and Cutoff BTU) were assigned a
rating value (F-, and H-,) while smaller values were assigned a zero. The
ranking percentile was useful in selecting the dividing value.
For BOD, TSS, and COD, one of three rating variables was assigned
to each data element. The dividing values were percent rankings in each
case. For example, BOD rankings less than 3% were assigned R,,, between
3 and 9% were assigned R12 and above 9%, R,3. Thus, a permittee discharg-
ing a BOD load in the top 3% of all BOD loads reported would be assigned
variable R-,, which was given a value of 30 points.
With respect to heavy metals, one of three variables was assigned
to the total load data element. The load values (HL-j and Hl_2) dividing
the data into three classes could be selected. An example would assign
the high rating value (HM,?) to heavy metal loads over 50 Ib/day, an
intermediate rating (HFLo) to loads between 5 and 50 Ib/day and a low
rating (HNLo) to smaller loads. For the number of heavy metals present,
a high rating was assigned for over 2, a low rating for 1 or 2 and no
rating for 0.
-------
.34
A significance code showing no problem or minor or major problems
was the data element for other priority pollutants and for permit viola-
tions. In these cases, specific rating values were assigned for each
significance code. These rating values were adjustable.
For the four water quality standards data elements, a zero was
assigned for a no answer and specific rating values (all adjustable)
were assigned to yes answers. The rating value assigned to the sub-
jective factor was the value of the factor.
Weighting Algorithms
The 17 rating variable assigned were combined into eleven groups
for weighting purposes [Table 2], The BOD, TSS and COD elements were
.summed to form one element. The two heavy metals elements were combined
into one sum. The three water use elements were summed as were the three
permit violation elements. This produced the eleven weighting elements.
As shown in Table 4, the weighting algorithms multiplied each rating
variable by a weighting factor (W ). The weighted points for each data
element (X ) were then summed to give the total weighted points for
each permit.
COMPUTER MODEL
The computer model developed to incorporate the algorithms dis-
cussed above actually consisted of several separate programs. A basic
flow chart is shown in Figure 6. Part of the data processing was done
at NEIC on a DATA 100 system with the remainder performed at the Washing-
ton Computer Center (WCC) on an IBM 370 computer operated by COMNET for
EPA. The programs resident at WCC were designed to take properly
formatted data from any source. These programs could thus be used to
-------
35
Table 4
WEIGHTING ALGORITHMS
Weighting Element
SIC Code
Type Wastewater
Pollutant Loads
(BOD + TSS + COD)
Heat Load
Wastewater Flow
Heavy Metals
Othsr Priority Pollutants
Algorithm
S x W, = X,
n I I
Tn x W2 = X2
(R1«+ R9«+ RO W-3 = XQ
In dn on o o
Hn x W4 = X4
Fn x W5 ' X5
(HMnl + HMn2) W6 = X6
OCnxW7 = X7
Water Uses
(PWS + PCR + F & W)
Water Quality Limiting
Permit Violations
(DMR + EL + CS)
Subjective Factor
Weighted Total Points =
8 =
W
In + V2n + V3n) W10
SF x Wn
x = 11
x = 1
Xl
X,
-------
36
Figure 6
COMPUTER MODEL FLOW DIAGRAM
Raw Data from
Data Summary —
Sheets
Data Entry, Editing
and Conversion
Pronram
Data Compilation and
Transmission Program
Weighting Program
Final Permit
Classification
Report
-------
37
process classificaiton data from other Regions. Data from local Regional
permit systems could be reformatted by relatively simple programs which
could also be designed for separate entry of missing data.
Data Entry, Conversion and Transmission
Raw data from the Data Summary Sheets were keyed onto a DATA 100
key-disc system resident at NEIC. Data entry was made using a CRT type
terminal hard-wired to the DATA 100 disc unit. The "Job In" program was
designed to edit data as it was entered to identify erroneous values. A
second entry was made to verify the stored values. Pollutant loads were
converted to standard units and summed for multiple outfalls. A "Job
Out" program prepared the data for transmission to the WCC via com-
munication lines.
Listings of the DATA 100 programs are presented in Appendix B along
with sample copies of program outputs. These programs are written in
DATA 100 machine language and FORTRAN.
Pollutant Load Ranking Program
Several of the data elements used in the classification process
were based on the magnitude of the pollution load discharged by a
permittee relative to the magnitude of other pollution loads in the data
set. The flow and BOD, TSS, COD and heat loads for each permit were
sorted into lists arranged by magnitude of each parameter. Five separate
sorts were required to produce these five lists.
Because of the size of the data file, this sorting was performed at
the WCC. A program was written in COBOL incorporating a standard IRS
-------
38
sort package. Input data were the output from the DATA 100 system.
Sorted data were incorporated with other unchanged data elements to form
a basic file.
Program listings and sample output reports are presented in
Appendix C.
Rating Program
Once the basic data file had been established, a relatively simple
program was used to assign rating values to each of the 17 data elements
for each permit. This program incorporates the algorithms discussed
above. Rating values were stored in the file for use as input to the
weighting program.
Most of the algorithms used variables that could be changed by
specifying their values on a control card as input to the program.
This facilitated testing the sensitivity of the rating values to changes
in the variables.
The program was written in COBOL. A program listing and sample
input and outputs are presented in Appendix D.
Weighting Program
Because it was considered desirable to be able to assign different
weights to different data elements in deriving the total of ranking
values assigned to a permit, a weighting program was developed to perform
this tank. The 17 data elements were reduced to 11 groups for weighting
purposes as previously discussed. The 11 weighting factors were variables
that could be changed by an input card. Basic data input to the program
were the rating program outputs.
-------
39
This program assigned major, intermediate or minor class status to
each permit based on a comparison of weighted point totals with specified
point ranges for each class. The point ranges could be varied by input
card.
This program was written in COBOL and IRS. A program listing and
sample input and outputs are contained in Appendix E.
-------
VI. EVALUATION OF DATA
Once the basic data had been entered in the NEIC computer system,
it was converted to standard units and format and then summarized to
facilitate review and evaluation. Data characteristics such as the
relative size distributions of classic pollutant loads, the relative
number of major permits in each state and the availability of various
types of data were reviewed. The results of this review were used in
the selection of ranking values and weighting factors. A series of
sensitivity tests were run to evaluate the effects on classification
distributions of varying the ranking values and weighting factors. An
optimum classification method was then defined based on the makeup of
the Region VI pilot data base and current data availability patterns for
the Agency. Suggestions for improvement of the method were made to
reflect expected data availability in the future.
DATA CHARACTERISTICS
The ranked listings of the permit data showing the size distributions
of flow and BOD, TSS, COD and heat loads provided information on the
number of plants in the data set with large pollutant loads as measured
by the classic parameters. Table 5 is the first page of the ranked
listing of total wastewater flow discharged by each permittee. Note that
there are 17 plants discharging more than 100 mgd each. As would be
expected, most of these are thermal electric power plants. An additional
9 plants discharge between 10 and 100 mgd. A total of 36 plants discharge
more than 5 mgd, 8.4% of the 428 permits in the data base. There are an
additional 41 plants discharging between 1 and 5 mgd, about 9.6% of the
total. Criteria previously used for classifying permits would probably
have placed most of the tx)p 10% of the list in the majors class because
of flow size.
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
FLOWS - BY PERCENT RANK
PAGE 01
P-1
NPQFS NO.
LAOOC3093
ARD001392
TX03C0540
LAQOC7439
LAOC031 91
LA0000191
TX0001P58
TXODC3573
LAOCU7579
LAOOC28&7
TX0031392
LAOQ03301
1XOOC11SO
LAOOC0442
TX0001848
TX0001163
TXOOC266C
LAOOG2917
AROOuOS41
LAQODTi 68
LAOG076/.6
LA0003336
TX0003166
TXD0028U
LAOG07684
KKOG28193
TXOQG03E3
LA0003565
LAOC01376
NMOG2S100
AR0001678
LAOC03379
LAOOG0264
TXOOC3379
LAOCC3824
LAOC001o7
NMQ000103
TX0002372
TXOC03875
AROOC1171
GKOC00469
LAHOC1619
TXQ3CQ695
LA0000833
LA0000868
TXOC03531
COMPANY
NAME
LOUISIANA POWER & LIGHT CO
ARKANSAS POk'ER & LIGHT-RUSSELL
SOUTHWESTERN ELECTRIC POWER CO
LOUISIANA POWER & LIGHT CO.
LOUISIANA POWER & LIGHT CO
UNION CARBIDE
TFXAS POWFR & LIGHT
CENTRAL POWER
-------
43
There were 104 plants discharging between 0.1 and 1.0 mgd and 163
plants discharging between 0.001 and 0.1 mgd. About 20% of the plants
reported discharges less than 1,000 gpd (0.001 mgd). In most of these
cases zero flow was recorded in the data base indicating either that the
plant had no discharge or that no flow data were reported. Flow data
were probably available for more than 90% of the permits.
Rankings of BOD loads are presented in Table 6. There were five
plants discharging more than 10,000 Ib/day of BOD and 13 plants discharging
more than 1,000 Ib/day. These were about 3% of all permits in the data
base. Nine percent of the plants (40) discharged more than 100 Ib/day
of BOD. Only 16% (68) of the plants discharged more than 10 Ib/day.
Only 28% (120) of the plants reported any BOD discharge. It is
thus probable that no current BOD data are available on more than 70% of
the permits.
Rankings of TSS loads are presented in Table 7. Data on TSS loads
were available for 45% (188) of the permits. Most of these were very
small loads. Only 25% of the plants reported loads exceeding 10 Ib/day
of TSS. Seven plants reported loads in excess of 10,000 Ib/day. There
were 20 plants (5%) in excess of 1,000 Ib/day. Sixty-one plants (14%)
discharged loads greater than 100 Ib/day.
Data on COD loads discharged were limited. Only 15% (68) of the
plants reported COD loads. The ranked listing [Table 8] shows that 3%
(16) of the plants discharge more than 1,000 Ib/day of COD. Seven
percent (31) discharged more than 100 Ib/day.
Temperature data were reported for about 25% (105) of the permits.
In multiple outfall cases, temperature data were frequently not reported
for all outfalls. The ranked listing [Table 9] shows that 16 plants
(about 3% of the total) reported large heat loads (more than 10 billion
BTU). These heat loads are computed above an arbitrary base temperature
-------
ENVIRONMENTAL PROTLCTION AGLNCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
ajDS - BY PFKCENT RANK
PAGE'01
f--2
NPDES NO.
LA0001376
LAOOG0442
LAOQQ0191
LA 00034 68
LAO 0034 R4
LA0007439
COMPANY
NAME
LA1G34509
GKOOUr)736
LAOQ03379
LA0002429
OKOJG079S
TXOOCQ696
UKCOU1309
LAlCC01o7
AR0000736
LAOui.iO?63
AR0002933
LAOOOT026
1X0001 i£1
L'OOJ3506
1X0002963
1XOGG2033
LAOOU3646
AROC011 71
OKOCQ0884
LAOC03324
IXOOu3i«.S4
LA00254Q,:
1XQQU31 66
TXOGU3-S97
OKOCOQS.i1
CK0000701
AR0021326
OKOOG1031
7XOCC1 601
LA0000990
TX0000710
OK0001645
THE CELOTb'A CORP
INTERNATIONAL PAPER co
UNION CAR3IDF
C^OWN itLLthBACH-ST FRANCISV1L
HUN) -WESSON FOLiOS
LOUISIANA HA'ER & LIGHT CO.
CONTINENTAL CAN CO
LOU-ANA FDoDS INC.
liEYLRHAtUSLR CO
CALCASIEU fAPEk CO
CONTINENTAL OIL CO
JOnUSON SF/.FOOL CO
HOLLY CHEEK FRYERS INC.
MISSION VALLE-Y MILLS
TEXACQj INC. REFI NFSY
SOUTHDOWN SUGAKS INC
TLK ROOFING CO
UARR-N t-EThOLElJh CORP.
COSIER GRAM CU
TC;if'Lr INDoLTR It St INC
CROoQY CHEMICALS* INC
STELLE CANNING CO.i INC.
CONTINENTAL OIL CC-LAKL CHAi IM..
8.F. SiODRICH CC. .
NEU IStKIA FLANTi KEYES FIBRE
U.C.
SblPAfi CO.
MARATHON OIL CO.
ALLIC0 MATERIALS CORP.
OKrtvJLGEt REFINING CO
H'JJbOK FOODS INC.
COI-iOCO FLASilCb
CH,.KFLIM PLlROLtUH COMPANY
UESTER.\ ELtLTR IL > INC
ICI UNITED oTAUS INC.
FANSTEbL MilALS
PEK CENT
KANK
00
00
00
00
01
01
01
01
02
02
02
u2
03
03
03
03
03
04
04
04
04
05
U5
05
05
05
06
06
06
07
07
07
07
07
08
03
03
03
09
09
09
U9
10
10
10
10
SL-0.
NO,
SUM OF BOD
01
02
03
04
05
06
07
08
09
10
11
M
13
14
15
16
17
13
19
20
21
22
23
24
2!>
26
27
23
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
21jSSo.OO
17*300.00
12*200.00
10*800.83
10*618.00
8*66V.QO
6*snu.on
3*293.68
2*300.00
1*823.CO
1 ,580.00
1*560.00
1*050.41
98^.00
320.00
' 81U.85
725.00
701.00
674.73
67i.78
660.00
585.00
570.00
440.00
427.2G
409.00
359.84
383.00
350.00
281 .CO
270.00
230.00
227.20
2U.OO
206.30
170.00
157.JO
154.35
126.00
10o.OO
79.84
74,00
73.50
7i.OO
67.00
64.00
70
m
a
co
o
o
>
o
a>
CT
— i
a>
01
-------
NPDEb NO.
LA0007439
LA0001376
'LAOU037G1
NMOCSE10C
LA0000442
LAOG03468
LAOC00191
LAQ2G3434
LAQ0076S4
UOOOH61
AROC32933
LAOCG?379
l_AOGu33<:4
I.MQ.G2S1 9i
HOlJU3.73'j
UKQ000795
:X"ijC!0593
CKOC013L9
TXOCOH540
LAOOG0333
UK 0000 7;, 6
LA 000 2 '.2 9
A3 00 CO 7 .16
LAOC41 7 'I 6
LAOGG302o
LAO 003506
TXOOu1?J1
LA0025402
LA0002917
1X0003697
TX0003654
LAOC03646
AROC011 39
OK0021024
uKOOOC8(J4
AROC21 326
ENVIRONMENTAL PFiOTc OT I UN AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
OhNVER* CuLORAuO
ISS - SY PEKCENT RANK
PAGE '01
(•-2
COMPANY
NAME
CO
FPANCISVIL
LOUISIANA IP OWE K « LIGHT CO
THE CFLOT^A COKP
OUU CHf.l-lICAL CO
GULF OIL CCRP
IK1 ERNATION/L P/PER
CRUV-N ZtLLuKBACh-ST
UNION CARE IDE
HUNT-UEdSOh FOOL-S
CONT IMEMAL CAN CO
GFUkGIA-PALIFIC CORP
STcLLE CANMNG CO.j INC.
CALCASIt'J FAPER TO
FIKLSTU.'F bYNTHLTIC RU83ER
UTAH IMERNATIONAL
CONTINENTAL OIL CO
LOU-ANA FCObS INC.
HOLLY CivFEIx FRYLRS INC.
^ISSIOi* VALLEY KILLS
TcXACOj INL. tUFlNLRY
tLLlf.il CHEMiCAL CORP.
COU1HULSTFRN ELtfTRIC POWER CO
FOSTER GSAM CO
wrrrE .40
450.90
424 .16
416.00
389.93
312.00
312.00
300.14
262.40
262.00
259.63
240.00
240.00
238.14
220.50
220.00
206.17
co — I
CO B)
O ft)
cn
-------
NFDtS NO.
LA.OOC7439
LA0300191
LAOC34539
AROGG1515
LAOC02933
1XOOUU81
CKG0017.U9
uK0000795
LA0002646
LAOC3339C
M',00281 00
LAO 3*03 06
1XOOC0710
1 XOOC1511
CKQOco5.ii
CKCuC-04uO
LAOOQ7S24
LA.3GG1 741
uKGiiuO 701
*ROCni2 jo
1 XOLUQ/,42
uKOGulC 31
TX0001601
ASOC00591
LA000072&
L/OGO-3922
AR00016 if 8
lXOL,006i5
TX0031? 36
LAOOol 431
LA0007501
TXOiJU0612
1XPOC0574
TX0000507
1XQOC0435
ENVIRONMENTAL FSOTcCTICN AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
3£NVEK* COLORADO
CODS - BY PEKLENT RANK
HA-GC ' 01
P-4
COMPANY
NAME
OKOCCC333
1XOJ03298
TX0003832
LOUISIANA F-OUEK & LIGHT CO.
I.I'JION CARBiOc
LOU-/NA FCoDS INCi
SFEASS CARfLT MILLS* INCt
VULCAN MATLMALS) CO
GFURGU-FALlFIt CORP
TEXACO^ INC. RLFINERY
HOLLY tRFEK FRYtRS INC.
MUKHHY OIL CORP
NALcO CHEMICAL CO
GULF OIL COKP
CRUiBY CHEMICALS* INC
COMINtNTAL OIL CO-LAKt CHAKLF
FIRESTONE 1IRP & RUBBEK CO.
KJ&ATHCN OIL CO.
UASREN PGTKOLEUh CORP.
ICI UfUTFO iTAlLS INC.
fcANCHFss FJ.I-LORATION & DEV co.
UNION TANK CAR CO.
BUKLINGTON INDUSTRUS
ALLIP0 MATERIALS CORP.
ARK'HOLA SAfiu & GRAVEL CO.
FIRESTONE iYNThf TIC RUiiBER
COM iNiliTAL OIL CO.
OK,1ULP::.L Hi FINING CO
RUCHHOLD CHCH INC-MALVkON
UNI1EO GAS UPLLINE CO.
CONOCO PLAiiICS
CHAMPL1N PMROLLUM COMPANY
CHOiiS OIL-iMACKCVFR
CON! INcNTAL OIL CO
CO^ULYMLK KU3BER & CHEMICAL CO
U3A-PI;,E BLOFF /RSENAL
CHIPS SEVICE CIL CO.
TF/AS I'ACIFIC RAILWAY
SHELL OIL Cu
CHtMPANu CORP
CITIFS SERVICE OIL CO.
SORDENj IfJC.
WIKiTOfl RFFINUC- CO
ATLANTIC RICHFIELD
KERR MCGEE CHEMICAL CO.(P.
PEIKOL.:TE LOKP bARtco
ARCO CHEMICAL CO.
MObIL OIL CO.
J.M. HUBFR CORP.
PER CENT
RANK
CO
00
uo
00
01
01
01
01
02
02
02
02
03
03
03
03
03
04
04
06
04
05
05
J5
05
06
06
06
05
07
07
07
u7
07
08
08
38
C3
09
09
09
09
10
13
10
10
SEQ*
NO*
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
13
19
21
21
22
23
24
25
26
27
^8
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
SUM OF COD
243j736.00
75*300.00
14*492.19
9*973tOD
•6*272,00
5*925.00
3*500.00
2*761 .40
2*700.00
2*127.00
1*949.22
1 *"540.00
1*800.00
1*784.29
1*036.35
1*015.00
904.00
833.00
785.90
696.00
644.00
509.80
500.00
370.no
302.00
235.00
221.00
150.00
1 So. 10
156.00
92.00
83.97
83.00
30.00
67.15
64.00
43.00
46.00
34.49
33.41
32.00
29.25
2
en
70
m
o
o
o
O
>
0
cu
cr
— •
fD
00
-------
KPDtS 110.
LA0003093
ARC001392
L/OCU74 i9
IXflOOOfAO
LA0003191
LA03G7579
1X0003573
LAOG023i7
TXOOG1056
1 X0001 84Js
1 XOGG26G6
LAOOu?917
AR30C0341
1X000234..
LATOu02 ii
1X000:;?. 75
APCGC11 n
L AOOu?. Si A
IXOGJ3531
LAOuO?.026
I- K 0000469
L A 0 G L.-0 3 3 3
ixnco'1 40
1 XOOL2968
OKOCCC191
1X0007,697
UKOOL0524
1X0000353
ApnOG-0073
LKO-JL.0341
1XOC022C3
A80001651
i>HOLC01 24
APOCOC370
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
BTU - BY fFRCiiNT RANK
PAGF 01
P-5
COMPANY
N A M t
CKOCC1160
AROU00094
TXOOOU81
LOUISIANA hCWCK & LIGH1 CO
ARKANSAS PUl/ER 4 L 1 GHT-RUSiE LL
LOUISIANA F-OVtlh 4 L1GH1 CO.
SOUIHUtSTERN ELECTRIC POWER CO
LOUISIANA f-C«£K S LIGHT CO
LOUISIANA PUWFR & LIGHT
CFI.'IRAL POl-tR A LIGHT CO.
CEI.TKAL LOUSIAf,/ ELECTrvIC CO
W!TST TEXAS UTILITIES CO.
TF/AS POWFR & LIGHT
CITY OF GAHLAN& POWER 4 LIGHT
WEST TLXA.S UTILITIES Co.
SOUTHUEiiTEIip. ELtCTKlC POWER CO
ARKANSAS ELtCH.lC COOP-hCCLcLL
M'JRPHY UIL. CORP
COM INENTAL OIL CO
PlKtVlLL? KRAFT CORP.
UNIbN CARSIOF CCHP.
IN1LRNA.TIONAL SALT CO
MONSANTu CUo
GTLAT LAXto CHLhICAL-EL DORADO
FIRLSTbilt SYN'THLTIC RUboFR
ARLU CIILMIC/.L C C .
COi.TINtNTAL OIL CO-LAKt CHARLf
OKLAHOMA G/S S ELFC1RIU CO.
FOSTER GRAM CO
ARKHCLA SANJ & GR/VEL CO.
FORT Rtno ollLllIPS CO.
FIKLSTOrJE 1IRE a RUB8EK CO.
ALLIEO CHLhICAL COKP
KEfvK-KCoFE WJCLEAft CORP
MARATHON OIL CO.
SUN OIL CO-L.-UNt.AN
OKLAHOMA GAb ,S LLECTRK CO.
DYi,,.MKS CORP.
f;RODLiLTS-l.ILSON
ORP bARECO
CITY OF AUS1IN
OKLAHOMA GAo & ELECTRIC CO.
WEST INL-HOULE ELLCTKIC CORP.
PUULIC ijERVlC^ CO
ARKANSAS POI.ER & LIGHT LO.
AMAA NICKEL KEFIMNG CO* IN
IOEAL CLMcNl CC.
SOUTHFRt, CUUON OIL CO.
IC CORP
PER CENT
RANK
00
00
00
00
01
01
01
01
02
02
02
02
03
03
03
03
03
04
04
04
04
05
05
05
05
06
06
06
06
07
07
07
07
07
03
03
08
08
09
09
09
09
10
10
10
10
SEO.
NO,
01
02
03
04
05
06
07
03
09
10
11
1 ->.
13
14
15
16
1 7
13
19
2J
21
22
23
24
25
Z6
27
23
29
30
31
32
33
i4
35
36
37
38
39
40
41
42
43
44
45
40
SUM UF 31U
, 532*360
736*130,430,000
296,471*364,000
154,342,200,200
175,929*600,000
174, 8Sn, 020, 000
169,53^*160,000
137*01 6,5u4 ,000
83*315, 98i, 270
55,157*928*000
49*492*02o*600
41*300*140,000
17*1 21 ,948*430
14.327,600,000
6*264, 160*OJO
6*0o4,240,000
5,335*3o5*000
2*336*565*000
2*114 *154*000
1*949,220*000
1*395*075*000
1*874 *25u*000
1*858*67^,900
1*536*390*190
1*557*710*000
1*499*40u*QOO
1 *OG6*2o4 *QOO
932,9oO,000
342,99o,000
766,360*000
736*062*116
602*009,100
520*625*000
517*1 Jj *076
479*80o*000
474*810*000
424 j820*OUO
395*532*557
363*854*400
353*4o9*S80
345*095*240
332*367,000
323,87u*400
m
m
551
r- ^
o n>
CD V£)
,co
-------
48
so do not represent the actual heat load in excess of ambient tempera-
tures in the receiving stream. The actual heat load would be much less.
These loads were computed for relative comparison purposes.
A review of the distribution of major permits in the pilot data
base vs the entire file showed that the distributions were about the
same. For the entire file of 2,266 active industrial permits, 13.2%
(299) were classed as majors. Sixty-five (15.2%) of the 428 permits in
the test data base were classed as majors. As previously shown in Table
1, the relative number of major permits varied by State. In this study,
the number of majors included in the test data for Louisiana was higher
than average for all permits in that state. This accounted for the
slightly higher percentage of majors in the full test data base.
SELECTION OF RATING VALUES
As discussed in Section V, the rating algorithms [Table 3] assigned
rating values (points) to each of the 17 data elements. In most cases
the rating values were variables that could be adjusted to produce
different relative ratings within a data element. Also, the factors
used in subdividing data elements such as BOD loads were variable.
Following the review discussed above, the values of these variables were
selected. Table 10 presents the selected values used for the optimum
classification method.
The first data element was the industry type as represented by the
SIC code. If present in the list of SIC codes of interest, the data
element was assigned a rating value (S-,) of 10 points. If not, zero
points were assigned (S2).
Three rating values were assigned to the wastewater type data
element. The highest value, 30 points, was assigned to permits discharg-
ing process wastewater. If contact cooling water, cooling system blowdown,
-------
49
Table 10
SELECTED VALUES OF RATING VARIABLES
Primary Data Element
SIC Code
Type Wastewater
Pollutant Load Rankings
BOD
TSS
COD
Wastewater Flow
Heat Load
Heavy Metals - No. of Heavy Metals
Heavy Metals Load
Other Priority Pollutants
Variable
Sl
S2
T,
T2
T3
Percentile 1
Percentile 2
R
R \\
R ' L
K13
Percentile 1
Percentile 2
R/,-,
R
p22
K23
Percentile 1
Percentile 2
R ',
R
R32
K33
Max Flow
F,
1
Cutoff Btu
Hl
H max
HMn
m\\
HL
HL'
HL7,,
HM!«
HM32
OC,
ocl
Selected Value
10
0
30
0
10
3
9
30
10
0
5
10
30
in
1 U
3
7
30
in
0
5
10
in
iolu
10
2
20
10
50
5
30
10
0
30
10
-------
50
Table 10 (Cont.)
SELECTED VALUES OF EATING VARIABLES
Primary Data Element Variable Selected Value
Receiving Water Uses
Public Water Supply
Primary Contact Recreation
Fish & Wildlife Propagation
Water Quality Limiting Stream
Permit Violations
Discharge Monitoring Reports
•
Effluent Limitations
Compliance Schedule
WU,
wui
WU3
WQ
V10
vlu
Vi2
v20
V22
V30
V31
V
V32
10
10
10
10
0
10
30
0
10
30
0
10
30
-------
51
water treatment waste or boiler blowdown were discharged but no process
wastewater, 10 points were assigned. If sanitary wastewater and/or
non-contact cooling water only were discharged or if no information on
wastewater type was reported, zero points were assigned. Only one
rating value was assigned; the values were not summed if more than one
type was present.
Assignment of rating values for relative rankings of BOD, TSS and
COD loads required that two percent rankings be selected for each
parameter to define the rank ranges for assigning one of three rating
values. These rank ranges were selected by reviewing the ranking lists
[Tables 3, 4 and 5] and comparing load sizes, number of plants of each
size and percent rank. For these three parameters, loads of 1,000 and
100 Ib/day were used as guidelines in defining load classes. For BOD,
percent rank divisions of 3 and 9% were selected. The corresponding
values for TSS were 5 and 10%. Percent rank divisions of 3 and 7% were
used for COD.
The three rating values used were 30, 10 and 0 points. If a plant
discharged a BOD load ranked in the top 3% of all BOD discharges, it
was assigned 30 points. If it were in the top 3 to 9%, it received 10
points. Lower rankings received zero points. The same procedure was
used for TSS and COD.
Two rating values (10 and 0 points) were assigned to the heat load
data element. If the reported heat load exceeded a selected maximum
value, 10 points were assigned; otherwise none. The maximum value
selected was 10 billion BTU. This value was exceeded by 3% of all
permits in the data base and 15% of permits reporting temperature data.
Flow rating values were assigned in the same manner as for heat
loads. A maximum flow of 5 mgd was selected. Eight percent of the
permits reported larger flows than this value. Plants in the top 8%
flow category were assigned 10 points. Lower rankings were assigned
zero points.
-------
52
Two data elements were concerned with heavy metals discharged. One
of three rating values were assigned to the heavy metals load element
based on size of the load discharged. Because little heavy metals data
was found in the pilot study, it was not feasible to perform a ranking
as for other parameters. Heavy metal loads of 50 and 5 Ib/day were
selected as break points based on levels of concern to permit staff. If
the load discharged exceeded 50 Ib/day, a rating value of 30 points was
assigned. For loads between 5 and 50 Ib/day, 20 points were assigned.
Loads less than 5 Ib/day received 10 points and zeros were assigned to
zero loads.
The second heavy metals data element was the number of metals
discharged. If more than two metals were discharged, 20 points were
assigned. If one or two were present, 10 points were assigned: if none
present, zero points.
A significance code of 0, 1 or 2 was present as the other priority
pollutants data element. Points assigned to these significance codes
were 0, 10 and 30, respectively. The permit violations data (Discharge
Monitoring Reports, effluent limits and compliance schedule) also con-
tained the same significance codes. Identical point assignments were
made for these elements.
Four data elements for water quality standards (public water
supply, primary contact recreation and fish and wildlife water uses and
water quality limiting streams) contained yes or no answers. Yes answers
were assigned 10 points; no answers zero points.
SELECTION OF WEIGHTING FACTORS
The manner in which ranking values were assigned to each of the 17
data elements resulted in more points being assigned to some than
-------
53
others. For instance, the SIC code element received a maximum of 10
points while the BOD load could receive up to 30 points. To offset
these inherent differences and to facilitate assigning greater signifi-
cance to one or more data elements, the weighting program multiplied
each rating value by selected weighting factors to produce weighted
points for each data element. The 17 data elements were weighted in 11
groups.
Weighting factors were initially selected to give equal weight to
each of 10 data groups. These groups could have a maximum of 360 total
points. The weighting factors were designed to reduce this to a possible
total of 100 points or 10 points per data element. The eleventh data
element, the subjective factor, was weighted separately. This element ••
could have a value up to 100 points.. In the sensitivity tests described
below, the weighting factors were increased or decreased to give greater
or lesser weight to specific data elements.
SENSITIVITY TESTS
Sensitivity tests were performed to assess the relative effects of
each data element on the classification method, to evaluate the signi-
ficance of limited data and to help in arriving at an optimum set of
classification algorithms and procedures.
More than 100 tests were conducted. This involved three changes in
variables in the rating program and numerous changes in weighting factors.
The results of the last half of these tests are discussed below.
Table 11 shows the adjustments that were made in the weighting
factors and in the point limits that defined the divisions into major,
intermediate and minor permit classes. Resulting permit classifications
are also summarized and compared.
-------
Table 11
SUMMARY OF SENSITIVITY TEST RESULTS
Relative Data Element Weights
Parameter
Set
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 .
27
28
29
30
31
32
33
34
35
36
37
38
39
40
V)
13
OJ O)
res
1
1
1
3
1
3
3
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
Other
Priority i
Pollutants
1
1
1
1
3
3
3
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
s-
3 13
1
1
1
1
1
1
1
1
1
1
3
1
3
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
Water Quality
Limitations
1
1
1
1
1
1
1
1
1
1
1
3
3
1
1
1
1
1
1
1
1
1
1
1
1
1
, 1
1
2
2
2
2
2
2
2
2
2
2
?
1
Permit
Violations
1
1
1
1
1
1
1
1.
1
1
1
1
1
3
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
1
Subjective
Factor
10
0
0
0
0
0
0
0
0
0
0
0
0
0
0
5
5
5
10
5
0
5
5
10
5
0
5
5
10
5
0
5
5
2
2
2
2
2
2
2
Class
Minimum
Major
60
60
60
60
60
60
60
60
60
60
60
60
60
60
60
60
70
50
60
60
60
70
50
60
60
60
70
50
60
70
70
80
60
60
60
65
70
55
50
55
Limits
Maximum
Minor
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
45
35
40
40
40
45
35
40
40
40
45
35
40
50
50
55
45
45
40
45
50
40
35
40
Permit Classification
Distribution
Major
65*
43
2
21
15
. 7
23
72
16
3
21
9
2
9
4
21
17
7
37
83
52
20
26
86
56
35
11
18
55
119
46
23
25
79
54
54
40
27
79
97
56
Inter-
mediate
**
68
29
TOO
61
28
62
69.
34
32
38
78
20
78
29
77
68
40
64
65
76
79
80
65
59
84
62
70
52
77
62
61
66
46
60
75
74
70
50
49
66
Minor
363*
317
397
307
352
393
343
287
378
393
369
341
406
341
395
330
343
381
327
280
300
329
322
277
313
309
355
340
321
232
320
344
337
303
314
299
314
331
299
282
306
-------
Table 11 (Continued)
SUMMARY OF SENSITIVITY TEST RESULTS
Relative Data Element Weights
.u
Parameter «
Set
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
^ (U
-o a.
•— r—
2
2
2
2
2
3
3
3
3
3
3
3
1
1
1
0
0
0
3
3
3
i.
HI
4->
3
Ol
01 4->
a. t/i
>> ro
1
1
1
1
1
0
0 '
0
1
1
1
1
1
• 1
1 •
0
. 0
0
1
.1
1
4-1
ro
4J
3 in
i — TJ
i — (O
O O
O- _J
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
3
3
3
2
2
2
ro ro
OJ O
31 _l
1
1
1
1
1
2
2
2
2
2
2
2
2..
2
2
3
3
3
2
2
2
0
^-
1
1
1
1
1
2
2
2
2
2
2
2
2
- 2
2
3
3
3
2
2
2
>>•—
ro 4->
01 01
re s:
2
2
2
2
2
3
3
3
3
3
3
3
1
1
1
0
0
0
3
3
3
in
i. C 3
Ol O1 —
4-> C"o
O Q_Q-
2
2
2
2
2
3
3
3
3
3
3
3
1
1
1
0
0
0
3
3
3
s.
ro l/l
3 Z3
1
1
1
1
1
0
0
0
1
1
1
1
1
1
1
1
1
1
1
1
1
•r- (/)
r— C
ro O
3 •!-
ro
4- 1 *
01 -r-
4-> E
ro T-
3 _!
1
1
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
2
2
2
c
0
4-> 4->
•r- ro
01 T-
O- >
1
1
2
2
2
3
3
3
3
3
3
3
1
1
1
1
1
1
3
3
3
01
o t-
Ol O
•r-j 4J
J3 O
3 ro
-------
56
For the initial test (parameter set 1), the weighting factors gave
equal weight to each of the first 10 data elements and full value to the
subjective factor. This resulted in a possible 10 points maximum for
each data element and 100 points for the subjective factor, a possible
total of 200 points. A major class minimum limit of 60 points and a
minor class maximum limit of 40 points were arbitrarily selected. This
parameter set resulted in the classification of 43 permits as major, 68
as intermediates and the remainder as minors. This compares to 65
majors in the original permit classifications. No comparison could be
made for the number of intermediates as these did not exist in the
original classification.
In the second test, all weighting factors were the same as for test
1 except that the subjective factor was given zero weight. This resulted
in a substantial drop in permits classified as major. This result
pointed out that giving full weight to the subjective factor produced
too significant an effect on the classifications. This suggested that a
lower weighting factor should be used.
For both of these tests, the number of new major permits was low
relative to the old classifications. This indicated that the point
limits defining permit classes should be lowered if a comparable number
of majors was to be obtained. Because increased weights were to be used
in subsequent sensitivity tests, these limits were not revised at that
time.
To eliminate any effect of the subjective factor on the next series
of tests, it was given zero weight. For tests 3 to 15, the relative
effects of each data element and four combinations of elements were
investigated by giving triple weight to the element or elements of
interest while keeping other factors constant. The results are shown in
Table 11.
-------
57
Parameter set 3 for test 3 tripled the weight assigned to the
industry type data element. This had the effect of increasing the total
weighted points by 20 for any permit having an industry type considered
significant. About 90 permits moved to a higher class as a result of
this change including 19 majors. This was determined by comparison of
tests 2 and 3 in Table 11..
Tests 4 thorugh 15 evaluated the sensitivity of the remaining data
elements in a similar fashion. The permit classifications showed very
little sensitivity to the other priority pollutants (test 5), flow (test
8), pollution loads (test 9), water quality limiting (test 12) and
permit violations (test 14) data elements. For the flow and pollution
loads elements, the lack of sensitivity was due to the fact that the
rating program assigned points to less than 10% of the permits because
of high flow, BOD, TSS or COD. For the other three data elements, the
lack of sensitivity was due to very limited data of these types.
Test 6 was a combination of tests 4 and 5. Test 7 combined tests
3, 4 and 5. Test 7 put emphasis on the data elements most concerned
with the NRDC Consent Decree, industry type, heavy metals and other
primary pollutants. It thus produced a substantial shift in the permits
now classified as majors because the old classifications gave little
emphasis to these factors.
Test 4 showed that there were enough heavy metals data avaialble to
substantially change the classifications when emphasized. Test 10
combined the flow and pollutant load tests with heat load added. Less
than 30 permits changed classifications.
Test 11 evaluated the effects of emphasizing water used. Fifty-
six permits increased their classification, primarily intermediates.
This reflected the fact that water use data was available on more than
half of the permits. Water uses did not vary much between permits so
-------
58
this data element did not contribute significantly to differences
between permits. Test 13 was identical to test 11 because the addition
of the limited data on water quality limiting streams did not change the
classifications.
Test 15 evaluated the wastewater type data element. Because this
element contributes base points for many permits, 67 permits increased
their classification. This element and the water uses element appear to
add little assistance in distinguishing between permits.
The NRDC parameters (industry type, heavy metals and other priority
pollutants) were given double weight in tests 19 to 23. The significance
factor and the class limits were varied. As shown in Table 11 , varying
the weight given to the subjective factor made substantial differences
in the number of majors. These tests indicated that if only the NRDC
parameters were to be emphasized, about 15% of the permits could be
classed as majors and 10% as intermediates by using class limits of 55
and 40. However, a substantial shift in permits classed major would
occur because of the different emphasis from the old classification
method.
Flow and pollutant and heat loads were given double weight in
parameter sets 24 through 28. The significance factor and class limits
were varied. This set of tests produced a smaller shift in permits to
higher classes than did the previous set.
Parameter sets 29 through 39 combined the weighting factors of the
two previous test sets. The results [Table 11] showed that a relative
weight of 2 for the selective factor was optimum. Also, selection of
the class limits to place 15% of total permits in the major class and
10% in the intermediate class was established.
-------
59
The NRDC parameters were emphasized in parameter sets 40 through
42. Water quality limiting streams and permit violations were added for
tests 43, 44 and 45. Results of these tests were used to select weight-
ing criteria for parameter sets 46 through 52. These placed triple
emphasis on the NRDC parameters, double emphasis on the classic data
elements (flow, pollutant loads and heat load), water quality limiting
streams, permit violations and the subjective factor. For tests 46, 47
and 48, zero weight was given to wastewater type and water uses. The
next set of tests (49 through 52) gave standard weight to these two
elements. Parameter set 51 produced a classification distribution close
to the designed percentiles. This set was selected as the optimum
classification method as discussed below.
In tests 53 to 58, an attempt was made to match the old permit
classifications. In tests 53 to 55, pollutant loads, heat load and
flow were given double weight. Test 53 produced a close match on total
majors but significant differences for specific permits were noted as
discussed below. Tests 56 to 58 gave triple weight to pollutant loads,
heat load and flow while dropping industry and wastewater types, heavy
metals and other priority pollutants from use. Run 57 gave the same
total number of majors as the old classifications but shifts for indi-
vidual permits were noted.
Tests 59 to 61 used the same weighting factors as test 51 except
zero weight was given to the subjective factor. Test 59 had 10 less
majors than test 51 as a result of dropping the subjective factor.
OPTIMUM CLASSIFICATION METHOD
In the selection of the optimum classification method, it becomes
necessary to define specific objectives and assumptions. The algorithms
developed proved flexible enough to allow emphasis on any combination
-------
60
of data elements provided that adequate data was available. Thus, a
method is tied to the particular emphasis desired. The optimum method
selected for the Region VI data base placed the most emphasis on industry
type, heavy metals, other priority pollutants and permit violations.
These factors were triple-weighted. Double weight was given to pollutant
and heat loads, flow, water quality limiting streams and the subjective
factor. Single weight was given to wastewater type and receiving water
uses.
The optimum method selected corresponds to parameter set 51 in
Table 11. A close match of total old and new majors (65 vs 68) was
achieved but substantial differences were noted in the permits now
classified as major. As shown in Table 12, 38 permits formerly classed
as majors remained majors. Fourteen decreased from major to inter-
mediate and 13 from major to minor. Thirty old minor permits were
reclassified majors. Classification shifts by state were similar to the
Region totals.
-------
61
Table 12
SUMMARY OF CHANGES IN PERMIT CLASSIFICATIONS
OPTIMUM CLASSIFICATION METHOD
State
Arkansas
Louisiana
New Mexico
Oklahoma
Texas
Totals
Original
Majors
9
26
4
13
13
65
Contimued
Majors
5
18
3
5
7
38-
Minor to
Majors
6
7
1
6
10
30
Major to
Intermed.
1
4
1
3
5
14
Major to
Minor
3
4
1
4
1
13
New Majors
Change
+2
-1
-1
-1
+4
+3
Table 12
COMPARISON OF CHANGES IN PERMIT CLASSIFICATIONS
Test No.
51
53
57
59
Original
Majors
65
65
65
65
Continued
Majors
38
38
37
34
Minor to
Majors
30
28
28
24
Major to
Intermed.
14
9
4
18
Major to
Minor
13
19
24
13
New Majors
Change
+3
+1
0
-7
-------
62
In an attempt to determine why 27 permits formerly classified as
majors were transferred to intermediate or minor classes by the optimum
method (test 51), a comparison was made with tests 53 and 57 which used
substantially different weighting factors. As shown in Table 13, a very
similar shift in majors was noted for those tests. A further review of
the data showed that 30 permits were classified as majors under the old
system and also by tests 51, 53, and 57. Apparently, these were the
large plants that would be considered majors by practically any cri-
teria. There were also seven permits newly classified as majors by
tests 51, 53, and 57. Changed conditions could account for these now
being considered majors.
Classifications assigned by the selected optimum method are shown
in Table 14; The SIC codes for permits classified as majors by the old
and/or new methods are superimposed on the computer printout. A review
of the SIC codes for the 30 permits classified as majors by both methods
found that 13 were chemical plants, 9 were paper mills and 8 petroleum
refineries. Three were powerplants, three uranium mines and two primary
metal industries.
Review of SIC codes for the 27 permits classified as majors by the
old method but placed in a lower class by the selected method showed
that nine were chemical plants, 8 were powerplants and the remainder
distributed among six industry types. The data indicated that these
plants were probably classed majors in the past because of flow and/or
high pollutant loads. Pollutant loads had been reduced in some cases.
For the powerplants, larger flows did not necessarily classify them as
majors.
The 30 permits newly classified as majors included 7 chemical
plants, 4 powerplants and 10 plants in various types of metal producing
or fabricating industries. The latter 10 plants had discharges of heavy
metals that increased their relative ranking. Nine plants were
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIQMS CENTER
DENVER* COLORADO
NEW CLASS OF PERMITS BASED ON TOTAL WEIGHTED POINTS
KERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPDES NO.
PAGE
P-2
S I C
NPOFS NU. CODE
COMPANY
NAME
AR0000019 2075 RICFLAND FOODS
ARDC00035 2818 GARDINIER BIG RIVER-HELENA
AR0000051 CRANE CO-CRAIGHEAD
AR0000073 DELTA PRODUCIS-WILSON
AS0000094 SOUTHERN COTTON OIL CO.
AROD00116 JONESBORO GREASE EXTRACTION CO
ARC000132 MEMPHIS COMPRESS & STORAGE
AR0000159 COLUMBIA RIBBON & CARBON
AR0000191 GULF ADHESIVES
AR0000213 COLSON CO-CRAIGHEAD
AR0000230 8RINKLEY MUNICIPAL WATERWORKS
AR0000337 LITTLE ROCK AIR FORCE BASE
AR0000353 2075 R1CELAND FOODS* INC.
ARC000370 ARKANSAS POWER
00
GO
o
en
oo
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
PAGE 3
P-2
CTl
NEW CLASS OF PERMITS BASED ON TOTAL WEIGHTED POINTS
PERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPCcS NO.
NPDES NO.
AR0001376
AROG01 392
ARCCOUH
AR0001465
AR0001 481
ARC001 503
AR0001520
AR0001589
AR0001 619
AR0001635
AROD016S1
AROC01 678
' AR0001 6S4
ARD001741
AR0001767
AR0001 791
A R 0001 31 3
AROCC1843
AR0001 S64
ARC001899
AR0002U03
ARC002062
AR00021 19
AR0002151
ARJ002173
AR00022C3
AR0002267
AROdO?3C5
AR0002364
AR0002381
AROOG2429
ARU002470
AR0002503
AROU02526
ARG002542
AR0002585
AR0002607
AROC02&40
AR0002666
AR0002682
AR0002704
AR0002747
AROU02780
ARC002301
AR00028:6
AROG02861
S I C
CODE COMPANY NAME
ARKANSAS POWER 4 LIGHT-LYNCH
4911 ARKANSAS POWER t LIGHT-RUSSELL
BIG RUCK STONE & MATERIAL
CEMENT ASBESTOS PRODUCTS CO
REVERE COPPER 4 BRASS-JACKSON
AP GREEN REFRACTCKIFS-PULASKI
CAMPBELL SOUP CO
GALLOWAY SANU « GKAVEL-8ATF.SVI
WEYFRHAEUSER CO-PAPFR PRODUCT
SMITH-INLAND INC-PULASKI
3641 WESTINGHOUSE fcLEtTRIC CORP.
2892 USA-PINE 3LUFF ARSENAL
2819 OLIN CHEMICAL CORF
3751 AMF INCORP.
STANOARO RENDERING CO.
AMERICAN CAN CO.
FAURCO GLASS CO.
hNGLEHARO MINERALS £ CHEMICALS
WLLDERS SUPPLY CO-PULASKI
SILICA PRODUCTS
VICTOR METAL PROCUCTS-JACK50N
MORRILTON WATER CO.
PYATT SAND 4 GRAVEL* iNCt
BAILtY-WHITE INC.
NORTH LITTLE ROCK SERVISOFT*IN
KELLWOOO CO.
CUSTOM ENTERPRISES* INCt
H 8 H CAR WASH
WINBURN TILE MFG CO.
MIDWEST CASTING CORP
POST WINEKY INC.
CHOCTAW INC
LITTLE ROCK AIR FORCE BASt
USAF LITTLE ROCK >FB
ALLEN MONUMENT WORKS
USAF LITTLE ROCK AFB
EAST TEXAS MOTOR FREIGHT LINES
USAF LITTLE RCCK AFB
USAF LITTLE ROCK AFB
BEAVER WATER DISTRICT
USA-COE GREERS FERRY
HAL'IBURTON SERVICES
USAF LITTLF RCCK AFB
TUCKER OUCK A RUBBER CO
USAF-LITTLE ROCK AFB
BORDER CITY* INC.
OLD
CLASS
MN
MJ
MN
MN
MN
MN
MN
HN
KN
MN
MN
MJ
MN
MN
MN
MN
HN
MN
Mh.
MN
MN
MN
MN
MN
MN
MN
HN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
,1N
MN
MN
MN
MN
UN
MN
NEW
CLASS
I
I
MN
MN
MN
MN
MN
MN
I
I
MJ
MJ
MJ
MJ
HN
I
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MM
I
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
TOTAL
POINTS
70
100
30
60
70
90
20
60
80
70
105
330
155
140
70
80
50
70
10
40
50
20
50
60
50
40
50
50
50
100
60
60
40
50
60
50
30
80
50
60
40
50
40
20
50
10
WEIGHTED
TOTAL POINTS
57
71
' 9
17
20
43
6
19
65
59
79
189
94
91
20
65
23
21
2
13
27
6
16
22
16
39
16
15
17
69
19
27
13
16
19
16
9
26
16
32
13
15
13
9
16
3
3=» —I
I— DJ
cr
-o —•
m n>
70
o
r-
>
00
o
>
o
o
3
c
m
a.
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL FNFORCEMFNT INVESTIGATIONS CENTER
DENVER* COLORADO
PAGE
P-2
NPDES NO.
S I C
CODE
NEW CLASS OF PERMITS BASED ON TOTAL WEIGHTED POINTS
PERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPOES NO.
COMPANY
NAME
OLD
CLASS
NEW
CLASS
TOTAL
POINTS
WEIGHTED
TOTAL POINTS
AR0002933
AR0002950
ARU002976
AR0003034
AR0003069
AR0020737
AR002088S
AR0021326
AROG33294
AR0033375
ARG073413
AR0033561
LA0000027
LA0000116
LA0000141
LA00001 67
LA0000191
LA0000221
LA0000264
LA0000329
LA0000442
LA0000728
LA0000795
LAOC00833
LA0000868
LA0000922
LA0000990
LA0001015
LA0001325
LA0001 341
LAQ001376
LA 000 14 31
LA 000 14 65
LA0001546
LAOC01619
LA0001 881
LAOU02U3
LA0002429
LA0002453
LA0002496
LA0002780
LACGC>2836
LA0002887
LA0002917
LAOOQ2933
2033
2869
2819
2631
2815
2861
2820
3661
2631
4911
2819
STFELE CANNING CO.* INC.
ALLFN CANNING CO.
MUORE DROP FORGING CO
CITY OF HOT SPRINGS WATER COMM
LIQUID CARBONIC CORP.
GREENVILLE TUBE CORP
NORTH AMERICAS CAN CORPS
HUDSON FOODS INC.
GEORGIA-PACIFIC CORP.
ROCKWELL INTERNATIONAL CO.
ARKANSAS OAK FLOORING CO.
ARKANSAS GENERAL INDUSTRIES
ANTHONY FOREST PRODUCTS CO
ARCADIA PACKING co
GONZALES PRODUCTS CO.* INC
SOUTHDOWN SUGARS INC
UNION CARBIDE
TENNESSEE GAS PIPELINE CO
INTERNATIONAL SALT CO
ALLIED CHEMICAL CORP.
INTERNATIONAL PAf-ER CO
CONTINENTAL OIL CO
CONTINENTAL OIL CO
FOSTER GRANT CO
CROSBY CHEMICALS* INC
COPOLYMFR RUBBER & CHEMICAL CO
WESTERN ELECTRIC* INC
SUPERIOR OIL CO
THE SUPERIOR OIL CO
BIRD & SON* INC.
CONTINENTAL OIL CO.
THE CELOTEX CORP
SHFLL OIL CO
SHELL OIL CO
SHELL OIL CO
SHFLL OIL CO
EXXON CO.
TEXACO IMC
JOHNSON SEAFOOD CO
AMOCO PRODUCTION COMPANY
AMOCO PRODUCTION COMPANY
E.l'. OU PONT DE NEMOURS & CO .
BIG THREE INDUSTMFS* INC
CENTRAL LOUSIANA ELECTRIC CO
SOUTHWESTERN ELECTRIC POWER CO
VULCAN MATERIALS CO
MN
MN
MH
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MJ
MJ
MN
MN
MJ
MJ
SJ
MN
MN
MN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
IN
MN
MN
MN
MN
MJ
MJ
MN
MN
MN
MN
I
MN
MN
MN
I
MN
HN
MN
MN
MN
MN
MJ
MN
I
MJ
MJ
MN
MN
I
MJ
MN
MJ
MN
HN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
1
MJ
MJ
225
40
30
40
60
80
70
50
40
110
20
60
40
60
70
70
210
0
50
170
250
70
10
180
170
90
150
60
30
50
70
290
70
90
40
50
50
20
150
70
40
60
50
90
110
330
87
13
. 42
13
46
63
49
15
39
65
33
'45
13
19
21
37
103
0
. 59
91
130
32
3
73
112
25
93
18
8
41
35
145
42
39
24
27
23
5
42
39
21
43
52
70
80
153
O>
cr
73
o o
i— o
3» 3
oo H-
oo -j.
I-H 3
-n c
•—> fD
O Q.
CM
Ul
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
NEU CLASS OF PERMITS BASED ON TOTAL UEIGH1EO POINTS
PERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPDtS NO.
PAGE 5
P-2
cn
CTi
S I C
NPDFS NO. CODE
COMPANY
NAME
LA0002976
LA0003026
LA0003093
LA0003131
LA0003191
LA00033C1
LA0003336
LA0003379
LA0003468
LA0003484
LAOD03506
LAU003565
LA0003646
LA0003727
LAOC03743
LA0003760
LA00037S6
LA0003624
LAU003859
LA0003891
LA0007226
LA0007242
LA0007285
LA0007315
LA0007340
LA0007391
LAQ007439
LAC007463
LA0007501
LA0007579
LA0007641
LA0007684
LAOC07706
LAOC07731
LACU07773
LA0007790
LA0007S11
LAOOC7846
LA0007862
LA0007889
LA000793S
LAOOQ8028
LA0023043
LA0025402
LA0029963
LA0031887
2911
4911
2090
4911
2869
2818
2621
2611
2631
2911
2822
2491
4911
2891
4911
2621
3357
2646
2869
LONE STAR INDUSTRIES
CONTINENTAL OIL CO-LAKE CHARLE
LOUISIANA POwtR & LIGHT CO
BUOUET ICE CO
LOUISIANA POWER & LIGHT CO
DOW CHEMICAL CO
CONTINENTAL OIL CO
CALCASIEU PAPER CO
CROWN ZELLERBACH-ST FRANCISVIL
HUNT-WESSON FOODS
UNION TANK CAK CO.
PINEVILLE KRAFT CORP.
MURPHY OIL CORP
OZIO FISHERIES* INC.
HUNT PETROLEUM CORP
DOW CHEMICAL CO. -REGIONAL LAB
liliWELL DIV OF DOWELL
FIRESTONE SYNTHETIC RUBBER
KERR MCGEE CHEMICAL CORP.
AMERICAN CAN CO
SERVITRON* INC
KANSAS CITY SO. RAILWAY CO.
GULF SHRIMP PROCESSORS
ILLINOIS CENTkAL RAILROAU
VALLEY CANNING COMPANY
RIVIANA FOODS INC
LOUISIANA POUER & LIGHT CO.
ST CHARLES PARISH WTRWKS DIST2
CHEMBAND CORP
LOUISIANA POWER 4 LIGHT
ARKANSAS LOUISIANA GAS CO
CONTINENTAL CAN CO
CLAIBORNE GASOLINE CO
SANTIAM SOUTHERN CO
IOWN OF RAYVILLE
BELDEN CORP.
TENNESSEE GAS PIPELINE COMPANY
LUDLOW CORPORATIOK
TENNESSEE GAS PIPELINE CO
DAIRYMEN. INC.
SOUTHERN NATURAL GAS CO
ILLINOIS CENIhAL GULF RAILROAU
LONAGKA* INC-CHOUDRANT HATCHER
NEW IBERIA PLANT* KEYES FIBRE
GULF OIL CHEMICALS CO
GEN PORTLAND CEMENT CO
OLD
CLASS
MN
MJ
M J
HJ
MJ
MJ
MJ
MJ
MJ
MN
MN
MJ
MJ
MN
MN
MN
MN
MJ
MJ
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MJ
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MM
MN
MN
MN
MN
MN
MJ
MN
NEU
CLASS
MN
MJ
I
MN
MJ
MJ
MJ
MJ
M J
MN
MN
MJ
MJ
MN
MN
MN
MN
MJ
I
MN
MN
MN
MN
MN
MN
MN
MJ
MN
I
MJ
MN
MJ
MN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MJ
MJ
MN
TOTAL
POINTS
30
260
80
30
110
280
290
150
210
140
100
130
140
70
70
20
100
190
90
40
10
40
40
70
50
50
140
30
90
140
50
190
70
50
40
120
10
90
70
80
60
60
60
120
160
30
WEIGHTED
TOTAL POINTS
3
137
64
9
87
153
1 14
83
117
37
35
'94
88
23
35
5
45
109
60
38
3
15
13
24
15
16
75
16
57
96
16
93
35
17
13
75
3
53
48
24
30
18
19
75
92
9
m n>
70
l-H -d
o o
i— o
3> a
CO r+
00 -i.
"-• 3
-n c
i—i n>
o a.
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
NEW CLASS OF PERMITS BASED ON TOTAL WEIGHTED POINTS
FERM1T SET 1-4 PARAMETER SET M
SORTED BY NPOcS NO.
PAGE 6
P-2
NPDES NO.
S I C
CODE
COMPANY
NAME
OLD
CLASS
NEW
CLASS
TOTAL
POINTS
WEIGHTED
TOTAL POINTS
LA0031984
LACOZ2361
LA0032841
LA0032905
L/0034509
LA0034592
LA0036153
LA0038067
LA0038342
LA003S890
LA0039390
LA0039&11
LA0039993
LA0041713
LA0042501
LA0044539
LA0045233
LA0045748
LA004IS540
LA0046566
LAOJ47139
LAC047520
LA0047724
LA0048160
LA0048267
LAOL'48950
LA0049336
LAQ049361
LAU049573
NMOOD0027
NMOOOQ043
NMOOOn078
NMOOOQ103
NM0000124
NMOOOOU1
NM0000191
NM0023389
NH0026522
NM0025573
NM0027774
NMOQ27791
NMOG27880
NMOO;>8061
NM0023100
NH0028142
NM0028193
2899
2911
2819
2819
4941
1094
1094
1094
1211
FREEPORT SULPHUR CO
MERRYWOOOS CORP
U.S. ARMY RESERVE CNTR-LAFAYtT
ObPT OF ARMY-LAKE CHARLES
LOU-ANA FOODS INC.
YOUNGER BROTHERS INC
VIOLET PACKING CO
SEW « WATER 60 OF NEW ORLEANS
PINEVILLE KRAFT CORP
NALEO CHEMICAL CO
PLACID REFINING CO
ALLIED CHEMICAL CORF
CALDUELL HOUSING CORP
KAISER ALUMINUM & CHtH CORP
FMC CORP
ALLIED CHEMICAL CORP
AMAX NICKEL REFINING CO* IN
OCCIDENTAL CHEMICAL CO
VANCOUVER PLYWOOD CO
VANCOUVER PLYWOOD co
BLUE CHANNEL CRAB CO
ALLIED CHEMICAL CORP
LAFOURCHE PARISH HOUSING AUTH.
GIFFORD HILL & CO
K.EARNY CHEMICALS INC
WINN-DIXIE
TULANE UNIVERSITY
RECREATION DIST. B10
BRYAN SAUSAGL
SAN JUAN GRAVEL PRODUCTS CO
CITY OF FARMINGTON
ATCHESON* TOFEKA* SANTA FE RR
EL PASO ELECTKIC CO
PUBLIC SERVICE CO
STAKMANON FARMS* INC
PUBLIC SERVICE CO
UNITED NUCLEAR-HOhESTAKE PARTN
RATON PUBLIC SERVICE CO
KANCHERS EXPLORATION & DEV CO.
INDIAN HILLS MOBILE HOME PARK
ALTO ALPS* INC.
YAH-TA-HEY* WINDOW ROCK JNCT
CLOUD 9 LTD
GULF OIL CORP
BLOOMFIELD MUNICIPAL SCHOOLS
UTAH INTERNATIONAL
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
MN
HN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MJ
MN
MJ
MN
MN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
HN
MJ
MN
MJ
MN
I
MN
MN
UN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MM
MN
MN
1
I
MN
MN
MJ
MN
MJ
MN
MN
MN
MN
MJ
MN
MJ
20
10
40
40
170
50
80
30
10
150
90
130
40
100
40
60
110
60
30
50
50
20
10
50
30
40
20
30
50
80
30
60
90
90
70
30
140
70
190
20
20
0
10
210
30
150
5
'3
13
13
42
15
26
9
30
81
53
80
13
66
38
29
44
21
. 36
41
16
5
3
16
9
13
6
9
16
23
36
18
64
64
23
8
86
49
108
6
6
0
3
119
9
97
3=" —I
I— fa
m n>
73
2 — •
i— i -p»
O O
i— o
3=> 3
CO (-+•
CO ->•
>—i 3
-n c
i—i
O O-
O
en
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVtSTIGATIONS CENTER
DENVEK* COLORADO
NEW CLASS OF PERMITS BASED ON TOTAL UEIGHTED POINTS
FERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPOES NO.
FACE 7
P-2
oo
NPDES NO.
OK0000027
OK0000051
OKOOQOOS6
OK0000108
OKCOOOU1
01(0000167
OK00001 91
OKOG00213
OK0030248
OKOG00264
OKOOC0281
OKOC00388
' OK0000400
OK0000426
OKOC00442
OKOGOC46<»
OKOOC10485
OK0000515
OKOC00531
OK0000566
OK00006Q4
OKD000621
OKOC00647
OKCQ00660
OK0000701
OKJC00736
OK0000761
OKOC00795
OKUOOOd41
OK0000863
OK0000884
OK0000931
OK0000981
OK0001031
OKC001053
OK00011 29
OK0001163
OK0001180
OK0001223
OK0001261
OK0001 i09
OK0001350
OKOOOH22
OKOOOU73
OK0001 493
OK0001 511
S I C
CODE
3533
4911
4911
2819
3691
4911
4911
4911
2911
2911
2649
2421
2911
2911
2821
2911
COMPANY NAME
MARSHAL COUNTY W/UFR CORP.
UGVFR CORP.
PUBLIC SERVICt C0« OF CALE
PUBLIC SERVICE OF OKCTULSA ST)
WARREN PETROLEUM
BARTLETT-COLLINS CO.
KERR-MCGEE NULLEAk CORP
UNION CARBIDE COKP
MICHAEL CONCRETE CO.
PKESTOLITE CO.
MIDWEST CARBIDE CORP
ARCO CHEMICAL CO.
AKKHOLA SAND & GhAVEL CO.
SOHIO PETSOL1UM CO.
OKLAHOMA GAS & ELECTRIC CO.
OKLAHOMA GAS « ELECTRIC CO.
OKLAHOMA GAS & ELECTRIC CO.
MIDWEST MARBLE & TILE CO.
ALLIED MATERIALS CORP.
ROBO CAR WASH
ATLANTIC RICHFIELD
ATLANTIC RICHFIELD CO.
WESTERN FARMERS ELFCTRIC CORP.
GRAND RIVER 0AM AUTHORITY
OKMULGEF REFINING CO
WEYERHAEUSER CO
WtYERHAEUSFR-URIGHT
HOLLY CREEK FRYERS INC.
PETROLITE CORP BARECO
SAFEkAY STORES IKC.
SUN OIL CO-DUNCAh.
SKELLY OIL CO.
PHILLIPS PETROLEUM CO.
CONOCO PLASTICS
CHAMPLIN PFTKCLEUM CO.
CITIES SERVICE OIL CO.
PHILLIPS PETROLEUM CO.
IDEAL CEMENT CO.
MIXON BROTHERS WOOD PRESERVING
EAGLL-PKKER INDUSTRIES INC.
TEXACO* INC. REFINERY
DOLESE CO.
COLFSE COMPANY
MCCUSTAIN COUNTY RURAL WATER.
ST. LOUIS-SAN FRANCISCO R.R.
GULF OIL CORP.
OLD
CLASS
MN
MN
MH
MN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MJ
MJ
MJ
MN
MJ
MN
MN
MN
MN
MN
MJ
MJ
MJ
MN
HN
MN
MJ
MM
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MN
MN
MN
NEW
CLASS
MN
MJ
MJ
MJ
MN
MN
MJ
MN
MN
MJ
MN
MN
I
MN
I
MN
MN
MN
MJ
HN
KN
MN
I
I
MJ
MJ
I
MN
MJ
MN
I
MN
MN
MJ
MN
MN
MN
MN
I
I
MJ
MN
MN
MN
MN
MN
TOTAL
POINTS
50
130
120
HO
30
90
150
40
40
150
20
60
190
40
90
60
70
90
1 20
50
70
73
80
110
120
190
90
160
130
50
100
50
40
160
10
50
10
90
110
70
190
10
50
30
80
50
UEIGHTED
TOTAL POINTS
16
84
75
82
12
40
89
37
13
84
33
'19
71
24
65
45
45
23
81
21
43
32
62
69
84
104
60
45
30
24
73
36
13
81
3
16
3
40
71
55
102
3
16
9
26
30
0)
cr
m o>
o o
i— o
CO r+
i—i 3
~n c
I-H fP
O Q.
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVERj COLORADO
PAGE 8
P-2
NPOES NO.
S I C
CODE
NEW CLASS OF PFRHITS BAStO ON TOTAL WEIGHTED POINTS
PERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPOES NO.
COMPANY
N A M F
OLD
CLASS
NEW
CLASS
TOTAL
POINTS
WEIGHTED
TOTAL POINTS
OK0001546 3ROCKWAY GLASS CO.
OK0001597 NORTH AMERICAN ROCKWELL CORP.
OKU001643 3339 FANSTEEL METALS
OK00016&0 FAAj AERONAUTICAL CENTER
OKQ001694 FUSS PUBLIC UORKS AUTHORITY
OKC001716 RESEARCH FLOUR SERVICE PR.
OKCC01741 CARBONEX COAL CO.
OKU001775 STATE BOARD OF PUBLIC AFFAIRS
OKC001805 WARREN PETROLEUM CO.
OK0001821 BEST CAR WASH
OKC001843 PONCA CITY FILTER PLANT
OK0001831 COMBUSTION ENGINEERING
OK0001996 CITY OF OKLAHOMA CITY
OK0002127 CITY OF OKLAHOMA CITY
OK0002160 MURPHY-PERKINS READY-MIX CONCR
OKOOnzi86 BAMA PIE CO.
OK0002224 U.S. ARMY FIELD ARTILLERY CTR.
OK0002283 FORT SILL
OK0002313 OKLAHOMA CEMENT CORP.
OKOOQ2330 OWFNS SWIMMING POOL
OK0002356 KERR-MCGEE CORP.
OKOU02399 EAGLE-PICHER INDUSTRIES INC
OK0002411 OUR LADY OF SORROWS CONVENT
OK0002453 THERMAL SYSTtMS INC.
CKOU02534 CITY OF PA'JNfcE WATER TREATMENT
OK3U02551 CITY OF HENRYtTTA
OK0002577 CITY OF SAPULA
OK0002597 CITY OF SHAWNEE
OK0002615 TOWN OF ANTTERS
OKOOC12640 CITY OF WEWOKA
OK0002682 4911 PUBLIC SERVICE CO. OF OKLAHOMA
OKu002721 CITY OF ADA
OKOD02747 CITY OF ADA
OK0002780 CITY OF PERRY
OK3002801 CITY OF CLEVELAND
OK0002828 CITY OF NORMAN
OKOU20642 MCMICHAF.L SAND COhPANY
OK0021024 2873 FARMLAND INDUSTRIES
OK00211Q? OKLAHOMA TOURISM & REC.
OK0021407 uIRF.CTORATE OF FACILTIES ENG.
OK0021466 ARROWHEAD STATE LODGE
OK0022047 POWERHOUSE WATER TREATMENT-US
OK0022268 USA-COE CANTON LAKE
OK0022349 PHILLIPS PETROLEUM CO.
OK0022365 PHILLIPS PETROLEUM CO.
OK0022381 PHILLIPS PETROLEUM CO.
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
UN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MN
MN
MN
MN
MJ
MN
MN
UN
MN
MN
MN
MN
MN
MN
MN
I
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
KN
MN
MN
MN
MN
I
MN
MN
MN
MN
MN
MN
MN
MN
HN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
30
20
100
40
50
30
50
60
50
40
10
30
20
10
40
60
20
10
40
30
50
90
30
30
60
40
60
30
30
30
40
20
20
30
10
20
50
100
60
40
40
40
20
10
10
m
36
6
73
13
16
36
43
19
31
13
3
39
6
3
13
19
6
3
13
9
23
69
9
9
19
13
17
9
9
9
39
6
6
9
3
6
16
43
19
13
13
13
6
3
3
3
> — I
[— 01
n n>
o o
r— o
3> 3
GO r+
GO -"•
I-H 3
-n c
>—i
O Q.
CT>
to
-------
FNVIRONMFNTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER, COLORADO
PAGE 9
P-2
NEU CLASS OF PERMITS BASED ON TOTAL WEIGHTED POINTS
PERMIT SET 1-4 PARAMETER SET 51
SORTED BY NPOtS NOt
NPCES NO.
S I C
CODE
COMPANY
NAME
OLD
CLASS
NLU
CLASS
TOTAL
POINTS
UEIGHTED
TOTAL POINTS
OK0022403 PHILLIPS PETROLEUM CO.
OKOC22411 PHILLIPS PETROLEUM CO.
OK002242Q PHILLIPS PETROLEUM CO.
OK0022454 MUSKOGEF COUNTRY CLUB-SU IhMING
OKOC2291S HORMEL FINE FROZEN FOODS
OK0026166 CITY OF TULSA
OK0026166 CITY OF TULSA
OK0026247 CITY OF TULSA
OKOG26263 CITY OF TULSA
OK0026280 CITY OF TULSA
OK0026310 CITY OF TULSA
OK0026336 CITY OF TULSA
OK0026352 CITY OF TULSA
OK0026379 CITY OF TULSA
OK0026395 CITY OF TULSA
TXC000035 9711 LONGHORN ARMY AMMUNITION PLT.
TX0000094 2491 MOSS AMERICAN INC.
TXOGOOU1 GILMER PUTTERIFS
TXOu10191 WEST TEXAS UTILITIES COMPANY
TXG00024S ATCHISONi TOPEKA & SANTA FE
TX0000299 ATCHISON, TOPEKA & SANTA FE
TX00003S3 3721 GENERAL DYNAMICS CORP.
TXOC00396 LONE STAR INDUSTRIES INC.
TXOCD0426 EXXON CORP.
TX0000442 UNITtO GAS PIPELINE CO.
TX0000435 ATLANTIC RICHFIELD
TX0000507 WINSTON REFINING CO
TX000054n 4911 SOUTHWESTERN ELECTRIC POWER CO
TX0000574 BOROEN, INC.
TXGQ00612 CITIES SERVICE OIL CO.
TX0000655 CITIES SEVICE OIL CO.
TX0000693 2211 MISSION VALLEY MILLS
TXOC00710 2819 Id UNITED STATES INC.
TX0000736 CITY OF AUSTIN
TXG300779 HUNT OIL COMPANY
TXOG003U9 PENNSYLVANIA GLASS SAND CORPS.
TXOG00841 GIFFORD HILL 4 CO., INC.
TXOQ00568 GIFFORD-HILL 4 COj INC.
TX0000884 INTERNATIONAL PAFtR CO.
TXU000914 2952 CERTAIN-TEED PRODUCTS CORPS
TX0000990 DALLAS POWER i LltHT
TX0001015 DALLAS POWFR tf LIGHT CO
TX0001031 TEXAS POWER & LIGHT CO
TX0001058 TEXAS POWER & LIGHT
TXOOC1074 GENERAL PORTLAND CEMENT CO
TX0001147 GENERAL PORTLAND CFMENT CO.
MN
MN
MN
rtN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MN
MN
HN
MN
MN
MN
MN
MN
MN
MJ
MN
,1N
MN
MJ
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
I
MN
HN
MJ
'AH
MN
MN
MN
MN
MJ
MJ
MN
MN
I
MJ
MN
MN
MN
MN
MN
MN
MJ
MN
MN
MN
I
MN
MN
10
10
0
10
30
20
10
20
20
10
20
0
10
10
10
100
120
60
80
60
70
90
80
100
60
120
70
120
160
110
60
UO
150
40
90
50
100
60
70
120
60
40
110
80
50
50
3
3
0
3
9
6
20
6
6
3
6
0
3
3
3
26
82
19
63
22
25
81
25
5G
26
45
45
75
75
45
29
64
84
13
41
16
39
19
52
82
43
38
47
67
15
16
-a 5=
m DO
TO |—
o
GO O
00 3
i—i 3
O C
-------
FNVIRONMFNTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
NEW CLASS OF PERMITS BASED ON TOTAL WtlGHTED POINTS
KERMIT SiT 1-4 PARAMETER SET 51
SORTED BY NPDES NO.
PAGE 10
P-2
NPOFS NO.
TX0001163
TX0001130
TXOC012C1
TX0001236
TX0001 376
TX0001 392
TXOOQ1414
TXG001431
TXOOOU31
TXC001 511
TX0001 589
TXOC01 601
TX0001643
TXC001 741
TXOC01791
TXOC01821
TX0001 843
TX0001864
TX0002054
TX00020S9
TX0002119
TX00021 35
TX0002151
TXOOD2203
TXOC02232
TX000227";
TXC002313
TX0002330
TX0002372
TX0002399
TXD002445
TXU002496
TXC002526
TX0002542
TX00026D7
TXOOC12631
TX0002666
TXG002739
TX0002844
TX0002887
TXU002933
TXOOQ2963
TX0002984
TX0003026
TX0003140
TX0003166
S I C
CODE
2661
3079
2819
2621
3444
2869
2834
2900
3312
COMPANY NAME
TEXAS ELECTRIC SERVICE CO.
TEXAS ELECTRIC SERVICE CO
TEMPLt INDUSTRIES* INC
TEXAS PACIFIC RAILWAY
DRESSER INDUSTRItS INC.
WEST TEXAS UTILITIES CO.
WEST TEXAS UTILITIES CO.
BROOKS AIR FORCE BASE
GEORGIA-PACIFIC CORP
BURLINGTON INDUSTRIES
STAUFFER CHEMICAL CO.
CHAMPLIN PETROLEUM COMPANY
SOUTHLAND PAPER MILLS
CARRIER AIR CONDITIONING CO.
LAMPASAS SAND & GRAVEL CO.
MINERAL WELLS SANCi AND GRAVEL
CITY OF GARLAND FOWFR « LIGHT
LONE STAR BREWING CO.
CITY OF SEGUIN
CITY OF GLADEWATER
CITY OF NEWTON
CITY OF GRAPEVINE
SPRING HILL WATER SUPPLY CORPS
CITY OF AUSTIN
CITY OF THROCKMORTON.
MARBLE FALLS W.C.J I.D. U1
USA-FORT HOOD
REX-HIDE INC.
CITY OF DALLAS (ELM FORK HTP)
CITY OF PALESTINE* TX
CITY OF TYLE* TX
CITY OF STAMFORD
BRIDGEPORT WATER TREATMENT PL.
CITY OF LOREDO* T>
CITY OF HAMLIN
CITY OF MABANK
WEST TEXAS UTILITIES CO.
BAYLOR UNIVERSITY
UNION CARBIDE CORF.
WARREN PF.TROLtUM CORP,
THF UFJOHN CO.
FIRESTONE TIRE 4 RUBBER CO.
BORDEN* INC.
GULF STATES TUBE CORP.
FORT BEND UTILITIES CO.
IMPERIAL SE1GAR CO.
OLD
CLASS
MN
MN
MJ
MN
MN
MN
MN
MH
MN
MN
MN
MN
MJ
MN
MN
MN
MN
(IN
MN
MN
MN
HN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MJ
MN
MJ
MJ
MN
MH
MN
MN
NEW
CLASS
I
I
MJ
MN
MN
I
I
MN
MJ
MN
MJ
MN
MJ
MJ
MN
MN
I
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
MN
I
MN
MJ
I
'I
MJ
MN
MJ
MN
MN
TOTAL
POINTS
90
80
250
80
20
80
80
40
180
70
120
100
130
160
90
90
90
40
10
40
60
80
40
60
40
40
50
50
60
50
40
20
60
40
30
50
90
20
180
140
110
200
60
140
30
80
WEIGHTED
TOTAL POINTS
70
67
121
25
33
69
63
15
84
47
75
44
80
86
27
27
71
11
3
13
19
25
13
19
13
13
13
16
19
16
13
6
19
13
9
16
71
9
116
59
67
79
18
81
38
39
-a co
m r—
o ^^
r~ o
> o
oo c-t-
I—H —1.
-n 3
>—( C
o n)
3= a.
-------
ENVIRONMENTAL PROTECTION AGENCY
NATIONAL ENFORCEMENT INVESTIGATIONS CENTER
DENVER* COLORADO
PAGE 11
P-2
NEW CLASS OF PERMITS BASED ON TOTAL WtlGHTEO POINTS
FERMIT StT 1-4 PARAMETER SET 51
SORTED BY NPDES NO.
ro
NPDES NO.
TX0003239
TXOG03263
TXOOT3298
TX0003379
TX0003531
TX0007573
TXOOT3590
TXOC03654
TX0003671
TXOC03697
TXOC03719
TX0003794
TXQ003332
TXOD03675
S I C
CODE
2818
4911
2822
2911
2869
2818
COMPANY NAME
UNION CARBIDL CORF
SUPERIOR OIL CO.
MOBIL OIL CO.
SUN OIL CO.
ARCO CHEMICAL CO.
CENTRAL POWER «' LIGHT CO.
CENTRAL POWER 4 LIGHT
B.F. GOODRICH CO.
VFLSICOL CHEMICAL CORP.
MARATHON OIL CO.
CHEMETRO.S COKP.
LONE STAR INDUSTRIES
J.M. HUBER CORP.
MONSANTO CO.
SUMMARY
NO. PERMITS
OLD MAJOR
OLD MINOR
NE4 MAJOR
NEW INTERNED
NEW MINOR
428
65
363
68
58
302
OLD
CLASS
MN
MN
MN
MN
MJ
MJ
MN
MJ
MN
MJ
MN
MN
MN
MJ
NEW
CLASS
I
MN
MN
I
I
I
MN
MJ
I
MJ
MJ
MN
MN
MN
TOTAL
POINTS
110
20
90
80
150
70
40
190
120
190
120
20
80
110
WEIGHTED
TOTAL POINTS
73
6
40
55
64
63
39
95
66
102
82
9
51
.52
-a as
m r—
—I -e»
o
00
oo
O
O
t-i c
O fD
3» 0.
-------
73
divided among six industry types. Factors contributing to the higher
classification of all 30 permits included discharges of other priority
pollutants and permit violations.
The optimum method selected for the Region VI data base made use of
all data elements. This was possible because data had been collected
for all elements by detailed file searches. Practical application of
the method on a large scale would require that most data be available
through computerized data bases. This would probably eliminate the use
of several data elements because they are available only by file search.
Assumptions were made regarding which data elements to emphasize
and what relative magnitudes of flow, pollutant loads, etc. were con-
sidered major. These assumptions were based on best judgement of how to
convert current Agency priorities into rating values. Refinements in
these assumptions can and should be made as discussed below if wider use
of the method is attempted.
METHOD APPLICATIONS AND IMPROVEMENTS
The objective of this pilot study was to develop and evaluate an
objective method of classifying NPDES permits. The study has succeeded
in demonstrating that given adequate data and by making certain assump-
tions relative to the importance of various factors, permits can be
classified in an objective manner. Development of the method required
subjective judgements in several areas. Once developed, however, the
method can be applied to any permit with a low level of subjectivity.
Refinements are possible to produce an even lower level of subjectivity.
.-''. Data needed by the method are currently only partially available
in Agency computer files. Large scale application of the method would
require that either the method be modified, the required data be
-------
74
computerized or data be collected by hand means. A combination of these
factors would probably be used.
Examining the 11 data elements listed in Table IT, we find that the
industry type as represented by SIC code is the only element currently
available nationwide in computer files. The wastewater type is not
computerized. Several Regions are beginning to computerize self-monitor-
ing data as submitted in DMR's. Where these data are computerized,
flow, BOD, TSS, COD and temperature data would be available for those
permits which require monitoring for these parameters. If not required
by the permit, there is a high probability that these parameters are not
important to classification of that permit.
Some data on heavy metals and other primary pollutants are currently
reported in DMR's. Other data on these pollutants are being collected
by special studies and requests to specific plants. Application of the
classification method in its current form would be dependent upon whether
or not these data are computerized.
Receiving water uses are currently not in a computer file. They
would thus need to be hand collected. Parameter sets 46, 47 and 48 in
the sensitivity tests evaluated the effects of eliminating the waste-
water type and water uses data elements. Little differences between
classifications assigned by these tests and by the optimum method were
noted. If necessary, these two data elements could be eliminated with
limited effects on classifications.
Information on whether or not a plant discharges to a water quality
limiting stream is not computerized and is difficult to obtain from the
files. However, because a relatively small number of permits are located
on such streams, hand entry of this data would not be a major problem.
-------
75
Computerizing of DMR data is being done to aid in the review for
effluent violations. Submission of DMR's and compliance schedule infor-
mation is also tracked on the computer. Once all DMR data are computer-
ized, computer entry of the permit violation data would be possible.
Entry of the subjective factor data would necessarily be a hand
review process. This would be done by staff familiar with each permit.
This would require that specific criteria be established to insure
uniformity in determining the values to assign to specific types of
problem situations.
Based on the current status of computerization of permit and com-
pliance data, it would be necessary to use manual file search techniques
to compile about 90% of the data used by this classification method.
This would require about 8 to 10 man-years of effort for the file
search. An estimated additional 5 man-years would be reuiqred to enter
the data in a computer system and process it. Two man-years of reprogram-
ming time would be required for the large scale application. As com-
puterization of more data is achieved nationally, both the file search
and data entry times would be reduced.
Before the classification method could be applied on a national
basis, it should be tested on several more small data bases in other
Regions. This would detect any biases built into the method because of
the nature of the Region VI data base. It would also help refine the
specific variables used in the rating and weighting programs.
Detailed study of national priorities for controlling specific
pollutants or types of industries would need to be performed to insure
the priorities reflected in the model are consistent.
-------
APPENDIX A
1976 WORKSHOP RECOMMENDATIONS
-------
A-l
NPDES REVISITED
RECOMMENDATIONS
0 F T H E
STATE-EPA WORKSHOP
DECEMBER 13-15, 1976
Prepared for Action
by the
Permit Program Review Group
Airlie House Conference
February 15-17, 1977
-------
A-2
PERMIT CLASSIFICATION S ISSUANCE
-------
A-3
THE CLASSIFICATION AND ISSUANCE GROUP CONSISTING OF A WELL
PROPORTIONED REPRESENTATION FROM EPA HEADQUARTERS, REGIONAL OFFICES AND
NPDES STATES PROPOSES THE ENCLOSED CHANGES TO IMPROVE THE NPDES PROGRAM.
THE MAIN THRUST OF OUR PROPOSAL IS TO RESTORE CREDIBILITY AND
CONFIDENCE TO THE MAJOR DISCHARGERS LISTS. WE FEEL THAT THE ARBITRARY
STANDARDS USED FOR DESIGNATION OF MAJORS EXCLUDES SOME MAJORS AND
INCLUDES SOME TRULY MINOR DISCHARGERS.
BECAUSE OF THE FAR REACHING IMPORTANCE OF THESE PROPOSALS WE
RECOGNIZE THAT IT MAY BE FY 79 BEFORE THE ATTACHED CRITERIA CAN BE
USED.
THE GROUP WAS DIRECTED IN ITS WORK TOWARD THE ACCOMPLISHMENT OF
THE FOLLOWING GOAL AND OBJECTIVES.
GOAL: TO DEVELOP A USABLE, FLEXIBLE, NATIONAL CLASSIFICATION AND
ISSUANCE SYSTEM REFLECTING ENVIRONMENTAL PRIORITIES WHICH
ENCOURAGES EQUITABLE RESPONSE AND ACTIONS FOR SIMILAR DISCHARGES,
OBJECTIVES:
1. IDENTIFY CLASSIFICATION CATEGORIES AND INDICATE CRITERIA FOR
EACH.
2. DEVISE NUMERICAL GRADING SYSTEM TO PRIORITIZE DISCHARGERS.
3. SUGGEST ALTERNATIVE METHODS OF ISSUANCE TO THE MINOR
CLASSIFICATION OF DISCHARGERS.
-------
A-4
RECOMMENDATIONS
1. THE CURRENT MAJOR/MINOR DISTINCTION FOR CLASSIFYING PERMITTEES
SHOULD BE REVISED TO INCORPORATE THE ATTACHED GUIDELINES. THESE
GUIDELINES SUBCATEGORIZE INDUSTRIAL PERMITTEES INTO THREE GROUPS:
MAJOR, INIERMEDIATE-, AND MINOR PERMITTEES; AND MUNICIPAL PERMITTEES
INTO TWO GROUPS: MAJOR AND MINOR. THIS REGROUPING RECOGNISES AGENCY
PRIORITIES IN PROGRAM PLANNING, PERMIT COMPLIANCE MONITORING AMD OTHER
ACTIVITIES ASSOCIATED WITH IMPLEMENTATION OF THE NPDES PERMIT PROGRAM.
2. WATER QUALITY STANDARDS SHOULD BE THOROUGHLY REVIEWED TO '
MINIMIZE OR ELIMINATE INEQUITABLE DETERMINATIONS OF CATEGORIES OF
DISCHARGERS. TWO SPECIFIC AREAS SHOULD BE ADDRESSED:
9 SITUATIONS WHERE NON-POINT SOURCE POLLUTANTS OR NATURAL
CONDITIONS NEGATE ADDITIONAL TREATMENT BEYOND TECHNOLOGY-BASED
REQUIREMENTS FOR POINT SOURCES.
* SITUATIONS WHERE NATURAL STREAM FLOWS ARE EITHER SO MINIMAL
OR INTERMITTENT THAT ADDITIONAL TREATMENT BEYHOND TECHNOLOGY-
BASED REQUIREMENTS WOULD NOT BE COMMENSURATE WITH ENVIRONMENTAL
BENEFITS GAINED.
3. DIFFERENT TYPES OF PERMITS, IN ADDITION TO THE CONVENTIONAL
INDIVIDUAL PERMITS NOW ISSUED, SHOULD BE DEVELOPED AND UTILIZED.
THE USE OF THREE ALTERNATIVE TYPES OF PERMITS SHOULD BE EXPLORED:
» MASTER PERMITS - ESSENTIALLY CARBON-COPY INDIVIDUAL PERMITS
ISSUED TO CATEGORIES OF DISCHARGERS;
-------
A-5
8 BLANKET PERMITS - INDIVIDUAL PERMITS ISSUED TO ONE OWNER OR
OPERATOR FOR NUMEROUS DISCRETE DISCHARGES ASSOCIATED WITH ONE
TYPE OF OPERATION;
9 GENERAL PERMITS - PERMITS ISSUED BY PUBLICATION TO A GROUP
OF GEOGRAPHICALLY UNIFIED OWNERS AND OPERATORS CONDUCTING
SIMILAR ACTIVITIES.
4. REGULATIONS SHOULD BE PROMULGATED AND/OR LEGISLATIVE AMENDMENTS
BE RECOMMENDED TO ENABLE THE USE OF EXEMPTIONS AND/OR GENERAL PERMITS
FOR ACTIVITIES WHICH HAVE AN INSIGNIFICANT AFFECT ON WATER QUALITY AND
FOR WHICH TREATMENT IS NOT APPROPRIATE.
-------
A-6
INDUSTRIAL CLASSIFICATION
MAJOR DISCHARGER 75-150 pts.
INTERMEDIATE DISCHARGER 50 - 74 pts.
MINOR DISCHARGER 0-49 pts
ASSUMPTIONS:
1. DROP FLOW AS AN OVERRIDING CRITERIA FOR INDUSTRIAL DISCHARGERS.
2. WATER QUALITY STANDARDS FOR ZERO FLOW BASED STREAMS NEED MOT TO BE MET.
HOWEVER, TECHNOLOGY BASED STANDARDS MUST.
I. CRISES CHEMICALS - 50 pts. •
II. WATER QUALITY IN STREAM CONSIDERATIONS
a. POINT SOURCE VS. NON-POINT SOURCE 0-50 pts
b. STREAM CLASSIFICATION
c. WASTELOAD ALLOCATIONS
III. WATER QUALITY IMPACT POTENTIAL 0 - 50 pts.
a. TYPE OF DISCHARGE
b. FLOW
C. PUBLIC HEALTH CONSIDERATIONS
d. COMPLIANCE/ENFORCEMENT RECORDS
e. EFFECTS OF SYSTEM FAILURES
G1C •', 1 1375
-------
A-7
MUNICIPAL CLASSIFICATION
MAJOR DISCHARGER 75-150 pts.
MINOR DISCHARGER 0 - 74 pts.
I. FLOW
OVER 1 mgd 50 pts.
UNDER 1 mgd 0 - 50 pts.
II. WATER QUALITY INSTREAM CONSIDERATIONS 0-50 pts
a. POINT SOURCE VS. NON-POINT SOURCE
b. STREAM CLASSIFICATION
c. WASTE LOAD ALLOCATIONS
III. WATER QUALITY IMPACT POTENTIAL 0-50 pts
a. COMPLIANCE RECORDS
b. SYSTEM FAILURES
c. CRISES CHEMICALS
d. CONSTRUCTION GRANT PRIORITY
ilv 6 -J '3/0
-------
A-8
1. INDIVIDUAL
2. MASTER
3. BLANKET
4. GENERAL
PERMIT ISSUANCE
STANDARD NPDES PERMIT
PERMIT WITH COMMON EFFLUENT LIMITATIONS ISSUED
INDIVIDUALLY TO AN ENTIRE INDUSTRIAL CATEGORY.
ONE PERMIT FOR MULTIPLE FACILITIES OR EQUIVALENT
OPERATIONS UNDER COMMON OWNERSHIP OR OPERATION WITHIN
ONE STATE.
PERMIT ISSUED BY PUBLICATION ONLY, CONTAINING NO
LIMITATIONS, FOR MULTIPLE OWNERS AND OPERATORS
CONDUCTING SIMILAR CATEGORICAL ACTIVITIES IN A
GEOGRAPHICAL AREA.
CLASSIFICATION
I. MAJOR PERMIT
II. INTERMEDIATE
III. MINOR
PERMIT TYPE
INDIVIDUAL
INDIVIDUAL
BLANKET
MASTER
INDIVIDUAL
BLANKET
MASTER
GENERAL
-------
A-9
INDUSTRIAL CRITERIA
I. CRISES POLLUTANTS ARE THOSE THAT HAVE BEEN IDENTIFIED IN APPENDIX
A OF THE CONSENT ORDER FOLLOWING THE CASE OF NRDC V. TRAIN
(APPENDIX A). AT PRESENT THERE ARE 65 COMPOUNDS THAT WOULD BE
CONSIDERED IN THE YES-NO DECISION. UNLESS, THERE IS AN ESTABLISHED
IHRE&GLD LEVEL THIS RANKING FACTOR WILL BE INAPPLICABLE.
A
II. THE FOLLOWING ARE CRITERION WHICH WILL DETERMINE THE RELATIVE
IMPACT (0-50) OF ANY DISCHARGE ON THE WATER QUALITY OF THE
RECEIVING STREAM:
A) DEGREE TO WHICH EFFLUENT LIMITS ACHIEVABLE BY EXISTING
TECHNOLOGY ATTAINS COMPLIANCE WITH ESTABLISHED WATER. QUALITY
STANDARDS WITHOUT CONTROL OF NON-POINT SOURCES OF POLLUTION
OR WHEN NATURAL CONDITIONS PREVENT ACHIEVEMENT.
B) A WEIGHTING FACTOR TO BE BASED ON THE BENEFICIAL USE OF THE
STREAM AS DESIGNATED BY THE STATE.
C) THE RELATIVE IMPORTANCE OF A DISCHARGER IN A STREAM SEGMENT
THAT HAS MULTIPLE POINT SOURCE DISCHARGERS.
III. THE FOLLOWING CRITERION WILL DETERMINE THE RELATIVE (0-50)
POTENTIAL FOR ADVERSE IMPACT OF ANY DISCHARGE ON THE WATER
QUALITY OF THE RECEIVING STREAM.
A) TYPE OF DISCHARGE SUCH AS NON-PROCESS WATER, CONTACT COOLING
WATER, BOILER SLOWDOWN, ETC.
P - '• o .• ;o7£
_ k*L.v^6-wlw/w/
-------
A-10
-2-
B) VOLUME OF FLOW AND FREQUENCY OF DISCHARGE.
C) PAST PERFORMANCE WITH REGARD TO COMPLIANCE WITH PERMIT
CONDITIONS.
D) FAILURE TO COMPLY WITH PERMIT CONDITIONS THAT COULD CREATE A
THREAT TO PUBLIC HEALTH OR LOSS OF BENEFICIAL USES.
iZi 0
-------
A-n
MUNICIPAL CRITERIA
I. FLOUi WHEN IT EXCEEDS ONE MGD, IS CONSIDERED A SIGNIFICANT
DETERMINANT. THIS VALUE NORMALLY WOULD ENCOMPASS AS A MINIMUM 15
PERCENT OF THE MUNICIPAL DISCHARGERS IN THE NATION. THEY SHOULD
ALSO COMMAND ATTENTION ON THE CONSTRUCTION GRANT PRIORITY LIST.
II. THE FOLLOWING ARE CRITERION WHICH WILL DETERMINE THE RELATIVE
IMPACT (0-50) OF ANY DISCHARGE ON THE WATER QUALITY OF THE
RECEIVING STREAM:
A) DEGREE TO WHICH EFFLUENT LIMITS ACHIEVABLE BY EXISTING
TECHNOLOGY ATTAINS COMPLIANCE WITH ESTABLISHED WATER QUALITY
STANDARDS WITHOUT CONTROL OF NON-POINT SOURCES OF POLLUTION
OR WHEN NATURAL CONDITIONS PREVENT ACHIEVEMENT.
B) A WEIGHTING FACTOR TO BE BASED ON THE BENEFICIAL USE OF THE
STREAM AS DESIGNATED BY THE STATE.
C) THE RELATIVE IMPORTANCE OF A DISCHARGER IN A STREAM SEGMENT
THAT HAS MULTIPLE POINT SOURCE DISCHARGERS.
III. THE FOLLOWING CRITERION WILL DETERMINE THE RELATIVE (0-50)
POTENTIAL FOR ADVERSE IMPACT OF ANY DISCHARGE ON THE WATER
QUALITY OF THE RECEIVING STREAM.
A) BY DEFINITION, THE PRIORITY LIST IS RANKED ACCORDING TO MAJOR
IMPACT AND NEED.
-------
A-12
-2-
B) INDUSTRIAL CONTRIBUTIONS OF CRISES POLLUTANTS MAY REQUIRE
PRETREATMENT CONSIDERATIONS.
C) PAST'PERFORMANCE WITH REGARD TO COMPLIANCE WITH PERMIT
CONDITIONS.
D) FAILURE TO COMPLY WITH PERMIT CONDITIONS THAT COULD CREATE A
THREAT TO PUBLIC HEALTH OR LOSS OF BENEFICIAL USES.
-------
A-13
-2-
Q. WHAT IS THE IMPACT ON OTHER ACTIVITIES UNDER THE NPDES SYSTEM?
A. THERE SHOULD BE NO DRASTIC CHANGE. IT MAY PRESENT THE OPPORTUNITY
TO FINE TUNE THE USE OF RESOURCES.
Q. WHAT WILL BE INDUSTRY'S REACTION?
A. MAJORS WILL TEND TO REMAIN MAJORS AND THOSE MINORS HAVING CRISES
POLLUTANT WOULD PROBABLY RECEIVE MORE ATTENTION THAN UNDER THE OLD
SYSTEM.
Q. WHY ISN'T OBJECTIVE CRITERIA USED EXCLUSIVELY?
A. CRITERIA II AND III RECOGNIZE NATIONALLY IMPORTANT WATER QUALITY
CRITERIA, FOR WHICH THE RELATIVE IMPORTANCE VARIES FROM STATE TO
STATE.
Q. WHY ARE YOU RECOMMENDING FOUR TYPES OF PERMITS?
A. RECOGNIZES DISCHARGERS THAT DO NOT REQUIRE SOME LEVEL OF EFFORT AND
CONTROL.
Q. WILL MONITORING REQUIREMENTS CHANGE?
A. IT DEPENDS ON THE POLICY REGARDING THE CRISES POLLUTANTS.
DEC 2
-------
A-14
QUESTIONS AND ANSWERS
Q. WHY WAS A MEW SYSTEM CONSIDERED FOR DETERMINING MAJORS?
A. EXISTING SYSTEM WAS TOO RIGID. IT WAS NOT SENSITIVE TO VARIATIONS
DUE TO DIFFERING ENVIRONMENTAL CONDITIONS OR PRIORITIES.
Q. WHY THREE GROUPS OF INDUSTRIAL DISCHARGERS INSTEAD OF TWO?
A. ALLOWS FOR BETTER USE OR SCHEDULING OF RESOURCES FOR PERMITTING,
MONITORING.
Q. WHEN WILL THIS SYSTEM BE IMPLEMENTED?
A. DURING FY 79 PROGRAM PLANNING.
Q. WHY IS FLOW NOT AN OVERRIDING CRITERIA FOR INDUSTRY?
A. QUALITY IS MORE IMPORTANT THAN QUANTITY.
Q. WHY WERE THERE NOT THREE GROUPS IN MUNICIPAL?
A. THERE ARE ONLY BIG'AND LITTLE.
Q. WHY WERE SECTIONS 316, 301(c) AND 306 NOT A CRITERIA?
A. THEY ARE WORKLOAD INDICATORS OR PROCEDURAL ITEMS THAT ARE IRRELEVANT
TO CLASSIFICATION.
Q. WHY WAS FLOW IMPORTANT IN MUNICIPAL DIFFERENTIATION?
A. THE NATURE OF WASTEWATER IS RELATIVELY UNIFORM THEREFORE POTENTIAL
IMPACT IS GENERALLY PROPORTIONED TO SIZE.
DEC 2 2 1,376
-------
APPENDIX B
DATA ENTRY, CONVERSION AND
TRANSMITTAL PROGRAMS
-------
B-l
X001038105
X004034000AA01
XOOtCr38000AA02 '
= 02 42
C0306
C001000000AA8C3
COOOOOOOOQA30402-03
= 04 15
X001012000AA01
C001000000AA102
COOOOOOOOOAB0301-02 .
=03 05
X004034000AA01
C007000000AA333000003
COOaOOOOOOAB0601 *08*03
>07 05
X0060Q6000AA01
X004034000AA02
COQ7000000AAS33000003
COOOOOOOOOA30601 *02*03
COOOOOOOOOAB1111+06
>07 24
X001012000AA01
C001000000AA102
COOOOOOOOCA30301-02
=03 10
XOQ4034000AA01
C033000000AA1.803
CC02COOQCOAA3204
COOOQOCOCOA30203!(01
COOOOOOOOOA30502+04
C0102
C007000000AA 833000001
COODOOCiOQOA3Q605x08x01
>03 10
X006006000AA01
X004034000AA02
C003000000AA1 .803
C002000000AA3204
COOOOOOOOOA80S02X03
C0203
COOO000000 A3 0305+04
CDO7000000A AS 33000004
C000000000 A 30603x01x04
COOOOOOOOOAB1111+06
END 03
START 04 HEAVY METAL LOADS
C0106
F403000001
Y060051001
*B
X001016000AA01
C001000000AA002
COOOOOOOOOAB0301-02
= 03 40
X006009000AA01
C006000000AA000.0002
-------
B-2
C0030COOOOAB0301 -02
=03 36
C00100QQOOAA602
COOOOOOOOOAB0301 -02
=03 32
C00100aOOOAA502
C000030000AB0301-Q2
=03 18
X006009000AA01
X0060a2000AA02
X0010080QOAA03
C0010000QOAA104
COOOOOOOOOA80503-04
= 05 12
C00100QOOOAA204
COOOOOOOOOAB0503-OA
= 05 04
C007000000AA.001
COOOOOOOOOAB0504*02
>04 03
C007000000 A A 100024604
C 000 00 0000 A 30 50 4x02
C007000000AA833000003
COOOOOQOOOABQ605*01*03
>04 06
CC07000000AA833000003
C 000000 000 A BO 60 2*01 *03
>04 04
X006009000AA01
C00500000QAA2. 20502
COOOOOOOOOAB0601 x02
C0103
C003000000AA10001
COOOCOOOOOA9C201 x06
E009000097 99999999902
>04 06
C0104
X006009000AA01
C005000COOAA1000002
COOOOOOOOOAB0301 x02
£009000097 99999999903
X001001081
CG104
X005002000AA01
C005000000AA1000002
COOOGOOQOOA80301 *02
E011CCG083 9999999999903
X001008095
X001015107
X001016109
END 04
START 05
X001001111
XOQ1002113
X001003115
X001004117
-------
B-3
XOr)1019000AA02
C004000QOOAA8.3307
C001000000AA603
COOOOOOOOOA30402-03
= 04 12
C001000000AA503
C000000000 A BOA02-03
= 04 05
COOOOOOOOOAB0608X07
COOOOQQaOOAB0501x06
COOOCOOOOOA31414+05
>Q7 06
COT5000000AA2.20503
COOOOOOOOOA80601x03
COOO 00 0000 ABU 14+06
>07 02
COOOOOOOOOABU14+01
C0106
X006020057
X001026069
X006020000AA01
X001026000AA02
C001000000AA603
COQOOCOCOOAS0402-03
= 04 11
C001000000AA503
COOOOOOOQOA80402-03
= 04 04
C000000000 A 80508x07x01
0030000000^31213+05
>07 06
COO 5000000 A A 2.20503
COOC000000 AS0401xQ3
COOOOOGOOOA31313+04
>07 02
COOOOOOOOOAB1313+01
C0106
X006027076
X001033088
X006027000AA01
X001033000AA02
C001000000AA603
COQOCOOOOOA30402-03
= 04 11
C001000000AA503
COOOOOOOOOA30402-03
= 04 04
COOOOOOOOOA30508x07»01
cooooor)aooABi2i 2 + os
>07 06
COO5000000 AA 2.20503
C000000000AB0401*03
COOOOOOOOOA31212+04
>07 02
COOOOOOOOOA31212+01
C0106
X004034095
-------
B-4
START 01 JOB-OUT B022 FOR TRANSMITTING JIM'S DATA
&B 02
XA P
F200000001A"
X009001051A
X004010051A
X001014066A
X004015063A
X030019073A
X0010491Q4A
X001Q50106A
END 01
START 02 POLLUTANT LOADS
X001001108A
ENQ 02
START 03 CON'T POLLUTANT LOADS
X003C01002
X002004011
X006006019
X001U12031
&B 04
X002004000AA09
X004034000AA10
~B 11
XOQ2004000AA01
X00403AOCOAA02
COOOOOOOOOA30309-01
COOOOOOOOOA30510-02
= 03 03
>03 02
XOD20QAOOOAA09
= 05 03
>05 02
XOOA034000AA10
*B
X0060060QOAA01
X001012000AA02
C001000000AA103
COQOaOOOOOA30A02-03
= 04 12
C0010COOOOAA203
COOOCOOOOOAB0402-03
=04 05
C007000000AA.001 44004
COOOOOQOOOA30801 x04
C000000000A 8151 5+08
>04 07
COO7000000>A .00026404
COOOOOOOOOA30801»04
COOOOOOOOOAB1515+08
>04 03
X006006000AA08
COOOOOOOOOAB1515+01
C0106
X006013038
X001019050
X006013000AA01
-------
B-5
C00100Q026
EOG9000033
C0010000A3
E009000055
COQ100Q070
E009000077
CC01G00092
F005000093
E015300110
C001000001
0133000000
F1330000H1
SB 8
C0915
END 05
999999.9914
6
999999.9913
6
999999.9912
6
999.910
999999999999.9911
0
-------
B-6
COOOOOOOQOAB0301 -02
= 03 34
X0060Q9000AA01
C00600000CAAOOO.C002
COOOOOOOOOAB0301 -02
=03 30
X0010150COAA01
COT1000000AA602
COOOOOOOOOABC301 -02
=03 26
C00100QOOOAASQ2
COOOOOOHOOABC301 -02
=03. 13
X006009000AA01
X006002000AA02
X001003000AA03
C00100QQOOAA104
COOOCOOOOOAB0503-04
=05 09
C001000COOAA204
C 000 00 0000 A 20 50 3 -04
=05 04
COO 70 00000 A A .00144004
COQOQOODOQAB0504X02
>04 03
C0070COOOOAA.00024604
COGOCOOOGOA8C504*C2
C037JOOOOO A A 333000004
>04 04
X006009000AA01
C0050GOCOOAA2. 20502
COOauOOnOOAB0601 *02
EOG6000025 9.999906
>04 02
X006009027
X001C01002
X006002009
X00100S021
X001015045
XOQ1Q16052
END 04
START 05
X001001059
X001D02066
X001C03073
X001004080
X001C05087
X001006094
X0010C7101
X001COS108
X001009115
X003010122
01 33000000
F133000001
E002000002 9909
E011000011 999999.999915
-------
B-7
>07_ 02
COOOOOOOOOA31212+01
C0106
XOQ4034095
X001038105
XOOA034000AA01
X001U33000AA02
=02 42
C0306
C001GOOOOOAA803
COOOOOOOQOAB0402-03
= 04 15
X001012000AA01
C001000000AA102
COOOOOOOQOA30301-02
= 03 05
X00403AOOOAA01
COO 7000000 A A 833000003
COOOOOOOOOAB0601xC8xQ3
>07 05
X006006000AA01
X004034000AA02
COO7000000A A333000003
CCOOOQGOOOA8C601 *02i«03
COOOOCOOOOA81111+06
>07 24
X001012000AA01
C001000000AA102
COOOOOOOOOA30301-02
= 03 10
X004Q34000AA01 -
C003000000AA1 ,803
COO?OOOGOOAA?204
COOOOOOOOOA30203XC1
COOOOOOOOOABC302+04
C0102
COQ7QOOOOOA A 833000001
C 00.7000 000 A 30606x08x01
>03 10
X006006000AA01
X004034000AA02
C003000000AA1 .803
C002000000AA3204
COOOOOOOOOA3C502x03
C0203
COOOOCOOOOAB0305+04
C007COOOOOAA833000004
C000 COOQOOA BO603*01»04
CC30300000AB1111+06
0133000000
END 03
START 04 HEAVY METAL LOADS
C0106
«B
F133G00001
X001016000AA01
COC1000000AA002
-------
B-8
C0106
X006013038
X001019050
X0063130QOAA01
X001C19000AA02
C004000000AA8.3307
C001QOOOOOAA603
COnQOOOOOOAB0402-03
= 04 12
C001000000AA503
COOOOOOOOOA3Q402-03
= 04 05
COOOCO0000 A3 0608*07
COOOOOOOOOA30501*06
CGOOOOOOOOAB1414+05
. >07 06
C005000000AA2.20503
COOOOOOOOOAB0601 s<03
COOOOOOOOOA3UU+06
>07 02
C 00300 0000 AS UU+01
C0106
X006020057
X001026069
X00602000aAA01
X001026000AA02
C001000000AA603
COOCGO 0000 A3 0402-03
= 04 11
C001000000AA503
COOOCO 0000 A3 0402-03
= 04 04
C000000000ABC503*07*01
COOOOOOOOOAB1213+05
. >07 06
COO5000000 A A 2.20503
COOO00 0000 AB 0401 J<03
COOOOOOQOOA31313+04
>07 02
COOOOOOOOOAB1313+01
C0106
X006027076
X001033038
X006027000AA01
.V.OC1037000AA02
C001000000AA603
COOOOOOOOOA30402-03
= 04 11
C001000000AA503
C000000QOOA80402-03
= 04 04
COOOuO 0000 A305 08*07)« 01
COOOOOOOOOAB1212+05
>07 06
COOS000000 AA2.20503
COOOOOOOOOAB0401K03
COOOOOOOOOAB1212+04
-------
B-9
START 01 JOB-OUT B020 OLD VEKSION THAT ACCEP TS Pfc RM I T01 THRU FERMIT04
«B 02
XA P
F13?000001 .- - •
xoosocnona
X004006007
X004010017
X001014027
X004015034
X030019044
XOQ104908Q
X001050087
END G1
START 02 POLLUTANT LOADS
X001001094
C001000001
0133000000
F133000001
tNO 02
START 03 CON'T POLLUTANT LOADS
X003001002
X032C04011
X006006019
X001012031
&B 04
X002004000AA09
X004034000AA10
~3 11
XOQ2CG4COOAA01
X004G34POO A/,32
COOOOOOOOOABOZ09-01
COOOOOOOOOA80510-02
= 03 03
>03 02
XOa2004000AA09
= 05 03
>05 02
XOG403AOOOAA10
*B
X006006000AA01 .
XOQ1012000AA.02
C001000000AA103
C030000000A30A02-03
= 04 12
COCOOOOOOOABC402-03
= OA 05
C0070000COAA. 001 44004
COOJOOOOOOA31515+08
>04 07
C007000000AA.C0026404
COOOOOOOOOA30801 *04
COODOQOOOOAB1515+03
>04 03
X0060060QOAA08
COOOOOOOOOAB1515+01
-------
B-10
START 01 J03-IN
L09C A NFDES NO.* - -
004C A SIC COOE*0400000
BC20 FOR JIM VINCENT'S DATA INPUT
C01
03
03
C01
XY Y
P04C
L30B
P01C
P01C
02 NEXT
1
A YEAR*0410000
A NAME*
A MAJOR/MINOR CL A SS *0470GQO
A APPLICATION FORM »G410004
(TSS>*04100Q4
*0430000
LOADS
NOTnO*5000GOO
8 A
P01
P01
05 NEXT
A
A
A
A
A
A
HEAVY METAL LOADS
SOURCE CODE (HEAVY METAL LOA OS)*0420005
TOTAL FLOW*
UNITS CODE (TOTAL FLOW)*0420005
TOTAL LOAD*
UNITS CODE (TOTJL LOAD)*0410000
HEAVY METAL PRESENT* 0420000
FORMAT
START
P01C
PCI
P01
P01
P01
P01
P01
P01
P01
P03 B
P01
01 NEXT
05 OTHER PRIMARY POLL. PRES. « WATER QUALITY STANDARDS DATA
A SOURCE COOE*042QOr)5
A SIGNIFICANCE CODExOi20003
A PUBLIC WATER SUFFLY*0420003
A PRIMARY CONTACT RECREAT I ON * 0420003
A FISH S WILDLIFE PROP AC ATI ONx0420003
A A WATER DUALITY LIMITING STREAM*042QOC3
A DISCHARGE MONITORING REPORTS* 0420003
A EFFLUENT L I MITS*Q420003 .
A COMPLIANCE SCHEDULE*0420003
A VALUE*04500QO
A KEY H1 IF FINISH IF NOT KEY 00*0420002
FORMAT
-------
B-ll
X001005119
X001006121
X001007123
X001008125
X001009127
X003010129
E002000161 9909
£0105
C00500nOCOAAl000001
COQOOOOOOOA80201*15
E011000164 99999999999Q2
C001000176 1
C0105
C003000000AA10001
COOOOCIOOOOA30201 *14
E009000178 99999999902
C001000183 6
C0105
COT3000000AA1G001
COOnOOOOOOAB0201 »13
EOQ9000190 99999999902
C001QOQ200 6
C0105
C003000000AA1C001
COOOOOOOOOA30201X12
E009000202 99999999902
COQ1GC0212 6
.C0105
C0020QOOOOAA1001
COOOOOOOOOA80201 *10
E0050002U 9999902
C0105
C003000000AA10001
COOOOOTOOOA3C201*11
E015000220 99999999999999902
W032000000
XB 3
C0915
END 05
-------
B-12
//EPADZB22 JOB ( WFM4 j1Q1 jN jFORTRAN4jB j2 * 5 j5 > j «HARRIS • *PRT Y=6
//STEF1 EXFC FTG1CLG
//FORT.SYSIN DO *
DIMENSION AC320)
01 READ(5jl5jENQ = 18XA< I)jl=1 *80)
15 FORMATC80A1)
RFADC5j15jENO = 18XA( I > j I =8tj160>
READ(5j15jEND = 18) ( A< I ) j I =241 j320)
17 FORMAKSOAI *80A1*80A1 J3QA1)
GO TO 01
18 STOP
END
//GO .FTQ2F001 DO DSN=C N .EP AD23 t WFM 4 »PE RMS TR2 s
// DISP=(OLD jCATLG)jUNlT=333QjVOL=SER=NEIC01j
// SPACE=(CYLj(?j1 ) jRLSE) jOCB=CRECFM=FBjLRECL=320jBLKSIZE=4160)
/*
-------
APPENDIX C
POLLUTANT LOAD RANKING PROGRAM
-------
C-l
"SOU HEP. ' jFRTY =
CC3VCLGjVER=4j3EGIOi-!«GO=120K
//FPADZeDZ JC3 (WFM4 j101 jNjRANKIf-JC
//STEM EXEC
//COS.SYSIN DO -*- •
100100 IDENTIFICATION1 31 VISION.
PROGRAM-ID. SORT-OF-PERMIT-MASTER.
AUTHOR. DAVE SOMMER.
ENVIRONMENT D IVISION.
CC?.'-CI GURAT ION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OATA100-PERM IT-MSTR ASSIGN TO OA-S-TS31
• SFLFCT TS-PP.INT-FILE ASSIGN TO CA-S-TS32.
SELECT SQRT-FILF ASSIGN TO DA-S-TS33.
SELECT PERHIT-fiSTR ASSIGN TO OA-S-TS34.
DATA DIVISION.
FILE SECTION.
100200
10Q33C
10Q4CJO
103500
103600
100700
10Q3GO
100900
101000
101100
1012GO
101250
101300
101400
101500
101600
101700
101300
101900
1020CO
102100
102200
102300
102400
102500
102600
A o •? n o -i
104000
105910
105912
105914
105916
105913
105920
105922
105924
105926
105923
105930
105932
105934
105940
106100
106?00
106300
106310
106320
106400
1065GO
106510
106520
106600
1067GO
FD DATA10G-PFRMIT-MSTR
LAPEL RECORD IS STANDARD
BLOCK CONTAINS T3 RECORDS
RECORDING MOflE IS F
RFCORD CONTAINS 320 CHARACTERS
TATA RECORD IS I NP U T-REC C.xD .
01 INPUT-RECORO.
05 IR-FIRST-CARD-IMAGE.
10 IR-MPOES-NOS
20 IR-STATE PICTURE
20 IR-NO PICTURE
10 FILLER PICTURE
OS Ifc-SECOI-O-CARD-IMAGE PICTUf'.E
05 IR-THIRO-CARO-IMAGE.
FILLER
XX.
X(7).
X(71 ),
>:(8co.
20
20 IR-FLOU
20 FILLER
20 IR-BOO
20 FILLER
20 IR-TSS
20 FILLER
20 IR-COO
20 FILLER
20 IR-TEMP
20 FILLER
20 IR-BTU
20 FILLER
05 IR-FOURTK-CARO-IMAGE.
20 IR-KcC-CNT
20 FILLED
20 IR-FLOW-RANK
20 FILLER
20 IR-FLOW-SEQ
20 FILLER
20 IR-300-RANK
?0 FILLCR
20 IR-300-SEO
20 FILLER
20 IR-TSS-RANK
PICTURE XXX.
PICTURE 9(7)V9999.
PIC1UKE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 9C7JV99.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XX>.,
PICTURE 999V99.
PICTURE X.
PICTURE 9(13)V99.
PICTURE X(6).
PICTURE 9(5).
PICTURE X.
PICTUhF 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
-------
C-2
106710
106720
106300
106900
106910
106920
107000
107300
107310
107320
107400
101500 FO
101 SCO
101700
101 SCO
101900
102000
102100 01
1076GO FO
107700
107300
107900
103000 01
103100 SO
103200
103300
1034GO 01
102200
102300
102400
102500
102600
102700
102800
103001
104000
105910
105912
105914
105916
105918
105920
105922
105924
105926
105928
105930
105932
105934
106000
106100
106200
106300
106310
106320
1064CO
106500
20 FILLER
20 IR-TSS-SEQ P
20 FILLER
20 IR-CC3-RANK
20 FILLER
20 IR-COD-SEO P
20 FILLER
20 IR-BTU-RAfiK
20 FILLER
20 IP.-gT'J-SEQ P
20 FILLER
PER MI T-tfSTR
LABEL RECORD IS STANOARQ
3LOCK CONTAINS 13 RECORDS
RECORDING H03E IS F
RECORD CONTAINS 320 CHARAC
PICTURE X.
ICTU3E 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
ICTU3E 9999.
PICTJRE X.
PICTURE 999.
PICTURE X.
ICTU3E 9999.
PICTURE XC30).
TERS
DATA RECORD IS OUTPUT-RECORD.
OUTPUT-RECORD
TS-PRINT-FILE •
LABEL RECORD IS STANDARD
RECORDING MODE IS r
9ATA RECORD IS PRT-REC.
PRT-REC
SORT-FILE
RECORDING MOOE IS F
DATA RECORD IS SORT-REC.
SORT-REC.
05 .SQ-FIRST-CARD-IMAGE.
10 SO-NPQES-NO.
20 SO-STATE
20 SD-NO
10 FILLER
10 SD -COMPANY-NAME
10 FILLER
05 SD-SECCND-CARO-IHAGE
05 SD-THIF.D-CARD-IMAGE »
20 FILLER
20 SO -FLOW '
20 FILLER
20 SD-BOO
20 FILLER
20 SO-TSS
20 FILLER
20 SD-COO
20 FILLER
20 SO-TEMP
20 FILLER
20 SD-BTIJ
20 FILLER
05 SO-FOURTH-CARO-IMAGF .
20 SD-REC-CNT P
20 FILLER
20 SD-FLOW-RANK
20 FILLER
20 SD-FLOW-SFO
20 FILLER
20 SO-BOD-RANK
PICTURE XC320)
PICTURE XC133).
PICTURE XX.
PICTURE X(7).
PICTURE X(13).
PICTUKE X(30).
PICTURE X(28>.
PICTURE X(£Q).
PICTURE XXX.
PICTUKE 9 (7)79999.
PICTURE XXX.
PICTUKE 9(7)V99.
PICTURE XXX.
PICTUKE 9(7)V99 .
PICTURE XX>.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 999V99.
PICTURE X.
PICTURE 9(13)V99.
PICTUKL X(6).
ICTURE 9(5).
PICTURE X.
PICTUKt 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
-------
C-3
106510 20 FILLER
106520 20 SO-BOO-SEQ
106600 20 FILLER—
106700 20 SO-TSS-RANK
106710 20 FILLER
10-i720 20 SD-TSS-SEO
106300 20 FILLER
106900 20 SD-COO-RANK
106910 20 FILLER
106920 20 SO-COO-SEQ
107000 20 FILLER
107300 20 SO-3TU-RANK
107310 20 FILLER
107320 20 SD-STU-SEQ
107400 20 FILLER
109400 WORXING-S'TCRAGE SECTION
102100 01 US-REC-CNT
109410 01 WS-PRT-CNT P
1C9412 01 WS-HGLD-SO-STATE P
109413 01 WS-SORT-SEC-CNT • P
109415 01 HS -PERCENT -RANK P
109411 01 WS-PAGE-CNT P
120TOO 01 HFADER1.
1201 CO 10 FILLER PICTURE X
12Q2CO 1C FILLER PICTURE X
120300- 'Y'.
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
20400
20500
206CO
23610
20620
20700 01
20SOO
20900
21000-
21100
21200 01
21300
21400
21500
216CO 01
21700
21SOO
21900
21911 01
2191 2
09415
09420
09425
09430
09432 01
09435
09440
09445
109446
1
1
09447
09550
1
1
1
1
1
0
C
0
Q
n
u
HF
1
1
0
0
FILLER
FILLER
P-P AGE
FILLER
FILLFR
AL-ER2.
FILLER
FILLER
PIC
FIC
PIC
PIC
PIC
TUPE
TU'it
TURE
TURE
TURE
X
X
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999,
PICTURE X.
PICTURE: 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X(30).
PICTURE 9(4) VALUE ZEROES.
ICTURE 99 VALUE 60.
ICTU3E XX VALUE SPACES.
ICT'JRE 9(4) VALUE ZEROES.
ICTUR£ 999V9 VALUE ZEROES.
ICTURE 999 VALUE 001 .
(51) VALUF SPACFS.
(31) VALUE 'ENVIRONMENTAL PROTECTION AGhMC
(19) VALUE
(5) VALUE
SPACCS.
'PAGE ' .
99 VALUE 1 .
P
P
X
X
ICTJRE X(1
ICIU^E X(1
(46) VALUE
(42) VALUE
4
1
) VALUc
) VALUE
SPACFS.
SPACES.
1 P-1
'NATIONAL ENFORCEMENT INVESTIGA
'TIONS CENTER ' .
1
n
FILLER
PICTURE
X
(45) VALUE
SPACES.
HEADERS.
1
1
1
0
0
0
FILLER
FILLER
F ILLFR
PIC
TURE
PICTURE
PIC
TURE
X
X
X
(60) V/LUt
(16) VALUE
(57) VALUE
SfACt.S.
'DENVER i
SPACES.
COLORADO' .
HEADERA.
1
1
1
H
1
1
1
1
1
0
0
C
c
0
0
n
0
0
HE
1
1
1
1
1
1
0
0
0
0
0
0
FILLER
FILLER
FILLER
ADFR5.
FILLER
FILLER
FILLFR
FILLFR
FILLER
ADER6.
FILLF.R
FILLER
FILLER
FILLEK
FILLER
FILLER
PIC
PIC
PIC
TURE
TURE
1URE
X
X
X
p
P
P
P
P
P
P
P
(56) VALUE
(23) VALUE
(?4) VALUE
ICT'JtfE X(7
ICTURE X(3
ICTURE X ( 1
5
)
SPACES.
'FLOV.S -
SPACFS.
) V'L'JE
VALUE
0) VALUE
ICTURE XXXX
VALUE
If.TURE X(36) VALUE
ICTURF X(1
ICTUP.E X(9
ICTUKif X(1
4
)
5
) VALUE
V/LUE
) VALUc
PICTURE X(24) VALUF 'C 0
t
P
ICTURE X(1
5
ICTURE XXXX
) VALUF
VALUE
BY PERCENT RANK' .
SPACES.
'PCR CENT'.
SPACES.
'SFQ. '.
SPACCS.
SPACES.
'NPDES NO.' .
SPACES. .
M F A N Y N A M F. ' .
SPACES.
'RANK'.
-------
C-4
109455
109460
109465
109470
109471
109472
109475
109477
109420
109431
109482
109483
109485
109490
109495
109496
109497
109497
109498
109499
109500
109510
109520
109530
109532
109534
109540
109550
109560
109570
1 G9 5 3G
109590
200000
200100
2032CO
200300
200300
200400
200500
200600
200700
200900
201000
201 100
201200
201300
2014uiO
201500
201600
201650
201 700
202600
202510
202700
202800
202900
203000
01
01
01
10 F
10 F
10 F
10 F
10 F
ILLER
ILLER
ILLFR
ILLER"
ILLER
P
P
P
P
P
ICTURE
ICTURE
ICTURE
ICTUP.c
ICTUSE
X
(12)
XXXX
X
X
X
(12)
(12)
(12)
VALUE
VALUE
VALUE
VALUE
VALUE
SPACES.
• KO.'.
SPACES.
'SUM OF FLOWS'".
SPACES.
HEACER7.
10 F
10 F
10 F
10 F
10 F
10 F
10 F
1C F
10 F
10 F
10 F
10 F
HEAOE
10 F
WS-PR
10 F
10 P
10 F
10 P
10 F
10 P
1P F
10 P
10 F
10 P
10 F
PROCEDURE
HOUSFKFEP
010
020
-OPFN-
OFEN
OPEN
OPEN
-SORT-
SORT
ILLER
ILLER
ILLER
ILLER
ILLER
ILLER
ILLFR
ILLFR
ILLER
ILLER
ILLE.R
ILLER
R8 .
ILLER
INT-RFCCRO •'
ILLFR1 .
-NPOFS-NO
ILLER2
-COMPANY -NAM
ILLER2A
P
F
P
P
P
F
P
P
P
P
P
ICTURE
ICTURE
ICTURE
ICTURE
1C I USE
ICTURE
ICTUSE
ICTURE
ICTURE
ICTURE
ICTUR?
X
X
X
X
X
X
X
X
X
X
X
ICTURE X(
P
ICTURE
(12)
(1 3)
(3)
(17)
(17)
(3)
(8)
(3)
(8)
(8)
(16)
10)
XU33
VALUE
VALUF
VALUF
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUfJ
) VALUE
PICTURE X
PIC
TUSL X
PICTURE X
E
-PERCENT-RANK
ILLER3
-SEO-f.'UMSES
ILLER4
-G!JM -OF-FLQU'
ILLER5
.DIVISION.
ING SECTION.
FILES,
INPUT DA.TA1
OUTPUT PERKI
PIC
PIC
PIC
PIC
SPACES.
i i „
SPACES.
i
i
SPACES.
' . ' .
SPACES.
i i .
SPACES.
i . . • • 'I
SPACES.
SPACFS.
(14).
(9).
(12).
TURF X(30).
TURE X
(12) .
TURE 299.
TURE X
(
12).
PICTURE 2299.
p
P
DO
T
-
OUTPUT TS-PRIN
INPUT -FILE.
SORT-FILE CN
SO-FLOW
ICTURE
ICTURE
-PERMIT
M S T R .
T-FILE.
'•
PIC
• 111.
TURE X
<
11).
.722:2,999.
X(6) .
-
K S T R
.
DESCENDING KEY
INPUT PROCEDURE
900
PRE
040
050
OU
-STOP-
STOP
-SORT
TPUT PROCEDURE
RUN .
RUN .
SECTION.
IS PRE
IS POS
-
T
SORT
-SORT
-INPUT-FILE.
-RfAO-
REAll
CO TO
A-RECORO.
DA TA 1 00 -PERM
060-ENO-PRE
MOVE INFUT-RFCC
060
REL
ADO
GO
I
-
p
T
S
D
-MSTR A
T
OR1-SECT
END
ION .
TO SORT-REC.
EASF SORT-RFC.
1 TO WS-REC-CMT.
TO 35C-REA.D-A-
-ENO-PRE-SOfiT-SFCT
CLOSF
I
DA T A.10Q-FEP.K
3ECORD.
ON.
I
T-MSTS.
065-PRE-SORT-EXIT.
-------
C-5
EXIT.
POST-SORT SECTION.
OlO-RETUffN-RECORO.
RETURN SORT-FILE
IF WSrPRT-CNT IS
OR SO-STATF IS
AT END GO TO
GREATER THAN
MOT EQUAL TO
UR ITE
W R. I T E
URITF
WRITE
WRITE
WR ITE:
WRITE
WRITE
PRT-REC
FRT-RE.C
PRT-REC
PRT-REC
PHT-REC
FRT-REC
PRT-REC
PRT-REC
HFADLR3
HEAOER4
HEACFrTS
nEAOERA
HEAUcR7
HEADERS
203100
203200
203700
203300
203900
204000
204100
204200
204300
204400
204 5 GO
204600
2047uO
204300
204900
205000
205050
205100
2052GO
205300
205320
2054 CO
205500
205600
2057 TO
205300
205900
206000
206005
206010
206053
206060
206070
206100
223300
223400
223500
322700
322300
/*
//GO.SORTLID
//GO.SORTUK01
//GC.SORTUK02
//GO.SORTWK03
//G0.30RTUK04.
//GO.SORTWK05
//GO,SO!HW<06
//GO.TS31 00
// D SN =C N . E F /O Z S . VIF M4 . P E R ,1 S TR 2
// DO UNJT=3330jDISP=COLDjCATLO>>
// OSN=CN.EPAOZe»a'rM4.FFRH3TR3
// OD UNIT=333Qj01SP=(OLD*CATLG>*
// DSM=CN.EPAOZB.UFM4.FERMSTR4 '
//GO.O'JMMY DO OSN = d LOOMGDdSA I N) >OI Sf
//GO.TS34 CO UNIT=SYSDAjO!SP=(NFHjPASS>*
895-CLOSE-OUTPUT-FILES*
45
WS-rlGLD-SD-STATE
AFTER
AFTER
>FTFR
AFTER
AFTEK
AFTfcii
AFTER
AFTER
POSITIONING 0 LIMES
POSITIONING 1 LINES
POSITIONING 1 LINES
POSITIONING 2 LINES
POSITIONING 2 LINES
POSITIONING 1 LIMES
POSITIONING 1 LINES
POSITIONING 1 LINES
FROM HEADTR1
FROM HEAOifi2
FROM
F& OM
FR OM
FRCtt
FROM
FROM
MOVE ZERO TO WS-PKT-CNT
ADO 1 TO VS-FAGE-CNT
MOVE WS-FAGE-CNT TO P-FAGE
MOVE SO-STATF TO US-HOLO-SD-STA 7F.
ADD 1 TO WS-SORT-SF.Q-CMT.
MOVE SD-NPOES-NO TO P-NPDES-NO.
MOVE SO-CCMPAN Y-MAHE TO P-COMP >.N Y-N AMF .
COMPUTF US-PERCFNT-RANK ROU.NDFO
(WS-SORT-SEO-CNT / WS-REC-CNT) *
W.S-PLRCF;NT-RA. MK TO F-PERCENT-RANK •
WS-SORT-SrO-CMT TO F-SEG-NUK6cR .
SO-FI.OW TO P-SU;i-OF-FLOIj,
WRITE PRT-PEC FROM US-PR INT-RECORD AFTER
A00 1 TO WS-PRT-CNT.
SPACES TO SO-FOJRTH-CARO-IMAGE.
WS-PERCEMT-RANK TO S0-FLOW-RANK»
WS-REC-CNT TO SD-REC-CNT*
WS-SORT-SE3-CMT TO SQ-FLOV-3EQ.
OUTPUT-RECORD FROM SORT-REC.
MOVE
MOVE
MOVE
NOVE
MOVE
MOVE
MOVF
W,. ITE
TOO
POSITIONING 1 LINES.
GO TO 010-RETiJRN-RFCQRD ,
395-CLQSE-OUTPUT-FlLFS.
CLOSF PERMIT-M3TR.
CLOSE TS-PRINT-FILE.
900-PC3T-SORT-EXIT.
EXIT.
DO OSN=SYS1.SORTLIBjDISP=SHR
00
DC
DO
DO
OD
00
UM T =S Y S C A > S P AC E = ( T R K j ( 300 > .
U N II =S Y3 0 A. , S P AC f; = ( T R K , ( 3 00 )
UN IT = SYSOAjSPACE = (l«Kj(500).
(TRKj C30Q).
C OK T I G )
C ON T I G )
cCNTIG)
>CCNTIG)
UN' I T -S Y 3C .'..- S ? AC E = ( \ P. K i ( 30G ) 11 C C N T I G )
UMT=333QjniSP=(OLDjCATLG)>
-------
C-6
// OCB=(RECFM=F3 j Lf< ECL = 320
//GO .TS32 DO SYSOUT=A
//GC.SYSOUT DD SYSOUT=A
0 LKS I ZE=4 1 60 )
//STFP2
//C08.S
100100
100200
100300
1004GO
10Q50G
103600
100700
100 SCO
1009GO
101000
101100
101200
101250
101300
1014QO
101500
101600
1017GO
101300
101900
102000
102100
102200
1023GO
1025CO
1026CO
103001
104000
105910
105912
105914
105916
105913
105920
105922
105924
105926
105928
105930
105932
FXFC C05VCLG>VER = 4jRFC I ON,GO = 12QK
YSIN 00 *
IDENT IFICATION DIVISION .
PROGRAM-ID- SGRT-OF-FERMlT-KiASTErt .
AUTHOR. DAVF SOt'.MER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. I8M-370.
03JFCT-COKPUTF.R. I3M-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OA TA100-PEH!-! IT-MS TR ASSIGN TO DA-S-FS31.
SELECT T3-PRINT-FILF ASSIGN TO CA-S-TS22,
SELECT SOfU-FILF ASSIGN TO O.A-S-TS33.
SELECT PERMIT-MSTR ASSIGN TO OA-S-T334.
DATA HI VIS ION.
FILE SECTION.
FO OATA100-FEKMIT-M-STS
L>8EL RECORD IS STANDARD
3LOCK CONTAINS 13 RECGilCS
RECORDING MOOE IS F
RECORD CONTAINS 320 CHARACTERS
DATA RECORD IS I Mr IJ T-R ECORD .
01 INPUT-RFCQRO.
05 IR-FIRST-CARD-IMAGE.
10 IR-NFOF.S-fiO.
20 IP-STATE PICTURE
2Q IR-NO PICTURE
10 FILLER PICTURE;
05 IR-SECQNJO-CARD-IMAGE PICTURE
05 IR-THIRO-CARO-IMAGE.
105940
105100
106200
106300
106310
106320
106400
106500
XX.
X(7).
X<71 )
X(£0)
20 FILLER
?H IR-FLQW
20 FILLER
20 IR-500
20 FILLER
ZO IR-TSS
20 FILLER
20 IR-CCO
20 FILLER
20 IR-TE'IP
20 FILLER
20 IR-OTU
2C FILLER
05 IR-FOURTH-CARO-laAGF
20 IR-REC-CNT
20 FILLER
20 IR-FLO'.J-R>.NK
20 FILLER
20 IR-FLO'J-SFO
20 FILLER
20 IR-BOO-RANK
PICTURE XXX.
PICTURE 9(7>V9999.
PICTURE XXX.
PICTURE 9<7)V99.
PICTURE XXX.
PICTURE 9<7)V99.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 999V99.
PICTURE X.
PICTURE 9(1j)V99.
PICTURE X(6).
PICTURF. 9(5).
PICTURE X.
PICTURE 999,
PICTURE .<•
PICT'JRf 9999,
PICTURE X.
PICTURE 999.
-------
C-7
106510
1065ZO
106600
106700
106710
106720
106800
106900
106910 •
106920
107000
107300 .
107310
107320
107/400
1015GO FD
101600
101700
101300
101900
102000
102100 01
107600 FD
1077GQ
107300
107900
1083CG 01
10310Q SD
103200
103300
133403 01
102200
102300
102403
1025GO
102600
102700
102800
103001
104000
105910
105912
1059U
105916
105913
105920
1C5922
105924
105926
105923
105930
105932
105934
106000
106100
106200
106300
20 FILLED
20 IR-UOn-SSC
20 FILLED
20 I-R-TSS-RANK
20 "FILLER
20 IR-TSS-SEQ
20 FILLER
. 21 IR-CUO-RANK
20 FILLER
20 IR-COO-SEQ
20 FILLED
20 IR-QTU-SAfJK
20 FILLER
20 IP.-3TU-SEQ
20 FILLER
PERMIT-HSTR
LAEFL RECORD IS STANDARD
BLOCK CONTAINS 13 NtCGSDS
RECORDING MODE IS F
RFCORD COMA IMS 320 CHARA
PICTURE X.
FICTURP 9999.
PICTUKE X.
P ICTURL 999 .
PICTURE X.
PICTURE 9999.
P I C T U S t X .
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X(ZO).
CTERS
DATA RECORD IS OUT P UT-R ECGR 0 .
OUTPUT-RECORD
TS-PR INT-FILE
LABPL RECORD IS STANDARD
RECORDING MODE 13 F
DATA RECORD IS PRT-RCC.
PRT-REC
SORT-F ILE
RECORD ING MODE IS F
DATA RECORD IS SOIU-SEC.
SGRT-F.hC.
05 SO-FIHST-CARO-IMAGE.
10 SO-NPOES-NO.
20 SO-STATE
20 SO -HO
10 FILLER
10 SD-COKPANY-NAME
10 FILLER
05 SD-SECOMO-C ARD-IMAGE
05 SO-THIRT-CAR3-IKAGL- .
20 FILLER
20 SO-FLOW
20 FILLER
20 SO-BOO
20 FILLER
20 SD-TSS
20 FILLER
20 SD-COO
20 FILLER
20 SD-TEMP
20 FILLER
20 SD-BTJ
20 FILLL-R
05 SO-FOUF.TH-ORO-IMAGP .
20 SO-REC-CNT
20 FILLER
20 SP-FLO'J-RniK
PICTURE XC320)
PICTURE X(133).
PICTURE XX.
PICTURE X(7).-
PICTURE X(13).
PICTURE X(30).
PICTURE X(2S).
PICTURE X(80).
PICTURE XXX.
PICTURE 9(7)V9999.
PICTUkt XXX.
P ICTURE 9 (7 )V99 .
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
P ICTURE 9 (7)99.
PICTUKE XXX.
PlCTUPt 999V99.
PICTURE X.
PICTURE 9(12)V99.
PICTURE X(6).
PICTURE 9(5).
PICTURE X.
P ICTURE 999.
-------
C-8
106310 20 FILLER
106320 20 SO-FLOU-SEO
106400 ?0 FILLER "~ .
106500 20 S3-eOO-i
10
10
10
10
10
FI
R4.
LLFR
FILLER
FI
DE
FI
F
F
F
F
HEAOE
1 0
10
F
F
LLFR
R5.
LLER
ILLER
ILLER
ILLER
ILLER
R6.
ILLER
ILLER
PIC
P
T
F
P
P
F
P
P
P
1C
F.R
1C
1C
1C
1C
1C
1C
1C
TURF
TURE
' .
TURE
TURE
TURE
TURE
TURE
TURE
TURE
X
X
X
X
X
X
X
X
X
P
P
P
P
P
P
P
(46) VALUE
(42) VALUE
(45) VALUE
(S3) VALUE
(16) VALUE
(57) VALUF.
(56) VALUE
(23) VALUE
(54) VALUE
ICTURE X(75
ICTURE X(3)
SPACES.
'NATION
SPACES.
SPACES.
'DENVER*
SPACES.
SPACES.
' 3CDS -
SPACES.
) V/LUE
VALUE
ICTURE X(10) VALUE
ICTURE XXXX
ICTURE X(36
ICTURF X(14
ICTURE X(9)
VILUF
) VALUE
) VALUF.
VALUE
L ENFORCEMENT INVEST IGA
COLORADO'.
DY PERCENT RANK1 .
SPACES.
'PER CENT .'
SPACES.
'SE.O.i.
SPACES.
SPACES.
•NPOES NO.1 .
-------
C-9
109445
109446
1094 A 7
109550
109455
109460
109465
109470
109471
109472
109475
109477
109430
109481
109432
109483
109435
109490
109495
109496
109497
109497
109493
109499
109500
109510
10952G
109530
109532
109534
109540
109550
109560
109570
109550
109590
2QDOCO
2001GO
200200
200730
20G300
200400
2005GO
200500
200700
200900
201000
201100
201200
201300
201400
201500
201600
201650
201700
202600
202610
01
01
10
10
10
10
10
1P
10
10
.10
F
FILLER
FILLFR
FILLER-
FILLER
FILLFP.
FILLER
FILLER
F ILLER
PICTURE X(15) VALUE SPACES,
PlCTUhr >(24) VALUE "COMPANY
"'PICiURF X(15> VALUE SPACES.
PICTURE XX.XX VALUE 'RANK1. •
PICTUKE X(12) VALUE SPACES.
PICTURE XXXX VALUE ' NO,'.
FICIURF XC12) VALUE SPACES*
PICTURE X(12) VALUE ' SUM OF
PICTURE X(12> VALUE SPACES.
NAME'
BOO
01 HFAOEF7.
10
10
1Q
10
10
10
10
10
10
10
10
10
FILLER
FILLER
F ILLER
FILLER
FILLER
FILLER
FILLER
FILLFR
FILLER
FILLER
FILLER
FILLFR
FICIUftE
PICTURE
PICTURE
P IC1URE
PICTURE
F ICTJRE
PICTURF
P ICTURE
PICTURE
PICTURE
PICTURE
PICTURE
XC1 2)
XC13)
XC3)
XC1 7)
X(17)
X(S)
X<8)
X(3)
X(S)
X(3)
X(1 6)
X(10)
VALUE
VALUE
VALUE.
VALUE
VALUE
VALUF
VALUE
VALUE
VALUE
VALUE
VALUt
V.i. L'JF
SPACES.
i
S P A C c 5 •
SPACES.
SPACES.
HEADERS.
10 FILLER
WS-PR IMT-RECORD.
PICTURE X(133) VA.LUr SPACES.
10 FILLER1 PICTURE
10 P-NPDES-NO PICTURE
10 FILLER2 PICTURE
10 P-COMPAMY-NAME PICTURF
10 FILLFR2A PICTURE
10 P-PER CENT-RANK PICTURE
10 FILLER3 PICTURE
10 P-SFO-NUMBER PiCT'JKL-
10 FILLER4 PICTURF
10 P-SUM-CF-30Q PICTURE ijlililiZ.
10 FILLERS PICTURE X(5),
PROCEDURE DIVISION.
HOUSFKFEPIN'G SFCTIOM.
010-OFEN-FILES. ' '
OPEN INPUT DATAl00-P£RMIT-HSTR.
OPEN OUTPUT PERMlT-rtSTR.
OPEN OUTPUT TS-PRINT-FILE.
020-SORT-IKPUT-FILE.
SORT SORT-FILE ON 0 ESCtN'O ING KEY
SO-BOO
INPUT PROCEHUPE IS PRE-30RT
OUTPUT PROCEDURE IS POST-SORT.
900-3TCP-RUM.
STOP RUN.
PRF-SORT SECTION.
040-INPUT-FILE.
050-REAO-A-RECORO.
RFA.D D ATA 1 00-PERM I T-MSTR AT END
GO TO 06C-EN.O-PRE-SORT-SFCTION.
MOVE INPIJT-RFCORO TO SORT-REC.
RELEASE SORT-RSC.
ADO 1 TO WS-RFC-CNT.
X (1 4 )
X(9) .
X(12)
X(30)
X(12)
Z99.
X(12)
ZZ99.
XC13)
-------
C-10
'202700
202300
202900
203000
201100
203200
203700
203300
203900
2040GO
2041UO
204200
204300
204ACO
204500
204600
204700
204300
204900
205000
205050
2051CO
205200
205300
205320
2054CO
205500
2056CO
205700
205300
205900
206000
20 S010
206053
206060
206070
206100
22330J
223400
2235GO
322700
322300
GO TO 050-REAQ-A-RPCORD»
060-EKD-PRE-SORT-SECT I ON.
CLOSE QATAIQO^PPRrtlT-.-lSTR.
065-PRE-SCRT-FXIT.
F XI T .
POST-SORT SECTION.
010-RFTURN-RECU3D.
RETURN SORT-FILE
IF WS-PRT-CNT IS
OR SO-STATE IS
WRITE PRT-REC
WRITE PRT-REC
WRITE FRT-REC
WRITE PRT-REC
WRITF. FRT-REC
WRITF PRT-REC
WRITF PRT-nEC
WRITE PRT-REC
AT END GO TO
GREATER THAN
NOT EG UAL TO
.S95-CLG3F-OUTPUT-FILES.
45
WS-HOLCi-SD-STATF.
HEAJcRI
HEADER 2
HEADER 3
HEADER4
HEAOtiRS
HEADERS
HFAOES7
HEADS R8
AFTER
AFTFR
AFTLR.
AFTEK
AFTER
AFTER
AFTER
AFTtfc
PC'S I
PCSI
POSI
PC SI
PCSI
PCSI
PCSI
POSI
T
T
T
T
r
T
T
T
ION ING
ICNING
I C N I N G
I 0 N I N G
I 0 M N G
I ON ING
ION ING
IONING
0
1
1
2
2
1
1
1
LINES
LINFS
LINES
LINES
LINES
LINFS
LINES
LINES
ADD 1
MOVE
MOVE
FROM
FRO/,
FROM
FROM
FROM
FROM
FROM
FROM
MOVE ZERO TO WS-PPT-CNT
ADD 1 TO WS-PAGE-CNT
MOVE WS-FAGE-CNT TO P-PAGE
HOVE SO-STATE fo KS-HOLD-SO-STATE.
TO W3-SGRT-SE3-CNT.
SD-NfOES-NO TO P-NPOES-N'Q.
bT'-CCMPANY-NAME TO P-COMPANY-NAKt»
COMPUTE U-S-PESCFNT-RANK ROUNDED
(WS-SURT-SEfj-CNT / Wo>-RFC~CNT> * 1001
MOVE WS-FtRCENT-RANK TO P-PERCENT-RANK,
MOVE V.'S-SORT-SFO-CN!T TO F-SEO-NUMBFR t
MOVE SO-BOO TC ? -SUil-OF-3 00 «
WRITE PRT-RtC FROM W5-PR IN'T-KCC C^C AFTER PCS ITI ON !N«.- 1
ADD 1 TO V;S-PRT-CNT.
MOVE WS-FE3CENT-RANK TO SO-BOD-KAHK.
MOVE WS-RETC-CNT TO SO-REC-CNT.
KOVb" WS-SORT-SEQ-CN'T TO SO-30D-SEC.
WRITE OUTPUT-RECURO FROM SORT-REC.
GO TO G10-RE7URN-RECORO.
895-CLOSE-OUTFUT-FlLcS.
CLOSE PERMIT-MSTR.
CLOSE TS-PRINT-FILE.
900-POST-SORT-EXIT.
EXIT.
LINES.
//GO.SORTLI3 00 DSN=SYS1 .SORTLI3jOISP=SHR
//r.O.SORTWKOI OC UN IT = SYSOA,SPACE =
//GO.SOF.TUK02 OC UN I T = S YSO A > SP AC E= ( TRX j ( 300 ) a CO NT I G )
//GO.SORTWKO? DC UN IT = S YSG.»., S PACE = ( TR K > ( 300 ) jjCCKTIG)
//GO.SORTWKQ4 DO UN I T = S YS DA , S P ACE = ( Ti< K i ( 300 ) , , COK T I G )
//GO.SORTWK05 DO UN IT = SY3OA,SPACE = (TRK,(300)j»CCN1 IG)
//GO.SORTWK06 DD UN I T = SY30A,3PACc = '
//GO.TS31 DD UNlT=SYSOAiDlSF=(OLD.
//GO.DUMMY DD 0 S\=«S LOOMOO ( MA I N > >0 I SP= ( OLD tO ELE Tt )
//GO.TS34 3D UH I T = S YSO A j ?. I SP = (N E W if A SS ) i
// CCB=(RECFM=FB>LRECL=320^GLKSI2£=4160)
//GO.TS32 DD SYSOUT=A
-------
c-n
//GO.S
/*
//STEP
//COS.
100100
100200
100300
100400
100500
100600
100700
100800
100900
101000
101100
101200
101250
101300
10UOO
101500
101 600
101700
101300
1019CO
102000
102103
102200
102300
102400
102500
102603
103001
104000
105910
105912
1G5914
105916
105913
105920
105922
105924
105926
105923
105930
105932
105934
105940
106100
106200
106700
106310
106320
106400
106500
106510
106520
105600
YSOUT 00 SYSOUT=A
3 EXEC C03VCLGjVER=4*RFGION.GO=12aK
SYSIN DO »
IDENTIFICATION DIVISION,
FROGiUM-IDe SORT-OF-PERMIT-MASTER .
AUTHOR« DAVE SCMMER,
ENVIRONMENT DIVISION.
CONFIGURATION SECTION. '
SOURCF-COMFUTFR. IOH-370.
OBJECT-COMPUTER. ISit-370.
INPUT-OUTPUT SFCTION.
FILE-CONTROL.
STLFCT D ATA1 00-P FRU IT-MS TP. ASSIGN TO DA-S-TS31
SELECT TS-P-TINT-FILE ASSIGN TO OA-S-TS32.
SELECT SOPT-FILE A3SIGU TO DA-S-TS33.
SELECT FERMIT-MSTR ASSIGN TO OA-S-TS34.
DATA DIVISION.
FILE SECTION.
FD DATA1GQ-PEKMIT-MSTR
LABEL RECOfiO IS STANDAHO
BLOCK CONTAINS.13 RFCCROS
RECORDING MODE IS f
RECORD CONTAINS 320 CHARACTERS
DATA RECORD IS INPUT-RECORD.
3 01 INPUT-RECORD.
05 IR-FIRST-CARD-I MAGE.
10 IR-NPDFS-NO.
20 IR-STATE PICTURE
20 IR-XO PICTUfit
10 FILLER PICTURE
05 IR-SFCCNO-CARD-IMAGE PICTURE
05 IS-TH IRO-CARD-IMAGE,
XX.
XC7),
X(71 )
X(8C)
20 FILLER
20 If?-FLOW
20 FILLFR
20 IR-3CD
20 FILLER
20 IR-TSS
20 FILLER
20 IR-COO
20 CILLER
20 IR-TEMP
20 FILLER
20 IR-3TJ
20 FILLER
05 IR-FOURTH-C.'.P.O-IMAGF
20 IR-REC-CNT
20 FILLFR
20 IR-FLOW-RANK
20 FILLER
20 IR-FLOW-SFO
20 FILLFR
20 IR-1300-RANK
20 FILLER
20 IR-800-SEO
20 FILLER
PICTURE XXX.
PICTURE 9(7)V9999.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 9<7)V99.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTUP.E 999V99.
PICTURE X.
F ICTURS 9(13)V99.
PICTUHt X(6)
PICTURE 9(5).
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTUKE X.
PICTUiJE 9999.
PICTURE X.
-------
C-12
105700
106710
106720
1063GC
106900
106910
105920
1070 GO
1077,00
107310
107320
107400
101500 FO
101600
101700
101 SCO
101900
102000
102100 01
107600 FD
1077QD
107300
107900
10300G 01
103100 SD
103200
1083UO
103 4 GO 01
102200
102300
1024GO
102500
102600
102700
102300
103001
104000
105910
105912
105914
105916
105918
105920
105922
105924
105926
105926
105930
105932
105934
106000
106100
106200
1063CG
106310
106320
106400
20 1R-TSS-KANK
20 FILLER
20 IR-TS3-SEO F
20 FILLER
20 IR-COO-RANK
20 FILLER
20 IR-CCO-SEQ P
20 FILLER
20 IR-3TU-RANK
20 FILLER
20 IR-BTU-SFO P
20 FILLER
PFRMIT-MSTR
LABEL RECORD IS STAMDARO
BLOCK CONTAINS 13 RECORDS
RECORDING MODE IS F
PICTURE 999.
PICTURE X.
ICTURF. 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
ICTURE 9999.
PICTURE X .
PICTURE 999.
PICTURE Xo
ICTURE- '9999.
PICTURE X(30).
RFCORO CONTAINS 32D CHARACTERS
DATA RECORD IS OUTP UT-ft ECOfc
OUTPUT-RECORD
TS-FRINT-FILE
LABEL RFCGRD IS STANDARD
RECORDING N03E IS F
DATA RECORD IS P'P.T-REC.
PRT-REC
SORT-FILE
Rf CORD ING MODE IS F
DATA RECORD IS SORT-REC.
SCRT-REC.
05 SC-FIfcST-C ARO-IHAGE »
1C SD-NFOES-NO.
20 SC-STATE
20 SD-NO ' '
10 FILLER
10 SD-CCMPANY-NAM P
10 FILLER
05 SD-SECGND-CARD-IHAGE
05 SD-TH IRO-CASD-I'KAGE .
20 FILLER
20 SO -FLOW •
20 FILLER
20 SO-303
20 FILLER
20 SO-TSS
20 FILLER
20 SO-COO
20 FILLER
20 SD-TFMP
20 FILLER
20. SD-BTU
20 FILLER
05 SO-FOURTH-CA.SD-IHAGE.
20 SD-REC-CMT P
20 FILLER
20 SO-FLOW-R>K!K
20 FILLER
20 SO-FLOU-SEO
20 FILLER
a.
PICTURE X<320),
PICTURE XC133).
PICTURE XX.
PICTURE X(7).
PICTURE X<13>3
PICTUKE: xc30).
PICTURE XC22).
PICTUF.E X(30).
PICTURE XXX,
PICTURE 9(7)V9999.
PICTURb XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 999V99.
PICTURE X .
P 1C TORE 9 (13)V99.
PICTURE X(6).
ICTURE 9(5).
PICTURE X .
PICTURE 999»
PICTURE X.
PICTURE 9999.
PICTURE X.
-------
C-13
106500
106510
106520
106600
106700
106710
106720
106800
106900
106910
106920
107000
1073CG
107310
107?20
107403
109400
1021CO
109410
109412
10941 2
109415
109411
123000
120100
120200
120300
120400
120500
1 20600
120610
120620
120700
120800
120900
121000
1211GO
121200
121300
12UOO
121300
121600
121700
121300
121900
121911
121912
109415
109420
109425
10943.0
109432
109435
109440
109445
109446
109447
WORK
11
01
01
01
01
T1
01
-
01
-
01
01
01
01
20 SD-BCD-fJANK
20 FILLER
20 SO-B03-SEO
20 FILLER
20 SO-TSS-RANX
20 FILLER
20 SO-TSS-SEQ
20 FILLER
20 SQ-COD-RANK
20 FILLER
20 SO-COO-SEO
20 FILLER
20 SD-6TU-RANK
20 FILLFR
20 SO-STU-SEC
20 FILLER
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X<30).
ING-STOPAGE SECTION.
WS-RFC-CNT
WS-PRT-CNT
WS-HOLD-SO-STATE
WS-SORT-SEQ-CNT
US-PEhCFNT-RA.NK.
WS-PAGE-CNT
HEADFR1 .
10 FILLER PICTURE
10 FILLER PICTURE
i Y' ,
1C FILLER PICTURE
10 FILLER PICTURE
10 P-FAGE PICTURE
10 FILLER
1C FILLER
HEADER 2.
10 FILLER PICTURE
10 FILLFR PICTURE
' T ION'S CENTER' .
10 FILLER PICTUPF
HEA OER3.
10 FILLER PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
HE.JOER4.
10 FILLFR PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
HEADERS.
10 FILLER
10 FILLER
10 FILLER
10 . FILLER
10 FILLER
HEJDER6. ""
10 FILLER
10 FILLER
10 FILLER
1C FILLER PICTU
10 FILLER
PICTURE 9(4) VALUE ZEROES.
PICTURE 99 VALUE 60.
PICTURE >X VALUt SPACES.
PICTURE 9(4) VALUE ZEROES.
PICTURE 999V9 VALUE ZEROES.
P 1CTURE 999 VALUE 001 .
X(51) VALUE SPACtS.
X(31) VALUE 'ENVIRONMENTAL PROTECTION AGENC
XC19) VALUE SPACES.
X (5) VALUE 'PAGE • *
99 VALUE 1.
PICTURE X(14) VALUE SPACES.
PICTURE X(11) VALUE «P-5
X(46) VALUE SPACES.
X(42) VALUE 'NATIONAL ENFORCEMENT INVFSTIGA
X(45) VALUE SPACES.
X(60) VALUE SPACES.
X(1S) VALUE 'OENVERj COLORADO'.
X(57) VALUE SPACES.
X(56) VALUE SPACES.
X(23) VALUE ' TSS - BY PERCENT KANK".
X(54) VALUE SPACES.
PICTURE X(75) VALUE SPACES.
PICTURE x(3> VALUF >PER CENT'.
PICrURF. X(10) VALUE SPACES.
PICTURE XXXX VALUE 'SEO.'.
PICTURE X(36) VALUE SPACES.
PICTURE X(14) VALUE SPACES.
PICTURE X(9) VALUE 'NPDES NO.'.
PICTURE X(15) VALUE SPACES.
RE X(24) VALUE 'COMPANY NAME'.
PICTURE X(15) VALUE SPACES.
-------
C-14
109550
109455
109460
109465
109470
109471
109472
109475
109477
1094SO
109451
109432
107433
109435
109490
109495
109496
109497
109497
109498
109499
1095 CO
109510
109520
109530
109532
109534
109540
109550
10956C
10957J
109580
10959Q
2000CO
200100
200200
2D0300
2G03GO
200400
203500
200500
200700
200900
201000
201100
201200
201500
201400
201 500
2016CO
201650
201700
202500
202610
202700
202300
202900
01
10
10
10
10
10
10
HFAO
1 0
10
10
10
1 0
13
10
10
1C
1 0
10
10
FILLER
FILLER
FILLER
FILLE-S-
F ILLER
FILLER
FR7.
F ILLER
F ILLER
FILLER
FILLER
F I LLF R
F ILLFR
FILLER
FILLER
FILLER
FILLER
F ILLFR
FILLER
01
01
HEADERS.
10 F ILLFR
US-PR INT-RECORD
PICTURE
P ICTURE
MCTU'JF
P ICTURF
PICTURE
PICTURE
P ICTURF
PICTURE
P ICTUiiE
F ICURE
PICTURE
PICTURE
F ICTURE
P ICTU2E
PICTUfcC
F ICTURF
PICTURE
PIC1UF;E
PICTURE XC133) VALUE SPACES.
xxxx
XC1 2)
XXX A
XC1 2)
X ( 1 2 )
XC12)
X(1 23
X ( 1 3 )
XC8)
XC173
X(1 7)
XC3)
XC3)
XC3)
XC3)
XC3)
XC1 6)
XC10)
VALUE
VALUE
VALUE
VALUE
\j £ L I J P
VALUE
VALUE
VALUE
,VALUE
'VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
V/.LUE
V/LUE
'RANK • .
SrACES.
i N 0 j ' •
SPACES.
' SUM OF TSS '.
SPACES.
SPACES.
i ' .
SPACES.
i i
i i
SPACES.
i i »
SPACES.
i t .
SPACES.
i t
SPACES.
10
10
10
10
1C
10
1 0
10
10
10
1C
PICTURE
PICTURE
PICTURE
PICTURE
PICTURE
PICTURE
PICTURE
P ICT'JRL
PICTURE
PICTURE
PICTUSF
XC5)
FILLER1
P-NFQFS-NO
FILLFR2
P-COr!PANY-NAHc
FILLER2A
P-FFRCENT-RANK
F ILLFR3
P-SSQ -NUMBER
FILLER*
P-SUM-OF-TSS
FILLER5
PRCC^DURF DIVISION.
HOUSEKEEPING SECTION..
010-OPEN-FILES.
OPEM INPUT CUTA100-PERMIT-MSTR.
OPEN OUTPUT PEa.MIT-MSTR.
OPEN OUTPUT TS-PRINT-FILF.
02C-SORT- INPUT-FILE.
SORT SORT-FILF ON DESCENDING KEY
SD-TSS
INPUT paocunuRE
OUTPUT HROCEOU;0 DATAlDO-PtRI'.IT-M.STR AT ENO
GO TO 063-FND-POF-SOnT-SnCTION .
MOVE IMPUT-KciCORD TO SORT -SEC.
RELEASE SOR1-REC.
ADO 1 TO US-KFC-CNT.
GO TO 050-SEAO-A-RFCORD.
060-ENO-PP.C--SOfiT-SECTION.
CLOSE OATA100-PERMI T-MSTR.
-------
C-15
203000
203100
203200
203700
203300
203900
204000
234100
204200
2043CO
2044GO
204500
204600
204700
204800
204900
205000
205050
205100
205200
205300
205320
205400
205500
205600
205700
205300
205900
2060GO
206010
206050
2 0 60 60
206070
206100
223300
223400
2235GO
322700
322300
/*
065-PRE-SCRT-EXIT.
F-XIT.
POST-SORT SECTION.
010-RFTURN-RECORO.
RETURN SORT-FILE
IF US-PRT-CUT IS
OR SO-STATE IS
WR ITE PRT-REC
WRITF PRT-StC
WR ITE
WR ITE
. WRITE
WRITE
WRITF
WR ITE
AT END GO TO
GRtATER THAN
NOT EOUAL TO
3c/5-CLCSF -OUTPUT-FILES.
45
WS-HQLU-SO-STATE
PRT-REC
PRT-R^C
FRT-Rb'C
FRT-REC
PRT-RcC
PRT-KEC
H r- A 0 fc: R 1
HF ADES2
HEAUF.r<3
HEABFR4
HEA3ER5
H.F ADtR6
HEADER?
HEADERS
AFTER
/•FTFK
A F T fc R
A F T E Ti
AFTER
AFTER
AFTER
AFTER
POS
PLS
POS
PUS
PCS
PCb
PCG
POS
I
I
I
I
I
I
I
I
T
T
1
T
T
T
T
T
ION ING
IONING
I CM .ING
1 0 N I K G
I 0 N 1 1! S
I ON ING
IDfJlNG
I ON I KG
0
1
1
2
2
1
1
1
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
FROM
FROM
FROM
FSOH
FROM'
FROM
FROM
FROK
HOVE ZERO TO WS-PRT-CNT
ADD 1 TO WS-FAGE-CNT
HOVE US-PAGE-CNT TO P-PAGE
MOVE SO-STATE TO US-HOLO-SD-STAT£.
ADO 1 TO US-SOm-SEQ-CNTt
MOVE SD-NP3ES-NO TO P-KPOES-NO.
MOVE SC-COMPAN.Y-HA.ME TO P-COMP AN Y-N AME .
COMPUTE WS-FERCEMT-RANK ROUNDED
CWS-S03T-SEO-CNT / W3-RFC-CNT) "
MOVE US-PERCENT-RANK TO P-PERCENT-RANK.
MOVE WS-SCRT-SPQ-CN'T TO P-S EO-HUHSER .
MOVE SO-TSS TO P-SU:i-OF-TSS.
URITF PRT-REC FROM WS-PR INT-fcECCKD AFTER
ADP 1 TO US-PRT-CNT.
MOVE US-t-iERCIHf!T-RANK TO SO-TSS-RANK.
MOVE WS-REC-CMT TO 30-3EC-CNT .
MOVE WS-SORT-SEO-CMT TO SO-TSS-SEO.
WRITE OUTFUT-KECOKL) Fr<0ti SORT-SIC.
GC TO 010-RETURN-RECORO.
395-CLOSE-OUTPUT-FILES. .
CLOSE PERMIT-MSTR.
CLC5F TS-FRINT-FILE.
900-POST-SCRT-tXIT.
EXIT.
100,
POSITIONING 1 LINES.
DD DSN=SYS1.SORTLI3JDISP=SHR
DD UN!T = SYSRAjSPACE = ORiO(300>jjCONTIG>
DD L?N IT = SYSCAjSPACE = ClRKj (3CO
//GO.SORTVX01
//GO.SORTWK02
//GO.SORTW<0?
//GO.SORTWK04
•SORTWK05
.SORTWK06
,TS31 DO
// OSM=
J/GO.DUMMY DO
//G0.1S34 DD
// DSN= jSPACE = ( T«X> (300 )
UN !T = S YSOA , SPACE = (TRX> C 300 )
C ON T I G )
iCONT 1 G)
>C CNT I G 3
jCCNT IG)
OSN=aLOOMOD VER=4 > RFC I ON • GO = 1 20K
-------
C-16
//C03 .3
100100
10-3200
100300
100400
100500
100600
100700 .
100300
100900
101000
101100
101 2UO
101 250
101300
101400
101 50C
101600
101700
101300
101900
102000
102100
102200
102300
102400
102500
102600
103001
104000
105910
105912
1059H
105916
105913
.105920
105922
135924
105926
105923
105930
105932
105934
105940
106100
106200
10630C
106310
106720
106400
106500
106510
106520
106600
106700
106710
106720
YSIN DO *
IDENTIFICATION DIVISION .
PROGRAM-ID. SCRT-OF-FERMIT-MASTER .
AUTHOR. DAVE SOMMGR.
FMVIRON1ENT DIVISION.
CONFIGURATION SECTION.
SOURCF-COMFUTFR. I3M-370.
OBJECT-COMPUTER. IBM-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SFLFCT OATA1.10-PERM IT-MSTR ASSIGN 10 DA-S-TS31
SELECT TS-PRINT-FILE • ASSIGN TO DA-S-TS32.
StLECT SORT-FILE ASSIGN TO DA-S-TS33.
SELECT PERHIT-MSTR ASSIGN TO OA-S-TS34.
DATA DIVISION.
FILE SFCTIOM. '
F3 OA.TA1 CO-PERM I T-KSTR
LABEL RECORD IS STANDARD
BLOCK CONTAINS 13 RFCGrtOS
RECORDING f.OOE IS F
RECORD CONTAINS 320 CHARACTERS
OATA RECORD IS I NPU T -R ECOR C .
01 INPUT-RFCOF.D.
05 IR-FIRST-CARO-IMAGE . .
10 IR-NF3ES-NO.
20 IR-STATE PICTURE XX.
20 IR-NO PICTURE X<7>.
10 FILLER PICTUKt X(71 ) .
05 IR-SECOMO-CAR3- IMAGE PICTURE X(£G).
05 IR-TH IRO-CARD-IMAGE .
20 FILLER PICTURE XXA.
20 IR-FLOU PICTURE 9(7)V9999.
20 FILLER PICTURE XXX,
20 IR-30D PICTURE 9(7)V99.
20 FILLFR PICTURE XXX.
20 IR-TSS PICTURE 9(7)V99.
20 FILLER PICTURE XXX.
20 IF.-COD PICTURE 9(7)V99.
20 FILLER PICT'JKF XXX.
20 IR-TFMP PICTURE 999V99.
20 FILLER PICTUI'.E X.
20 IR-BTU PICTURE 9<13)V99.
20 FILLER PICTUKE X(6).
05 IR-FOUKTH-CARD- IMAGE.
20 IR-REC-CNT PICTURE 9(5).
20 FILLER . PICTURE X.
20 IR-FLOW-RANK PICTUf-.E 999.
20 FILLER PICTURE X.
20 IR-FLOW-SFQ PICTURE 9999,
20 .FILLER PICTURE X.
20 IP.-BOC1-RANK PICTURE 999.
20 FILLER PICTURE X.
20 IR-BOn-SEO PICTURE 9999.
20 FILLER PICTURE X.
20 IR-TSS-P.AN.K PICTURE 999.
20 FILLER PICTURE X.
20 IR-TSS-SEQ PICTURE 9999.
-------
C-17
106800
106900
106910
106920
107000
107300
107310
1073«>0
107400
101500 Fi>
101600
1017GG
101800
101900
102000
102100 01
107600 FD
107700
107800
107900
108000 01
108100 SD
103200
108TOO
108400 01
102200
102300
102400
10?500
1C26GO
102700
102300
103001
104000
105910
105912
105914
105916
105918
105920
105922
105924
105926
105928
105930
105932
105934
106000
106100
106200
106300
106310
106320
106400
106500
106510
106520
20 FILLER
20 IR-COO-RANK
20 FILLER.
20 1R.-COD-SEQ
20 FILLER
20 IR-B.TU-RANK
20 FILLER
20 IR-BTU-SEQ
20 FILLER
PERMIT-MSTR
LAG EL RECORD IS STANDARD
BLOCK CONTAINS 13 RECORDS
RFCORD ING KOOE IS F
RECORD CONTAINS 320 CHARA.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE. 'X.
PICTURE 9999,
PICTURE X(3O.
CTF.RS
DATA RECORD IS OUTP UT-R CCORQ .
OUTPUT-RECORD
TS-PRINT-FILE
LABEL RECORD IS STANDARD
RECORDING MODE. IS F
DATA RECORD IS PRT-REC.
PRT-REC
SORT-FILE
RECORDING MODE IS F
OATA RECOKD IS SORT-REC.
SORT-REC.
05 SD-F IP.ST-CARO-IMAGE •
10 SO-NPOFS-NO.
20 SD-STATE
20 SD-NC
10 f-ILLFP.
10 SD-COMP ANY -NAME
10 FILLER
05 SD-SECOHO-CARD-IMAGE
05 S3-THIKO-CARO-IMAGE.
20 FILLER
20 SO-FLOW
20 FILLER
20 SO-BOD
20 FILLER
20 SQ-TSS
20 FILLER
20 SD-CCD
20 FILLER
20 SD-TEMP
20 FILLER
20 SO-BTU
20 FILLER
05 SD-FOURTH-CARD-lM*r,E.
20 SO-REC-CNT
20 FILLED
20 SO-FLOW-RANK
20 FILLER
20 SD-FLOW-SEO
20 FILLER
20 SD-BOO-RANK
20 FILLER
20 SD-BOO-SEO
PICTURE X(320>
PICTURE XC133).
' PICTURE XX.
PICTURE X(7).
PICTURE XC13).
PICTURE X(30).
PICT USE X(28).
PICT UKE x(60).
PICTURE XXX.
PICTURE 9(7)V9999.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XX*.
PICTURE 9 C7)V99 .
PICTURE XXXf
PICTURE 9(7)V99.
PICTURE XXA.
PICTURE 999V99.
PICTURE X.
PICTURE. 9(1 3)V99.
PICTURE X<6).
PICTURE 9(5).
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTL'kE X.
PICTURE 9999.
-------
C-18
106600
106700
106710
106720
106300
106900
106910
106920
107000
107300
107310
107320
107400
20 FILLER PICTURE X.
20 SD-TSS-R-ANK PICTURE 9V9*
20 FILLER PICTURE X.
20 SD-TSS-SEO . PICTURE 9999.
20 FILLER PICTURE X.
20 SD-CGO-RANK PICTURE 99V •
20 FILLER . .. PICTURE X.
20 SO-CC3-SEO PICTURE 9999.
20 FILLER PICTURE. X.
20 SD-BTU-RANK . PICTURE 999.
20 FILLER PICTUKE X.
20 SD-BTU-SEO PICTURE 9999.
20 FILLER . PICTURE X(30;»
1Q9400 WORKING-STORAGE SECTION. ,///
102100 01
109410 01
109412 01
109413 01
109415 01
109411 01
1200QO 01
120100
120200
120300-
120400
120500
120600
120610
120620
12Q700 01
120300
120900
1 21QOO-
121 100
121200 01
121300
121400
12150C
121 600 01
121700
121300
-121900
121911 01
121912
109415
109420
1094 25
109430
109432 01
109435
109440
109445
109446
109447
109550
109455
109460
WS-RFC-CNT PlCTi;/" '
WS-PRT-CNT - PICTURE 99 VALUE 60.
WS-HOLD-SD-STATF PICTURE XX VALUE SPACf''*
WS-SOKT-SEC-CNT PICTURE 9(4) VALUE iEfc';? ''*,:,,
WS-PERCENT-RANK PICTURE 999V9 VALUE /: ' '
WS-PAGE-CNT PICTURE 999 VALUf. 001.
HEAOER1 . . ...
10 FILLER PICTURF X(51) VALUE SPACES. ,.;',,
10 FILLER PICTURF X(31) VALUE ' EN V IR OM1 E,'( ' ' '
i Y' .
1C FILLER PICTURE X(19) VALU^ SPACES.
10 FILLER PICTURE X<5> VALUE 'PAGE '.
10 P-PAGE PICTURE 99 VALUE 1. /•"»
10 FILLER PICTURF X(14) VALUL W >'•'''
10 FILLER PICTURE X(11) VALUfe 'J"'7'
HEA.OER2.
1C FILLER PICTURE X(46) VALUE SPACES. . f, t t *
10 FILLER PICTURE X(42) VALUF 'NATIONAL F.'i* '
• Tior:s CENTER' .
10 FILLER PICTURE X(45) VALUE SPACES.
HEADER}.
10 FILLER PICTURF X ( 60 ) VALUE SPACES. •//'/'
10 FILLER PICTURE X(16) VALUE 'OEMVtR* COI""'
10 FILLER PICTURE X(57) VALUE SPACES.
HEADEF.4.
10 FILLER PICTURE M5-6) VALUE SPACES. ; ,.,/()(
10 FILLER PICTURE X(23) VALUE ' CODS - BY f'?1
10 FILLER PICTURE X(54) VALUE SPACES.
HEADERS.
10 FILLER PICTURE X(75) VALUE £?"'*/,'„('
10 FILLER PICTURE X(3) VALUE ' H- '< ,'
10 FILLER PICTURE X(10) VALUE SP>'-' '*
10 FILLER FICTiJRE XXX)( VALUE '£!&•,*
1C FILLER PICTURE X(36> VALUE SF>'-' '*
HEADER6.
10 FILLER PICTURE XC14) VALUE SP A'- ' ;' *M,; , '
10 FILLER PICTURF X(9) VALUE "N »'!''/
10 FILLER PICTURE X ( 1 i> ) VALUE SPA'-' '* (
10 FILLER PICTURE X ( 24 ) VALUE 'C 0 M •' >.
10 FILLEP- PICTURE X(15) VALUE Sf'ACI • '
10 FILLER PICTURE XXXX VALUE '[?>>'<>'. '
10 FILLER PICTURE X(12) VALUF SP/<-'('f
10 FILLFR PICTURE XXXX VALUE ' * '
//f
'/:
\\-l-
/ .
> *
• ' '
-------
C-19
109465
109470
109471
109472
109475
109477
109480
109431
109482
109483
109485
109490
109495
109496
109497
109497
109498
109499
109500
109510
109520
109530
109532
109534
109540
109530
109560
109570
109580
109590
2000 00
200100
200200
200300
200700
200 /.CO
200500
200600
2C07GO
200900
201000
201100
201 200
201 300
201400
201500
201 600
201650
201700
202600
202610
202700
2 02 3 CO
202900
203000
203100
203200
01
01
01
PRO
HOu
010
10 F
10 F
10 F
ILLER
ILLER
ILLER
P
P
p
ICTURE
ICTURE
ICTURE
X
X
X
(1
(1
(1
2)
2)
2)
VALUE
VALUE
VALUE
SPACES*
1 SUM OF COO ' •
SPACES.
HEADER?.
10 F
10 F
1C F
10 F
10 F
10 F
10 F
10 F
1 0 F
10 F
10 F
10 F
ILLER
ILLER
ILLER
ILLER
ILLER
ILLER
ILLER
ILLER
ILLFR
ILLER
ILLER
ILLER
P
P
P
p
P
f-
P
P
P
P
P
P
ICTURE
ICTURE
IC1URE
ICTURE
ICTURF
ICTURE
ICTURE
ICTURE
ic rudF
ICTURE
ICTURE
ICTURE
X
X
X
X
X
X
X
•x
X
X
X
X
(1
(1
(1
(1
(3
<3
(8
(8
(3
(1
(1
2)
3)
7)
7)
j
)
)
)
6)
0)
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUE
VALUF
VALUE
VALUE
VALUE
SPACES.
i i ,
SPACES.
i
i
SPACES.
1 • .
SPACES.
' •_. . » .
S t A C t S .
i
SPACES.
HEADERS.
1 0 F
WS-PR
10 F
10 P
10 F
10 P
10 F
10 P
10 F
10 P
10 F
10 P
10 F
CFOURE
S E X E E P
-OPEN-
OPEN
OPFN
OPEN
020-SORT-
SORT
ILLFR
P
ICTURE
X
(1
33
) VALUE
SPACES.
INT-RECORD.
ILLER1
-NPDES-NO
ILLFR 2
*
-COMPANY-NAME
ILLER2
A
-PERCENT-RANK
ILLFR3
-SEO-NUMBER
ILLER4
-SU^i-CF-CCD
ILLER5
C I V I S
ING SE
FILES.
INPUT
OUTPUT
OUTPUT
[ON t
CT ION»
OATA1
PERMI
TS-PR
P
P
00
T-
IN
ICTURE
ICTURE
-PtRK I
MSTR.
T-FILE
7
t-
X
T-
•
P
P
P
P
P
P
P
P
P
1C
1C
1C
1C
1C
1C
1C
1C
TURE X<
T'Jisf. X(
T'JKE X(
TURE X(
TURE XC
14).
9) .
1 2 ) «
30).
12).
TJHE 299.
TURt X(
1 2) •
1'Jftt ZZ99.
ICTUR£ X(13).
,Z22
<5
) .
jZZr.99.
MSTR.
INPUT-FILE. ...
SGRT-F
sc-coc
ILE ON
DESCEND
IKPUT PROCEDURE
OUTPUT PROCEDURE
900
-STOP-
STOP
PRE-SORT
040
RUN .
RUN .
INC
IS PRF-
IS POST
KEY
SORT
-SORT,
SECTION.
-IKPUT-FILF.
C50-READ-A-RECORO.
R E A 0
GO TO
DATA100-PERM
060-E
N3-PRE
IT
-MSTR
AT
-SORT -SEC i
MOVE INfMJT-RECORO
TO SORT
P
NO
ION.
-RfcC.
RELEASE SORT-RFC.
060
065
ADD
GO
1 TO
WS-RTC
-c
TG~050-READ-A-
-EKO-PRE-SORT-SECT
CLOSE
DATA1
-PRE-SOftT-GX
EXIT.
POST-SORT
NT.
RECORD
•
ION.
QO-PERHI
IT.
T-MSTR
3
SECTIOM.
-------
C-20
2037CO
203300
203900
204000
204100
204200
204300
2C4400
204500
204600
204700
2C4300
204900
205000
205Q50
205100
2052UO
205300
20S32G
205400
205SOO
205600
205703
2D530Q
2059CO
206000
206010
206050
206060
206070
206100
223300
223400
227500
322700
322SGO
/*
//£0 .SOP.TLI8
//GO.SORTWX01
//GO.SORTUKQ2
//GO.SORTWKH3
//GG.SORTWK04
//GO.SORTV1K05
//GO.JORTWKT6
//GO.TS31 DO
//GO. DUMMY
//GO.TS34
010-RFTURN-RECORD.
RETURN SORT-FILF
IF WS-PRT-CNT IS
OR SD-STATF IS
AT ENO GO TO
G^F.xTEF THAN
NOT EC UAL TO
895-CLOSE-OUTPUT-FILES..
45
VS-HGLD-SD-STATE
POSITIONING 0 LIMES
PC-blTIGNlMG 1 LINES
POSITIONING 1 LINES
PCSI1 IGNINt 2 LIMES
POSITIONING 2 LINES
POSITIONING 1 LINES
POSITIONING 1 LINES
POSITIONING 1 LINES
WRITE FRT-REC FROM HEAOtfd AFTER
WRITE PRT-SEC FROM HEAOER2 AFTER
WRITE PRT-REC FROM HFAOER3 AFTER
WRITE PRT-RCC FROM HEAOER4 AFTER.
WRITE. PPT-REC FSOH HEADERS AFTEf;
WRITE PRT-REC FROM HEADER6 AFTLR
.WRITE PRT-flEC FROM HcAD£R7 .AFTER
. WRITE PRT-REC FROM HEACE.!!£ AFTEk
•MOVE ZERO TO WS-PRT-CNT
ADD 1 TO WS-PAGE-CNT
MOVE WS-PAGF-CHT TO P-PAGE
MOVE SO-STATE TO W3-HOLO-SU-STATE .
ADO 1 TO WS-SORT-SEO-CNT.
MOVE SO-NP.OES-NO TO P-NPDES-N'O.
MOVE SD-COMrANY-NANE TO P-CO.MPAN Y-N AHE .
COMPUTE US-.F'ERCtNT-RANK ROUNDED
(US-SORT-SEO-CNT / WS-REC-CNT) *
MOVE US-f-ERCcNT-RANK 10 P-r ERCEN T-R ANK .
MOVE WS-SORT-SFQ-CNT TO P-SEQ-NUf.EER .
MOVE SD-COO TC P- S'JM-OF-COD »
WRITE PRT-REC FROM WS-PF, IN T-RECORD AFTER
ADD 1 TO WS-PRT-CNT,
MOVE WS-F£RCENT-RAUK TO 3D-COD-RANK.
MOVE ViS-REC-CNT 10 SD-SEC-CNT.
•MOVr WS-SOST-SEO-CNT TO SD-COO-SEO.
VKITE OUTPUT-RECORD FSOM SORT-REC.
GO TO 010-RETURN-RECURO.
395-CLOSE-OUT PUT-FILES,
CLOSE PERMIT-.MSTS.
CLOSF: TS-PRIMT-FILE.
900-PCST-SORT-EXIT.
EXIT.
100,
POSITIONING 1 LINES.
00 OSN=SYS1.SORTLI8JOISP=SH3
OD
DD
DO
OD
OD
DD
UNIT=SYS3AjSPACE=(TRKj(30Q)j»CCNTIG)
UN
= SYSD> i
= SYSi">A>SPACE =
j (3 JO) » CON TIG)
.- (Z-OCI)jjCONTIG)
J ( 300 ) , , C CM I G )
DC D SN = 5 LCDMOD ( MA I N ) jO ISP= (OLD jDlfLETb )
DD Ufv I T = S YSDA , 0 I 3P = (N E W jF A SS ) i
//GO.TS32 DD
//GO.SYSCUT DD
SYSOUT=A
SYSOUT = A
//STEPS EXEC CC3VCLG*VER=4>RFGION.GO=120K
//C03.SYSIM DO »
100100 IDENTIFICATION DIVISION.
100200 PROGRAM-ID. S ORT-OF -PE R M 1 1 -M ASTETR .
-------
C-21
100300
100400
100500
1006GO
100 7 CO
100300
100900
101000
101100
101 200
101250
101300
mi4J(?
101500
101600
101700
101800
101900
102000
102100
102200
102700
102400
102500
102600
103001
104000
105910
105912
105914
105916
105918
105920
105922
105924
105926
105928
105930
105932
105934
105940
106100
106200
106300
106310
106.320
106400
106500
106510
106520
106600
106700
106710
106720
106800
106900
106910
AUTHOR. DAVE SOMMER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBH-370.
08JECT-COMPUTf]R , I3M-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DATAlOO-PrRMlT-MSTR 'ASSIGN TO CA-S-TS31
SELECT TS-PRIM-flLE ASSIGN TO L'ArS-1S32. .
SELECT SORT-FILF ASSIGN TO OA-S-T333.
SELECT PffRMIT-MSTR ASSIGN TO OA-S-TS34.
DATA DIVISION.
FILE SECTION.
FO DATA100-PERNIT-MSTR
LABEL RECORD IS STANDARD
SLOCK CONTAINS 13 RECORDS
RECORDING MODE IS F
RECORD CONTAINS 320 CHARACTERS
DATA RECORD IS INPUT-RECORD.
01 INPUT-RECORD,
05 IR-FIRST-CARD-IMAGE .
10 IR-KPOES-NO.
20 IR-STATE PICTURE XX.
20 IP. -NO PICTURE X(7).
10 FILLER PICTURE X(71>..
05 IR-SF.COND-CARO- IMAGE PICTURE X(80).
05 IR-THIRO-CARD-lM>Gfc.
20 FILLER PICTURE XXX,
20 IR-FLOW PICTURE 9(7)V9999«
20 FILLER PICTURE XXX.
20 IR-80D PICTURE 9C7JV99.
20 FILLER PICTURE XXX.
2C IR-TSS PICTURE 9(7)V99.
20 FILLER PICTURE XXX.
20 IR-COD PICTURE 9(7)V99.
20 FILLER PICTURE XXX.
20 IR-TFMP PICTURE 999V99.
20 FILLER . PICTURE X.
20 IR-BTU PICTURE 9C13)V99.
20 FILLER PIC1Ut%E X(6).
05 IR-FOURTH-CAP.D-IMAGE.
20 IR-REC-CNT PICTURE 9(5).
20 FILLER PICTURE X.
20 IR-FLOW-RANK PICTURE 999.
20 FILLER PICTURE X.
20 IR-FLOW-SFQ PICTURE 9999.
20 FILLER PICTURE X.
20 IR-BOO-RANK PICTURE 999.
20 FILLER PICTURE X.
20 IR-BOO-SE3 PICTURE 9999.
20 FILLER PICTURE X.
20 IR-TSS-RANK PICTURE 999.
20 FILLER PICTURE X.
20 IR-TSS-SEQ PICTURE 9999.
20 FILLER PICTURE X*
20 IR-COD-RANK PICTUR-E 999.
20 FILLER PICTURE X.
-------
C-22
106920
107000
107300
107310
107320
107400
101500 FD
101600
101700
101300
101900
102000
102100 01
107600 FD
107700
107300
107900
108000 01
103100 SD
108200
108300
108400 01
102200
102300
10240J
102500
102600
102700
102300
10.3001
1 04QQQ
105910
105912
105914
105916
105918
105920
105922
105924
105926
105928
105930
105932
105934
106000
1061CJO
1U6200
106300
106310
106320
106400
106500
106510
106520
106600
106700
106710
20 IR-.COD-SEQ
20 . FILLER
20 JR-BTU-RANK
20 FILLER
20 IR-3TU-SEQ
20 FILLER
PERMIT -MSTR
LABEL RECORD IS STANDARD
BLOCK CONTAINS 13 RECORDS
RECORD IMG MOOE IS f
PICTURE 9999.
PICTURE X.
PICTURE 999.
-PICTDkC X.
PICTURE 9999.
PICTURE X(20).
RECORD CONTAINS 320 CHARACTERS
DATA RECORD IS OUTPUT-RECORD.
OUTPUT-RECORD
TS-PRHJT-F ILE
LABEL RECORD IS STANDARD
RECORDING MODE IS F
DATA RECORD IS PRT-REC.
PRT-REC
SORT-FILE
RECORDING MODE IS F
DATA RECORD IS S'ORT-REC.
SORT -PEC.
05 SC-FIRST-ORD-IMAGE.
10 SD-NPOES-NO.
20 SO-STATE
20 SD-NO
10 FILLER
10 SD-COMPANY-NAM E
10 FILLER
05 SD-SFCONO-CARO-IMAGE
05 SD-TH IRC-CARO-I MAGE »
20 FILLER
20 SD-FLOW
20 FILLER
20 SD-3CO
20 FILLER
20 SD-TSS
20 FILLER
20 SD-CCO
20 FILLER
20 SO- TEMP
20 FILLER
20 SD-3TU
20 FILLER
05 SD-FOURTH-CARD- IMAGE .
20 SO-RF.C-CNT
20 FILLER
20 SO-FLOW-RANK
20 FILLER
20 SD-FLOW-SFO
20 FILLER
20 SD-BOtl-RANK
20 FILLER
20 SO-BOD-SEQ
20 FILLER
20 SO-TSS-RANK
20 FILLER
PICTURE X(320).
PICTURE XC133).
PICTURE XX.
'PICTURE X(7).
PICTURE X(13).
PICTURE X(50).
PICTURE X(23).
PICTURE X(80).
PICTURE XXX.
PICTURE 9(7)9999.
PICTURE XXX.
PICTURE 9(7)V99.
PICTURE XXX.
PICTURE 9(7)Y99 .
PICTURE XXX.
PICTURE 9(7)99.
PICTURE XXX.
PICTURE 999V99,
PICTURE X.
PICTURE 9(13)V99.
PICTURL X(6).
PICTURE 9(5).
r ic Tur^c x .
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE X.
PICTURE 999.
PICTURE X.
-------
C-23
106720
106800
106900
106910
106923
107000
1073CG
107310
107320
107400
109400
102100
109410
109412
109413
109415
109411
120000
120100
120200
120300
12D40Q
120500
120600
120610
120620
1207CO
120300
120900
121000
121100
121200
121 HOG
121400
121500
121600
121700
121 300
121900
121911
121912
109415
109420
109/.25
109430
109432
109435
109440
109445
109446
109447
109550
109455
109460
109465
109470
109471
WORK
01
01
01
01
01
01
01
-
01
-
01
01
01
01
20 SO-TSS-SEQ
20 FILLER—
20 SO-COO-RANK
20 FILLER
20 SD-CGO-SEQ
20 FILLER
20 SO-BTIJ-RANK
20 FILLER
20 SD-aiu-SEn
20 FILLFR
PICTURE 9999.
PICTURE *•
PICTURE 999.
PICTURE X.
PICTURE 5999.
PICTURE x«
PICTURE 999.
PICTURE X.
PICTURE 9999.
PICTURE: .X<30).
ING-STORAGE SECTION .
US-REC-CNT
VS-PRT-CNT
WS-HOLD-SO-STATE
US-SORT-SEC-CNT
WS -PERCENT-RANK
WS-FAGE-CNT
HEADER1 .
10 FILLER- PICTURF
10 FILLER PICTURE
••iyi.
10 FILLFR FICTUR.E
1C FILLER FICTURF
10 P-FAGE PICTUPF.'
10 FILLER
10 FILLER
HF>DFR2.
10 FILLER PICTURE
1C FILLER PICTURE
•TIONS CENTER '.
10 FILLFR PICTURE
HEADER3.
1C FILLER PICTURE
10 FILLFR PICTURE
10 FILLFR PICTURE
HEIDER4.
10 FILLER PICTURE
10 FILLER PICTURE
10 FILLFR PICTURE
HEADER?.
10 FILLER
10 FILLER
10 FILLER
1C FILLER
10 FILLER
HFADER6.
10 FILLER
10 FILLFR
10 FILLER
PICTURE 9(4) VALUE ZEROES.
PICTURE 99 VALUE 60.
PICTURE XX VALUF SPACES.
PICTURE 9(4) VALUE 2LROES.
PICTURE 999V9 VALUE ZEROES.
PICTURE 999 VALUE 001 .
X(51> VALUF SPACES.
X(31) VALUE 'ENVIRONMENTAL PROTEC TI ON AGtNC
X(19) VALUE SPAC£S.
X(5) VALUE 'PAGE ••
99 VALUE 1 .
PICTURE X(14) VALUE SPACES.
PICTURE X(11) VALUF 'P-5
X(45) VALUE SPACES.
X(42) VALUE 'NATIONAL ENFORCEMENT INVESTIGA
X(45) VALUE SPACES.
X(60) VALUE SPACES.
X(16) VALUE "DENVER j COLORADO'.
.X(57) VALUE SPACES.
X(57) VALUE SPACES.
X(21) VALUE 'F.TU - BY PERCENT RANK1.
X(55) VALUE SPACES.
PICTURE X(75) VALUE SPACES.
PICTURE X(3) VALUE 'PER CENT'.
PICTURE X(10) VALUE SPACES.
PICTURF. XXXX VALUE 'SF.O.'.
PICTURE X(36) VALUE SPACES.
PICTURE X(14) VALUF SPACES.
PICTURE x(9) VALUE 'NPDES NO.».
PICTURE X(15) VALUE SPACES.
10 FILLF.S PICTURE X<24) VALUE ' C 0 K P A N Y NAM E'.
10 FILLER
10 FILLER
10 FILLER
10 FILLER
10 FILLFR
10 FILLFR
10 FILLER
PICIUHF. X(15) VAL'J-2 SPACCS.
PICTURE XXXX VALUF 'RANK1.
PICTURE X(12) VALUE SPACES.
PICTURF XXXX VALUE ' N0.».
PICTURE X(12) VALUE SPACES.
PICTURE X(15) VALUE ' SUM OF BTU'.
PICTURE X(9) VALUE SPACES.
-------
C-24
109472
109475
109477
109480
109481
109432
109483
109485
109490
109495
109496
109497
109497
109498
109499
109500
109510
109520
109530
109532
109534
109540
109550
109560
10957C
109530
109590
2CGGCG
200100
200200
20G300
200300
200400
2005GO.
200600
200703
200900
201000
201100
201200
201300
201400
201500
2016GO
201650
.201700
202600
20261U
£02700
202800
202900
203000
203100
203200
203700
203800
203900
01
01
01
HEADER7.
10 F ILLER PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
1C1 FILLER PICTURE
10 FILLER PICTURE
10 FILLER PICTURE
10 FILLER FIC1UHE
10 FILLER PICTURE
10 FILLER PICTURE X(2:
m FILLER PICTURE
HFADE&8.
10 FILLER PICTURE
WS-PR INT-RECORO.
10 FILLER1
10 P-NPOES-NO
10 FILLFR2
10 P -COMPANY -NAME
10 FILLER2A
10 P -PERCENT-RANK
10 FILLER3
10 P-SEQ-NIIMBER
10 FILLER4
10 P-SUH-OF-BTU FICTURF '.
10 FILLERS PICTURE
X(1 2) VALUE SPACES.
X(13) V/L!JP • '.
X<3) VALUE SPACES.
X(17) VALUF < ' -' •' ' '.
X(1 7) VALUF i ,'._•_ .' ' '.
X<8> VALUE SPACES.
XffO V>IUF i «.
X(3) V>LUE SPACES.
XfR) VALUF « i.
XC8) VALUE SPACES.
i) VALUE • . • , .
X(7) VALUE SPACES.
X(1 33) VALUE SPACES.
PICTURE X(14).
PICTUKE X(9).
PICTURE XC12).
PICTURE X<30).
PICTURE X(12). .
-PICTURE Z99.
PICTURE X(12).
PICTURE Z299.
PICTURE XC14).
X(6) .
PRE-SORT
POST-SORT.
PROCECURE DIVISION.
HOUSEKEEPTNG SECTION.
010-OFEN-FILES.
OPEN INPUT OATA1GO-FERMIT-MSTR.
OFFN OUTPUT Pi£ Rf, I T-M STR .
OPEN OUTPUT T3-FRINT-FILE.
020-SORT-INFUT-FILE.
SORT SORT-FILE. ON DESCENDING KEY
SO-BTU
INPUT PROCEDURE IS
OUTPUT PROCEDURE IS
900-STOP-RUN.
STOP RUN. '
PRE-SORT SECTION.
04C-INPUT-FILE.
050-RF^O-A-RECORS.
READ DATA10Q-FER.MIT-MSIR AT fNO
GO TO 060-FNO-PRE-SORT-SF.CTIOM.
MOVE INPUT-RECORD TO SORT-REC
RELEASE SORT-REC.
ADO 1 TO WS-RFC-CNT.
GO TO 050-REAO-A-RF.CCRD.
060-FND-PRE-SORT-SECT ION.
CLOSE OATA1GO-PERMIT-HSTR,
065-PRE-SORT-EXIT.
EXIT.
POST-SORT SECTION.
010-RFTURN-RFCORO.
RETURN SORT-FILE AT END GO TO
IF WS-FRT-CNT IS GREATER THAN
895-CLOSE-OUTPUT-FILES.
45
-------
C-25
OR
WRITE
WRITE
WR ITE
UR ITE
WRITF
WRITE
WRITE
WR ITE
SD-STATE IS NOT EQUAL TO WS -HOLU-SQ-S T A TE
PCS I TICK ING"
POSITIONING
POSITION INC
POSITIONING
POSITIONING
PLS ITI ONING
PC'S IT IOH ING
PCS IT I ON ING
PRT-RFC
PRT-REC
FRT-REC
PP.T-REC
PRT-REC
PRT-REC
PRT-REC
HFADER1
HEADEP.2
HEADER3
H E A 0 £ R 4
Hf IDtRS
HEA.CEP.6-
HEAOER7
HEADERS
AFTEK
AFTER
AFTtK
AFTER
AFTER
AFTC-R
AFTEf;
AFTEP.
LINES
LlNfc'S
LlNhS
LINES
LINES
LINES
LINES
LINES
* 100.
POSITIONING 1 LINES.
204000
204100
204200
204300
204400
204500
204600
204700
204800
204900
205000
205050
205100
205200
205300
205320
205400
205500
205600
205700
205300
2059CO
206000
206010
206050
206060
206070
2061CO
223300
22.3400
223500
3227GO
322800
/*
//GO.SORTLI3
//GO.SORTWK01
//GO.SOrtTWK02
//GO.SORTVK03
//GO.SORTWK04
//GO.SORTWK05
//G0.50RTUK06
//GO.TS31 DO
//GO.DUMMY OD
//GO.TS34 DD UN I T = 3330 jDI 3 P=( OLD >C A TLG ) , VOL = SHR = Mt: IC01 >
// DSN=CN.tPAOZe.WFM4.PERMIT.RANKcO.ALLjSFACE=(CYLj<5>2)jRLSE>j
// DC3-(RECFi-i-FBjLRFCL = 320JBLK3I ZF=416U)
//GO.TS32 DO SYSOUT=A
//GO.SYSOUT DD SY50UT=A
FR
FR'OM
FROM
FR OH
FROM
FROM
FROM
FROM
HOVE ZERO TO WS-PRT-CNT
ADD 1 TO WS-PA.GE-CNT
MOVE US-PAGE-CNT TO P-FAGF
MOVL SO-STATE TO US-HOL3-3 D-S T A TE .
TO WS-SORT-SFO-CflTi
MOVE SQ-NFCES-NO TO P-?JPDES-MO.
MOVE SD-COMPAN'Y-NAMF TO p-COMP AN Y-M AME .
COMPUTE WS-PESCENT-RANK ROUNOED
(WS-SORT-SCO-C;jT / WS-REC-C.NT)
WS-PERCFNT-RANX TO P -P£S CE fi T -R AN K .
WS-SORT-SEQ-CMT TO P -SFfJ-NUHBER . . .
SD-8TU TO "P-S UM-QF-8 T U .
WRITE PKT-RFC FROM WS -PR INT -REC CRQ AFTER
ADD 1 TO WS-PRT-CNT.
WS-FERC?TNT-SANX TO SO-STU-RANKt
WS-RFC-CNT TO SJ-RFC-CNT.
US-SORT-SEO-CNT TO SD-3TU-SEQ.
OUTPUT-RECORD FROM SORT-REC.
ADD 1
HOVE
MOVE
HOVE
MOVE
MOVF
MOVE
WRITE
GO TO 010-RETURN-P.FCOP.D .
895-CLOSE-OUTPUT-FILFS,
CLOSE PERHIT-HSTR.
CLOSF TS-PRINT-FILE.
900-POST-GCRT-EXITi
FXIT.
DO OSN=SYS1 .SORTLI3 jD ISP=SHR
DD U N I T = S YSC A , S P AC E = ( T R X j ( 300 ) i .1 C C N T ! G
DD U
DD U
DD U
DD lJ
DD U
UMT = SYSDA
= SYSDA
^DELETE) i
-------
C-26
-------
APPENDIX D
RATING PROGRAM
-------
D-l
WORKSPACE "PERMITC3
TYPE=SEOUfcNCEj USER I0 = EPADZ8
DATE=09/23/77> T IME=10:34:19
00000100
00000200
00000300
00000400
00000500
00000600
00000700
00000300
OOOOG900
00001000
00001100
00001200
00001300
OU001400
00001500
00001600
00001700
00001800
00001900
00002000
00002100
00002200
00002300
00002400
00002500
000026^0
00002700
00002300
00002900
00003000
00003100
00003200
00003300
00003400
00003500
00003600
00003700
00003SOO
00003900
00004000
00004100
00004200
00004300
nnno4400
00004500
00004600
00004700
00004800
00004900
00005000
00005100
00005200
00005300
00005400
00005500
00005600
00005700
//STEP1
EXEC C03VCLGjVER=4
//COB.SYSIN
100100
100200
100300
100400
1005CO
100600
100700
100800
100900
101000
101100
101200
101210
101300
101400
101500
101600
101700
101800
101900
102000
102100
102200
102300
102400
102500
102610
102620
102630
102640
102650
102660
102670
102700
102810
102820
102821
102822
'102830
103000
103001
103002
103003
103004
103005
103006
103007
103008
103009
103010
103012
103012
103013
103014
103015
DO *
IDENTIFICATION DIVISION.
P RO G R AM - 1 D * P E R M I T -PO I N T I HG •
AUTHOR. JOHN LEE.
ENVI
CONF
RONMENT DIVISION.
IGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
INPU
T-OUTPUT SECTION,
FILE-CONTROL*
DATA
FILE
FD
SELECT PERMIT-MSTR ASS
SELECT PERMIT-PTS ASS
SELECT PARAMETER ASS
SELECT TS-PRINT-FILE
DIVISION.
SECTION.
FLRM IT-MSTR
LABEL RECORD IS STANDARD
BLOCK CONTAINS 13 RECORD
RECORDING MOOt IS F
RECORD CONTAINS 320 CHAR
IGN TO
IGN TO
IGN TO
ASSIGN
S
ACTERS
DA
-S-TS31
*
DA-S-TS33.
OA-
S-TS34.
TO DA-S-
TS32.
DATA RECORD IS INPUT-RECORD,
01
INPUT-RFCORO.
05 .IR-FIRST-CARQ.
10 IR-NPOES-NO.
20 IR-STATF
20 IR-NO
10 FILLER
10 IR-SIC-CODE
10 FILLER
10 IR-CRIT1CAL
10 FILLER
10 IR-YEAR
10 FILLER
10 IR-COMPANY-MAME
10 FILLER
10 IR-CLASS
10 FILLER P
10 IR-APP-FORM P
10 FILLER
05 IR-SECOND-CARO-IMAGE
10 IR-SOURCE-COOE-HHL
10 FILLER
10 IR-TOTAL-FLOW
10 FILLER
PICTURE
PICTURE
PICTUKE
PICTURE
PICTURE
PICTURE
FICTUF.F
PICTURE
PICTURE
PICTURE
PICTUKE
PICTURE
ICTURE
ICTUKE
PICTURE
.
10 IR-TOTAL-FLOW-UNITS-COCE
10 FILLER
10 IR-NO-HM-LOAD
10 FILLER
10 IR-TOTAL-LOAD-UNITS-COCE
10 FILLER
10 IR-NO-HM
10 FILLER
10 IR-SOURCE-CODE
10 FILLER
10 IR-SIGNIFIGANCE-CODE
XX
X<
X.
.
7) .
9999.
X.
9.
X.
9999.
X.
XC30).
X.
9.
X.
X.
X(
P
F
P
P
P
P
PI
P
P
P
PIC
PIC
P
P
P
24).
ICTURE
ICTUSE
ICTURF
ICTURE
ICTURE
ICTURF
CTU3E 9
ICTURE
ICTURE
ICTURF
TURE 9.
TURE X.
ICTURF
ICTURE
ICTURE
9.
/v •
9(11)
V
A •
9.
X.
(9).
X.
9,
X.
9.
X.
9.
-------
D-2
00005800
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006700
00006300
OOQ069TO
00007000
00007100
00007200
00007iOO
00007400
00007500
00007600
00007700
00007800
00007900
00008000
OOOOS10Q
00008200
OOOQ
9(5).
X.
999.
X.
9999.
X.
PICTURE 999.
X.
9999.
X.
PICTURE 999.
X.
9999.
X.
PICTUKt 999.
X.
9999.
X.
999.
X.
9999 .
X(30).
RECORD IS STANDARD
CONTAINS 10
ING MODE IS
RECORDS
F
CONTAINS 160 CHAR
DATA RECORD IS OUT
ACTERS
PUT-RECORD.
-------
D-3
00011900 109000
00012000 109100
00012100 109200
00012200 109210
OC012300 109300
00012400 109400
00012500 109500
00012oOO 109505
00012700 109506
00012800 109507
00012900 109508
00013000 109509
00013100 109510
00013200 109510
0001 3300 109511
00013400 109511
00013500 109512
00013600 109513
00013700 109514
00013800 110200
00013900 110300
00014000 110400
00014100 1105GO
00014200 110600
00014300 1 10700
00014400 110800
00014500 110900
00014000 111000
00014700 111100
00014800 111200
00014900 111300
00015000 111400
00015100 111500
OG015200 111600
00015300 111700
0001 5400 1 11 800
00015500 111900
0001 5600 112000
'00015700 112100
00015500 112200
00015900 112300
00016300 112400
OOT16100 112500
00016200 112600
00016300 112700
0031 6400 112800
00016500 11 2900
00016600 113000
00016700 113100
0001 6SOO 113200
00016900 113300
00017000 113400
00017100 113500
00017200 113700
0001 7300 113SOO
0001 7400 1 13900
00017500 114000
00017600 114100
0001 7700 114200
0001 7300 114300
00017900 114400
01 OUTPUT-RECORD PICTURE X(160>.
FO PARAMETER
LABEL IS STANDARD
BLOCK CONTAINS 0 RECORDS
RECORDING MOOfc IS F
RECORD CONTAINS 80 CHARACTERS
DATA RECORD IS PARM-CARO
01 FARM-CARD PICTURE.
FD TS-PRINT-F ILE '
LABEL RECORD IS STANDARD
RECORDING MODE IS F
DATA RECORD IS PR1-REC.
01 PRT-REC
WORKING-STORAGE SECTION.
01 GRAND-TOTAL P
01 PRINT-RFCORO.
05 FILLER
05 PRINT-SPACE
05 FILLER
01 PARAHETFR-CARD-ONE.
05 PARH-S1
05 FILLER
05 PARM-S2
05 FILLER
05 PARM-T1
05 FILLER
05 PA.RM-T2
05- FILLER
05 PAR,'1-T3
05 FILLER
05 30D-PERCNT-1
05 FILLER
05 BOD-PERCNT-2
05 FILLER
05 PARH-R1 1
05 FILLER
05 PARM-R1 2
05 FILLER
05 PARM-R1 3
05 FILLER
05 PARM-R21
05 FILLER
05 PARH-R22
05 FILLER
05 PARM-R23
05 FILLER
. 05 PARM-S3?
05 FILLER
05 PARH-R32
05 FILLER
05 PARM-R33
05 TSS-PERCNT-1
05 TSS-PERCNT-2
05 PARM-H1
05 FILLER
05 PARM-MAXF
05 FILLER
05 PARH-F1
05 FILLER
05 PARM-HMAX
05 FILLER
*
X(30>.
PICTURE XC133).
ICTURF 99999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE XC80).
PICTURE X<52> VALUE SPACES
PICTURE 99.
PICTURE X.
PICTURE 99. .
PICTURE X.
PICTURE 99.
PICTURE X. ' '
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURF X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE 999.
PICTURE 999.
PICTURE 99.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 999.
PICTURE X.
-------
D-4
00018000
00018100
00018200
00013300
00018400
0001 8500
00013600
00013700
00018300
00018900
00019000
00019100
00019200
00019300
00019400
00019500
00019600
00019700
00019300
0001 990U
00020000
00020100
00020^00
00020300
00020400
00020500
00020600
00020700
00020300
00020900
00021000
00021100
00021200
00021300
CC021400
00021500
00021500
00021700
00021800
00021900
00022000
00022100
OU022200
00022300
00022400
00022500.
00022600
00022700
00022800
00022900
00023000
00023100
00023200
00023300
00023400
00023500
00023600
00023700
00023800
00023900
00024000
114500
114600
114700
1 14800
114900
115000
115100 01
115200
115700
115400
115500
115600
115700
115800
115900
1 16000
116100
116200
116300
116400
116500
116600
116700
116300
116900
117000
117100
117200
117300
1 17400
117500
1 17600
1 17700
117800
1 1 7900
118000
113100
113200
113300
118400
118500
1 13600
118700
1 18800
113900
1 19000
119010
1 19020
1 19030
201010 01
201020
201030
201040
201041
201042
201043
201060
201070
201080
201090
201100
05 PARM-HM11
05 FILLER
05-. -PARN-HM21
05 FILLER
05 PARM-HL1
05 FILLER
HARAMETER-CARO-TUO.
05 P/CRU-HM12
05 FILLER
05 PARM-HL2
05 FILLER
05 PARH-HH22
05 FILLER
05 PARM-HM32
05 FILLER
05 PARM-OC1
05 FILLER
05 PARM-OC2
05 FILLER
05 PARM-WV1
05 FILLER
05 PARM-WV2
05 FILLER
05 PARM-UV3
05 FILLER
05 PARM-WO
05 FILLER
05 PASM-V10
05 FILLER
C5 FARM-V11
05 FILLER
05- PARH-V12
05 FILLER
05 PARM-V20
05 FILLER
05 PARM-V21
05 FILLER
05 PARM-V22
05 FILLER
05 PARM-V30
05 FILLER
05 PARM-V31
05 FILLER
05 PARM-V32
05 FILLER
05 FILLER
os PARM-BTU
05 COD-PERCNT-1
05 COQ-PERCNT-2
OP-RECORD.
05 OP-NPOFS
05 FILLER
05 OF-COMPANY-NAME
05 FILLER
05 OP-CLASS
05 FILLER
05 OF-CRITICAL-POINTS
05 FILLER
05 OP-WASTE-WATER-POINTS
05 FILLER
05 OP-fOLLU-1-POINTS
PICTURE 99.
PICTURF X.
PICTURE 99.
PICTURE X.
PICTURE 999.
PICTURE XX.
PICTURE 99.
PICTURE X.
PICTURE 999.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURF 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURF X,
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE 99.
PICTURE X.
PICTURE X(4).
PICTURE 9(12).
PICTURE 999.
PICTURE 999.
PICTURE XCVJ
PICTURE X V
PICTURE X(30)
PICTURF XXXXX
PICTURE 9 VA
PICTURE XC34)
PICTURF 999
PICTURE X VA
PICTURE 999
PICTURE X VAL
PICTURE 999
VALUE SPACES.
VALUC SPACES.
VALUE SPACES.
VALUE SPACES.
LUE ZEROES.
VALUE SPACES.
VALUE ZEHOES.
LUE SPACES.
VALUE ZEROES.
UE SPACES.
VALUE ZEROES.
-------
D-5
00024100
00024200
00024300
00024400
00024500
00024600
00024700
00024800
00024900
00025QOO
00025100
00025200
00025300
00025400
00025500
00025600
00025700
00025300
00025900
00026000
0002o100
00026200
00026300
00026400
00026500
00026600
00020710
00026800
00026900
00027000
00027100
00027200
00027300
00027400
00027500
00027600
0002770G
00027SOO
00027900
00028000
0002S100
00028200
00028300
00028400
00028500
00028600
00028700
00028800
00028900
0002.9000
00029100
G0029200
00029300
00029400
00029500
00029600
00029700
00029800
00029900
OG03UOOO
00030100
2011 10
201120
201130
201140
2011 50
201160
2011 70
201180
201190
201200
201 220
201230
201240
201250
201260
201270
201280
201290
201295
201300
201 31 0
201320
201330
01340
201350
201360
201370
201371
201 372
201 373
201374
201375
201375
109800
109900
200000
201000
201100
201110
201300
201400
201500
201600
201610
201611
201612
201620
201630
201631
201632
201700
201800
201805
201810
201820
201900
202100
202100
202200
232300
202/.00
05
05
05
05
05
05
05
05
05
05
05
05
G5
05
05
05
. 05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
PROCEO
HOUSEK
010-OP
Or
OP
OP
020-OP
Or
030-RE
RE
M
W
R
M'
W!
040-RE
RE
MO
MO
MO
050-AS
IF
EL
IF
FILLER
OP-POLLU-2-POINTS ., ,
FILLER
OP-POLLU-3-POINTS
FILLER
OP-TEMP-POINTS
FILLER
OP-FLOW-POINTS
FILLER ' "'
OP-HEAVY-MFTALS-POINTS
FILLER
OP-TOTAL-LOAD-POINTS
FILLER
OP-CHEMICAL-NO-POINTS
FILLER
OP-PWS-POINTS
FILLER
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
HCTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURF 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURF 999 VALUE ZEROES.
PICTURE x VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
OP-PRIMARY-CONTACT-RECR-FOINTS PICTURE 999 VALUE ZEROES.
FILLER PICTURE X VALUE SPACES.
OP-FISH-WL-PROPFRTY-POINTS PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURE 999 VALUE ZEROES.
PICTURE X VALUE SPACES.
PICTURF 999 VALUE ZEROES.
PICTURE X VALUE SfACCS.
PICTURE 99999 VALUE ZEROES.
PICTURE X(3) VALUE SPACES.
FILLER
OP-UOL-POINTS PICTURE
FILLER
OP-DMR-POINTS
FILLER
OP-EFFL-LMT-POINTS
FILLER
OP-SCHEDULE-POINTS
FILLER
OP-SUBJFCTIVE-POINTS
FILLER
OP-TOTAL-POINTS
FILLER
IRE DIVISION.
:EPING SECTION.
:N-PARM-FILE.
:N INPUT PARAMETER.
:N OUTPUT PERMIT-PTS.
IN OUTPUT TS-PRINT-FILE.
N-PFRMIT-MSTR.
IN INPUT PERK IT-MS TR.
,0-PARM-CARD .
,D PARAMETER INTO P A R A METF R-C ARO -ONE
AT E.NO GO TO 9QO-C LOSE -F ILES.
IVE PARAMFFER-CARO-ONE 10 P ft IN T-SP ACE .
WRITE PRT-REC FROM PRINT-RECORD AFTER POSITIONING 2 LINES.
PARAMETER INTO PARAMET£R-CARD-TWO
AT END GO TO 9CO-CLOSE-FILES.
PARAMETER-CARD-TWO TO PRINT-SPACF.
WRITE PRT-REC FROM PRINT-RECORD AFTER POSITIONING 2 LINES.
DATA-CARD.
PERMIT-MSTR AT END GO TO 890-CLOSE-PERMIT-MSTR.
IR-CLASS TO OP-CLASS.
IR-NPDES-KO TO OP-NPUFS.
MOVE IR-COMPANY-NAME TO OP-COMPANY-NAME.
IGN-ALL-POINTS.
IR-CRITICAL EQUAL ZEROES
MOVF PARM-S2 TO OP-CRITICAL-POINTS
E
MOVE PARM-S1 TO OP-CRITICAL-POINTS.
IR-TYPErUASTE IS GREATER THAN 9
-------
D-6
00030200
00030300
00030400
OC030500
0003U600
00030700
00030800
00030900
00031000
OOQ31100
00031200
00031400
00331400
00031500
00031600
00031700
00031SOQ
00031900
00032000
00032100
00032200
00032300
00032400
00032500
00032600
00032700
00032300
00032900
00033000
00033100
00033200
CGG33Z10
00033
GO TO 075-PASS.
IF IR-RANK-POLLUTANT-2 IS GRtATER THAN
OR IR-RANK-PCLLUTANT-2 IS FOUAL TO
MOVF PARM-R23 TO OP-PCLLU-2-POINTSt
GO TO 075-PASS.
MOVE PARM-R22 TO OP-POLLU-2-POINTS.
•PASS.
-RANK-POLLUTANT-3.
IF IR-RANK-POLLUTANT-3 IS LESS THAN COD-PESCNT-1
. MOVE PARM-R31 TO OP-POLLU-3-POINTSJ
GO TO 035-PASS.
IF IR-RANX-POLLUTANT-3 IS CREATES THAN
OR IR-RANK-POLLUTANT-3 IS tOUAL TO
MOVF PARM-R33 TO OP-FOLLU-3-POINTS»
GO TO 085-PASS.
MOVE PARK-R32 TO OP-POLLU-3-FOIMTS.
•PASS.
•TEMP.
IF IR-MAX-TEhP IS GREATER THAN PARM-BTU
MOVE PARM-H1 TO OP-TEMP-POI NTS
ELSE MOVE ZEROES TO OP-TEMP-PGINTS.
-FLOW.
IF IR-FLOU IS GREATER THAN PARM-MAXF
MOVE PARM-F1 TO OP-FL0W-PGI NTS
ELSE MOVE ZEROES TO OP-FLOW-F0 INTS.
•HEAVY-METALS.
IF IR-NO-HM IS GREATER THAN FARM-HMAX
MOVE PARM-HM11 TO OP-HEAVY-METALS-POINTS
GO TO 115-PASS.
IF IR-NO-HM IS EQUAL TO ZEROES
HOVE ZEROES TO OP-HEAVY-METALS-POINTS
GO TO 115-PASS.
KOVE PARM-HM21 TO OP-HEA VY-METALS-POI NTS.
•PASS .
-HEAVY-KFTALS-LOAD.
IF IR-NO-HM-LOAD IS GREATER THAN PARM-HL1
HOVE PARM-HM12 TO OP-TOTAL-LOAD-POINTS
GO TO 125-PASS.
IF IR-NO-HM-LOAD IS GREATER THAN PARM-HL2
MOVE PARM-HH22 TO OP-TOTAL-LOAD-POINTS
GO TO 125-PASS
COO-PERCNT-2
COD-PERCNT-2
-------
D-7
000^5900
00036000
00036100
00036200
00036300
00036400
00036500
00036600
00036700
00036300
00036900
00037000
00037100
00037200
00037300
00037400
00037500
'00037600
00037700
00037500
00037900
00038000
00033100
00038200
00038300
00038400
0003&500
00033600
00038700
QOQ38800
00033900
00039COO
00039100
00039200
00039300
00039400
000395QO
00039600
00039700
00039800
00039900
00040000
OC04G100
00040200
00040300
00040400
00040500
00040600
00040700
00040800
00040900
00041000
00041 100
00041200
00041300
00041400
00041500
00041 600
C0041 700
00041800
00041900
208000
208100
208200
208300
208400
208500
208600
208700
208600
203700
208600
208700
209200
209300
209400
209500
209600
209700
209800
209900
300000
301000
301100
301200
301300
301500
301600
301700
301800
3019CO
400000
401100
401 200
401 300
401400
401500
401600
401700
401800
401900
500000
501100
501 200
501300
501400
501500
501600
501700
501800
501900
600000
601100
601200
601210
601 220
601 230
601240
601 240
601 250
601260
601270
125
130
140
150
160
170
180
190
200
300
310
IF
IF
IF IR-NO-HM-LOAO IS GREATER THAN ZEROES
MOVF PARM-HM32 TO OP-TOTAL-LOAD-POINTS
GO TO 125-PASS.
MOVF ZEROES TO OP-TOTAL-LOAO-POINTS .
•PASS .
•CHEMICAL-NO.
IF IR-SIGNIFIGANCE-COOE IS ECUAL TO 0
MOVE ZEROES TO OP-CHEM ICAL-NO-POI NTS.
IR-SIGNIFIGANCE-COOE -IS EQUAL 1
MOVE PARM-OC2 TO OP-CHtMICAL-NO-POINTS.
Ift-SIGMIFIGANCE-COOE IS ELiUAL TO 2
MOVE FARM-OC1 TO OP-CHEM ICAL-NO-POINTS.
•PUS.
IF IR-FUS IS EQUAL TO 1
MOVC PARM-UV1 TO OP-PWS-PGINTS
ELSE MOVE ZErtOFS TO OF-PUS-P0 I NTS.
•PRIMAfiY-CONTACT-RECR .
IF IR-PRIMARY-CONTACT-RECK IS EQUAL TO 1
MOVE PARM-WV2 TO OP-PRIMARY-CONTACT-RECR-PO INTS
ELSE MOVE ZEROES TO OP-PR IMARY-COUTACT-RECR-PO INTS •
•FISH-U'L-PROPERTY.
IF IR-FISH-WILD-CODF IS EQUAL TO 1
MOVE PARM-WV3 TO OP-FISH-UL-PROPERTY-POINTS
ELSE MOVE ZEROES TO 0 P-F I SH-i, L-PRO PERT Y-?0 INTS .
•WOL.
IF IR-WOL IS EOUAL TO 1
MOVE PARM-^0 TO 0P-WQL-PO INTS
ELSE MOVE ZEiiOES TO OP-W(JL-P 0 I NTS .
•DMR .
IF IR-OMR EOUAL
MOVE FARM-V10
IR-OMR FOUAL
MOVE PARM-V11
IR-DMR EOUAL
MOVE PARM-V12
•EFFL-L.
IF IR-FFFL-LMT EOUAL 0
MOVE PARM-V20 TO OP-EFFL-LMT-PO INTS•
IR-EFFL-LMT FOUAL 1
MOVE FARM-V21 TO OP-EFFL-LMT-PO INTS .
IR-FFFL-LMT EOUAL 2
MOVF PARM-V22 TO OP-EFFL-LMT-PO INTS.
•SCHEDULE.
IF IR-SCHEOULE EOUAL 0
MOVF PARM-V30 TO OP-SCHEDULE-POINTS.
IR-SCMEDULE EQUAL 1
MOVE PARM-V31 TO OP-SC MED ULE-PO IS'TS .
IR-SCHEOULt EQUAL 2
MOVF PARM-V32 TO OP-SCHFOULE-PO INTS .
•SUBJECTIVE.
MOVE PARAM-SUBJPCTIVE TO OP-SU3 JEC T I VF.-POI NTS.
•WRITE.
ADO OP-CRITICAL-POINTS, OP-WASTE-WATFR-FOINTS,
OP-FOLLU-1-POINTS, OP-FCLLU-2-PO I NTSi OP-POLLU-3-POINTS
OP-TEMP-POINTS, OP-FLOU-POINTS, OP-HE A VY-METALS-POI NTS>
OP-TOT AL-LOAD-POINTS,OP-CHFMICAL-NO-POINTS,OP-PWS-POINTS,
OP-PRIMARY-CONTACT-RECR-POINTSJ
OP-FlSH-UL-PROPERTY-POINTSj
OP-WOL-POINTS> OP-DMR-POINTSj
OP-EFFL-LMT-POINTS> OP-SCHEDULE-POIMTS,
OP-SUBJECTIVP-POINTS GIVING OP-TOTAL-POI NTS .
IF
IF
IF
IF
IF
IF
0
TO
1
TO
2
TO
OP-DMR-POINTS.
OP-OMR-POIMTS.
OP-DMR-POINTS.
-------
D-8
00042000
00042100
G0042200
00042300
OJ042400
00042500
00.042oOO
00042700
00042800
00042900
00043000
00043100
00043200
00043300
00043400
00043500
0004 3600
00043700
00043800
00043900
00044000
000441CO
00044200
601200
601300
601400
601500
601600
601700
601800
6019GO
700000
701100
701110
7012GO
/*
//GO.TS31
WRITE OUTPUT-RECORD FROM OP-RECORD.
320-LOOP. - :: :
GO TO 040-REAO-DATA-CARD.
390-CLOSE-PERM IT-MSTR.
CLOSE PERMIT-HSTR.
GO TO 020-OPEN-PERHIT-MSTR.
9CO-CLOSE-FILES.
CLOSE
CLOSE
CLOSE
CLOSE
STOP
PARAMETER.
PERMIT-HSTR.
PERMIT-PTS.
TS-PRINT-FILE.
RUN,
DO OISP=(OLDjCATLG)j
// DSfc=CN.EPAOZB.WFH4.PERMlT«RANKEA
//GO.TS34 DD 0 I SP= C OLD >CATLG) >
// DSN=CN.EPAOZ8.WFM4.FERMIT.PARAH
//GO.TS32 00 SYSOUT=A
//GG.SYSGUT DD SYSOUT-A
//GO.DUMKY DO OS N = ^ LOOMOOCM A I N ) > 0 I SP= ( OLD JDELE TE )
//GO.TS33 DO OISP = (OLOjC,\TLG> jOSN = CN«EPAD20.UFM4oPFRMIT.POIHTAj
(1Qj5))jUNIT=3330
00042000
00042100
00042200
00042300
0004 2400
00042500
00042oOO
00042700
00042800
00042900
00043000
00043100
00043200
00043300
00043400
00043500
0004 3600
00043700
00043300
00043900
00044000
00044100
00044200
601200
601300
601400
601500
601600
601700
601800
6019CO
700000
701100
701110
7012CO
/*
//GO.TS31
WRITE OUTPUT-RECORD FROM CP-KECCRD.
320-LOOP. - ': '
GO TO 04C-REAO-DATA-CARD.
890-CLOSE-FERMIT-HSTR.
CLOSE PERMIT-HSTR.
GO TO 020 -OFEN-PERMIT-MSTR.
900-CLOSE-FILES.
CLOSE
CLOSE
CLOSE
CLOSE
STOP
PARAMETER.
PERMIT-HSTR.
PERMIT-PTS»
TS-PRINT-FILE.
RUN,
DD DISP=(OLDjCATLG),
// nSN=CN.EPADZB«WFM4.PERMIT.RANKEA
//GO.TS34 DD DISP=COLD>CATLG)>
// DSN=CN.EPADZ3.yFM4.FER,MIT9PARAH
//GO.TS32 DD SYSOUT=A
//GO.SYSOUT DD SYSOUT=A
//GO.DUMHY DD DSN = 4LOOMOOCMA IM)>0ISP=(CLDJDELETF)
//GO.TS33 DO OISP = (OLDjCATLG)jDS\ = CN.EPAD23.WFH4
// VOL=SFR=NFIC01jDCD=(RrCFM=FBjLRECL=160^QLKSlZE=3040)
// SPACE = (TRK/<10j5)>^UN IT = 3330
-------
APPENDIX E
WEIGHTING PROGRAM
-------
E-l
WORKSPACE »JL16
TYPE=DATA* USERIO = f:
OATE=Q9/22/77j T I HF = 13:49:07
00000100
00000200
00000300
00300400
00303500
00000600
00000700
ooooosoo
00000900
00001300
00001 100
00001200
00301 200
00031400
00001500
C0001 600
OOC01 700
00001300
00001 ^00
00002COO
00002100
00032200
00002300
00002400
00002500
000026HO
00002700
00302600
00002500
00003000
00003100
00003200
' 00003300
.00003400
00303500
00003600
00033700
00003800
00003500
00034000
00034100
00004200
00004300
00304400
OOuuOISP=
-------
E-2
00005SOO
00005900
00006000
00006110
00006200
00005300
00006400
00036500
00006600
OG006700
00006500
00006900
00007000
00007100
00007200
00007300
00007400
00007500
00007600
00007700
00007300
00007900
00008000
00003100
00003200
00003200
QCOOS400
00003500
00038600
00003700
00303300
OC0039GO
OG009000
00009100
COOT9200
00009300
00009100
00009500
00009600
00009700
00009300
00009900
00010000
00010100
00010200
00010300
00010400
OC010500
00010600
OC010700
00010SOO
000.10900
0031 1000
00011100
00311200
0001 1300
0001 1 400
0001 1 500
0001 1600
0001 1 700
0001 1 800
102916
102917
102918
102919
102920
102921
102922
102923
102924
103001
103002
103003
103C04
103005
103006
103007
103003
103009
103010
103011
103012
103100
103200
107600
107700
107SOO
107900
108000
1 10100
1 1D1C5
110103
110110
1 1 01 1 5
110120
110125
110130
110135
11C110
11011 2
1 10114
110116
110118
110120
1101 22
1 10124
1 101 26
110123
1 10130
1 1 0 1 .5 2
110230
110230
1 10240
110250
110300
1 10400
110500
110600
110700
110800
1109-00
111000
FD
01
WORK
01
01
01
01
01
01
01
01
01
01
•01
01
01
01
01
01
01
01
C1
01
01
10 FILLER PICTURE X.
10 I3-HM-LCAO-FOINTS PICTURE 999.
10 FILLER PICTURE X.
10 IR-CHEMICAL-NO-POINTS PICTURE 999.
10 FILLER PICTURE X.
10 IR-PWS-POINTS PICTURE 999.
10 FILLER PICTURE X.
10 I R -PCS -POINTS PICTURE 999.
10 FILLER , PIC TUF.6 X.
10 IR-FV-PROFERTY-POR.TS'' PICTURE 999.
10 FILLER PICTURE X.
10 IR-UQL-POINTS PICTURE 999.
10 FILLER PICTURE X.
10 IR-DKR-POINTS PICTURE 999.
10 FILLER PICTURE X.
10 IR-EFFL-LMT-PO INTS PICTURE 999.
10 FILLER PICTURE X.
10 IR-SCHEDULE-POINTS PICTURE 999.
10 FILLER PICTURE X.
10 IS-SUOJcCTIVE-POINTS PICTURE 999.
10 FILLER PICTURE . X.
10 IR-TOTAL-POINTS P I CTUR E 99999 .
10 FILLER PICTURE XXX*
PRINT-FILE ..
LA3CL RECORD IS STANDARD
RECORDING MODi£ IS F
DATA RECORD IS PRT-REC.
PRT-REC PICTURE XC133).
ING-STORAGE SECTION.
WS-PP.T-CflT PICTURE ''9 VALUE ZEROES.
HS-PAGE-CNT PICTURE 99 VALUE 01.
US-TOT-PERMITS PICTURE 9(7} VAL'Jc ZEROES*
WS-TOT-OLO-MAJOR PICTURF 9(7) VALUE ZEROES.
'.'S-TOT-OLO-MINOR PICTURE 9(7) VALUC ZEROES.
WS-TOT-NEW-MAJOS PICTURE 9(7) VALUE ZEROES.
WS-TOT-NEW- INTERMEDIATE PICTURE 9(7) VALUC ZEROES.
US-TOT-MEy-MINOS PICTURE 9(7) VALUC. ZESOES.
WS-WEIGKT-1 PICTURE 9(6)V999 VALUE ZEROES.
US-WEIGHT-R PICTURE 9(6)7999 VALUt ZEROES.
WS-VEIGHT-3 PICTURE 9(6)V999 VALUE ZEROES,
US-WEIGHT-4 PICTURE 9(6)V999 VALUE ZEROES.
WS-WEIGHT-5 ' PICTURE 9(6)V999 VALUE ZEROES.
WS-yEIGHT-6 PICTURE 9(£)V999 VALUE ZEROES.
WS-W.I IGHT-7 . PICTURE 9(6)V999 VALUt ZEROES.
WS-UEIGMT-3 PICTURE 9(ft)V999 V/LUt ZEROES.
VS-UEIGHT-9 PICTURE 9(6)V999 VALUE ZEROES.
WS-WEIGHT-10 PICTURE 9(6)V999 VALUE ZFROES.
WS-UEIGHT-11 PICTURE 9(6)V999 VALUE ZEROES.
US-WE IC-HT-TOTAL PIC TURF 9(6)V999 VALUE ZtP.OF.S.
WS-PARAMFTER-CARO-ONf.
05 FILLER PICTURE X.
05 FR PICTURE X(31) VALUC 'FFF:KIT SET 1-4 PARAMETER SET
05 FILLER PICTURE X(17) VALUE ' VALUES P1-P11 ».
05 WS-PARH-1 f ICT'JRE 9V999 VALUE 1.000.
05 FILLER PICTURE X VALUE STACtS.
05 WS-FARM-2 PICTURE 9V999 VALUE 0.333s
OS FILLER PICTURE X VALUE SPACES.
05 WS-PARM-3 PICTURE 9V999 VALUE 0.111.
05 FILLER PICTURE X VALUE SPACES.
05 VS-PARM-A fICTURE 9V999 VALUE 1.000.
05 FILLER PICTURE X VALUE SPACES.
00004600
00004700
00004300
CJ004900.
CCOQ5000"
CO005100
00005200
00005300
000055JO
00005600
C0005700
00005300
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006502
16'
-------
• E-3
000119no
00012000
00012100
OH012200
00012300
OC01 2400
00012500
0001 2600
00012700
0001 2800
00012900
00013000
0001 3100
00013200
00013300
0001 3400
OC013500
00013600
00013700
0001 3800
OC01 3900
CO0 14000
CC014100
00014200
00014300
00014400
00014500
00014600
00014700
00014SOO
00014900
00015000
0001 5100
0001 5200
00015300
0001 5400
00015500
0001 5600
C001 5700
0001 5800
C0015900
00016000
OC016100
0001*200
0001 6300
OC016400
00016500
00316600
00016700
UOln 6800
0001 6900
COT! 7000
0001 7100
0001 7200
0001 7300
0001 7400
0001 7500
C001 7600
CC01 7700
0001 7800
0001 7900
111100
111200
111300
111400
111500
1116CO
11 1700 -
1 11 300
11 1900
1 12000
1121CO
112200
11 2300
112400
112450
112500
1 126CO
1 12700
120000 01
120100
120200
120300-
120400
120500
120600
1 20610
120620
120700 01
120800
1 20900
121000-
121 100
121200 01
1 21 300
1 21400
121500
121600 01
1217CO
1 21 800
121350
121 900
121901 01
121902
121903
1 21 904
1 21905
121906 01
121907
1219G8
121909
121911 01
121912
109415
109420
109425
109430
109431
109432
109433
1 09434
109432 01
05 «-S-PA.ftM-5 PICTURE 9V999 VALUE 1.000.
05 FILLER PICTURE X VALUE SPACES.
05 VS-PA3M-6 PICTURE 9V999 VALUE 0.200.
05 FILLER FICTURE X VALUE SPACES.
05 WS-PASK-7 PICTURE 9V999 VALUE G.333.
05 FILLER FICTURE X VALUE SPACES.
05 WS-FARM-8 FICTURE 9v9°9 VALUE 0.333.
05 FILLER PICTURE X VALUE SPACtS.
05 US-PARM-9 PICTURE 9V999 VALUF 1.UOO.
05 FILLER ' :• , FICTURE X VALUE SPACES.
05 VS-PARM-10 ~ PICTURE 9V999 VALUE 0.111.
05 FILLER PICTURE X VALUE SPACES.
05 US-PARM-11 FICTURE 9V999 VALUE 0.500.
05 FILLER PICTURE XX VALUt SPACES,
05 FILLER PICTURE X(19) VALUE 'MAJOR MINOR LIMITS'.
05 WS-PARM-FOLLUTF.R-1 FICTURE 999V9 VALUE 070.3.
05 FILLER PICTURE X VALUE SPACES.
05 'WS-PARU-POLLUTER-2 PIC TUtiE 999V9 VALUE 050.0.
HEAOER1 .
10 FILLER PICTURE XC51) VALUE SPACES.
10 FILLER PICTURE XC31) VALUE 'ENVIRONMENTAL PROTECTION AGEMC
' Y' . .
10 FILLER PICTURE XC19) VALUE SPACES.
10 FILLER PICTURE X C 5 ) VALUf 'PAGE '.
10 P-FAGE PICTURE ZZ.
10 FILLER PICTURE X<14) VALUE SPACES.
10 FILLER PICTURE X(11) VALUE 'P-2
HEADER2.
10 FILLFR PICTURE X(46) VALUE SPACES.
10 FILLER PICTURE X<42) VALUE 'NATIONAL ENFORCEMENT INVESTIGA
'TIONS CENTER' .
10 FILLER PICTURE XC45) VALUt SPACES.
HEADERS.
10 FILLFR PICTURE X ( 60 ) VALUE SPACES.
10 "FILLER PICTURE XC16) VALUE 'OcNVfa* COLORADO'.
10 FILLFR PICTURE X(57) VALUE SPACES.
HEADER4.
10 FILLER PICTURE XC41) VALUF SPACES.
10 FILLFR PICTURE XC26) VALUE 'NEW CLASS OF PERMITS BASED'.
10 FILLFf! PICTURE X(25) V>LUE ' ON TOTAL WEIGHTED POINTS'..
10 FILLER PICTURE X(41> VALUt SPACES.
HEADER 4 A .
10 FILLER PICTURE X(50> VALUE SPACES.
10 FILLFR PICTURE X(13) VALUt 'PERMIT SET 1-4
10 FILLFR PICTURE X(16) VALUE 'PARAMETER SET 14'.
10 FILLER PICTURE X(49) VALUE SPACES.
HEAOER4C .
10 FILLER PICTURE X(57) VALUE SPACtS.
10 FILLER PICTURE X(19) VALUE 'SORTtO GY fJPOES HO.
10 FILLER PICTUKt: XC57> VALUE SPACES.
HEADERS.
10 FILLER PICT'JRE XC72) VALUE SPACES.
10 FILLER PICTURE XXX VALUE 'OLD'.
10 FILLER PICTURE X(9) VALUE SPACES.
10 FILLER PICTURE XXX VALUE 'NEW',
1C FILLER PICIURE X(9) VALUE SPACES.
10 FILLER PICTURE X(5) VALUE 'TOTAL1.
10 FILLER PICTURE X<9> VALUE SPACES.
10 FILLER PICTURE X(£) VALUE 'WEIGHTED'.
10 FILLER PICTURE X<15) VALUE SPACtS.
HFAOCR6.
-------
E-4
00012000
00013100
OCO 18200
00013300
0001 34io
0001 8500
0001 3600
OC013700
OOT13&00
0001 6900
00019000
00019100
00019200
OC019300
0001 9400
OCQ19EOQ
00019600
OC019700
00019800
0001 9900
00020000
00020100
00020200
0002U300
00020400
00020500
00020600
00320700
00020300
00020900
00021000
00321 1GO
00021 200
00021 300
03021400
00021 500
00021 600
00021 700
COQ2160n
00021 900
0002ZOOO
00022100
C0022200
00022300
00022400
00022500
00022600
OC022700
00022800
00022900
00023000
00023100
00023200
00023300
00023400
00023500
00023600
00023700
OC023300
00023900
00024000
109435
109440
109445
109446
109447
109550
109455
109460
109465
109470
109471
109472
1 09473
109472
109475
109477
109480
109481
109482
109483
109485
109490
109495
1 09496
109497
109497
109497
109498
109498
109499
1C9500
109510
109520
109530
109532
109534
109540
109550
109560
139570
109580
109590
109591
109592
109592
109593
109594
109595
1 09596
109597
109300
109900
2COOCO
201400
201410
201420
201430
201440
201450
201460
201465
10 FILLER PICTURE XC15) VALUE SPACES.
10 FILLER PICTURE X(9> VALUE 'NPOUS NO.'.
10 FILLFR PICTURE XC12) VALUE SPACES.
10 FILLER PICTURE X(24) VALUE 'COMPANY NAHi
10 FILLER PICTURE XC11) VALUE SPACES.
10 FILLER PICTURE XXXXX VALUE 'CLASS'.
10 FILLER PICTURE X<7) VALUE SPACES.
.1C FILLER PICTURE XXXXX VALUE 'CLASS'.
10 FILLER PICTURE XC7) VALUE SPACES.
10 FILLER PICTURE ;:X'< 6) VALUG 'POINTS'.
10 FILLER PICTURE XC7) VALUE SPACES.
10 FILLER PICTURE XC12) VALUE M01AL POINTS'.
10 FILLER PICTURE X(13) VALUE SPACES.
01 HEAOER7.
10 FILLCR PICTUSF X(13) VALUE SPACES.
10 FILLER PICTURE X ( 1 3 ) VALUE ' '. .' - ".
10 FILLER PICTURE XC5) VALUE SPACES.
10 FILLFR PICTURE XM7> VALUE ' . ..'
10 FILLER PICTURE XM7J VAIUE ' . '
10 FILLER PICTURE X(5) VALUE SPACES.
10 FILLER PICTURE X(7> VALUE ' '.
10 FILLER PICTURE X(5) VALUE SPACES.
10 FILLER PICTURE X<7) VALUE ' «.
10 FILLER PICTURE X(5) VALUE SPACES.
10 FILLER PICTURE X<£) VALUE ' «.
10 FILLER " PICTURE X(5) VALUE SPACES.
10 FILLER PICTURE XM4> VAIU= » .' .. . •.
10 FILLER PICTUKE X(12) VALUE SPACES.
01 HEADERS.
10 FILLER PICTURE X(133) VALUE SPACES.
01 WS-PR INT-RECORD,
1C FILLEP.1 PICTURE X(15).
10 P-NPOES-NO FICTURC X(9),
10 FILLERS PICTURE X(9),
1C P-COMPANY-NAME PICTURE X ( 30 ) ,
10 FILLER2A FICTUSE X(9).
10 P-OLO-CLA3S FIXTURE XX.
10 . FILLERS PICTURE X<10).
10 P-NEVi-CLASS FIC1USE XX.
10 FILLEP4 nCTURt X(9),
10 P-TOi-PTS PICTURE ZZ..ZZ9.
10 FILLERS PICTURE X(9).
10 ' P-TOT-wriGHTbD-PTS PICTURE ZZZjZZ9.
10 FILLER6 PICTURE X(16) VALUc SPACES.
01 WS-PRINT-SUHKARY.
10 FILLER PICTURE X(25) VALUE SPACES.
10 P-TITLE FICTURE X<16).
10 FILLER FICTURE XXX VALUE SPACES.
10 P-TCTS FICTURE Z.»ZZ/jZZ9.
10 FILLER FICTURE XCSQ) VALUE SP.ACES.
PROCEDURE DIVISION.
HOUSEKEEPING SECTION.
010-OPEM-FILES.
OPEM INPUT POIMTS-MSTR.
OPEN OUTPUT PRINT-FILE.
PERFORM 500-WRITE-HEAOERS .
WRITE PRT-REC FROM HEADFR8 '
AFTER POSITIONING 3 LINES.
WRITE PRT-REC FROM U S-P AK A ME 1 LR -CA ilO-ONE
AFTER POSITIONING 3 LINES.
PERFORM 500-URITE-HEAOERS .
00021iOO
00021500
00021600
00022000
-------
E-5
00024100
00024200
00024300
00024400
00024500
00024600
00024700
00024300
00024900
00025000
00025100
00025200
00025300
00025400
00025500
00025600
00025700
00025300
00025900
00026000
00026100
C0026200
00026300
C0326400
00026500
00026600
00026700
00026800
C0026900
CC027000
00027100
00027200
00027300
00027400
00027500
00027600
00027700
00027800
00027900
00022000
0002E10C
00023200
00028300
0002S400
00022500
00023600
00028700
00028300
00029GOO
00029100
00029200
OC029300
00029/.00
00029500
00029600
00029700
00029300
00029900
G003GOOO
00030100
201700
201800
201900
400000
4001 CO
400200
400300
400400
400500
400600
400700
400800
400900
401000
401100
4012CO
401300
401400
401500
4016CO
401700
401800
401900
402000
402100
402200
402300
402400
402500
402600
402700
4028CO
402900
403100
403200
4390CO
439100
439200
439230
439300
439310
440000
440100
440210
440150
440220
440400
440450
440510
440520
440650
440800
440810
440320
441000
441010
4 4 10 20
500000
500100
500200
500300
VS-PAHM-1 )•
=
i WS-FARM-2).
IR-POLLU-2-POI.MTS
» WS-PA3H-3).
US-PARM-4).
R&UNCf'D =
» WS-FARH-5).
040-REA3-OAT A-CARD.
RFAO POINTS-MST.t AT ENO GO TO SOO-CLUS H-FILES.
A3!? 1 TO US-TOT-PtRMIlS.
2CQ-COMPUTE-WE IGHTS.
COMPUTF US-WEIGHT-1 KCUXflO
< IR-CSITICAL-POIMS »
COMPUTE WS-WEIGHT-2 RCUNL'Fl)
(IR-WASTE-WATt:»-FClN7£
COMPUTE WS-'JE IG'U-3 RUUNCJ-0
< ( IR-FOLLU-1 -F01MS *
IP-POLLU-3-FOIfiTS)
COHPUTF W3-\,T IGHT-4 KOUNCtD
< IR-TENf'-f'O I.'JIS
COMPUTE US-WEIGHT-5
•
WC ••.JClCHT-2
WS-WE IGHT-5
k'S-UFICHT-8
VS-WE IGHT-11 )
MS-HEIOHT-3
WS-VE IGHT-6
«S-!«E IGHT-9
(W3-UEIGHT-1 +
WS-WEIGHT-4 +
WS-WE IGHT-7 +
HS-i/c IGHT-10 +
300-OETERM INE-OLJ-POLLUTER.
IF IR-OLD-CLASS IS ECUAL TC '2'
ADO 1 TO US-T01-OLD-MINOR
HOVE 'MN1 TO P-CLD-CLASS
ELSE ADD 1 TO WS-TuT-OLC-MAJOR
MOVE 'MJ' TO P-OLC-CLASS.
400 -OFTERHINE-NEW-POLLUTER.
IF WS-WFIGHT-70TAL IS GREATER THAN VS-PARM-POLLUTEft-1
MOVE
-------
E-6
00030200
00030300
00330400
00030500
00030600
00030700
00030800
G0030900
00031000
00031100
00031 200
00031300
00031400
00031500
00031 600
00031 70H
00031300
00031900
00032000
00032100
00032200
00032300
00032400
00032500
00032600
00032700
00032600
00032900
00033000
00033100
00033200
000 35300
00033400
00033500
00033600
'00033700
00073300
00033°00
00034000
00034100
00034200
00034300
00034400
00034500
00034600
00034700
00034300
00034900
00035000
00035100
00035200
00035300
00035400
00035500
00035600
00035700
00035 £00
00035900
00036000
00036100
00036200
500400
500500
500600
5007CO
500710
500720
500730
500800 500
500850
500900
500910
500920
501000
501005
501010
501100
501 200
501 300
501400
501410
5015CO
540000 300
540005
540010
540015
540100
540200
5403CO
540600
540700
540SOO
5 4 0 9C 0
541000
541100
541200
541 300
541400
541500
541600
541 700
541 300
541900
542COO
542100
5422CO
542300
542400
542500
542600
542700
542300
542900
601800 900
601810
700000
701 mo
701200 999
711 300
/»
//CO.SORTL
MOVF" W"S-WE IGHT-TOTAL TO F -TO I -WE I GH TED-PTS .
WRITE PRT-REC FROM WS -F R IN T-RECORO
AFTF.R POSITIONING 1 LINES.
ADC 1 TO WS-PRT-C.NT.
IF US-PST-CNT IS GREATER THAN 56
PERFORM 500-URI7E-HE ACORS.
GO TO 040-REAO-DATA-CAF.O.
-WR ITE-HFADF.RS .
MOVE yS-PAGE-CMT TO P-FAGF..
URITF PRT-REC FROM HHADEK1 AFTER POSITIONING 0 LlNFS.
HRITF PRT-REC FROM HEADF.R2 AFTER FOS I T I CK I i-:G 1 LINTS.
WRITE PRT-REC FROM HEAUF.F.3 AFTER POSITIONING 1 LINES.
URITE PRT-REC FffOM HEAOFR4 AFTER POSITIONING 2 LIMES.
WRITE PRT-RLC FROM HEADcR4A AFTER POSITIONING 1 LINES.
WRITF PRT-REC FROM HEAOtRiF- AFTER POSITIONING 1 LIMES.
URITE PRT-REC FROM HEAL-ER5 AFTER POSITIONING 2 LINES.
URITE PftT-REC FROM HEADER6 AFTER POSITIONING 1 LINES.
WRITE FRT-REC FROM HEAOLR7 AFTER POSITIONING 1 LINES*
URITE PRT-REC FSOM HEAUER8 AFTER POSITIONING 1 LIMES.
MOVE 1 1 TO WS-FRT-CNT.
ADC 1 TO US-PAGE-CNT.
-PRINT-SUMMARY,
IF WS-PRT-CNT IS GREATER THAN 48
PERFORM 530-VIRlTE-hEADERS.
URITF PRT-REC FROM HEADERS AFTER POSITIONING 3 LINES.
MOVF 'SUMMARY i TC F-TITLE.
WRITE PRT-RFC FROM WS-PS U T-SUKM AS Y
AFTSR POSITIONING 1 LINES.
MOVE ' NO. PERMITS ' TO P-TITLE.
MOVF WS-TOT-PERM ITS TO F-TOTS.
WRITE PRT-REC FROM U S-PR I U T-SUHM AR Y
AFTER POSITIONING 1 LINES.
MOVE ' OLD HAJCtt ' TC P-TITLE.
MOVE US-TOT-OLD-MAJOR TO P-TOTS.
WRITE; PRT-RFC FROM US-PR INT-SUMMARY
AFTFR POSITIONING 1 LINES.
MOVE ' OLD MINOR ' TO P-TITLE.
MOVE WS-TOT-OLD-.1 IMOr. TO F-TOTS.
WRITE PRT-REC FROM US-PRINT-SUMMARY
AFTER POSITIONING 1 LINES.
MOVE ' NEW MAJOR ' TO P-TITLE.
MOVE WS-TOT-f;EU-HAJOR TO F-TOTS.
WRITE PRT-REC FROM 'J S-PR I KT-SUMM AR Y
AFTFR POSITIONING 1 LINFS.
MOVE ' HEW INTERNED1 TO P-TITLE.
MOVE US-TOT-Nf U-INTCRHFD1 ATE TO P-TOTS.
WRITE PRT-RFC FROM W S-PR 1 M -SUMMAR Y
AFTER POSITIONING 1 LINES.
MOVE • NFW MINOR ' TO P-TITLE.
MOVF US-TOT-NEU-MINOR TO P-TOTS.
WRITE PRT-RFC FROM WS -PR I M -3UMM AR Y
AFTER POSITIONING 1 LIMES.
-CLOSE-FILES.
PERFORM 800-PR INT-SUMMARY.
CLOSE POINTS-MSTR.
CLOSE PRINT-FILE.
-STOP.
STOP RUN.
13 03 OSN = SYS1 .SORTLI3»0 ISP = SHR
//GO.SORTWK01 DO UNI T=S YSDA , SP ACE = ( IRK i ( 300 ) / > CONT I C)
00034700
00034900
000350QO
-------
E-7
00036390
00036400
00036500
OQ036o30
00076700
00036800
00036900
00037000
00037100
//GO.SORTWKO?
//CO.SORTWK03
//GG.SORTUK04
//GO.SORTWK05
//GU.SORTVK06
//GC.TS31 00
//GO.T332 00
//GO.SYSOUT DO
/x
DO
CO
DO
DO
UNIT=SYSDAjSPACF=URKj<300>jjCOSTIG>
1 1 N I T = S Y S : j A , S P tf F = ( 1 R ;< > ( 3 0 0 ) > • C ^ 0 N T I G )
UNI T=3Y30AjSPAC==(lKK j(30G)»jCONTIG)
S YSOUT=A
-------
E-8
------- |