&ER&
United States
Environmental Protection
Agency
Office of Air Quality
Planning and Standards
Research Triangle Park NC 27711
EPA-450/4-80-018
October 1980
Air
Emissions Inventory
System/Area Source
(EIS/AS)
Test Run Series
Documentation
-------
EPA-450/4-80-018
Emissions Inventory System/
Area Source (EIS/AS)
Test Run Series
Documentation
by
Larry R. McMaster, Project Leader
Research Triangle Institute
Research Triangle Park, NC 27709
Contract No. 68-02-3011
EPA Project Officer: Sam Colon-Velez
Prepared for
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Air, Noise, and Radiation
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
October 1980
-------
This report is issued by the Environmental Protection Agency to report
technical data of interest to a limited number of readers . Copies are
available free of charge to Federal employees, current contractors and
grantees, and nonprofit organizations - in limited quantities - from the
Library Services Office (MD-35), U.S. Environmental Protection Agency,
Research Triangle Park, North Carolina 21711; or for a nominal fee,
from the National Technical Information Service, 5285 Port Royal Road,
Springfield, Virginia 22161.
This report was furnished to the Environmental Protection Agency by
Research Triangle Institute, Research Triangle Park, North Carolina
27709, in fulfillment of Contract No. 68-02-3011. The contents of this
report are reproduced herein as received from Research Triangle
Institute. The opinions, findings, and conclusions expressed are
those of the author and not necessarily those of the Environmental
Protection Agency. Mention of company or product names is not to be
considered as an endorsement by the Environmental Protection Agency.
-------
TABLE OF CONTENTS
LIST OF FIGURES v
ACKNOWLEDGEMENT vi i i
INTRODUCTION 1
EIS/AS TESTS
1. Create and Print the Emission Factor File 2
2. Create the Initial Master File Using NEDS Transactions ... 19
3. Update the Master File Using EIS/AS Transactions 45
4. Produce a Formatted Dump of the Master File 84
5. Update the Master File Using EIS/AS Transactions 89
6. Submit Annual Report in NEDS Format 101
7. Retrieve a Standard Answer File Using the COBOL Language
and Produce a Detailed Report of the Answer File 108
8. Submit Annual Report in EIS/AS Format 134
9. Generate Internal Transactions and Update the Master File. . 137
10. Retrieve a Batched Answer File and Produce a Formatted
Dump of the Answer File 146
EIS/AS AD HOC TESTS
11. Generate All Non-Abortive Error Messages of the Emission
Factor File Edit-Maintenance Program 152
12. Generate all Non-Abortive Error Messages of the Master
File Transaction Edit Program 157
13. Generate All Non-Abortive Error Messages of the NEDS to
EIS/AS Master File Transaction Conversion-Edit Program . . . 164
14. Execute the Master File Emission Factor Transaction
Generator Program and Store the Generated Transactions . . . 170
m
-------
15. Exercise All Options of the Master File Internal
Transaction Emission Factor Insertion Program 173
16. Execute a COBOL Retrieval and Produce a Formatted Dump of
the Answer File 177
17. Execute an EIS/AS Retrieval and Produce a Detailed Report
of the Answer File 187
18. Produce a Quick Look Report for County Data 196
19. Produce a Quick Look Report for Partioulate Emissions. . . . 226
20. Produce a Quick Look Pollutant Summary Report for the
Criteria Pollutants 234
21. Produce a Quick Look Pollutant Summary Report for Six
Pollutants 241
22. Execute the Retrieval Package and Produce a Quick Look
Report from the Answer File 247
23. Execute the Retrieval Package and Produce a Batched Answer
File and a Detailed Report of the File 256
24. Create the Official NADB Emission Factor File and Produce
a Detailed Report 262
APPENDIX A: Cross-Reference of Tests, Procedures, and Programs . . . 267
-------
LIST OF FIGURES
Figure Page
Number Title Number
AST1-1 Emission Factor File Transaction Format 6
AST1-2 Emission Factor File Transaction Load Sheet 10
AST1-3 Run Stream 11
AST1-4 Sample Output 12
AST2-1 NEDS Area Source Transaction Formats 25
AST2-2 Option Card Format 35
AST2-3 Run Stream 36
AST2-4 Sample Output 37
AST3-1 EIS/AS Master File Transaction Formats 48
AST3-2 EIS/AS Master File Transaction Load Sheets 66
AST3-3 Run Stream 71
AST3-4 Sample Output 72
AST4-1 Run Stream 86
AST4-2 Sample Output 87
AST5-1 Run Stream 91
AST5-2 Sample Output 93
AST6-1 Run Stream 103
AST6-2 Sample Output 104
AST7-1 EIS/AS Retrieval Control Card Ill
AST7-2 Definition of EIS/AS Retrieval Control Card Fields ... 112
AST7-3 Valid Retrieval Data Names 114
-------
Figure
Number
Title
Page
Number
EIS/AS Retrieval Language Specification Fields 122
AST7-4
AST7-5 Definitions of EIS/AS Retrieval Language
Specification Fields 123
AST7-6 Retrieval Specification Load Sheets 125
AST7-7 Run Stream 127
AST7-8 Sample Output 129
AST8-1 Run Stream 135
AST8-2 Sample Output . 136
AST9-1 Run Stream . 139
AST9-2 Sample Output 140
AST10-1 Run Stream 148
AST10-2 Sample Output 149
AST11-1 Run Stream 153
AST11-2 Sample Output 154
AST12-1 Run Stream 158
AST12-2 Sample Output 159
AST13-1 Run Stream 165
AST13-2 Sample Output 166
AST14-1 Run Stream 171
AST14-2 Sample Output 172
AST15-1 Run Stream 174
AST15-2 Sample Output 175
AST16-1 Run Stream 179
AST16-2 Sample Output 181
AST17-1 Run Stream 189
VI
-------
Figure
Number
Title
Page
Number
AST17-2 Sample Output 190
AST18-1 Quick Look Control Card Formats 198
AST18-2 Quick Look Control Card Field Descriptions 206
AST18-3 Data Element Abbreviations and Lengths 210
AST18-4 EIS/AS Quick Look Retrieval Load Sheet 218
AST18-5 Run Stream 219
AST18-6 Sample Output 220
AST19-1 Run Stream 227
AST19-2 Sample Output 228
AST20-1 Run Stream 236
AST20-2 Sample Output 237
AST21-1 Run Stream 242
AST21-2 Sample Output 243
AST22-1 Run Stream 251
AST22-2 Sample Output 252
AST23-1 Run Stream 258
AST23-2 Sample Output 259
AST24-1 Run Stream . 263
AST24-2 Sample Output 264
-------
ACKNOWLEDGEMENT
This manual was prepared by the Research Triangle Institute, Research
Triangle Park, North Carolina, for the Environmental Protection Agency under
Contract 68-02-3011.
The development of this manual documenting the EIS/AS test run series has
been largely a team effort between RTI and Mr. Edward J. Mask of EPA/NADB.
The work has been conducted under the direction of Mr. Edward J. Mask of
the National Air Data Branch (NADB), who is the EPA Project Officer for the
contract.
RTI staff members principally participating in the development of this
document are:
R. C. Haws, Laboratory Supervisor
L. R. McMaster, Project Leader
D. L. Franke, Scientific Programmer/Analyst
W. M. Bailey, Scientific Programmer
F. A. Farmer, Scientific Programmer/Analyst
C. 0. Scheper, Programmer/Analyst
A. F. Tallant, Scientific Programmer
D. S. Chase, Secretary
vm
-------
INTRODUCTION
The purpose of this manual is to document the EIS/AS test run series
released by the Environmental Protection Agency, as part of the EIS/AS
installation package. The test run series is divided into two major areas:
basic test runs and ad hoc test runs. The basic test runs exercise each
program in EIS/AS at least once and provide the user with a means of
determining whether or not the installation of EIS/AS has been successful.
The ad hoc test runs further exercise the capabilities of the EIS/AS
programs. The ad hoc test runs also provide the user with examples of how
various combinations of EIS/AS programs may be used to generate certain
reports or to accomplish special tasks. Any programs added to the original
EIS/AS system are exercised by ad hoc test runs.
The EIS/AS User's Guide should be used as a reference in conjunction with
this manual. Appendix A of this manual provides a cross-reference of test,
procedures, and programs.
-------
EIS/AS Test 1
Create and Print the Emission Factor File
In this test run, an initial EIS/AS emission factor file is created using
the cataloged procedure ECEME10 which executes CSREFTR (EC0010), the emission
factor file transaction sort program; and CEMEFAC (EC0020), the emission
factor file edit-rnaintenance program. A detailed report of the emission
factor file is printed by using the cataloged procedure ECRPE10 which executes
CRPEFAC (EC0150), the emission factor file detailed report program.
CSREFTR (EC0010) sorts the emission factor file transactions (see Figure
AST1-1 for the transaction formats) into the sequence required by CEMEFAC
(EC0020). The fields of each transaction are sorted in the following order:
Columns Description Sort .Order
1-2 State Code Ascending
3-6 County Code Ascending
7-11 Geographic Suballocation Number Ascending
12 - 14 Category Number Ascending .
15-16 Category Disaggregate Number Ascending
17 Emission Factor Origin Ascending
18 Source Type Ascending
19 - 23 Pollutant ID Ascending
80 Action Code *
79 Card Type Ascending
24 - 28 Emission Factor Oate Ascending
A header record is generated by CSREFTR (EC0010) which appears as the first
transaction but has no action code or card number. All emission factor file
transactions must be sorted by CSREFTR (EC0010) before they can be used to
create the emission factor file.
"•Sort sequence is D (delete), A (add), C (change)
-------
CEMEFAC (EC0020) edits emission factor file transactions and updates the
EIS/AS emission factor file using those transactions which pass the edit
criteria. The input emission factor file transactions can consist of three
types: type 1, type 2, and type 3. Refer to Figure AST1-1 for the emission
factor file transaction formats and to Figure AST1-2 for the emission factor
file transaction load sheet.
A category record can be added to the emission factor file by processing
a category-1 (type 1) add transaction or by processing both category-1 and a
category-2 (type 2) add transaction for the desired category. Note that a
category-2 add transaction is not valid unless it is preceded by a category-1
add transaction with the same key information. An existing category record
can be changed by processing a category-1 change transaction and/or a
category-2 change transaction. An existing category record can be deleted
from the emission factor file by processing a category-1 delete transaction.
A category-1 delete transaction also deletes all of the pollutant records
associated with the category record.
A pollutant record can be added to the emission factor file by processing
a pollutant (type 3) add transaction; however, the corresponding category
record must exist in the emission factor file. If it does not, it must be
added prior to adding the pollutant record. This may be accomplished in the
same run since the emission factor file transaction sort program, CSREFTR
(EC001Q), sorts the transactions so that pollutant transactions follow their
associated category transactions. An existing pollutant record can be changed
by processing a pollutant change transaction. An existing pollutant record
can be deleted from the emission factor file by processing a pollutant delete
transaction. Each pollutant delete transaction deletes a single pollutant
record from the emission factor file.
When the emission factor file is updated, the control date in the header
record is updated using the date specified by the user on the option card.
This header will also contain the date of the previous update run as well as a
generation number which begins at 1 and is incremented by 1 during each update
run.
-------
There are three option fields on the option card. The first option field
occurs in columns 1 through 5 and contains the control date in the Julian form
YYDDD, where YY is the year and ODD is the day of the year. This date will
replace the control date in the emission factor file header record, and
therefore, it should be the current date of the run. If this field is either
blank or not numeric, program execution will be terminated. The second option
field occurs in columns 7 through 11. The option word FLAGW must be entered
in this field for warning messages to be printed in the diagnostic report. If
this field is blank, or if it is specified incorrectly, no warning messages
will be printed. The third option field occurs in columns 13 through 1C. The
option word LIST must be entered in this field for the listings of the input
emission factor file, the output emission factor file, and the emission factor
file transactions to be produced. If this field is blank, or if it is
specified incorrectly, no files will be listed.
CRPEFAC (EC0150) produces a detailed report of the EIS/AS emission factor
file. This report is organized so that printed beneath each emission factor
category record are the pollutant records subordinate to it. Headings are
generated at the top of each page for both the emission factor category and
pollutant records.
The run stream for this test run contains the JCL needed to create an
EIS/AS emission factor file and produce a detailed report of this file. This
run stream is shown in Figure AST1-3. It does not show all the input emission
factor file transactions in the run stream, but does show tfie necessary JCL.
The sample output produced by this procedure is shown in Figure AST1-4.
First, the run stream executes the cataloged procedure ECEME10 to create
the emission factor file. Since this test run creates the initial EIS/AS
emission factor file, there is obviously not an input emission factor file to
be accessed. This is why the old emission factor file ECSOLEF must be a dummy
file in the UPDATE step. Through the use of a substitutable parameter, the
new emission factor file is named ECEMFL1. The user must supply the DD (data
definition) information for the option card file in the UPDATE step and for
the input emission factor file transaction file in the SORT step. The options
specified in the UPDATE step of this test run are 80004, FLAGW, and LIST.
-------
Next, the cataloged procedure ECRPE10 is executed to produce a detailed
report. A substitutable parameter is used to specify ECEMFL1 as the input
emission factor file.
-------
Header Record
Record Position Field Length Description
1-23 23 All Zeros
24 - 80 57 Filler
(Page 1 of 4)
Figure AST1-1. Emission Factor File Transaction Format
6
-------
Type 1 Transaction
Record Position Field Length Description
1-2 2 State
3-6 4 County
7-11 5 Suballocation
12-14 3 Category
15 - 1C 2 Disaggregation
17-23 7 Filler
24 - 2b 2 Year
26-28 3 Day
29 1 Nitrogen Flag
30 1 Sulfur Flag
31 1 Ash Flag
32-34 3 Nitrogen Content
35-37 3 Sulfur Content
38-40 3 Ash Content
41-65 25 Category Description
66 - 78 13 Filler
79 1 Card Number (1)
80 1 Action Code
(Page 2 of 4)
Figure AST1-1 - continued. Emission Factor File Transaction Format
7
-------
Type 2 Transaction
Record Position
1 -
7
12
15
17
24
26
29
49
2
6
11
14
16
23
25
28
48
78
79
80
Meld Length
2
4
5
3
2
7
2
3
20
30
1
1
Description
State
County
Suballocation
Category
Disaggregation
Filler
Year
Day
County Name
Filler
Card Number (2)
Action Code
(Page 3 of 4)
Figure AST1-1 - continued. Emission Factor File Transaction Format
8
-------
Type 3 Transaction
Record Position Field Length Description
1-2 2 State
3-6 4 County
7-11 5 Suballocation
12-14 3 Category
15-16 2 Disaggregation
17 1 Emission Factor Origin
18 1 Emission Factor Source
19 - 23 5 Pollutant ID
24-25 2 Year
26 - 28 3 Day
29 - 38 1C Emission Factor
39 1 Confidence Level
40 - 54 15 Pollutant Name
55 - 64 10 Pollutant Specific Data
65-78 14 Filler
79 1 Card Number (3)
80 1 Action Code
(Page 4 of 4)
Figure AST1-1 - continued. Emission Factor File Transaction Format
9
-------
AGENCY.
EMISSIONS INVENTORY SYSTEM/AREA SOURCE (EIS/AS)
COMPREHENSIVE DATA HANDLING SYSTEM (CDHS)
EMISSION FACTOR FILE TRANSACTIONS
BY
DATE.
PAGE.
-OF.
-n
to
c
-s
n>
s
T
A
T
E
i
COUNTY
3
1 i i
SUBALLOC
7
CATEG
NBR
12
OISAG
NBR
1!.
FL
N
29
At
S
3C
S
A
31
NITRO
CONT
32
. 1 1
SULF
CONT
35
1 A
ASH
CONT
38
1 A
DA
YR
"2A
TE
DAY
?G
A
CATEGORY DESCRIPTION
11 CD
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i i 1 1
1 I t I I i I 1 I 1 i I
N
6
R
7')
1
C
T
O
N
RO
CO
COUNTY NAME
29 48
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 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
N
R
/9
1
C
T
O
N
80
10
t/>
o
3
~n
CD
ctor File Transaction Load Sheet
0
R
G
'/
R
C
18
1
j
POLLUTANT
ID
9
I 1 1 1
1111
i t i i
i i i i
i i i i
till
Ilil
i | t i
i | | i
i | i i
i | i i
li i ' I
i i i i
i i i i
till
I I I I
EMISSION FACTOR
29
1 1 t 1 1 1 A 1 1
1 1 1 1 1 1 A 1 1
1 1 t t 1 1 ' A 1 1
t 1 1 1 1 1 A 1 1
All
1 1 1 t t 1 A 1 1
1 1 1 1 1 1 A 1 1
1 1 1 1 1 1 A 1 1
1 1 1 1 1 1 A ! |
1 1 1 1 1 1 A 1 t
1 1 I 1 _[ I A 1 I
t 1 1 1 1 1 A i 1
1 1 t 1 1 1 A 1 1
1 ( 1 1 1 1 A 1 i
1 1 ! 1 1 1 A ! 1
1 1 1 1 1 1 A 1 1
C
0
N
F
!0
POLLUTANT NAME
40
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 1 1 1 t 1 t 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 1 1 1 t 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 | |
Illll_llillllll
1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 t 1 1 1 1 1 t 1 1
1 1 1 1 1 1 1 1 t 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 t 1
I 1 1 1 1 t 1 1 1 1 1 1 1 1
POLLUTANT
SPECIFIC DATA
55 64
l 1 1 1 1 1 1 1 1
1 1 I 1 1 1 1 t 1
1 1 1 1 1 I 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 t 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 t 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 1 1
1 1 | | 1 1 1 t 1
1 1 1 1 1 i 1 1 1
-^^J 1 1 1 1 1 1 1
1 1 t 1 1 1 1 t 1 1 1 1 1
1 t 1 1 1 1 1 ( 1 1 t 1 1
1 1 1 1 1 1 t 1 1 1 1 1 1
t I I l I 1 1 I 1 1 1 J_ 1
1 I 1 1 1 1 1 1 1 1 1 t 1
1 1 1 1 1 1 t 1 1 1 1 1 1
1 1 1 I 1 1 1 1 1 1 t 1 1
1 1 1 1 1 1 1 1 1 1 t 1 1
1 t 1 1 1 1 1 1 1 1 1 1 1
1 I 1 1 t 1 1 1 ) 1 t 1 1
1 1 1 1 I 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 t
11(1111111111
1 1 1 1 1 1 I 1 1 1 1 1 1
N
B
R
79
"\
^
3
•\
3
^
1
3
3
^
T
3
•\
•\
3
3
T
O
N
9
-------
//AbUSIOJ jnh f ACL"lJN I JH<~.
//*
//*
//UM01 A FxFC Kt"t 10,
it"K rfCFMFLI
//* CWFATt IHE INITIAL 1M1
//*
//SURi.iWHIM un *
/»17V
FACT OH f-TLF
ANIHkACITF Cu»L
OuluOyooOOOOOlOuF a,;lo1 /"1790000090000
oooooooooooooioOF /i£uoiaoo^oooooo3"ooo SULFE" DIOXIDES
«£!60?ttOOSii0000003000 N UXIPER
^31 0 1 ttOOSuOOOOOO?50o TOTAL HY CARiiON
OuOoOOO()00001?flo 7M79 RtSlOtNl 61 1 "MTNUUS CQAL
1 1 1 1)1 7«1 790000020000 SUSPENDED fAKT.
12101800SOOOOOOVOOOO C»KRUN MONJXJDE
0(jOooooooo000200F a2*01800S0000003ROOO SULFER DIPXIUE
0000000000000200F «3101 7"! 790(100020000 TOTAL HY CAReCM
Or»0o000ij00000300 7^17V RtSIOfcNl OISTIILATF OJL
0000000000000300F 1110)800^0000000?bOO 31
0000000000000300F U2101rtOOSOOOOQ1UUOOu S"LFJR
OOOOOOOOOU00030(|F U31 01 BOOSOOOOOOOI 000 TOTAL HY
ooooouooooooouoo r«i7tR
TOTAL HY
11101
SULFU"
000 N
1 A
1 A
J A
3A
•^A
1 A
3A
1 A
3A
3A
1 A
3A
1A
(Remainder of transactions omitted)
i>n n
I Hi'lS DPv *
P 0 0 (I '1 F L A I- ^ L J S 1
// t»tC
//*
//*
THF
FJLt
]N S1FP A
Figure AST1-3. Run Stream
11
-------
EIS/AS F^ISSIPtv FACTCR FUt I"«k'S »C T I ON SOKT PKCGPA* - OlAGNCSTJC KF.HCHT PAGE
m
c
-5
n>
oo
00
CD
•o
fD
O
<-(•
•a
c
PRPUPA" K'AMt! CSStFlf (EC0010)
REVISION LFVF.Lt 1-00
LAST UPOMF *: A-l
INCOWPORaTbH: FEbBLUHY 1,
NUWHFK OF INPUT THUNSACTICNS: ('it'
NU"dFB CF OOTPUl TRANSACTIONS:
10
n>
-------
S FKTSSIHN FACTU" Fi>_t tr>iT-*A JNT^ANCE P^PCRA" - DIAGNOSTIC KEPTKT PAGE
: CEWEFAC
REVISION LFVFL: I-OU
I AST UPUATE » : A-l
HATE INCOHPQOATtD: FEbRUAKV ), i<»80
OPTION CARD
CONTROL DATE IS gOOOii, LRRCh OPTION IS FLAG* , LIST OPTION IS LIST
^ oooooooonooooooo 7^95 10
TO **« CFKFFAC 022 ERRCR - DELETE SPECIFIED FC" NONEXISTENT EIS/AS E^F HECCHn - CftRO REJFCTED
^ nooonooonooooono 7<)£9<> ID
_t **» CE:MEFAC 022 ERRTH - DELETE SPECIFIED FCP NONEXISTENT FIS/AS E*F RECORP - CARD REJECTED
i—1
js. 0000000000000300 7S295 1«
*** CEMEFAC 02S ERRCR - DUPLICATE ADD TRANSACTION - CARD REJECTED
O 0000000000000300S1 1 1 I 01 7<)29500000001 1 1 TSP. TCN'S/SO. KI 3A
*** CEMEFAC 037 ERRCR - COLUhN 17. EF ORIGIN MUST B
-'• 0000000000003600 76J79 HVY DUTY GAS VFH RURAL RD IA
§ «** CEMEFAC 02 ooooooooooooaooo 7P179 HVY PUTY DIESEL VEH LACHD IA
c
c
o *«* CEMFFAC 029 ERRfK - DUPLICATE ADD TRANSACTION - CARP REJECTED
OOOOOOOOOOOOfluOO 78179 OFF HIGHWAY PIFSEL VFH 1A
*-^ *** CEKEFAC 029 ERRCh - OUHL1CATL ADD TRANSACTION - CARP REJECTED
-O
^ ooooooooooooasoo 7P17S RAILRUAO LHCOKOTIVES IA
TO ««* CEMFFAC 029 ERKCfi - DUPLICATE ADD TRANSACTION - CARP REJECTED
ro
OOOOOOOOOOOOU600 78179 MILITARY AIRCRAFT LIP'S 1A
O •*« CEMEFAC 029 ERKCR - DUPLICATE ADU TRANSACTICN - CART REJECTED
~n
^J 000000000000«700 78179 C. IVRAIRtRAFjLTU'S 1A
-------
E1S/AS FMbSlON
FILE £0 1 T -» A 1 NTEN ANCE PROGRAM - DIAGNOSTIC KEHCRT
PARE
7
OF THANSACTIONS RFAD:
NU"bER CF FRRGPS UETECTtD:
OF EARNINGS UETEcTtR:
CF TRANSACTIONS REJECTED:
CF FKTSSJON FACTUR FILE RECORDS READ;
OF EMISSION FACTOR FILE fcECOHDS oRlTTEN:
9?0
116
0
102
0
682
co
o
o
3
rl-
-i.
3
C
PROGRAM NAME: Ct^EFAC (EC0020)
REVISION LEVEL: 1-00
LAST UPDATE *: A-l
OATE INCORPORATED: FFBRUARY 1, I960
CO
CD
T3
n>
O
rt
•a
-o
Q)
ca
CD
CO
o
-h
-------
El:i/»S
:>»CTION FILF LISTING
PAKE
10
n>
CO
o
o
3
I—1 <-+
tn -j.
CD
Q.
CO
Oi
(II
UD
n o o o o o o o o c o o o o r o
0000000000000000
oooooooooofloooou
ooooooouoonooooo
OOOOOQOOOOOOOIOO
oooooooooooooiOOF
00000000000001 OOF
OOOOOOOOOOOOOIOOF
ooooouoonooooiOOF
oooooooooonooj OOF
n o o o o o o o o o o o o '
-------
FACTLR FILE UHTPUT LISTING
PAGE
~n
_j.
UQ
c
-5
fD
ja
oo
i—"
i
"^
i
o
3
en -••
c
fD
Q.
•
oo
fu
3
•a
fD
O
pj.
T3
S- "-U
Qj
to
fD
in
o
-h
•^1
nonono
n o n o o o
nonono
oooono
nooooo
nonono
n o n 0 P u
n o o o n 0
nonono
OOOOPO
OOOOOO
OOOOPO
nonooo
oooooo
nonooo
oooooo
oooooc
nooooo
oooooo
nooooo
oooooo
oonooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooono
nooooo
oooooo
oooooo
OOOOPO
oooooo
oooooo
oonooo
oooooo
oooono
oooooo
oooooo
oooooo
oonono
oooono
nonooo
nooonoPonoPOPooonofior-oa on 001
n o o o o o o o o o i
o o o-o o d o i n o i
"onooon 10021
nonononino2i
ponooooi oo2i
ioounoo i 0021
oonuoooinozi
ounooun^oo i
P0000002PO?!
o o n o o o n c? n o 2 1
000000020021
n o o o o o n 2 o o ? i
000000020021
OOOOOOOiOOl
000000030021
000000030021
000000030021
000000030021
000000030021
ooooooooooi
OOOOOOOU0021
000000000021
nooonooaoo21
OOOOOOOU0021
n o o o o o P <4 o o 2 1
00000005001
000000050021
000000050021
000000050021
nOOOOOOb002l
oooonoosoo2i
00000006001
000000060021
000000060021
000000060021
000000060021
000000060021
00000007001
000000070021
000000070021
000000070021
000000070021
000000070021
nooooooBOOl
000000080021
7
-------
F.JS/»i E"1S5ILN FACTO* FILE nETMLF.U HtHDKT PHOGRA" - fHaUNUSTIC KFFOHT HAGF
PNPUPAW NA*t: CHPtFAC (tCCJlSO)
"tWlSJON LFVFL: 1-00
LAST UPUME «: A-i
OATt JNCOHPUKATtH: FEbPU'HV 1, l«)eO
MCTQP FILE. HECCHD COUNT: ^e?
CF CATEGORIFS i^ LISI: 9«
NUUHFK LF POLLUTANT FMRIKS in LIST: se?
-n FEDFhAL PQLLUTANI tMlRJFS: ^20
-•• STATt PTLLUTAM tNTPIF.b: 13J
C LOCAL PCLLllTAM tNTRJFS: 13"
-1 NUW6FK OF FRRORS: 0
ro NUWHFR OF PAGts IN RFPORT: is
>
oo
O
O
3
C
fD
Q.
00
Cu
T3
ft)
O
rt
"O
CU
C3
(T)
CD
O
-------
F.IS/AS EMISSION FACIOH FILE DfcTAtLED RFHOHT
PAGE
11
-n
_l.
to
-J
n>
oo
o
o
00 -••
ro
o.
oo
Cu
•a
n>
o
£Z
•a
c
to
rt>
o
-h
STATE rOUNTV SUBALLOC 01SAG CATEGOrtY
CODE M^L NUHRER * NUW6EK DFSCK IPTICN
F_I*F
YY
00 . 0000 00000
78
60
60
80
80
00 0000 00000
7«
60
80
80
60
00 0000 00000
78
78
60
80
80
on oooo ooooo
80
80
BO
eo
60
oe 12*0 ANY-NA^E ooooo
79
79
79
79
79
79
79
7"
79
79
06 1280 ANY-NA«E OOOOO
79
79
nATE
DDu
179
050
050
050
050
179
050
050
050
050
179
179
050
050
050
050
050
050
050
050
299
310
310
310
310
299
296
296
296
296
299
310
CAT DATE FLAGS/CONTENTS X'S
YY DDO NTT SUL ASH
POLLUTANT t^issio*
ID NAME CRIG SOURCE FACTCn
On U61
11101
42101
I2iul
42602
03101
00 062
11101
"2101
12001
12602
13101
00 063
1 1101
12101
12101
1260?
13101
on 061
11101
12101
12101
12602
U101
OP 000
11101
1210)
12101
12602
13101
11101
12101
12101
12602
13101
on 002
11101
12101
MANAGED dURNIKG-PRESC^lPE
SUSPENDED PART. FEDERAL
CARBON MONOXIDE FEDERAL
SULFUR DICXIOE FEDERAL
N OXICES FEDERAL
TOTAL HY CAHBl^ FEDERAL
AGRICULTURE FIELD BURNING
SUSPENDED PART. FEDERAL
CARBON MONCAIDE FEDERAL
SULFUR DIGXIOE FEDERAL
N OXICES FEDERAL
TOTAL HY CARBON FEDERAL
FROST CNTRL-ORCHARD hEATR
SUSPENDED PART. FEDERAL
CARBON KONCXTDE FEDERAL
SULFtIK DIOXIDE FEDERAL
N OXIDES FEDERAL
TOTAL HY CARBON FEDERAL
STRUCTURAL FIRES
SUSPENDED PART. FEDERAL
CARBON KONCXIDE FEDERAL
SULFUR DIOXIDE FEDERAL
N OXICES FEDERAL
TOTAL HY CARBON' FEDERAL
HFSIDENT ANTHRACITE CCAL
PARUCULATFS STATE
CARBON HONCXIDE STATE
SULFUh OICX1DE STATE
NITrtflGFN -CXIDtS STATE
HYDhOCARBCNS STATE
PARTICULATEb LOCAL
CARBON MONrxiDE LOCAL
SULFIJH DICXIOE LOCAL
NITROGEN CXIDES LOCAL
hYDROCARBCNS LOCAL
RESIDENT BITUMINOUS CCAL
PARTICIPATES STATE
CARBON KONCXIDE STATE
If. 179
17.000
110.000
0.150
1.000
21.000
78 179
17.000
100.000
0.000
2.000
20,000
78 179
0.200
22.000
0.100
0.000
13.000
78 179
113.000
582.000
0.100
17.000
107.000
79 297 N/.010
1.000
0.100
0.100
0.200
0.020
12.000
0.000
0.000
0.000
0.000
79 297 N/.100
2.000
0.575
CONF POLLUTANT
LEVEL SPEC DATA
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
S/20.0 A/ J.O
0
0
0
0
0
0
0
0
0
0
A/ 4.0
0
0
-------
EIS/AS Test 2
Create the Initial Master File Using NEDS Transactions
In this test run, the initial EIS/AS master file is created from NEDS
transactions using the cataloged procedure ECFMM20 which executes CCENETR
(EC0030), the NEDS to EIS/AS master file transaction conversion-edit program;
CSRINTR (EC0050), the master file internal transaction sort program; CMSEFIN
(EC0060), the master file internal transaction emission factor insertion
program; and CFMMSTR (EC0070), the master file maintenance program.
CCENETR (EC0030) edits the input NEDS area source transactions and
converts those that pass the edit criteria into EIS/AS internal transactions.
The input NEDS area source transactions include the Al thru A7 cards. Refer
to Figure AST2-1 for the transaction formats.
Description, category, and NEDS comment internal transactions are
generated from the NEDS transactions. A NEDS Al add transaction will generate
the description transactions used to build a county description record in the
master file. A NEDS A6 add transaction will add a NEDS A6 comment record to
the master file. A NEDS A7 or any category field on the NEDS Al thru A5 cards
will generate the category transactions necessary to add the category to the
master file. Note that the county description record must exist before
category or comment records are added for the county. Internal transactions
produced in CCENETR (EC0030) will have a geographic suballocation number of
zero (that is, only county records). Category transactions for categories
001-064 will be generated for those categories passing edit criteria; the
category disaggregation number will be zero.
All NEDS transactions are edited for valid state, county, AQCR, action
code, A-type card, and card number. If any of these fields are in error, the
transaction will be rejected, and no EIS/AS internal transactions will be
created from that NEDS transaction. An invalid value in any other NEDS field
will result in that field being rejected, but other fields on that transaction
will be accepted if valid.
19
-------
The options in this program are used to determine if the year field in
the NEDS Al transaction is valid, if the warning messages are to appear in the
diagnostic report, and if the input NEDS transactions and output internal
transactions should be printed. A two-digit year must be specified in card
columns 1 and 2 of the option card in order to edit the year field in the NEDS
Al transaction (the NEDS Al year must not be greater than the option card
year). If the warning messages are to be printed in the diagnostic report,
the word FLAGW must appear in card columns 4 through 8; or, the warning-level
messages will be suppressed. In order for the input NEDS transactions and
output internal transactions to be printed, the word LIST must appear in card
columns 10 through 13 of the option card; otherwise, the listings will not be
printed. A valid option card must be present in the run stream; failure to
enter the option card will cause program execution to be terminated
prematurely.
CSRINTR (EC0050) sorts the master file internal transactions into the
sequence required by CMSEFIN (EC0060) and CFMMSTR (EC0070). All master file
internal transactions must be sorted by CSRINTR (EC0050) before they can be
used to create (or update) the EIS/AS master file. A header record is
generated by CSRINTR (EC0050) which appears as the first transaction but has
no action code or card number.
CMSEFIN (EC0060) inserts emission factor information from the EIS/AS
emission factor file into the category-2 and category-5 internal transactions.
The information to be inserted, as well as the conditions for insertion, are
specified on the option card.
In order to insert the information, CMSEFIN (EC0060) matches category-2
transactions to category records in the emission factor file and category-5
transactions to pollutant records. For category-2 transactions, a matching
state- or local-origin record is sought; if one is not found, a matching
federal-origin record is sought. Since category-5 records contain a character
to indicate federal, state, or local origin, a matching record of that
specified origin is sought.
20
-------
If a matching emission factor file record is found for an internal
transaction, the information in that record is inserted into the appropriate
fields of the transaction. No changes are made to any of the other input
internal transactions.
The user can specify by means of an option card the transaction fields
for insertion and can specify whether or not data from the emission factor
file should override (i.e., replace) existing data in any of those fields.
The user can also specify whether or not emission factor file data must
satisfy date criteria and whether or not warning messages should be printed.
All options are specified in fixed fields on the option card. See Figure
AST2-2 for the format of the option card.
A transaction field is specified for insertion by coding its identifier
and an 'I1 in the appropriate option card field. The valid fields for
insertion and their identifiers are as follows:
Field Identifier
Nitrogen Content NIT
Sulfur Content SUL
Ash Content ASH
Emission Factor EMISSION
Confidence Level CONF
Pollutant-Specific Data SPEC
If no valid fields are specified for insertion, the emission factor and
confidence level fields are assumed as defaults.
If a valid transaction field has been specified for insertion, that field
must be blank for any data to be inserted. If the user desires to insert data
into a field regardless of its content, he can specify an override for that
field by coding an '0' in the appropriate option card field. If an override
is specified for a particular field, any data in that field will be replaced
with data from the matching emission factor file record.
21
-------
Date criteria can be established for insertions by coding a date
identifier and a date value. For nitrogen, sulfur, and ash content, the date
identifier is 'CDAT1 (category record date); for emission factor, confidence
level, and pollutant-specific data, the date identifier is 'PDAT1 (pollutant
record date). The date value is expressed as a Julian date; that is, as a
5-character number, the first two digits of which represent the year and the
last three, the day within the year. No insertion will be made into a field
if the date of the matching emission factor file record is prior to the date
specified for that field. If no date criteria are specified, insertions into
the specified fields will be made regardless of the dates of the emission
factor file records.
If 'FLAGW is coded in the warning message suppression field of the
option card, all warning messages will be printed in the diagnostic report; if
'NOFLAGW is coded, no warning messages will be printed. If this field is
left blank or improperly coded, NOFLAGW is assumed.
CFMMSTR (EC0070) creates and maintains the EIS/AS master file which is a
variable-length, sequential file. This file contains three types of records:
description, category, and comment.
The description record contains general descriptive information
pertaining to a geographic area. This geographic area may be either a county
or a smaller area denoted by a nonzero geographic suballocation number. A
county description record must be present before any other records can be
accepted for that county; i.e., suballocation description, category, and
comment records. Also a description record (county or subal location) must be
present before any category records (including category disaggregation
records) or comment records can be accepted for that geographic area.
Category records contain emission information for a geographic area and
are subordinate to the description record for that area. There can be up to
999 category records for each geographic area: category records 001-064 are
used for the NEDS categories; 065-998 are used for user-defined categories,
and category 999 is generated by CFMMSTR (EC0070). In addition, each category
22
-------
can be disaggregated with a separate record describing each disaggregation.
The category 999 record contains a summary of emissions for all the category
records with a disaggregation number of zero.
The comment records are used to include additional information for both
geographic areas (county and/or suballocation description records) and
categories (both category and disaggregation). There can only be one NEDS
comment record for a county description record; all other EIS/AS records can
have up to 999 comment records. Comment records will only be added if there
is a record in the master file (description or category) with matching key
information, including state, county, geographic suballocation number,
category number, and category disaggregation number.
The options in CFMMSTR (EC0070) are used to determine if the warning
messages are to be printed in the diagnostic report and if the listings of the
input and output master file and of the internal transactions should be
produced. A two-digit year may be specified in card columns 1 and 2. A value
of FLAGW in card columns 4 through 8 will allow the warning messages to be
printed. Otherwise, no warning messages will be printed. Similarly, a value
of LIST in card columns 10 through 13 will produce all the listings.
Otherwise, the listings will not be produced.
The run stream for this test run contains the JCL necessary for creating
an EIS/AS master file from NEDS area source transactions. This run stream is
shown in Figure AST2-3. It does not show all the input NEDS transactions in
the run stream, but does show the necessary JCL.
The cataloged procedure executed by this run stream is ECFMM20. For the
CONVERT step, the user must supply the DD (data definition) information for
the option card file and the input NEDS transaction file. The options
specified in the CONVERT step are 80, FLAGW and LIST. The user must also
supply the DD information for the option card file in the INSERT step. In
this step of the test run the options specified are: • NOFLAGW, NIT 10, SUL 10,
ASH 10, EMISSION 10, CONF 10, and SPEC 10. Since this test run creates the
23
-------
initial EIS/AS master file , there is obviously not an input master file to be
accessed. This is why the old master file ECSOLMF must be a dummy file in the
UPDATE step. Also, the options specified in the UPDATE step are 80, FLAGW and
LIST. Through the use of substitutable parameters, the emission factor file
is specified as ECEMFL1 (created in Test 1) and the new master file is named
ECMSTR1. Refer to Figure AST2-4 for the sample output produced by this
run stream.
24
-------
NEDS Al Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
12 -
17 -
21 -
25 -
30 -
35 -
2
6
9
11
16
20
24
29
34
36
2
4
3
2
5
4
4
5
5
2
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
37 - 38
39 - 40
41 - 42
43 - 45
46 - 48
49 - 53
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Description
State
County
AQCR
Year of Record
SIP Estimate - TSP
SIP Estimate - S02
SIP Estimate - NOX
SIP Estimate - HC
SIP Estimate - CO
Sulfur Content -
Anthracite Coal
Sulfur Content -
Bituminous Coal
Sulfur Content -
Distillate Oil
Sulfur Content -
Residual Oil
Ash Content -
Anthracite Coal
Ash Content -
Bituminous Coal
Residential Fuel -
Anthracite Coal
(Page 1 of 10)
Figure AST2-1. NEDS Area Source Transaction Formats
25
-------
NEDS Al Transaction (continued)
Column #
54 - 59
60 - 64
65 - 68
69 - 73
74 - 77
78
79
80
Field Length
5
4
5
4
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Description
Residential Fuel -
Bituminous Coal
Residential Fuel -
Distillate Oil
Residential Fuel -
Residual Oil
Residential Fuel •
Natural Gas
Residential Fuel •
Wood
Action Code
'A' (Area Source)
'I1 (Card Number)
(Page 2 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
26
-------
NEDS A2 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
15 -
20 -
25 -
30 -
34 -
36 -
42 -
48 -
52 -
2
6
9
14
19
24
29
33
35
41
47
51
56
2
4
3
5
5
5
5
4
2
6
6
4
5
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Description
State
County
AQCR
Commercial Fuel
Anthracite Coal
Commercial Fuel
Bituminous Coal
Commercial Fuel
Distillate Oil
Commercial Fuel
Residual Oil
Commercial Fuel
Natural Gas
Commercial Fuel
Wood
Industrial Fuel
Anthracite Coal
Industrial Fuel
Bituminous Coal
Industrial Fuel
Coke
Industrial Fuel
Distillate Oil
(Page 3 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
27
-------
NEDS A2 Transaction (continued)
Column #
57 - 61
62 - 66
67 - 69
70 - 73
74 - 77
78
79
80
Field Length
5
5
3
4
4
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Blank
Alphabetic
Alphabetic
Numeric
Description
Industrial Fuel -
Residual Oil
Industrial Fuel -
Natural Gas
Industrial Fuel -
Wood
Industrial Fuel -
Process Gas
Unused
Action Code
'A1 (Area Source)
'2' (Card Number)
(Page 4 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
28
-------
NEDS A3 Transaction
Column #
1 - 2
3-6
7-9
10 - 15
16 - 20
21 - 24
25
31
37
42
49
55
61
67
72
- 30
- 36
- 41
- 48
- 54
- 60
- 66
- 71
- 76
77
78
79
80
Field Length
2
4
3
6
6
6
5
5
1
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
25 - 30
31 - 36
37 - 41
42 - 48
6
6
5
7
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Description
State
County
AQCR
On Site Incineration -
Residential
On Site Incineration -
Industrial
On Site Incineration -
Commercial
Open Burning - Residential
Open Burning - Industrial
Open Burning - Commercial
Gasoline Fuel - Light
Vehicle
Gasoline Fuel - Heavy
Vehicle
Gasoline Fuel - Off Highway
Diesel Fuel - Heavy Vehicle
Diesel Fuel - Off Highway
Diesel Fuel - Rail
Locomotive
Population Code
Action Code
'A1 (Area Source)
'3' (Card Number)
(Page 5 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
29
-------
NEDS A4 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
14 -
2.0 -
25 -
29 -
33 -
38 -
42 -
48 -
53 -
59 -
65 -
71 -
2
6
9
13
19
24
28
32
37
41
47
52
58
64
70
77
78
79
80
2
4
3
4
6
5.
4
4
5
4
6
5
6
6
6
7
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Description
State
County
AQCR
Aircraft - Military
Aircraft - Civil
Aircraft - Commercial
Vessels - Coal
Vessels - Diesel Oil
Vessels - Residual Oil
Vessels - Gasoline
Evaporation - Solvent
Purchased
Evaporation - Gasoline
Marketed
Measured Vehicle Miles
Limited Access Road
Measured Vehicle Miles
Rural Road
Measured Vehicle Miles
Suburban Road
Measured Vehicle Miles
Urban Road
Action Code
'A' (Area Source)
'4' (Card Number)
(Page 6 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
30
-------
NEDS A5 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
17 -
22 -
28 -
33 -
38 -
45 -
48 -
54 -
57 -
63 -
66 -
70 -
2
6
9
16
21
27
32
37
44
47
53
56
62
65
69
72
2
4
3
7
5
6
5
5
7
3
6
3
6
3
4
3
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Description
State
County
AQCR
Dirt Roads Traveled
Dirt Air Strips
Construction Acres
Miscellaneous Wind Erosion
Land Til ling
Forest Wildfires - Acres
Burned
Forest Wildfires - Tons per
Acre Burned
Managed Burning - Acres
Burned
Managed Burning - Tons per
Acre Burned
Agricultural Field Burning
- Acres Burned
Agricultural Field Burning
- Tons per Acre Burned
Frost Control - Orchard
Heaters Operating
Frost Control - Days Fired
(Page 7 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
31
-------
NEDS A5 Transaction (continued)
Column
73 - 77
78
79
80
Field Length
5
1
1
1
Data Type
Numeric
Alphabetic
Alphabetic
Numeric
Description
Structure Fires
Action Code
'A' (Area Source)
'5' (Card Number)
(Page 8 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
32
-------
Column #
1
3
7
10
2
6
9
77
78
79
80
Field Length
2
4
3
68
1
1
1
NEDS A6 Transaction
Data Type
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Description
State
County
AQCR
Comments
Action Code
'A' (Area Source)
'6' (Card Number)
(Page 9 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
33
-------
NEDS A7 Transaction
Column #
Field Length
1 -
3 -
7 -
10 -
12 -
14 -
20 -
25 -
31 -
37 -
44 -
2
6
9
11
13
19
24
30
36
43
77
78
79
80
2
4
3
2
2
6
5
6
6
7
34
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Description
State
County
AQCR
Year of Record
Source Code
Emission Estimate
Emission Estimate
Emission Estimate
Emission Estimate
Emission Estimate
Comment
Action Code
'A' (Area Source)
'7' (Card Number)
TSP
S02
NOX
HC
CO
(Page 10 of 10)
Figure AST2-1 - continued. NEDS Area Source Transaction Formats
34
-------
Column Column Column Column Column
#1 #9 #16 #23 #30
V
V
V
V
Column Column Column Column
#42 #50 #58 #69
V V
FLAGW NIT I SUL I ASH I EMISSION I CONF I SPEC I CDAT XXYYY PDAT XXYYY
or or or or or or or
NOFLAGW NIT 10 SUL 10 ASH 10 EMISSION 10 CONF 10 SPEC 10
Note: 1. XX denotes the year; YYY the Julian date
2. Each field must contain one of the possible values indicated for it or be
blank.
Figure AST2-2. Option Card Format
35
-------
//A.STES10? Jllh ( ACLOUWl iNf, IwFu)
//*
//• CwfATt IHt IMJT1AL f.ASTt" FILE USlNb NFDS TKArvSACI
^A FXFC
// FMFCFll.rFCFMFLl,
//* USF Mtr>S lP«.NsACT10r,S TO CREATE THF flKlUIwAL MASTER FILE
//ruNy/E(20017000023 AA2
1q7U6006500ia67 u01204«Oo17210011840ul5flo00003003145AA3
147860065 0007&7 006600056700207 OQ9113 OQOB651AA4
1478600650000030 000167002P5O0649 012 OOObOAAS
147860065o02?0003000002100015in202S(JOOl20000A7 EMISSION RECURDFD AA?
14786006580140003000002100015102025000120000*7 EMISSION RECORUFO A*7
147860065600«0003000002100015102025000120000*7 EMISSION RECOkOED A*7
1«R0400747500b"000030014000lBu00670e36O3| 10930Q30000100010300044 000p9 A A 1
14B010074 00003000?60l)03ao031 000050 00019000^000004 A*2
I 001100001030001 IP 700003001PV4A43
000175 OOQ6270016U 007986 000«302A»4
OP00130P31200605 OJ? OOOo7AAS
AAb
tM!SSTU»l PtCUPOED AA7
I4«010074b028000300000020o0l5l70525000100000*7 EMISSTOfJ RECO»DEO A*7
1 4804007U80U4U003000001200P11 17o52?OOOIO?OOOA7 E^IPSIU^1 "vECURDEl) AA7
I 000300000120QO 11 17052?0001 0?0°OA7 tMISSIlJN RtCU»t(Ei) A*7
(Remainder of transactions omitted)
I, *
"0 FLARr. LIST
//INSERT .LrPlTO^S OH *
NU^LAiift NIT lu SUL 10 ASH lu IM1SSTUN IU tONF ]U SPEC IU
//UPDATE. ECJ>riLuF OH nu"MY,r>CR = cILKsTZF = ! 327
//'iprATt.uPi IUNS t.r> »
»U Fl AT,R LIST
Figure AST2-3. Run Stream
36
-------
NEUS TU EIS/AS CUnll/tKSlUli-EtMI PKUGHA* DIAGNOSTIC KEHOKT PAGE
CO
Cu
3
•a
c-f
"C
r*
PKOGNAM NAME: CCE'JtTK
REVISION LEVEL: l-oo
LAS! UPDATE *: A-J
DATE INCORPORATED: FEBRUARY 1, I960
OPTION CARD
CONTROL UAIt IS 80 . EKRUW OPI10N IS ^LAG» , LIST OPTION IS LIST
\
3>
oo
IN5
I
42.
-a
^ Nti)S TU ElS/At, CUNVtKSHiN-tOl I PKilliKAM DIAGNUS1IC HtPUKT PAGE
a>
NUMBER (^ NEUS TRANSCTIONS t
-------
NfcUS AKtA SUUKCL IxANSACllUN LISTING PAGE
1478400747500197000300100001500055063M03110V30930000100010100137 00042 AA1
147840074 0000300023000310012 000037 000110003000007 AA2
147840074000947 00056710006100006520008260000100121bAA3
147840074 000365 026700052500069 003098 0005303AA4
1478400740000005 0000670009900224 012 00052AA5
147840074nABASH AA6
14784007480050003000002000015000025000040000A7 EMISSION RECORDED AA7
14784007480340003000002000015000025000040000A7 EMISSION RECORDED AA7
1478400748001000300000200001500002500004UOOOA7 EMISSION RECORDED AA7
. 14784007480490003000002000015000025000040000A7 EMISSION RECORDED AA7
\4840007460050003000002000015000025000040000A7 EMISSION KECOROEl) AA7
31 14786006575011360u070022000230009BOb360311OV30930000100008100183 00096 AA1
U3 147660065 0000400034000450025 000281 000620017000023 AA2
«= 147860065001467 0012048001721001184001566000030U3145AA3
j?J) 147860065 000767 006600056700207 009113 0008651AA4
1476600650000030 000167002850064V 012 00080AA5
^ 147860065«AKREN AAb
—I 14786006580220003000002100015102025000120000A7 EMISSION RECORDED AA7
^ 14786006580140003000002100015102025000120000A7 EMISSION RECORDED AA7
.p» 14786006580640003000002100015102025U001200UOA7 EMISSION RECORDED AA7
1480400747500540000300140001800067063803110930VSO000100010300044 00069 AA1
1 148040074 OOOOiOi)02bOOOJ40031 OOOO^V U 0 0 190 0 0 5 000 0 04 AA2
O 146040074001228 (100633100119000103000110700003001094AA3
§ 148040074 000475 000627001o4 007986 0004302AA4
CO r+ 14804007U0000014 0000130031200605 012 00067AA5
00 ->• 148040074KAVNE AAb
§ 14804007460190003000002200015172525900160000A7 EMISSION KtCORDED AA7
fD 14604007460260003000000200015170525000100000A7 EMISSION WECO«DEU AA7
P- 148040074804400030000012000111705220001020UOA7 EMISSION RECOKOEO AA7
14804007480510003000001200011170522000102000*7 EMISSION KECOKDED AA7
«20(j801987501300060009002400022900 100216 091 00000500099 000130089AAJ
Q? 420680198 00011 0001 00006 00001 AA2
3 420680196 00027000000100025001172200034J001166001480000 11000131AA3
"5L 420680196 00058U 057500076900273 AA4
fD 4206801980015840 114000 0000457009002670003 Aft5
42068019B AA6
C 42068019880040003000041200015170527000102VOOA7 EMISSION KtCllxLifcO AA7
^ 42066019680130003000041200015170507000102000A7 EMISSION RECORDED AA7
"c ^~. 42068019860370003000041200015170507000102000A7 EMISSION KtCUROED AA7
<-* "O 4213601987501600070073002000003500 100216 091 00001300273 0002K0052AA1
£j 421380196 0001000001000020019 00035 00007 AA2
fD 421380198 000233000002000240021903000639001199002024000110001B2AA3
421360198 000511 007600170000218 AA4
4213801960019404 152000 0000207009009405003 AA5
O 421380198 AAb
"** 42138019880330003000041200010170507000102000A7 EMISSION RECORDED AA7
00
-------
ElS/Ab INTERNAL JRANSACUUU LISTING
PAGE
CO
in
c
-S
0>
CO
PO
I
o
o
c-f
3
C
(T>
Q.
CO
o>
13
n>
o
•o
c
^ t
T3
(S
tt>
/ , \
WJ
O
-+>
147640
147640
147840
147640
147840
147840
147640
147640
147640
147840
147840
147840
147640
147640
147640
147840
147840
147840
147840
147840
147840
147840
147840
147840
147840
147640
147840
147640
147640
147840
147640
147840
147840
147640
147640
147640
147840
1 47e40
147840
147640
147840
147640
147640
147840
147840
147640
000000000000001 ltC.07475
0000000000000071CC.0741 HOlPAKTlCULATtS U
0000000000000071CG07442401SULFUR 01UX1UE U
0000000000000071CG07442101CAKHUN MUNUXlUtU
OOOOOOOOOOOOOOblCGO740019700030010000IboOOSS
0000000000000031CG074
OnOOnOOlOOlOOOl1CA074RES10ENT ANlMKAClIt CUAL
00000001001000S1CA07411101 F
00000001001000MCA07U42602 F
0000000100100051CA07442401 F
00000001001000S1CA0744J101 F
0000000100100051CA074U2101 F
OUUU0002U010001lCA074RtSII>tN1 BITUMINOUS CUAL
U0000002001000^1CA07411101 F
OOOU000200100051CA07442602 F
0000000200100051CA07442401 F
00000002001000S1CA074U3101 F
00000002001 OOOMCA074U2101 F
000000030010001lCA074KESIUtN1 DISTILLATE UlL
0000000300100051CA0741 1 101 F
0000000300100051CA07442602 F
0000000300100051CA07442401 F
0000000300100OblCAO744J101 F
OOOOOu03l'01000blCA07442101 F
OOOOOOObOOlOOOl1CA074KESIDENT 1AL ixATU^AL UAS
OOOOOOOS001000SICA07411101 K
OOOOOOOb00100051CA0744e-602 F
OOOOOOOb001000^1CA0744240I F
OOOOOOOi>001000blCA07443101 F
0000000500100051CA074U2101 F
0000000800100011CA074COMM-INST BITUMINOUS COAL
0000000800100051CA0741 1 101 F
0000000800100051CA07442b02 F
0000000800100051CA07442401 F
00000006U01000S1CA07443101 F
0000000800)OOOS1CA07442101 F
OOOOUOOV00100011CA074CUMM-1NST 01S1ILLA1E OIL
0000000900100051CA07411101 F
00000009(>01uOOSlCA074«2f>02 F
0000000900100051CA07442401 F
00000009u01000SlCft07443l01 F
OOOOOOOV001000S1CA07<442101 F
000000100010001 lCA074U>MM-lfJSr KtSIDUAL UK
OOOOOol0001000blCfl0741 1101 f
00000010001000S1CA07U42602 F
0000001000100051CA07442401 F
4P602N11HUGEN DX1DESU
43101MiTUKUCA«riONS U
0638031 1093093
000000001
PAkTICULATES
NI IHUGtN OXIDES
SULFUH DIUXlOt
MYOHUCAHdUnS
CA«HON MONOXIDE
000000101
PAKT 1CULA1ES
MI IKOGtN OXIDES
SULFUR U1UXIDE
HYDROCAPHUNS
CARBON MONOXIDE
000000137
PART1CULA1ES
MTHUUEN uxlDtS
SULFUK DIOXIDE
CARbON MONOXIDE
000000042
PAKT1CULA1ES
N11RUGEN OXIDES
SULFUR DIOXIDE
HYDROCARBONS
CAR6UN MUNOXlDt
0000 1) 0003
PAKTICULATES
NI1ROGEN OX1UES
SULFUH DJUXlOE
HYDROCARBONS
CARBON MONOXIDE
000000023
HART1CULAUS
MTROGtN OXIDES
SULFUK DIuXlDL
HYDRUCARhUNS
CARMOM MUNUXlLiE
0 0 0 0 0 0 U 4 1
PAKT 1CULA1 tS
NITROGEN OXIDES
SULFUR DIOXIDE
OO
-------
tlS/AS MAbTLH f-lLh INlfKNAL I HANS AC I 1 UN SU'kl PK1JGHAM - DIAGNOSTIC KEPUKl PAGE
NAME: CSKlUlK (bCOObO)
REVISION LtVtL: 1-00
LASI UPDA1L »: A-J
DATE 1NCUHPOKA1ED: FEttHUAWY 1, 1V80
UF JNPUI 1HANSAC1 lOiJS KtAO: 2,089
OF TRANSACTIONS wKlllEN: £,090
C
-i
(T)
>
00
ro
i
o
o
4i r+
O -••
3
C
n>
o.
co
cu
ro
o
c
rt
•a
-O
CD
(O
n>
00
-------
Id
C
•o
n>
EMISSION FACTOH JNSEKTJON PBURHAM PAGE 1
PROGRA" NAME: CMSEF1N fECOObO)
REVISION LFVEL: j-oo
LAST UPDATE »: A-1
1ATE INCORPORATED: FEBRUARY 1, IVflU
j^ OPTIONS IN EFFECT: NOFLAG*
^ FIELDS SELECTED FOR INSERTIONS: NIT SUL ASM EMISSION CONF SPEC
ro
I
FIELDS TO RE OVERRIDDEN: NIT SUL ASH EMISSION CONF SPEC
i
o
o
3
!-• -•• NITROGEN I 0 SULFUR I 0 ASH I 0 EMISSION FACTOR I 0 CONF LEVEL I 0 SPEC DATA I 0 DATE: CATEGORY N POLLUTANT N
3
C
n>
o.
*•« CMSEFIN no<> CONDITIONAL - EMISSION FACTOR FILE CONTAINS FEDERAL CATEGORY RECORDS FOR CA1EGOHIES OTHER THAN 1-60
GO
NUMBER UF INPUT TRANSACTIONS: 2,090
NU"BEH OF EMISSION K»CTOP RECORDS PE&D: ?87
NUMBER OF STATE AND LOCAL iNStRTioNs MADE: o
^^ NUUBEH OF FEDERAL INSERTIONS M«DE: 1,68?
""^ NUUBER OF OUTPIH I RANSACTJONS: ?,090
DJ
IQ
n>
o
-h
CO
-------
ElbVAb MASItW ^ lit MAINTENANCE
U1AGNDST1C MESSAGES
PAGE
NAME: CfM-,b|« (tCOU70)
KEVJS10N LEVEL: 1-00
LAS1 UPDAlfc »; A-l
DATE INCUkPUHATED: FEHKUAWT 1,
OP1 ION CASL)
CUNlKOL UAlfc la
UPT1UN IS F'LAGw
L1SI OPllOiJ IS LIST
C
n>
t\3
I
O
O
INJ -••
C
Q.
co
QJ
•a
fD
rf
•a
rt "-0
Di
(O
fD
CD
O
-b
CO
tlb/Ab MfiSltK MLt MAlNltNANCt
MUMMER
NU*".bhK
NU"'BEK
.MU«tttK
UF jNPol iNAN.SACTIUMb READ:
OF U1SAS1EXS OtUClEU:
OF AbOKlS OEftCTEl':
OF EHtfllKS UtTfcCltD:
OF CUHD1HIIMALS UEltCTtU:
OF nskMNGS DtlLCltD:
UF ]KA\SAC1 1'JNS KEJEClbU:
OF A«tA SDU^CE FILE KfcCUrtDS
OF AKEA SUUKCL FILE
HEAD IN:
«K1) 1 EN OUT
- DIAGNUS11C MtSSAUES
PAlit
-------
PIS/AS MASTER FILt MAINTENANCE PROGRAM - INTERNAL TRANSACTION LISllNG
PARE
0)
co
—I
PO
o
o
3
to ->•
n>
CL
oo
OJ
3
O
c=
- — .
On
IQ
n>
^i
o
-h
00
147840
147840
147840
147840
147840
147840
147840
147840
. 147840
147840
147840
147840
147880
147840
147840
147840
147840
147840
147840
147880
147840
147680
147840
147640
147880
147880
147880
147840
147880
147840
147840
147880
147840
147840
147880
147880
147840
147880
147840
147880
147880
147840
147840
147840
147880
147680
oooooooooooooou r.i;07fl75
0000000000000031CG07«
oooooooooooooo<;iCG07400i97000300100001500055
OOOOOOOOOOOOOOMCG07416000567100n8100008?6
0000000000000061 r.G1742
0000000000000071CG07«42101CARBON MONOXIDEU
0000000000000071CG07442401SULFUR DIOXIDE u
OOOOOOOOOOOOno71CG07«11101PARTIC'tLATFS U
OOOOnOPOOO?00001 N071«ABASH
0000000100100011CA074RESIDFNT ANTHRACITE COAL
oooooooiootooo4iCA07«oA7 EMISSION RECORDED
06380311093093
005098
0005303
43101HYDKOCARBONS U
UXJDESU
0000000100100051CA07411101000000380000F
000000010010005lCA07a«?«OIOono03«OOOOF
0000000100100051CA07at?6020000«030000F
00000001OOt0005lCA07a«?60200000030000F
0000000100100051CA07at?101 F
0000000100100051CA07a<(3101 F
000000020010001lCA07aKFSIOENT BITUMINOUS
OOOOOOOao0100051CA07«1110100000200000F
0000000^00100051CA0701210100000900000F
00000002001 00051CA07fla?i) 01 000003ROOOOF
0000000200100051CA07a«R6020000ftO?OOOOF
0000000200100051CA07043101 F
0000"0030010001!CAn7aRFsiOENT DISTILLATE
OOnOOOC300100051CAO?01II01000000?SOOOF
0000000300100051CA0701210100000050000F
0000000300IOOOS1CA07««2«0100001UflOOOOF
0000000300100051CA07au?60200000lPOOOOF
000000001
FFEO
0000300PARTICULATES
PARriCULATES
CARBON MONOXIUE
000«OOOCARdON MONOXIDE
0000020SULFUH DIUXIOE
SULFUR DIOXIDE
NITROGEN OXIDES
0000150NITROGEN OXintS
0200000SUS0000250HYOROCARBONS
0200000SUS HYDROCARBONS
COAL 000000101
PARTICULATES
CARBON MONOXIDE
SULFUK DIOXIDE
NITROGEN OXIHES
0025onOSOS HYDROCARROMS
UTL 000000137
PARTICULATES
CARBON MONOXIDE
SULFUR UICmnE
NITROGEN UX1DES
0000000300100051CAn70«Jl 01
00000005001 0001 1CA07«KESII)ENTI AL NATURAL G»S
OonOOOOSnoi00011CA07«OA7 E'MSSION RECORDED
0000000&00100051CA0701110100000100000F
000000050010005lCA07aill0100000JOOOOOF
00000005001000SlCA07U«?10100no0200000F
P000000500100051CA07a«210100000200000F
0000000500100051CA070<4?«0100000006000F
F oib^ooosus HYDKOCAKBONS
oooooooa?
noOOOOOSn010n051CA0744?602000008noOOOF
000000050010005lCA0744?60200000800000F
0000000bf>01 OOOSlCAn7443l01 F
OOOOOOP5001000MCA07a43ini F
000"300PARI ICULATES
PAOTICULA1ES
CARbON MONOXIDE
OOOUOOOCAROON MONOXIDE
0000020SULFUR DIOXIDE
SULFUR DTOXIDE
NITROGEN OXIOES
0000150WITRPGEN
0250000SUS0000250HYOROCARROMS
OP5COOOSUS
00000008001 0001 1CA071COMM-INST blTUMlNOUS
OOOU00003
-------
Elb/AS MAS1EK ULt MAlNJENANCE HKOGNAM - NEW MASTER FILE LlSHNG
PAGE
-n
in'
c
-5
/T%
tu
>
co
— I
ro
i
i
o
o
3.
_i.
3
ro
ex
*
co
CD
3
o
c
"O
5- '•u
Ol
tQ
fD
00
O
-+)
00
147840
147040
147640
14784Q
147840
147840
147840
147840
147840
147640
147840
1(47640
1 47640
147640
147840
1 ti7 84 0
147840
147640
147640
147840
147840
147840
147840
1 47840
1 47840
1478«0
147840
147640
1 47840
147840
147840
147640
1 47640
147840
H)76«0
1478*0
147840
1 4 7 6 4 (1
147840
147640
147840
147840
147640
147840
147840
Iu78b0
147860
11 000000 dOOoOOU()56t)074CG75
000000000030000136074 Nil AH ASH
00000001G010000b04074CAKES10ENT ANTHRACITE CUAL
000000030010000b04074CARtS10tNT B11UMINUUS CUAL
000000030ulOOOObO«074CARESluENl DISTILLATE OIL
00000005001000Clb04074CA«ESIutNT I AL NATURAL GAS
000000080010000604074CAClMM-lnST ailUMl.MUUS COAL
OOOOOOOVuOl 00006U407UCACUKM-1NST 01S11LLAIE OIL
000000100010000604074CACuri*-INST RESIDUAL OIL
0000001 1001000060U074CACOMM-1NS1 NATURAL GAS
GuOOOOl4G010000604074CAINUUSTKY 'bl 1 UMI NijUS COAL
OOUOOOloOOl OOOOb0407«CAl,\IUUS IRI AL D1S11LLATE OIL
0000001 7001 OOOObOii074CAlNUUSTKlAL REblUUAL OIL
000000 loOOl 00(/060'40V4CA iNOUS) Kl AL NATURAL GAS
000000310010000bO«o74CAHES. UN-SITE 1 nC I .VcRA UUN
00000037U01 OOOOb0407«CALT DuT Y GAS vEH LM ACC RD
000000360010000b04074CALT OUTY GAS Vtn KURAL RO
00000039u01 0000604074CALT OUTY GAS VEH SUhURt) RD
00000030001 OOOOo04074CALT DUTY GAS Vtrt u««AN RD
G00000310010000oO«4G74CAMEU DUTY GAS V£H LM AC RD
00000033001 000060407UCAMEO l>Ul Y GAS VEH RORAL NO
00000053001 000060407UCAMEO OUTY GAS VtH SuaUR Mi)
000000340010000604074CAMEO OUTY GAS VEn UKoAN RO
000000350010000604074CAHVY OUTY GAS VEH LM AC RD
000000360010000604074CAHVY OUTY GAS VEH RURAL RD
000000370010000604074CA«VY OUTY GAS VEH SUnuR RO
00000038001 OOOOb04074CAnVY OUTY GAS v£n URbAN KD
000000390010000004074CAUFF nIGMwAY GfcS VEHICLES
000000400010000b04074CAnVY i)UT Y L/IESEL VEH LAC*D
0000004|0010000b04074CAMVY UUTY OltbtL VtH «JRRO
0000004300100U0604074CAHVY DUTY DIESEL VEH SUHKD
OOOOOU430010000604074CAHVY OuTY DIESEL VEH URBRO
000000«40010000604074CAUFF DlGHisAY DIESEL V£H
0000004 5i'010000b04074C AS AIL "OAfi LUCQHJTIVES
OOOOOou7001000060u074CAClVlL AJHC«AFT LTO"6
00000 0490010000bO«074C«
0000005300 1000nb04074CAGASOLlNE VESSELS
00000053001 000060407 4CASULVEr,T PURCHASED
0000005400 1000060U074CAGASUL I NE MAKKE1EO
00000055001 0000604074CAUNPAVEO RUAD TRAyEL
00000057001 0000604074CACU»«\S1 RUCTION
00000058001H000604074CAM1SC «'INU EROSIUN
00000059001000 06040 7 4C ALAND TILLING
0000006000100006040V4CAFOKEST «ILD KIRES
(I00000040010000604074CASTKUCTURAL F IRES
OOOOOOOo00000005650bSCG75
00000000003000013bObb NoARREu
000000001
000000101
000000137
000000043
OOOOOOG03
000000033
000000031
OOGOOOG13
000000037
GOoOOOOl 1
000000030
uOu000007
0000009<47
000000653
000000001
000000131
000000365
000000367
000000535
00&000089
000000005
000000067
000000099
000000334
i
000000053
0000013
-------
EIS/AS Test 3
Update the Master File Using EIS/AS Transactions
In this test run, the EIS/AS master file created in Test 2 is updated
with EIS/AS transactions using the cataloged procedure ECEMM10 which executes
CEDMSTR (EC0040), the master file transaction edit program; CSRINTR (EC0050),
the master file internal transaction sort program; CMSEFIN (EC0060), the
master file internal transaction emission factor insertion program; and
CFMMSTR (EC0070), the master file maintenance program.
CEDMSTR (EC0040) edits EIS/AS master file transactions and converts those
that pass the edit criteria into internal transactions.
There are four types of input EIS/AS master file transactions:
description, category, NEDS comment, and EIS/AS comment. See Figure AST3-1
for the EIS/AS master file transaction formats and Figure AST3-2 for the
master file transaction load sheets. Description transactions are used to
add, change, or delete description records for counties or suballocations of
counties. Category transactions are used to add, change, or delete aggregate
or disaggregate category records for counties or suballocations of counties.
EIS/AS comment transactions are used to add, change, or delete EIS/AS comment
records.
To add a description record (either county or suballocation) to the
master file, the user enters at least one of the seven description
transactions. Note that a county description record must be present in the
input transaction file or input master file before any other records
(including the suballocation description record) will be accepted for that
county. A category record (or category disaggregation record) can be added by
entering at least one of the five category transactions, provided that a
description record is present in the input transaction file or input master
file for the same geographic area. In order to add a comment record, the user
enters one or more of the EIS/AS comment transactions. However, comment
45
-------
records will only be added if there is a record in the master file
(description or category) with matching key information, including state,
county, geographic suballocation number, category number, and category
disaggregation number.
To change a non-key field in a master file record, the user enters the
appropriate transaction; i.e., a description 1 through 7, category 1 through
5, NEDS comment or EIS/AS comment transaction, with the same key information
as the master file record to be changed. Also, this transaction must have an
action code of 'C' and contain the new information for the field to be
changed. If these requirements are met, the non-blank, non-key fields of the
transaction will replace the corresponding fields in the master file record.
A change transaction with an asterisk in the first position of an
optional (or non-key) field will cause that field in the master file to be
flagged for deletion and change the first character in the field to an
asterisk.
Similarly, the deletion of a master file record requires that the user
enter a transaction with the same key information as the master file record to
be deleted. However, the transaction must also have an action code of 'D' and
the remaining fields should contain blanks. It should be noted that the
records are flagged for deletion as a result of this test run but are not
actually deleted. When a record is flagged for deletion, all its subordinate
records are also flagged for deletion.
The options in this program are used to determine if the year in the
description 1 transaction is valid, if the warning messages are to be printed
in the diagnostic report, and if the input EIS/AS transactions and the output
internal transactions should be printed. A two-digit year must be specified
in card columns 1 and 2 of the option card in order to edit the year field in
the description 1 transaction (the year on the transaction must not be greater
than the year on the option card). If the warning messages are to be printed
in the diagnostic report, the word FLAGW must appear in card columns 4 through
8. If the FLAGW option is not specified, the default, NOFLAGW, will be in
46
-------
effect and the warning messages will not be printed. In order for the input
transactions and the output internal transactions to be printed, the word LIST
must appear in card columns 12 through 15 of the option card; otherwise, the
default, NOLIST, will be in effect and the listings will not be produced.
The programs CSRINTR (EC0050), CMSEFIN (EC0060) and CFMMSTR (EC0070) were
used in Test 2 to create an EIS/AS master file from NEDS area source
transactions. For a description of these programs refer to Test 2.
The run stream for this test run contains the JCL necessary for updating
the EIS/AS master file. This run stream is shown in Figure AST3-3. It does
not show all the input master file transactions in the run stream, but it does
show the necessary JCL.
The cataloged procedure executed by this run stream is ECEMM10. Through
the use of substitutable parameters, the input emission factor file is
specified as ECEMFL1 (created in Test 1), the input master file is specified
as ECMSTR1 (created in Test 2), and the updated master file is named ECMSTR2.
For the EDIT step, the user must supply the DD (data definition) information
for the option card file and the input EIS/AS master file transaction file.
The options specified for the EDIT step are 80, FLAGW, and LIST. Also, the
user must supply the DD information for the option card file in the INSERT
step and the option card file in the UPDATE step. The options specified for
the INSERT step in this test run are: FLAGW, NIT I, SUL I, ASH I, EMISSION I,
CONF I, SPEC I, CDAT 77001, and PDAT 77001. The options specified for the
UPDATE step are 80 and FLAGW. Figure AST3-4 shows the sample output produced
by this run stream.
47
-------
Column #
Category 1 Transaction
Field Length Data Type Description
1 -
3 -
7 -
10 -
15 -
18 -
20 -
45 -
47 -
56 -
63 -
65 -
2
6
9
14
17
19
44
46
55
62
64
76
77
78
79
80
2
4
3
5
3
2
25
2
9
7
2
12
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Alphabetic
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
Category Description
Year of Information
Process Rate
Category Adjustment Value
Units Code
Units Code Description
Suballocation Type
Disaggregation Type
Card Number
Action Code
Figure AST3-1.
(Page 1 of 18)
EIS/AS Master File Transaction Formats
48
-------
Column #
Category 2 Transaction
Field Length Data Type Description
1 -
3 -
7 -
10 -
15 -
18 -
21 -
23 -
25 -
27 -
29 -
31 -
33 -
35 -
37 -
39 -
41 -
43 -
45 -
48 -
50 -
2
6
9
14
17
19
20
22
24
26
28
30
32
34
36
38
40
42
44
46
47
49
53
2
4
3
5
3
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
1
2
4*
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
Uniform Monthly Thruput
Thruput for January
Thruput for February
Thruput for March
Thruput for April
Thruput for May
Thruput for June
Thruput for July
Thruput for August
Thruput for September
Thruput for October
Thruput for November
Thruput for December
Hours Per Day
Days Per Week
Weeks Per Year
Thruput Ratio
*A one-digit decimal position is assumed; e.g., 21.2 would be coded as '0212'
(Page 2 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
49
-------
Category 2 Transaction (continued)
Column # Field Length Data Type Description
*
54 - 63 10 Numeric Maximum Hourly Thruput
64 1 Numeric Data Confidence Rating
65-67 3 Numeric Nitrogen Percentage
fc
68-69 2 Numeric Sulfur Percentage
70-72 3 Numeric Ash Percentage
73-76 4 Alphanumeric Heat Content
77 1 Alphabetic Subal location Type
78 1 Alphabetic Disaggregation Type
79 1 Numeric Card Number
80 1 Alphabetic Action Code
*A three-digit decimal position is assumed; e.g., 350.0 would be coded as
'0000350000'.
**A three-digit decimal position is assumed; e.g., 0.02 would be coded as
'020'.
***A one-digit decimal position is assumed; e.g., 1.3 would be coded as '13'
****A one-digit decimal position is assumed; e.g., 7.3 would be coded as
'073'.
(Page 3 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
50
-------
Category 3 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
15 -
18 -
21 -
23 -
25 -
27 -
29 -
31 -
33 -
35 -
37 -
39 -
41 -
43 -
45 -
47 -
49 -
51 -
2
6
9
14
17
19
20
22
24
26
28
30
32
34
36
38
40
42
44
46
48
50
52
2
4
3
5
3
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Description
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
Uniform Hourly Thruput
Thruput for Hour Beginning 0000
Thruput for Hour Beginning 0100
Thruput for Hour Beginning 0200
Thruput for Hour Beginning 0300
Thruput for Hour Beginning 0400
Thruput for Hour Beginning 0500
Thruput for Hour Beginning 0600
Thruput for Hour Beginning 0700
Thruput for Hour Beginning 0800
Thruput for Hour Beginning 0900
Thruput for Hour Beginning 1000
Thruput for Hour Beginning 1100
Thruput for Hour Beginning 1200
Thruput for Hour Beginning 1300
Thruput for Hour Beginning 1400
Thruput for Hour Beginning 1500
(Page 4 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
51
-------
Category 3 Transaction (continued)
Column #
Field Length
Data Type
53 -
55 -
57 -
59 -
61 -
63 -
65 -
67 -
69 -
54
56
58
60
62
64
66
68
76
77
78
79
80
2
2
2
2
2
2
2
2
8
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
Thruput for Hour Beginning 1600
Thruput for Hour Beginning 1700
Thruput for Hour Beginning 1800
Thruput for Hour Beginning 1900
Thruput for Hour Beginning 2000
Thruput for Hour Beginning 2100
Thruput for Hour Beginning 2200
Thruput for Hour Beginning 2300
Unused
Suballocation Type
Disaggregation Type
Card Number
Action Code
(Page 5 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
52
-------
Category 4 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
15 -
18 -
20 -
55 -
75 -
2
6
9
14
17
19
53
54
74
76
77
78
79
80
2
4
3
5
3
2
34
1
20
2
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphanumeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
NEDS A7 Comment
Information Source Code
Information Source Narrative
Unused
Suballocation Type
Disaggregation Type
Card Number
Action Code
Figure AST3-1 - continued.
(Page 6 of 18)
EIS/AS Master File Transaction Formats
53
-------
Category 5 Transaction
Column #
Field Length
Data Type
Description
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
Pollutant ID
Emission Factor
Emission Factor Confidence
Rating
Emission Factor Origin
Emission Factor Source Code
Pollutant-Specific Data
NEDS A7 Emission
Pollutant Name
Unused
Subal location Type
Disaggregation Type
Card Number
Action Code
A three-digit decimal position is assumed; e.g., 10.35 would be coded as
'0000010350'.
1 -
3 -
7 -
10 -
15 -
18 -
20 -
25 -
38 -
48 -
55 -
70 -
2
6
9
14
17
19
24
34
35
36
37
47
54
69
76
77
78
79
80
2
4
3
5
3
2
5
10*
1
. 1
1
10
7
15
7
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphanumeric
Alphanumeric
Numeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Alphabetic
(Page 7 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
54
-------
Description 1 Transaction
Column #
1 - 2
3 - 6
7-9
10 - 14
Field Length
2
4
3
5
15
17
20
23
27
47
67
71
73
75
- 16
- 19
- 22
- 26
- 46
- 66
- 70
- 72
- 74
- 76
77
78
79
80
2
3
3
4
20
20
4
2
2
2
1
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphanumeric
Alphanumeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Year
Day
Air Basin
SMSA
Area Name
Major Activity
Associated Plant ID
SIP Base Year
Projected Year
Rural Population Percentage
Suballocation Type
G Code
Card Number
Action Code
(Page 8 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
55
-------
Description 2 Transaction
Column #
1 - 2
3 - 6
7-9
10 - 14
15
23
22
76
77
78
79
80
Field Length
2
4
3
5
8
54
1
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Population
AQCR Name
Suballocation Type
G Code
Card Number
Action Code
(Page 9 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
56
-------
Description 3 Transaction
Column #
Field Length
Data Type
Description
State
County
AQCR
Geographic Suballocation
Number
Suballocation Technique Code
Suballocation Technique
Description
Defined Area Code
Sulfur Content - Anthracite
Coal
Sulfur Content - Bituminous
Coal
Sulfur Content - Distillate
Oil
Sulfur Content - Residual
Oil
Ash Content - Anthracite
Coal
Ash Content - Bituminous
Coal
UTM Zone 1
*A one-digit decimal position is assumed; e.g., 1.5 would be coded as '15'.
**A one-digit decimal position is assumed; e.g., 7.3 would be coded as '073'.
1
3
7
10
15
17
37
40
42
44
46
48
51
54
- 2
- 6
- 9
- 14
- 16
- 36
- 39
- 41
- 43
- 45
- 47
- 50
- 53
- 55
2
4
3
5
2
20
3
2*
2*
2*
2*
3**
3**
2
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
(Page 10 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
57
-------
Description 3 Transaction (continued)
Column # Field Length Data Type Description
56-59 4* Numeric UTM Horizontal 1
60 - 64 5** Numeric UTM Vertical 1
65-66 2 Numeric UTM Zone 2
67 - 70 4* Numeric UTM Horizontal 2
71 - 75 5** Numeric UTM Vertical 2
76 1 Unused
77 1 Alphabetic Suballocation Type
78 1 Alphabetic G Code
79 1 Numeric Card Number
80 1 Alphabetic Action Code
*A one-digit decimal position is assumed; e.g., 67.0 would be coded as
'0670'.
**A one-digit decimal position is assumed; e.g., 4762.4 would be coded as
'47624'.
(Page 11 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
58
-------
Description 4 Transaction
Column #
Field Length
Data Type
Description
State
County
AQCR
Geographic Suballocation
Number
UTM Zone 3
UTM Horizontal 3
UTM Vertical 3
UTM Zone 4
UTM Horizontal 4
UTM Vertical 4
UTM Zone 5
UTM Horizontal 5
UTM Vertical 5
UTM Zone 6
UTM Horizontal 6
UTM Vertical 6
Source Type
Length or Area
*A one-digit decimal position is assumed; e.g., 67.0 would be coded as
'0670'.
**A one-digit decimal position is assumed; e.g., 4762.4 would be coded as
'47624'.
***A two-digit decimal position is assumed; e.g., 193.4 would be coded as
'0019340'.
: i -
3 -
7 -
10 -
15 -
17 -
21 -
26 -
28 -
32 -
37'-
39 -
43 -
48 -
50 -
54 -
60 -
2
6
9
14
16
20
25
27
31
36
38
42
47
49
53
58
59
66
2
4
3
5
2
4*
5**
2
4*
5**
2
4*
5**
2
4*
5**
1
_***
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Numeric
(Page 12 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
59
-------
Description 4 Transaction (continued)
Column #
67 - 68
69 - 76
77
78
79
80
Field Length
2
8
1
1
1
1
Data Type
Numeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
Length or Area Units Code
Unused
Suballocation Type
G Code
Card Number
Action Code
(Page 13 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
60
-------
Description 5 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
15 -
20 -
24 -
28 -
33 -
38 -
2
6
9
14
19
23
27
32
37
76
77
78
79
80
2
4
3
5
5
4
4
5
5
39
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
SIP Estimate for TSP
SIP Estimate for S02
SIP Estimate for NOX
SIP Estimate for HC
SIP Estimate for CO
Unused
Suballocation Type
G Code
Card Number
Action Code
Figure AST3-1 - continued,
(Page 14 of 18)
EIS/AS Master File Transaction Formats
61
-------
Description 6 Transaction
Column #
Field Length
Data Type
1 -
3 -
7 -
10 -
1
17 -
24 -
30 -
36 -
42 -
48 -
54 -
61 -
2
6
9
14
15
16
23
29
35
41
47
53
60
76
77
78
79
80
2
4
3
5
1
1
7
6
6
6
6
6
7
16
1
1
1
1
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Subcard Number
Population Code
Gas Fuel for Light Vehicles
Gas Fuel for Heavy Vehicles
Diesel Fuel for Heavy
Vehicles
Vehicle Miles for Limited
Access Roads
Vehicle Miles for Rural
Roads
Vehicle Miles for Suburban
Roads
Vehicle Miles for Urban
Roads
Unused
Suballocation Type
G Code
Card Type
Action Code
(Page 15 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
62
-------
Description 7 Transaction
Column #
1 - 2
3-6
7-9
10 - 14
Field Length
2
4
3
5
15 -
20 -
36 -
43 -
70 -
19
34
35
41
42
69
76
77
78
79
80
5
15
1
6
1
27
7
1
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Alphanumeric
Alphabetic
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Pollutant ID
Pollutant Name
Attainment Status
AQMA Number
Unused
Repeat Columns 15-41
Unused
Subal1ocat i on Type
G Code
Card Number
Action Code
(Page 16 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
63
-------
NEDS Comment Transaction
Column #
1
3
7
10
2
6
9
77
78
79
80
Field Length
2
4
3
68
1
1
1
Data Type
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
NEDS A6 Comment
N Code
Card Type
Action Code
(Page 17 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
64
-------
EIS/AS Comment Transaction
Column #
1 - 2
3-6
7-9
10 - 14
15 - 17
18 - 19
20
23
73
22
72
77
78
79
80
Field Length
2
4
3
5
3
2
3
50
5
1
1
1
Data Type
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Alphanumeric
Alphabetic
Numeric
Alphabetic
Description
State
County
AQCR
Geographic Suballocation
Number
Category Number
Category Disaggregation
Number
Line Number
Half Comment
Unused
R Code
Card Number
Action Code
(Page 18 of 18)
Figure AST3-1 - continued. EIS/AS Master File Transaction Formats
65
-------
AGENCY.
EMISSIONS INVENTORY SYSTEM/AREA SOURCE (EIS/AS)
COMPREHENSIVE DATA HANDLING SYSTEM (CDHS)
DESCRIPTION TRANSACTIONS 1-6
BY
OATE_
PAGE OF.
T
A
1
1
COUNTY
;i
I i i
AQCR
7
1 1
SUBALLOC
NBR
10 14
1 1 1 1
DATE
YR
15
~-l
DAY
17
1 1
AIR
BASIN
20
1 1
SMSA
23
1 1 1
GEOGRAPHIC NAME
27
i . i_. i i I i I _i i i_i i i_. i i i I I I-
MAJOR ACTIVITY
47
II 1 1 1 1 1 1 I 1 1 1 1 !
ASSOC
PLANT ID
67
1 1 E
SIP
BASE
YR
71
1
PROJ
YR
73
. 1 ..
%
RUR
75
1
C/
s
J ~,
7E.
G
N
B
R
Jit
\
A
C
T
0
N
80
c
ro
co
i
ro
GO
CO
3
ri-
(D
POPULATION
10
i i i i i i i
"
AQCR NAME
23
1 1 1 1 1 L 1 l__l 1 ..!._.! 1 i__l 1 LI J._L 1 l_l 1. .J__l 1 I_L._I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
C/
?J
76
G
N
B
R
7S
2
A
T
0
N
ac
SUB
TECH
15
l
SUBALLOCATION TECHNIQUE DESCRIPTION
17
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
DEF
AREA
CODE
37
t i
SULF
ANTH
COAL
40
^
URCC
BITM
COAL
42
A
NTEN
DIST
OIL
44
A
TS
1ESIC
OIL
4G
A
ASH COH
ANTH
COAL
46
I A
JTENTS
8ITUM
COAL
51
1 A
ZONE
1
54
I
HORIZ 1
GG
1 1 A
UTM COO
VERT1
60
1 1 I A
RDINA
ZONE
2
65
1
TES
HORIZ 2
67
1 1 A
VERT 2
71
1 1 1 A
S
77
78
G
N
8
R
70
3
A
C
T
i
O
80
O)
3
O>
o
^D ""O
CD fU
CL 10
CO
IT *-•
ro
ro o
UTM COORDINATES
ZONE
3
i!i
_L
HORIZ 3
17
1 1 A
VERT 3
21
1 1 1 A
ZONE
4
2G
1
HORIZ4
28
1 1 A
VERT 4
32
1 1 1 A
ZONE
5
37
i
HORIZ 5
30
1 ,.l. A
VERTS
43
1 I 1 A
ZONE
6
48
1
HORIZ6
so
i l A
VERT6
54
1 1 1 A
S
u
R
C
E
59
LENGTH OF LINE,
LINK, OR AREA
GO
l 1 1 . A 1
LLA
UNITS
CODE
67
l
I 1 1 1 1 1 1
|
1*
i INI T
C/'i :BlA
S| |RJN
77 hS 179130
'i
!
,G
1
!
*! !
U)
01
SIP ESTIMATES
TSP
1 !»
_, i || ,
S02
20
i l i
NOX
2'1
I 1 I
HC
28
1 I 1 I
CO
33 37
I 1 1 I
I 1 I -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 i 1 1 1 1 1 1 1 I
!
i
.?
C/ ; B
s!
•/7J7S
1
l«
R
;9
5
N
HO
IGHT VEHICLE
GAS
;
J -J....J— 1 J. .1
HEAVY VEHICLE
GAS
!4
i i > i i
HEAVY VEHICLE
DIESEL
:io
L .1 .J. .L .1 ..
LIMITED ACCESS
ROAOS/MVM
:ii.
1 l...i II
RURAL ROADS
MVM
J2
^tk|
SUBURBAN
ROADS/MVM
4U
_a_l ,U_J
URBAN ROADS
MVM
r.4 tiu
.. i i i i i l
i l i i i 1 l l i 1 1 l i 1 I i
— \ — '
i
77) 7B
*
N
B
R
7-1
6
A
C
3:
_i
-------
(Page 2 of 5)
Figure AST3-2 - continued. EIS/AS Master File Transaction Load Sheets
5WN(
S
T
A
T
E
i
i
;v
COUNTY AQCR
3 7
III II
POLLUTANT
ID
i :;
—
i
i
i
1
1
1
j i t i
i_ j _
i i
1 1
1 1
l L — L..J
l l 1
_
i i
1 1
l_.l .0.. J..
i i
1 1
SUBALLOC
NBR
10 11
i i i i
COMPREHENSIVE DATATtTTNDLING SYSTEM (CDHS)
DESCRIPTION TRANSACTION 7
POLLUTANT NAME
JO
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1
1 1 1 1
lilt
1 1 1 1
1 1 1
1 1 1 1
1 1 1 1
. L_.l 1 1
i i i i
i i i i
i i i i
.1 i i i
i i i i
i i i i i
1 1 1 1
1 1 1 1
1 t ! 1
l l 1 1
l i l i
1 1 !.._.) 1 1 1 1
1 1 1 1. 1
1 1 1 1 1
1 1,1 1 1
J. ..1 L- 1_. .1
l 1 1 1
l 1 l 1 l
i l i i l
A
T
T
N
:is
—
AQMA
NUMBER
36 41
t 1 1 I i
1 1 1 II
I 1 t 1 I
i i 1 I 1
I I i 1 1
1 1 1 1 1
1 1 1 1 1
i i i i i
..I... 1, 1 1 _l
—
POLLUTANT
ID
43
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 t 1
1 1 1 1
III?
1 1 1 1
lilt
1 1 1 1
POLLUTANT NAME
48
l 1 1 1 l l 1 t l l l l l 1
i i l 1 i l l i l 1 1 l 1 1
l i 1 1 II
t i i l i t i i t i l l i l
t l l 1 l l l i t i l t i l
i i t i t t t i i i l i i i
l 1 l t 1 i l i i i 1 t | l
i i l i i lltl
1 1 1 l i l l i l 1 1 1 1 1
i i > i i l l t i i l i l i
i t i t i i t t i t i t t i
i l i i i i l . l i l l l l l
A
T
T
N
03
—
AOMA
NUMBER
lit 69
l l l 1 1
i 1 1 l l
t l l l 1
i i l i l
t i i i i
1 1 i l t
1 1 1 1 t
l l l i i
i | i i i
RY
flATE
PAHF ,flF
i i i i i l
l i i i i i
i i i t l l
i i i i l i
i i i i t i
i i i i i i
i i i i i i
i i i i i i
i i i t i i
i i i i i i
l i i i i i
i i i i i i
i i t i i i
i i i i i i
C/
s
»
7B
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
N
B
R
73
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
7
A
C
1
O
N
80
-------
A6ENCY.
EMISSIONS INVENTORY SYSTEM/AREA SOURCE (EIS/AS)
COMPREHENSIVE DATA HANDLING SYSTEM (CDHS)
CATEGORY TRANSACTIONS
8V
DATE.
PAGE.
OF.
s
T
A
T
E
i
t
COUNTY
3
1 1 1
AQCR
V
i i
SUBAUOC
NBR
10
i i i >
CATEG
NBR
is
i i
DISAG
NBR
18
i
CATEGORY DESCRIPTION
?o
i i I i i t i i i f i i i i i i i i i i t i t i
YEAR
«5
PROCESS RATE
47
1 1 t 1 1 1 1 t
CATEGORY
ADJUSTMENT
56
1 1 i I t I
UNIT
CODE
63
i
UNITS CODE
DESCRIPTION
65
1 1 1 1 1 1 1 1 1 1 1
C/
S
77
A/
D
78
N
R
'9
1
A
i
N
80
U
I MONTHLY THHUPUT PERCENTAGE
M JAN
t
FEB
MAR
|
APR hUAY
, ,
JUN
|
JUL
AUG
i
SEP
OCT
NOV
DEC
MRS
PER
DAY
R
E
R
K
WKS
PER
YR
THRUPUT
RATIO
1 1 A
MAXIMUM HOURLY
THRUPUT
c
0
N
f
NITRO
CONT
> 1 1
SULF
CONT
A
ASH
CONT
1 A
HEAT
CONTENT
1 1 !
C/
S
A/
0
A
N ?
B '
R N
J
H
R
20
0
71
1
1
23
1
2
25
1
3
27
1
4
29
1
5
31
1
6
33
1
7
35
1
8
37
1
HO
9
39
1
URLY
10
I
THRU
11
1
PUTP
12
1
ERCEI
13
I
JTAGE
14
1
15
51
1
16
53
(
17
55
1
18
57
1
19
59
1
20
61
1
21
63
1
22
65
1
23
67
1
1 1 1 1 1 1 1
c/
77
A/
0
78
N
B
R
79
3
I
80
NEDS A7 COMMENT
20
I i I I t I I I i i i i I i I i i i > I I I I i I i I i I i i i i
§
i
54
SOURCE OF INFORMATION NARRATIVE
55 74
1 1 t 1 1 1 1 1 1 1 1 1 I 1 1 1 1 t 1
(
C/
77
A/
D
78
N
B
R
r>9
4
i i i
i i i >
i t i i
1111
1111
tiii
iiii
tiii
EMISSION FACTOR
25
1 1 1 1 1 1 A 1 1
1 I 1 I 1 1 A 1 1
1 1 1 I I 1 A I I
1 1 1 1 1 1 A 1 1
1 1 1 1 1 1 A 1 1
1 1 1 1 1 1 A 1 1
i 1 1 i i i A, i 1
1 1 1 1 1 1 A I 1
1 1 1 1 I I A 1 1
i i 1 i i i A i 1
1 1 1 i i i A i 1
1 1 1 1 1 1 A 1 1
1 1 1 1 1 1 A 1 1
III 1 1 1 A 1 1
1 I 1 i 1 I A I I
III i i 1 A i t
0
N
35
0
R
G
16
R
C
37
POLLUTANT
SPECIFIC DATA
38
1 1 1 1 1 f 1 1 1
'
I I I 1 1 i i t I
1 1 I 1 I I i I I
1 I 1 1 1 1 I 1 I
1 1 I I I i i i i
1 1 1 1 1 1 1 1 1
1 I I I I I I 1 1
1 1 1 1 1 I 1 1 1
1 1 1 1 1 I I 1 1
1 1 I 1 I i i I I
NEDS A7
EMISSION
48
1 1 I 1 1 1
i i i i i i
i i i i i 1
1 1 i i 1 1
i i 1 i i i
1 i i i 1 1
POLLUTANT NAME
55 69
1 1 1 I 1 1 1 1 1 1 I 1 1 1
i i I i i i i i i i i i r i
i i i i i i i i i i i i i i
i i 1 i i i 1 i i i i i i i
i i i 1 i i i i i i i > i i
1 1 1 1 1 1
i t i i i i
i i i i i i
i i i i i i
t i i i i i
i 1 1 i i 1
i 1 1 i i i
C
77
A
0
78
N
fl
79
5
fj
c.
5
s
I
ao
Figure AST3-2 - continued.
(Page 3 of 5)
EIS/AS Master File Transaction Load Sheets
68
-------
AGENCY-
EMISSIONS INVENTWv" SYSTEM/AREA SOURCE (EIS/AS)
COMPREHENSIVE DATA HANDLING SYSTEM (CDHS)
NEDS AS COMMENT
BY
DATE.
PAGE.
-OF-
s
T
A
T
E
1
l
1
i
l
i
l
l
i
l
l
l
l
i
i
i
l
i
i
COUNTY
.1
i i i
i i i
i l l
i i i
i t i
i i i
i i i
i i l
! ' '
1 l l
i l l
l l i
i i i
l l i
l l l
l l i
1 1 l
i i i
i i i
i i i
1 l i
i i i
i L i
AQCR
7
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
I 1
1 1
1 I
1 1
1 1
1 1
1 1
NEDS A6 COMMENT
10
i i i i l i i i i i i i l i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i
l i l l l i i i i i i i i i i i i i i i i i i i i i i i i i i i i i l i i i l i i i i i i i i i
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 J 1 1 1 _!._.! 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 I 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 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 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 t 1 1 1 1 1
1 1 i 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 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
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 I 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 I 1 i 1 1 1 1 1 1 1 1 1 1 t I I t 1 1 1 1
1 1 1 1 1 1 I 1 1 1 1 1 I 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 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 t 1 1 1 1 1 1 t 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 i 1 1 1 1 1 t 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 t 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 1 1 1 1 I 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 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 L 1 t 1 1 1 1 1 1 1 I 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 J I 1 1
1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 t 1 1 1 1 1 t 1 I | 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 I 1 1 1 1 1 1 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1
1 1 1 I 1 1 1 1 1 1 1 1 1 1 I 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 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 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 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 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 I 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 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 1 1 1 1 1 1 1 1 1 1 1 1 1
1 t 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 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 l 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 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 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 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1
1 1 1 i i 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 1 1 1 1 1 1 1 1 1 l | | | | |
< 1 > 1 1 1 1 1 1 1 I 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 1 1 1 1 1
II 1 1 1 1 1 1 1 1 1 1 1 I 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 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 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 1 1 1 1 1 1 1 1 1 1 1 1 I I I
' 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 1 1 1 1 1 1 1 1 1 1
7B
N
N
u
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
JL
79
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
P
n
n
Q
A
C
T
o
N
HP
-s
(D
C/)
n
o
3
3
C
ID
Q.
m
i— i
1/1
o>
in
O>
-5
OJ
3
I/)
O)
O ^-~
rt -O
-i. OJ
O IQ
3 m
o
o< o
Q. -h
n>
r+
to
-------
AGENCY.
j
»
1
COUNTY
3
1 1 )
AQCR
7
I |
SUBALLOC
NBR
10
i i i i
CATEG
NBR
15
DISAG
NBR
18
!
EMISSIONS INVENTORY SYSTEM/AREA SOURCE (EIS/AS)
COMPREHENSIVE DATA HANDLING SYSTEM (CDHS)
COMMENT TRANSACTIONS
BY
DATE
PAGE
_OF_
LINE
N8R
HALF COMMENT
i i i i
i i i i i i
_l I I I I l_l—I 1 I I l_J I I I I I I I I—1—I—I-
I I I I I I I I 1 1 1 1 1 L
I I I I I I I I 1 1—I 1 L.
_J 1—| 1—I 1 1__J [_J l_J—I 1 1 1—I—I 1 1—I—I 1 1 1 1 1 1 1 1 1 1 1 1—I 1—J 1 1 1 1 1 1 1 1 1 L.
I I I I I I I I I I I 1_
I I t I I I
I I I I I I 1 I I I I I I I I I II I I I 1 I 1__1 l_J I l__l L
J L_
I
I I I I I I I I I I I 1_
_1 I 1 I I I 1 1 I I I I 1 1_
I I I I I I I I
I I t i i t l I i i i i i t
I I I 1 1 I I I I 1 I
l l l I l I l I l I t l l l t
I l I i i l l l l l l l l
i i i i
I l I l l l I t I t I l l l
I I I I I I I I I I I I I I I I I I t I I I 1 I I I I I I I 1 t I I t I I 1 I I I I I I I I I I I
l i l i l l l
' ' ' ' I I I I
J I I I
I I I
Figure AST3-2 - continued.
tPage 5 of 5)
EIS/AS Master File Transaction Load Sheets
70
-------
//*
//•
//*
jfib f ACL'IUMI tur,
TL THE tii/AS MASIFK HLF USING FIS/AS
'SACT 1 t»NS
//
//*
//*
txtr
FMFCFll.sFtFMFLl ,
IIHHftTt INE WASTE" FILL F»uu T£S] ? «7TH ElS/tS
06l2«OOt,700000737V
06l2«0067iiOOOO
31
Obl?B006700000
06l2^00b700000111I111111
0612*006700000 00231^0
06l2»OOb700000«210lCAKRUN
06l2fi00670000u«3101MYDPUCAPHflNS U
06128006700000U2602NI TRUGtM nxIl)FSU
06l2«OOb7ARtA SUUKCfc TFST - SlIMfc , BUT MOT ALL VALUES L|R CATEGORIES
0612«00b70000179
0612B006700001
0612«006700001 31012020U02503
500009S7S01
«2001SI)LFUR DIOXIDE U
1 M01HAKTICULATES U
0612«006700001
06l2«onb700SOo
0612*008700500
06l2«OOb7oObOO
0612^006700500
95000S009750000S0321 bOOOO«>d7SO \
Ob12R0067i)Ot,ll
Obl2«00o700ol
SU' A
SG?A
S63A
SG4A
SGSA
SUhA
CG7A
CG7A
CG7A
NOA
SG1A
SG2A
SG3A
SG6A
SGI A
SG3A
Sola
SG?A
SUSA
SG6A
SGI A
(Remainder of transactions omitted)
//Fun .DPI TUNS i>r> *
RO FLAGr. LIST
//TNStR1 .DPI TOMS OP *
FLAG«I NIT I SHI 1 ASM I
L^ISSIUN I CHrJF I JP£C T CPAT 77001 PDAT 77001
Ft AGn
Figure AST3-3. Run Stream
71
-------
E1S/AS TRANSACTION £OIT PWuiiRAM - D1AGNOS1IC KtPURT PAGE 1
PROGRAM NAME: CbDMSTR (EC0040)
REVISION LtVEL: 1-00
LAST UPDATE «: A-l
DA1E INCORPORATED; FEbRUAKY 1, 1V80
OPTIONS IN EKFECI: CONTROL YLAR 60 FLAGW LIST
06l2800b700000737<* SG1A REF: 1
U E
««« CEDMSTR 014 ERROR - SUBCOUHT.Y WITH ZERO SUHALLOCATION NUMbER, CAKO REJECTED
«** CEO.iSIr< 030 EKKJK - CULOMN 17 - INVALID DAK, REPLACING SPACES
06128'006700000 SG2A REF: 2
«»* CEDMSTR 014 ERROR - SUHCOUN.T Y ftllH ZERO SObALLOCA TIUN NU.MHEH, CA«D REJECTED
*** CEOMSTR 143 ERROR - ALL NON-KEY FIELDS CONTAIN SPACES, CARD REJECTED
06128006700000 3101202UU02303 SGJA , REF: 3
1§ bL bL ti Eb E
~i •*« CEOrtSTR 014 EKRuR - SUbCOUNTY "IIH £ERO SUHALLOCAT1 UN NOMdER, CARD REJECTED
rt> «** CELiMSTrt 040 CONDITIONAL - COLUMN 40 - SULF UR-ANTHRAC 1 TE COAL OUT OF RANGE
Ja *«« C£0»1STK OUU CONDITIONAL - COLUMN <4H - SULF UK-D1S TILL A T t OIL OUT OF RANGE
co ... CEUKSTR oue CONDI i KINAL - COLUMN «e - ASH-ANiri«AcnE COAL uui OF KANUE
^ *** CEDMSFR 050 CONDITIONAL - COLUMN 51 - ASM-B1TUM1NOUS COAL UUI OF RA.MGE
I
^. *" 06128006700000 SGaA REF: «
PO *** CEOMSTR 014 ERROR - SUBCOUNTY «ITn ZERO SUbALLOCAT10N NUMbER, CARD REJECTED
*** CEDMSTR 1U3 ERROR - ALL NUN-KEY FIELDS CONTAIN SPACES, CAKO REJECTED
CO
CU
3 061280067000001 1 11 111111112222222J4J3 SG5A REF: 5
"^ *** CEOi-.STR 014 ERRuR - SUftCOUNTt nlTH /ERO SUdALLOC AT I ON NUMbER, CARD REJECTED
06128006700000 0023450 9500050097500005032150000967501 SG6A «EF: 6
C *** CEDMS1H 014 ERROR - SUHCOUNlt WITH Z£RO SuBALLOCATION NOHBER, CA«D REJECTED
"^ 061?800b700001 SG2A REF: 12
<-*• •** CEDMSTR 143 tRROR - ALL NON-KEY FIELDS CONIAIN SPACES, CA«li REJECTED
06128006700001 31012020402303 SG3A KEF: 13
HE HE B EB E
^ «*« LEUMSTR 040 CONDITIONAL - COLUMN 40 - SULFUR-ANTHKACITE COAL OUT OF RANGE
D> *** CEDMSTR 044 CONUlTIONAL - COLUMN 44 - SULF UR-L) 1ST ILL ATE OIL OUT OF RANGE
-------
EIS/AS IkANSACllUN EDIT PROGRAM - DIAGNOSTIC REPORT PAGE 5
0612B006700001(>0135 0 SD2A RfF: 251
b
**« CEDMSTR 11« EARNING - COLUMN go - UuIFUhh MONTHLY INDICATOR BLANK, ASSUMING Y
0612flOOb70000l00199 0 SD2A HEF: 25 8
^ «** CEOrtSTR lia "(AWNING - COLUMN 2U - UN1FUKM MONTHLY INDICATOR ULANr, ASSUMING Y
CO
L Obl2B006700bOOOOl70 0 C02A HF.F: 265
B
I •«* CEDMSTK 01} E*r ALLOC A F ION NUMbER, CARD REJECTED
o «** CEDMSTK 11*4 rtAKMING - COLUMN 20 - UN1FGH* MONTHLY INDICATOR PLANK, ASSUMING Y
O
^j ^. 0612800670061100835 0 S02A KEF: 266
CO -i. b
3 «»« CEDMSTR lit ftArtNING - COLUMN 20 - UNIFORM MONTHLY INDICATOR HLANN, ASSUMING Y
fl>
Q. Obl2600679V99900199 0 SD2A KEF- 271
B
• «* CEDMSIR 114 ft'ARi-ilNG - COLUMN 2U - UNIFORM MONTHLY INDICATOR bLANK, ASSUMING Y
CO
3 0622380o70u000023uu 0 CA2A REF: 27«
"2j °
^ *** CEOMSTR \\» WARNING - COLUMN 20 - UKlFJKM MONTHLY INDICATOR BLANK, ASSUMING Y
£? 06223R067000000U700 0 CA2A REF. 28j
<->• B
"O ^ *•» C£I>MSTK 11« nAK.^ING - COLUMN 20 - UNlFOxM MONTHLY INDICATOR bLANK, ASSUMING Y
rf "-^
^ 06223BOh70000006000 0 CA2A REF: 291
tO u
fD
**» CEOMS1R 11U rtARNJNG - COLUMN 20 - UNIFOKM MONTHLY INDICATOR bLANK, ASSUMING Y
ro
o NUMBER OF INPUT TRANSACTION!): 453
-h NUMbEK OF WAL10 TRANSACTIONS: «29
^ NUMbER OF REJECTED TRANSACTIONS: 2u
ro NUMBER OF TRANSAC I lO.ss .VKITTEH: <<29
NUMBER OF AArtNING MESSAGES: 33
NUMbER OF CONDITIONAL MESS»GES: 21
MUNoEK OF ERhuR MtSSAGES: JO
NUMHEK OF AbORT MtSSAGES: 0
NUMoth uf ' LflSASTEK MtSSAC,tS: 0
-------
hlb/AS IWANSAC11UN EOIl PHUtiKAM - UlAliNUSTIC KtPOKl PAGE
NAMt: CtOMSIf* (tCOO«0)
LkVtL: 1-00
LAS1 UPUAtt »: A-l
DATE 1NCQHPOKA1ED: FtBftUAHY 1, 1980
c
T
(D
>
CO
OJ
-P"
o
o
C
n>
CL
CO
D>
•a
o
rt
TD
n- "-a
0)
(O
a>
CO
o
-h
-------
tIS/AS INPUT TRANSACTIONS
c
-5
GO
-H
LO
I
o
o
3
3
c
CL
00
Cu
fD
O
31012020M02303
22u210!U505222
Obl2800b7000007379
Ool2800b700000
Obl2800b7000bO
0612600*700000
0612600670000011111111111122222223333
Obl26006700000 Ou23«50 950005U0975000050321500009B7501
Obl2800b7000oo«210lCAKtlON MUNUXIUEU U2U01SULFUK 010XIOE U
Obl2fl"006700000a3101HYD«L)CAMrtUNS U 1 1101HAK1 ICULA1ES U
Ob 12&00b700000<«2b02f« I l«OGtN OXJOtSU
Obl2800b7AKEA SOUKCE TEST - SUME, riul Mill ALL VALUES UK CAltGUKltS
0612bOOb7o000179
Obl£800t>700001
061280067UOOD1 31 012020UO0b2238ub700000
^06223806700000111l!33333«u««u00002222
10102222 00967SU12
SU^t, BUI IvUI ALL VALUE6 UK CA1EGUK1ES
ANTMKAC1IE COAL 79000000123
7V000020010
79000009750
74U00008900
79000023S50
79000000050
Obl2rtnOb70 00000 1
ufel
-------
L1S/AS 1NKUI IRANSACUUNi.
-si
CT>
c
-5
n>
oo
CO
i
o
o
3
C
n>
o.
31001501 I OOB7ntt6o6b001 10, 20, 30, I-UK1HEK SObDlV
31 001501 10067oOooO ICA1 100 DlSAL, 10 7900
3100150110087666601 * 2475
3l00150110087oe6601V
31001501 10087bb6h01
31001501 10U876bt>601 11 1010001 24 139d5LA
310015011008768o601111 1 4000 1 24 1 1 985LA
3l001501100B7ot)t>(>012230nOOOl241 19H5LA
31001501 10087t>8bb01 42101000124 339H5L A
3l00150110087b6fco0142401000l20139«5LA
31 001 501 1UOB76H66 01 4260 100U 1201998 5LAJ/112-A
31001501 10067t>t>6o0142t>0 3000 1201 7385LAJ/1 1«OA
31 001501 10087666601431 020001201 4u85L A
3l00150110UB7fe86601 1110300012014495LA
31001501 I 0087 06660 121 1 0 1 000230 1 44 V5L A
3 1 00 1 50 1 1 008768660 1224 030 002 31 04 495L A
31 00150 11 008 768660 142 10200 0231 7 7495L A
31001501 100B76066014240200020007495L A
31 001501 100876S6601 4260200 04300 7 U95LAS-JJJJ-55
3 1001 50 1100876Bo601 4350200042007 495L AS- JJJ5555
31001501 1008768o60l 431 0 1 0004222 7495LAS-JJJ5555
31 00150 11 008768660 1431 01 003332274 V5LAS-JJJ5555
31 001501 100876H0601 441 01 OOOOOOOOOOOLAS
3l0015011008768o6014420JOOOOOo002iOLA
31001501100876 001AKEA IS UOUNUtO BY kOUlES
31001501100876 002IHHEE FAC1UH1ES, OlMt AlHSt
31001501100876 00215 FAHMS INCLOSED, WEST IS
31001501 10087686601001CAIE60Kr ]S BkUistN 1NIU
31001501 100B76eo60100110, 20, 30, FUKfMER SUri
IS1UN LAJtK
12359120001312
20013 1087611
L LUCAL GUVKNM1
TSP
hlNOBLM HAHI
NJ1KATES
CU
SU2
NO
NOX
MUi-IMETH MC
BtNZEWfc URG.^ICS
TOTAL DUSTFALLS
ISULFAUS
C02
rIYDRUGEN SULF DE
N02
FORMALYMYDE
MC
MC
TOTAL UX1DANTS
UXUNE
I/, 35, 49, AND 1001A
KIP, ONE UUAARRY AND
URBAN
RtE bUbALLOCATlONS
1SIUN LA1EK
K2A
SD1A
020034S02A
SD3A
SD4A
SD5A
S05A
SU5A
S05A
SD5A
SD5A
SD5A
SD5A
SD5A
S05A
SU5A
S05A
SD5A
SU5A
S05A
S05A
SD5A
SDSA
SD5A
R1A
R1A
R2A
R1A
R2A
PAGE
KtF:
425
426
427
428
429
430
431
432
433
434
435
436
437
«38
43V
440
441
442
4U}
444
445
446
447
4«a
449
450
451
452
453
CO
fl>
•a
_j
CD
O
c
NUMBER OF IfoPUl TftANSAClIONS: 453
NUMBER OF VALID TK«NS«CT1UNS: 429
NUMBER OF KEJECIED IWANSACVIU.MS: 24
-u
DJ
10
rt>
en
INJ
-------
tIS/AS EDITED THArJSACl 1UNS (INTtMNAL IRANSACT10N KlHMAT)
~n
ID
c
n>
5*
—1
co
i
-P.
i
o
o
<-(•
^
ft)
Q.
00
Co
3
T3
n>
o
c
<-l-
TJ
rt- T3
El)
^
CTi
O
~*i
,_,
ro
^"^
061280
061260
061260
061280
061280
061280
061280
061280
061280
061260
061260
061280
061280
061280
061260
061260
062238
062238
062238
062238
062238
061260
061260
061280
061260
061280
061280
061280
061280
061280
061280
061280
061280
061260
061280
061280
061280
061280
061280
061260
061280
061260
061260
061280
061280
061280
061280
061280
061280
061200
Obl280
061260
Obl2rtO
0000000000000071CG06742101CARBUN MUNUXIOEU
000000000000007lCl>06743lUlrtYDRuCAHbONS U
OOOOOOOOOOOOOu7lCGOb742bG2NnkUGtN UXJDESU
OOOU000000200001 NOb7AhtA SOUKCE 1EST - SOME. BUI NOT ALL VALUES UK CATEGORIES
0000100000000011SG06779
000010000UU00031SGU67 31012020402303
0000100000 000 Ob 1SG0671 1 11 1 232322353 334 444444
0000100000000061SG067 0012345 9500050097500005032150000987501
42401SULFUK DIOXIDE
HlUlPArmtULATES
PAGE
RfcF:
22021010505222
0050000000000031SG067
0050000000000051SG06711111\222222333334«q444
006I100000U00011SG06779
0061100000000031SG067
999990000000001 1SGOO779
9999900000000031SG067
999990000000005 U>r,0b7222222««44ii I) 1 110000033
9999900000000061SG067 12i«567
00000000000000HCGOb77V
000000000000003lCtiOb7
OOOOOOOOOOOOOOSlCGOb71111133333««1u«OOOo222?
OOOOOOOoOOOOOOblCGOb7 OOOV67O 9501/05009750000^032100009B75012
3l012020a02303
10)
33221 I«v
OOOOOU0800100021CAOb7V080>t090B06090b0609060809
000000090010002lCA067Y()6060«Od08090808090H0809
bUl *U1 ALL
7VOOOOU0123
79000020010
7900UU09750
79000006900
79000023550
7V000000050
CC1AL7V000023500
CLJAL7900003U750
0[L 790000«2100
79000000390
790000087SO
79000000005
79000096750
79000123400
79000009650
DISTlLLAlt U1L7900UO
-------
310015 OOS76000002001 I 1
ilUOlb 00(J7e>00000/?Ou21 1
310015 0087600000200221
310015 U087bb66012001 1 1
310015 0087686001201)121
E1S/AS EU11EU 1WANSACT lUNb (INTERNAL IHANSAC11ON
HOllAKt'A IS UUUNuEl) LIT KUUlES I/,35,«9, AND 1001A
WOlllMHEt FACHlHltSf UNt AIKSIK1P, UNt OUAAHHT AND
HOlllb FAKMS iNCLUDtDf WtSI IS UKbAN'
HOllCAIEUUMr IS HKimtN INTU IrtKEE SUBALLUCA[luNS
HU1110, 20, 30, (-UR1HER SUHDlt/lSlON LAltK
PAGE
9
449
151
153
MJMBEK OF IKANSAC11UNS rtKJTItN:
PRUGHAM WA"1t: CSKINTW ltC0050)
HEVISIUN LEVEL: i-oo
LAS1 UPUA1E «: A-l
DATE 1NCUHPUKATED: FEBKUAHV 1, 1960
NUM8EK Ut- INPUT TWANSACI1UNS REAL):
O NO*btK OF JKAIViSACI IONS h
«30
-------
EMISSION FAMOK INSEKT10N PRUGHfiM PAGE
o
o
3
T3
NAME: CMSEFIN tECof>60)
REVISION LFVFL! 1-00
LAST UPDAIF »: «-l
DATE INCORPORATED: FERHUA»Y i, i<»«o
-n
.^.
IQ
C
-5
ro OPTIONS IN EFFFCT: FLAG*
>
GO
oo FIELDS SF.LF.CTEO FUR INSERTIONS: NIT SUL ASH EMISSION CUNF SPEC COAT 77001 PDAT 77001
i
FIELDS TO HE OVERRIDDEN: HONE
10 -j.
= FLAGW NIT i SUL i ASH i EMISSION i CONF i SPEC i COAT 77001 PDAT 77001
o>
o.
•
> *»* CMSEFIN 022 F.RROP - Nu VALID OVERRIDES SPECIFIFO - NO OVERRIDES ASSUMED
- NITROGEN 1 N SULFUR I N ASH I N FMISSION FftCTjR T N CUNF LEVEL 1 N SPtC DATA 1 N DATE: CATEGORY 77001 POLLUTANT 77011
"-0
QJ
^ «** CMSEFIN 000 CONDITIONAL - EMISSION FACTO" FILE CONTAINS FEDERAL CATET.ORr KEC"ROS FOK CATEGORIES OTHER TH«N i-6«
CO
O 061280 OOOOP00100100021CA067yP8n6n9nB060V08n8n908f>809 0
-h *»* TMStFIN Oil HARNINP - Nu MATCHING STATE OH LOCAL EMISSTON FACTOR RECOKD FUR CATEGORY 2 TRANS
i— «
ro
' 0&1280 OOOOOomnOlOOOSlCAOb?! 1 IfM OS PART ICULATFS
•*« CMSEFIN 017 WARNIMP. - NO MATCHING STATE OR LOCAL EMISSION FACTOR RECORD FOR CATEGORY
-------
EMISSION FACTOR INSERTION PROGRAM
PAGE <3
NITROGF.N J K' SULFUR T N ASH I N FMlSSlflN FACTOR T N CUNF LFvFL 1 N SPEC DATA I N
UA1E: CATEGORY 77101 POLLUTANT 770"!
-5
0)
510015 OOT/b8f>666100oSlSDni 1« ^ 1 0 1 003333? 7195L AS-JJJ55S5 HC
*** CMSEFIN oj? WAPNINR - NU MATCHING SIAIF oft LOCAL EMISSION FACTOK RECORD FOP CATEGORr 5 TPANS
CO
oo
i
J10015 OOn7h8666bJ00051SDOHa31020001201U«8SL» NONMETH HC
•** CMSEF1N 017 WARNINH - NO MATCHING STATE OR LOCAL EMISSION FACTOR RECORD FOP CATtGORr 5 TRANS
I
O
o
00 rt-
O -••
3
C
ro
o.
co
•a
n>
o
T3
3 100 IS 00«76Sh6iS61 00051SU01 1 4 3502000 «?OP 7 U95LAS-JJ J55S5 FOPMALYHYUE
*** CMSEFIN oi7 WARNING - NO MAICMING STATE OR LOCAL EMISSION FACTOR RFCORO FUR CATEGORY s I*ANS
DJ
10
ft>
to
O
-h
ro
310015 OOB7ftB66^btOOo51S001 la'UOlOOOOOOOOOOOLAS TOTAL
*«* CMSEFIN 017 WARNING - NO MA1CHING ST»TE OR LOCAL EMISSION FACTOR RECORD FOR CATEGORY 5 TRANS
310015 OOR76>6<>6*.61 00051 SOO 1 1 ««20 1 00000000230L* OXONE
*** CMSEFIN ni7 WARNING - NO MATCHING STATF OR LOCAL EMISSION FACTOR RECORD FOP CATEGORY 5 TPANS
PROGRAM NA^E: CMSEFIN
REVISION LF.VEL: i-oo
LAST UPDATF. *: A-]
DATt INCOHPORATED; FERKllARY 1, 19RO
NOMBF.K OF INPOT TRANSACTIONS:
NUMBER OF EMISSION FACTOR RECORDS READ:
NUMBFR OF STAIE AND LOCAL INSERTIONS MADE:
NUMOER OF FEHt'PAL T^SERIIONS MADE:
NUMriFK OF OUTHU! TRANSACTIONS;
68?
150
17
430
-------
EIS/AS MASTER FILt MAINTENANCE PhUGRAM . DIAGNOSTIC MESSAGES
HAGE
PROGRAM NAMt: CFMMSTR (EC0070)
REVISION LEVtL: 1-00
LAST UPDATE *: A-l
OATt INCORPORATED: FEBRUARY 1, 1980
OPTION CARD
CONTROL OA1E IS BO
tHKUR UPT10N IS FLAGw
LIST OPTION IS NOL1ST
00
ua
c
-5
o>
co
co
I
o
o
3
3
C
CO
DJ
.3
_^
n>
310015 0013SOU000000071SG011 22306N1TRATES U000123 2?«03SULFATES A000123
**« CFMMSIR 016 ERROR - AtlEMPT 1U ADD MORE THAN MAX NUMBER UF DESCRIPTION POLLUTANTS
*«« CFMMSTx 016 ERROR - ATTEMPT JO ADU MORE TnAN MAX NUMB£R UF OESCRlPIlUN POLLOTANTS
310015 001351 001 0100051SD0111«101OOOOOuOOOOOLAS TOTAL UXIDANTS
«*« CFM^STK 013 ERROR - ATTEMPT TU ADD MORE THAN MAXIMUM NUMBER OF CATEGORY POLLUTANTS
310015 0013510010100051S0011
I—»
O
310015 001351001010000000011SDCA1 100 DISAG 10 790012359120001312 Y060B0908080906080906oB092«7520013
•«» CFMMSIk 023 ERROK - OVERFLOW FOR EMISSIONS ESTIMATE - RESULT INVALID
310015 001351001010000000011SOCAT 100 DISAG 10 790012359120001312 Y0608090B0809080BOVOB06092t|7520013
«** CFMMSIR 023 ERROR - OVERFLOW FOR EMISSIONS ESTIMATE - RESULT INVALID
ro
-------
EIS/AS MAS1EK FILF. MAlNTtNANCE PROGRA" - niAGNUSlIC MESSAGES
PAP.t
310015 0013*;) 001 01 000000001 1SDCAT 100 DISAG 10 79nol235«l?y001il£! YOBOB09oBO«09oflOBo90Bi)B092«75<:0013
**« CFMMSTK 023 ERKOk - UVEPFLO* FOR EMISSIONS FSTJMATE - KFSULT INVALID
310015 <<0t JMOOlOtOftOOOnOOl ISDCAT 100 OTSAG 10 790012359120001312 Y oflO«0<'OOOBO<>0«0«0<'OROROt'2«7520013
• ** CFuMSTIv 023 ERROK - OVERFLOW FDR EMISSIONS FST1MATE - RESULT INVAI.1D
IQ
-s
n>
oo
—I
CO
-pi
r>
o
3
00 rt-
ro -••
3
C
0>
Q.
310015 001 35100101OOOOOOQ011SOCA1 joo DISAG 10 790012359120001312 Y080Bo9080B09o8080<>oBOfl092«752001 3
*** CFMMSTR 023 ERKOk - OVERFLOW FOR EMISSIONS ESTIMATE - RESULT INVALID
310015 OOl35l0010IOOOOOOOOllsnCAT 100 DISAG 10 790012359120001312 Y080R090B0809o80R090BOB092«7S2001 3
... CFMMSTK 023 ERROR - OVERFLOW FOR EMISSIONS ESTIMATE - RESULT INVALID
310015 001351001010000000P1ISHCAT 100 DISAG 10 790012359120001312 YOB0809080B090808090808092«7520013
«** CFMMSTK 023 ERKOK - OVERFLOW FOR EMISSIONS FSTlMATfc - RESULT INVALID
310015 0013510010100000000HSnCAT 100 UISAG 10 790012359120001312 Y0808090BOB090BOB09080B09207520013
*** CFMMSTK 0?3 ERKOK - OVERFLOW FOR EMISSIONS ESTIMATE - RESULT INVALID
310015 001351001010000000011SDCAT 1"0 DISAG 10 7900123591?0001312 Y0808090ROR090808090B08092«7520013
«»* CFMMSTR 0?3 ERKOK - OVERFLO* FOR EMISSIONS ESTIMATE - RESULT INVALID
00
Cu
•
fD
O
•a
Cu
in
fl)
310015
310015
310015
310015
00135100101000000001 ISnCAI 100 UISAG 10 790012359120001312 YOfiOB09o80«09060a090808o92a75200 1 3
*«» CFMMSTK 023 ERKOK - OVERFLOW FOR EMISSIONS ESTIMATE - KESULT INVALID
001351001 01 000000001 ISHCAT 100 UISAG 10 79001 23591 ?000 1 312 YOB08090ROP09080fl090BO«092«752001 3
«** CFM»*STK 023 ERKOk - OVERFLOW F0» EMISS10NS ESTIMATE - KESULT INVALID
0013S1001 01 0000000"! tSr>CAl 100 UISA& 10 7900123S91200Q1312 YOBOB090BOB09oPOB090Bu«092« 75200 1 3
«** CF«MSTf< 023 £RROK - OVERFLOW FOR EMISSIONS ESTIMATE - .KFSULT INVALID
0036700000000071SG011 11 lltWINURLN PART U000123 21101TOTAL DoSIFALL A000123
*** CFMMSTK 016 ERROR - ATTEMP] 10 ADD MORE THAN MAX NUMBER OF DESCRIPTION POLLU1ANTS
*** CFrtMSTK 016 tRKOrc - ATTEMPT TO ADD "ORt THAN MAX NUMBER OF DESCRIPTION POLLin»(vTS
310015 0036723401100051SD01 HtllOlOOOOOOOOOOOLAS TOTAL OXIDANTS
*** CFwMSTK 013 ERKOK - ATTEMPT 10 ADD MyR£ THAN MAXIMUM NUMBER OF CATEGORY POLLUTANTS
310015 0036723*4011000S1SU01Iu«20100000000230L*
-------
E1S/AS HASTEN FILL MA1N1ENANCE PHtlGKAM - LllAUNUSHC "IESSAGES
PAGE
NuMbtR
NUMBtK
NUMUE.K
Nu«bE«
UF 1NPU! TKANSACIJUNS HEAD:
UF D1SASTEKS DETECTED:
UH AblJKIS OEIECIEU:
UF EKHUKS DETECTED:
UF CONDITIONALS DEIECIED:
UF WAMMNGS DETECTED:
OF TKAMSACUUNS KEJECTEO:
U^ AREA SUUKCE FILE KECUKOS KEAU IN:
UF AKtA S'lUKCE FlLt KECOKDS »K1TTEN
OUT:
UJO
0
0
7B
0
(I
11
349
417
tn
c
ro
CO
—I
CO
O
O
13
CO r+
CO -".
c
ro
Q.
CO
Cu
-a
a>
o
c+
T3
-a
o>
fD
i—"
ro
o
ro
-------
EIS/AS Test 4
Produce a Formatted Dump of the Master File
In this test run, a formatted dump of the EIS/AS master file output from
Test 3 is printed using the cataloged procedure ECRPM30 which executes CRPDUMP
(EC0140), the master file formatted dump program.
CRPDUMP (EC0140) produces a formatted dump of the EIS/AS master file;
i.e., a listing with identifying headings of all the fields in each master
file record, as the record appears in the file. This formatted dump is useful
for verifying information contained in a master file and isolating invalid
data.
The options in this program are used to specify the number of lines per
printed page and the portion of the master file to be dumped. The maximum
number of lines per printed page can be specified by the user in card columns
1 and 2 of the option card. This option can reduce the amount of paper used
by those who have standard 11 x 14 inch output forms and the ability to print
eight lines per inch. The maximum number of lines to be printed per page
should be a number between 20 and 80. There are two other user-specified
options: the number of records to be skipped before printing the first record
to be dumped and the total number of records to be dumped. These two options
make it possible for users to inspect specific portions of the master file
without having to list the entire file. Columns 3 through 8 are used for
coding the number of records to be skipped, and columns 9 through 14 are used
for the total number of records to be dumped. If the number of records to be
skipped is specified, but the number of records to be dumped is not, all
records will be dumped except those that are specified to be skipped. One or
more options as well as the entire option card can be omitted. The default
options are 55 lines per page, no records skipped, and the entire file
dumped.
The run stream for this test run contains the JCL needed for dumping
the contents of the master file. This run stream is shown in Figure AST4-1.
84
-------
The cataloged procedure executed by this run stream is ECRPM30. A
substitutable parameter specifies the input master file as ECMSTR2 (created in
Test 3). The user must supply the DD (data definition) information for the
option card file. The option card is not present in this run stream;
therefore, the default options are in effect. Refer to Figure AST4-2 for the
sample output produced by this run stream.
85
-------
//«STfcSTO«l jno (ACCOUNTING INFO)
//*
//* PHMDIICC A FuRMATTtD PU^H (JF TrtT F1S/AS WASTE"
//*
dA FXFC ECKPM30,
//*
//* GENERATE A DUMP OF THE MASTER FILE CREATED IN TEM 3
//*
Figure AST4-1. Run Stream
86
-------
ElJ>/Ab MASltK FILE FUHMAMED DUMP PHUGwAM - DIAGNOSTIC REPORT
PAGE
PROGRAM NAMt: CRPUUMP (EC0140)
REVISION LEVEL: 1-00
LAST UPDAJE #: A-l
DATE INCORPUHAUO: FEBRUARY 1, 1980
OPTIONS IN EFFECT: 55 LINtS HEK
u HECDKDS SKIPPED;
ALL HECORUS TU BE DUMPED
*«* CKPDUMP 003 CUNUlTUlfJAL - NU VALID LINt SPbClUC A1 ] UN - OEFAULl UF 55 ASSUMED
«•« CKPDUMP OOU CONU1I1UNAL - NU VALID VALUE SPECIFIED FUK NUMbtK OF RECORDS TU tif. SKIPPED - DUMP STARlS AT F1KST RECUKU
*»* CKPDUMf OOS CONDITIUNAL - NO VALlo VAcUE ir'fcCIFItD FOK NOMfaLK OF RtCOKOb Tu bE UUMPtO - E«IIr
ro
-------
FJLt
PAGt
ID
c
-j
L * 1 E
-000
kf./T tPrCi; fP = OYr
PtiPul= AQL"R/NM =
SULFDW/CnNltNIS: (ANTHRAC 1/COAL= , B IIIIMN5/COAI =
n/in M/run«DS = 0 1ST; (ZuNfc= ,MURJ7= itfE«T =
SLIHWrt/T YPF= !.(• NHTM/ARFAs L F NR T H/M, F A/U'
= 00
"J/Aflr
, U I ST J LL T /" 1 L = ,WFSTD/Uli_= ) ASH/CU^J? FNT S :
YPE/fKFr)=0 LINE/BsOOO HA!CH=
BSE/YR= PK.IO/YR:
(>FFN()/APEA/C(> =
f ANIHkACT/CllALz ,HITHMNS/COAL=
PUP/CUnt=
GAS/HEV=
] T s /CHOP =
L>ItSL/HFv=
** POLL/Iu
*« «ih02
** 11101
** UiUO\
VLH; ((;AS/LliT=
A tlb/FLGP: (CARD/1= ,CAkD/?= ,CA«l)/3=
POLL /'UMt A 1 TN*NT/S1 Al US AfJMA/* F I S/FLG/THD/T «*
II « **
PARI1CULAIFS U A **
SULFIIK HTUXinE U • **
1 MM: (7l)Mt=
S T P/fc" S T 1 MA 1 r i, : (TSP= , SU2= , MHxr
) "V M J 1 ES/WDS : (L]M/AtCb= PU»=
= ,CAKr>/>>= ) «/PUt L = 05
PULL/10 PQLL/HAKF AT T NMN1 /ST A TUS
«3]fM HYOPuCARbOK'S U
«?101 CAnRUM "UNfiXlOE U
,HIIRIZ=
,MU»I7=
, Hf=
,VFKT=
, C0=
MRBr
«fJ»A/» ETS/FLG/CRO/7 **
A »«
A *»
GO
-p.
1
ro
o
o
3
00 r-t-
00 -••
3
C
n>
Q
1 1
GO
3
CD
O
^.
•o
C
e-h
ST
4tirR = 06
*J£OS/A6
ST
AQCH=OS
7 RfcC/TYPt= N COMMEM1=AUt»
/FLf, = A tIS/FLG/l =
ATE = 0^ rul'i^TY = l?ttP GE^bP/
7 R£C/TYPt=CA C*1EGRY/DFSC=
SUHALLOC/»=Ofl
SuUkCE TEST -
FlS/FLT,/2 =
SU«ALLOC;/» = OP
1)00 L A I El»RY/» = 000 OTSA
SUME, «UT MOT ALL VALUES
000 C A 1 ^GR Y /» = 0 0 1 UlS^
RESIDENT ANTHkACITE TU«L YR/OF /I NFn=7
GGK/«=OO RECORO/TYP
0" CATEGORIFS
:/fREY)=2 L1NE/»=000
GGH/n=00 RtCORO/1 YPE/(KEY)=1 LINE/»=000
V PrtCSS/RATE=OOOOa0123 CATEGWY/ADJ=
UNI] S/rO/DESC= llrglFRM/IHKUPTrY MNT"LY/TriRUPT /X: ( JAN = U«, F£ R = PB , MAK = 09, APRrPg, MAY = 0'
MQV=08,
fyl 1 J p r / ^
POLL/ID
11101
021 0 1
02001
02602
03101
0226R
13201
*^~^
"O
to
L)EC = 09) HKS/DER/r>AY= r>AYS
= SOLF/X= A.*>H/i =
C F / N A R H =
/PFR/rtK= nK
HEAT/COfaT =
EI5/FLG/1=A
EMIS/FACTR EF/CUF/RIMG EF/S«C/CD tF/nniG
p
n
n
n
0
n
0
S
s
S
s
s
L
L
S/PFK/YR= TriRUPT/KAT 10=
UiMlFPM/MRLY/THRUP1 =
) NE^S/A7/CiJMM = MASTER
FJS/FLG/2 = A EIS/FLli/3 =
PPLL/SPC/DATA l*EDS/A7/E*IS
MAX/MRLY/THRIJPT.
HRLY/TMRUPT/X: (00=
FILE TEST DATA
^,JUN=P9,JUL=06,AUG=P8»SE
BAICH=
bATCH=
UNITS/Cr> =
PiOOjOCTrOB
: DATA/CONFIOFNCE/RAT'JG = 0
.09 =
iNFn/sniiHrF/roi)F=s
EIS/FLG/fl=» NEDS/FLP=A NEUS/A7/FLG=A */PULL=07
POLL/^A^E EIS/FLG/5 EMIS/EST CONF/PTNG
PARTICIPATES
TARHOn MONOXIDF
SULF'lh DIOXIDE
NITROGEN OXings
MYDKnCARPONS
TOTAL SULFUR
METHANF
0000000 0
0000000 0
0000000 0
OOOfOOO n
0000000 0
OPOOOPO 0
0000000 P
MX/HRLY/EMb
=OPOPO
=00
RtCOPO/TYPF/fKEY)=l
LINt/*=000
CA
CuAL
o UNI TS/CO/DFsr=
-h N(JV = n8.0RC = 0<')
N'lTHT./tr |OU
U.NlFRM/rHHUPT=Y
,12 =
PULL/jn FM1S/
11101
«i?lO\
"3101
«3?ni
80LK/X= ASM/X = 000 HE41/C'1NT =
r i1b= i t i1fc= t t /21~ i
= ETS/FLb/l=<
ACTK tF/rNF/RTNG EF/SHC/CD
0 S
P S
o S
n S
n S
P L
,09 =
"V PKCSS/RATE=OP0020010 CATEGKY/ADJ=
TriRupT/kAiiu= M«X/HRLY/THRUPI=
UiMTFRl/HRLY/TrtRUPT= H^LY/THRUPT/X: (00= , , ,03= , , ,0^> =
, ) ivtrs/A7/cu"M=MASTER FILE TEST DATA iNFO/siju«ct/cot)F=s
F1S/FLC-/? = A EIS/Flb/J= F1S/FLG/U = A NEUS/FLT, = » NEl»S/A//FLG = A */PULL = Ofe
POLI./SPC/flATA iJEUS/A7/t "IS POLl /NA^t flS/FLG/5 EMTS/ESI CONF/R7NG MX/HKLY/EMS
PARTICULATES
CAPHON MONOXIDE
SULFUk DIUXJDE
"ITrtOGFN UXJ.OES
HvnwOCAKBONS
METM«rtf
A
A
A
A
•A
A
0000080
UPOPOPo
0000000
0000019
0001331
UOOObfcb
0
n
0
0
0
P
-------
EIS/AS Test 5
Update the Master File Using EIS/AS Transactions
In this test run, the master file output from Test 3 is updated with
EIS/AS transactions using three cataloged procedures. The first procedure is
ECEDT10 which executes CEDMSTR (EC0040), the master file transaction edit
program. The second procedure is ECMST10 which executes CSRINTR (EC0050), the
master file internal transaction sort program; and CMSEFIN (EC0060), the
master file internal transaction emission factor insertion program. The third
procedure is ECFMM10 which executes CSRINTR (EC0050) and CFMMSTR (EC0070), the
master file maintenance program.
This test is similiar to Test 3 in that both tests execute the same
programs. However, unlike Test 3 which used one cataloged procedure to
execute all the programs, this test run uses three procedures. By using
separate procedures, the user can edit several different sets of input
transactions and then perform a single emission factor insertion and file
maintenance on all the edited transactions. This will result in operating
cost savings. Refer to Test 3 for a description of CEDMSTR (EC0040) and to
Test 2 for a description of CSRINTR (EC0050), CMSEFIN (EC0060) and CFMMSTR
(EC0070).
The run stream for this test run contains the JCL needed to update an
EIS/AS master file. This run stream is shown in Figure AST5-1. The sample
output produced by this run stream is shown in Figure AST5-2.
First, the run stream executes the cataloged procedure ECEDT10. Through
the use of substitutable parameters, the output internal transaction file is
named ECINTR1. For the EDIT step, the user must supply the DD (data
definition) information for the option card file and the input EIS/AS master
file transaction file. The options specified in this step are 80 and FLAGW.
Next, the cataloged procedure ECMST10 is executed. Substitutable
parameters are used to specify the input emission factor file as ECEMFL1
(created in Test 1), the input internal transaction file as ECINTR1 (created
in the previous step), and the output internal transaction file as ECINTR2.
89
-------
The user must supply the DD information for the option card file in the INSERT
step. The options specified for this step are: FLAGW, NIT I, SUL I, ASH I,
EMISSION I, CONF I, SPEC I, CDAT 75000, and PDAT 75000.
The last procedure to be executed is ECFMM10. By using substitutable
parameters, the input master file is ECMSTR2 (created in Test 3), .the input
internal transaction file is ECINTR2 (created in the previous step), and
the output master file is named ECMSTR3. The DD information for the option
card file in the UDPATE step must be specified by the user. In this step the
options are 80, FLAGW, and LIST.
90
-------
//ASTEST05 JOB (ACCOUNTING INFO)
//* UPDATE THE EIS/AS KASTFK ULE USING FIS/AS TRANSACTIONS
//*
//TEST05A EXEC tCEfUlO,
// TNTRTKKsFCINTKl
//*
//* EOT1 THE EIS/AS TRANSACTIONS
//*
//FDIT. INPUT OR *
P612B00670061 100B3S SD1D
i uflo'ioo7«ooooo rciu
ii2l3flOi9Pooooooo*;oo CAIO
i l?3«5S5Sa TG'IC
101 ISH-J U0001^3 a?101CCl A00023 CG7C
1 «78l007oOOOOOn01 OON050505fl5
1 a 78100 7') UP 0000 01 OON?0?0?0?0?0
9 CG5C
1«786007flOOOOO 000 1 23<4000 1«50020 1 OOoa 1 90 005ft 0 1 000 01 ««000 1 576 CUftC
1«786007"000001 I10USP-1 U000123 U2101CC1 A00023 CG7A
1«78fe007U0000000300002HlS IS CCf*£NT 1 H1A
3100150110013510010 125 23 JD1C
310015011001351001011101 26100 1?3« SD«iC
3100150]10P3fr7P3«01 1597 10 «01C
3100150M00367?3a0121 101 351111 XXJ-1?
310015011003672310143101 1351001 XXJ-1? 10Q
31001501100876B6601 * 100 SD1C
31001501100876P6666 2000 312 SD1C
31001501t00876R666611101 26100 123« SD5C
1351001 XXJ-1? 100 SD«C
SECRGt COUNTY INHUSTRY 1 !?07t)P2?3rGlC
a20bBQ198000fl0000201?4AliCK IS 19PCOUNTY INTUSTPY t 1 ?078»"2?3rG?C
a20bB019B0000015CAASF 1 230 1 0?030fl 1 251 <4501 CG3A
«206B019«0000015CAASF 123010?030P 1251 <(Soa CG3C
1206B019B0000011111MNOBLN PAHT U000051 ?2«03SHLFATES AQ002«1
0206B019BOOOP000100N050505P5 125500023
U206B019B00000001OON?0?0?0?0?0 CA3C
fl612«00670000073079 CG1A
//EDIT.OPTIONS DO *
BO FLAGh
//TEST05B FXFC ECHSI10,
// FMFCF1L=FCEMFL1,
//
//*
//* INStPT EMISSION FACTOKS IN THE
//* CHFATEO IN STEP A
//INSERT.OPTIONS On *
FLAGW NIT I SUL I ASH I L^ISSION I CONF I SPEC I CHAT 75000 POAT 75000
//TEST05C FXEC
(Page 1 of 2)
Figure AST5-1. Run Stream
91
-------
//
// TNTKTKN=FCTNTK?
//*
//* UPDATE 1HE K«STtR FILE CREA1FO IK1 TEST 3 wIIH ThF
//* IMEKN*U 1RANSACT1CN9 CHFATtD IN STEP fl nt THIS
//« TEST
//*
//tlpnATE.OPTIONS DO *
SO FI.AGH LIST
(Page 2 of 2)
Figure AST5-1 - continued. Run Stream
92
-------
EIS/Ab IRANSACTIUN toil PROGRAM - DIAGNUSUC REPORT
PAGE 1
tn
c
-i
CD
NAME: CEUMS1R (ECOOOO)
REVISION LEVEL: 1-00
LASI UPDATE «: A-l
DATE INCORPORATED: FEbRUARY 1, 1VBO
OPTIONS IN EFFECT: CONTROL YEAR «0
NUL1S1
(DEFAULT)
»** CEDMSTR OOf CONDITIONAL - bLANCv UK INVALID LIST OPTION, ASSUMING NUL1ST
l«76«0007d000000100N050505B5
*** CEDMSTR oij ERROR - COUNTY
1
12SSG0023 u
OF
OUT
OF
OUT
OF
OUT
OF
OUT
CG4C
RANGE
OF RANGE
RANGE
OF RANGE
RAriGL
OF RANGE
RANGE
OF RANGE
REPLACING SPACE
REf
11
ro 8t
t—i *** CEDMSTR 052 CONDITIONAL - COLUMN Si - UIK ZONE 1 OUT OF RANGE
CG3A
HEF: 31
-------
T
n>
Uf' iNPUt JuANbACt 1UN3:
NUMBtH Uf VALID IKAIMSACI IU.
a.
GO
o>
-o
ro
o
rh
T3
tlS/AS MASUW ULE IMTEhUAL ThANSACTlUN SUH1 PKOGKAM - UlAliNOSTK RtPUHl
^^ PHOGKAM MAME: CSH]iMl« (ECOUSO)
2f REVISION LEVEL: i-oo
IQ LAST OPUA1E Hi A-l
ro DATE INCOHPOWaltU: FEBKUARY 1. 1V«0
O
00
NUMBER
OF
OF
INPUT T KANSAC 1 IUNS REAU:
T«Ar,SACI IUNS wRJITEN:
-------
Farm* iNsruiin* HPur.Kirt PAGE i
: i-oo
LAST UPOMF »: «.)
OATt IMCriKPU'-'ATtD: FE"WilARY 1. 1V«U
N EFfECT:
3>
oo
r+
Ol -"•
3 FLAG* MT I SUL 1 ASH I EMISSION I CONF I SPEC T COAT 75000 POM /^uoo
fD
o.
•
00 »*« Tt-SEFlW 02? FrtRCJP - NO VALTO DVtW«T[1FS SPECIFIED - NO nvFHPIDE? ASSU"tH
QJ
3
•a
n>
g NITRHCJEN i M SULFUR i N ASH T n EMISSION (-ACTUW T N TUNC LFVFL i ^ SPEC DATA i M U«TF: CATEGOKV 75000 POLLUTAMI 7^000
r+
•a
r+ "^
cu
2*OOOooauuufl402-*<4i(joiOO'*«
-f) *»* fMStFIN 01) *APnlNfc - NU rtATCHlNG STAIE HK LOCAL tMlSSJON FwCIOK KFCOHn Fu« CATEGURt i I»ANS
00
3|00t5 901 i1^) 00101 OOOS^RDOJ 1 11 1010000026] 00 1?3«
««* TMSfFlN 01" EHRuP - IJuFLAUPE11 INPUT r«T t'^l'
-------
t"lSMON FACTnw INSFKTltlM
PAGE
1 M SULFUR I
»SH I N FMTSS10N fAC'Tii» T
LEVF.L 1
J K'
C»lFG'it»Y 7sn(in HQLLUTAN1 75UOO
IQ
tn
i
ro
n
o
ro
o.
UF INPUT T H AitSAC T T U*'S :
uF FHISSin.N f-ACTU" RtdJROS OfcAL):
UF RT»IF
o
c
tli>/AR "ASlFw ^1L^
10A^1bACTl^^ SORT PK'HIPA* - OJAGNUSTIC
PAGE 1
O)
(O
115 PKOf.PA
I AST UPUA1F »: A-l
r-ATt j
t,
CO
UF INPUT THANSACTIUNS K,FAP>:
uF TrfOnPAC
40
3S
-------
L1S/AS MASItK FILE MAIMENANtt PKUGKAM - DIAGNOSTIC MhSSAGES
PAGE
PROGRAM NAME: CFMMSIN (EC0070)
REVISION LEVtL: 1-00
LAST UPUAIt »: A-l
DATt INCORPORATED: FErtRUARV 1, 1980
OPTION CAKD
CONIkOL DAIE IS 80
fRROK OPTION IS FLAG* , LIST OPTION IS LIST
(jQ
C
1
n>
Ili7t)»0
0000000100100021CAU7«N05050b8bOOOOOOOOOOOOOOOOI25500023000004«««««023«12010030
*** CFMMSTR 006 ERRUK - ADD IRANSACI ION, RECORD ALREADY ON MASTER FILE, CARD REJECTED
GO
—I
cn
i
ro
o
o
3
147860
310015
U20o80
0000000000000071CC.0741 1 101 ISP-1 U000123 02101C01
»«« CFMMS1R 015 ERRUK - DESCRIPTION PuLLUTAM ID ALKEADY ON FILE, POLLUTANT REJECTED
««* CFMMSTK 015 ERROR - DESCRIPTION POLLUTANT ID ALREADY CM FILE, POLLUTANT REJECTED
OOliSlOOl 0300010 K011
ft 007 ERROR - TRANSACTION NOT ADD, bUT NO MASTER ON FILE, CARD REJECTED
OOOUOOOU00000031CG19815CAASE 1230102U308125J450«
»«« CFMMSTR 006 ERROR - AOO TRANSACTION, RECORD ALREADY OK MASTER FILE, CARD REJECTED
n>
O.
GO
Cu
(V
O
ft
00000001 00 1000?2CAljGS DE1ECTEO:
NUMoER OF TRANSACTIONS REJELIEO:
NUMBER OF AREA SOURCE FILE RECORDS READ IN:
NUMBER OF AREA SOURCE FILt RtCO«DS wKlTlEN OUT:
34
0
U
B
0
U
7
017
u^O
-------
E1S/AS MASTtH FILE MAlNTtr»ANCt PrtlJliKAM
INlfcKNAL 1KANS>ACT1UN LISTING
PAGE
-n
to
c
tt>
CO
—1
en
i
ro
0
o
3
CO -i.
c
o>
CL
QJ
3
•a
n>
0
c
r+
•a
c+
061260
061280
147B40
147840
147640
147660
147860
147860
1476t>0
147660
14b040
310015
310015
310015
310015
310015
310015
310015
JloolS
310015
310015
420680
420680
420680
**2 0 b8 0
420660
420680
420660
420660
421380
461280
•^
10
n>
0000000000200000 N067
0061100635100010SU067
0000000000000012CI.U74B000401 34213SMI Ih CCIUNIY INDUSTRY 112078H223
0000000000000042CG07<401123«51234567H88512051234578965412223556322 123455554
0000000000000072CG07411101TSH-1 0000123 42101C01 A00023
0000000100100021CA074N0505058500U0000000000000125500023000U044444UU23412010034
0000000 1001 000 Ji!CA074N20?02l)i'020
OOOOOOOOOOOOOOl2C&074bOOOu0134213KE(IKi;E COUNTY INDUSTRY 1120786223
U000000000000052CG0740U125013700120345V00119
0000000000000062CG074 000123400014500201000419000560100001480001578
0000000000000071CGU7U11101TSH-1
0000000300200211 K074HIS 11> CuKMfcNT 1
000000000000001OCG074
0013510010100012S0011
0013510010100052SU011111010000026100
0013510010200010 K011
003o723401100012SD011
0036723401100052SD0112110100003511 11
003b723401100052SD011431010001351001
008/666601100012S0011
U000123 421U1CU1
1234
XXJ-12
XXJ-12
0000001250000023
0000015V70000010
0000100
OOOU (i 00050000100
000002U000000312
00876b6666100052SU01111101OOOOG26100 1234
008766666610005250011431010001351001 XXJ-12
OOOOOu0000000012CG198600040134213GEUHGL CUUN1Y
U000000000000022CG198000.J0124AUCR IS 196CLIUNTY
000000000000003ICG19815CAASE
0000000000000032CG19815CAASE
0000000000000071CG19811I14«INOBLN PART
0000000100100022CAlv6N050505bS
0000000100100022CA196N05050565
0000000100100032CA196N202C202020
000000050010001OCA198
C000000000000011CG06773079
0000100
INDUS1RY 1120788223
INDUSTRY 1120768223
1230102030612514504
1230102030812514504
U000451 22403SULFATES «000241
12550002300000444444023412010034
12550002300000455554023412010034
O
-h
00
-------
E13/AS HAbTtW MLE MAlNlLNAfgCE PMuGRAM - ULI> MASTER FILE LISTING
PAGE
-s
n>
GO
en
i
o
o
=3
vo --.
fD
Q.
CO
O)
3
•o
r-f
T3
•^
OJ
IQ
n>
^-j
o
00
061280
061260
061260
061260
061260
061260
061260
061280
061260
061280
061280
0612HO
061280
061280
061280
061280
061280
061280
061260
061260
061280
061280
061260
061260
061260
061260
061280
061260
061260
061280
061230
061260
061260
061280
061260
061280
061280
061280
061260
061260
062238
062236
06223S
062238
062238
062236
147640
VALUES UK CATEOUHIES
79000000050
CDAL79U00023500
CUAL79dOo034750
OIL 79000042100
79000000390
79000006750
79000000005
79000098750
79000123400
79000009B50
01L79000021500
000000000000000565067CG
000000000020000136067 NAREA SOURCE TtST - SOME, bUT NUT ALL
000000010010000734067CARESIOENT ANTHRACITE COAL 79000040123
000000020010000669067CARES1DENT HITUMINUUS COAL 79000020010
0000000300100007340b7CARESIDENT DISTILLATE uIL 79000009750
000000040010000669067CAKESIDENTIAL RESIDUAL UIL 790000U6900
00000005U010000069067CARESIDENT1AL NATURAL GAS
000000060010000734067CA«ESIUEiJTlAL WOOD
HOOOOo070010000669067CACUMM-lNST AN I MRAC 1 IE
OOOOOOOW0010000669067CACUMM-INST tflIUMINDUS
000000090010000734067CACOMM-INST DISTILLATE
0000001 0001 OOOObt>90b7CACU"iM-INST RESIDUAL UIL
0000001 100 1 0000669067CACUM.M-1MST NATURAL GAS
000000120010000734067CACUKM-INST wUOU
0000001i0010000o69067CAlNUUSTWY ANThkACITE COAL
0000001«00100006b9067CAlNOUSTRY bITUMINOUS CUAL
000000 1500 100007 3 uOb7CA INDUSTRIAL CuivE
000000160010000669067CA1NUUSTR1AL U15TILLA1E
OOOOHOl70010000669067CA1NDUSTK]AL XESIUUAL UIL 790000009bll
OOOIiool800100o073'<067CAlNuUSTRlAL NATURAL GAS 79000056900
000000190010000669067CfclNi)USTRIAu *UOO 79000000025
000000200010000669067CA1M)USIRJAL PROCESS GAS 79000002350
000009990010000799 Cft
000010000000000453067SG79
0000100100100004740b7SARESIOEi>n ANTMHAC1TE CUAL 79000059850
00001001 01 10000474067SDKES10ENT AMnK'ACITE CUAL 79000059850
0000100135100003«4067SURESIOENT A.'JTHRACITE COAL 79000059B50
00001001991000034«067Si)RESlUtNT ANTHRACITE COAL 790U0059850
000019990010000U74 CA
OObOOOOOOOOOOOO«530b7S(i
005000010110000344067SL>KES10ENl AuTHRAClTE COAL 79000059850
005000012210000344067SORESIDENT ANTHRACITE COAL 79000059650
005000017010000344067SORESIOENI ANTHRACITE COAL 79000059650
005009990010000279 CA
006110000000000453067SG79
00611OOB3510000«09067SDCOMM-I^ST b1 TUMINUUS CUAL790000i47bO
006119990010000279 CA
9999900o00000004530b7SG79
99999001991Oo003440b7SDHtSlUtNT ANTHRACITE CUAL 79000059650
999999990010000279 CA
0000000000000004^3067CG79
000000000020U0013b067 i\,AREA SUUKCE TEST - SUME, BUI NUT ALL VALUES LlR CATEGORIES
0000002300 10000bt>90b7CACUUr<-lNSl ON-SITE 1 NC 1 NE R 790 00 002 350
00000047001OOOOb040o7CAClVIL AIRCRAFT L1U"S 79000005005
000000600010000669007CAFUKEST X1LU FIRES 79 0000900
000009990010000b69 Ll>
000000000000000565074CG75
r08060908080<»060609080609
Y080809080809080B09080B09
Y000609080609080009060809
Y080609080809080609060809
YOB08090B0809080609060809
T0806090808090H0809080609
Y0608090808090B0809080B09
Y0808090b08090e0809080809
Y080d090808090B0609080B09
Y0808090608090806090BOB09
r080B09oao809o60809080809
Y060809080609080609060609
Y080809060809080809080809
Y060609080609060809060609
Y060809080809080809060809
YOBOB090808090BOB09080009
Y060609060809080b09060609
Y080609060809080809080809
Y0806090808090808090BOB09
Y0808090806090606090b0609
Y080609080809080809060809
Y0808090808090808090BOB09
Y0808090808090808090B0809
Y06060908080908080908()b09
Yo80b090808090B08090«0609
Y060609080609080809080809
YOb08090BOB09080809080809
YU80809080609080809080809
Y0806090B0809080809080809
Y060609080809080809080809
-------
MAMt"
MMMIFNANft
MA;jTtP Flit LISTING
o
o
c:
n>
ro
o
o
3
n>
Q.
GO
n>
o
T3
C
Obl2«0
Obl280
Ob)2«0
Obl2«0
0612BO
ObJ2RO
Obl2BO
06)2Bo
Ob1280
Obl2BO
Obl2«0
Obl280
Oo)2RO
(Xi
CO
O
-t)
CO
M*
not 00()073«Oo7L AKF.blDFuT
790000200 I n
PISTILLATE HIL
OOOObh90o7CAKFSIi>FNTJ AL KF.SIO'IAL OIL 79000008900
AL NAlllcAL G«S
OOOOb^9067CACn.M"-lNS I ANCHkACTTF
D1STIUMF
kFSTO'lAI njL
000000) 100100006fr90b7CACn,viM-I\ST
000000)2001 00007^iiOt>7CACni^M— INST
0000001 3001 OOOOb6VOo7CA IMullSTHY ANTHRACITE Cr'AL
000000 1 U001 OOOOb^90ta7CA INOMjJTKY H
000000 1500 10000 7 ^«Ot>7C A 1NDIISTK7AL
COAL7VOOOO?iSOO
C i ) A |_ 7 V 0 0 0 0 % <4 7 b 1
nji.
79000006750
7900000000s.
79000Q9a750
79000123000
COKE
OISITLLATE
OIL790000P1SOO
000000) 70010noOb*9n07CAJMl>U3TfUAl
OOOOOolttOOl 000073«007CMNLlUSTkI AL
0000001 v00100006h9067C» J'l()HSTr(T Al.
OOOOOO?0001 OOoObfe90h7C« I NOUST rf T AL
000009990010000799 C*
0000)OOOOOOOOOOaSjnb7>jG79
0000100100!0000«7aOb7SAKESIi)F.NT
0000)0010l)OOOOu7uOb7SnKCSIDENT
00001 OOHbl00003ooooooooooooa530b7sr.
OOS000010J i 00003Il>ENT
00500001?2100003"F.NT
OOS00999001 00003a!| CA
RESIDUAL UtL
NATURAL RAS
79000Q00960
790000Sb900
PhlOCFSS GAS
ANTHRACITE
ANThOACITt
ANTHRACITE
ANTHRACiTt
ANTHRACITE
COAL
COAL
COAL
COAL
COAL
CHAL
79000059850
79000059950
79000Q59H50
79000059«50
790000S9R50
790000^9850
Y0808090«0809080809080<<09
Y080"*090BO«09o80809080«09
YOR08090B08090B08090RU809
YOS0809080809080B09080809
Y0808000ROB09080B090BOB09
YOB08090BOB090R08090ROB09
Y080ft09o80B090808090<»0809
YOB0809080B090808090POR09
Y0808090P0809080B09080R09
OObl 1 000^51 0000009007SncnHu-INS] 01 JIIMTljnilS CU&L79* *
OOM 199900)000030'4 C <•
O 9 9 9 9 0 0 0 0 0 0 0 0 0 0 "4 5 3 o o 7 b <5 7 9
9999900199100Q03«'40o7SnHESTOEuT ANTHRACITE CHAI 79000059850
0909990900100003014 CA
OOOOOOOOOOOOOOOII53067CK79
OOOOOoOQOO?00001?bOb7 NAREA SlIllHCE IFST - SOME. BUT NOT ALL VALUFS \)» CATEGORIES
0000002J00100G06>i90i>7CACnMM-INS1 UN-SITt INC I NErt 79000002350
000000^7001OOOOfaO«Ob7CACTVIL AIHC«AFT Lin-R 79000005005
OoOOOOhOOOl OOOOoh90fa7CAHHFST WILD H*F.S 79 0000900
00000909001OOQOoh9 CA
Y080809080809080809080R09
Y080R090B08090ROP09080P09
-------
EIS/AS Test 6
Submit Annual Report in NEDS Format
i
In this test run, data from the EIS/AS master file can be submitted to
NEDS by generating NEDS area source transactions. The cataloged procedure
ECRPM10 is used to execute CRPASNA (EC0120), the annual report program.
CRPASNA (EC0120) generates the annual report from the EIS/AS master file.
This report consists of transactions which contain the information in the
master file that has been added, changed, or deleted since the last execution
of this program. These transactions can be generated in either the NEDS area
source transaction format or the EIS/AS internal transaction format.
The option card for CRPASNA (EC0120) provides the user with three options:
a transaction option, a warning option, and a list option. The transaction
option allows the user to choose which type of transactions are to be generated
(NEDS area source or EIS/AS internal transactions). By specifying NEDS in
columns 1 through 4 of the option card, the program will generate NEDS area
source transactions. In order to generate EIS/AS internal transactions, the
user must specify AREA in columns 1 through 4 of the option card. If this
field is left blank or if the option is specified incorrectly, program
execution will be terminated.
The warning option allows the user to suppress the printing of warning
messages. In order to suppress warning messages, the user must code NOFLAGW
in columns 6 through 12 of the option card. If this field is left blank or if
the option is specified incorrectly, the program will assume a default of
NOFLAGW. If the user does not want to suppress warning messages, he must
code FLAGW in columns 6 through 10 and leave columns 11 and 12 blank.
The list option allows the user to obtain listings of the input master
file, the output master file, and the generated transactions. These listings
are useful for confirming that the appropriate data has been submitted to NEDS
and for diagnosing potential errors. To obtain listings, the user must code
LIST in columns 14 through 17 of the option card and leave columns 18 and 19
blank. To suppress the listings, the user must code NOLIST in columns 14
101
-------
.through 19 of the option card. If this field is left blank or if the option
is specified incorrectly, the program will assume a default of NOLIST.
The output EIS/AS master file differs from the input master file in that
the status flags have been set to reflect the new submission status of all the
records. The output master file might contain fewer records than the input
master file since some records may have been deleted.
The output transaction file, whether it be NEDS or EIS/AS internal
transactions, contains only data which have been added, changed, or deleted
since the last execution of CRPASNA (EP0120). Add transactions are generated
when records have been added to the master file. Change transactions are
generated when a data field in an existing record has been added, changed, or
deleted. If a data field is to be deleted, the change transaction will
contain an asterisk in the first position of the corresponding transaction
field. Delete transactions are generated when an entire record has been
flagged for deletion in the master file.
The run stream for this test run contains the JCL needed for converting
data from the EIS/AS master file into NEDS area source transactions for
submission to NEDS. This run stream is shown in Figure AST6-1.
The cataloged procedure executed by this run stream is ECRPM10. By using
substitutable parameters, the input master file is specified as ECMSTR3
(created in Test 5), the output master file is named ECMSTR4, and the output
NEDS transaction file is named ECNEDS1. The user must supply the DD (data
definition) information for the option card file in the REPORT step. The
options specified in this test run are NEDS, FLAGW, and LIST. Notice that
when NEDS transactions are being generated the EIS/AS internal transaction
file ECSASTR must be a dummy file in the REPORT step. The sample output
produced by this run stream is shown in Figure AST6-2.
102
-------
X/*STtS106 JIB (ACCOUNTING INFO)
//»
//• SUBMI1 ANNUAL PEPUP1 in 'ItHS USING NFUS THANSACTIUMS
//«
//TfcST06» EXFC ECRPMIO,
//
//
//» GErJtPATE NFDS TWANSACTTliNS FPK ANNUAL
//*
//p£PuPi .trstSTK on
//OtD(l°l .Upl lU'JS DD
NEDS FLAP* LIST
Figure AST6-1. Run Stream
103
-------
ANNUAL REPORT PKUGWA* - DIAGNOSTIC HEPUKT PAGE.
oo
Cu
3
-a
—i
CD
O
c
r+
•a
c
PROGRAM NAME: CRPASNA (EC0120)
REVISION LtvEL: l-oo
LAST UPDAIL »: A-l
DATE INCORPORATED: FEBRUARY 1, 19SO
OPIIONS IN EFFECT: NEDS, FLAGn , LIST
INPUT E1S/AS MASTfch FILE COUNI: U^0
OUTPUT EIS/AS MASTER FILE CUUIJT : J71
RECORDS DELETED FkoM MASTER FILE: «9
NEDS TRANSACTIONS UENEHATEO: 88
ADD IRANSACTIOUS COUNT: B8
Zl CHANGE THANSACI10NS COUNT: 0
in DELETE TRANSACTIONS COUNT: 0
E NUMBER OF fcRROR MESSAGES: 0
n> NUMBER OF DARNING MESSAGES: o
NUMBER OF CONDITIONAL MESSAGES: 0
^ NUMBER OF ABORT MESSAGES: 0
—H Nu«BEH OF UISASltR MESSAGES: 0
I
ro
CU
(Q
ro
o
-h
-------
1NPIJ1 tIS/AS MAS1FK MLF
PAGE
Obl280
061280
061280
061280
061280
061280
061280
061280
(Q
C
ro
GO
-H
CTi
ro
1
0
o
•-' rt-
O _•.
01 3
c
n>
a.
CU
3
~^j
ro
rt-
"c ^-»
<-!• -o
CU
IQ
n>
o
"^
4^
061280
061 28,0
061280
061280
061280
061 280
061280
061280
061280
061280
061280
0612PO
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
061280
0612«0
Ob2236
Ob?23B
06?23tt
062238
062238
062238
147810
147840
1 47P40
147800
147800
147800
00000000000 OPOOb8S067cr,
oooooonooo20flooi360b7 N*
000000010010000734067C*KESTDFUT ANTHRACITE COAL
000000020010000bh'yOo7CARESH)ENT BITUMINOUS COAL
OOOOOOOiOOl000073«067C»RESIUFM DISTILLATt OIL
00000004f>0100006h9067C»RFSIUFNTJAL HFSTOMAL OIL
OOOOOOOS001000066VOt>7CAKESIUFNTI»L NATURAL GAS
000000060010000734067CAKFSTOFNT14L WOOD
0000000700100006ft90b7CACOMM-INSl
00000008001OOOOo*9067CACOMM-TNRT
OOOOOOOVOOl000073«Ob7CACOMM-tiM.si
OOOOOulOOOI00000^9067CACOHM-INS1
000000110010000b69067C*COMM-INST
0000001200100007S4067CACOMM-INST
00000013001000066VOb7CA INDUSTRY
ANTHRACITE
UIST1LLA1F.
RESIDUAL OIL
NA1UNAL GAS
AOOD
ANTHWAClTfc COAL
0000001 400100006iS90b7CAJNL)USTKY BITUM1NUUS COAL
0000001 bOO 100007340b7C« INDUSTRIAL CUKE
00000016001 QOOObftVObTC A INDUSTRIAL
000000170010000669067CAINOUSTK1AL
0000001«001000073«Ob7CAINDUSTRIAL
00000019001 OOOOb6VOb7CAINL>USTRlAL
000000200Q1 OOOObf>90b7CAINDUSTKIAL PROCESS GAS
000009990010000799 C&
000010000000000fl53067sr,79
00001001001 00004740t>7SArtESIDENT
0000100101 10000474067SOKESIDENT
00001001351 000034«067Sr>RESIDENT
0000100|9910000344067Sr>ffESIDFNT
000019990010000474 CA
0050000Q0000000453067SG
0050000101100003"«Ot,7SnRESIOENT
0050000l2210000i44067Sf>RESIDENT
OOS000017010000304067SOKESIOENT
005009990Q10000344 CA
006 11000000000 045J067SG 79
00611 OOe3510000409067!>DCOM"-INST BITUMINOUS COAL79*
006119990010000344 CA
79000040J2?
7VOOOO?0010
7V000009750
79000008900
79000023S50
790QOOOOOSO
COAL79000023500
CuAL7900003«7SO
OIL 79000043100
79000000390
79000008750
7900000000S
7V000098750
790Q0123400
79000009850
DIL7V000021SOO
RESIDUAL OIL
NATURAL RAS
COAL
COAL
COAL
COAL
COAL
COAL
COAL
ANTHRACITE
ANTHRACITE
ANTHRACITE
ANTHRACITE
ANTHRACITE
ANTHPACITt
ANTHPACITt
79000000«80
79000056900
7900000002S
79000002350
79000059850
79000059»50
7V000059850
79000059850
79000059850
79000059850
79000059850
Y080R090HOB09U80809080809
YOROR090808090HOR09080809
YuBOB090fl08090808090B0809
Y080809u80809080809080809
Y080809Q80809080809080809
Y080R090B0809080809080P09
Y080809080809080B09Q80809
Y080809080809080809080809
V080809080809080809080809
Y0808090808090808Q9080809
YOBO809080809080809080809
YOBOB090B0809080P09080809
Y080809080809080809080809
Y080R090808090808090808Q9
Y080B090BOB090B08.09080B09
Y0808090808090BOB09080809
Y080809080B09080809080809
Y0808090ROR090R0809080809
Y0808090B0809080R090ROP09
Y080809080809080809080809
Y080809080609080809080809
Y080809080809080809080809
Y080809080809080809080809
Y080809080809080809080809
Y0808090R08090808090808Q9
999990019V10000344067SOKESIOENT ANTHRACITE COAL 79000059850
999999°90010000344 CA
OOOOOOOQ000000045i067CG79
000000000020000136067 NARt» SOURCE 1FST - SU"t, BUT NOT ALL VALUFb OR CATEGORIES
0000002300100u06h9067CACOMM-INS1 ON-SITE INC INER79000002350
YOROR09080PO°080809080809
00000017001OOOOb040b7CACIVTL AIRCRAFT LTO"!5 79000005005
0000006000I0000669067CAFOKEST HJLO FIRES 79 0000900
00000909001000066V CA
OOOOOOOOOOn000056b074CGe00040134?l3Sfc'ITH COUNTY INDUSTRY
OOOOOOOOOOPOOOOJ3b074 NwObASH
0000000] 001 OOOObOU')7'JCAHESIUFNT ANTHRACITE COAL 000000001
000u0002001OOOOb04074CAHESIOENT PITU"INOUS C^AL 000000101
0000000J001OOuOb04074C»KESTDENT DISlILLATt OIL 000000137
0000000500 1 OOOOfeOuO 74L AKFSIOFlvT I A|_ NAIUKAL GAS 000000^4?
Y0808090P0809080809080fl09
Y08Q809080809080809080809
Y080809080809080809080809
1120788223
-------
UU1PUT FJS/Ab MASTf FILE
PAGF
0612*0
061280
061280
061280
061280
0612RO
0612*0
061260
.
CT} 3
C
ro
Q.
CU
3
•a
ro
o
*+
C ' — •
r+ ~D
(S
ro
co
o
"**
Ob 1 280
061 280
0612RO
Ofal2«0
0612*0
061260
061280
0612RO
0612RO
0612*0
061280
061280
061260
0612PO
061260
061280
061260
0612RO
0612RO
06)280
0612RO
0612*0
Ob12RO
061260
061280
061 2Ro
061280
062238
06P236
062236
062238
062238
06?23tt
1 *l7600
1U7810
OOOU100J001000073t067C*KFSIOENT ANTHRACITt COAL
OOOU0002001000066V067CAHFSIDFNT BlTuMJNUUS COAL
OOOuOOOJOOl 0000/39067CACOM"-INRT ANTHHACITF
0000000800100006*i90b7CACOc«-lNST BITUMINOUS
00000009001000073«067CACOMM-INST iMSTILLATE
000000100010000bf.9067CACOKM-)NST RFSIO'JAL OIL
000000110010000669067CACOM"-INST NATUrtAL GAS
00000012001 00007390b7C*INDIIbTHY BITUMINOUS
000000150010000731067CA1NDUSTKTAL
0000001600100006h9067CA INDUSTRIAL
ooooooi7001oooo6690b7c* INDUSTRIAL
0000001»001000073<4067CAINDUSTRIAL NATURAL GAS
0000001900100006*>9067CAINDUSTrtI AL *«UOO
00000020001000066V067CAINUUSTRIAL PROCESS GAS
000009990010000799 CA
000010 000 00000 OU53067Sr,79
0000100inOIOOOO<47«067SAkF.S!OFNT ANTHRACITE
00001 001 011000047K067SOKFSTDENT Af»TnRACITE
0000100135100003««067SDWESIUENT ANTHRACITE
0000100J99100003««067SP«ESIOENT ANTHRACITE
000019990010000«7q CA
oo5oooooooooooo«53067sr;
0050000101 100003'»'40b7SDKF.SIDENT ANTHRACITE
oo5ooooi22ioooo3a«067snKFsiOFNT ANTHRACITE
00500001701 OOOOJua067Sn«F.SIDENT ANThRACITt
OOS00999001000030q CA
0061 1 0000000000*453067 Sf, 79
0061 199900100003a«l CA
7900000012^
7900002001 0
7VOOOOOv7iO
7900000»QOO
79000023S50
79000000050
CUAL79000023SOO
OR
COAL
COAL
DISTILLATE UIL79000021SOO
RESIDUAL UIL 79000000980
79000056900
7900000002S
7900000a350
79000012100
79000000390
790000087SO
7900000000S
79000098750
7900012.SUOO
COAL
COAL
COAL
COAL
COAL
COAL
COAL
79000059850
79000059850
79000059850
79000059«50
790000S9R50
79000059^50
79000059R5"
YOR0809080R090608090*0«09
Y0808090*08090*0809080809
YOR0809080609080809080809
Y080809080*09080809080ROO
Y080809080809p*0809080«09
YOR0809080R090ROR090*0*09
Y0808090R0809080809080*09
Y080P09080*090*ORo90ROR09
YO*08090R08090*0809080R09
Yu80R09080*090808090ROR09
Y0808Q90808090*0809080809
Y0808090808090*0809080809
YOR08090808090ROR090*0809
YOR0809080R090ROR090ROR09
YOROR09080809080809080809
Y080809080809060809080809
Y080R090R08090R0809080809
Y080R090RO*09080809080*09
Y080809080809080B09080B09
Y080809080R09080R09080809
Y080809080R090808090BOR09
Y060809080*09080809080809
Y080RO°OROR09080B090BOR09
ov99900199100003'4U067snHFSlDENT ANTHRACITE COAL 79000059*50
99999909noiOOo03a*( CA
000000000000000«5iOe7CG79
OOOOOOOOOOP0000136067 MA"EA SUIIhCE TFST - SUMt, BUT NUT ALL VAIUFS UR CATEGORIES
000000?300100006h90b7CACOMM.i^ST UN-SITE INCINFK790000023SO
YOROR09060R090flOS090RORO°
000()00«/001000060i*Ob7CACIVIL AIRCRAFT LTO"S 79000005005
000000600010000669067CAFOHEST WHO FIRES 79 0000900
0000099900100006*9 C»
OOOOOoOOOOOOOOObfeb07ULR80uOa013a?l3SMITH COUNTY INDUSTRY
00000000002000013607« NrvAHASH
00000001001000060I4070LAKESIDFNT ANTHRACITE COAL
0000000200)OOOObO«070CAKF.SIUENT B1TUM1NU!!S COAL
00000003001 000060«07UCAHFSIOENT niSULLATE UIL
OOOQOOOS001 OOQ060i(07aCAKFSIDFNTlAL NATIIKAL GAS
OOOOOQOHP01OOOObO«07«CACOMM-INSl BITUMINOUS CUAL
Y080R090808090R08090R0809
Y0808090POR090'?OR090R0809
YOROR090608090R08090ROR09
1120788223
00000009001000060n07«CACOM"-INST DIST1LLATF OR
000000001
000000101
000000137
oooooooa?
000000003
000000023
-------
IRANSACTIDNS
PAGE
061280067 001230200100975UH900235500050AA1
06I2«o0b72350o3o7500?10ooo390875oo509fl750 i? 30 oov«502l 500 oo9so5f>v 000252350 A A;;
(O
-5
fD
00
—I
CTi
ro
i
o
o
I-1 <-*•
o -•.
*«J 3
c
ro
Q.
GO
OJ
T3
ro
o
c
ft-
T3
C
c-t-
0>
(O
fD
-pi
O
0612«00b77°01
0612800677902
0612800677903
06l2«00b77900
0612*00677905
0612800677906
0612«00b77907
0612800677908
0612800677909
Obl2800b7791 I
0613800077913
Ofal2800b77915
ObI2«0067791iS
0613100677917
0612800677918
0612800677919
0612800677920
MASTtR FJLt TFST DATA
MASTER FILE TEST DATA
MASTtR FILt JEST DATA
MASTtP FRt TEST DATA
MASTER FILE TFi>T PATA
MASTER FILt TEST DATA
«*ST£R FILt TEST DATA
MASTER FILt TEST DATA
MASTER FILt TEST DATA
KASTt" FILt IEST DATA
MASTtP FiLE TEbT DATA
MASTER FILE TFST OATA
MASTER FILE TEST f>ATA
MASTER FILE TEST DATA
MASTER FILE TEST OATA
MASTER FILE TEST OATA
MASTER FILE TEST OATA
MASTER FILt TEST DATA
MASTER FILE TFST DATA
MASTER FILE TEST DATA
0622380677911 11 1 333330 0<|0<|000022?2$32211 00555666
06223806779H1113333300«000000222233221100555666
062238067 2350 0009876 950005
062238067 005005
0622380b7 900
062238067AREA SOURCE TEST - SO*E, BUT NOT ALL VALUES OR CATEGORIES
0622380677923 MASTER FILE TEST DATA
0622380677907 MASTER FILE TEST DATA
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
A»7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA7
AA]
AA1
AA3
0097500005032100009875012AAO
AA5
AA6
AA7
AA7
A*7
0622380677960 MASTER FILE TEST DATA
10780007080001970003001000015000550638031 10930930000100010100137
107800070 0000300023000310012 000037 000110003000007 AA2
107800070000907 0005671OOOBl00006520008260000100121MA3
107800070 000365 026700052500089 003096 OOOb303AAO
1078000700000005 0000870009900220 012 00052AA5
107800070 0100030000Q2000015000025000000000A7 EMISSION RECORDED A»7
107800070 03000020000080000620000000000092ESTIMATES USED FOR A7-EMISSIONb AA7
107800070 090003000002000015000025000000000A7 EMISSION R£CO»DFO AA7
107860070800012S013700I20305900119063B031 10930930000100008100183 00096 AAl
107660070 0000000030000050025 000281 000620017000023 AA2
107860070001067 0012300001«500011So02010000003003100AA3
107860070 000767 00b6000567002070«]9000580100001080001578AAO
1078600700000Q30 0001b7002fl!>00609 012 00080AA5
107860070WAKREN AAb
107860070 10Q003000002100015102025000120000A7 EM1SSIO" RECORDED AA7
107*60070 03o000120000S00003700000yOOOOOS5tSTlMAfFS USED FUR A7-LMJSSIONS AA7
107B60070 .600003000002100015102025000120000A7 E^ISSIU^ RECORDED AA7
31001501179 AM
020680198B00130006000900200002290Q01020306125105 oOOOOSo0099 OOP13U08°AA1
0206R0198 00011 0001 00006 00001 AA2
-------
EIS/AS Test 7
Retrieve a Standard Answer File Using the COBOL Language and Produce a
Detailed Report of the Answer File
In this test run9 a standard answer file is retrieved from the EIS/AS
master file using the cataloged procedure ECRTM30. This procedure executes
CRTLNGP (EC0090), the retrieval language processor program; the COBOL
compiler; the linkage editor; and the generated retrieval program, CRTGENR
(EC0100). A detailed report of the answer file is produced by using the
cataloged procedure ECRPM20 which executes CRPMSTR (EC0130), the master file
detailed report program.
CRTLNGP (EC0090) is the first of two EIS/AS programs used to retrieve
data from the EIS/AS master file. The second program is CRTGENR (EC0100), the
program generated by CRTLNGP (EC0090).
CRTLNGP (EC0090) uses the retrieval skeleton program CRTSKEL, which is
stored in a cataloged source library, and the user-supplied retrieval
specification cards to build CRTGENR (EC0100), which is referred to as the
generated retrieval program.
The retrieval specification cards consist of retrieval control cards and
retrieval request cards. The control cards indicate the beginning and end of
the retrieval specifications: a $$SELECT card indicates the beginning of the
retrieval specifications and a $$END card indicates the end of the retrieval
specifications. Retrieval request cards follow the $$SELECT card and can be
written in either the EIS/AS retrieval language or in COBOL. These cards
precisely identify the data to be retrieved from the master file. When the
EIS/AS retrieval language is used, up to 10 retrievals can be batched in one
run, by preceding each retrieval by a $$SELECT card and entering a $$END card
after the last retrieval.
The options allowed for CRTLNGP (EC0090) are entered on the first
$$SELECT retrieval control card. The options specify whether the requests are
written in the EIS/AS retrieval language or in COBOL, and whether or not
description, category, or comment records are to be retrieved. The format of
108
-------
the retrieval control cards is illustrated in Figure AST7-1 and the
definitions of the EIS/AS retrieval control card fields are provided in Figure
AST7-2.
When the EIS/AS retrieval language is used, the user is allowed to select
records from the EIS/AS master file based upon the value of specific fields in
the master file records. The data names which can be used for these EIS/AS
retrieval language requests are listed in Figure AST7-3. The EIS/AS retrieval
language specifications are written in the format described in Figure AST7-4
and Figure AST7-5 provides definitions of the EIS/AS retrieval language
specification fields. The EIS/AS retrieval specification load sheets are
provided in Figure AST7-6.
If the COBOL language is used, the retrieval request cards are prepared
according to COBOL rules for syntax and punctuation. Any retrieval that can
be run using the EIS/AS retrieval language can also be run by specifying USER
as the language keyword (see Figure AST7-1) and using the COBOL language, but,
nothing is gained in these retrievals by using COBOL when the EIS/AS retrieval
language can be used. There are some retrievals which cannot be accomplished
using the EIS/AS retrieval language. This is when COBOL retrievals become
very beneficial. In addition to this test, Test 16 also demonstrates the use
of COBOL retrievals.
CRTGENR (EC0100) is produced based on the retrieval specifications
entered into CRTLNGP (EC0090). This generated retrieval program must be
compiled and link edited before it is executed. When it is executed, it reads
the EIS/AS master file and selects those records which satisfy the retrieval
specifications that were entered into CRTLNGP (EC0090). The selected records
are written to an output file which is referred to as an EIS/AS answer file.
This file is only a subset of the master file; any changes made to the answer
file during the retrieval process are not reflected in the master file. The
answer file has the same format as the EIS/AS master file and may be used as
input to any EIS/AS program which uses the master file as input.
This test demonstrates how the user can resubmit data from the EIS/AS
master file to NEDS even though the flags in the master file indicate that the
data has already been sent to NEDS. The status flags in the answer file
109
-------
produced by this retrieval have been set to A to indicate that the data has
not been sent-to NEDS. Now, the answer file can be input to CRPASNA (EC0120)
and the annual report can be submitted again (see Test 8).
CRPMSTR (EC0130) produces a detailed report of the EIS/AS master file.
Each field in each master file record appears under an identifying heading.
This report may be used as a management report or in verifying data in the
master file.
The maximum number of lines per printed page can be specified by the user
in card columns one and two of the option card. This option can reduce the
amount of paper used by those users who have standard 11 x 14 inch output
forms and the ability to print eight lines per inch. If no option card is
given or the line specification on the option card is not between 20 and 85 a
default of 60 lines is used.
The run stream for this test run contains the JCL necessary for
retrieving a standard answer file from an EIS/AS master file. This run
stream is shown in Figure AST7-7 and the sample output produced by this run
stream is shown in Figure AST7-8.
The first cataloged procedure executed by this run stream is ECRTM30.
Through the use of substitutable parameters, the input master file is
specified as ECMSTR4 (created in Test 6) and the output answer file is named
ECMSTR5. Also, note that the output answer file will be cataloged. The user
must supply the appropriate DD (data definition) information for the input
retrieval specification card file in the GENER step. In this test run, the
input retrieval specification cards are used to produce a standard answer file
in which all the status flags are A (add).
The next cataloged procedure executed by this run stream is ECRPM20. A
substitutable parameter is used to specify ECMSTR5 as the input master file.
The user must supply the DD information for the option card file in the LIST
step. No option card is provided in this run stream, therefore the default
option is in effect.
110
-------
Record Position Field Length Description
1-8 8 Card Type
9 1 Unused
10-13 4 Language Keyword
14 1 Unused
15 1 Description Selection Field
16 1 Unused
17 1 Category Selection Field
18 1 Unused
19 1 Comment Selection Field
20 - 80 61 Unused
Figure AST7-1. EIS/AS Retrieval Control Card
111
-------
Card Type: Identifies the type of control card.
Valid Codes: $$SELECT - Specifies the beginning of a retrieval request.
$$END - Specifies the end of a retrieval request and must
appear alone on the card.
Field Length: 8 characters
Language Keyword: Identifies the type of retrieval language to be used.
Valid Codes: USER - Retrieval specifications will be COBOL language
statements.
blank - Retrieval specifications will be EIS/AS retrieval
language statements.
Field Length: 4 characters
Description Selection Field: Indicates whether or not description records are
to be retrieved.
Valid Codes: 0 - Select description records.
blank - Do not select description records.
0 is the default value used when all three selection fields
are blank.
Field Length: 1 character
Category Selection Field: Indicates whether or not category records are to be
retrieved.
Valid Codes: 1 - Select category records.
blank - Do not select category records.
1 is the default value used when all three selection fields
are blank.
Field Length: 1 character
(Page 1 of 2)
Figure AST7-2. Definition of EIS/AS Retrieval Control Card Fields
112
-------
Comment Record Field: Indicates whether or not comment records are to be
retrieved.
Valid Codes: 2 - Select comment records.
blank - Do not select comment records.
Blank is the default value used when all three selection
fields are blank.
Field Length: 1 character
(Page 2 of 2)
Figure AST7-2 - continued. Definition of EIS/AS Retrieval Control Card Fields
113
-------
Valid Data Names for Retrieval - All Records
The following data names can be referenced in either EIS/AS retrieval
language specifications or COBOL language specifications:
Data Name Field Length
AQCR 3
CATEGORY-DISAGGREG-NBR ' 2
CATEGORY-NUMBER 3
COUNTY 4
GEOG-SUBALLOCATION-NBR 5
LINE-NUMBER 3
RECORD-TYPE 2
RECORD-TYPE-KEY 1
STATE 2
(Page 1 of 8)
Figure AST7-3. Valid Retrieval Data Names
114
-------
Valid Data Names for Retrieval - Description Record
The following data names from the description record can be referenced in
either EIS/AS retrieval language specifications or COBOL language
specifications:
Data Name
Field Length
Data Name
Field Length
AIR-BASIN
ASH-ANTHRACITE-COAL
ASH-BITUMINOUS-COAL
ASSOC-PLANT-ID
DAY-CODE
DEFINED-AREA-CODE
HEAVY-DUTY-DIESEL
HEAVY-DUTY-VEHICLE
LENGTH-AREA
LENGTH-AREA-UNITS-CODE
LIGHT-DUTY-VEHICLE
LIMITED-ACCESS
MAJOR-ACTIVITY
POPULATION
POPULATION-CODE
PROJECTED-YEAR
RURAL
RURAL-POPULATION-PERCENT
SIP-BASE-YEAR
3
3
3
4
3
3
6
6
7
2
6
6
20
8
1
2
6
2
2
SIP-ESTIMATE-CO 5
SIP-ESTIMATE-HC 5
SIP-ESTIMATE-NOX 4
SIP-ESTIMATE-S02 4
SIP-ESTIMATE-TSP 5
SMSA 4
SOURCE-TYPE 1
SUBALLOC-TECH-CODE 2
SUBURBAN 6
SULFUR-ANTHRACITE-COAL 2
SULFUR-BITUMINOUS-COAL 2
SULFUR-DISTILLATE-OIL 2
SULFUR-RESIDUAL-OIL 2
URBAN 7
UTM-HORIZONTAL-1 4
UTM-HORIZONTAL-2 4
UTM-HORIZONTAL-3 4
UTM-HORIZONTAL-4 4
UTM-HORIZONTAL-5 4
UTM-HORIZONTAL-6 4
Figure AST7-3 - continued.
(Page 2 of 8)
Valid Retrieval Data Names
115
-------
Valid Data Names for Retrieval - Description Record (continued)
Data Name
UTM-VERTICAL-1
UTM-VERTICAL-2
UTM-VERTICAL-3
UTM-VERTICAL-4
UTM-VERTICAL-5
UTM-VERTICAL-6
Field Length
5
5
5
5
5
5
Data Name
UTM-ZONE-1
UTM-ZONE-2
UTM-ZONE-3
UTM-ZONE-4
UTM-ZONE-5
UTM-ZONE-6
YEAR
Field Length
2
2
2
2
2
2
2
The following names can only be referenced in COBOL language
specifications:
AQCR-NAME
AREA-NAME
EIS-FLAG-CARD-0-1
EIS-FLAG-CARD-0-2
EIS-FLAG-CARD-0-3
EIS-FLAG-CARD-0-4
EIS-FLAG-CARD-0-5
EIS-FLAG-CARD-0-6
NEDS-A1-FLAG
NEDS-A3-FLAG
NEDS-A4-FLAG
SUBALLOC-TECH-DESC
(Page 3 of 8)
Figure AST7-3 - continued. Valid Retrieval Data Names
116
-------
Valid Data Names for Retrieval - Description Record Repeating Names
The following data names from the repeating section of the description
record can be referenced in either EIS/AS retrieval language specifications or
COBOL language specifications:
Data Name Field Length
AQMA-NUMBER 6
ATTAINMENT-STATUS 1
DESC-POLLUTANT-ID 5
The following data names can only be referenced in COBOL language
specifications:
DESC-POLLUTANT-NAME
EIS-FLAG-CARD-0-7
(Page 4 of 8)
Figure AST7-3 - continued. Valid Retrieval Data Names
117
-------
Valid Data Names for Retrieval - Category Record
The following data names from the category record can be referenced in
either EIS/AS retrieval language specifications or COBOL language
specifications:
Data Name
APRIL-THRUPUT
ASH-PERCENTAGE
AUGUST-THRUPUT
CATEGORY-ADJUST
DATA-CONFIDENCE-RATING
DAYS-PER-WEEK
DECEMBER-THRUPUT
FEBRUARY-THRUPUT
HEAT-CONTENT
HOUR-0-THRUPUT
HOUR-1-THRUPUT
HOUR-2-THRUPUT
HOUR-3-THRUPUT
HOUR-4-THRUPUT
HOUR-5-THRUPUT
HOUR-6-THRUPUT
HOUR-7-THRUPUT
HOUR-8-THRUPUT
HOUR-9-THRUPUT
HOUR-10-THRUPUT
Field Length
2
3
2
7
1
1
2
2
4
2
2
2
2
2
2
2
2
2
2
2
Data Name
HOUR-11-THRUPUT
HOUR-12-THRUPUT
HOUR-13-THRUPUT
HOUR-14-THRUPUT
HOUR-15-THRUPUT
HOUR-16-THRUPUT
HOUR-17-THRUPUT
HOUR-18-THRUPUT
HOUR-19-THRUPUT
HOUR-20-THRUPUT
HOUR-21-THRUPUT
HOUR-22-THRUPUT
HOUR-23-THRUPUT
HOURS-PER-DAY
INFORMATION-SOURCE-CODE
JANUARY-THRUPUT
JULY-THRUPUT
JUNE-THRUPUT
MARCH-THRUPUT
Field Length
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
2
2
2
2
(Page 5 of 8)
Figure AST7-3 - continued. Valid Retrieval Data Names
118
-------
Valid Data Names for Retrieval - Category Record (continued)
Data Name
MAX-HRLY-THRUPUT
MAY-THRUPUT
NITROGEN-PERCENTAGE
NOVEMBER-THRUPUT
OCTOBER-THRUPUT
PROCESS-RATE
SEPTEMBER-THRUPUT
Field Length
10
2
3
2
2
9
2
Data Name
SULFUR-PERCENTAGE
THRUPUT-RATIO
UNIFORM-HOURLY-THRUPUT
UNIFORM-THRUPUT
UNITS-CODE
WEEKS-PER-YEAR
YEAR-OF-INFORMATION
Field Length
2
4
1
1
2
2
2
The following data names can only be referenced in COBOL language
specifications:
CATEGORY-DESC
EIS-FLAG-CARD-1-1
EIS-FLAG-CARD-1-2
EIS-FLAG-CARD-1-3
EIS-FLAG-CARD-1-4
INFORMATION-SOURCE-NARRATIVE
NEDS-A7-COMMENT
NEDS-A7-FLAG
NEDS-FLAG
UNITS-CODE-DESCRIPTION
Figure AST7-3 - continued.
119
(Page 6 of 8)
Valid Retrieval Data Names
-------
Valid Data Names for Retrieval - Category Record Repeating Names
The following data names from the repeating section of the category
record can be referenced in either EIS/AS retrieval language specifications
or COBOL language specifications:
Data Name Field Length
CAT-POLLUTANT-ID 5
CONFIDENCE-RATING 1
EMF-CONFIDENCE-RATING 1
EMF-ORIGIN 1
EMF-SOURCE-CODE 1
EMISSIONS-ESTIMATE 7
EMISSION-FACTOR 10
MAXIMUM-HOURLY-EMISSION 6
NEDS-A7-EMISSION 7
POLLUTANT-SPECIFIC-DATA 10
The following data names can only be referenced in COBOL language
specifications:
CAT-POLLUTANT-NAME
EIS-FLAG-CARD-1-5
(Page 7 of 8)
Figure AST7-3 - continued. Valid Retrieval Data Names
120
-------
Valid Data Names for Retrieval - Comment Record
The following data names from the comment record can be referenced only
in COBOL language specifications:
Data Name Data Name
EIS-FLAG-CARD-2-1 NEDS-COMMENT
EIS-FLAG-CARD-2-2 RIGHT-COMMENT
LEFT-COMMENT TOTAL-COMMENT
NEDS-A6-FLAG
(Page 8 of 8)
Figure AST7-3 - continued. Valid Retrieval Data Names
121
-------
Record Position Field Length Description
1-31 31 Subject Name
32 1 Unused
33 1 Negation Flag
34 1 Unused
35 1 Relational Operator
36 1 Unused
37 - 67 31 Object Name
68 1 Unused
69-71 3 Boolean Operator
72-80 9 Unused
Figure AST7-4. EIS/AS Retrieval Language Specification Fields
122
-------
Subject Name: Specifies the name of the field in the EIS/AS master file
record to be compared with the literal or the master file field name
specified by the object name.
Valid Codes: Only those fields listed in Figure AST7-3 can be used.
The spelling, including hyphens, must match exactly.
Field Length: 31 characters
Negation Flag: Indicates whether the Boolean NOT condition is in effect.
Valid Codes: N - Boolean NOT is in effect..
blank - Boolean NOT is not in effect.
Field Length: 1 character
Relational Operator: Indicates the relationship to be tested between the
subject name and the object name.
Valid Codes: = equal
< less than
> greater than
Field Length: 1 character
Object Name: A literal to be compared against the master file field specified
by the subject name, or the name of a master file field to be
compared against the master file field specified by the subject
name (e.g., subject name = object name).
Valid Codes: If a literal is used, it must be enclosed in quotes.
The length of the literal must be exactly the same as the
field length of the data name being compared (see Figure
AST7-3). If the name of a field from the master file is
used, it must match exactly one of the names listed in
Figure AST7-3. However, it must not be enclosed in
quotes.
(Page 1 of 2)
Figure AST7-5. Definitions of EIS/AS Retrieval Language
Specification Fields
123
-------
Field Length: 31 characters
Boolean Operator: Identifies the type of connector used between the relation-
ships specified on two succeeding control cards.
Valid Codes: AND - Indicates that both relationships must be true in
order for the entire relationship to be true.
OR - Indicates that if either relationship is true, the
entire relationship is true.
blank - Indicates that there is no connector, and there-
fore, that there is no further specification.
Field Length: 3 characters
(Page 2 of 2)
Figure AST7-5 - continued. Definitions of EIS/AS Retrieval Language
Specification Fields
124
-------
;
s
(Page 1 of 2)
Figure AST7-6. Retrieval Specification Load Sheets
125
OFNP.Y
EE BACK OF FORM FOR VALID COOES
D
USER |
KEYWORD C
1 8 10 '3 15
SiSiSiEiLiElCiT 1 l l
EMISSIONS INVENTORY SYSTCM/AR
COMPREHENSIVE DATA HANDLIN
RETRIEVAL SPECIFICA
C
C 0
A M
T M
17 19
SUBJECT NAME
i
i i t i i l l i i i l i l i i i i t
i i i i l l l i i i i i i i i l i i
i i i i 1 l l 1 i l l i i i i i t
i i i i i i i i i i i i l i i i i i
i l i i ii l i i i i i i ii
i i i i ii l i i i l i i i i i
i i 1 i i i i i i i i i i i i i i i
i i i i i i i i i i i i i i i i i i
i i i i i i i i i i i i i i i ii
i i i i i i i i i i i i i i i ii
i i i i i i t i i i i i i i i i i i
i i i i i i i i i i i i t i t i i i
i i i i i i i i i i i i i i i i i i
i i i i i t i i l i i i i i i i i
i i i i ii i i i i i i i i i i
1 5
S IS 1 E i N 1 D
31
1 1 1 1 1 1 1 1 1 t 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 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 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1
1 t 1 1 1 1 1 1 1 1 1 1
1 t 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 I 1 t 1
1 1 t 1 t 1 1 1 1 1 1 t
1 I 1 1 1 I 1 1 1 I 1 1
t I 1 I 1 1 1 1 1 1 1 t
1 1 1 1 1 1 I 1 1 1 1 I
1 1 1 1 1 1 1 1 1 1 1 1
N
F
33
R
0
35
—
FASQURCF (PIS/AS) BY
r, SVSTFM (pnH<;) DATE
TIONS PARF... of
OBJECT NAME (LITERALS MUST BE ENCLOSED IN SINGLE QUOTES)
37 67
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 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 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 t 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 1 1 1 1 1
t i i t t i i l i i i i i i i i i l i i i i i i ; t i i l i
l l i l l l l l l l l i l l 1 l l l l l 1 1 l 1 1 l t l i i
i i t i i i i i i i i i i i i i i t i i i i i t i i i i i i
i i i i i i i i i i i i i i i i i t i i i i i i i i i i i i
i i i i i i i ) i i i i i i i i i t i i i i i i i i i i i i
i i i i i i i i i t i i i i i i i l i i i i i i i i i i i i
i i i i i i i i i i i i i i i i i i i i i t i i i i i i i i
i i i l i 1 1 1 l 1 i i i i i i i i i i i 1 i 1 l l 1 1 l l
1 T 1 1 1 1 1 ! 1 1 1 1 1 [ 1 \ 1 l 1 1 1 1 1 1 1 t 1 1 t 1
l i l l i l l l l t l i l 1 l l t 1 l l l i i l l l i l i i
i i t i i i i i i i i i t i i i i i i i i i t i i i i i i i
BO
69 71
1 1
1 1
1 1
1 t
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
-------
EMISSIONS INVENTORY SYSTEM / AREA SOURCE (EIS/AS)
RETRIEVAL SPECIFICATIONS
PAGE 2
VALID VALUES FOR
NEGATION FLAG (NF):
BLANK. N
RELATIONAL OPERATOR (RO):
=EQUAL
>GREATER THAN
•CLESSTHAN
BOOLEAN OPERATOR (BO):
AND, OR, BLANK
TYPE: N = NUMERIC
A = ALPHANUMERIC
DATA NAMES VALID FOR ALL RECORDS
NAME ILENGTH
AQCR
CATEGORY-DISAGGREG-
NBR
CATEGORY-NUMBER
COUNTY
GEOG-SUBALLOCATION-
NBR
LINE-NUMBER
RECORD-TYPE
RECORD-TYPE-KEY
STATE
3
2
3
4
5
3
2
1
2
TYPE
N
N
N
N
N
N
A
A
N
CATEGORY REPEATING DATA NAMES
NAME ILENGTH
CAT-POLLUTANT-ID
CONFIDENCE-RATING
EMF-CONFIDENCE-RATING
EMF-ORIGIN
EMF-SOURCE-CODE
EMISSIONS-ESTIMATE
EMISSION-FACTOR
MAXIMUM-HOURLY- SS
EMISSION
NEDS-A7-EMISSION
POLLUTANT-SPECIFIC
DATA
5
1
1
1
1
7
10(3)
6
7
10
TYPE
N
N
N
A
A
N
N
N
N-
A
DESCRIPTION REPEATING DATA NAMES
NAME (LENGTH
AQMA-NUMBER
ATTAINMENT-STATUS
DESC-POLLUTANT-ID
6
1
5
TYPE
A
A
N
CATEGORY RECORD DATA NAMES
NAME • ILENGTH
APRIL-THRUPUT
ASH-PERCENTAGE
AUGUST-THRUPUT
CATEGORY-ADJUST
DATA-CONFIDENCE-
RATING
DAYS-PER-WEEK
DECEMBER-THRUPUT
FEBRUARY-THRUPUT
HEAT-CONTENT
HOUR-O-THRUPUT
HOUR-1-THRUPUT
HOUR-2-THRUPUT
HOUR-3-THRUPUT
HOUR-4-THRUPUT
HOUR-5-THRUPUT
HOUR-6-THRUPUT
HOUR-7-THRUPUT
HOUR-8-THRUPUT
HOUR-9-THRUPUT
HOUR-10-THRUPUT
HOUR-11-THRUPUT
HOUR-12-THRUPUT
HOUR-13-THRUPUT
HOUR-14-THRUPUT
HOUR-15-THRUPUT
HOUR-16-THRUPUT
HOUR-17-THRUPUT
HOUR-18-THRUPUT
HOUR-19-THRUPUT
HOUR-20-THRUPUT
HOUR-21-THRUPUT
HOUR-22-THRUPUT
HOUR-23-THRUPUT
HOURS-PER-DAY
INFORMATION-SOURCE-
CODE
JANUARY-THRUPUT
JULY-THRUPUT
JUNE-THRUPUT
MARCH-THRUPUT
MAX-HRLY-THRUPUT
MAY-THRUPUT
NITROGEN-PERCENTAGE
NOVEMBER-THRUPUT
OCTOBER-THRUPUT
PROCESS-RATE
SEPTEMBER-THRUPUT
SULFUR-PERCENTAGE
THRUPUT-RATIO
UNIFORM-HOURLY-
THRUPUT
UNIFORM-THRUPUT
UNITS-CODE
WEEK-PER-YEAR
YEAR-OF-INFORMATION
2
3(1)
2
7
1
1
2
2
4
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
2
2
2
2
10
2
3(3)
2
2
g
2
2(1)
4(1)
1
1
2
2
2
TYPE
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
A
N
N
N
N
A
N
N
N
N
N
N
N
N
A
A
N
N
N
DESCRIPTION RECORD DATA NAMES
NAME ILENGTH
AIR-BASIN
ASH-ANTHRACITE-COAL
ASH-BITUMINOUS-COAL
ASSOC-PLANT-ID
DAY-CODE
DEFINED-AREA-CODE
HEAVY-DUTY-DIESEL
HEAVY-DUTY-VEHICLE
LENGTH-AREA
LENGTH-AREA-UNITS-CODE
LIGHT-DUTY-VEHICLE
LIMITED-ACCESS
MAJOR-ACTIVITY
POPULATION
POPULATION-CODE
PROJECTED-YEAR
RURAL
RURAL-POPULATION-
PERCENT
SIP-BASE-YEAR
SIP-ESTIMATE-CO
SIP-ESTIMATE-HC
SIP-ESTIMATE-NOX
SIP-ESTIMATE-SO2
SIP-ESTIMATE-TSP
SMSA
SOURCE-TYPE
SUBALLOC-TECH-CODE
SUBURBAN
SULFUR-ANTHRACITE-
COAL
SULFUR-BITUMINOUS-
COAL
SULFUR-DISTILLATE-OIL
SULFUR-RESIDUAL-OIL
URBAN
UTM-HORIZONTAL-1
UTM-HORIZONTAL-2
UTM-HORIZONTAL-3
UTM-HORIZONTAL-4
UTM-HORIZONTAL-5
UTM-HORIZONTAL-6
UTM-VERTICAL-1
UTM-VERTICAL-2
UTM-VERTICAL-3
UTM-VERTICAL-4
UTM-VERTICAL-5
UTM-VERTICAL-6
UTM-ZONE-1
UTM-ZONE-2
UTM-ZONE-3
UTM-ZONE-4
UTM-ZONE-5
UTM-ZONE-6
YEAR
3
3(1)
3(1)
4
3
3
6
6
7(2)
2
7
6
20
8
1
2
6
2
2
5
5
4
4
5
4
1
2
6
2(1)
2(1)
2(1)
2(1)
7
4(1)
4(1)
4(1)
4(1)
4(1)
4(1)
5(1)
5(1)
5(1)
5(1)
5(1)
5(1)
2
2
2
2
2
2
2 .
TYPE
N
N
N
N
N
N
N
N
N
A
N
N
A
N
A
N
N
N
N
N
N
N
N
N
A
A
A
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
N
JUMBERS IN PARENTHESES INDICATE ASSUMED DECIMAL POSITIONS
Figure AST7-6 - continued.
(Page 2 of 2)
Retrieval Specification Load Sheets
126
-------
//ASTES107 JOB rACcnuMTNG INFO)
//*
//* RETRIEVE A STAMDAKO ANSHEH FTLF FKOK THE MASTER FILE
//• AND PHOOUCF A DETAILED REPORT ne THE A*s*ti> FIIE
//*
//TES107A FXEC ECKTKTO,
// OlSPs'Ntfc ,CATLr,,rtl ETE' ,
//*
//* RETRIEVE kFCCIknS FFCP THF OUTPUT KASTfcR FILE IN TEST hi
//* "EPLACF MTH 'A' AIL OAT* FLAGS ThAT SHU* "S1,
//* TK cjPOFh 10 RESUPMT THE KASTEP FILE CAIA TO NFOS
//*
//OENER. INPUT ou *
JSSE.LECT USE" 0 I T>
IF RbCU»D-lS-rtSC&IPTTUN
PFKFUPM USE«=-nESC-HAHA THRU USEP-PESC-HA«*-ENP
ELSf
IF RECORO-lS-PATEGURY
PFHFORK U?ER-TAT-PARA THKII HSFK-CAI-PAHA-FNO
ELSF
PPfiFORC USEP-COPK-PAHA ThPU UShP-CLVC-P Ah A -FNfl .
PFKFORK kFCPRr-OUAL-HARA THRU HFCCKP-CUAL-P AKA-ENO.
cn TO USER-OUALIUCATIUN-FND.
USE^-OESC-PAHA.
IF NEPS-A1-FLAG tCUAL 10 'S'
crvF 'A1 TO NFDS-AI-FLAG.
IF NEnS-AJ-FLAG ECUAL TO 'S1
f,PVF 'A* TO NFUS-A3-FLAG.
IF NEns-Art-FLAG EOUAL TO 'S1
KCVF 'A1 TO NEOS-A«-FLAn.
IF FlS-FLAG-CAHn-0-1 FUUAL TO 'S'
fOVF 'A1 TO EIS-FLAC-CARO-0-1.
IF FIS-FLAG-CAKP-O-? FOUAL TO 'S1
NPVF 'A' TO ETS-FL AP.-C ARD-0-2 .
IF FIS-FLAG-CA»«n-0-3 FtJllAL TC 'S'
COVF 'A1 TO EIS-FI.AR-CAPD-0-3.
IF FIS-FLAG-CAHn-n-« FOUAL TC •?•
fr.\if -A' TO EIS-H. AG-CAOO-O-^.
IF F1S-FLAG-CARP-0-S FOUAL TO ' ? •
KOVE 'A' TO EIS-FI AR-CA^D-O-S.
IF FlS-FLAG-CAhT-0-6 FUUAL TO 'S'
COVF 'A1 TO t TS-FLAr,-CA°l)-0-fc.
KPVF PIK'A>»V-| ^^: OLSC-SUb.
USEP-r.ESC-RFPFAT-PARA
OFSr-^H''-PUI L TIKFS.
EXIT.
USER-.PtSC-hEPEAT-PARA.
IF FlS-FLAG-CAhP-0-7 (DFSr-SUR) ECUAL 1C *S'
fOVF 'A1 TO ETS-FLAG-CARD-0-7 (HESC-SUB).
APD BTNAKY-1 TO OFSC-SUB.
USER-DESC-KFPFAT-PAPA-ENU.
EXIT.
USER-f.AT-PARA.
IF NETS-FLAG FtllAL TC 'S'
FOVF 'A' TO KFUS-FL4G.
IF NEOS-A7-FLAG EQUAL 10 'S'
KOVF 'A1 TO NFDS-A7-FLAR.
IF F1S-FLAG-CAKD-1-J FOUAL TO 'S1
(Page 1 of 2}
Figure AST7-7. Run Stream
127
-------
*OVF 'A1 TO HS-FI An-CARD-1-1 .
IF riS-rLAG-CAHn-t-2 FUIJAL 70 'S«
MflVF 'A1 TO t I3-H.AG-CAPD-1-2.
IF f- IS-FLAG-CAHn-1-3 FUUAL TO '8'
HOVF 'A' TU ttii-FI AH-CARO-1-3.
IF FIS-FLAG-CANn-1-a FUUAl TO •«•
KOVF 'A' TU tIS-FLAR-CARD-l-'l.
MOVF HJNAHY-1 TO CAT-SUfl.
PFHFUPM U^tP-TAT-PLPt AT-PARA
CAT-MB"-PCLL IIKFS.
USER-CAT-PA''A-E^O.
EXIT.
USEP-CAT-PEPEAT-PAHA.
\f FIS-FLAG-CAKH-I-S tCAT-SUd) FuUAL TO '3'
KOVF. 'A1 TO ETS-H.AR-CAOD-l-S (CAT-SU1).
AOO BTN«RV-t TC CAT-S'Jb.
USE«-CAT-R£PEAT-PAKA-FMn.
EXIT.
USER-fOMM-PAKA.
IF NEOS-A6-FLAG ERUAL TO 'S*
KOVE 'A1 TU NFOS-A6-FLAR.
IF FIS-FLAG-CAHH-?-! FOMAL TO '3'
KOVF 'A1 TO EIS-FI.AG-CAPD-2-1.
IF ElS-FLAG-C*Kn-?-2 FOUAL TO 'S'
KOVF 'A' TU E1S-FLAH-CA90-2-2.
EXIT.
SJEND
//TEST07P EXEC ECKPK20,
//*
//* GENERATE A OFTAIIET. PEPURT OF TMF OUTPUT MASTER
//» FILE FRO* STFP A
//*
//LIST.CPTTONS Oh *
(Page 2 of 2)
Figure AST7-7 - continued. Run Stream
128
-------
E1S/AS HFTK1EVAL LANGUAGE PROCESSOR PRI1GKAM - DIAGNOSTIC REPORT PAGE
PROGRAM NAME: CRTLUGP (ECOUVO)
REVISION LbVKL: 1-00
LAST UPUATE «: A-l
DATE INCORPORATED: FEbHUART 1, 1900
INPUT (CONTROL CARDS):
liSELECT USER 0 1 2
IF RECORD-I
PERFukM USEK-DESt-PAKA THRU USt K-Dt SC-HAh' A-t NO
ELSE
IF KECUftD-IS-CAIbGUKY
PEHFURM USfcK-LAl-PARA THKU USLH-C A I -PARA-tND
ILSE
T| PERFORM oSEK-CUMf-PARA THRU
-'• PtKFOKM RECORO-OUAL-PAkA 1HHU Kt CURU-UUAL-PAK A-ENO .
C liU 10 USER-UUAL1F 1CATIIIN-ENO.
"J UbE'R-DESC-PAKA.
ro JF NEDS-AI-FLAG EUUAL TO 's1
> KUVE 'A1 Tu NEDS-Al-FLAG.
J^j IF NEDS-AJ-FLAG EUUAL TO 's1
Zj HUVE 'A' Tu NEOS-AJ-FLAG.
I IF NtOS-A^-FLAG EUUAL IU 'S1
f° MOVE 'A' Tu NEDS-A«-FLAG.
IF ElS-f-LAG-CAKO-0-1 FIJUAL III 'S'
MUwE 'A1 TO EIb-FLAG-CARL)-0-l.
& If E1S-FLAG-CAKU-0-? EOUAL TO 'S1
3 MOVE 'A* TO E IS-FLAG-CAKO-O-if.
TEL !»" E1S-FLAG-CARO-0-3 EUUAL TU 'S'
ft) MOVE 'A' TO E 1S-FLAG-CAKD-0-3.
_ IF E1S-FL4G-CARD-0-0 FuUAL TO 'S'
c KIVE 'A' TO EIS-FLAG-CARD-O-(*.
*± JF E1S-FLAG-CAKI/-0-5 EQUAL TU 'S1
e "OVE 'A' HI ElS-FLAG-CARD-0-b.
<-*• IF EJS-FLAG-CARli-0-6 EjUAL TO 'S1
MUVE 'A' TO E1S-FLAG-CAKD-0-6.
MUVE bHJARY-1 TU "ESC-SUn.
USEw-DESL-kbPfcAT-PAHA
EXIT.
USER-DtSC-RtPEAT-HAKA.
IF ElS-FLAG-CAKU-0-7 (DESC-Suo) EUUAL HI 'S1
WOVE 'A1 10 ElS-t-LAU-CARU-0-7 (DESC-SUHJ.
ADO dliJAHY-1 IU UESL-SUb.
USEH-OE'SC-HEPEAT-P»K»-FNU.
EXIT.
UStW-CAI-PARA.
IF NEDS-FLAG EUUAL TO 'S'
-------
t IS/AS -FI AG-CARli-1-1 .
IF FjR_FL6G-CA«n-1-? FjllAI TU 'S1
-r, *OvF 'A' TU 17S-FLAr.-CAPLi-l-«:.
-•• IF F1S-FLAG-CAKO-1-J FullAl Ti)' *S'
^ K.nvF 'A* TP t'JS-H AR-CARD-l-3.
-5 IF FlS-FLAG-CARn-1-« Fli'lAL Tu 'S'
n> MfWF 'A1 TU tTS-Fl Ar,-CAR|)-l-«.
> MOVE BlNAPy-i in CAT-SUB.
t/3 PFhFuRM USbP-CAT-RfcPE Al-f'ARA
r! . CAT-NBR-PULL
00 EXIT.
I USER-CAT-Rt°E*I-PAHA.
FIS-FLAG-CAW^-I-s (CAT-SUB) EOUAI. TU 'S1
9 M^VF 'A' Tu ETS-FLAG-CARU-l-5 (CAT-SUB).
3 ADD blNAHV-! TU CAT-SHU.
J^ ^ USER-CAT-REPEAT-PAkA-F.Mn.
O 3 EXIT.
Q. IF MEHS-Aft-FLAG EOUAL TO 'S'
• HOVE 'A' TU \FDS-Ae-FLAR.
IF EIS-FLAG-CAW^-?-I EO'"AL TO •$•
CO MflvF 'A' TO LIS-FLAr.-CARIJ-2-l.
§ IF ElS-FLAG-CA«n-3-? FlJIIAL TO 'S1
•§ MOVF 'A1 TU EIS-H Ar,-CA9i)-a-2.
m EXIT.
o f s E N n
c
C^"
"C3
C_ ^ NU^rtfK OF CONTROL CARDS RfcAO:
CD MU»dcK UF RtTKIEVAL SKFLFION KECOKDS KFAD:
IQ NUubFR UF "ETKIEVAI. SU'lrtCE RFCflKDS oRITlFiv;
ro NUMhF« OF CUNDIlIir'Al. "LSSAGFS: 0
r\3 WUML<£W UF ABHKT MESS»GFS: 0
o
AM NAME: CRTLNGP
REVISION LFVEL: i-no
^ I ASl UPQATF. «: A-l
HATE iNcnHPURATEP: FF.BRUAKV t, IQ«O
-------
tlS/AS GEMEHATLL) KtlKltVAL PKUGrtAM - DJAGNUSI1C kLPUKT
PACE
PHUGHAM NAMh: CRTGtNK (ECOJOO)
KEVIS1UN LtVtL: 1-OU
LAS! UPDATE «: A-l
DAtt INCOKPUNATtO: FEbKUAKY 1,
ua
c
n>
co
i
00
o
3
r-t
ro
Q.
NU«t)tK UF MASIEH FILE KtCOKOS KtAD:
NUMtttK UF MAStE« F-1LE kECUKDS nklTTLN:
NUMbEK OF CUNUIT1UNAL MESSAGES:
OF AbUKT MESSAGES:
371
371
0
0
co
Q)
-o
AHEA SUUMCE MASTEK FILE OtlAlL LIST PHUGHAM
UlAGNUSflC KtPUKl
PAGE
o
c
T3
C
U2
PWOGHAM NAME: CKPMSTK (ECOliO)
KEvisiUN LEVEL: i-oo
LAST UPDATE »: A-l
DATE INCUHPUKATED: FEBWUAKY 1,
UPUON IN EFFECT: UU VALlU UP NUN SPEL1F1EO, DEFAULT OF e>0 L-1NES PEK PAGE ASSUMED
CO
NUMBEW uf KECUKUS KEACJ:
NU»hEW UK UESCHJPT lU'V KtCUKUS:
NUhbEW UF CAltGUKT KECUHOS:
UF COMMENT
371
IH
33U
IV
-------
AKEA SUUHCt MASltK FILE DETAIL LJSI PROGRAM
FILE L1SI1HG
PAGE
139
co
••DESCRIPTION** STATE COUNTY AuCR AUCR
NAME PLANT ID GEOG SUb » SMSA BATCH
31 0015 Oil WESTERN PART OF STATE OU 0195 00367 12S7 0
RECORD CATEGORY CATEGORY AIR DEFINED AREA MAJOR SUbALLOCAT 1 ON TECHNIQUE
TYPE NUMBER DISAG « BASIN AREA CODE NAME ACHVlTY CUDE DESCRIPIIUU
-n
c
-5
co
00
1
o
o
3
rt
3
C
ro
Q.
CO
o>
0>
o
c
c+
..73
C
SG 000 00 Oil
DATE SIP BASE PROJ'D SOURCE
YR/DAY YEAR YEAR IYPE
7V/303 /V
01 HORIZ VERT 02
le 530.0 4310.0 le
SULFUR LONlENlS
ANTH B11UM D1ST RESD
COAL COAL OIL OIL
FLAG EIS FLAGS
NEOS Al 123156
*** POLLU1ANT
*«* ID NAME
123 CADE'S COVE FARMING 15 CAASE
' LENGTH PUP POPULAT1UN NUMBER UTM NUMBER OF
AREA UN11S CD CODE RUR X TOTAL COORDINAlES PULLUIANIS
B3 A 13/.5V 12 50 101,234 2 16
UIM COORDINATES
HOR1Z VERT 03 MORIZ VEKI (.'4 HORIZ VERT 05 HORIZ VER1 Ob HORIZ VERT
535.1 4520.1
ASH CUiMlEMS
•L ANTH B11UM
COAL CUAL
SIP
TSP S02
125 13?
ATTAINMENT
STATUS
«•* 1 1 J 01 1 SP U
*** 441UJ TOTAL OX1DANTS U
»*» 421 01 CO U
^_^ *** 43102 NUN^ETH HC u
-0 •*• 22300 NJTHATtS U
£j ««» 42603 iMOX 0
*»* 42601 NO U
*** 42401 S02 U
O
en "COMMENT** STAIE
— «*RECORD **
31
LINE ft
001
002
GAS FUEL DIESEL FUEL MOTOR VEHICLE MILES
VEHICLES VEHICLES LIMITED ACCESS RURAL SUB URbAN URBAN
LJi.nT HEAVY HEAVY ROADS ROADS ROAOS ROADS
ESTIMATES
NOX HC CO
12 3,4^V 11V
AOMA EIS *** POLLUTAN! ATTAINMENT AQMA EIS «*•
NUMBER F 7 *** ID NAME STATUS NUMBER F 7 ***
000123 A **« 11103 BENZENE ORGNICS A 000123 A »•*
000123 A «*« U4201 . OXJNE A 000123 A ««*
000123 A *** u£io2 C02 A 000123 A ***
000123 A *** 43502 FORMALDEHYDE A 000123 A ***
000123 A *«* 22403 SULFATES A 000123 A ***
000123 A *•* 43101 HC A 000123 A ***
000123 A «** 42602 NU2 A 000123 A •**
000123 A ••* 42402 HYDROGEN SULFDE A 000123 A *•*
COUNTY AUCK GEOG CAIEbURY CATEGUKY COMMENT FLAGS bATCH
SUBALLUC » ' NUMBER UlSAG « TYPE NEDS A6 EIS 1 EIS 2 CODE
0015 Oil
ARfA IS hllUNPEU HY
THktt t AC1 UK ItS, U
OU36? OOU UU EIS A A A 0
KDUltS J/, 35,4V, A'VU 1001A
N£ AirtSlKlH, ONE ii
-------
AREA SUUKCE MAblER FILt UETAJL LIST PROGRAM
FILE LISTING
PACE
140
-5
n>
CO
—I
— i
i
00
O
o
>-• c+
CO -i.
CO 3
c
n>
a.
CO
Ql
tt>
o
T3
c
••CATEGORY 234*«
RECORD RECURD
YEAR TYPE
STATE COUNTY
31 0015
CATEGORY
DESCRIPTION
AuCR GEOG
Oil
. CATEGORY
ADJUSTMENT
SU8ALLOC «
00367
PROCESS
KATE
CATEGORY • CATEGORY
234 y]
. UNITS
CODE DESCR1PIION
D1SAG *
bATCH
0
NORMAL OPERATING
rlR/D D/wi\ WK/YR
JHRUPUT
RATIO
1979
SD
CAT 100 D1SAU 10
10
1597
1.3
1MKUPUT
YES
JAN
6
FEb
6
MAW
9
MUMTHUY TMRUPUT HEHCENTAGtS
ARM MAY JON JOL AUO SEP
OCT
8
NUV
6
UEC
9
PtKCENIACtS OF MEAT
N11KUGEN SULFUK ASH CONTENT
.036
7.1
10.2
0034
UNIFORM HUUHLY THRUPUI PEHCENTAGEH
InKUPUI UOOO 0100 02(10 0300 OUOO OSOO UbOO U700 ObOfl 0900 1000 1100 1200 1300 1UOO 1500 1600 1700 ItoOO 1900 ^000 2100 2200 2300
YES 4 4 4
MAX HRLY DATA CONF
THRUPUT RATING
1
POLLUTANT
ID NAME
11101 TSP
11103 BENZENE (IRGNICS
11114 AlNUdLN PArM
21101 TOTAL OUSTFALLS
22306 NITRATES
22403 ISULFATES
42101 CO
42102 C02
<42401 S02
^^412402 HYDROGEN SULFOE
^42601 W
to 42602 N02
n> 42603 NUX
tn43101 HC
43102 NONMETH HC
5,43502 HJRMALYnYDE
445
EIS FLAG
1234
A A A A
POLLUTANl
SPECIFIC DA1A
XXJ-12
J/l 12-A
S-JJJJ-55
J/l 10BA
XXJ-12
S-JJJ5555
U U U
NEDS NEDS
FLAG FLAG
A A
EMISSION
FAC10K
1,241 .398
1,201 .449
1 ,2<*1 . 1 9M
351.111
1,241.198
2,3)6.4149
1,243.398
2,317.749
1 ,201 .398
2, 000.749
1 ,201 . V9t>
«, 300.74V
1 .201 . 73B
1 ,351 .001
1 ,20l.4««
4,200.7«9
4 . 4
A7
COMMENT
EM FAC
CONF RTNG
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5 4
EM FAC
SOURCE
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
4 4
EM FAC
ORIGIN
L
L
L
L
L
L
L
L
L
L
L
L
L
L
L
L
4 4 5 4 a a 4
INFORMATION SOURCE
CODE NARRATIVE
L LOCAL GOVRNNT
EMISSIONS NEDS A7 MAX HOURLY
ESTIMATES EMISSION MAX HOUKLY
101,108
9,59*1
9,911
2,804
9,911
18,497
9,929
18,507
68,111
15,976
9,598
1,236
9,5V6
10, /ea ooooioo
9,594
33,543
4 5
NUMBER OF
POLLUTANTS
16
CUNF FLA
RING EIS
3 A
3
3
3
3
3
3
3
3
3
3
3 -A
3 A
3 A
3 A
3 A
tn
ST AIE
COUNTY AU
L« GEOG
SUnALUJC »
CAltGURY
CATEGORY
COMMENT
TYPE
NEDS A6
FLAGS
EIS 1
EIS 2
BATCH
CODE
"11
00367
234
it 0015
L 1 iMt o LUnMEIiTS
001 CAItiSUWY IS HK'JisbN IMU IMKtE SUn ALLOC A I I Ui«S
EIS
10, 20, 30, FURTHER SUBDIVISION LATER
-------
EIS/AS Test 8
Submit Annual Report in EIS/AS Format
In this test run, EIS/AS master file internal transactions are generated
from the EIS/AS master file in order to submit the data that has been added,
changed, or deleted since the last execution of CRPASNA (EC0120) to the
appropriate agency. The cataloged procedure ECRPM10 is used to execute
CRPASNA (EC0120), the annual report program.
In Test 6, CRPASNA (EC0120) was used to submit an annual report to NEDS
by generating NEDS transactions. In this test EIS/AS internal transactions
are generated by the annual report program. This is accomplished by
specifying AREA on the option card. For a description of CRPASNA (EC0120)
refer to Test 6.
The run stream for this test run contains the JCL needed for submitting
EIS/AS master file data to the appropriate agency by generating EIS/AS
internal transactions. This run stream is shown in Figure AST8-1.
The cataloged procedure executed by this run stream is ECRPM10. By using
substitutable parameters, the input master file is specified as ECMSTR5
(created in Test 7), the output master file is named ECMSTR6, and the output
EIS/AS internal transaction file is named ECAREA1. The user must supply the
DD (data definition) information for the option card file in the REPORT step.
The options specified in this test run are AREA, NOFLAGW, and NOLIST. Note
that when EIS/AS internal transactions are being generated the NEDS
transaction file ECSNDTR must be a dummy file in the REPORT step. The sample
output produced by this run stream is shown in Figure PST8-2.
134
-------
//«STcS10h JOb f ACtnuNT TNP 1NFJ)
//*
//* SUMMIT ANNUAL "(EPURT K> "t.r>S USING tIS/AS
//* TUTfcPiMAL TRANSACTIONS
//*
//TfSTOHA fxFC
//
//
//*
//• RtNFPATE EIS/AS TlvTtPM»L TRANSACT IONS FUR ANNUAL REPORT
//*
//PtPU&T .tCSNDTK UP DU"MV
//»tPU'*T. OPT TUNS OP *
AKEA NOFLAHw NOLIST
Figure AST8-1. Run Stream
135
-------
E1S/AS ANNUAL KtPUKT PWUGHAM - DlAUNUSTIC KEPOKT
PAGE
PROGHAM NA*E: CwPASNA
REVISION LEVtLI 1-00
LAST UHUA1E »: A-l
DATE INCORPORATED: FEBWUAkT
1, 19HO
OPTIONS I(v EFHtCI: AKEA, NOFLAGu, MULlSI
CO
en
un
c
-5
CO
OO
I
ro
oo
Cu
3
T3
ro
o
c
rt
•a
c
INPUT E1S/AS MASTER FILE COUNT:
OUTPUT E1S/AS MflSIEK FILE COUNT: .
BECOKUS DELETtD FkOM MASTER FILE:
AREA TRANSACTIONS GENERATED:
ADO TRANSACTIONS COUNT:
CHANGE TRANSACTIONS COUNT:
TRANSACTIONS COUNT:
EWRUH MESSAGES:
«ARivlNG MESSAGES:
CONDITIONAL MESSAGES:
AbURT MESSAGES:
DlSASIEw MESSAGES:
DELETE
NUMBER OF
OF
OF
NUMBER OF
OF
3/1
371
0
3,07b
3.07b
0
0
0
0
0
0
0
-------
EIS/AS Test 9
Generate Internal Transactions and Update the Master File
In this test run, the EIS/AS master file is used to generate internal
transactions; each transaction will contain the emission factor file
information that corresponds to it. These transactions are then used to
update the master file. The cataloged procedure that achieves this is ECFMM30
which executes CMSEFGN (EC0080), the master file emission factor transaction
generator program; CSRINTR (EC0050), the master file internal transaction sort
program; and CFMMSTR (EC0070), the master file maintenance program.
CMSEFGN (EC0080) compares the EIS/AS master file to the EIS/AS emission
factor file and creates internal transactions to update the emission factor
information in the master file with data from the emission factor file.
If a matching emission factor file record is found for a master file
category record, the dates of the emission factor file record are compared to
the date specified on the option card. If the date of the emission factor
file category record is greater than that specified by the user for category
records, a category-2 internal transaction is generated to change the
nitrogen, sulfur, and ash contents in the master file record. The emission
factor file pollutant records for each pollutant ID in the master file record
are then examined. If the date in the pollutant record is greater than that
specified by the user for pollutant records, a category-5 internal transaction
is generated to change the emission factor, confidence level, and specific
data for the pollutant ID. Only category-2 and category-5 change transactions
are generated. Note that these transactions are in master file internal
transaction format.
An option card is used to specify date criteria for the emission factor
file and to specify whether or not warning messages should be printed.
The date criteria specify a category date and a pollutant date. A
category date must be specified for any category-2 internal transactions to be
generated; likewise, a pollutant date must be specified for any category-5
137
-------
internal transactions to be generated. Also, the date of an emission factor
file category record must be greater than the specified category date for a
category-2 transaction to be created, and the date of an emission factor file
pollutant record must be greater than the specified pollutant date for a
category-5 transaction to be created. A category date is specified by coding
COAT YYDDD in card columns 13 through 22, where YYDDD represents a five-digit
Julian date. Also, a pollutant date is specified by coding PDAT YYDDD in card
columns 28 through 37, where YYDDD represents a five-digit Julian date.
Either type, or both types can be specified; however, at least one type must
be specified. If no date is specified, or if a date is specified incorrectly,
program execution will be. terminated.
If FLAGW is coded in card columns 1 through 5, all warning messages will
be printed in the diagnostic report; if NOFLAGW is coded in columns 1 through
7, no warning messages will be printed. If this field is left blank or
improperly coded, a default of NOFLAGW is assumed.
The programs CSRINTR (EC0050) and CFMMSTR (EC0070) have been described in
Test 2.
The run stream for this test run contains the JCL needed for generating
from the master file internal transactions with new emission factor
information and then using these transactions to update the master file.
This run stream is shown in Figure AST9-1.
The cataloged procedure executed by this run stream is ECFMM30.
Substitutable parameters are used to specify ECMSTR6 (created in Test 8) as
the input master file, ECEMFL1 (created in Test 1) as the input emission
factor file, and ECMSTR7 as the updated master file. The user must supply the
DD (data definition) information for the option card files in the GENER and
UPDATE steps. The options used in the GENER step of this test are FLAGW, CDAT
75001, and PDAT 75001. In the UDPATE step the options used are 80, FLAGW, and
LIST. Refer to Figure AST9-2 for the sample output produced by this run
stream.
138
-------
JOB f AfcouNi TNG
//* GENERATE IN1F.KNAI FMIbSinu FACTUP TRANSACTIONS AND
//• UDPATE TMt M«ST£« FILE
//*
//TES109A EXFC ECFMM50,
//* CkFATt 1NTFKNAL TH' NS ACT TUMS F Rll^ THE TEST a
//* MASTEK FTLF; INSERT NF« EMISSIUM FACTOK FJLE
//* TNFU&MATION TiMTo THE t HANS«CTIOiMS; UPOATE
//* THF MftSTFR FILF WITH THESE TRANSACTIONS
//*
//RENER. OPTIONS DO *
FL&GK COAT 75001 PHAT 75001
//UPDATE. UPT TONS DO »
«0 FLARH LTST
Figure AST9-1. Run Stream
139
-------
MASTER FILE EMISSION FACTOR TRANSACTION GFNFKATHK PROGWAM
PAGE
PROGRAM NAME: CMSEFGN
REVISION LFVFL: i-oo
LAST UPuATF a; K-\
PATE JNCONPORAT£r>:
1, 1V«(I
ua
c
tt>
OPTIONS IN EFFECT: FLAG*
CUAI 75001 PDAT 75001
OATt: CATtr.ORY 7S/001
UTAN1 75/001
o
ro
•
**« CMSEFGN 00° CONDITIONAL - EMISSION FACTOR FILE CONTAINS Ftnt°AL CATEr,o°r KECOKOS FOR CATEGOKIES OTHER THAN \-t>a
cu
•a RECORD KEY: oMaeo oononoooiooinoo
• **« CMSEFGN 01° •IARNIW; - NO NITPO^EN, SULFUR, uR ASH cOK'TtMTd pnk THIS KEY
- RECu"i) ^EY: o^i?fin oooonoool ooi oo" POLLUTANT ID: Hl^i
T3 *«« CMSEFGN 01^ WARNlwr, - Mu MMCHlUC, FKISSJ^N F»CTO° RETORO FOH THIS POLLUTANT ID
RECORO KEY: OM?80 000000001 001 000 POLLUTANT TO: «2lfl
*»* CwStFGN OJS WAPMNf; - NO ("MCHTNP FHISSJON FACTLIR RtrOBU FOK TH]S PULL'ITANT ID
Cu
RECORD KEY: oM?tio oonuooooiooiooo POLLUTANT TU: «?ani
... CMSEFGN 015 WAPMNP - NO MATCHING EMISSION F«CTQP RtCORO FOK THIS POLLUTANT ID
CTl
RECORD KFY: u61?80 OOOOOOO0 1 CO] 000 POLLUTANT TO:
*** CMPEFUN 015 WARNING - NO MATCHING EMISSION FACTUR RECU«U FOR THIS POLLUTANT ID
RECORD KFY: OM?BO ooouooooiooiooo PULLUTANT TU:
*«* CKSEFGN 015 KAPMNG - NO MMCHING EMISSION FACTOR RECORD
IHJS POLLUTANT ID
-------
FlLt IMlSilUN FACinH IPANfciCTjriN tFNEKAlOK HKORHAM PAf.t 10
OATt: r/iTtRUPY 7^/nul POU UT A>" I
OF "AS1FK FTLF
MUM-oFH OF FrtlSSlON F«CTu(-' BtClJPUS
NuMttFH UF CATtGuPV-*; 1»A'JS*CT10NS CKEATEO; 0
Mu^BFK UF CATEGD"y-5 TRANSACTIONS CXPATED: 1,136
NU^BFH OF WARNING ntsSAGfi: i,«jfl
NU*bFR OF rOMDIirtl^AL "tSSAGfS: 1
NUM6FM OF FRROP MESSAGFS: 0
MOMBFh OF AbOKT MtSSAGES: 0
OF DISASIFR MFSS6GES: tt
0
o
3
C
n>
o.
co
DJ
T3
fD
O
T3
Ol
«£)
ro
ro
o
-*>
CTl
-------
tlb/AS MAS1FH FILE IUTE"ATt INCOHPuRATtO: FFbPUARY 1,
00
a>
3
U«1F IS 80
IS F'LARW , LIST OPTION IS .LIST
O
C
o>
to
fD
00
0
^M
•2*
NU^hFk UF
Nu"bFr< OF
»JUMttFk UF
NU^ttFrt OF
NUMaFk UF
NUMoFh OF
^UMtt';K OF
NUMbFK OF
NU^bFK UF
tIS/AS "AS1F.K FRF MAlNTtMANCI
INPUT TKANSACI IONS KFAD:
^ISASlfHS OtTETIFt;:
«BOHTS PFIFCTED:
FK^OPS OFIFCTEO:
COMDI IIUNAI.S DFTECTED:
KAPUlrtGS DFTFCTED:
TkANSACIIONS rtFJFCTtn:
AKFA SOURCF Fll.h KFCOKDS kFAP IN:
AHF.A snuPCF FILL HECOM06 «PJTIFN LMJ1 :
I PkO(,PA" - niAUNllSIIC MFSSAGES PAGE 2
1 . »S7
0
0
0
0
0
0
371
371
-------
FJl.t MAlNlFNANft. PP(jr.KA« - ]N|FkMAL TH AnSAC T I UN I. 1STINP
PAGE
co
c
-s
n>
oo
1
ro
o
o
fC
Q.
oo
n>
o
cf
•a
Ot>223»
06223*
Oo?238
00223b
06223(5
P62238
147840
147840
147840
14764U
147840
147840
147840
147840
147840
147840
147840
147840
147840
147840
147840
147640
147.840
147840
1 4 7 8 4 (I
147840
147840
147640
147840
147840
147840
1 47840
1 u 7 8 'I 0
147e40
1 4 7 8 4 o
147H40
147840
0000000470 oioooS2C A
00000006000 100052C A
00000006000100052CA
000000060001000^20*
000000001001000S2CA
ooooooooinoioooS2CA
0000000^1 00 100052CA
oooooooniooioouS2CA
000000002001 ooo52CA
OOOOOOo<>200100i)52CA
ooooooonsooioocSifCA
00000000300100052C*
000000003001 00052CA
00000000300100052CA
OOQ00000500100052CA
OOOOOOOOS00100052CA
000000005001 00052C A
OOOOOOOOS00100052CA
ooooooooenoiooo^CA
000000008101 00052C A
000000008001 OOOS2C*
OOOOOOOOBOOlOOOSifCA
00000000900 lOOO^^CA
000000009001
ooor>oooioooioon52CA
U0000001J001UOOS2CA
00000001 iooioooS2ri
00(110001 1 ^01 000">2CA
ooooouoooooooooooooi)
4?101000GOOfM)OOOF
1 1 10]OOOo0000200F
42401OoOOOO"01UOF
1 1 10100000170000F
421O100000170000F
4?6020o000040000F
11lOlOOOOOlOOOOPF
4?in]000001POOOOF
4260200000030000F
1 1 mi0000020oOOOF
4210100000200000F
111010000002^000F
42101000000?SOOOF
4?40100001440000F
«i2602000001flOOOOF
i iimoooooioonooF
4?ioj noooomooooF
11101000000S8000F
42401000003«OOUOF
1 110100000020000F
4?101000000?OOOOF
4240100001440000F
4?602000002?OOOOF
11:
4260200000600000F
111OIOOOOOIOOOOOF
n?l01 oooooj OOOOOK
4?40100000006000F
PAR).
PART.
SULFIIw DTuXjnt
•v n * i (> F s
PAPT.
PARI
SULFUK
M OXIDES
SUSPENDEO PART.
SUSPENOED PART.
SULFEM OIOXinE
N OXIDES
susppNotn PART.
SUSPRNDEO PART.
SULFEH OlOXlOt
N OXIDES
SUSPENDED PART.
SUSPFNntn PART.
SULFUR OIOXinE
N OXIDES
SUSPENDED PART.
SUSPENDED PART.
SULFUR onuine
N C1XT0FS
SUSPENDED PART.
RuspfNDEn PART.
SULFU"
PART.
SUSPENDED PARI.
SULFIlH UIJX1DE
l 0)
SUSPENDED
SUSPENDED "ART.
SuLFIJK OTUX1DE
N OXIDES
PART.
PART.
SulFUk OIUt
N PXIDFS
PART.
PARI.
-------
E1S/AS MASTER FILfc MAINTENANCE PROGRAM - OLO MASTER FILE LISTING
PAGE
-n
(O
c
-5
n>
j,
CO
— I
i
ro
i
o
o
3
^
3
c
Q.
CO
3
•0
— '
(D
O
C
rt
-a
c
r+
061280
061280
061280
061260
061260
061260
061280
061280
061280
061280
061260
061260
061280
061280
061280
061280
061280
061260
061280
061280
061260
061280
061260
061280
061280
061280
061280
061280
061260
061260
061280
061280
061260
061260
061260
061260
061280
061280
062238
CJ 062238
I? 062238
(0 062238
n 062236
tn 062238
_ 147840
-4, 147640
_ 147840
0000000000000000565067CG
0000000010010000734067CARESIDENT ANTHRACITE COAL 79000040123
000000002001000G669067CAHESIDENT dITUMINUUS CUAL 79000020010
0000000030010000734067CARESIDENT DISTILLATE OIL 79000009750
0000000040010000669067CARESIDENTIAL RESIDUAL OIL 79000006900
0000000050010000669067CARESIDENT1AL NATURAL GAS 79000023550
0000000060010000734067CARESIDENT1AL nOOD 79000000050
0000000070010000669067CACUMM-INST AN1MRAC1TE COAL79000023500
0000000080010000669067CACOMH-INST BITUMINOUS COAL79000034750
0000000090010000734067CACOMM-INST DISTILLATE OIL 79000042100
0000000100010000669067CACOMM-INS?
0000000110010000669067CACOMM-INST
0000000120010000734067CACOMM-1NS1
0000000130010000669067CAINDUSTRY ANTHRACITE CUAL
RESIDUAL OIL
NATURAL GAS
79000000390
79000008750
79000000005
79000096750
ANTHRACITE COAL
ANTHRACITE COAL
79000056900
79000000025
79000002350
79000059850
79000059650
ANTHRACITE CUAL 79000059650
ANTHRACITE COAL 79000059850
0000000140010000669067CAINDUSTRY B1TUMINJUS COAL 79000123400
0000000150010000734067CAINDUSTR1AL COKE 79000009850
0000000160010000669067CAINUUSTR1AL DISTILLATE 01L79000021500
0000000170010000669067CAINOUSTR1AL RESIDUAL OIL 79000000980
0000000160010000734067CAINOUSTR1AL NATURAL GAS
0000000190010000669067CA INDUSTRIAL rtOOO
0&000002GG010000669067CA1NOUSTPIAL PHUCtSS GAS
0000009990010000799 CA
0000010000000000453067SG79
0000010010010000474067SARESIDENT
0000010010110000474067SDRESIDENT
0000010013510000344067SDRESIDENT
00000100199100003^4067SDRESIOENT
0000019990010000474 CA
0005000000000000453067SG
0005000010110000344067SDRES1DENT
000500001 221 0000344 067SDRESI uEiMT
0005000017010000344067SDRESIDENT ANTHRACITE COAL 79000059850
0005009990010000344 CA
0006110000000000453067SG79
0006119990010000344 CA
0999990000000000453067SG79
09V9990019910000344067SDRESIDENT ANTHRACITE COAL 79000059850
0999999990010000344 CA
0000000000000000453067CG79
00000000000200001360e>7 NAREA SOURCE TEST - SUMtr BUT NOT ALL VALUES OR CATEGORIES
ANTHRACITE COAL
ANTHRACITE COAL
79000059850
79000059650
Y06080908060906080V060809
Y080609080609060609080609
Y08060908080908060V060809
Y080609060809080609080609
Y060609080809060609080809
Y080809060809080609080809
Y080609060809080809060809
Y060609080609080609060809
Y080809080809060809080609
Y080609060809080809060809
Y080809080809060609080609
Y060809060609060609080809
Y060609060609080809060609
Y060809060809060609060809
Y060609060809060809080609
Y080609080809080609080809
Y080609080609080809080609
Y080609080809080809080809
Y060809060809080809060809
Y060609060809060609060809
Y080609080809080809060809
Y0e0d090806090808090b0609
Y080809080809080809080809
Y080609080609080609060809
Y080809080809080809080809
Y060809080609060B09080809
0000000230010000669067CACU«h-lNST UN-SITE INCINER79000002350
0000000470010000604067CACIVIL AIRCRAFT LIU'S 79000005005
0000000600010000669067CAFOREST I»1LD FIRES 79 0000900
0000009990010000669 CA
0000000000000000565074CGb00040l342l3SMITH COUNTY INDUSTRY
0000000000020000136074 NftAbASH
0000000010010000t>04074CARESlDENT ANTHRACITE COAL 000000001
Y080809080809080809080809
Y080809080809080809060809
Y080609080809080809060809
1120768223
-------
EIS/AS MAS1EK FILE MAINTENANCE PkOGkAM . Nt> MASIEk KILE L1S1ING
PAGE
cn
_
T!
— '•
10
c
-5
fD
^,
CO
vo
1
no
i
o
o
3
—i.
C
fD
O.
•
00
ftl
•a
—*
fD
O
C
(-t
•a
c
061280
061200
061260
061280
061260
061260
061260
061280
061260
061280
061280
061260
061260
061200
061280
061280
061200.
061200
061280
061260
061260
061280
061280
061260
06l26u
061260
061260
061260
061280
061260
061260
061280
061260
061260
061280
061200
061260
061260
062236
•CJ062238
0> 062236
000000001001000073u067CAKbi>lUENl AMIHKAC1TE COAL
0000000020010000669067CArfESIUtl«r DITUMINUUS CuAL
OOOOUOOOJU01000073«067CAKES10ENI DISTILLATE OIL
OOOOuOOO<400100U06b9U67CArfE!>lD£NUAL KESIDUAL OIL
UOOOOOOOS0010000o69067CAKtSlU£Nl1AL MATUWAL GAS
000000006U010000731007CAKESIDENT1AL «UUO
0000000070010000669067CACOMI-I-INS1 ANTHKAClTfc COAL79000023500
0000000080010000609067CACOKM-INST blTUMl.NUUS COAL7900003«7SO
000000009001000073M067CACUMM-INST UISTRLATfc OIL 79000002100
00000001000100()06690b7CACOMM-jNST KESIDUAL UlL
OOOOOOul100100006690o7CACOMM-lNSl NAlUKAL GAS
00000001 2001000073<»067CACOMM-IiMST «OOD
00000001i00100006690t>7CAlNUUSTHY ANTHKAClIt C.UAL
00000001(l0010GpOb69067CAl^UuSTKY blTUMlNOUS CuAL
000000015001 000073«Oo7CA1NUOSTKIAL COr\E
ooooooyi6Uoioooobo9067LA INDUSTRIAL
0000000170010000669067CA1NUUSTKIAL KE51DOAL OIL
000000010001000073<40b7CAlNDUS1KIAL NA1UMAL GAS
0000000 1 900 10000bb90e7C A 1KIUUSTKIAL
00000002000100006690b7CA 1 NOUSISIAL
0000009990010000799 CA
000001000uOOOOOOb7SUH£SI DEmT
00000 1001 35100003"iiOb7SDRESI DENT
000001001V9100003««067SOkEslUtNl
000001999U01000047U CA
0005000000000000'4530b7S&
OOObO 000101 100003«"067SOKESIl)tNl
00050000122100003«1067SDKtSI0£N1
00050000170100003<*«067SOkESlu£MT AMThkACITE
00050099900100003"" CA
00061100UC>OOOOOOU53067SG79
00061199900100003"" CA
0999990000000000"530b7S(i 79
09999900199100003""067SUKtSIDEMl
09999999900100003"" CA
000000000000000OHS3067CG79
0000000000020000136067 NAHEA SOUktt TLST - SOME, bill NOT ALL VALUES OK CATEolJrtlES
00000002300100KOb690b7CACOMM-]MS! ON-SJTt lNClNtk79000002350
0000000«700l00006000b7CACIVIL AlKCKAFl L10"S 790110005005
OoOOOCOb00010000669067CAFOKEST nlLii FIKES 79 0000900
000000999U010000669 CA
00000000000000005b507aC(,8000y013"213SHllM COUNT If 1NDOSTKY 1120700223
00000000000200001 3t>07« nwAttASH
000000001001000060"07'*CAKbSlUENT ANlHKAClTE CUAL 000000001
ANTHRACITE CUAL
ANTrtKACIlE COAL
AN1HKAC1TE
ANTHRACITE
COAL
CUAL
79000059B50
79000059650
79000059850
79000059650
AUTHKACITE COAL 79000059050
ANThKACITt COAL 79000059850
COAL 79000059850
AMTHWACITE COAL 79000059850
T000809000009060009080609
T060609060609060809060809
1080609080609080009080809
Y0b0009000609060e090t)0e09
Y060009080809000009080809
Y080809080809000009080809
Y080009080009080809000009
Y060809080609060e09060609
Y080009060809060009080809
YOD0009000809000009000009
Y060009060609080t>09080009
Y000B09000609080609U00009
Y060009060809060009080009
Y060809060609080t>OV060H09
Y0006090806090B0009080609
Y060609000809060009000609
V0b0809060609080609060609
Y060609080809080009080809
Y060609060809000809080809
Y080009080009080809060809
Y080609080609080809080809
Y080609060809080809080809
Y080009080609000009080809
Y080809080809080609080809
Y080809060809080809080809
Y060009060009060609000809
Y060609080609060809000009
Y060609080609000809080009
Y080809080809080809080809
-------
EIS/AS Test 10
Retrieve a Batched Answer File and Produce a Formatted Dump of the Answer File
In this test run, a batched retrieval is performed on the master file and
the resulting answer file is sorted before a formatted dump of this file is
produced in batch number sequence. To accomplish this, the cataloged
procedure ECRTM10 is used first to execute the retrieval language processor
program, CRTLNGP (EC0090); the COBOL compiler; and the linkage editor in order
to create the generated retrieval program, CRTGENR (EC0100). Then, the
cataloged procedure ECRTM20 is used to execute CRTGENR (EC0100). The
advantage of using these separate procedures instead of the single retrieval
cataloged procedure, ECRTM30, is that the retrieval program does not have to
be regenerated from the retrieval specifications each time a new master file
is to be used. Next, the cataloged procedure ECSRM10 is used to execute
CSRMSTR (EC0110), the master file sort program. The final procedure used is
ECRPM30 which executes CRPDUMP (EC0140), the master file formatted dump
program.
The retrieval programs were described in Test 7. To produce a batched
retrieval, each group of retrieval request cards must be preceded by a
$$SELECT control card; the last retrieval control card should be a $$END card.
The batched retrieval specification cards are used as input to CRTLNGP
(EC0090). In this run, five retrievals are batched. Note that retrievals can
only be batched when the retrieval requests are in the EIS/PS retrieval
language.
The master file sort program, CSRMSTR (EC0110), sorts batched retrieval
answer files into the sequence required for their use as input to either
CRPMSTR (EC0130), the detailed report program, or CRPDUMP (EC0140), the
formatted dump program. In addition, this program can be used to sort
out-of-sequence master files into the standard master file sequence.
The option card for CSRMSTR (EC0110) specifies the sequence into which
the master or answer file is to be sorted. By entering BATCH in card columns
1 through 5, the BATCH option can be specified to sort a batched answer file
into batch number sequence. However, if STND is entered in card columns 1
146
-------
through 4, the STND option is specified and the master file will be sorted
into the standard master file sequence; i.e., the sequence created by the
master file maintenance program, CFMMSTR (EC0070). If no option card is
entered, a default of STND is assumed. If the option card is blank or if any
invalid characters occur within columns 1 through 5, the run will be aborted.
An answer file produced by batched retrievals should always be sorted by
CSRMSTR (EC0110) using the BATCH option to group together the records selected
by each retrieval.
Test 4 provides a description of the master file formatted dump program,
CRPDUMP (EC0140).
The run stream for this test run contains the JCL needed to generate a
batched answer file, sort this file, and produce a formatted dump of this
answer file. The run stream is shown in Figure AST10-1 and the sample output
from this run stream is shown in Figure AST10-2.
First, the cataloged procedure ECRTM10 is executed. The user must supply
the DD (data definition) information for the retrieval specification card file
in the GENER step. In this test, the input retrieval specification cards are
used to produce a batched answer file.
Next, the run stream executes the cataloged procedure ECRTM20. The input
master file used is ECMSTR7 (created in Test 9) and the output answer file
produced is named ECANSR1.
To sort the answer file, the cataloged procedure ECSRM10 is executed.
Substitutable parameters specify the input file as ECANSR1 (created in the
last step) and the sorted output file as ECANSR2. The user must supply the DD
information for the option card file in the SORT step. The option specified
in this test is BATCH.
The last cataloged procedure executed is ECRPM30. The master file used
as input is ECANSR2. The DD information for the option card file in the DUMP
step must be supplied by the user. The option card is not present in this run
stream causing the default options to be in effect.
147
-------
//ASTfcSTto jrih f ACC"UMriur,
//*
//* RETKiEvt A HATCH AMs^h^ FILL fRu" THF MASTFK FILF AND
//» PwnjucF A FUPMMTED nu^p u* THF ANS^F^ (-JLF
//•
/ / T E s 1 1 o * FXFC t r n T M 1 o
//*
//* KENfcPATE THt *FTPJFv"L LOAD MUHUI E USING THt
P. INPUT nu *
sistttcT o i a
COUNTY = '25<;0' AND
CATtr-UPV-NUMBew = '033'
*4SE.LtCT
CUtlNTY = '1780' AND
CAT-PULLUTANT-TO = 'flSlOl1
fCOUNTY = 'OOIS' OK
COUNTY = 'Oh80') SND
PHOJFCTEO-YEAH = '83*
f iStLECT
S1ATF = 'Of.1 AND
COUNTY = '22.4«'
lilSELECT
= '200'
//TtSTIO" EXFC ECKTM?0,
//« FXFCHTF ThF GEMEPATtri RETRIEVAL P*nGPA" FROM
//* STFP A ON TnF "ASIFk FTLF FKflM IFST 9
//*
//TEST10C EXFC ECSBM10,
//
//
//*
//* S0"1 1H£ ANSWfR FJLt ^BUU SIFP B 1M BATCH PKDE"
//* TN PPEPAPATlOnl Ftlrt THE
//*
//SUPT.UP1 IUMS Df> *
//* PKMOHCF « FUPMATTEH nnMP UF THF SUPTFD
//* FILt I-PUM SIFP C
//*
un »
Figure AST10-1. Run Stream
148
-------
tis/as Pt-THitvai i KNi.iiAGt pPurt SS'IN PKU&K4M - ui
LARl Up[)«lE «: A-I
ri n i ?
l Y
CUUM T = ' 1 76" ' *ND
CAT-PQI LU1 AM-IO = 'IJIOJ1
-p TJStUCl
_i. fCOU^IJY = '0015' nK
02 COUNTY = 'Of»80') 'N''
^ PHPJFCTtr>-Y£ AK = 'S3*
n> »$SEI ECI
j., ST4TF = 'Of.' AND
-H
i—•
O
I
ro
•
'JUM«FH I)F CO*J|POL PA^OS P£AUt 16
Oj' NUWMFH UF fETkltVAL S^FLF'TOrg HFCOKdlS kFAH; 8V
o
c
e:
rt
MUUHE« OF TOMUITTUNAL MESSAGES: 0
0
CD
fU -o . PAGfc
I—'
5, I AS1 u»U»TF •; A-l
CO
Vl/i'ttFH l)F MiSlFr FTLf PeriflJ."! P£«H: 5 71
MUvt>Fr< Of '-APIFK f TLC RL^OPUS »'K1TTLM: Si?
MUMtlFR OF rUNOI I lU'JAI. M£ Sci 0 liFj, : n
Mavrf^K jF ctilKT f
-------
EJS/AS MASTER (• ILE SORT PROGRAM - DIAGNOSTIC REPORT
PAGE
PROGRAM NAME: CSRMSTR (EC0110)
REVISION LEVEL: i-oo
LAST UPDATL *: A-l
DATE INCORPORATED: FEBRUARY 1, 1980
SORT OPTION SPECIFIED: BATCH
U3
C
ft)
NUMBER
NUMBER
OF RECORDS READ:
UF RECORDS "R1TTEN:
OF OIAGNuSTIC MESSAGES:
o
o
tn
o
CO
o>
fD
o
C
<-t
•a
C
EJS/AS MASUR FILE FORMATTEU UOMP PRJUKAM - DIAGNOSTIC REPOR1
PAGE
PROGRAM NAME: CRPOUMP (ECoMO)
REVISION LEVEL: i-ou
LAST UPDATE «: A-I
DATE INCORPORATED: FEBRUARY 1, 1980
^OPTIONS
EFFECT: 55 LINES PER PAGE;
o RECUKUS SKIPPED;
ALL RECdRDS TU BE DUMPED
(D
•o* CRPDUMP OU3 CONDITIONAL - NfJ VALID LINE SPEC If J C All ON - DEFAULT UF 55 AbSUMEl'
«** CKPDUMP oo« CONDITIONAL - NO VALID VALUE SPECIFIED FOR NU^ER OF RECORDS TO OE SMPPED - OUMP STARTS A) FIRST RECORD
*** CRPDUMP 005 (.U'^DniONAL - No VALID VALUE SPECIFIED FUR NUMBER OF RECORDS TO BE DUMPED - ENURE FILE DUMPED
CO
NUMBER OF DESCRIPTION RECORDS DUMPED:
NUMBER OF CATEGORY RECORDS DUMPED:
NUMBER OF COMMENT RECORDS (JUMPED:
TOTAL NUMBER UF RECORDS READ:
-------
MASTt" FJLK l-rihfMATlFD
PAC.E
>=0 LINE/«=000 HATrn=u
AJRXRSIJ= 5Mb» = &Pt.A= MJXACI= DLTXIl)= HSE/YR= PRJDXYRs
WUPLXK'IH/j = PuPul = AOCRXN"= SUHAlXTtCHMuXCD= SUBALXTFCHNOXHESCs DEFNDXAREAXCU=
SUt FtlkXCOnTE'JIS: lAfcTHWAriXCriALr , ti I THMNSXCOAI. = 1 0, UI ST JI LTX011 =02, KF SI DXUI L = 1 fi ) ASHXCONTF.NTS: f AN I HK ACTXCOALs , 131 TUMNoXCOAl =091 )
UT": (7U.")fc= ,HUPJ7= ,VEHT= ) STu: (ZnwF= ,hOkTZ= ,VtRT= ) 6TH; (7UNt= ,HUPJ7 =
SUI'HttXl YKFr LFNCI MX AwFA = LF MR 1 HX AKFAXUN 1 Tb /C'lUF. = S I P/E S T I » A 1 F5 : (TSP=01hOO, Sn2 = OUUO, l
CO
— 1
1— '
o
1
0
o
3
rt-
3
C
ro
Q.
•
CO
o>
•a
o
c
c
j-4-
AOCH = 20« RfcCXTY°E = CA C A I EGP Y XL)ESC=**E 1 DUTY GAS VErl RURAL HD
N'l)W= »DEC= ) HhSXDE"xnAY= DAYSXPFHX«K= wtbXPF^X YP =
NITUGXts SULFXXr ASMXX= HEAfXCCINTs UNIFPMXHRL
PULLX10 FMIS/FACTW
11101 OQ00001363
42101 0000001363
02401 OOOOOUOIRU
U2kO? 00000043^0
43101
STATE=4? CO
"P SO'JRCt/TYPF= LFN
EISXFI liXl=S F1SXFLGX?=S
EFXChiFXPlNG EFXSKCXCo EFxOKlG POLL XSPCXD AT A
0 F
(i F
(1 F
0 F
Xn=032 OISAGGKX»=00 RETOP
Y»XnFXINFn= PRCSSXRATE=
fJAN= ,FEfl= ,MA«r ,APH= ,
TMPUP1 X«ATIu= MAXXHRLYXT
YXTMRUP7= MRLYXTHRUPTXX: (
7XCO"**=
EISXFLGX3=S F1SXFLGX4=S NE
WEOSXA7Xt"IS POLLXNAME
SUSPENDED PART.
SUSPENDED PART.
SULFUR DIOXIDE
N nxiors
HYDKOC ARROWS
OXTYPEX(KEY)=1 L1NEX»=000 3ATCh=0
CATECKYXAD.J= UNITSXCO=
MAY= ,JUN= ,JIIL= ,AUG= ,SEP= ,OCT =
MRUP1= DAlAXCtlNFIOFNCEXRATNG=
INFOXSOURCEXCODEs
OSXFLG = S NEDSXA7XFLG=b "XPULLsO1;
E1SXFLGX5 EMTSXES1 CONF/RTNG "XXHrtL YXE»«S
C 0000033 0
C 0000033 0
C 0000004 «
C OOOOJ07 0 - - -
S 0000000 0
ii'iuXCn= SI'BALXl ECHN(3XDESC= l)EFNUXA9EAXro =
1ST; (7u*lt= ,H()PJ7= ,VF.RT= ) 2Nu: (ZONF= »MOHI^= ,V£R1= ) TKD: (7UN£= ,HURI7.= ,vFWTr )
4TH; (7UNE= ,^0?!?= ,VFHT= ) bTn: (ZHNE= ,HOKIi= fV£RT= ) MN; (70NE= ,WURI7= .v^HTr )
f:jHXAwFA= LF nGTHXAKFAXUNl TSXCOOE= SI PXE S I I * A 1 FS : (TSP = 01100, SO^roSOO, wnx = 9?00, HC = 11100, C" = S7300)
to
n>
r S
w ** POLLXID POLLXNA"t
*. UZUO\ SULFIIK
U2101
CO
A T T N^ivlTXS ) A 1 lib A<5M4/« F J SxFLCJXCHnx7 ** PiJLLXJH
D S ** 43101
I' S «* Hinj
uxjnts u s **
(L1"XACCS=
= S ) axPUI-LsOl
PULLXNAMF
riYUPUCAPUONS
PARTICULARS
ATTNMMXSTATUS AUMAXff E I S/FL GXCRDX7
U S
U S
*«
**
**
**
-------
EIS/AS Test 11 - Ad Hoc
Generate All Non-Abortive Error Messages of the Emission Factor File
Edit-Maintenance Program
In this test run, all non-abortive error messages of CEMEFAC (EC0020) are
generated using the cataloged procedure ECEME10 which executes CSREFTR
(EC0010), the emission factor file transaction sort program; and CEMEFAC
(EC0020), the emission factor file edit-maintenance program.
Specially coded emission factor transactions are used to generate the
error messages of CEMEFAC (EC0020). These transactions are sorted by CSREFTR
(EC0010) into the sequence required by CEMEFAC (EC0020). See Test 1 for a
discussion of CSREFTR (EC0010) and CEMEFAC (EC0020).
The run stream for this test run contains the JCL needed to update the
test emission factor file created in Test 1 with the specially coded emission
factor file transactions which cause the error messages to be generated. This
run stream is shown in Figure AST11-1.
Substitutable parameters are used in the run stream to supply the names
of the input and output emission factor files. The names are ECEMFL1 (created
in Test 1) and ECEMFL2, respectively. The DO (data definition) information
for the input transactions and the option card file is supplied at the end of
the run stream.
The FLAGW and LIST options are purposely specified incorrectly so that
messages 3 and 4 will be generated. Since there are no warning messages
contained in CEMEFAC (EC0020), the default of NOFLAGW (indicated by message 3)
will not impede the purpose of this test. Error messages 1, 2, 6, 7, 9, 28,
'30, and 36 are not generated since they are abortive in nature. Sample output
produced by this run stream is shown in Figure AST11-2.
152
-------
I jntt . rACunuuijNfi INFU)
//*
//* PEKlE"ATt ALL NDN-ABUPITVF FH»L)P "ESSAiiFS UF THF
//* FMSSinin. hACTU" Flit EDI T-MAI NTENANCF
//*
//TLSII1A FXFC tCtMLlO,
//*
//* Fun iRAMSACJinwR nhicH HAVE BEEN SPECIALLY
//* CUOLn TO GFuFKATF TMF EHR(JW MESSAGES OF
//* CE1EFAT (Er.000?0)
//»
//sum . INPUT on *
STCrgTYSURAI CATOJ YYODU ?l)
0000000000011 10nai»PlJLint>»>l?JFMlSSFACTHC ?A
061b7777711 1?2 771?3 1«
122 77l?3 1A
! 133 77123 1C
//UPDATE. (JPTIUMS OH *
«Uf>0? FL»GR LAST
Figure AST11-1. Run Stream
153
-------
EIS/AS EMISSION FAClUK FILt THAMbACTIOU SIIK.T HKUGHAM - DIAGNOSTIC KtPuKT PAGL
PKOr.KAM NAKit: CbWEKTH (kCUUlO)
KtVlSlUN LhtftL: 1-00
LAST UPDATt »: «-l
DATt KJCORPOkATED: FEHKUAhY 1, 1980
OF INPUT TKANSACT JONS: . 12
OF UUTHUT 1 K ANS AC T 1 ONS : 13
OQ
C
ro
I
i-1 ro
tn •
oo
CD
•a
n>
o
•o
c
n>
o
-h
CO
-------
EIS/AS tMlSSlUN
MLt hL> I T -~IA 1 N H N ANC t PKUC.KAK - DIAGNOSTIC REPORT
HAGt
A". l.'AMt : CtMf-FAC (hCUbi'O)
REVISION LtVtL: l-l'O
LAST UHOAH •: A-l
OAIt INCURPURATtD: FEBRUARY 1, 19»0
c
n>
Co
UP1 IllH CARD
80005 FLAtG LAbl
eooos FLAGG LAST
*** CEMEFAC 003 CONDITIONAL - FLAGrt OPTION INVALID, USED DEFAULT UF NUFLAGr,
«*« CErttFAC 000 CONDITIONAL - LIST OPTION INVALID, USED DEFAULT OF NOL1ST
CONTROL DATE IS 80005, ERROR OPTION IS NUKLAGw, LIST OPTION IS NOUS1
I
ro
01
en
n>
CL
CO
fu
n>
o
-a
O)
ro
ro
STCNTYSUBALCA1DI
YYODD
20
* **
* * *
***
***
* **
*«*
* **
CEMtFAC
CEMEFAC
CEMtFAC
CEMtFAC
CEMtFAC
CEMEFAC
CEMEFAC
03«
005
OOB
010
Oil
023
012
ERROR
ERRO"
bRRUR
ERROR
ERROR
ERROR
ERROR
- ACTION
- COLUMN
- COLUMN
- COLUMN
- COLUMN
- COLUMN
- COLUMN
CODE IrtCOMPATlULE "ITH CAKD TYPE - CARD REJECTED
1,
3,
7,
12,
IS,
21,
00000000000 111 000 oPOL 1 0661 23E "I SSFACTRC
*«*
** *
***
***
«*«
* **
06l2bOOn00000300F 79297
***
11222233333uu<4b5 6bl23 1!
**«
»**
CEMEFAC
CEMEFAC
CEMtFAC
CEMEFAC
CEMEFAC
CEMtFAC
CtMEFAC
11222333
CEMEFAl
CEMEFAC
0?u
037
031
019
013
032
020
017
016
ERROH
ERROw
ERROR
ERROR
ERROR
EKSGK
ERROR
EKHllh
tKHOR
- COLUMN
- COLUMN
- COLUMN
- COLUMN
- COLUMN
- COLUMN
17,
17,
1H,
19,
2v,
39,
- ADD SPECIF
- COLUMN
- COLUMN
79,
HO,
STATE INVALID - CARD REJECTED
COUNTY N01 NUMERIC - CARD REJECTED
SU6ALLOCAT1UN NOT NUMtKlC - CARD REJECTED
CAIE&OHY NOT NUMERIC - CARD REJECTED
DISAGGREGAI10N NOT NUMERIC - CAKD REJECTED
EIS/AS DATE INVALID - CARD REJECTED
3A
EF URIGIN INVALID - CARD REJECTED
EF ORIGIN MUST HE F FOR NEDS CATEGORY - CARD
I.W4LID EF SOURCE TYPE -CARD REJECTED
POLLUTANT ID INVALID - CARD REJECTED
EMISSION FACTOR NOT NUMERIC - CAKD REJECTED
EF CONFIDENCE LEVEL INVALID - CAKU REJECTED
1A
REJECTED
IED FOR EXISTING EIS/AS EMF RECORD - CAKD REJECTED
«H
CAKD TYPE INVALID - CARD REJECTED
AC1ION CODE INVALID - CARD HEJECTtD
11222233333UUI4S5
6tl2i 111222333
•«« CEMEFAt 027 ERROR
«*« CEMtFAC 02S ERROR
1A
MTnO&EN FLAG MUST bt N 10 HAVt NITROGEN CUNTtNT - CARD REJECTED
ASH FLAG MUST bE A TO HAVE ASH CONTENT PRESENT - CAKU REJECTED
-------
Fii.t til T-^iNit'i.ANci- Mur-o^A* - nj BI.NLSI )c KFPCKT PAGL
»•* CFMFHAC 0?b L«KO - SULFUK F|_Ab *IIST Bt S If HVt SliLFlM CU*UNT - C«Rt) KFJfCTf
I 122223333 WI55 oM?3
• ** l.Fl>.FF«C 01* tRHr.H - COL''*"" 3^1, ^^TKnGF^ LOVTtM NO I NLcEwlC - C«KH PtJtCIFD
**« UFl^FMC Cl« frtCK - COl !'»•>• ^o, AS" CL^IPNT NCI NO^E"1C -
• «« CEi'FFAC 0)S tWfTh - ClLliNN ''b, SUI Hlh cruTt'-T -.T]
?M
«.. CFMFF4C O^ tPKTK - TYPF-5 son SPFCTFItT POP H.N
T«
-J *** CFMFFAC 073 fct-KTH - AHu UF PuLLHlANT SkF.CIFTt^ FUR ^C^fcXlSlF^^ CATEGuRt - C»«n PtJtClEU
fD
3> S56t>fc677777n 122 77l?3 11)
C/1 *»* CFKFFAC 0?2 ERKTh - UFLE1F SPFCIfltn FCP ^O^tXlS^FN^ EIS/AS h"F HFCCkn - CA»L> KFJFCTfcD
I—*
*-• 55f>666777771 1122 77133 1«
^ *** CEKFFAC 02S EC«CK - UIIH KATE AOD (RAKSACTKN - C«KP FhJECIFC
1 5bb66fa7777711 133 77123 . 1C
O *** CE^FFAC 021 EFRCh - CHF HFcrwn - CA»l) HFJECTEH
O
I-* 3
U1 r+
CTi -•• NUMbEK CF ThAMSACTIONS HEAD: U
§ NUWBEK CF FHPQRS OEIECTEO: 2V
0) NU"HFK tF HABNINGS UETFCTfcC: 0
p- NU«BFH CF TKANSACTIONS REJECTED: 11
NU"6FH CF EMISSION FACTOR FILE kFCOwns KFAO: f-P2
NUMBFh OF F^ISSITN FACTO" FILE fiFCnpns ^RITTFN: 663
co
cu
3
"2, PROGPA*' NA^E: CE^EFflC (ECOC20)
(B REVISION LFVFL: i-no
LAST UPDATE »: A-l
C P«TE If'COKPOPATfcn: FFBRU"hY 1, 19HP
rl-
"O •-"^
c -u
r+ (D
tr>
0>
co
O
-h
CO
-------
EIS/AS Test 12 - Ad Hoc
Generate All Non-Abortive Error Messages of the Master File Transaction Edit
Program
In this test run, all non-abortive error messages of CEDMSTR (EC0040) are
generated using the cataloged procedure ECEDT10 which executes CEDMSTR
(EC0040), the master file transaction edit program.
Specially coded master file transactions are used to generate the error
messages of CEDMSTR (EC0040). See EIS/AS Test 3 for a discussion of CEDMSTR
(EC0040).
The run stream for this test run contains the JCL needed to edit master
file transactions and create a file containing master file internal
transactions. The specially coded master file transactions are also contained
in the run stream which is shown in Figure AST12-1.
A substitutable parameter is used to supply a name for the internal
transaction file output from CEDMSTR (EC0040). The name of this file is
ECINTR3. The DD (data definition) information for the input transaction file
and the option card file is also supplied in the run stream.
The LIST option is misspelled on the option card in order to generate
message 4 which indicates that a default of NOLIST is assumed by the program.
The FLAGW option is specified so that the warning messages will not be
suppressed, therefore, message 3 (which indicates a default of NOFLAGW) will
not be generated in this test. Error messages 1, 2, and 144 are not generated
since they are abortive in nature. Sample output produced by this run stream
is shown in Figure AST12-2.
157
-------
x/*sTtsii2 JMH
//*
//• HtNEPATt ALL NON-ABU»ITVF FHPU" »"ESSAGFi> OF THF MAS1FK FTLF
//* TRANSACTION EOI1 HPUHKAM
/*
//Ttsii£A FXFC Ettniio,
//*
//* FUTT KASTfc" FILE I " ANS4LT]f)NS SPFCTALLY
//* TU GFNEKAIE TM^ FHRuP MtSSAGFS UF CtHMSIR
//*
//FOfT.lNPUr l>0 *
StCNtVAUC CHta
11?a?2iaTSUBAL NON-bt ANK FItLDS I G 1 0
)1000022?y011 lYYDUDbSNSKSA YHPYPPCG1C
UOOOOia^OnoOOPUPULATN Sii?C
1 1000012TOOOOOS1 nArSAbflSDS'»AACAbCZlMR21 VFKT 1 72HH?2VE»1 ? CG3C
1 1000012^l)000073HKZ3VERT^Z«HPZOVFHT«ZSHK75VEPT526HPZ6VFI»UC CGOC
U 00001250000 (I TSPESS02FNOXFHCESTCUFST CGSC
11 000012^00000 PLVFHRASHVYRASHVYOSLLIMACCrtUfiALRSI»bH><9UPBANRO TG6C
11000012500000PLIUI » PLIO? * CG7C
11000012^0000011101 MUM-BLAKK FIELDS 03101 NUN-BLANK FIELDS CG?O
110000123 IMOA
110Q00123 NOM-BLANK FIELDS ivoo
1 lOOOOia^OOOOOC ATAR YRPKncESSHTCAIFGAOlIC CA1C
11000012^000001 1100MTHPUPUT PERCENTAGES ?5853RT 1OHRL Y 1 HrtPUT NJTSUASH CA?A
110000123000001110" CA?A
1 10000123000001 1 1 OOHTHRUPUT PE»CFNtAf;ES TAJA
1 10000123000001 1 1 Of CA3A
1 10Q001 23000001 1 lOnPHuIDEMJSSMCTrt 0* A7E"1SS CA5A
1 10000123000"01 1 1 0«a3101 A CASA
U0000123u000011100«3101 R CASC
110000123000001110011101 NOiv-bLANK FIELDS CA50
1 10000123000001 1 1 AC,LJN NON-bLANK FIELDS k?0
11000012300000BS CU1A
iiooooi23oooooiiioo NUN-RLANK FIFLDS roiu
1100001230000078 2 1 7 1 1 1 5 1 2S 1 2S1 1 SO? V^SSB 1 0 1 R02«'933S2<' TL.3C
11 0000123000001 t*0200320001201S0390002oni 00100001 1 005030000 Cb'iC
t inooni2300oOol 1 1 01 S «i10l S CC-vc
1 10000123000001 1 100IM01MP02030UOS060708'191 0UP C CA?A
1 1 00^0123000001 11 OOY C CA?C
ll^OOOl 23000001 11 00^0 10203HPO
-------
EIS/AS IRANSACTJDN tOIl PROGRAM - DIAGNOSTIC REPORT
PAGE 1
PROGRAM NAME: CEDMSTR (ECOb<40)
REVISION LEVEL: 1-00
LAST UPDATE »: A-I
DATE INCORPORATED: FEBRUARY 1, 19BO
OPTIONS IN EFFECT: CONTROL YEAR bO FLAG*
NULIS1
(DEFAULT)
««* CEDWSTR 001 CONDITIONAL - bL*NK OR INVALID LIST OP1IUN, ASSUMING NULIS1
cn
UD
c
-s
ro
co
PO
i
r\>
GO
QJ
3
O
c
cl-
-o
ft-
STCNTYAQC
BEB EH E
**
* *
**
* *
• *
»*
CEDMSTR
CEDMSTR
CEOMSTR
CEDMSTR
CEDMSTR
CEOMSTR
005
009
010
Oil
006
006
ERROR
ERROR
ERROK
ERRilR
ERROR
ERROR
- COLUMN
- COLUMN
- COLUMN
- COLUMN
- CULUMN
- COLUMN
60
01
03
07
78
79
112222123SUBAL NON-BLANK FIELDS
b E6
«*« CtUMSTR 007 tHROH
«** CEDHSTR 012 ERROR
*** CEDMSTR 022 ERROR
1100002220011 IYYDDDBSNSMSA
ate ea EB L
**« CEOMS1R 013 ERROR
*«* CEDMSTR 015 ERROR
«** CEDMSTR 030 ERROR
**• CEOMSTR 031 ERROR
««* CEOKS1R 032 ERROK
•** CEDMSTR 033 ERROR
*«» CEDMSTR 03<< ERROR
«*« CEDMSTR 03S ERROR
CHP
Bbti
- INVALID ACTION CODE, CARD REJECTED
- INVALID STATE CODE, CAKD REJECTED
- INVALID CUUNIY CODE, CARD REJECTED
- INVALID AUCR, CAKD REJECTED
- INVALID, CARD REJECTED
- INVALIU CARD NUM«EK, CARD REJECTED
LG1D
Efl
COLUMN 77 - INVALID SUBALLOCATION TYPE, CARD REJECTED
COLUMN 10 - INVALID SOHALLUCATION NUMBER, CARD REJECTED
COLUMNS lb-76 UuT bLANR FOR DESCRIPTION DELETE, CAKD REJECTED
REF:
COUNTY
CULUMU
COLUHN
COLUMN
COLUMN
COLUMN
CULUMN
YRPYPPCG1C
rtEbEHE
WITH NONZERO SUBALLOCATION NUMBER, CARD REJECTED
is - INVALIU YEAR OF RECORD, CARD REJECTED
17 - INVALID DAY, REPLACING SPACES
20 - INVALIU AIR BASIN, REPLACING SPACES
23 - INVALID SHSA, REPLACING SPACES
71 - INVALID SIP BASE YEAR, REPLACING SPACES
73 - INVALID PROJECTED YEAR, REPLACING SPACES
75 - INVALID i RURAL, REPLACING SHACES
KEF:
REF:
0)
11000012300000PUPIILATN SG2C
b £
«*» CEDMSTR 011 ERROR - SUBCUUNTY WITH ZERO SUBALLUCAT ION NUMDER, CARD REJECIED
»** CEDMSTR 036 ERROR - CULUMN 15 - INVALID POPULATION, REPLACING SPACES
•** CEDMSTK 1
-------
EJS/AS> THANSACT10H EDI1 PKObKAM - UJAGNOS11L REPOR1
PAGE
** CEDMSTR 055 ERROR - COLUMN 60 - UTM VERTICAL i INVALID, KIPLACING SPACES
** CEDMMR 057 ERROR - COLUMN 65 - UTM /Qr«f 2 INVALID, KEPLAClNU SPACES
** CEOMSTK 059 ERROR - COLUMN 67 - UTM HOKlZONTAL 2 INVALID, REPLACING SPACES
** CEDMSTR 061 EKROR - COLUMN 71 - UTM VERTICAL 2 INVALID, REPLACING SPACES
** CEDMSTR 1U3 ERROR r ALL NoN-KET FIELDS CONJAlN SPACES, CARD REJECTED
1 1 0000 12300000ZiHRZ3VER13Z«HRZ<» VERT 4Z5HftZ5VEKT5Z6H«ZfcvEKf6SLNGTHAKUC
CG«C
REF:
in
-5
0)
GO
I
ro
o
"-• 3
rt-
O -".
tt>
a.
GO
Cu
3
•a
ro
o
el-
ft*
**
*»
*
*
*
ft
*
*
ft
*
*
*
*
ft
ft
BEB EH
CEDMSIR
CEDMSlrt
CEDMSTR
CEDMSTR
CEDMSTR
CEDMSTK
CEDMSTK
CEDMSTR
CEDMSTR
CEDMSTR
CEDMSTR
CfcDMSIK
CEDMSTR
CEDMSTR
CEDMSTR
CEDMSTR
EBEB EB
063
065
067
069
071
073
075
077
079
081
083
085
087
08b
089
113
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
EKROR
ERROR
ERROR
ERROR
ERROR
ERRO*
ERROR
ERROR
ERROR
ERROR
-
-
-
-
-
-
-
-
-
-
_
-
-
-
-
EbEb
COLOMH
COLUMN
COLUMN
COLUMN
COLUKN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
EB
15
17
21
26
26
32
37
39
U3
a8
50
51
59
60
67
-
-
-
-
-
-
-
-
-
-
_
-
-
-
-
- ALL NUN-KEY
11 0000 13300000 I SPESS02ENOXEMCESTCOEST
EBEt* Eb Etlrt EoE
UTM ZONE 3 INVALID, KEPLACING SPACES
UTM HUHjzoiMfAL 3 INVALID, WEPLACING SPACES
UTM VERTICAL 3 INVALID, REPLACING SPACES
UTM ZOUE
ro
o
-b
ui
11000012300000
BH Eb Eh Eb Eh
*** CEDMSTK 095 EKRilR - COLUMN 16 -
**« CEDMSTR 096 EKKOR - COLUMN 17 -
*** CtDMSTR 097 EKROR - COLUMN 24 -
ft** CEDMSTR 098 ERROR - COLUMN JO -
«** CtOfSTR 099 tKROR - COLUMN 36 -
*** CEDMSTR 100 ERROR - COLUMN «2 -
*** CEOfcSTS 101 ERROR - COLUMN «8 -
*** CEDr-STR 102 ERROR - COLUMN 51 -
*** CEDMSTR i«3 ERROR - ALL NUN-KEY
CGbC
Eo EH E
POPULATION CODE INVALID, REPLACING SPACE
LlGhi VEHICLES-GAS INVALID, REPLACING SPACES
HEAVY VEHICLES-GAS INVALID, KEPLACING SPACES
HEAVY VEHICLES-DIESEL INVALID, REPLACING SPACES
LiMHE!' ACCESS RUADS INVALID, REPLACING SPACES
KUKAL KllADS INVALID, REPLACING SPACES
SUBURBAN ROADS INVALID, REPLACING SPACES
URBAN ROADS INVALID, REPLACING SPACES
FIELDS CONTAIN SPACES, CARD REJECTED
REF:
11000012300000PLID1
b E
* PL1U2 * CG7C
HUE h
*** CEDMSTR 103 ERROR - COLUMN 15 - POLLUIAuT ID 1 INVALID, POLLUTANT 1 REJEC1ED
*** CEDMSTR 105 WARDING - COLUMN 35 - REPLACING ATTAINMENT S1ATUS 1 nlTH u
*** CEDMSTR 106 EHRr.R - COLUMN «3 - POLLUTANT ID 2 INVALID, PtiLLUlANT 2 REJECTED
*** CEL'MSTR 108 WARNING - COLUMN h3 - REPLACING ATTAINMENT STATUS 2 «ITH u
«** CEDMSTR 1«3 ERROR - ALL NOr.-KEY FIELDS CONTAIN SPACES, CAHD REJECTED
REF:
-------
E1S/A3 TRANSACTION EOI1 PROGRAM - DIAGNOSTIC REPOR1
1100001230000011101 NON-BLANK FIELDS 15101 NUN-BLANK FIELDS cr,7i>
B EH E '
**« CEDMSTR 023 ERROR - CULS 20-01 NOT HLANK FOR DESCRIPTION PULLUTANT DELETE, CULS 15-
110000123 NON-dLANH FIELDS NOD
H E
*** CEOMSTR 0?7 EHRUR - COLUMNS 10-77 N01 BLANK FOR NEDS COMMENT DELETE, CARD REJECTED
REF: 12
CO
ro
i
ro
o
o
rt-
_j*
3
C
n>
o.
oo
fu
•a
o
c+
•a
c
I1000012300000CATAG
B E
*« CEOMSTR 017 ERROR
«* CEDMStH 019 ERKOH
•* CEDMbTR 109 ERROR
»* CEDMS1R 110 ERROR
«* CEDMSTH 111 ERROR
«*» CEDMSTR 112 EKROR
YRPROCESSRTCATEGAOUC CA1C
BEB EB EBE
COLUMN IS - CAIEGORY NUMBER INVALID, CARD REJECTED
AGGREGATE TRANSACTION MlTri NONZERO DISAGGREGATE I.UhbER, CARD REJECTED
COLUMN «b - YEAR OF INFORMATION INVALID, REPLACING SPACES
COLUMN «7 - PROCESS RATE INVALID, REPLACING SPACES
COLUMN 5t> - CAIEGuKY ADJUST INVALID, REPLACING SPACES
COLUMN 63 - UNITS CODE INVALID, REPLACING SPACES
REF: 13
*** CEDMSTR i«3 ERROR - ALL NOW-KEY FIELDS CUNFAIM SPACES, CARD REJECTED
11 000012300000111OOMThRUPUT PENCE.STAGES
BH
«** CEDMSTft 113 ERROR - COLUMN 20 -
«** CEOMSTR 115 ERROR - COLUMN 21 -
** CEDMSTR 116 ERROR - COLUMN US -
»* CEDMSTR 119 ERROR - COLUMN «7 -
** CEOMSTR 120 ERROR - COLUMN ne -
«* CEDMSTR 121 ERROR - COLUMN 50 -
»* CEDMSTR 122 ERROR - COLUMN, So -
•« CEDMSTR 123 WARNING - COLUMN 60
** CEOMSTR 126 EKRUR - COLUMN e>5 -
»* CEDMStR 127 EriRUK - COLUM* 68 -
*** CEDMSTR 12« ERROR - COLUMN 7o -
25853RI1UHRLYfHRPOT NITSUASH CA2A
EBEBBEb EB EBB EBEB E
UNIFORM MONTHLY INDICATOR INVALID, REPLACING *ITH Y
MONTHLY THrtUPUT XS WITH Y INDICATOR, REPLACING UNIFORM XS
MRS/DAY INVALIU, REPLACING SPACES
DAYS/WN INVALID, REPLACING SPACE
WKS/YR INVALID, REPLACING SPACES
RATIO Of THUUPUT INVALID, REPLACING SPACES
MAX HOURLY THRUPUT INVALID, REPLACING SPACES
- REPLACING DATA CONFIDENCE RATING nlTH ZERO
X NITROGEN 1MVALIO, REPLACING SPACES
x SULFUR INVALID, REPLACING SPACES
X ASH INVALIU, REPLACING SPACES
REF: 10
-o
CD
(a
n>
co
o
-h
en
110000123000001110U CA2A
b B
»** CEOMSTR 110 nAki.ING - COLUMN So - UNIFORM MONTHLY INDICATOR BLANK, ASSUMING Y
«** CEDMSTR 123 rtARnING - COLUMN &u - REPLACING DATA CUNFIDENCfc RATING KITH ZERO
11000012300000111OOHTHRtJPUT PERCENTAGES
CA3A
REF: IS
REF: 16
*** CEUMSTR 129 ERROR - COLUMN 20 - UNIFORM HOURLY FHRUPUT INDICATOR INVALID, REPLACING wlfH Y
*** CEDMSTR 131 ERROR - COLllKiv 21 - HOURLY THKUPUJ XS WITH Y INDICATOR, REPLACING UNIFORM XS
1 10000123000U011100
CA3A
HEF: 17
«*« CEO"STR 130 WARNING - COLUMN 21) - UNJKjHM HOURLY THRUPUT INDICATOR BLANK, ASSUMING Y
-------
E1S/AS TKftt.SACTIlJ'v EDIT PROGRAM - OIAGNUSI1C REPORT
1100001230000011100POLIDEMISSFACTR U»
A7EMISS
CAbA
PAGt U
KEF: 18
««« CEDMSTH
*** CEOMSTH
*«* CfcDMSTR
*** CEUMSTR
«*« CEOMSTR
»*« CEDnSTR
EB
EHBB
134 ERROR - COLUMN 20 - POLLUIANT ID INVALID, CARD REJECTED
13b ERROR - COLUMN 2b - EMISSION FACTow INVALID, REPLACING SPACES
136 ftARNlNG - COLUMN 3b - REPLACING EMISSION FACTOR CONFIDENCE RATING hITM ZERO
13"? ERROR - COLUMN 36 - EMISSION FACTuK ORIGIN INVALID, REPLACING SPACE
1«IO ERROR - ClILUMN 37 - fcMJSSlUN FACI'Jr SOURCE CODE INVALID, REPLACING SPACE
141 ERRG* - CULOMN 46 - NEDS AV Emission INVALID, REPLACING SPACES
110000123U00001110043101
(Tl
ro
in
c
-5
n>
GO
—I
I—"
ro
ro
o
o
ro
a.
CAbA
«** CEDMSTK 137 EKKUW - COLUMN 3b - EMISSION FACIUK CDNF1DENCE RAIING INVALID, REPLACING ZERO
110000123000001110003101
CA5C
*** CEDMSTK 138 ERROR - COLUMN 3b - EMISSION FAClOK CONFIDENCE RATING INVALID, REPLACING SPACE
110000123000001110011101 NON-BLANK FIELDS CA5D
B E
*»• CEDMSTR 026 EKROft - COLUMNS 25-7O NOT BLANK FOW CATEGORY PULLUIAN? DtLfcTE, CARD REJECTED
11000012300000111AGLIN NON-BLANK FIELDS
R2D
REF:
REF:
REF:
REF:
20
21
22
B£B EB E b
*** CEDMSTR 016 ERROR - COLUMN 18 - DISAGGREGATE NUMbER INVALID, CARU REJECTED
**« CEOMSTR 021 ERKOK - COLUMN 2u - LINE NUMBER INVALID, CARD REJECTED
*•* CEDMSTR 026 ERROR - COLUMNS 23-77 NUT BLANK FuR EIS/AS CUMMENI DELETE, CARD REJECTED
««« CEDMSTR 02
•a
o
r+
T3
c
Ct
110000123000008S CG1A
BE
««* CEDMS1R 016 ERROR - COLUMN 15 - YEAR OF RECORD GREATER THAN YEAR UN OPTION CARD, CARD REJECTED
1100001230000011100 NUN-BLANK FIELDS CD1D
B E
«** CEUMSIR 020 ERROR - OISAGGRtGAlE TRANSACTION *1!H ZERO DISAGGREGATE NUMBER, CARD REJECTEO
««* CEOrtSTR 02b ERROR - COLUMNS 20-76 NuT OLttNK Fuk CATEGORY DtLtU, CARD REJECTED
QJ
t^)
fD
-P.
o
-------
EI3/AS TRANSACTION tOIT PROGRAM - DIAGNOSTIC
tQ
c
n>
co
i—•
ro
ro
i
o
o
(-« 3
CT> r+
CO ->•
(D
Q.
CO
Q)
TJ
O)
O
11 0000 1230000019020032000120150390002001 0040000110U5030000
BEB EB
*•* CEDMSTR
CEDMSTR
CEOMSTR
CEOMSIR
CEDMSTK
CEDMSTR
CEOMSTR
CEDMSTR
CEDMSTK
CEDMSTK
CED"STrf
CEDMSTR
1100001230000011101
EBEB EH Eb£H
064 CONDITIONAL -
Obb CONDITIONAL -
068 CONDITIONAL -
070 CONDITIONAL -
072 CONDITIONAL -
074 CONDITIONAL -
076 CONDITIONAL -
078 CONDITIONAL -
080 CONDITIONAL -
082 CONDITIONAL -
Ofl4 CONDITIUNAL -
086 CONDITIUNAL -
Ett
COLUMN
COLUMN
COLUMN
COLUMN
COLKK!,
COLUMN
COLUMN
COLUMN
COLUKN
COLUMN
COLUM™
CULUMN
tHEH
15
17
21
2b
28
32
37
39
43
48
5«
54
-
Eh
UTM
UTM
UTM
UTM
UTM
OfM
UTM
UTM
UTM
UTM
UIM
UT*
E
ZONE 3 UUT
hukizuNi AL
VERTICAL 1
ZONE 4 our
MUKIZUWT AL
VERTICAL 4
ZONE 5 JUT
HOiklZOKTAL
VERTICAL «>
ZUNE 6 UOT
HORIZONTAL.
VERTICAL 6
CG4C
OF HANGE
3 OUT OF RANGE
OUT OF MANGE
OF RANGE
0 UU1 OF RANGE
OUT UF RANGE
UF KANGE
5 OUl uK KAc\!GE
OUT OF RAiJGE
OF RANGE
* OUT OF HANGE
OUT OF RA.4GE
CG7C
HAGE 5
REF: 26
S 43101 S
0 ti
*»• CEOKSTR iou ERROH - COLUMN ss - ATTAINMENT STATUS i INVALID, REPLACING WITH u
*«* CEDMSTR 107 ERROR - COLUMN 63 - ATTAINMENT STATUS 2 INVALIU, REPLACING nITH U
1100001230000011100N01MP020304050607080910HP C
BE BE 0
«•* CEDMSTR 116 ERROR - COLUMN 23 - FEB TMRUPuT
**• CEDMSTR 116 ERROR - COLUMN 43 - DEC TMRUPUT
**« CEOMSTR 117 ERROR - SUM UF MONTHLY THRUPU1 XS INVALID,
CA2A
INVALID, REPLACING nllh ZERO
INVALID, REPLACING *ITH ZERO
REPLACING »/ UNIFORM THKUPUTS
REF: 27
«EF:
**« CEOMSTR 124 ERROS - COLUMN 64 - DATA CONFIDENCE RATING INVALID, REPLACING /ERO
1100001230000011100Y
CA2C
«** CEDMSTR 125 ERROR - COLUMN 6u - DATA CONFIDENCE RATING INVALID, REPLACING SPACE
110000123000001 1100N010203HP040506070BOVMP0102U30M0506070 1020 1020304 CAJU
BE BE
*«* CEOMSTR 132 ERROR - COLUMN 27 - HOUR 03 1HRUPU1 X INVALIU, REPLACING WITH ZERU
*** CEDMSTR 132 ERROR - CuLUMU 41 - MUUrt 10 THKUPUT X INVALID, REPLACING WITH ZEKu
•«• CEDMSTR 133 ERROR - SUM OF HRLY TrtRUPUT XS INVALID, REPLACING UNIFORM MRLY THRUPUTS
REF: 29
REF: 30
o>
en
NUMBER OF INPUT TRANSACTIONS: 30
NUMBER OF VALID TRANSACTIONS: 13
NUMBER OF REJECTED TRANSACTIONS: 17
NUMBER OF TRANSACTIONS MRITTEN: 13
NUMBER UF WARNING MESSAGES: H
NUMBER OF CONDITIONAL MESSAGES: 2S
NUMdER OF ERROR MESSAGES: 117
NUMBER OF ABORT MESSAGES: 0
NUMBER OF DISASTER MESSAGES: 0
PROGRAM NAME: CEDMSTR (ECOOuO)
REVISION LEVEL: 1-00
LAST UPDATE «: A-l
DATE INCORPORATED: FEBRUARY 1, 1980
-------
EIS/AS Test 13 - Ad Hoc
Generate All Non-Abortive Error Messages of the NEDS to EIS/AS Master File
Transaction Conversion-Edit Program
In this test run, all non-abortive error messages of CCENETR (EC0030) are
generated using the cataloged procedure ECCET10 which executes CCENETR
(EC0030), the NEDS to EIS/AS master file transaction conversion edit program.
Specially coded NEDS master file transactions are used to generate the
error messages of CCENETR (EC0030). These transactions are input to the
program in random order. See EIS/AS Test 2 for a discussion of CCENETR
(EC0030).
The run stream for this test run contains the JCL needed to convert NEDS
master file transactions to EIS/AS master file internal transactions.
The specially coded NEDS transactions are also included in the run stream.
This run stream is shown in Figure AST13-1.
A substitutable parameter is used to supply a name for the internal
transaction file output from CCENETR (EC0030). The name of this file is
ECINTR4. The DD (data definition) information for the input transaction file
and the option card file is also supplied in the run stream.
The FLAGW and LIST options are specified incorrectly on the option card
in order to generate messages 42 and 43 which indicate that defaults of
NOFLAGW and NOLIST, respectively, are assumed by the program. The default of
NOFLAGW will not impede the purpose of this test since there are no warning
messages issued by CCENETR (EC0030). Error messages 40 and 41 are not
generated since they are abortive in nature. Sample output produced by this
run stream is shown in Figure AST13-2.
164
-------
J JOB f ACt'lU'JTTNG INFO)
//*
//* GENERATE AIL NON-ARUM TVF FRRIJR VESSAGFS ClF TttF
//• TU tlb/AS MAS1FR FTLF TTRANSACT IflN CMN VE«S TU^-FOT T PROGRAM
//*
//TES113A FXEC ECCFI10,
// INTKTRNrFCIMKU
//*
//* FUIT NFOS MASTER F1LF TKANSAC T TUK'S SPtCIALLY CODFU TO
//« REMERATE THE EPRHH MFSSAGts np CCENETH CECOO^O)
//*
//ruNVFKT. INPUT nu *
STCNTYAOC BBO
AA2
AA3
l«ACCRURALRSUBURbURRANHDA 44
I/AAURbRNT/AURHTDAYFJRt:SAA5
1 l???212?aOSCTSPFSTS02ES>U)XESlHCESTlCOFSTIM AA7
//CQN'VFHT.OPT
BO f-LAGG LOST
Figure AST13-1. Run Stream
165
-------
NtDS TO E1S/AS CONVERSION-EDIT PROGRAM DIAGNOSTIC REPORT
PAGE
NA"E: CCENtTK (ECOOJO)
REVISION LtVtL: 1-00
LAST UPDATE #: A-l
DATE INCORPORATED: FEBRUAKY 1,
1980
IIP1 ION CARD
80 FLAGG LUST
*** CCENETR 002 CONDITIONAL - INVALID FLAG* UHTIUrt, DEFAULT OF NO FLAG* USED
td
c
n>
80 FLAGG LUST
*** CCENETR OU3 CONDITIONAL - INVALID LIST OPTION, DEFAULT OF NO LIST USED
CONTROL DATE IS 80 , ERROR OPT 1 On IS NOFLAGw, LIS1 OPTION IS NOL1S1
CD
co
co
i
ro
co
cu
•a
n>
o
c+
•a
c
&>
IQ
n>
S1CNTYAOC BnO
BErt Eb E S&6
CCENETW 085 ERHOH - COLUMN 01 - INVALID STATE-TXANSACT ION REJECTED
CCENETt* 086 EKKUH - COLUMN 03 - INVALID COUN T Y-T HANSAC T ION KEJtCTtO
CCENETS 087 ERROrt - CdLUMw 07 - INVALID AOCR-TKANSACT ION REJECTED
CCENETR 088 ERROR - COLUMN 76 - INVALID AC T 1UN-CUOE-THANSACT ION REJECTED
CCENETh 031 ERROR - COLUMN 79 - CARD IS NOT AREA SOURCE CARD-TRANSACTION REJECTED
CCtNETX 032 ERROR - COLUMN 80 - INVALID CARD NUMbER-TRANSA CTION REJECTED
1 l222ai23YYTSPESSU2ENOXEhCESlCOtSTSASfaSDSRAACABCRESACRESBCLRESDORESRRESNGRES».AAl
BEB Eb £8 EB Eo EHEHEHeBEb EB EB Eri EB EB EB EB E
1
CCENETR 073 ERRUR - COLUMN 10 - INVALID YEAR OF RECORD-FIELD REJECTED
CCENETR 07« ERROR - COLUMN 12 - INVALID SIP PAHTICULATE EMISSION ESTIMATE-FIELD REJECTED
CCENETR 075 ERROK - COLUMN 17 - JNVAulD SIH SO? EMISSION ESTIMATE-FIELD REJECTED
CCENETK 076 tRRUR - COLUMN 21 - INVALID SIP NOX EMISSION EST I MA T t-F I ELD REJECTED
CCENETH 077 ERROR - COLUMN 25 - INVALID SIP HC EMISSION ESTIMATE-FIELD REJECTED
CCENETR 078 EwkuR - COLUMN Ju - INVALID SIP CO EMISSION ESTIMATE-FIELD REJECTED
CCENETR 079 ERROR - COLUMN 3b - INVALID ANTHRACITE COAL SULFUR CONTENTS-FIELD REJECTED
CCENtTrl 080 ERROR - COLUMN 37 - INVALID BITUMINOUS COAL SULt-UR CONTENTS-FIELD REJECTED
CCENETR 081 ERROR - COLUMN 39 - INVALID DISTILLATE OIL SULFUR CONTENTS-FIELD REJECTED
CCENETR Ot>2 cRROH - COLUMN UJ - INVALID RESIDUAL OIL SULFUR CON IENI S-F 1ELD REJECTED
CCENETR 083 ERROR - COLUMN «J - INVALID ANlHRACITE COAL ASH CONTENTS-FIELD REJECTED
CCENETR 08U ERROR - COLUMN «t> - INVALID BITUMINOUS COAL ASH CONTENTS-FIELD REJECTED
CCENETR 001 ERROR - COLUMN UV - INVALID RESIDENTIAL ANTHRACITE COAL-FIELD REJECTED
> CCENETR 002 ERROR - COLUMN 5« - INVALID RESIDENTIAL BITUMINOUS CUAL-FJELD REJECTED
> CCENETR 003 ERROR - COLUMN 60 - INVALID RESIDENTIAL DISTILLATE OIL-FIELD REJECTED
-------
NEl'S 1U E1S/AS CONVERSION-EDIT PROGRAM DIAGNOSTIC
PAGE
«*• CCENETR ooa ERKUR - COLOMN bS - INVALID RESIDENTIAL RESIDUAL OIL-FIELD REJECTED
*«* CCt.nETR 005 ERROR - COLUMN b9 - INVALID RESIDEN1IAL NAlUKAL GAS-FIELD REJECTED
«•• CCENEIR 006 ERROR - CuLUMN 74 - INVALID RESIDENTIAL WOOD-FIELD REJECTED
J l2222123COMACCUM6CCOMDOCU«wOCUNGCWlNOSACINDSBCCOKEINm>OlNORUINI)NGIwC>INPG
AA2
CTi
b
-n
ua
c
(B *'
• l
*J *i
|
t— •
co
i
r\>
i
n
t B Eb
CCENETR
CtENhTK
CCENfcT*
CCfcNETK
CCENETR
> CCENt.TR
t CCENETR
t CCENETR
CCEiiETR
CCtNETK
CCENETR
CCENETR
CCENETR
CCtftE TR
EB
007
008
009
010
01 1
012
013
014
015
Olb
017
018
019
020
Eh
ERROR
ERROR
ERROR
ERWUR
ERROR
ERRllR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROK
EBEb
-
_
-
-
-
-
-
-
-
-
-
-
-
-
COLUMN
CULUMn
COLUMN
CULUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
Eh
10
15
20
25
30
34
36
42
4tt
52
57
62
67
70
-
.
-
-
-
-
-
-
_
_
-
-
-
-
Eb EH
INVAL ID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
Eh EB EH EB E
ClIMM/INST ANTHRACITE CUAL-FIELO REJECTED
CO*n/INST rtlTUMlNOUS ClIAL-FIELU REJECTED
COhM/lrtST DISTILLATE OIL-FIELD REJECTED
CllMM/JNST KESIUUAL OIL-FIELD REJECTED
CUMM/INS1 NAIURAL GAS-FIfcLO REJECTED
COMM/INST »OOD-FlELu REJECTED
INDUSTRIAL ANTHRACITE COAL-FIELD REJECTED
INDUSTRIAL BITUMINUUS COAL-FIELD REJECTED
INDUSTRIAL COKE-FIELD REJECTED
INDUSTRIAL DISTILLATE: OIL-FIELD REJECTED
INDUSTRIAL RESIDUAL OIL-FIELD REJECTED
INDUSTRIAL NATURAL GAS-FIELD REJECTED
INDUSTRIAL wOUO-FIELli REJECTED
INDUSTRIAL PROCESS GAS-FIELD REJECTED
§ ll22221231NCRtSINCININCCBRNRESHRNINDbRNCMLTVEHGSHVVEHGOFFHWYHVVEHOOFFHOOLLOCPAA3
ft1 B
3*
C
2.
co
fti
3
i
n>
o
c «
.,-j __ ^ <
EB EB
* CCENETR
* CCENETR
* CCENETR
* CCENETR
* CCENETR
* CCENETR
« CCENETR
* CCENETR
« CCENETR
* CCENETR
* CCENETW
'* CCENETR
t* CCENETR
EB
021
022
023
024
025
026
045
039
044
065
066
067
066
EB
ERROR
ERROR
ERROR
ERROR
ERROR
E»KUR
ERROR
ERROR
ERROR
ERROR
ERRUR
ERROR
ERROR
-
-
-
-
-
-
—
-
-
-
-
-
-
EH
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
CULUMN
COLUMN
COLUMN
CULUMN
COLUMN
CULUMN
COLUMN
COLUMN
tB
10
16
21
25
31
37
72
55
67
42
49
61
77
-
•
-
-
-
-
_
-
-
-
-
-
-
E6
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
EB Ed EB EB tri
RESIDENTIAL ON SITE 1 NC I NERAT IUN-FIELD REJECTED
INDUSTRIAL ON SITE INCINERATION-FIELD REJECTED
COMM/INST ON SITE INCINERATION-FIELD REJECTED
RESIDENTIAL OPEN BURNING-FIELD REJECTED
INDUSTRIAL OPEN BURNING-FIELD REJECTED
COMM/INST OPEN BORNING-FIELD REJECTED
RAIL LOCOMUTIVE-FIELD REJECTED
OFF HInAY GAS-FIELD REJECTED
OFF HlKAY DIESEL-FIELD REJECTED
LIGHT VEHICLE GAS-FIELD REJECTED
HEAVY VEHICLE GAS-FIELD REJECTED
HEAVY VEHICLE DIESEL-FIELD REJECTED
POPULATION CODE-FIELD REJECTED
C w
*"*" ,2 1 12222 123AIR^AIRCI VAlRCMVESCVESDVESKOEvPGEVPSOLEVPGMLlMACCRURALRSUBURBURBANRDAAu
fD b
PO
o
-h
js»
— '
Eb Eb
• CCENtTR
* CCENETR
* CCENETR
« CCENETR
* CCENETw
* CCENtIK
EB
046
047
048
049
050
051
EB
ERROR
ERROR
ERROR
ERROR
ERROR
EKftllR
EB
_
-
-
-
-
-
Ef
COLUMN
COLUMN
COLUMN
COLUMN
CULUMN
COLUMN
Eb
10
14
20
25
29
33
_
.
-
-
-
-
EB EtJ
INVALID
INVALID
INVALID
INVALID
INVALID
I NVALIU
EB EB EB E
MILITARY AIRCRAFT LTO-FIELD REJECTED
CIVIL AIRCRAFT LTO-FIELD REJECTED
COMMERCIAL AIRCRAFT LTO-FIELI> REJECTED
COAL VESSELS-FIELD REJECTED
DIESEL OIL VESSELS-FIELD REJECTED
RESIDUAL OIL VESSELS-FIELD REJECTED
-------
NEDS 10 k IS/AS CUNVEKSIUN-ED1 1 PROGRAM DIAGNUST1C REPORT
PAGE.
«*
*•
* *
**
* *
* *
«*
CCENEM 052 ERRUR -
CCENE TR 053 ERRUR -
CCENtIR 05« ERRnK -
CCENE 1H 069 ERROR -
CCENETR 070 EKRMR -
CCtNtfR 071 t'CROR -
CCENETw 072 EkRItK -
COLUMN
COLUMN
COLUMN
COLUMN
CULUMN
COLUMN
COLUMN
3ft
12
ac
S3
5V
65
71
-
.
-
-
.
-
-
INVALID
INVALID
INVALID
INVALID
INVALID
J NVAL1U
INVALID
GASOLINE VESSELS-FIELD REJECTED
SULVEN! PURCMASED-FIELD REJECTED
GASULlNE «ARKtTED-HtLO KEJtCTtD
LIMITED ACCESS ROADS-rtVM-F IELD REJECTED
RURAL KOAOS-MVM-F1ELD REJECTED
SUrtUrtnAN R040S-MVM-F JELD RcJEClED
URMAN HUAOS-MVN-HELD REJECTED
~n 11 22221230 IRTKDSDRTASCONACRMNUERLANDTrtLDFlKtl/AMANBKNT/AAGRBkN I/A ORH1DAYFIRESAA5
to" s
C *
-s .
ro *
> *
jj^J «
. ^j H
. co ,
rsi *
*
*
o *
^ § *
CO H «
3
C
EB Ed EH tB
CCENETR 055 ERRUR -
CCENEIR 056 ERROR -
CCENETK 057 ERRUK -
CCENETR 058 ERRUR -
CCENtTR 059 ERROR -
CCENETR 061 ERROR -
CCENETR 060 ERROR -
CCENETR 027 ERROR -
CCENETR Obi ERROR -
CCENETR 028 ERROR -
CCENETR 062 ERROR -
CCENETR 02"» ERROR -
CCENtTR 063 ERROR -
CCENtTR 030 ERROR -
tb
COLUMN
COLUMN
COLUMN
COLUMN
CULUMN
CULUMN
COLUMN
COLUMN
CULUMN
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
10
17
22
28
33
73
36
as
aH
5t
57
63
66
70
tB
-
-
-
.
-
-
-
-
-
-
-
-
_
_
tB EB
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
fD 11222212380SCTSPESTS02ESNUXESTHCEST1CUEST1M
P- BEB E8 EB EB
co
o>
•3
T3
n>
0
c
•o *—.
c. -o
(•+• QI
UD
n>
CO
0
* CCENETR 038 ERROR -
• CCENETR 033 ERRU* -
* CCfNETR 03a ERROR -
« CCENETR 035 ERROR -
* CCENtTR OJb ERROR -
* CCENETR 037 ERRUh -
Eb
COLUMN
COLUMN
COLUMN
COLUMN
COLUMN
CULUMN
fc
12
14
20
25
31
37
.
.
-
_
.
-
INVALID
INVALID
INVALID
INVALID
INVALID
INVALID
to EB EB Ert Eb E
DIRT ROAD TRAVELED-FIELD REJECTED
DIKT AlK STRIPS-FIELD REJECTED
CONSTRUC1ION ACRES-FIELD REJECTED
MISC WIND EROSION-FIELD REJECTED
LAND TILLING-FIELD REJECTED
STRUCTURE FIRES-FIELD REJECTED
FOREST wILDFIRES-FIELD REJECTED
FOREST WILDFIRE TONS/ACRE BURNED-FIELD REJECTED
MANAGED/PRESCRIBED BURNING-FIELD REJECTED
MANAGEU BURNING TOMS/ACRE BURNED-FIELD REJECTED
AGRICULTURAL FIELD BURNI«G-F 1 ELD REJECTED
AGR FIELD BURN TONS/ACRE BURNED-FIELD REJECTED
FROST CONTROL (ORCHARD HEATERS)-F ItLD REJECTED
FROST CONTROL DAYS/F1 REO-F IELD REJECTED
AA7
SOURCE-CODE-TRANSACTION REJECTED
SOURCE TSP EMISSION ESTIMATE-FIELD REJECTED
SOURCE S02 EMISSION ESTIMATE-FIELD REJECTED
SOURCE NOX EMISSION ESTIMATE-FIELD REJECTED
SOURCE HC EMISSION EST IMATt-FIELD REJECTED
SOURCE CO EMISSION ESUMATE-FIELD REJECTED
-------
NEDS Til EIS/AS CnMVtMSlllN-tUl I PKilliRAK D1AGNUSI1C *EPuHT PAUt
UK NEDS TKANSCTIUNS HEAD: 7
UF EWRLIKS DfclECTtO: f*«
UF AbUHlS OtTECTEO: 0
NUMBER UF CONDITIONALS DETECTED: 2
NUMbEK UF INTERNAL 1KAMSACT lU'JS WRITTEN: 99
IQ
C
-5
CO
I—>
CO
ro
r>
o
n>
o.
co
CU
o
•a
c
ro
-Pa.
o
-------
EIS/AS Test 14 - Ad Hoc
Execute the Master File Emission Factor Transaction Generator Program and
Store the Generated Transactions
In this test run, master file emission factor transactions are generated
using the cataloged procedure ECMSM10 which executes CMSEFGN (EC0080), the
master file emission factor transaction generator program.
The master file emission factor transactions generated by CMSEFGN
(EC0080) are stored for future use. See EIS/AS Test 9 for a discussion of
this program.
The run stream for this test run contains the JCL needed to generate the
transactions. Substitutable parameters are used to supply the names of the
input emission factor file and master file, and the output transaction file.
The names of these files are ECEMFL2 (created in Test 11), ECMSTR3 (created in
Test 5), and ECINTR5, respectively. The DD (data definition) information for
the option card file is also supplied in the run stream. This run stream is
shown in Figure AST14-1.
The FLAGW option field of the option card is blank, therefore, the
default of NOFLAGW is in effect and the warning messages will not be printed.
A category date of 76001 (Julian date expressed as YYDDD, where YY is the year
and ODD is the day of the year) is supplied on the option card. This date
controls the generation of transactions by creating category-2 transactions
only when the date of an emission factor file category record is greater than
the category date specified on the option card. No category-5 transactions
are created because a pollutant date is not specified on the option card.
Sample output produced by this run stream is shown in Figure AST14-2.
170
-------
//AsTtsnu jritt fArcouNTiNG INFJ)
//»
//* EXFUITE THE MASTFK FILF EMISSION FACTUW
//* GtNtPflTOR PWP(;RA" AND STOKE THE GEMERATED T H ANSAT. T T UNS
//«
* FXFC
//* GEMfATE MASTtP FILE EMISSION FACPIH TRAMSACTIOMS
//* S1HKF THFM
//GENfc"R. OPTIONS Ou *
COAT 76001
Figure AST14-1. Run Stream
171
-------
FJlt l^lSSlfi FAMON 1 ^«NS ACT J ON GFNFHATOH t-fO^Htf PAGE
i—1 ro
>vl •
ro
co
NAfE: OStFGN ffTOOBO)
LFVFL: i-on
LAST li P U « 1 F_ »: »-'
i,
OHT1DNS IN
Tl
^J,
UD
c
"5 DATt: r.*TEf.U»r 7fe/001 PCLLUTAM N/*
ID
>
GO
I— »
•* *«« CCSEFGN np<; CC^'U^1G^AL - FMSMTN FACTO" FILE CONTAINS Ftt'tRAL rtTtGL'"Y hfCPHOS FOH C'lFGTKTtS OlhfR 7n«N J-bU
NUwbE« CF "AS1FK FILE RFCCBU? RfcAO: U20
cr FKISSION FACTO" "ECG"i)S PE*I>: 66^
MU"BFK CF ^>AR^T^G "-'tSSAGES: 3,77«
NU"BFK CF rCNUinO'"AL ^tPSAGFS: )
NU"ljFR CF FKRCiS "LSSAGFb: n
NUUBFH CF AbPH
MUMtiF> CF njRASTE^
-------
EIS/AS Test 15 - Ad Hoc
Exercise All Options of the Master File Internal Transaction Emission Factor
Insertion Program
In this test run, all options of CMSEFIN (EC0060) are exercised using the
cataloged procedure ECMST10 which executes CSRINTR (EC0050), the master file
internal transaction sort program; and CMSEFIN (EC0060), the master file
internal transaction emission factor insertion program.
The internal transactions generated in Test 14 are sorted by CSRINTR
(EC0050) into the sequence required by CMSEFIN (EC0060). See Test 2 for a
discussion of these programs.
The run stream for this test run contains the JCL needed to insert
emission factors from the emission factor file into the internal transactions
created in Test 14. This run stream is shown in Figure AST15-1.
Substitutable parameters are used to supply the names of the input
emission factor file and internal transaction file, and the output internal
transaction file with the inserted emission factors. The names of these files
are ECEMFL2 (created in Test 11), ECINTR5, and ECINTR6, respectively. The DD
(data definition) information for the option card file of CMSEFIN (EC0060) is
also supplied.
The FLAGW option is specified on the option card so that all warning
messages will be printed in the diagnostic report output from CMSEFIN
(EC0060). All available fields are selected for insertion or overriding:
nitrogen content, sulfur content, ash content, emission factor, confidence
level, and pollutant-specific data. Also, a category date and a pollutant
date are specified to control the insert/override action. Sample output
produced by this run stream is shown in Figure AST15-2.
173
-------
S JOo f ACtOUM I 1H<~,
//*
//* FxFKClSE AIL OPTIONS OF THF MAS1FK FILF INTfcRN»L
//• TRANSACTION FMTSSlOfJ K SCT09 TNSfcRTION PKOliPAM
//*
//TtSTlbA FXEC ECMS110.
// FHFCF11 =F.CFMFL2,
//• SPECIFY 'FLARrt* OiJ THf. U°riUM CA»U;
//* StLfcCT ALL AVAILABLE FItLUS FJP INSE»TIUN
//* n« UVERKIDINC: MITROGFl. C'lNTtNl , SULFUrt
//* CUMTF.NT, ASH CONTENT. EMISSION FACTOR,
//* COMFTDFNCh LFVEL, ArtH PULLUI ANT-SPFCIF 1C
//* DATA; SPECIFY A CATEGORY DATE AMD A
//* POLLUTANT DATE TO CONTROL THE INSERT/
//« OVFkPIDE ACTTON
//*
DO *
S!IL 10 ASH TU E«ISSTuM TO COwF 10 SP£T TO CHaT 75"01 PUAT 7S001
Figure AST15-1. Run Stream
174
-------
EIS/AS MflSTEK FILE INTERNAL TRANSACTION SURT PROGRAM - DIAGNOSTIC REPORT PACE
tn
0>
>
GO
in
i
ro
oo
CD
T3
n>
o
c
r+
T3
C
DJ
o
-h
ro
PHOGKAM NAME: CSR1NIR (EC0050)
REVISION LFVEL: 1-00
LAST UPOATF V: A-l
DATE INCOHPUKATED: FEHRUARY i, 1980
OF INPUT TKANSACTIUNS HEAD: 20
NUMBER UF 1KAN3ACTIONS WRITTEN: 31
-------
t*J?bUf' F«ri("h
PAT-t 1
REVISION LEVFL: 1-00
LAST UpUMF *: 4-1
riATE
OPTION? IN EFMCT:
FIFLPS SFLFLTfT FOR I^SERTIO^£: Ml SUI ASh FMISSJON CCN'F SHFC CD«T 7^001 PDA!
-s
(D
-J.J
CO
—I
£^ FIFLHS ir. Ht ovtPhiuctN: NIT suu «bi- I.K'I?STO CC^F SPEC
ro
i
O MThOGFN 1 n Sl!LFU° I L »SH I U FC7SSJCN e'C1U° T U ClAf L F U F L J r SFtf n A T 4 ] r
I— 3
~J r+
Oi -i.
7SOIM FPLlUISM
o_
.1 no? '•O^DT^
S FPK
co
CD
"O NuubFk CF INPUT TMNSAC I IL^S:
NU^bFH OF FMSS1TN
Nu"BFk fF SUFF aur I.UCAL INSERT TUN'b •''OF:
NU"MFK tF Ftr.E^AI. TNSEPTTLN'S V»CF:
MUwhEf- CF
O
c
fD
ro
o
rsi
-------
EIS/AS Test 16 - Ad Hoc
Execute a COBOL Retrieval and Produce a Formatted Dump of the Answer File
In this test run, a COBOL retrieval is executed using the cataloged
procedure ECRTM30 which executes CRTLNGP (EC0090), the retrieval language
processor program; the COBOL compiler; the linkage editor; and CRTGENR
(EC0100), the generated retrieval program. The answer file produced by this
procedure is listed in a formatted dump by using the cataloged procedure
ECRPM30 which executes CRPDUMP (EC0140), the master file formatted dump
program.
The user-supplied COBOL statements are combined with CRTSKEL, the
retrieval program, by CRTLNGP (EC0090) to form the generated retrieval program
CRTGENR (EC0100). The generated program is then compiled, link-edited, and
executed. An EIS/AS master file is input to CRTGENR (EC0100) which selects
records according to the user-supplied COBOL statements and creates an answer
file. This answer file is passed to CRPDUMP (EC0140) to be listed in a
formatted dump. Refer to Test 7 for a discussion of CRTLNGP (EC0090) and
CRTGENR (EC0100); and refer to Test 4 for a discussion of CRPDUMP (EC0140).
The run stream for this test run contains the JCL needed to execute the
retrieval package and produce a formatted dump of the answer file. The
purpose of this test run is to retrieve all master file data that has not been
submitted to NEDS. All data flags in each master file record are checked for
'S'. If a flag does not contain 'S1, that record is written to the answer
file-. This run stream is shown in Figure AST16-1. Sample output produced by
this run stream is shown in Figure AST16-2.
Substitutable parameters are used to supply the names of the master file
input to CRTGENR (EC0100) and the answer file output from CRTGENR (EC0100). A
substitutable parameter is also used to supply the name of the answer file
input to CRPDUMP (EC0140). The names of the master file and answer file are
ECMSTR7 (created in Test 9) and ECANSR3, respectively. The DD (data
definition) information for the COBOL statements input to CRTLNGP (EC0090) and
the option card file input to CRPDUMP (EC0140) are also supplied.
177
-------
The user-supplied COBOL statements must conform to ANS COBOL format. The
COBOL statements in this test run are included in the run stream.
No option card is supplied for CRPDUMP (EC0140), therefore, the following
defaults are assumed by the program: 55 printed lines per page, no records
are skipped, and all records will be dumped.
178
-------
//ASTtSHr, JOH f /ircniJNT INK INFO)
//•
//• FxFCUTF « ClJHIil. "ETKlEVAL Amn I 1ST THt ANSWER FILt USING THE
//• VASTFW HLF F(lf'MA|TtO DUMP H»or.KAM
//*
//TEMJ6A
//* ntNtPATH AMU E*tCUTt A M»bT£P Fll.t XFt°lFV«L HROf.HAM
//* TMP "s^f s^tr. IF irATjnwS fuB ^HJCH AHF f»-0-I TS NOT EQU«L TO 'S' OR
ElS-FL«G-C«kD-0-? TS NOT EOU&L TO 'S' "R
-'* TS NOT EOOAL Tn 's1 OR
-ft-a TS NOT £OU«L TO 'S1 OM
-n-'k IS iJ^T EOUAL TO 'S1 OR
-f, TS HOT ERUAL TO ' S '
fcl.SF
MUVE hlNAKY-1 Tu OFSC-SU0
" USFK-uPSr-RtPtAI THKU IISEW-UF bC-REPt *T -
UM1TL LiESC-Su* TS UPfcATFR THA" Ot SC-
USER-ntSC-REPFAT.
]F El^-FL^G-CAfTi-n-T (UFSOSuB) JS MOT fullAL TO
-PAPA IHKII
10 ntSC-S'.!3.
API) cllN'rtY-1 Tu DFSC-SUR.
USEP-nESC-WFPF.AT-r.yO.
JF NEDS-Fl AC IS NOT EDUAL TO 'S* OR
N£ns-A7-FL»b IS NOT FtJllAL TU 'S1 U"
Fl^-FLAG-C'WP-1-1 TS NOT EOUAL TO 'S1 OR
FJS-FLAG-L«*n_i-;? TS NOT E^UAL T f 1 'S' OK
FlS-FLAG-C1cn-l-T 15 NOT E'JU»L TO 's' OK
FI?-FL«G-CAKp-1-U IS 'JOT EOUAL TO 'S'
PfFOKM REr.u°L>-u'llAL-PARA T^WII PECUBU-uU«L -P AP A
tLSF
^OWt HINAKY-I TO CAT-SUB
PtRFOK" UbFR-CAl-KFPFAT THRU USE R-C AT-REPE A 1 -
(Page 1 of 2)
Figure AST16-1. Run Stream
179
-------
UNTIL CAT-SUb IK RrtFATE* THAN C & t -
-CAT-PAP
IT.
IF FIS-FL«G-L*nn-l-5 rCM-SUB) IS NPT EOU»L 10 'S1
PEOK)KM "ECUPu-U'lAL -PftRA fHKU PtrURU-UIIAL-°APA-t NU
"UVE C»1-M«K-POLL TU C«r-S'lb.
AOu UINAKY-1 TO C4I-3HB.
fcXIT.
USEP-CU"M-PAKA.
IF NEns-A6—FLAG IS FUUAL TO SPACL AND
f EIS-FLAG-CARO-2-1 IS NUT FJLIAL TO '.<>• UP
EIS-FLAG-CAPU-2-2 IS NOT FullAL TO 'SM
PtRFOH^ PLCIJPD-U'IAL-PAPA THHU PtCUPD-lJHAL-pAPA-ENU
El S5:
IF hlFDS-Ao-Fl AG TS NOT EOU&L TO
-------
Lib/45 PEThUVM. I A*GUaGt PMICF SbD* HKORHAH - tlACNrSTK PLPCR1 PAf,t
PROGRAM N'A^t ! rhtl>GP
REVISION LFVFLt 1-00
LAST UPUATF «: »-l
OATE INCOhPQRATEO: FFBDUAhY 1, l"po
INPUT (COHTHTL CARDS):
JJSfclECl USfcP
IF BECURD-JR-CLSCRJPT. IUN
PtRpfKC USFK-UFSC-PAPA l*hU USF.h-UF ST-
ELSE
IF KFCnnr>-IS-CAlFGPRY
PFKFOP-K CStf-CAT-PAPA IHmi U bF K-C » 1 -F»kf -
31 FLSt
JQ' PFKFQPM tSEP-CC>M-P»h« ThRU USE<= -CO>'>'-P A H»-E^n .
C . (iO TC OS£R-OU«LIFICAT lUN-FNn.
^ USER-OESC-P4hA.
IF NEnS-A1-FLAG .IS KCT FUUAL TC 'S' 0"
> K-tOS-AT-FL*G IS KCT FOUAL TC 'S1 OR
_j K'EDS-AU-FL»G IS M.T ^OUAL TC 'S1 U<=
"-* FJS-FLAG-C'SD-0-1 IS NOT tPUAL Tf 'S' "f«
T1 FlS-FLAG-C»Kp-1-? IS HOI EOUAL IT 'S' Pk
ro FlS-FLAG-CAkO-0-? IS N01 E^UAL TO 'S1 OK
* FlS-FLAG-C«HD-P-fl IS NOT EOUAL TT 'S* OH
ElS-FLAG-C»Hr-0-= IS NOT EOOAL TT -S- Of.
CO ElS-FL«G-L*t?D-0-6 IS NOT £OU«L TT 'S*
3 ctRFCR" RECC»U-(JtAL-PARA IhSII RtCCIRD-tiUAL-PAP A-EKD
•d El SF
T4 «-OVE UTM&RV-1 TO LFSr-SU"
PERFOR" l)SFt.-DFSC-PtPfc*T THKIi USFR-OF SC-Pt Pt AT-tl>.'0
O UMIL DFSC-SUP IS liREATFl, T"A» TE SC-N?t.-PrLL .
S- USEP-DtSC-PAhA-FM).
FJS-FLAU-CAKP-0-7 fDFSC-SuP) )? MOT FOUAL TU
PtPprik" RErcBD-ot AL-PAPA THRU RECU^O-UHA
VLVE OFSC-NtP-POLL T" ItSC-S'Jh.
eiiv»KY-t TC ufsr-suR.
USEP-ntSC-RFPEAT-FNC.
t*JT.
USEP-CAT-PARA.
]F MOS-FLAK IS NH E"UftL f 'S' OR
KE^S-AT-PLAG i« NCT FIOUAL TC 'S* UP
F lS-FLAG-C«fin-1-l TS NOT EOUAL 1C 'S' ^H
FiP.Fu*G-r"t.n-i -? is ^i EOC.AL ir 's1 nH
F js-FLAb-C'W1-)-? IS NOT LOUAL T r 'S' P*<
E JS-PLAG-L«fn-l-o TS NOT E
-------
tTS/AS PtTMtVAi lA^GllApfc pPurt-ssnh (JtiGnKAM - ciAPNrsTjr wtPCRi PAPE
ttINAkY-1 TU CAT-SUb
l.'Sfh-lAl-KFPFAT THRU USE"-C «T-P£ PF 11
UMIL CAI-SUb IS GHFATE" THAN C» T-N°«-PnLI..
EXIT.
F1S-FLAG-CAHP-1-5 fCAl-SUB) IS NfT tf-'li«l. TT
PfcPI-OK* PtrL^L-Ol AL-P*RA IHhll PECUPti-UllAl -
•'CVt CH-KFit-PCLL TU C«T-SUe.
BlNftKY-1 TC CAT-SUB.
USt"-CAT-«£PfcAT-tMO.
IF ^.t"PS-Af,-FL1G IS ECUAI TC SPACE A Ml
fEIS-FLAr,-rARD-2-l IS ^UT tlvUAl Tu 'S' C«
ETS-F-LAG-rAPD-a-J IS NOT FuUAl Tu 'S')
PERFCK^1 ^tCCRD-OUAl -PAUA 1^«U WtCUKD-UiJAI -PARA-END
ELSF
TF NFOc-»6-f-L AT T£ NO! E1UAL TH 'S1
PFKFC-PK HECCRC-OU«L-PAi
ro
o
-h
CT)
-------
PAC,t
CO c+
CA) -J.
3
C
fD
Q.
CO
O)
T3
n>
O
c
"O ^-N
ft Q)
CD
n>
CO
o
PKOGPAW NA*E: CHTGFNR recoiuo)
REVISION LFvFis j-no
IAS1 UPUMF 0; A-l
r>ATfc
NU"BER CF "AS1FK FILF "ECCPDS BEAU: 171
NUMBER GF CO*UITTUNAL »*tss«i>FS: o
3! NU»«HFR ur AHOHT "tssAUFs: o
to
-j
n>
CTl
ro
o
o
-------
EJS/AS
KOW4TIFU
P(,n(,BAW
(-EPTHT
PA PF:
co
Q)
T3
n>
o
"O
C
X)
QJ
0>
-P*
O
-h
PHOGRA* NA^E: CRPLMINP
REVISION LFI/FL? i-no
LAST UPOAIF »: A-l
OATt I^CnhPQRATEn; FFbRUAKY 1, 19HO
OPTIONS IN tFFFCT: SS LINFS HEK PAGE;
Si\IPPLO;
ALL
rn p.t
c
-j
n>
oo
—I
H-"
CTi
ro
i
O
o
g 1
3
C
(0
a.
*** rRPDllf"1 003 rUNDTIJUKAl - NC VALTD LINF SPEC TF IC»T T L'f. - HEFAHLT OF 5S
*•* CKPDUMP 001 rUNUTITUNAL - ^L V/ILIl^ VALUE SPtflFJF.L- hCH NIICHE** HF WF.trHns 1C PE SK1PFFD - DUVP STAHtS AT FIRST RtCO»D
*** CHPUU*"1 00^ CU^'DITIONAl - NC VALIU VALUE SPErif=IFO FOhl NlifBE" OF KFCCKrs 1C PE D'.'KPfO - ENTIRE FILE
CF PESCRIPITON RECOPUS
MUMBF« CF CATEGORY RECriRHS DUMPED:
NUMtiFR CF COvfEM RECORDS
TOTAL NUMBEK OF RECORDS BEAD:
CTl
-------
E1S/A5 pASTt" Flit Fnn^ATIFD 01.
Id
-J
ro
CO
STATE=U6
AUCK=067 REf./TYPE = CA C«1FGR» /OFSr=CU»">'-lM>T CI«-ST1F
I1MTS/CD/DESC = UMFRN/lHKUPTrY
CATEGRY/»=u?3
YR/OF / J KF C=7 V
/X: f J AN=O«, Ft " = "8
O RECORO/T YPF/(KFY)=1 I.1NE/»=000
PKCSS/P A 7 E r 0 OoO 02350 t «TfcPKY/«D.)=
<», APRs 0»,MAY=0« , JUN=09 , JI'L = Ofl , AUP=08 ,
MOV = 08,DFC = 09) HRS/P£P/CAY= DA YS/PFR/I>K = n*;>/PFk/YR = ThPuPT/KA T TU= MA x/hRl Y/T HRUPT =
NIThG/ts SULF/X= A8h/X= H£4[/CCNT= IIMF RC/HBL Y/ThRUPl = hRLY/THPUPT / J : (00= , ,
JNFO/SRCE/NARh=
POLL/10
11101
121 0 1
0200 1
<|?'F/RTK'G EP
0
0
0
n
P
0
EJS/H-li/lsS FlS/FLn/2=S
/SWC/Cl) EF/THIli PrUL/SHC/DAT
F
F
F
F
r
L
ETS/FLG/3=S F1S/FLP/0=S NFI
A UFUS/A7/E"IS PriLL/NA>»t
SU.cPFNDtr PAR).
5USPFNOEn FART.
FUIFI1H OlliXlOt
N OXTIJES
HYDWOCAKHOf.£
TOTAL SULFUK
)S/FLG=P 1
FIS/FLR/5
C
C
r
r
S
s
OATA/CUMFJDFNCE/KATMGzO
,03= , , ,06= , , ,09=
INUVsiMiwrt /rrnFrS
Ff TS/FS1
ooooooo
OOQOOOO
OOOOQOO
OOOOOOO
onooooo
ooooooo
(, = S «/PGLL = 06
CONF/RlWb MX/HPLY/E^S
P
n
n
n
n
0
oo
tn
en
i
ro
n
o
3
ro
a.
co
fu
-
sO'i COMi.TY=223P GEHGR/SUPA1 Lnc/*=000no C A TFGRY/B=0« 7 DISAGGH/P=00 RECU«U/T YPF/fKF Y) = 1 LINE/»=000 oATCM=0
REC/TYP£ = CA C A TEGR Y /OFSC = C I V U A]RCRAF| LTO"S YR/OF/IKK C = 7
-------
PAC-t
C A
Kb ("URU/ T Yf-F/ f »\F Y ) = 1
LlNt/B = 0
00
CO
QJ
ro
o
r+
-a
c
ct-
n>
CTl
o
-n
c
n>
i=
CO
— I
h- »
CTl
1
(\3
1
ft
O
3
<-h
3
c
a.
*
UMTS/rU/UFSC:
N(JV = ,DFt = ) HkS/P|
NJTkf*/*ts RutF/X-
PlilL/ir; FpIb/FA(.TK tF/
11101 00000171)00
12101 0000017000
12101 0000000150
12*>0? 0000001000
13101
STATt=«? COUMl
AQCR=167 REC/TYPE=CA
UM IS/CO /OF SC.= -
LKH RC./ (HKlJFTr MN
AY= nAYS/HFH/»vK =
ASh/X= HtAl/COKTs
1 hLY/ThPUP I /Xr (J'N= ,FhO =
nKS/HFk/Yf<= T HRUP I /H A I I u =
t'NlKRN/HRLY/TnPUPT^
3 FlS/F|_n/? = S EIS/FtG/3 = S
Tf.F/Kltu hF/Skf./Ci; tF/TklG PTLI. /SHC /P A T A NFUS/ A 7 /fc " J .c
0
0
0
r
F
F
F
F
F
0170000SUS
,|v«K= ,AHK: ,MAY= ,JUN
MAX/hF.LY/TMPUPT =
hRL Y / T nPUF I / Tt : TOOr r ,
F IS/FLr./'IzF iJFl)S/FLf- = ?
^>OLI./^A»'^ FJS/FLG/S
SuSPE'iPtC PART. f
?U?HFivntn PAR?. C
?ULFUK UIL'tJOE C
N oxiuFt r
HYnkOCARfiUr£ S
:= ,JIJL= ,AUR= ,SrP= ,CCT =
DATA/CO^ It>ENCE/kA|MG =
lNFr/SUUkT.t/CnUF =
NELS/A7/FI 0 = S »/PULL = 05
FMS/ES1 CONF/WIN'G MX/HHlY/t^S
0 n u 0 0 o 7 0
0000007 0
oouoooo o
0000002 0
0001000 P
f = 2HO ntnGR/.SURALLnC /» = 00000 L A IEGP Y/» = 0»il IJ I SAGG*/» = 00 CE CORD/ I YFE/ f KE Y) = 1 IINt/» = 000 bATTh=0
CATFGRY/UESCzMANAOEn PuPNT NG-PhiFSCH T HF YR/OF/JNFC =
IINiTt- Rf> /THHIIPTz MK
NOV= ,OEC = ) HkS/PEP/CAY= DA YS/PE»/*Kr
NlTRG/*= SULF/X=
POLL/m EMIS/FACTK tF/
11101 0000017000
12101 0000017000
12101 0000000150
12*>0? 00000010PO
13101
TNF
0
0
n
0
A?h/*= Ht'AI/COM =
t Ii>/FLG/l =
/RING tF/SHC/CD EF/Ck!
F
F
F
F
F
IhLY/THPbPI/X* (JAlv~ FfcR-
nKS/HFK/YR= THHUPI /kAI Iu=
UMFPr'/ni'i_Y/Tn''U°T =
s FJS/FLG/?=S EIS/FLG/J=S
li PCLL/SPr/OATA NFUS/A7/t>'I!!
01 700QOSUS
PhCbS/RAT£=000005e7b C ATEGKY/ 40,1=000000 J UNITS/CD=
KAh~ APR" MAY* JU^
MAX/hPLY/YHRUPT=
^RL v/TnPucT / j : fO"= . .
Fi.«/FLfi/ii = f NEOS/FLR=.";
PHLL/NA^t F.IS/FLG/5
suSHEMDEr FART. c
SUSHENHEP FART. c
SULFUk DICXJUE C
N nxTOFS C
|-Y^kncAKPC^£ S
L)ATA/COMFTDENCE/HATNG =
.03= , , ,0f= . , ,09=
U.FC/SUUMCt/CCDF=
NFOS/A7/KLG=S »/PfLL=OS
FWTS/EST CCNF/RUG MX/HHLY/E^S
0000150 0
0000150 0
0000001 0
0000035 0
ooooooo o
CTl
-------
EIS/AS Test 17 - Ad Hoc
Execute an EIS/AS Retrieval and Produce a Detailed Report of the Answer File
In this test run, an EIS/AS retrieval is executed using the cataloged
procedure ECRTM30 which executes CRTLNGP (EC0090), the retrieval language
processor program; the COBOL compiler; the linkage editor; and CRTGENR
(EC0100), the generated retrieval program. The answer file produced by this
procedure is listed in a detailed report using the cataloged procedure ECRPM20
which executes CRPMSTR (EC0130), the master file detailed report program.
The user-supplied EIS/AS retrieval language statements are combined with
CRTSKEL, the retrieval skeleton program, by CRTLNGP (EC0090) to form the
generated retrieval program, CRTGENR (EC0100). The generated program is then
compiled, link-edited, and executed. An EIS/AS master file is input to
CRTGENR (EC0100) which selects records according to the user-supplied
retrieval language statements and creates an answer file. This answer file is
passed to CRPMSTR (EC0130) to be listed in a detailed report. See Test 7 for
a discussion of CRTLNGP (EC0090), CRTGENR (EC0100), and CRPMSTR (EC0130).
The run stream for this test run contains the JCL needed to execute the
retrieval package and produce a detailed report of the answer file. The
purpose of this test run is to retrieve all geographic suballocation and
category disaggregation records that contain particulate data. The user
should note that in this test run, if a description record qualifies for
selection, then all category records subordinate to it will also be selected.
This is because the $$SELECT card specifies that both record types are to be
retrieved. Also, if a category record qualifies for selection, the
description record to which it is subordinate will be selected. The run
stream for this test run is shown in Figure AST17-1.
Substitutable parameters are used to supply the names of the master file
input to CRTGENR (EC0100) and the answer file output from CRTGENR (EC0100). A
substitutable parameter is also used to specify the name of the answer file
input to CRPMSTR (EC0130). The names of the master file and answer file are
ECMSTR7 (created in Test 9) and ECANSR4, respectively. The DD (data
187
-------
definition) information for the EIS/AS retrieval language statements input to
CRTGENR (EC0100) and the option card file input to CRPMSTR (EC0130) are also
supplied.
The EIS/AS retrieval language statements must conform to the format
specified in Test 7. The retrieval language statements are also included in
the run stream. The option card in this run stream specifies that the
detailed report is to be printed with a maximum of 65 lines per page. Sample
output produced by this run stream is shown in Figure AST17-2.
188
-------
//«!>Tt<5117 JOB I ACCnuNl TNC TivFul
//» PXFtUlF An tTS/ftS ^ETKlfc VAL Ai\ir> LIST 1 HE
//» auSrtFrt FTLf HSli^G THF MAST^K FlLF OETAILEU
//*
//TtST)7« FXFC
// "STKF1L=ECMSTH7,
//*
//* CKEATE AND ext'cort A «FI»JEYAL
//« IN WH1CM THE USEK N = '00'
Iu = '11101')
//TtS117» F.XFC
//*
//» LIST IWL ANS«fcp Fll
//» STFH a USING THE UfT»lLEri PEPU^l PRLlP-KAM
//•
//I is i .UP i iu'*s un «
Figure AST17-1. Run Stream
189
-------
EIS/AS Rf.TtvTtVAl I ANG'JAGt PWUrt*SCK PPUP.HAV - t'TAHNrSTK RtPLM PAHt
NA»*t:
REVISION LFVFL: i-oo
LAST UPDATE «: A-l
DATE iMCPK°uBATtP: FF.HPUAKY \,
INPUT (CPNTKDL C'HnS):
.«SSELECT 0 1
(GFOG-SUBALLnCAlTON-NbR N = '00000' ANP
OESC-POLLUTAMT-IO = '11101') "K
f GFOG-SUHALLHC A T 10^-*JbP f' = '00000' AND
CATEGOPY-U1SAGGKFG-NRK N = '00' »NP.
-n CAT-PQLLUTONT-ID = Miioi1)
-j. JIENP
-5
ft) NU^hFR CF CO^TRCL CARDS READ: 7
3., NUMBER CF RETRIEVAL 'KELETTN kEcnwos KEAH: ei?
CO NU"BFH UP RETKIfcVAL SOURCE KECCRPS t.RJTTFN: 9?2
^j NUMBER CF CliK'CITIOKAL VtSS«GFS: 0
^4 NUwbF« CF ABOwT VtSSAGFS: 0
I
ro
•
oo
DJ
3
73
n>
o
c
O)
CO
ro
O
-b
cn
-------
FJ.S/AS GFf.FfcATFU HFTBJFVAL PRU^HAP . OIAHNPSTir PbPllHT PAC,E
vo
in
n>
CO
ro
i
o
o
n>
Q.
oo
O)
3
•a
n>
o
c
•o
c:
t-t-
n>
ro
o
: 1-00
LAST UPDAtF >•: A-J
HATE iNcnw^uPATtn; HF.BPUAKY 1,
OF KASU.H FILF PECC^US Ph^o: J7i
OF WASTFK FILF PtTCRDS HrtlTTt^: 1"
CF rCf»DIT10vAl "FSS«RFS: 0
CF «Bf3KT ^ESSAGFSt 0
-------
sr>ORCF VASTFw FTLF DtTATL LIST
: CKPMSIK
1-00
LAST UPlJfilF »: A-1
i,
HPTJON IN F^FtC^: 65 LINFS HFK PORF M
IQ Nl/WHFh OF RECOfUS Rt*D: 10
C NU^BFh CF HtSCPlPIION RECCRDS: 3
fp N'UMHFK CF CATERf.Py HFCOrfCS: 7
CF rCl^KENT PECCRUS; 0
ro
o
o
3
ro -<•
3
C
0)
Q.
DJ
•a
o
c
"O •—>
c -o
rl- O>
(£)
fD
CJ
O
-------
AKFA snuwcF *ASIFH FILF. nn«yL LIST
MLF. L is) ii^n
PAGL
GO -i.
T|
ua'
CD
GO
— i
i
ro
i
o
0
3
=3
Q.
CO
Qj
3
T3
fD
O
C "U
<-h ft,
(D
"^
O
-h
**nEScPiP) iufj«< siftir
^1
RECORD CATEGORY
TVPF Nl'^HE'R
SG 000
DATE SJP PASE
YH/D»Y YEAR
79/303 79
01 HQPJ7 VFWT
18 ^30 . P 4310.0
SULFUR CONTENTS
ANTh HITU" HIST W
COAL CHAL OIL
FLAG EIS FLAGS
NEDS A1 1 2 3 « b 6
S S S S S S S
«*• PTLLUTANT
*»» ID «JA«E
... H?tf-l MG
»»« 1 1 1 1 a wj *'D
COUNT r AOC'R AUCH NAKF
001S Oil bESTFR
CATEGORY AIK DFF
riSAR o BASIN AREA
N PART
IC;FO
CCDf
00 Oil l?i
PRU.I'H SU'IKCE
YE*« IYPE
63 A
02 HORI7 VFhT 03
If 53S.1 4320.1
ASM CCNIENTb
F-SO'L A^IH BITUh
C1L COAL COAL
SIP
TSP S02
12^ 137
ATTAINMENT
STATUS
L
PL^' PAR1 II
«*« 40)01 TOTAL r»ni*rTs u
««. 4210) C C
• •« 4?613 »;0*
*»• 43102 NONK
**. 11101 TSP
*•» 4240] SU2
|:
i;
E 1 H H C l!
tl
U
CF STATF nu
AKEA
NA^E
CADE'S CPVF
LFNGTH PCP
AhFA
137. SS
HURIZ
UNITS CD CCDE
12
UT" COORDINATES
PLANT II; GElif: SUR « SMSA
O19b 10135 12^7
bATCH
0
"AJL-R SUbAul UCATION TECHMlUUE
ATIIVITY CODE OESCRIPIIUN
FAht'IKt 1b TAASF
PUPliLATlTN M)"HfR l.'l" '•Ul't'EW
PUP X 101 «L CGCHriJN'ATeS PCILU1
^C 101,234 2 16
VEKT 04 HURI? VFRT Ob I-CR17 VFRT 06 HORI7
GAS FUEL
VEHICLES
LIGHT HEAVY
DIESEL FUEL ^OTCR VEHICLE ^ILES
VEHICLES LIMITED ACCFSS RURAL suo UKBA^
HEAVY RCADS ROADS ROADS
CF
ANTS
VFfiT
LRBAN
HOADS
ESTIMATES
(V'°Y
12
AUVA
NUfHfcR
000123
000123
000123
010123
000123
000123
00ol23
000123
HC cn
3,4^9 110
EIS **» FULLL'TANT ATlAJNuFNT AQMA EIS
F 7 .«« in
S ... Oe60?
S *** 21101
5 *** 0*J?01
S ... 4210?
S «*» "3101
5 **« 43^0?
S «** 11103
S. *** 4^00?
NAKF STATUS NUUBEH F 7
'•-02 A 000123 S
TOTAL DLSTFALL A 000123 S
(JYL'Nt A 000123 S
C<~'£ A 000123 S
«r A 000123 s
l-nHvaLnF^iiF A 000123 S
bEiWEKE CRUMCb A 000123 S
HYDROGEN SULFOE A 000123 S
* * *
* . *
* **
* » *
. * *
* * »
* * «
* *.
* * *
* * #
cn
-------
AHFA SOURCE "flSlFK HLF DETAIL LIST
f ILF LISTING
PAGE
**CATEO.CiRY 100*»
«»*»*****•***»*»
STATE
31
COUMY
0015
AuC*
01 1
GFUG SUHALLHC »
00135
CATFliDRY »
100
CATEGORY OISAG »
10
HA rCh
0
CO
c:
fl>
oo
RECORD
YFAR
PECGRD
TYHF
CATEGORY
UFbCKIPTlTK
A n J U S T K F ft T
PfruCtSS
»• Alt
UMU
ruDL UFSCklHTION
KJFMAl.
HH/D t
. OPERATING
)/*K H.K/YR
ThRUPUT
fcATTU
JO/9
SI)
IIMFOh"
ThROPOT
LAI 10U L> I S A U 10
12S
JAN
V 1 5
FEP
P
KAR
9
MDNThlY THHUPLT PFHTENIAUFS
APR KAY JON JUL AOG SEP
ncT
P
SUV
DEC
9
21 7 52 1.3
PFKCt'JTAGF.S OF HFAT
NITROGEN SULFUR ASH CON1ENT
.013
5.1
10.2
0031
ro
i
o
o
ZJ
c
fD
Q.
00
Ol
3
•a
o
c
UNTFOHM
THRUPL-T 0000 0100 0200
0300 0100 0500
HOURLY THRUPUT PERCENTAGES
0700 OflOO 0900 1000 lino 1200 1300 1100 1500 160P 1700 1*00 1900 201)0 2100 2200 2300
YF5
KAX HRLY
HATA CHNF
EIS FLAT
NFDS A7
SGUKCE
POLLUTANT
ID NAHF
11101
1 1103
11111
21101
22306
I Sf-
BEN7ENE GRGMCS
AlNHBLN f-ART
TOTAL DUSTF«LLS
NITRATES
12101 CO
f12102 CO
12101 S02
hY
NC
0260? NOi
O 0260^ NOX
"^ 13101 HC
CTiOJIO? NOM1
hf
POLLI'l A N'T
SPFCTFTC OAT*
J/1 !?-«
S-JJJJ-5?
J/1 1P.8A
S-JJJ5S5?
S-JJJ55SS
EMISSION
FACI OK
1,213.398
2,317.719
2.000.719
1,201.99*
1,300.70V
l,201.73e
33,322.719
1,201.116
1,200.719
FM FAC
TOMF RTNT.
f.f FAC
SUUHCE
E^ FAC
OKTGTN
EMISSIONS
ESTIMATES
NEDS A?
EMISSION
«4X HOURLY
Mix HOURLY
1,727
3,3ne
3,330
1,7"7
3,332
2,876
l,72t
SO
1,727
17,901
1,727
o,039
OF
ThRuPtT RATING i
1 S
?
$
3
S
U
S
FLAG
S
FLAG
S
COMMENT
CODE
L
NAKRATIVE
LOCAL GUVSNMT
PHtl.
UTANTS
It
RTNG
FLAG
EIS 5
s
s
s
p
s
5
5
S
S
S
<;
S
S
S
S
s
-------
AKFA y
*ASTF« FJLF DtTAIL LIST
F- ILF LlSTThR
PAGE
STATt
31
COUM Y
OOlb
AUCK
~ SURAlLflC ft
001 35
CMFUOKY
CAUIUIRY UISAG *
00
RtCCRU
TVPF
UFSChlPTICN
CATtr-URY
ADJUST^FNT
PRUCtSS
RATt
UMTS
Cunt CFSCHtPTiON
(JPtRATJNG
HK/0 0/«K HK/YK
lu
to
c
a>
>
CO
I
ro
i
o
o
t-1 3
kO rf
C
n>
o.
CA
JAN
MONTHLY TI-KUPU1 PFKttMAGFS
APP VAY JUN JuL Aun SEP OCT
tFS OF
SULFUR
HEAT
CUNTFNT
YtS
UNIFOH" HOURLY TnRUPUT PtRCENTARtS
ThRUPuT 0000 0100 0200 0300 0^00 0500 OhOO 0700 0800 0900 10QO 1100 1?00 1300 1100 1500 1600 1700 1800 1^00 8000 ?100 Z?Q(I ?300
YFS
EIS FLAG NFOS NFUS «7
1 ? 3 « FLAG FLAG CG^EM
PATA CCNF
TnRUPUT RATJNt
CUOE NAkRATIVt
POLLUTANTS
1
PQLLU1ANT
ID
S 5 S S S
POLLUTANT EMISSION FM FAC Ff FAC F» FAC EMISSIONS NEDS A7 KAx HHuRLY CONF FLAG
SPECIFIC DA1A FACTOR CONF HTNG SOUHCt TRKJIN ESTTMATFS EMISSION Max HPUPLY HTNG ETS 5
oo
eu
•a
n>
o
r^
"O
c
01
IQ
fD
01
O
-fl
CTl
-------
EIS/AS Test 18 - Ad Hoc
Produce a Quick Look Report for County Data
In this test run, county data is extracted from the master file and
listed in a formatted report using the cataloged procedure ECRPM40 which
executes CRTQLED (EC0160), the quick look edit program; CRTQLEX (EC0170), the
quick look extract program; and CRPQUIK (EC0180), the quick look report
program.
The user-supplied quick look control cards are edited by CRTQLED
(EC0160). As these cards are edited, CRTQLED (EC0160) builds two temporary
control files; an extract control file which is passed to CRTQLEX (EC0170) and
a report control file which is passed to CRPQUIK (EC0180). The extract
control file contains the selection criteria needed by CRTQLEX (EC0170) to
extract data from the master file. The report control file contains the
information which determines the format of the report printed by CRPQUIK
(EC0180). An EIS/AS master file is input to CRTQLEX (EC0170) from which data
is selected according to the criteria contained in the extract control file
passed from CRTQLED (EC0160). When data is extracted from the master file, it
is written to a temporary file which is passed to CRPQUIK (EC0180). The data
in this temporary file is printed in a report according to the format
specifications contained in the report control file which is passed from
CRTQLED (EC0160).
The control cards input to CRTQLED (EC0160) must conform to specific
formats. See Figure AST18-1 for a description of the control card formats and
Figure AST18-2 for definitions of the control card fields. Figure AST18-3
contains the data element names and their vaild abbreviations that may be
coded on the control cards; Figure AST18-4 shows the EIS/AS quick look
retrieval load sheet.
The run stream for this test run contains the JCL needed to execute the
quick look package. The purpose of this test run is to create a report
containing the fuel process rates for categories 1 through 64 in each county.
Data will be extracted only when the fuel process rate field of a category
record is non-blank. A page break is specified on the county (CNTY) field and
196
-------
for each page break a subtotal of the number of categories in the county will
be printed. A total of the number of quick look lines will be printed at the
end of the report. In this test run, the total number of quick look lines is
equivalent to the total number of categories listed for each county. The run
stream for this test run is shown in Figure AST18-5.
A substitutable parameter is used to specify the name of the master file
input to CRTQLEX (EC0170). The name of the master file is ECMSTR7 (created in
Test 9). The DD (data definition) information for the control cards input to
CRTQLED (EC0160) is also supplied. Sample output produced by this run stream
is shown in Figure AST18-6.
197
-------
$$SELECT Card
Column # Field Length Data Type Description
1-8 8 Alphanumeric $$SELECT
9 1 Unused
10 - 72 63 Alphanumeric Report Title
73-80 8 Alphanumeric Date
(Page 1 of 8)
Figure AST18-1. Quick Look Control Card Formats
198
-------
1.0 Card
Column #
1 -
6 -
13 -
28 -
31 -
2
3
4
5
9
10
11
12
24
25
26
27
30
80
Field Length
2
1
1
1
4
1
1
1
12
1
1
1
3
50
Data Type
Numeric
Alphanumeric
Alphanumeric
Alphanumeric
Alphanumeric
Alphanumeric
Alphabetic
Description
10
Unused
Left Parenthesis
Unused
Data Element
Abbreviation
Unused
Relational Operator
Unused
Test Value
Unused
Right Parenthesis
Unused
Boolean Operator
Unused
(Page 2 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
199
-------
20 Card
Column # Field Length Data Type Description
1-2 2 Numeric 20
3 1 Unused
4-5 2 Alphabetic Report Type
6-80 75 Unused
(Page 3 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
200
-------
30 Card
Column # Field Length Data Type Description
1 -• 2 2 Numeric 30
3 1 Unused
4-7 4 Alphanumeric Data Element Abbreviation
8 1 Alphabetic Page Break/Subtotal ing
Request
9 1 Unused
10-15 6 Repeat Columns 4-9
16-21 6 Repeat Columns 4-9
22-27 6 Repeat Columns 4-9
28-33 6 Repeat Columns 4-9
34-39 6 Repeat Columns 4-9
40 - 80 41 Unused
(Page 4 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
201
-------
40 Card
Column # Field Length Data Type Description
1-2 2 Numeric 40
3 1 Unused
4-7 4 Alphanumeric Data Element Abbreviation
8 1 Alphabetic Summation Request
9 1 Unused
10-15 6 Repeat Columns 4-9
16-21 6 Repeat Columns 4-9
22 - 27, 6 Repeat Columns 4-9
28-33 6 Repeat Columns 4-9
34-39 6 Repeat Columns 4-9
40-45 6 Repeat Columns 4-9
46-51 6 Repeat Columns 4-9
52-57 6 Repeat Columns 4-9
58-63 6 Repeat Columns 4-9
64 - 80 17 Unused
(Page 5 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
202
-------
50 Card
Column # Field Length Data Type Description
1-2 2 Numeric 50
3 1 Unused
4-7 4 Alphanumeric Data Element Abbreviation
8 1 Unused
9-13 5 Repeat Columns 4-8
14-18 5 Repeat Columns 4-8
19-23 5 Repeat Columns 4-8
24-28 5 Repeat Columns 4-8
29-33 5 Repeat Columns 4-8
34-38 5 Repeat Columns 4-8
39 - 80 42 Unused
(Page 6 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
203
-------
51 Card
Column # Field Length Data Type Description
1-2 2 Numeric 51
3 1 Unused
4-8 5 Numeric Pollutant ID
9 1 Unused
10-15 6 Repeat Columns 4-9
16-21 6 Repeat Columns 4-9
22-27 6 Repeat Columns 4-9
28-33 6 Repeat Columns 4-9
34-39 6 Repeat Columns 4-9
40 - 80 41 Unused
(Page 7 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
204
-------
$$END Card
Column # Field Length Data Type Description
1-5 5 Alphanumeric $$END
6-80 75 Unused
(Page 8 of 8)
Figure AST18-1 - continued. Quick Look Control Card Formats
205
-------
Boolean Operator: Used to combine type 10 cards.
Card Type: 10
Valid Codes: AND, OR
Field Length: 3 characters
Data Element Abbreviation: A four-character abbreviation for a data element
in the EIS/AS master file.
Card Type: 10, 30, 40, 50
Valid Codes: Valid abbreviations are shown in Figure AST18-3.
Abbreviations that are not allowed on the 10 card or 30
card are designated by ** under the heading 10/30 Card.
Field Length: 4 characters
Date: A date to appear on each page of the quick look report or pollutant
summary report.
Card Type: $$SELECT
Valid Codes: This field is not edited, but it is recommended that the
date be entered as MM/DD/YY where MM, DD, and YY are the
month, day, and year, respectively.
Field Length: 8 characters
Left Parenthesis: Used in conjunction with a right parenthesis to group type
10 cards.
Card Type: 10
Valid Codes: ( or blank
Field Length: 1 character
(Page 1 of 4)
Figure AST18-2. Quick Look Control Card Field Descriptions
206
-------
Page Break/Subtotal ing Request: Used to request a page break in the quick
look report when the value of the associated data element changes. Also,
if totaling is requesting on the 40 card, subtotals will be generated
with each page break.
Card Type: 30
Valid Codes: X - page break/subtotal ing requested
blank - page break/subtotal ing not requested
Field Length: 1 character
Pollutant ID: Identifies pollutants for which emissions estimates are to be
included in the pollutant summary report.
Card Type: 51
Valid Codes: 11101 - Total Suspended Particulate
42101 - Carbon Monoxide
42401 - Sulfur Dioxide
42601 - Nitric Oxide
42602 - Nitrogen Dioxide
42603 - Oxides of Nitrogen
43101 - Hydrocarbons
Field Length: 5 characters
Relational Operator: Specifies a comparison to be made between a data element
in the master file and the test value.
Card Type: 10
Valid Codes: E - Equal to
U - Unequal
6 - Greater than or equal to
L - Less than or equal to
(Page 2 of 4)
Figure AST18-2 - continued. Quick Look Control Card Field Descriptions
207
-------
P - Present, any entry
B - Blank
Field Length: 1 character
Report Title: A title to appear on each page of the quick look report or
pollutant summary report.
Card Type: $$SELECT
Field Length: 63 characters
Report Type: Specifies whether a quick look report or a pollutant summary
report is to be produced.
Card Type: 20 card
Valid Codes: QL - Quick look report
SU - Pollutant summary report
Field Length: 2 characters
Right Parenthesis: Used in conjunction with a left parenthesis to group type
10 cards.
Card Type: 10
Valid Codes: ) or blank
Field Length: 1 character
Summation Request: Used to request totals for data elements in the quick look
report. If a page break/subtotal ing request is entered on the 30 card, a
summation request will also cause subtotals to be generated at each page
break for those data elements for which a summation request is entered.
(Page 3 of 4)
Figure AST18-2 - continued.- Quick Look Control Card Field Descriptions
208
-------
Card Type:
Valid Codes:
Field Length:
40
X - summation requested
Blank - summation not requested
1 character
Test Value: Specifies a value against which the associated data element in
the master file is compared.
Card Type: 10
Valid Codes: Valid codes for this field depend upon the associated
data element. The test value should be entered with a
format that corresponds to the format of the data element
in the master file.
Field Length: Variable, no more than 12 characters. Refer to Figure
AST18-3.
(Page 4 of 4)
Figure AST18-2 - continued. Quick Look Control Card Field Descriptions
209
-------
Description Record Data Elements
Data Element Length
Data Element Name
State
County
AQCR
Geographic Suballocation Number
Category Number
Category Disaggregation Number
Year
Day
Air Basin
SMSA
Area Name*
Major Activity*
Associated Plant ID
SIP Base Year
Projected Year
Rural Population Percentage
Population
AQCR Name*
Suballocation Technique Code
Suballocation Technique Description
Defined Area Code
Abbreviation
STTE
CNTY
AQCR
GSUB
CATN
DISA
YEAR
DAYJ
BASN
SMSA
ANME
MACT
PLID
SIPY
PRJY
RPPC
POPN
AQNM
SATC
SATD
DFAC
10/30
Card
2
4
3
5
3
2
2
3
3
4
20
20
4
2
2
2
8
54
2
**
3
40/50 40 Card
Card If Totaled
N/A
5
5
6
5
5
5
5
5
5
21
21
5
5
5
5
9 14
55
5
21
5
*0nly the first 12 characters are used in selection
**Not valid on a 10 card or a 30 card
N/A Not allowed
(Page 1 of 8)
Figure AST18-3. Data Element Abbreviations and Lengths
210
-------
Description Record Data Elements (continued)
Data Element Name
Sulfur Content - Anthracite Coal
Sulfur Content - Bituminous Coal
Sulfur Content - Distillate Oil
Sulfur Content - Residual Oil
Ash Content - Anthracite Coal
Ash Content - Bituminous Coal
Number of UTM Coordinates
UTM Zone 1
UTM Horizontal 1
UTM Vertical 1
UTM Zone 2
UTM Horizontal 2
UTM Vertical 2
UTM Zone 3
UTM Horizontal 3
UTM Vertical 3
UTM Zone 4
UTM Horizontal 4
UTM Vertical 4
UTM Zone 5
UTM Horizontal 5
UTM Vertical 5
Data Element Length
Abbreviation
SUAC
SUBC
SUDO
SURO
ASHA
ASHB
NUTM
UTZ1
UTH1
UTV1
UTZ2
UTH2
UTV2
UTZ3
UTH3
UTV3
UTZ4
UTH4
UTV4
UTZ5
UTH5
UTV5
10/30
Card
2
2
2
2
3
3
1
2
4
5
2
4
5
2
4
5
2
4
5
2
4
5
40/50 40 Card
Card If Totaled
5
5
5
5
5
5
N/A
5
6
7
5
6
7
5
6
7
5
6
7
5
6
7
N/A Not allowed
(Page 2 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
211
-------
Description Record Data Elements (continued)
Data Element Length
Data Element Name
UTM Zone 6
UTM Horizontal 6
UTM Vertical 6
Source Type
Length or Area
Units Code for Length or Area
TSP SIP Estimate
S02 SIP Estimate
NOX SIP Estimate
HC SIP Estimate
CO SIP Estimate
Population Code
Gas Fuel for Light Vehicles
Gas Fuel for Heavy Vehicles
Diesel Fuel for Heavy Vehicles
Motor Vehicle Miles for Limited
Access Roads
Motor Vehicle Miles for Rural Roads
Motor Vehicle Miles for Suburban Roads
Motor Vehicle Miles for Urban Roads
Number of Pollutants
Abbreviation
UTZ6
UTH6
UTV6
TYSO
LNGL
LNGA
ETSP
ES02
ENOX
ESHC
ESCO
POPC
GASL
GASH
DESH
VMLA
VMRR
ids VMSR
VMUR
NPLD
10/30
Card
2
4
5
1
7
2
5
4
4
5
5
1
7
6
6
6
6
6
7
2
40/50
Card
5
6
7
5
9
5
6
5
5
6
6
5
8
7
7
7
7
7
8
5
40 Card
If Totaled
11
10
10
11
11
13
12
12
12
12
12
13
(Page 3 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
212
-------
Description Record Pollutant-Specific Data Elements
Data Element Length
10/30 40/50 40 Card
Data Element Name Abbreviation Card Card If Totaled
Pollutant ID (Description Record) PLTD 5 6
Pollutant Name (Description Record) PNMD ** 16
Attainment Status ATTN 1 5
AQMA Number AQNO 6 7
** Not valid on a 10 card or a 30 card
(Page 4 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
213
-------
Category Record Data Elements
Data Element Name
Category Description
Year of Information
Process Rate
Category Adjustment Value
Units Code
Units Code Description
Uniform Thruput
January Thruput
February Thruput
March Thruput
April Thruput
May Thruput
June Thruput
July Thruput
August Thruput
September Thruput
October Thruput
November Thruput •
December Thruput
Hours per Day
Days per Week
Data Element Length
Abbreviation
CATD
INYR
PROR
CATA
UNTC
UNTD
UNTP
JATP
FETP
MRTP
APTP
MATP
JNTP
JLTP
AUTP
SETP
OCTP
NOTP
DETP
HRDY
DYWK
10/30
Card
**
2
9
7
2
**
1
2
2
2
2
2
2
2
2
2
2
2
2
2
1
40/50 40 Card
Card If Totaled
26
5
10
8
5
13
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
** Not valid on a 10 card or a 30 card
(Page 5 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
214
-------
Category Record Data Elements (continued)
Data Element Length
Data Element Name
Weeks per Year
Thruput Ratio
Maximum Hourly Thruput
Data Confidence Rating
Nitrogen Content
Sulfur Content
Ash Content
Heat Content
Uniform Hourly Thruput
Thruput for Hour Beginning 0000
Thruput for Hour Beginning 0100
Thruput for Hour Beginning 0200
Thruput for Hour Beginning 0300
Thruput for Hour Beginning 0400
Thruput for Hour Beginning 0500
Thruput for Hour Beginning 0600
Thruput for Hour Beginning 0700
Thruput for Hour Beginning 0800
Thruput for Hour Beginning 0900
Thruput for Hour Beginning 1000
Thruput for Hour Beginning 1100
Thruput for Hour Beginning 1200
Thruput for Hour Beginning 1300
Abbreviation
WKYR
RATP
MHTP
CONF
NITP
SULP
ASHP
HTCT
UHTP
OOTP
01TP
02TP
03TP
04TP
05TP
06TP
07TP
08TP
09TP
IOTP
11TP
12TP
13TP
10/30
Card
2
4
10
1
3
2
3
4
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
40/50 40 Card
Card If Totaled
5
6
11
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
(Page 6 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
215
-------
Category Record Data Elements (continued)
Data Element Name
Thruput for Hour Beginning 1400
Thruput for Hour Beginning 1500
Thruput for Hour Beginning 1600
Thruput for Hour Beginning 1700
Thruput for Hour Beginning 1800
Thruput for Hour Beginning 1900
Thruput for Hour Beginning 2000
Thruput for Hour Beginning 2100
Thruput for Hour Beginning 2200
Thruput for Hour Beginning 2300
Information Source Code
Information Source Narrative
Number of Pollutants
Data Element Length
Abbreviation
14TP
15TP
16TP
17TP
18TP
19TP
20TP
21TP
22TP
23TP
ICSO
INSO
NPLC
10/30
Card
2
2
2
2
2
2
2
2
2
2
1
**
2
40/50 40 Card
Card If Totaled
5
5
5
5
5
5
5
5
5
5
5 .
21
5
** Not valid on a 10 card or 30 card
(Page 7 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
216
-------
Category Record Pollutant-Specific Data Elements
Data Element Name
Pollutant ID (Category Record)
Emission Factor
Emission Factor Confidence Rating
Emission Factor Source Code
Emission Factor Origin
Pollutant-Specific Data
NEDS A7 Emission
Pollutant Name (Category Record)
Emissions Estimate
Confidence Rating
Maximum Hourly Emission
Data Element Length
Abbreviation
PLTC
EFAC
EFCR
EFSC
EFOR
SIZE
A7EM
PNMC
EEST
CNFR
MHRE
10/30
Card
5
10
1
1
1
10
7
**
7
1
6
40/50 40 Card
Card If Totaled
6
12
5
5
5
11
8
16
8 13
5
7 12
** Not valid on a 10 card or a 30 card
(Page 8 of 8)
Figure AST18-3 - continued. Data Element Abbreviations and Lengths
217
-------
EIS/AS QUICK LOOK RETRIEVAL
ro
i—"
00
IQ
-5
ro
CO
—I
I—>
00
-p>
•
m
co
.O
o
o
o
ro
r+
-5
«J.
ro
<
QJ
O
Ol
O.
co
rr
ro
ro
c-t-
1 I
«|«|8|E|t.|E|C|T
REPORT TITLE
10 73 73 BO
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1
SELECTION CRITERIA
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1,0
I
DATA
ABBR
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
REL
OP
VALUE
1 1 1 1 f 1 1 t 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 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 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 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
)
AND/OR
, ,
, ,
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
III III II 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 I/I 1 1 /I 1
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1,0
1 10
(
DATA
ABBR
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 1 1
REL
OP
VALUE
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 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 I 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 I 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 1 1 1 1 1 1 1
)
AND/OR
I 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
1 1
RELATIONAL
OPERATORS:
E- EQUAL
U- UNEQUAL
G- GREATER THAN
L - LESS THAN
P - PRESENT
B- BLANK
AND/OR MUST BE
BLANK ON LAST 10
CARD
REPORT TYPE
REPORT COOES:
SU - POLLUTANT SUMMARY REPORT
OL - QUICK LOOK REPORT
REPORT ORDER
3|P
DATA
ABBR
1 1 1
X
DATA
ABBR
1 1 1
X
DATA
ABBR
1 1 1
X
DATA
ABBR
1 1 1
X
DATA
ABBR
1 1 1
X
DATA y
ABBR *
1 1 1
ENTER DATA ABBREVIATIONS LEFT TO RIGHT
ENTER X FOR PAGE BREAK/SUBTOTALLING
QUICK LOOK REPORT FORMAT
1 2
4,0
DATA
AB9H
4 T
1 1 1
T
o
n
DATA
ASBR
IO 13
1 1 1
3
)4
DATA
ABBR
1C |9
1 1 1
O
?n
DATA
ABBR
23 25
1 1 1
5
Jf>
DATA
ABBR
SB ai
i i i
|
32
DATA
ABBR
34 37
1 1 1
0
38
DATA
ABBR
40 43
1 1 1
s
44
DATA
ABBR
46 49
1 1 1
O
t-
50
DATA
ABBR
52 55
1 1 1
s
DATA
ABBR
58 bl
1 1 1
2
*»2
POLLUTANT SUMMARY REPORT FORMAT
5,0
DATA
ABBR
1 1 1
DATA
ABBH
1 1 1
DATA
ABBR
1 1 1
DATA
ABBR
1 1 1
DATA
ABBR
1 1 1
DATA
ABBR
1 1 1
DATA
ABBR
1 1 1
POLLUTANT SUMMARY REPORT POLLUTANTS
I i
6,1
POLLUTANT
ID
4 a
1 1 1 1
POLLUTANT
10
10 14
1 1 1 1
POLLUTANT
ID
Iti ?0
1 1 1 1
POLLUTANT
ID
2? 26
1 1 1 1
POLLUTANT
ID
28 32
1 1 1 1
POLLUTANT
ID
j4 18
1 1 1 1
-------
//AiiTtSllH JDb fACCOUNllNR INFU)
//*
//* FXFCUIE A OUICK LUOK KFPDKT FuR COUNTY DA1A
//*
tCkP,-lOO,
//*
//* CWFATt A KFPOKT CONTAINING THt FUEL PKOCFSS "JATES FOP
//* CATtnuHlFS 1 THROUGH 6« TN tACH CUU.VTV
//*
//FUI i .i^p'ir on *
USELtCl KIEL PROCESS PATES FjP CATERuRlFS l-6« 1H ALL LOU^TItS 02/OI/»0
10 CA1M L 0«>'4 A'JO
10 PWUR P
?0 UL
"50 CNTYX
10 GSUB CATN UTS*
Figure AST18-5. Run Stream
219
-------
02/01/80 F1S/AKFA SOUPCF RtTRTEVAL FOU KFPPHT PAf.£
JJKEIECI CARP - TITLE FUFI PROCESS KAIF.S FCH tMF(,nnits 1-6*4 IN ALL CUI/NTIFS
10 CAhDS - SELECTION CRITERIA
PAREN OATA EI t"ENT cnNnnirw VAI UF PAKEN ANO/UP FKRORS
CATN LFSS THAN OR FOIIAL TC ot/i AND
PROK PRESENT ANY ENI&Y
-j. ?o C«HD - HFPCKT FORMAT ut
(O
c
rt> ^0 CARD - hEPOhT StOUFNCt PAGF R» PROCESS KATF
O
C
cu
U2
0)
O
-h
cn
-------
PROGRAM NA^E: CRTUI.EX f£COI70)
REVISION LF.VEU i-oo
LAST UPDATE »: A-l
PATt INCO«PGRATtOj FF.BRUAKY 1, 19BO
OJV01/80
RtTNILVAI. F
kTS-APEA SUHKCE
IQ
c
-5
ro
8;
OF KFCTRns READ
OF HECC1KOS KP1TTEN
571
RETHICVAL
ro
ro
oo
i
CTl
O
o
rt-
«J.
3
n>
Q.
oo
Q)
•
ro
o
c
rt
"O
c
a>
(Q
ro
ro
o
CTl
-------
HUN U*TE 02/01/80
GO
B)
•a
ro
o
c
r+
T3
C
CAMUI1NA
I IS/*»E» 5UIIHTE
f DDK KKI'OKT
PAHt
Fi.'ti PKOCFSS
FU" rATeGu"iFS i-6'i IN OIL truMTts
COUN GFUGW CMC D1S- P«orbSS
TY
ro
ro
INJ
~n
^jt
10
c
~l
ro
>
i/i
i — »
00
01
(
n
o
Z3
r+
^j.
3
C
ft)
Q.
•
0660
«680
06«0
Ob«0
06RO
06*0
06BO
P6PO
06«0
OfaflO
0680
C6«0
HbSO
06PO
06WO
ObflO
06flO
06«0
f>6«0
ObRO
06«0
ObRO
onono
00000
oouoo
onooo
00000
00000
ooooo
00000
ooooo
ooooo
onooo
ooooo
ooooo
000"0
uoooo
OOOOQ
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
002
003
005
006
006
01 1
016
oib
0?1
025
0?6
0^9
oai
oas
0'J7
052
053
05a
055
()57
OftO
061
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
000000005
000000009
000000013
0000000«9
000000011
000000001
000000008
ooooooooi
OOOC00270
ooooooooi
OOOOOOOP5
OOP001 1*6
00000001 1
000000013
0000005*4
000000575
U000007'19
000000273
0000158^0
0001 11000
000000«57
000002870
OF RECORDS IN THIS CNTY IS
22
CD
ro
oo
o
-------
HUN DMF 02/01/80
SUUIH CAROLINA
tlb/AHtA SUHHCE
OUICK I UOK KFPflKT
FUtL PHPCFSS HMtS FIjP tATfCUHlFS l-6« Ih 0LL cr.UMItS
PARE
COUN GFCRK C*TR CIS- PRuCtSS
TY SUBAL NO. AGCH KATE
-n
_*.
c^
c
-i
n>
>
oo
i
^n
I—"
00
1
CTl
1
O
O
ro 3
ro ct
co -••
=3
c
fl>
ex.
*
c/>
o>
3
•a
a>
o
c
ia«o
12PO
1280
12RO
)2«0
»2flO
12flO
12«0
12PO
1200
12«0
12«0
J2«0
12"0
12*0
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
ooono
onooo
00000
onono
OOflnO
0^000
onooo
ooono
00000
onooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
OOOfll
00001
00001
00001
onsoo
00500
00500
99S99
001
002
003
0011
005
006
007
00«
009
010
Oil
012
013
014
015
Olb
017
018
019
0?0
001
001
0"!
ooi
001
001
001
001
00
no
00
00
00
00
no
00
00
00
00
00
00
00
00
00
00
no
00
00
CO
01
35
99
01
22
70
99
OOOOM0123
000020010
OOQ009750
OOOOOP90Q
OOOP23550
000000050
onoo23bno
00()03«7SO
0000fl?100
000000390
0000087^0
000000005
000098750
000123100
00000°650
000021500
000000980
000056900
0000000?5
0000023^0
000059850
000059850
000059850
000059850
000059850
OOU059C50
000059H50
onon59850
CF PtroRos IN THIS CMr is
Oi
tn
ro
o
-+>
CTl
-------
00
OJ
TD
ro
UATF
COIJN GFur.R c»ir ms-
Tr SH04L NO. «GPk K&TF
Fill. PKPCFSS HATtS
8CITH CAHOL1NA
SlMJKCt
I.UOK KFPDrtT
T AH r,(jP 1FS l-6'l
PAHt
/>IL CCUMTtS
Tl
UD
C
ro
oo
-H
H-1
00
1
en
i
o
o
ro 3
ro c+
3'
a
ro
D.
13*0
13*0
1 3HO
13PO
13«0
13PO
1 3*0
13«0
13«0
13«0
1380
13*0
13BO
1 3PO
13«0
13«0
13PO
13P.O
13PO
13«0
13BO
13«0
1 3PO
OOOOO
OOOOO
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooono
ooooo
OOOno
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooono
ooono
002
003
006
OOfc
009
010
Oil
016
01H
0?
-------
o
rl-
HUN DAJF
CU"N GFOHR C»IG 013-
TY S'lbAL NO. »GG» HATF
sunn*
FUM. PHPCfSS
WFPC1KT
1-6"
ALL CTUMTE..S
Tl
wj.
c
-s
(D
co
—1
oo
<7>
1
o
o
ro 3
ro H"
en ->•
cz
fD
0.
OO
CU
3
ID
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
ooooo
ooooo
ooooo
0000(1
OOOOO
ooooo
oouoo
ooooo
ooooo
ooooo
ooooo
ooooo
OOOOO
ooooo
ooooo
ooooo
ooooo
OOQOO
ooooo
ooooo
ooooo
ooooo
ooooo
000^0
ooooo
00|
002
003
005
000
009
010
Oil
014
016
017
078
0?1
034
Otu
045
017
052
053
05«
055
057
058
059
060
00
00
"0
00
00
00
00
00
00
00
00
00
00
00
00
oo
00
oo
00
00
00
"0
00
00
00
ooooooooi
0000000"!
0000001P3
0000000^6
OOOOOOQOl)
00 (1000030
000000015
0000000?5
0000002P1
000000062
000000170
0000000?3
000001167
000001 !"'<
OOOOOOOOj
000000311
000000767
00000006b
000000567
000000207
OOOOOOOJO
000000167
0000002»5
000000619
0000000*0
NUMHFH OF RECORDS IN THIS CNTY is 25
TOTAL NUMBER OF OUICK LUCK LIMFS tOLMLS
CU
ua
CTi
o
(Ti
-------
EIS/AS Test 19 - Ad Hoc
Produce a Quick Look Report for Particulate Emissions
In this test run, a report containing particulate emissions is generated
using the cataloged procedure ECRPM40 which executes CRTQLED (EC0160), the
quick look edit program; CRTQLEX (EC0170), the quick look extract program; and
CRPQUIK (EC0180), the quick look report program.
CRTQLED (EC0160) edits user-supplied control cards and creates two
temporary control files; an extract control file which is passed to CRTQLEX
(EC0170), and a report control file which is passed to CRPQUIK (EC0180). See
EIS/AS Test 18 for a discussion of these programs and files.
The run stream for this test run contains the JCL needed to execute the
quick look package. The purpose of this test run is to create a report
containing particulate emissions for categories 1 through 27 in each county.
Since emissions estimate is a pollutant-related field, the pollutant code must
be specified as part of the selection criteria in the user-supplied control
cards (in this case the pollutant code is 11101).
A page break is specified at the county level and the totalling option
has been specified for emissions estimates. Consequently, a subtotal of
emissions estimates will be printed for each county (page break) and a final
total of all emissions estimates contained in the report will be printed at
the end of the report. The run stream for this test run is shown in Figure
AST19-1.
A substitutable parameter is used to specify the name of the master file
input to CRTQLEX (EC0170). The name of the master file is ECMSTR7 (created in
Test 9). The DD (data definition) information for the control cards input to
CRTQLED (EC0160) is also supplied. Sample output produced by this run stream
is shown in Figure AST19-2.
226
-------
//ASTt.'UW JCtb r ACLOUN1 Itjr, INFO)
//«
//* . FXFCIITF A QUICK lunn «FHOHT FOR
//*
//TtSM9A EXFC
// MSTHFiL
//*
//* CWFATt A KEPOKT CUN7/»1MJMG FAKTiCULATE tMISSIONS
//* FuR CoTERURIFS 1 IHHnuKH 27 I nl E'CH COUNTY
//• SPECIFY A PAGE bP£4n AT THF COUNTY LEVEL AND THE
//« TOTALLING OPTION
//•
//EOT! .JNPII1 DO *
SiStLtCT PAKTICULATt E"ISS!OMS FOK C4IEGOKIES 1-37 IN ALL COUNTIES 02/01/flO
iu C»TN r; 001 AND
tU C4TN.L 027
10 PI. 1C E 1 1 J01
?0 OL
GRUP C»TN DISA PL7C EESTx
Figure AST19-1. Run Stream
227
-------
FIS/AKFA SPU^CF utTwitv^i FUJI KFHOKT PARE 01
SISELECT c«hn - TJTLF PAPTKULATF F*TSSITNS FOP rMtnijpjFs i-?7 IN AIL cruMits
10 CARDS - SF.LFCTIC'N CPITtRIA
PAPEM DATA Ei.t"fc^i tn\pnjr,N VAI JF
CATN G"»E*TFt< IhflN HK EQUAL 10 001
CATN LF.SR THAN nc ^GIIAL'tc 027
PLTC EOU»L ir 11101
-n ?o CARP - RFPOKT FORMAT 01
—I.
in
c
-J ?0 CAWP - HFPCHT SEQUFNTE PAGF BKFAK/ SUBTOTALS
05 COUNTY X
> •cPimv
t/J *CAlFGnRY
^J «WAS1FK FILF
VO
-, J, «0 CARD - OIUCK LOOK DATA
1^ . TOTAL
oo •COUNTY (KF:Y DATA ELFCFNT, ALWAYS PKESFMJ
^ GFCGhARHic SUPALLOCATTON
Q> CATEGPWY NU"BFk
^ CATEGORY niSA^GPEf^ATfc NO.
—i POLLUTANT IT - CATEGORY kEC
"> V EMISSIONS
O
c
c+
T3
tz
ri-
-O
QJ
CO
(B
I—'
O
-h
CTl
-------
NA"L! CKTUI t * f f. C 0 1 7 0 )
FVFL: 1-00
1AM U"C*ir »: A-l
DATE jNCQKPUOAltO: hFbPu«fcY i.
O?/P!
RtTHItVAl E«T«ACT REPORT
fcIS-A»t»
PF KFcnwns
OF
37)
I Ih
>
CO
I
ro
ro
ro
O
o
HUlv DATE
IN*
t!S/AP£A SilHiTL
I. UP* HFMflHT
PAKE
EMISSIONS
C'TrGHHlE? 1-27 If. ALL
CO
Ol
3
o
c
rt-
T3
C
CD
to
0>
ro
CUUN
TY
Oo*0
Pb"0
Pb«0
06*0
06«0
06«0
06"0
0^80
06"0
16R0
06PO
06flO
PfePl)
ObfiO
GFGRh
SUBAL
0 P 0 P P
OOOOU
00000
OOOPo
UPOPO
00000
oooou
OPOOU
OOOPO
00000
OOOOU
OOOPO
ooooo
OOOPO
CA1G
wr.
OP?
003
OP"
005
On6
OP6
01 1
013
016
Olfi
0?u
0?5
0?fc
0?7
nis- HI T
*(,r.H c*ir-\r
PO
00
Oy
Pu
PO
PO
00
00
00
00
PO
00
PO
1
P]
101
PI
01
PI
PI
01
PI
PI
101
101
101
DPI
00 1 1 1 PI
FfISS
FSTJV
0 u 0 0 P 0 P
OOPOPOO
OOOOPOO
POOOPOP
POOljOO 1
0000000
PUOQPOO
OQPOOOP
0000000
P l' 0 0 0 0 0
OllOoOO?
POOOOOP
POPOOOP
OOOOPOO
NUMBER
WtrOKDS In IHJS TNlY IS
-------
HUN DATF 02/ul/PO
ro
CO
o
CL
oo
3
T3
fD
O
f ARUI 1NM
« SUUtVrt.
MiTCX I UH(\ WFPOKT
HAHIKULATt t^JSSTOKS ^ Cf CATTGOKIFS 1-?7
PAT,t
ALL COUNTIES
_,.
ia
c:
-5
Ja
oo
— I
vo
i
ro
i
o
3
rt-
3
C
tTt
COUM
Ty
12*0
12*0
12*0
12*0
12*0
12PO
12«0
12«o
12*0
12«0
12*0
12*0
12*0
12*0
12*0
12*0
12*0
12»0
12*0
12PO
SUB™
onooo
onooo
ooooo
ooono
ooooo
OOOOO
ooooo
onooo
OOOOO
ooooo
onooo
ooooo
OnoOO
ooono
ooooo
ooooo
ooooo
ooooo
onooo
ooooo
CATH
001
002
onj
000
005
006
007
on«
009
010
01 1
012
013
014
015
016
017
old
01S
0?0
nis- PLI
00
nu
00
00
00
00
00
00
00
00
no
00
00
no
00
00
no
00
00
no
mi
1 n i
1 n i
1 n i
ini
ini
101
101
101
1"!
101
101
101
101
ini
101
101
101
1 n i
101
FMSS
n o n u n o o
nun on HO
n o n o n m
nopooi"
0001*30
0000002
0000353
0000579
0001?o3
oooono*
nonoo«a
ooooooo
00nu3«5
noooni?
0 o n o o 3 0
nooo*«e
ooooo«e
0001050
oooonni
oooooei
SUBTOTAL
OF "ECORUP IN THIS CNTV is
a>
co
o
-------
WIN ,U«IF (li'/Ol /BO
PACE.
OUTC'K LUPK
fJSSIGKS K?h I « Tf- liORT hS l-?7
«LI
IQ
sz
n>
co
vo
i
ro
CUUN
TV
13«0
i 3*0
13PO
13RO
1 JfiO
13«0
13«0
13«0
13«0
13«0
13«0
13«0
13«0
GFL^H
S'lbAL
Onooo
OOliPO
00000
00000
00000
00000
onooo
OPOOO
OPOOO
00000
00000
OOOPO
OOOPO
NO.
002
003
006
OOh
Oft«rf
01 0
01 1
016
016
0?
a.
oo
CU
3
ro
o
-a
NUMHFH CF PLCCPD? TN THIS CMY is
to
ro
o
-»i
CTl
-------
HUN DA1F 02/01/PO
(jQ
c
fD
>
CO
I
ro
o
~ §
co H-
ro _i.
fD
D.
co
Q)
-o
__l
fD
SUU1"
t 1 S/A«t A
LOOK
HAKTlfULATE t^JSS JUI-'S
l-?7
A|_l tUl'NT]FS
COHN
TY
1 7PO
I 7*0.
1 7flO
1 7*0
17RO
17«0
17PO
1 7^0
17*0
i ?RO
1 710
17BO
GFCC.H
ooooo
ooooo
ooooo
ooooo
oooou
ooooo
ooooo
ooooo
OOOOO
ooooo
ooooo
Q1000
CATC,
NC.
00?
003
0"b
OOfc
006
01 1
016
0 1 f
0?4
0?5
0?6
0?7
nis- PLI
A t P H c i> i r, t
OU 1
0(1 1
Oil 1
00 1
00 1
00 1
00 1
00 1
00 1
00 1
00 1
oo i
101
1 01
1 o i
101
101
I'M
101
01
01
01
01
01
FMTSS
ooooooo
ooooooo
"000000
0000001
ooooooo
ooooooo
OOOOOOO
ooooooo
000000?
OOOOOOO
ooooooo
nooonoo
RUPTOI »L
17flO
NUMBER OF
RECORDS IN IHI? TNI
3
Y IS 12
ft
T3
C
<-+
"^
G)
O>
cn
o
-h
CTi
H1IN t)A IF 0?/0 1 /SO
PA
co'iN GFCHR c*ir. nis- PLT
TY vSUBAL Nr. AGT.K CATGY
SOUTH CAPUL 1NA
tis/A«tA Rijnwrt
CUTL K i uOK KFPDKT
HfirULATt twI33IUN3 (-PW CAltG^MItS 1 -? 7 IN' ALL COI'NTIFS
FHIS*
FSII"
PAKE b
OOOOO 0?3 00 11101
suniniAL
OOOOOOO
NU*«bEH OF PECORUS IN IH1S CMy JR
-------
RUN OAIF 02/01/KO
ro
CO
CO
to
c
fD
CO
IO
I
IS)
o
o
3
(0
Q.
CO
Ol
•O
fD
O
C
SOUTH CAROLINA
Pt« SU"inrt
LU"K RFHOKT
PARK
PAHTJCULATt EMSStOK'S
1-?7 IN ALL
CUUN
TV
7860
7860
7P60
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
7860
bFOGH
SMBAl.
ooooo
OOOOO
OOQOO
OOQOO
ooooo
OOOOO
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
CMC,
NO.
001
002
003
005
one
009
010
Oil
010
Olfe
017
018
0?1
0?
-------
EIS/AS Test 20 - Ad Hoc
Produce a Quick Look Pollutant Summary Report for the Criteria Pollutants
In this test run, a summary report of the criteria pollutant emissions is
obtained using the cataloged procedure ECRPM40 which executes CRTQLED
(EC0160), the quick look edit program; CRTQLEX (EC0170), the quick look
extract program; and CRPQUIK (EC0180), the quick look report program.
The user-supplied control cards input to CRTQLED (EC0160) are slightly
different from those used to execute a regular quick look report. In a
pollutant summary report, the 50-card is the counterpart of the 40-card which
is used in a quick look report. See EIS/AS Test 18 for further discussion of
the quick look package.
The run stream for this test run contains the JCL needed to execute the
quick look package. The purpose of this test run is to obtain a summary
report of the criteria pollutant emissions. The criteria pollutants and their
associated pollutant codes are: total suspended particulates (11101), carbon
monoxide (42101), sulfur dioxide (42401), oxides of nitrogen (42603), and
hydrocarbons (43101). The pollutant summary report automatically lists the
county, category number, category disaggregate number, and emissions estimates
for the criteria pollutants. Additional information may be requested through
the use of the 50-card, but the additional information must not be related to
a specific pollutant. For this test run, additional information specified on
the 50-card includes the geographic suballocation number and the year of the
information.
A page break occurs at the county level with subtotals of the emissions
estimates printed for each county. A total of emissions estimates for each
state is also printed. If the input master file contains information from
only one state, then the total emissions for the state will also be the total
emissions listed in the report. Since no 10-cards are input to CRTQLED
(EC0160) in this test run, all master file category records will be processed
for selection. Totaling and page breaks cannot be requested for a pollutant
234
-------
summary report, therefore, no 30-card is submitted in this test run. The run
stream for this test run is shown in Figure AST20-1.
A substitutable parameter is used to specify the name of the master file
input to CRTQLEX (EC0170). The name of the master file is ECMSTR7 (created in
Test 7). The DD (data definition) information for the control cards input to
CRTQLED (EC0160) is also supplied. Sample output produced by this test run is
shown in Figure AST20-2.
235
-------
//*
//» ptvnoucF A PUILUIANT SUMMARY PEPURT
//*
//TLSI?O« FXFC
// MSTHFJI =F
//»
//« PwnoutF THE SUMHAKY RI.PURI ^IIH
//* GtDGRMPHIC SUbALLOCATION NUMBE" AND
//* Yt»»< Uc INFU^MAT TUW FJELOS INCLUDED
//« TIM [Ht KEPHKT
//*
//FUTl.lNP'M OH *
SiStltC! SUMMftPY kFpntvT FUP THF CrtlTF.HlA POLtUTAMTS n2/01/»0
?o an
SO GSUB INYk
Figure AST20-1. Run Stream
236
-------
O>
UD
fD
OP/01/80
FlS/AfcTA STUl-CF RETHltVM FDT1 HFHPKT
PAGt 01
I*StlECT C1HT - TJTLF
FTK IHfc C"»lTt>'lA
20 CAHn . KFHTKT FUOKA1
co
o
i
00
CD
•g
—i
0)
O
r+
T3
C
30 C«HP -
• C'lUNTY
StOUF.NCE
*VASTFK FILE
PAtF
50 CAKO - SUGARY
*COUNTY
suRALLnc«^^o^
TF
«>
-------
^
co
00
10
c
-5
ro
GO
—I
ro
o
i
ro
o
o
(=
tt>
0.
Pt
np HFCOHHS
•571
CO
QJ
3
T3
__j
fD
O
C
•a
c
ct
Cu
CQ
ro
ro
o
-------
HUN DATE 02/01/80
f APt
PUILHIANT SUI"MAt
j.,
co
— I
0
1
PO
1
o
o
PO 3
CO <-»•
3
ro
ex
*
CO
Cu
3
"O
n>
o
c
rt
"O •• — ••
f" ~O
(n
ro
COUN
TY
1280
1280
1280
1280
1280
1280
1280
1280
12*0
1280
12«0
1280
1280
12«0
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
1280
THT4I
CA1F
001
002
003
00(1
0^5
0 ^ t
007
one
on«
010
01 1
012
013
014
015
Olb
017
ote
019
020
99<;
001
001
001
001
999
001
001
001
99S
9O<»
001
99S
FH T?
AGG\
no
no
no
00
00
00
no
oo
PO
00
no
PO
00
00
no
00
00
no
00
00
no
00
01
35
99
00
01
22
70
00
no
99
00
iS I Dt\
GFORK
( S'IBAL
00000
OPOPO
OPOPO
ooooo
OPono
01000
OPono
ooooo
ooooo
OOono
onoPo
OPOOO
ooooo
ooooo
ooooo
OOOOO
00 on o
ooooo
ooooo
OOOOO
ooooo
00001
OP001
OOOP1
onflOl
onooi
00500
00500
00500
OP500
006! 1
99909
V0999
.«: Fnn r
YFAK
79
79
79
79
79
79
79
T)
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
• •-Hi, -t . i?un.
TyP C«
0
«0
15
1 i)
1 «J3 0
2
3S3
579
1263
8
an
0
«385
12
''o
e«e
"8
1 050
i
81
10607
0
u
0
0
0
0
0
0
0
0
0
0
i nt,u 7
n
i.
^
T
7
P
7
in
12
n
•^
0
28
3C
•?
6
n
16
n
i
1 n o
p
n
p
p
P
p
n
p
p
r
r
P
1 n A
SU? I^CX
FKlSSIf^S L"ISS!
(1
0
6
0
1 V
0
«7
76
2°b
1
?b
0
217
0
5
97
b
0
b
9«3
(1
0
0
0
(I
0
0
0
0
u
0
0
O/l 'i
rt'*s
p
ic
n
«;
&9
n
2?
3t
317
3
16
0
"1?
1
u
25
3
79
n
8
1036
n
n
p
p
p
n
p
p
0
0
0
p
HC
FMSSJHNS
0
1331
bib
592
1 566
3
1563
?31 1
2800
?b
582
0
6567
8206
bS5
IU30
65
378U
2
1 So
32287
0
0
0
0
0
0
0
0
0
0
0
p
O
-h
-------
ro
-F»
O
-s
ro
GO
—I
ro
O
ro
i
n
o
3
c
n>
Q.
Put LIU AlvT
FUR TnF rwTTFhTA
COUN
rr
?23b
2258
2238
2238
C«TE
GHhY
u23
0"7
UhO
9<5S
DJS
SGT.k
00
no
00
no
GFUGK
SUbM.
ooooo
uoooo
uouoo
ooono
INf-C
YFflG
7<5
7"
/">.
TSP
ft* TSS10NS
0
0
0
s
en . so?
t'-'jSSTDKS hMTSSJ'CNS
r>
0
n
o1
r^CX
flSSlONS
it
0
0
3
HC
FMISSIONS
0
n
n
u.
i)
0
0
0
TOTAL
FOR COUNTY 223"-
TCTAL FCISSIONS FOR StLECIFD KECORDS IN STATE 06
913
CO
Cu
•a
«^
n>
o
c
rl-
"O
C
a>
03
fD
-------
EIS/AS Test 21 - Ad Hoc
Produce a Quick Look Pollutant Summary Report for Six Pollutants
In this test run, a pollutant summary report for six pollutants is
generated using the cataloged procedure ECRPM40 which executes CRTQLED
:.(EC0160), the quick look edit program; CRTQLEX (EC0170), the quick look
extract program; and CRPQUIK (EC0180), the quick look report program.
The user-supplied control cards input to CRTQLED (EC0160) are similar to
those used in EIS/AS Test 20. The major difference is that a 10-card and a
51-card are supplied along with the 20-card and the 50-card. The 10-card is
for selection purposes and the 51-card specifies the six pollutants which are
to appear in the report. See EIS/AS Test 18 for further discussion of the
quick look package.
The run stream for this test run contains the JCL needed to execute the
quick look package. The purpose of this test run is to obtain a summary
report of the emissions for the six pollutants: total suspended particulates
(11101), carbon monoxide (42101), sulfur dioxide (42401), nitrogen dioxide
(42602), oxides of nitrogen (42603), and hydrocarbons (43101). These
pollutants are specified through the use of the 51-card. A 10-card specifies
that any category record selected for the report must have a non-blank process
rate. See EIS/AS Test 20 for further discussion of the quick look pollutant
summary report. The run stream for this test run is shown in Figure AST21-1.
A substitutable parameter is used to specify the name of the master file
input to CRTQLEX (EC0170). The name of the master file is ECMSTR7 (created in
Test 7). The DO (data definition) information for the control cards input to
CRTQLED (EC0160) is also supplied. Sample output from this procedure is shown
in Figure AST21-2.
241
-------
//AS1LS1?! JOrj
//*
//* PkrtlJOCF A SUMMAKY PtP(J»l F"r( USEP-RPF.CI F
//« PULLi'TArfTa
//*
//TtS)?14 FXFC fcCkPMau,
//*
//» SELECT THOSt HASTE" Ptru»DS WHOSF PROCESS
//* »KF PKFSF.uT; PKOOUCE ThF REPORT FOH 1 HE SIX
//* POLLUTANTS SPECJFIFU
//*
X/EUT 1 .]NHIJT On *
SlSEl.tCI SHM"4R» KFKPKT FUP SIX POLLUTANTS 02/01/80
10 PHD" p
?0 SU
so RSuP TNYK
•^1 IIIPI
Figure AST21-1. Run Stream
242
-------
ftO FIS/AKFA SnuPCF RtTHltVAL EUtl KEPDKT PAGt 01
SiSEI ECT C*nn - TITLE SU"MAHY PtPU"T H~K SIX
10 CAKDS - SFLFCTIPN
PAREN DATA Eld^fcNI CHNniTlTN VALUE HAHFN AND/OR FHRuRS
PHHH PPESEM ANY EMPY
?o CAHD - HEPOKT FORK*! 'su
~n
*£§ 30 CARO - HFPPHT SEQUFNCE t'AliF 8RFA"
T ^COUNTY
ro *C»1EGOKY
j> «NASTFR FILE SEOUFNCE
CO
j^ 50 CARO - S'JKVARY DATA ELFKFNTS
I-" *COUNTY
^O ^ *CATFGORY
4S> . •DISAGGREGATE
00 GEOGRAPHIC SUBALLOCATION
(^ YEAR OF IK'FC
EU «KEY FIELDS
"^i 51 CARD - REQUESTED SUMNARY POLLUTANTS
& TSP
o cr
c sm
-5" N0x
C NOX
rf HC
01
co
ft)
-------
o
o
ro rs
-fa. r+
3
ro
a.
co
Oi
3
T3
ro
o
r+
-a
c
IO
ro
ro
o
chUji.E* (t-cono)
LFVFL: i-oo
l«si UPD»TF «: A-I
RFTHIEVAL FXTKACT
o?/ni/eo
NUCPER OF KECHRDS kEAP
CF KFCC-KOS ft
to
c
T COMINUING (SlTI- RETRIEVAL
i
ro
-------
HUN UMF 02/OI/flO
PAGt
cn -"<
115/APtA SUUHCE
PULLUIANT
KFPDhT Fu« SJX
Tl
to
c
-J
(0
j»
co
ro
ro
i
0
o
•^
— <•
13
(D
Q.
co
QJ
3 '
T3
n>
TY
1280
12«0
12«0
12*0
12«0
1 2"0
12*0
12*0
1?"0
12«0
12*0
12«0
12«0
12«0
12«0
12PO
12«0
12"0
12*0
12*0
1 2*-0
12«0
12PO
1 2"0
VO
1 2"0
12«0
1260
CA1E
GPRY
001
002
003
004
OOb
006
007
OOU
009
010
01 I
012
0)3
014
015
016
017
ote
019
0?0
001
001
001
001
OC1
001
001
001
nis
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
no
00
00
00
00
00
01
35
99
01
?2
70
99
SI'B»L
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
00000
ooooo
ooono
ooooo
uoooo
ooooo
ooooo
ooooo
ooooo
ooooo
ooooo
OOOOQ
OOOPO
ooooo
onooi
ooooi
ooooi
ooooi
00500
00500
00500
V9999
INK
YFAR
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
79
TS«> cn
FMSSIPNS t^lSSI
0
flO
15
10
1 tHU
i
3*3
579
12M
a
44
0
OiflS
12
30
cap
08
1050
i
ni
0
0
0
0
0
0
0
0
UNS
0
k
n
1
7
0
7
10
12
ft
3
0
2"
35
3
6
n
If-
0
1
0
n
n
0
0
0
0
P
SU? NCX
FMISS1CKS LHSS1
0
0
6
0
19
0
17
76
295
1
26
0
217
0
5
97
6
102
0
6
0
0
0
0
0
0
0
0
0
19
0
c;
ft9
n
2?
36
317
j
Ifr
0
012
1
4
25
3
79
0
P
n
n
0
0
0
0
0
n
NUX nr
FMISSJPNS t"lSS
0
19
0
5
R9
0
22
•>,(.
317
2
16
0
412
1
4
25
3
79
0
e
0
0
0
0
0
0
0
0
n
1331
Mfl
*92
1^66
J
1563
2311
2flOO
26
*£?
n
6*67
6206
655
IflJO
65
37*4
p
156
0
0
n
n
0
p
0
0
TOTAL FCISSJCNS FOP COUNTY i?eo-
IUO
903
Oi
(jQ
n>
O
-h
-t^
-------
WUN DATE Oi/01/PO
tIS/ARtA SlH'MCt
PULLDTANT PU^MAHY PtDuwT
FOP six POLLUTANTS
ro
01
ts>
ro
i
ro
r>
o
c
n>
a.
CO
DJ
o
c
COUN CATF PIS GFOGK 1NFT
TV GnKY AGHH SUBAL YFAP
TSD
FMSSIPNS
CO
flSSTUKS
SU2
FHISS1CNS
NCX
NOX
FMTSSJHNS
223B
0?3
0«7
00
00
ooooo
00000
7"
79
0
0
0
0
0
0
fl
n
0
0
0
0
TOTAL EMISSIONS FUP COUNTY
TOTAL EMISSIONS FOR SELECTED KECOWOS IN S1«TF 06
10607
110
OU3
10JP
1036
3a?87
(K
-F*
O
-------
EIS/AS Test 22 - Ad Hoc
Execute the Retrieval Package and Produce a Quick Look Report from the Answer
File
In this test run, the retrieval package is executed using the cataloged
procedure ECRTM30 which executes CRTLNGP (EC0090), the retrieval language
processor program; the COBOL compiler; the linkage editor; and CRTGENR
(EC0100), the generated retrieval program. A quick look report is produced
from the answer file using the cataloged procedure ECRPM40 which executes
CRTQLED (EC0160), the quick look edit program; CRTQLEX (EC0170), the quick
look extract program; and CRPQUIK (EC0180), the quick look report program.
Two sets of user-supplied control cards are necessary for this test run.
The first set consists of EIS/AS retrieval specification cards which are input
to CRTLNGP (EC0090). The second set consists of the quick look control cards
which are input to CRTQLED (EC0160). See Test 7 for a discussion of the
retrieval package and Test 18 for a discussion of the quick look package.
The run stream for this test run contains the JCL needed to execute the
retrieval package and the quick look package. The purpose of this test run is
to demonstrate the interactive capabilities of the retrieval and quick look
packages. In this test, an answer file (a subset of the master file) is
produced using the retrieval package. This answer file is used as the input
master file for the quick look package which creates a report from a subset of
the answer file. The answer file produced by the retrieval package is
cataloged for future use. It contains master file description records that
have a year of '75' or greater and a blank population field, description
records that have blank year and population fields, and all category records
that are subordinate to these description records. Comment records are not
selected for inclusion in the answer file.
The quick look report produced from the answer file contains only a
subset of the answer file records. The data elements listed in the report
include the county, the geographic suballocation number, the category number,
247
-------
the category disaggregate number, the year of information, the pollutant ID,
and the emission factor and emissions estimate associated with the pollutant.
All emissions estimates are totaled. The run stream for this test run is
shown in Figure AST22-1.
Substitutable parameters are used when executing the procedure ECRTM30 to
supply the names of the master file input to CRTGENR (EC0100) and the answer
file output from CRTGENR (EC0100). The names of these files are ECMSTR7
(created in Test 9) and ECANSR5, respectively. A substitutable parameter is
also used to override the disposition of the answer file. The overriding
disposition is 'NEW,CATLG,DELETE1.
A substitutable parameter is used when executing the procedure ECRPM40
to supply the name of the master file input to CRTQLEX (EC0170). The name of
the file is ECANSR5, the answer file output from CRTGENR (EC0100).
The DD (data definition) information for the retrieval specification
cards input to CRTLNGP (EC0090) and the quick look control cards input to
CRTQLED (EC0160) is also supplied. Sample output from this test run is shown
in Figure AST22-2.
The same quick look report could be produced without the use of the
retrieval package, but there would be no answer file to retain for future
use. The quick look package produces a temporary file which contains only key
information and the data extracted for the report. This temporary file is
deleted at the end of the run.
There may be other reasons that require the user to incorporate the
retrieval and quick look packages. Suppose the user wishes to produce a quick
look report, but the selection criteria involves more than twenty 10-cards
which is the maximum for a given report. In most cases, the selection
criteria can be divided into subsets. The most comprehensive subset(s) can
then be used with the retrieval package to produce an answer file. This
answer file can then be input to the quick look package along with the
remaining selection criteria to produce the desired report. For example,
suppose the selection criteria for a quick look report were as follows:
248
-------
1. 10 SITE B OR
2. 10 ( YEAR E 75 AND
3. 10 CATN G 005 AND
4. 10 CATN L 037 AND
5. 10 INYR G 78 AND
6. 10 PLTC E 11101 AND
7. 10 EEST G 0000001 ) OR
8. 10 ( YEAR E 77 AND
9. 10 CATN G 005 AND
10. 10 CATN L 037 AND
11. 10 INYR G 78 AND
12. 10 PLTC E 11101 AND
13. 10 EEST G 0000001 ) OR
14. 10 ( YEAR B AND
15. 10 POPN B AND
16. 10 RPPC B AND
17. 10 CATN G 005 AND
18. 10 CATN L 037 AND
19. 10 INYR G 78 AND
20. 10 PLTC E 11101 AND
21. 10 EEST G 0000001 )
Execution of the quick look package would be terminated since there are
twenty-one 10-cards. The first 10-card specifies that a record is to be
selected if the state field is blank, but this will never occur since the
state field is part of the key information and will always contain a value.
This card is necessary only because the first 10-card should not contain
parentheses.
The problem can be solved by dividing the selection criteria into
subsets. Since lines 3 through 7, 9 through 13, and 17 through 21 are
identical, they can form a subset. These data elements are associated with
category records. The remaining data elements (YEAR, POPN, and RPPC) are
associated with description records. Since category records are subordinate
to description records, the data elements YEAR, POPN, and RPPC will be the
249
-------
comprehensive subset. The retrieval request cards derived from this subset
are as follows:
$$SELECT 0 1
YEAR = '75' OR
YEAR = '77' OR
(YEAR = ' ' AND
POPULATION = ' AND
RURAL-POPULATION-PERCENT = ' '
$$END
The number of quick look control cards is reduced significantly. They are as
follows:
$$SELECT
10 CATN G 005 AND
10 CATN L 037 AND
10 INYR G 78 AND
10 PLTC E 11101 AND
10 EEST G 0000001
20 QL
•
•
$$END
Hence, the problem is solved and the user has the option of retaining the
answer file created from the retrieval procedure.
250
-------
//ASTtS12<> JOB
//*
//* Re'THTEVE KFCCIHOS f-PUM ThF *AS1FH FTLF ANP
//* PKOOKCF A OUICK LUMlv HFpntfl FKHM THt ANSWER FILE
//*
FXFC
//*
//• SELECT THE OFsrKiPTinN AND CATEGOKV WECU»DS FU» »«HTCH
//* THE YEAK is NOT LESS THAN IVTS o» NUT RIVEM «NO FOR
//* WHTCH NU POPIILATIOW FIGURE IS GJV£N
//*
//GENEP. TNPUT 00 *
tJSELECI 0 1
(YFA»78 ow
. INPUT no *
TSP fcMlSSTONS J" CATEGURJFS 5-37 Fftnw 197P TO PRESENT
10 C«1^ G OQS ANO
lU CAT" I 037 ANLi
10 1MYP G 76 AMD
lu PI TT F 11101
?0 til
«0 GSUB CATM DISA ]NYR PLTC EFAC EESTX
Figure AST22-1. Run Stream
251
-------
ETb/A? PbTKltVAL L AMibARt
- t; I AfiNCST JT P£PUM
CKiL*'GP
REVISION LFVFL: 1-00
LAST UPOAIF »: A-l
DATt INCORPORATED: FFbPUAHY 1, J<»80
INPUT
ro
en
ro
CO
—I
ro
no
i
ro
CO
O
P »
(YEAR
YEAh
POPULAT1HN
< '7S«
= ' •)
= '
NUMBEh OF CONJPOt fAPDS PE»U:
NO^BFR CF RETKHVAL SKFLEION KECHRTS RFAP:
NUMbFR GF REThTtVAl 301'RCE RECrKOb »R]TTEi\:
NoMdFR CF CONfclTIUKAL VtSS»liFS:
NU"BF.H CF A60KT
5
83?
91b
0
0
oa
">
O
-h
FJS/Aa '.FUFhAlEIJ KFIP1FV«L
- UTAGrtTSTir RtPUR]
PAf;t
PROGP-Af ^A^'t: ThTGfNR (bCOlOO)
PtvisinN LFVFL: i-"o
LASl UPCAK »: A-l
OATf lNCOKPUR*Ttn: FFbUOAKY 1, J98"
NU»*BFH CF
CF
OF
FTLF PtccRus REAU:
ULE RETCRUS HR
-------
o?/oi/»
CO
r\5 30 C*HO - HFPnhT SEOUFNCE HAGE BHFAK/ SUBTUTALS
T3 «COUNTY
ro *t«TFl>CKY
f «"ASTFR
O 00 C»RO - QUICK I COK T.ATA
§ TOTAL
<-+ *CCUNIY TKFY D.«T> FLFKFM, ALWAYS PKFSFNT)
_
OJ " EW1SSIU*S
•
O
c -o
rt o
IQ
ro
O
CATEGORY
CATF&TWY niSAGGCERATE NO.
YFAB OF I^FP
HOLLUTAM ID - CATEPl'Rr
E"I?SIO" FACTCw
-------
r»
ro §
en ri-
c
n>
o.
CO
Ol
O
c
rt
c -o
ft* Qf
to
ro
CO
o
Of VI Sins LPVFL! 1-00
uPCAir »: »-i
INCOKPURATEn: fFBPUAKV 1,
U2/C1/80
DF KFcrwns RFAH ^OP
T COMIMIING hTTH RETKTF.VAL
ro
ro
ro
i
ro
-------
HIIN OAlf 02/01/PO
p»r-t
SLlUHCt
CllTC* I I
TSH
IN CATFGuPlFi: b-47 F«riM 19/ft TL
ro
en
en
to
c
-s
CO
ro
ro
ro
i
o
o
c
fl>
Q.
CO
n>
•o
CD
o
c
-o
rt
Q>
ID
fO
-P*
O
COLIN UFCGK CAIG nis-
TY sufcAL NO.
JLT FHISSJOK;
VFAP CATGY FACTOR
t •" T 1 1"
12*0
12*0
12*0
1 PRO
12*0
1 2*0
1 2*0
1 2*0
12*0
1 2ft 0
12*0
12*0
12*0
12*0
12*0
12*0
2238
0000(1
OOOOO
OOOOO
ooono
ooooo
OOOOO
OOOOO
ooooo
ooono
ooooo
ooooo
ooono
ooooo
OOOOO
ooooo
ooooo
OOOOO
005
006
on?
OOB
009
010
01 1
012
013
010
015
016
017
oie
019
0?0
023
00
00
00
no
no
00
00
00
00
00
no
00
no
no
00
00
00
79 1
79 1
79 1
79 1
79 1
79 1
79 1
79 1
79 1
79
7°
79
79
7°
79
79
79
101
01
01
01
01
01
01
01
0'
01
01
01
01
01
101
101
101
nonooo7
0000002
0000001
nononoi
0000001
noooooi
oooonoi
0000001
noooooi
noooooi
0000001
0000001
noooooi
0000001
nooonoi
0000001
0000008
.000
.00^
.000
.000
.000
.000
.000
.000
.000
.000
.000
.oon
.noo
.000
.000
.000
.000
oooie'50
OOOOU02
0000353
(i 0 0 0 ^ 7 S
00012^3
onooooe
UOU0014
OOQOOOO
ooou3*b
ooonoi2
OOOOOJU
OOOOPO*
oooooue
00010SO
OOOOQO J
00000*1
ooooooo
GRANO TOTALS
TOTAL
CF OIITC" LOCK LTNFS EQUALS
17
-------
EIS/AS Test 23 - Ad Hoc
Execute the Retrieval Package and Produce a Batched Answer File and a Detailed
Report of the File
In this test run, a batch retrieval is executed using the cataloged
procedure ECRTM30 which executes CRTLNGP (EC0090), the retrieval language
processor program; the COBOL compiler; the linkage editor; and CRTGENR
(EC0100), the generated retrieval program. The answer file output from
CRTGENR (EC0100) is sorted using the cataloged procedure ECSRM10 which
executes CSRMSTR (EC0110), the master file sort program. A detailed list of
the sorted file output from CSRMSTR (EC0110) is produced using the cataloged
procedure ECRPM20 which executes CRPMSTR (EC0130), the master file detailed
report program.
The user-supplied retrieval request cards input to CRTLNGP (EC0090) are
divided into groups which are called batches. Each batch is separated from
the preceding batch by a $$SELECT card and is supplied with a sequence number
by CRTLNGP (EC0090). When CRTGENR (EC0100) selects a master file record, this
sequence number is inserted in the record to indicate the batch in which the
record qualifies. The input master file records are compared with each batch
of retrieval criteria, therefore a record may be selected more than once. The
resulting answer file is sorted into batch number sequence by CSRMSTR
(EC0110). The user must supply an option card to CSRMSTR (EC0110) specifying
that a BATCH sort is to be performed. The sorted answer file is printed in a
detailed report by CRPMSTR (EC0130). The batch number will appear in the
upper right corner of each page of the detailed report. The report may not be
in master file sequence since the input answer file is sorted in batch number
sequence. An option card is supplied as input to CRPMSTR (EC0130) to indicate
the maximum number of printed lines per page in the detailed report. Test 7
provides a discussion of the retrieval package and CRPMSTR (EC0130); Test 10
contains a discussion of CSRMSTR (EC0110).
The run stream for this test run contains the JCL needed to execute the
retrieval package, the master file sort program, and the master file detailed
report program. There are three batches designated in the retrieval request
256
-------
cards. The first $$SELECT card specifies that both description and category
records are to be retrieved. Information contained on any succeeding $$SELECT
card will be ignored. The run stream for this test run is shown in Figure
AST23-1.
Substitutable parameters are used when executing the procedure ECRTM30 to
supply the names of the master file input to CRTGENR (EC0100) and the answer
file output from CRTGENR (EC0100). The names of these files are ECMSTR7
(created in Test 9) and ECANSR6, respectively.
Substitutable parameters are used when executing the procedure ECSRM10 to
supply the names of the master file input to CSRMSTR (EC0110) and the sorted
master file output from CSRMSTR (EC0110). The names of these files are
ECANSR6 and ECANSR7, respectively.
A Substitutable parameter is used when executing ECRPM20 to supply the
name of the master file input to CRPMSTR (EC0130). The name of this file is
ECANSR7.
The DD (data definition) information for the retrieval specification
cards input to CRTLNGP (EC0090), the option card input to CSRMSTR (EC0110),
and the option card input to CRPMSTR (EC0130) is also supplied. Sample output
from this test run is shown in Figure AST23-2.
257
-------
jnh r ACCOUNT INC; INFU)
//•*
//• PLKFOK" « bwTcH RtTwitVAi AND PWOOUCF A
//* ntlAlLFu hFPORT FROM T«l SnHTtO Ar;S*FR FILF
//*
//TtS]?iA FXFC
//
//*
//* RUWTtVt !H«fL tlAlCHFS liF RtCuBuS HftStH ON [HE
//* FHILO-ING TUl'ijTY ft»'l> SllbALl UCATJON KFSTRICTIONS:
//* (ii h pnoTitvF PUPAL PUPULATION PEKCENIAGF LESS
//* tHA" 00 X KIT" A TOTAL POPULATION LESS THAN
//* 50,00"
//* (2) A Kt'KAL PDHl'LAriUN PERCENTAGE GPEAIFH 1HAN
//* «OI rtllH A MUN-BLANK PODUt.AT I0rj FTGURF
//* f3) A TOIAL HnfUL»TTUM CRFAT£P THAN 110,000
//*
//RENt". INPUT Dl> *
TiSELECT 0 1
> '00' AND
< '<40' AND
POpU" ATIOM < '00050000*
PURAL-PltPULATinN-PERCENT > '«0< AND
POPULATION * = ' •
SSRELECT
POPULATION > 'ooiooooo*
//TES12JR FXFC ECSRMtu,
//*
//* SCUM l^t ANSWK»< F]Lh FRO" SIFP A US1WI, THt
//* HATCH
.UP1 lONib on
BATCU
FXFC
//*
//* PkfluUCF t PETATLFU RFPORT OF THE SOKTtn
//* ANS*'F.K FTLF FKPM STfP f
//*
//I.1S1 .uPTTU'JS) un .
Figure AST23-1. Run Stream
258
-------
tTS/AS Pf-TMtV/>|. I.
RtPl,P|
PHOGPA*
RfcVjMON LFVFL: '-00
I.ASI UPDATE *: A-l
r>ATt
(tCO<19HO
ro
tn
tt>
5
ro
w
ro
INPUT (CONTROL
ststi.trt n i
PUPAL-PCPUI
PCPUI ATJON
POPULATJPN
SJSEI. Ed
POPUI.ATJON
'uoosnnon1
>
fJ 5
CA»OS Ph«os to
CF RETKTEVAL SKFLFICN RFCORHS KFA":
OF RtTHtEVAL SOURCE KFCCCOS (.RIT1FNS
UF CONUIIWAl MESSAGES! 0
UF AbORT "ESSAGFSt 0
AMD
•a
re
o
<-«•
•a
rt-
EIS/«S l,FNFHAfFU
Q)
Id
(D
CHTliFNR
REVISION LFVFL: t-nu
I AST UPUMF «: A-J
OATE
NU"HFK CF "ASHH FTLF PkCLPDS RMUt
CF VASIFK piue RETIRUS
OF cuMJiiTONAL
-------
US/AS ^APIFK MLT SUCT PHIJRKAN1. - UI ARIMf'ST IT PfPHPI
o
o
ro 3
CT> rt
O —
a
ro
a.
rtrouo)
REVISION LFVFL: t-oo
I.AS1 U»'U*|F »: A-l
PATE INCOKPUFATtn: f-FHPUAHY 1,
S(jf»l UPITIJN SHFtUTtn-
(£1
i= NU"bFH OF PtTUUDS
ro MUMBFH OF PECUPUS "'k
> WU«*BFK UF DIAGNOSTIC
oo
—I
ro
CO
ro
at
"Hj AHFA SPOPCr ^A.SIFh MLF ntTATL LUiT
fD
o
c
-£" ^^ PRPG»A" NA"t! CKPKSIR
c -o RtviRjnN LFVFL: l-on
i,
ro
OPTION I* FFFtCT: ^0 LINTS PF.K P«GF
O
NUMHFh IjF RfcCUROS "tAQ: o
(JF ntSCRIPFTU^l RfcCCROP: •'
CF CATtTORY HFCOWRSt 1
OF ru^'^F^T wtroPDS: o
-------
AKFA SnU>Ur *AStf-H MLF fHTA'i. LIST
f i L r i i << 17 N r.
PAGt
*»*****•*«•***#
I»TF COUNTY AfJCR AufH NA^F
PLAM ID UEUT. SUF> » SMS*
n?o ooooo 0213
TYHF
CATfcfH'RY
a
*IK
P A S ] '•
tuft* cruF
ATI ivn Y
I TUK-
CO
nuo
on
013
ro
CT)
IO
C
n>
oo
ro
CO
ro
i
o
o
c
ro
oo
Q>
fD
O
rt-
•a
c
U«TF
Yh/UAY
S1F PASt
YEAK
YF.Ah
TYPF
#Kf
LFNf-TH
A UNITS
CO
PCF
cent
P(JP
PUP I
ui m ION
TGI AL
NU"t,FK I'l" M
j"hFiy CF
jLLin AtvTi
80/OOH
0| HC-P17
7"
VFhT
B?
02 HORJ7
l?,?«S.Sb 5«
MTV
VF«T
03 HUP17
ni 123.u
VF«T
SULFUB CCNTENT5
ArvTh BIT(J" OI?T
TOAL COAL OTL C1L
0.6
UD
n>
CO
o
CCMFNTS
AMI" blllJK
COAL r.C«L
04
S6
GAS FUEI
VFHICI.ES
HEAVY
23
:i7 VEKT
!.P 5120.5
Ob f-CFI7 VFHT
12 ?«S.7 8Q6S.1
06 HC.RJ7 VFKT
12 223.5 5M2.?
OUSEL FUEL
VEhlCLFS LIMITED ATCFSP RUOAl.
p(;^ s
L'*mES
ono?3
SULFUR rjcxioF
ISt'-l
nooi?j
5,303
*««
«*«
***
* #«
00
-------
EIS/AS Test 24 - Ad Hoc
Create the Official NADB Emission Factor File and Produce a Detailed Report
In this test run, the official NADB area source emission factor file is
created from EIS/AS emission factor file transactions using the cataloged
procedure ECEME10. This procedure executes CSREFTR (EC0010), the emission
factor file transaction sort program; and CEMEFAC (EC0020), the emission
factor file edit-maintenance program. The file output from CEMEFAC (EC0020)
is listed in a detailed report using the cataloged procedure ECRPE10 which
executes CRPEFAC (EC0150), the emission factor file detailed report program.
The transactions input to CSREFTR (EC0010) must be in EIS/AS emission
factor file transaction format. An option card must be supplied as input to
CEMEFAC (EC0020) specifying a control date, a warning message option
(optional), and a list option (optional). Also, a dummy file must be
specified as input to CEMEFAC (EC0020) since this is a file creation run. See
EIS/AS Test 1 for a discussion of CSREFTR (EC0010), CEMEFAC (EC0020), and
CRPEFAC (EC0150).
The run stream for this test run contains the JCL needed to execute the
emission factor file maintenance and detailed report procedures. The purpose
of this test run is to create the official NADB emission factor file which
will be used in live runs of the EIS/AS system. It is suggested that the user
keep a backup of this file in the event that the original file is
inadvertently deleted. The run stream for this test run is shown in Figure
AST24-1.
Substitutable parameters are used to supply the name of the emission
factor file output from CEMEFAC (EC0020) and input to CRPEFAC (EC0150). The
name of this file is NADBEMF. The DD (data definition) information for the
transactions input to CSREFTR (EC0010) and the option card input to CEMEFAC
(EC0020) is also supplied. Sample output from this test run is shown in
Figure AST24-2.
262
-------
JOB f Af"(;niiMT TNT;
//• CKFATE IHL UFMCIAL NAHb EMISSION
//• 111. 1. ANi> LIST T T
//Usi?4A FXFC ECt'itiu.
//• IISF FIR/AS t"issiu'j Far.iOK TRANSACTIONS TO GFNFHAIF
//* TMF OFFICIAL HLF
"*
//5URT.1NHIM UO «
OOOOOOOOOOOOOIOO 7«17V »ESjr>tNT AMTHRACITE CUAL 1A
OOOOOOOQOOOOOIOOF iiioj«oosoonoooioooo SUSPENDED PAKT. 3A
3A
N OXIDtS
«3101«0050000000?500 TOTAL HY
7«179 OESIDENI BITUMINOUS TUAL 1A
11101781790000020000 SHSPt'JOFO PAKT. ^A
OOOOOOOOOOOu020('F 02" 0 1 B00500000038UOO SULFER DIOxIl>F ^A
TOTAL HYT. A»bON ?A
O000000000000300 7«179 ^ESJOEMl UIST1LLA1F OIL 1A
0000000000000300F 11101800SOOOOOOO?SOO SUbPEMOEO PAKT. JA
OOOOOOOOP0000300F a 2101ttOOSOOOOOOOSOOO CARRON MUNOXJOE 3A
0000000000000300F 02001800SOP00011"000 SULFUR OIOXTDF 3A
0000000000000300F 02602800S0000001BOOO M OXIDES 3A
OQ00000000000300F Ui101POOSoOOOOOO1000 TOTAL HY raRHON ^A
oooooooooooooaoo 7^179 PESIIEMTiAI. RESIDUAL OIL IA
OoOOOOOOOOOUOiJOOp 11101800S0000001#»WOO SHSPEr'OFO PAHT. !^A
OflOOOOOOOOIOOunoF
M
ooodooooooooouonF nsioiaoosoooooooiooo TOTAL HY
(Remainder of transactions omitted)
.fal'LFF 1)0 r>IJ"MV
.UPi IUMS L>r> »
P0001
//
//• l.lr>1 IHfc OFFICIAL FILE GFi.EKATFD IN STFP A
Figure AST24-1. Run Stream
263
-------
EIS/AS EMISSION FACTOR FILL TRANSACTION SORT. PROGRAM - DIAGNOSTIC REPORT PACE
c
-5
n>
GO
—i
ro
ro ro
en •
PROGRAM NAME.! CSREFTR (tCOOlO)
REVISION LEVEL: i-oo
LAST UPDATE «j A-l
DATt INCORPORATED: FEBRUARY 1, 1980
NUMREH OF INPUT TRANSACTIONS: 380
NUMBER OF OUTPUT TRANSACTIONS: s«5
GO
0)
-§ EIS/AS EMISSION FACTUK FILE EOIT-MAINTENANCE PROGRAM . DIAGNOSTIC REPORT PAGE
__j
ro PROGRAM NAME: CEMEFAC (Ecooao
o REVISION LEVEH i-oo
S- LAST UPDATE «: A-l
•O DATE INCORPORATED: FEBRUARY 1, l"5flO
r+
OPTION CARD
J" CONTROL DATE IS 80001, ERROR OPTION IS NIlhLAGw, LIST OPTION IS NULIS1
CO
fD
t—' '
O
-h
NUMBER OF TRANSACTIONS READ: 385
^ NUMBER OF ERRORS DETECTED: 0
NUMBER OF WARNINGS DETECTED: o
NUMBER OF TRANSACTIONS REJECTED: o
NUMBER OF EMISSION FACTOR FILE RECORDS HEAD: o
NUMBFR OF EMISSION FACTOR FILE WFCORDS WRITTEN: 385
-------
EIS/AS EMISSION FACTOH FILE DETAILED REPDKT PROGRAM . DIAGNOSTIC NEPORT PAGE
PROGRAM NAME: CHPEFAC (EC0150)
REVISION LEVFL: i-oo
LAST UPDATE «1 A-l
DATE INCORPORATED: FEBRUARY i, i960
EMISSION FACTOR FILE RECORD CUUNTt J85
NUMHER OF CATEGORIES IN LIST: 6«
NUMBER OF POLLUTANT ENTRIES IN LIST: J20
TI FEDERAL POLLUTANT ENTRIES: 520
7?' STATE POLLUTANT ENIRIE3: 0
C LOCAL POLLUTANT ENTRIES: 0
~5 NUMBER UF ERRORS: 0
ro NUMBER OF PAGES IN REPORT: 11
>
CO
ro
-P>
ro
o
o
ro 3
cr> c+
tn ->•
oo
tu
o
t-h
"O *~^
c -o
rf Oi
in
ro
ro
-------
EIS/AS EMISSION FACJl'R FILE DF1»ILED REPORT
PAGE
ro
Oi
Co
ro
.p.
ro
i
o
o
C
n>
a.
co
Cu
•a
«^
a>
QJ
IQ
co
o
-h
CO
STATE COUNTY SUBALLOC P1SAC, CATEGORY
CO^E NAME NUMrtER * NUMBER DESCRIPTION
EMF
YY
00 0000 00000
80
78
80
80
60
00 0000 00000
78
80
BO
BO
78
00 0000 00000
80
80
80
80
80
00 0000 00000
80
80
80
80
80
00 0000 00000
78
80
80
80
60
00 0000 00000
78
80
80
60
60
DATE
DOD
050
179
050
050
050
179
050
050
050
179
050
050
050
050
050
050
050
050
050
050
179
050
050
050
050
179
050
050
050
050
CAT DATE FLAGS/CONTtNIS X • S
YY ODD NIT SUL ASH
PULLUTANT EMISSION
]0 NAME ORIG SOURCE FACTO1*
00 001
11101
12101
42101
12602
13101
00 002
11101
12101
12101
12602
"310!
00 005
11101
12101
12101
12602
13101
00 001
11101
12101
12101
o02
13101
00 005
11101
12101
12'I01
12602
13101
00 OOb
11101
12101
IPtOl
1260?
13101
RESIDENT ANTHRACITE COAL
SUSPENDED PART. FEOERAL
CARBON MONOXIDE FEDERAL
SULFER DIOXIDES FEDERAL
N OXIDES FEDERAL
TOTAL HY CARBON FEDERAL
RESIDENT BITUMINOUS COAL
SUSPENDED PART. FEDERAL
CARBON MONOXIDE FEDERAL
SULFER DIOXIDE FEDERAL
N OXIDES FEDERAL
TOTAL HY CAKBUN FEDERAL
RESIDENT DISTILLATE OIL
SUSPENDED PART. FEDERAL
CARBON MONOXIDE FEDERAL
SULFUR DIOXIDE FEDERAL
w OXIDES FEDERAL -
TOTAL HY CARBUN FEDERAL
RESIDENTIAL RESIDUAL OIL
SUSPENDED PART. FEDERAL
CARBON MONOXIDE FEDERAL
SULFUR DIOXIDE FEDERAL
N OXIDES FEDERAL
TOTAL HY CARBON FEDERAL
RESIDENTIAL NATURAL GAS
SUSPENDED PART. FEDERAL
CAHBHN MONOXIDE FEDERAL
SULFUR DIOXIDE FEDERAL
N OXIOES FEDERAL
TOTAL HY CAHBUN FEDERAL
RESIDENTIAL HtlOD
SUSPENDED PART. FEDERAL
CARMON MONOXIDE FEDERAL
SULFUR DIOXIDE FEDERAL
N OXIOES FEDERAL
TOTAL HY CAHBHN FEDERAL
78 179
10.000
90.000
38.000
3.000
2.500
78 179
2U.OOO
90.000
38.000
3.000
20.000
76 179
2.500
5.000
111.000
16.000
1.000
78 179
lb.900
5.000
159.000
18.000
1.000
78 179
10.000
20.000
0.600
RO.OOO
6.000
78 179
25.000
150.000
0.500
1.000
b.OOO
CUNF POLLUTANT
LEVEL SPEC DATA
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
n
0
0
0
0
0
0
0
0
0
-------
APPENDIX A
CROSS-REFERENCE OF TESTS, PROCEDURES, AND PROGRAMS
Test
Procedures
Programs
ECEME10
ECRPE10
CSREFTR (EC0010)
CEMEFAC (EC0020)
CRPEFAC (EC0150)
ECFMM20
CCENETR (EC0030)
CSRINTR (EC0050)
CMSEFIN (EC0060)
CFMMSTR (EC0070)
ECEMM10
CEDMSTR (EC0040)
CSRINTR (EC0050)
CMSEFIN (EC0060)
CFMMSTR (EC0070)
4
5
ECRPM30
ECEDT10
ECMST10
ECFMM10
CRPDUMP (EC0140)
CEDMSTR (EC0040)
CSRINTR (EC0050)
CMSEFIN (EC0060)
CSRINTR (EC0050)
CFMMSTR (EC0070)
6
7
ECRPM10
ECRTM30
ECRPM20
CRPASNA (EC0120)
CRTLNGP (EC0090)
CRTGENR (EC0100)
CRPMSTR (EC0130)
8
ECRPM10
CRPASNA (EC0120)
267
-------
Test
9
Procedures
ECFMM30
Programs
CMSEFGN (EC0080)
CSRINTR (EC0050)
CFMMSTR (EC0070)
10
ECRTM10
ECRTM20
ECSRM10
ECRPM30
CRTLNGP (EC0090)
CRTGENR (EC0100)
CSRMSTR (EC0110)
CRPDUMP (EC0140)
11
ECEME10
CSREFTR (EC0010)
CEMEFAC (EC0020)
12
13
14
15
16
17
ECEDT10
ECCET10
ECMSM10
ECMST10
ECRTM30
ECRPM30
ECRTM30
ECRPM20
CEDMSTR (EC0040)
CCENETR (EC0030)
CMSEFGN (EC0080)
CSRINTR (EC0050)
CMSEFIN (EC0060)
CRTLNGP (EC0090)
CRTGENR (EC0100)
CRPDUMP (EC0140)
CRTLNGP (EC0090)
CRTGENR (EC0100)
CRPMSTR (EC0130)
18
ECRPM40
CRTQLED (EC0160)
CRTQLEX (EC0170)
CRPQUIK (EC0180)
19
ECRPM40
CRTQLED (EC0160)
CRTQLEX (EC0170)
CRPQUIK (EC0180)
268
-------
Procedures
ECRPM40
Programs
CRTQLED (EC0160)
CRTQLEX (EC0170)
CRPQUIK (EC0180)
21
ECRPM40
CRTQLED (EC0160)
CRTQLEX (EC0170)
CRPQUIK (EC018Q)
22
ECRTM30
ECRTM40
CRTLNGP
CRTGENR
CRTQLED
CRTQLEX
CRPQUIK
(EC0090)
(EC0100)
(EC0160)
(EC0170)
(EC0180)
23
ECRTM30
ECSRM10
ECRPM20
CRTLNGP (EC0090)
CRTGENR (EC0100)
CSRMSTR (EC0110)
CRPMSTR (EC0130)
24
ECEME10
ECRPE10
CSREFTR (EC0010)
CEMEFAC (EC0020)
CRPEFAC (EC0150)
269
-------
Procedure EIS/AS Tests
ECCET10 13
ECEDT10 5, 12
ECEME10 1, 11, 24
ECEMM10 3
ECFMM10 5
ECFMM20 2
ECFMM30 9
ECMSM10 14
ECMST10 5, 15
ECRPE10 1, 24
ECRPM10 6, 8
ECRPM20 7, 17, 23
ECRPM30 4, 10, 16
ECRPM40 18, 19, 20, 21, 22
ECRTM10 10
ECRTM20 10
ECRTM30 7, 16, 17, 22, 23
ECSRM10 10, 23 ,
270
-------
Program EIS/AS Tests
CCENETR (EC0030) 2, 13
CEDMSTR (EC0040) 3, 5, 12
CEMEFAC (EC0020) 1, 11, 24
CFMMSTR (EC0070) 2, 3, 5, 9
CMSEFGN (EC0080) 9, 14
CMSEFIN (EC0060) 2, 3, 5, 15
CRPASNA (EC0120) 6, 8
CRPDUMP (EC0140) 4, 10, 16
CRPEFAC (EC0150) 1, 24
CRPMSTR (EC0130) 7, 17, 23
CRPQUIK (EC0180) 18, 19, 20, 21, 22
CRTGENR (EC0100) 7, 10, 16, 17, 22, 23
CRTLNGP (EC0090) 7, 10, 16, 17, 22, 23
CRTQLED (EC0160) 18, 19, 20, 21, 22
CRTQLEX (EC0170) 18, 19, 20, 21, 22
CSREFTR (EC0010) 1, 11, 24
CSRINTR (EC0050) 2, 3, 5, 9, 15
CSRMSTR (EC0110) 10, 23
271
-------
TECHNICAL REPORT DATA
(Please read Instructions on the reverse before completing)
1. REPORT NO.
EPA 450/4-80-018
3. RECIPIENT'S ACCESSIOWNO.
4. TITLE AND SUBTITLE
Emissions Inventory System/Area Source (EIS/AS)
Test Run Series Documentation
5. REPORT DATE
October 1980
6. PERFORMING ORGANIZATION CODE
7. AUTHOR(S)
The Research Triangle Institute
Operations Analysis Division, Research Triangle Park, N
8. PERFORMING ORGANIZATION REPORT NO.
------- |