Any hardcopies utilizing DNR data sets shall clearly indicate their source. If the licensee has modified the data in any way they are obligated to describe the types of modifications they have performed on the hardcopy map. Licensee specifically agrees not to misrepresent DNR data sets, nor to imply that changes they made were approved by DNR.
These data are not to be used for commercial profit.
Data capture, compilation and library maintenance: Marge Bargh, Colin Treworgy, and other coal section staff Compilation of library tiles to create this product: Barbara Stiff Subsequent processing: Dan Nelson Documentation: J. Hines, B. Stiff, D. Nelson, and S. Beaverson Quality Control: R. Rice, D. Nelson, R. Krumm
The following coal library coverages are those that contain information for overlapping coal mines/seams used in this coverage.
*path_name_suppressed*/mpoly200 *path_name_suppressed*/mpoly220 *path_name_suppressed*/mpoly999 *path_name_suppressed*/mpoly200 *path_name_suppressed*/mpoly220 *path_name_suppressed*/mpoly999 *path_name_suppressed*/mpoly220 *path_name_suppressed*/mpoly250 *path_name_suppressed*/mpoly200 *path_name_suppressed*/mpoly220 *path_name_suppressed*/mpoly999 County is indicated by c*** and mine layer is indicated by mpoly***.
To do this, the coverages were copied to the following: copy *path_name_suppressed*/mpoly200 mp059 copy *path_name_suppressed*/mpoly220 mp259 2 copy *path_name_suppressed*/mpoly999 mp959 3 copy *path_name_suppressed*/mpoly200 mp0165 4 copy *path_name_suppressed*/mpoly220 mp2165 5 copy *path_name_suppressed*/mpoly999 mp9165 6 copy *path_name_suppressed*/mpoly220 mp2183 7 copy *path_name_suppressed*/mpoly250 mp5183 8 copy *path_name_suppressed*/mpoly200 mp0199 9 copy *path_name_suppressed*/mpoly220 mp2199 10 copy *path_name_suppressed*/mpoly999 mp9199 11The number in the rightmost column above was used in the item redefinitions to create a unique set of items for each coverage. The polygon attribute items for the coverages are listed below. For each coverage, the asterisk was replaced with the corresponding number. For example, the asterisk would be replaced by the number 3 to uniquely identify the set of attribute items in coverage mp959.
COL ITEM NAME WDTH OPUT TYP N.DEC 1 AREA 4 12 F 3 5 PERIMETER 4 12 F 3 9 MP959# 4 5 B - 13 MP959-ID 4 5 B - 17 X*A 4 4 I - 21 P*A 2 2 I - 23 T*A 1 1 C - 24 M*A 1 1 C - 25 X*B 4 4 I - 29 P*B 2 2 I - 31 T*B 1 1 C - 32 M*B 1 1 C - 33 X*C 4 4 I - 37 P*C 2 2 I - 39 T*C 1 1 C - 40 M*C 1 1 C - 41 CT* 3 3 I - 44 PP* 2 2 C - ** REDEFINED ITEMS ** 17 MN*A 6 6 C - 25 MN*B 6 6 C - 33 MN*C 6 6 C -
The UNION was performed as follows: union mp059 mp259 u1 .01 join union u1 mp959 u2 .01 join union u2 mp0165 u3 .01 join union u3 mp2165 u4 .01 join union u4 mp9165 u5 .01 join union u5 mp2183 u6 .01 join union u6 mp5183 u7 .01 join union u7 mp0199 u8 .01 join union u8 mp2199 u9 .01 join union u9 mp9199 u10 .01 join The resulting coverage was named U10.
All the extraneous COVER# and COVER-ID items were dropped from coverage U10 as follows: DROPITEM U10.PAT U10.PAT U1# DROPITEM U10.PAT U10.PAT U1-ID DROPITEM U10.PAT U10.PAT U2# DROPITEM U10.PAT U10.PAT U2-ID DROPITEM U10.PAT U10.PAT U3# DROPITEM U10.PAT U10.PAT U3-ID DROPITEM U10.PAT U10.PAT U4# DROPITEM U10.PAT U10.PAT U4-ID DROPITEM U10.PAT U10.PAT U5# DROPITEM U10.PAT U10.PAT U5-ID DROPITEM U10.PAT U10.PAT U6# DROPITEM U10.PAT U10.PAT U6-ID DROPITEM U10.PAT U10.PAT U7# DROPITEM U10.PAT U10.PAT U7-ID DROPITEM U10.PAT U10.PAT U8# DROPITEM U10.PAT U10.PAT U8-ID DROPITEM U10.PAT U10.PAT U9# DROPITEM U10.PAT U10.PAT U9-ID DROPITEM U10.PAT U10.PAT MP059# DROPITEM U10.PAT U10.PAT MP059-ID DROPITEM U10.PAT U10.PAT MP259# DROPITEM U10.PAT U10.PAT MP259-ID DROPITEM U10.PAT U10.PAT MP959# DROPITEM U10.PAT U10.PAT MP959-ID DROPITEM U10.PAT U10.PAT MP0165# DROPITEM U10.PAT U10.PAT MP0165-ID DROPITEM U10.PAT U10.PAT MP2165# DROPITEM U10.PAT U10.PAT MP2165-ID DROPITEM U10.PAT U10.PAT MP9165# DROPITEM U10.PAT U10.PAT MP9165-ID DROPITEM U10.PAT U10.PAT MP2183# DROPITEM U10.PAT U10.PAT MP2183-ID DROPITEM U10.PAT U10.PAT MP5183# DROPITEM U10.PAT U10.PAT MP5183-ID DROPITEM U10.PAT U10.PAT MP0199# DROPITEM U10.PAT U10.PAT MP0199-ID DROPITEM U10.PAT U10.PAT MP2199# DROPITEM U10.PAT U10.PAT MP2199-ID DROPITEM U10.PAT U10.PAT MP9199# DROPITEM U10.PAT U10.PAT MP9199-ID
This is the AML that was used.
-----Begin AML----- &sys date &sv cover = coalmines_py2
&call ADDEM
display 1040 arcedit ec %cover% lab sel all &mess &off &s selnum = [show number select] cursor open &do count = 1 &to %selnum% &by 1 &call HOWLONG &call PROCESS /*&call MULTI cursor next &end save %cover% exit
&mess &on &call DROPEM &sys date &ret
------------------------------------------------
&routine ADDEM additem %cover%.pat %cover%.pat m-index 4 4 i additem %cover%.pat %cover%.pat pit 2 2 i additem %cover%.pat %cover%.pat type 1 1 c additem %cover%.pat %cover%.pat method 1 1 c
additem %cover%.pat %cover%.pat m-index2 4 4 i additem %cover%.pat %cover%.pat pit2 2 2 i additem %cover%.pat %cover%.pat type2 1 1 c additem %cover%.pat %cover%.pat method2 1 1 c
additem %cover%.pat %cover%.pat m-index3 4 4 i additem %cover%.pat %cover%.pat pit3 2 2 i additem %cover%.pat %cover%.pat type3 1 1 c additem %cover%.pat %cover%.pat method3 1 1 c
additem %cover%.pat %cover%.pat m-index4 4 4 i additem %cover%.pat %cover%.pat pit4 2 2 i additem %cover%.pat %cover%.pat type4 1 1 c additem %cover%.pat %cover%.pat method4 1 1 c
additem %cover%.pat %cover%.pat m-index5 4 4 i additem %cover%.pat %cover%.pat pit5 2 2 i additem %cover%.pat %cover%.pat type5 1 1 c additem %cover%.pat %cover%.pat method5 1 1 c &ret
&routine HOWLONG &sv progchk = [calc %count% / 100] &sv rnd = [round %progchk%] &if %progchk% = %rnd% &then &do &mess &on &type %count% records processed &mess &off &end &ret
&routine PROCESS &do j = 1 &to 11 &by 1 &do k = 1 &to 3 &by 1 &sv id = [value :edit.$recno] /* &type x%k%%j% /* &type %id% &sv mvalue = [value :edit.x%k%%j%] /* &type %mvalue% &if %mvalue% gt 0 &then &call CHANGEM &end &end &ret
&routine MULTI &sv num = 0 &do j = 1 &to 11 &by 1 &do k = 1 &to 3 &by 1 &sv id = [value :edit.$recno] &sv thevalue = [value :edit.x%k%%j%] &if %thevalue% ne 0 &then &sv num = [calc %num% + 1] &end &end &if %num% gt 3 &then &do &mess &on &type "$recno %id% has more than three values." &mess &off &end &ret
&routine CHANGEM &if [value :edit.m-index] = 0 &then &do calc m-index = [value :edit.x%k%%j%] calc pit = [value :edit.p%k%%j%] calc type = [quote[value :edit.t%k%%j%]] calc method = [quote[value :edit.m%k%%j%]] &end &else &if [value :edit.m-index2] = 0 &then &do calc m-index2 = [value :edit.x%k%%j%] calc pit2 = [value :edit.p%k%%j%] calc type2 = [quote[value :edit.t%k%%j%]] calc method2 = [quote[value :edit.m%k%%j%]] &end &else &if [value :edit.m-index3] = 0 &then &do calc m-index3 = [value :edit.x%k%%j%] calc pit3 = [value :edit.p%k%%j%] calc type3 = [quote[value :edit.t%k%%j%]] calc method3 = [quote[value :edit.m%k%%j%]] &end &else &if [value :edit.m-index4] = 0 &then &do calc m-index4 = [value :edit.x%k%%j%] calc pit4 = [value :edit.p%k%%j%] calc type4 = [quote[value :edit.t%k%%j%]] calc method4 = [quote[value :edit.m%k%%j%]] &end &else &if [value :edit.m-index5] = 0 &then &do calc m-index5 = [value :edit.x%k%%j%] calc pit5 = [value :edit.p%k%%j%] calc type5 = [quote[value :edit.t%k%%j%]] calc method5 = [quote[value :edit.m%k%%j%]] &end &else &do &mess &on &type " failure on $recno %id%" &mess &off &end &ret
&routine DROPEM &do j = 1 &to 11 &by 1 &do k = 1 &to 3 &by 1 dropitem %cover%.pat %cover%.pat m-index%k%-%j% dropitem %cover%.pat %cover%.pat pit%k%-%j% dropitem %cover%.pat %cover%.pat type%k%-%j% dropitem %cover%.pat %cover%.pat method%k%-%j% &end &end &ret
-----End AML-----
M-INDEX(n) - Unique ISGS identification number assigned
to each mine. A polygon can represent up to three mines because
of overlapping mines in different seams or surface mining through
shallow underground mines, or due to changing mine ownership and/or
permit status over time.
PIT(n) - Pit number. This is used to distinguish between
different pits mined by a single surface mine or different seams
mined by an underground mine. PITn is associated with M-INDEXn.
TYPE(n) - Polygon code associated with M-INDEXn.
A - Unmined area between mines
B - Indefinite mine boundary (surface mine)
H - Auger mine
K - Unmined area within a mine
L - Underground mine
M - Surface mine
N - Indefinite mine boundary (underground mine)
S - Abandoned surface mine or tipple
W - Abandoned slope
(no value) - other unmined areas
METHOD(n) - Method of mining for M-INDEXn. For a detailed
description of these methods see: Bargh, M.H., C.G. Treworgy,
G.K. Coats, 1993, Directory of Coal Mines in Illinois,
7.5-Minute Quadrangle
Series, Springfield East Quadrangle, Sangamon County.
B - Blind room and pillar
C - Checkerboard room and pillar
H - High extraction retreat
L - Longwall
M - Modified room and pillar
N - Modified room and pillar; some pillars pulled
O - Room and pillar basic (irregular panels)
P - Room and pillar panel
Q - Room and pillar panel; some pillars pulled
R - Room and pillar; specific type unknown
S - Room and pillar; some pillars pulled
ACTIVE - Status of mine. Due to the nature of coal mining,
active/inactive status of a mine may change frequently. These
designations are current as of September 1, 1996.
1 - Active mine
0 - Inactive mine
MINE - Concatenation of M-INDEX and PIT items.
MINE2 - Concatenation of M-INDEX2 and PIT2 items.
MINE3 - Concatenation of M-INDEX3 and PIT3 items.
MINE4 - Concatenation of M-INDEX4 and PIT4 items.
MINE5 - Concatenation of M-INDEX5 and PIT5 items.
The active mines in this coverage are as follows:
M-index Mine Name Company County Seam
702 Delta Cyprus Amax Williamson Herrin, Danville
992 Brushy Creek Brushy Creek Saline Herrin
Coal Co.
995 Eagle Valley Coal Miners Gallatin Springfield, Davis
1001 Galatia Kerr-McGee Saline Springfield, Herrin
1015 Big Ridge Arclar Saline Springfield
In no event shall the DNR have any liability whatsoever for payment of any consequential, incidental, indirect, special, or tort damages of any kind, including, but not limited to, any loss of profits arising out of use of or reliance on the geographic data or arising out of the delivery, installation, operation, or support by DNR.
Shift-click to download the data set and related documentation. (Data and metadata offered separately, please download both files.)
Illinois Natural Resources Geospatial Data Clearinghouse
Generated by mp version 2.8.11 on Mon Jan 29 15:19:34 2007