APPENDIX 5: GEOSUPPORT COPY FILES (MSW)
As of January 1, 2020 DCP no longer supports Mainframe Specific Workareas (MSW).
This appendix contains printouts of the Geosupport MSW COPY files for COBOL, Assembler, PL/1, C and NATURAL. (For C, COPY files take the form of header files. For NATURAL, COPY files take the form of Local Data Areas.)
The Geosupport COPY files contain source code layouts of the Geosupport work areas. These files are stored in a COPY library that can be accessed by user application programs at compile time. Each supported programming language has an appropriate declarative statement for referencing COPY files at compile time. The Geosupport COPY files are listed below.
| - - - - - - - - - - - - - COPY File Name - - - - - - - - - - - - - - | |||||||
|---|---|---|---|---|---|---|---|
| MSW WORK AREA |
LENGTH(bytes) | COBOL | ASSEMBLER | PL/1 | C | NATURAL | |
| WA1 | All | 884 | W1COB | W1BAL | W1PL1 | WAC | GEOLW1 |
| WA2 | 1 (regular WA2), 1E (regular WA2), 2, 3 (regular WA2), 3C | 200 | W2COB | W2BAL | W2PL1 | WAC | GEOLW2 |
| WA2 | 1 (long WA2), 1E (long WA2), 3 (long WA2) | 300 | W2COBL | W2BALL | W2PL1L | WAC | GEOLW2L |
| WA2 | 1A&BL (regular WA2),BN (\*) | 939 | W2COB1A | W2BAL1A | W2PL11A | WAC | GEOLW21A |
| WA2 | 1A&BL (long WA2) (\**) | 17,683 | W2COB1AL | W2BAL1AL | W2PL11AL | WAC | GEOLW2AL |
| WA2 | 3S | 4,224 | W2COB3S | W2BAL3S | W2PL13S | WAC | GEOLW23S |
(*) Functions 1A, BL and BN share a single regular WA2 layout. (**) Functions 1A and BL share a single long WA2 layout. (Function BN does not have the long WA2 option.) See Chapter VIII.4 for a detailed discussion of the Geosupport COPY feature.
COBOL COPY Files (MSW)
******************************************************************** 00000100
***** THIS IS GEOSUPPORT SYSTEM COPY FILE W1COB, CONTAINING ***** 00000200
***** LAYOUT OF WORK AREA 1. COPYLIB2 04/07/98 ***** 00000300
******************************************************************** 00000400
***** INPUT FIELDS ***** 00000500
******************************************************************** 00000600
05 GEO-WA1-IN-FUNCTION-CODE. 00000700
10 GEO-WA1-IN-FUNCTION-1 PIC X. 00000800
10 GEO-WA1-IN-FUNCTION-2 PIC X. 00000900
05 GEO-WA1-IN-BORO PIC X. 00001000
** NOTE GEO-WA1-IN-HOUSENUM - HIGH HSE# INPUT IF FUNC 5 00001100
05 GEO-WA1-IN-HOUSENUM PIC X(12). 00001200
** NOTE GEO-WA1-IN-HOUSENUM-INTERNAL - HIGH HSE# INPUT IF FUN5 00001300
05 GEO-WA1-IN-HOUSENUM-INTERNAL PIC X(6). 00001400
05 GEO-WA1-IN-STREET-1 PIC X(32). 00001500
05 GEO-WA1-IN-STREET-2 PIC X(32). 00001600
05 GEO-WA1-IN-STREET-3 PIC X(32). 00001700
05 GEO-WA1-IN-COMPASS PIC X. 00001802
05 GEO-WA1-IN-COMPASS2 PIC X. 00001904
05 GEO-WA1-IN-STREETCODE-1 PIC S9(6) COMP-3. 00002104
05 GEO-WA1-IN-STREETCODE-2 PIC S9(6) COMP-3. 00002204
05 GEO-WA1-IN-STREETCODE-3 PIC S9(6) COMP-3. 00002304
05 GEO-WA1-IN-ROADBED-REQ-SWITCH PIC X. 00002508
05 GEO-WA1-IN-BORO-2 PIC X. 00002604
05 GEO-WA1-IN-BORO-3 PIC X. 00002704
05 GEO-WA1-IN-SNL PIC X(2). 00002804
05 GEO-WA1-IN-10SC-1 PIC X(11). 00002904
05 GEO-WA1-IN-10SC-2 PIC X(11). 00003004
05 GEO-WA1-IN-10SC-3 PIC X(11). 00003104
05 GEO-WA1-IN-ZIPIN PIC X(5). 00003309
05 GEO-WA1-IN-BBL. 00003404
10 GEO-WA1-IN-BL-BORO PIC X. 00003504
10 GEO-WA1-IN-BLOCKNUM PIC X(5). 00003604
10 GEO-WA1-IN-LOTNUM PIC X(4). 00003704
05 FILLER PIC X. 00003804
05 GEO-WA1-IN-BIN PIC X(7). 00004004
**************************************************************** 00004104
** NOTE: TO REQUEST COMPACT NAMES OPTION, SET ** 00004204
** GEO-WA1-IN-COMPACT-NAME-FLAG TO "C". ** 00004304
** NOTE: TO REQUEST THE LONG WORKAREA 2, SET ** 00004404
** GEO-WA1-IN-LONG-WORKAREA2-FLAG TO "L". AT PRESENT, ** 00004504
** ONLY FUNCTION 3 HAS THE LONG WA2 OPTION. ** 00004604
** NOTE: IF APPLICATION IS RUNNING ON A NON-IBM MAIN FRAME, ** 00004704
** SET GEO-WA1-IN-NON-IBM-MAIN-FRAME EQUAL TO "X" ** 00004804
** NOTE: FOR FUNCTIONS 1A AND BL, TO REQUEST THE STANDARD ** 00004904
** WORKAREA2 FORMAT, SET GEO-WA1-IN-1ABL-VERSION TO "S" ** 00005004
** NOTE: TO REQUEST THE LEGACY WORKAREA2 FORMAT, ** 00005104
** SET GEO-WA1-IN-1ABL-VERSION TO " " OR "L". ** 00005204
**************************************************************** 00005704
05 GEO-WA1-IN-COMPACT-NAME-FLAG PIC X. 00005804
05 GEO-WA1-IN-LONG-WORKAREA2-FLAG PIC X. 00005904
05 GEO-WA1-IN-LOW-HOUSENUM PIC X(12). 00006004
05 GEO-WA1-IN-LOW-HSENUM-INTERNAL PIC X(6). 00006104
05 GEO-WA1-IN-NON-IBM-MAIN-FRAME PIC X(1). 00006204
05 GEO-WA1-IN-1ABL-VERSION PIC X(1). 00006304
05 GEO-WA1-IN-XSTREET-FLAG PIC X(1). 00006404
05 GEO-WA1-IN-NONEED-STNAME-FLAG PIC X(1). 00006504
05 FILLER PIC X(3). 00006604
******************************************************************** 00006704
***** OUTPUT FIELDS ***** 00006804
******************************************************************** 00006904
05 GEO-WA1-OUT-LOW-HOUSENUM PIC X(12). 00007004
05 GEO-WA1-OUT-BORONAME PIC X(9). 00007104
05 GEO-WA1-OUT-STREET-1 PIC X(32). 00007204
05 GEO-WA1-OUT-STREET-2 PIC X(32). 00007304
05 GEO-WA1-OUT-STREET-3 PIC X(32). 00007404
05 GEO-WA1-OUT-HOUSENUM PIC X(12). 00007504
05 GEO-WA1-OUT-HOUSENUM-INTERNAL PIC X(6). 00007604
05 GEO-WA1-OUT-HOUSE-INT-FORMAT REDEFINES 00007704
GEO-WA1-OUT-HOUSENUM-INTERNAL. 00007804
10 GEO-WA1-OUT-HOUSE-INT-PACKED PIC X(5). 00007904
10 GEO-WA1-OUT-HOUSE-INT-SUFFIX PIC X. 00008004
05 FILLER PIC X(7). 00008104
05 GEO-WA1-OUT-PB5SC-1 PIC S9(6) COMP-3. 00008204
05 GEO-WA1-OUT-PB-5SC-1 REDEFINES GEO-WA1-OUT-PB5SC-1. 00008304
10 FILLER PIC X(1). 00008404
10 GEO-WA1-OUT-STREETCODE-1-KEY PIC S9(5) COMP-3. 00008504
05 FILLER PIC X(2). 00008604
05 GEO-WA1-OUT-PB5SC-2 PIC S9(6) COMP-3. 00008704
05 GEO-WA1-OUT-PB-5SC-2 REDEFINES GEO-WA1-OUT-PB5SC-2. 00008804
10 FILLER PIC X(1). 00008904
10 GEO-WA1-OUT-STREETCODE-2-KEY PIC S9(5) COMP-3. 00009004
05 FILLER PIC X(2). 00009104
05 GEO-WA1-OUT-PB5SC-3 PIC S9(6) COMP-3. 00009204
05 GEO-WA1-OUT-PB-5SC-3 REDEFINES GEO-WA1-OUT-PB5SC-3. 00009304
10 FILLER PIC X(1). 00009404
10 GEO-WA1-OUT-STREETCODE-3-KEY PIC S9(5) COMP-3. 00009504
05 FILLER PIC X(3). 00009604
05 GEO-WA1-BROWSE PIC X(40). 00009704
05 GEO-WA1-OUT-10SC-1 PIC X(11). 00009804
05 GEO-WA1-OUT-10SC-2 PIC X(11). 00009904
05 GEO-WA1-OUT-10SC-3 PIC X(11). 00010004
05 GEO-WA1-OUT-CUI PIC X(5). 00010104
** NOTE: GEO-WA1-OUT-CUI NOT IMPLEMENTED ** 00010204
05 GEO-WA1-OUT-BBL. 00010304
10 GEO-WA1-OUT-BL-BORO PIC X. 00010404
10 GEO-WA1-OUT-BLOCKNUM PIC X(5). 00010504
10 GEO-WA1-OUT-LOTNUM PIC X(4). 00010604
05 FILLER PIC X. 00010704
05 GEO-WA1-OUT-BIN PIC X(7). 00010806
05 GEO-WA1-OUT-SND-ATTR PIC X. 00011304
05 GEO-WA1-OUT-REASON-CODE PIC X. 00011404
05 FILLER PIC X(2). 00011504
05 GEO-WA1-OUT-RETURN-CODE. 00011604
10 GEO-WA1-OUT-RC-1 PIC X. 00011704
10 GEO-WA1-OUT-RC-2 PIC X. 00011804
05 GEO-WA1-OUT-ERROR-MESSAGE PIC X(80). 00011904
05 GEO-WA1-OUT-NUM-SIMILAR-NAMES PIC S999 COMP-3. 00012004
05 GEO-WA1-OUT-SIMILAR-NAMES PIC X(32) 00012104
OCCURS 10 TIMES. 00013002
****************************************************************** 00010040
*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2COB, CONTAINING THE *** 00020040
*** LAYOUT OF WORK AREA 2 FOR FUNCTIONS: 1, 1E, 2, 2C, 3, 3C, *** 00030040
*** 5. PLEASE NOTE THAT FUNCTIONS 2 AND 2C SHARE A SINGLE WORK*** 00040040
*** AREA 2 LAYOUT. 04/03/01 *** 00050040
****************************************************************** 00060040
*** LAST MODIFIED 06/08/10 *** 00070040
****************************************************************** 00080040
05 GEO-WA2-FUNCTION1. 00090040
10 FILLER PIC X(21). 00100040
10 GEO-WA2-FN1-CONT-PARITY PIC X. 00110040
10 GEO-WA2-FN1-LOW-HOUSENUM-INT. 00120040
15 GEO-WA2-FN1-LOW-HOUSENUM PIC X(5). 00130040
15 GEO-WA2-FN1-LOW-HOUSENUMSFX PIC X. 00140040
00150040
10 GEO-WA2-FN1-HI-HOUSENUM-INT. 00160040
15 GEO-WA2-FN1-HI-HOUSENUM PIC X(5). 00170040
15 GEO-WA2-FN1-HI-HOUSENUMSFX PIC X. 00180040
00190040
10 GEO-WA2-FN1-ALX PIC X. 00200040
10 GEO-WA2-FN1-NUM-X-ST-LOW-END PIC X. 00210040
10 GEO-WA2-FN1-LOW-PBSC PIC S9(7) COMP-3 00220040
OCCURS 5 TIMES. 00230040
10 GEO-WA2-FN1-NUM-X-ST-HI-END PIC X. 00240040
10 GEO-WA2-FN1-HI-PBSC PIC S9(7) COMP-3 00250040
OCCURS 5 TIMES. 00260040
10 GEO-WA2-FN1-COMDIST. 00270040
15 GEO-WA2-FN1-COMDIST-BORO PIC X. 00280040
15 GEO-WA2-FN1-COMDIST-NUMBER PIC X(2). 00290040
10 GEO-WA2-FN1-ZIP PIC X(5). 00300040
10 GEO-WA2-FN1-SLA PIC X. 00310040
10 GEO-WA2-FN1-HCD PIC X(2). 00320047
10 GEO-WA2-FN1-SOS PIC X. 00330040
10 GEO-WA2-FN1-CONT-PARITY-IND PIC X. 00340040
10 GEO-WA2-FN1-2010-CENS-TRCT PIC X(6). 00350042
10 GEO-WA2-FN1-2010-CENS-BLK PIC X(4). 00360042
10 GEO-WA2-FN1-2010-CENS-BLK-SFX PIC X. 00370042
10 FILLER PIC X(3). 00380040
10 GEO-WA2-FN1-HEALTHAREA PIC X(4). 00390047
10 GEO-WA2-FN1-SANI-REC PIC X(3). 00400040
10 GEO-WA2-FN1-FEATURE-TYPE PIC X. 00410040
10 GEO-WA2-FN1-RESDCP PIC X. 00420040
10 GEO-WA2-FN1-CURVE-FLAG PIC X. 00430040
10 GEO-WA2-FN1-POLICEDIST. 00440040
15 GEO-WA2-FN1-POL-PATR-BORO-CMD PIC X. 00450040
15 GEO-WA2-FN1-POL-PRECINCT PIC X(3). 00460040
10 GEO-WA2-FN1-SCHOOLDIST PIC X(2). 00470040
10 FILLER PIC X(14). 00480040
10 GEO-WA2-FN1-COINCIDENT-CNT PIC X. 00490040
10 GEO-WA2-FN1-SEGMENT-TYPE PIC X. 00500040
10 GEO-WA2-FN1-SANIDIST. 00510040
15 GEO-WA2-FN1-SANIDIST-BORO PIC X. 00520040
15 GEO-WA2-FN1-SANIDIST-NUMBER PIC X(2). 00530040
10 GEO-WA2-FN1-SANITATION-SUBSEC PIC X(2). 00540040
** NOTE:10 GEO-WA2-FN1-FIRESEC ==> FIRE DIVISION ** 00550040
10 GEO-WA2-FN1-FIRESEC PIC X(2). 00560040
10 GEO-WA2-FN1-FIREBAT PIC X(2). 00570040
10 GEO-WA2-FN1-FIRECO. 00580040
15 GEO-WA2-FN1-FIRECO-TYPE PIC X. 00590040
15 GEO-WA2-FN1-FIRECO-NUM PIC X(3). 00600040
10 GEO-WA2-FN1-SPECIAL-ADDR-FLAG PIC X. 00610040
10 GEO-WA2-FN1-MARBLE-RIKER-FLAG PIC X. 00620040
10 GEO-WA2-FN1-SPLIT-SCHOOL-FILL PIC X. 00630044
10 GEO-WA2-FN1-PREFERRED-LGC PIC X(2). 00640040
10 GEO-WA2-FN1-LIONFACECODE PIC X(4). 00650040
10 GEO-WA2-FN1-LIONSEQ PIC X(5). 00660040
10 GEO-WA2-FN1-1990-CENSUSTRACT PIC X(6). 00670040
10 FILLER PIC X(4). 00680040
10 GEO-WA2-FN1-DYN-BLOCK PIC X(3). 00690040
10 GEO-WA2-FN1-XCOORD PIC X(7). 00700040
10 GEO-WA2-FN1-YCOORD PIC X(7). 00710040
10 GEO-WA2-FN1-SEGMENTLENGTH PIC X(5). 00720040
10 GEO-WA2-FN1-SANI-REG PIC X(5). 00730040
05 GEO-WA2-FUNCTION2 REDEFINES GEO-WA2-FUNCTION1. 00740040
10 FILLER PIC X(21). 00750040
10 GEO-WA2-FN2-DUPINTERFLAG PIC X. 00760040
10 FILLER PIC X(9). 00770040
10 GEO-WA2-FN2-PREFERRED-LGC1 PIC X(2). 00780040
10 GEO-WA2-FN2-PREFERRED-LGC2 PIC X(2). 00790040
10 GEO-WA2-FN2-NUM-OF-INTERSECTS PIC X. 00800040
10 GEO-WA2-FN2-INTERSECT-PBSC PIC 9(7) COMP-3 00810040
OCCURS 5 TIMES. 00820040
10 GEO-WA2-FN2-COMPDIR PIC X. 00830040
10 GEO-WA2-FN2-LEVEL-LIST OCCURS 5 TIMES. 00840040
15 GEO-WA2-FN2-LEVEL-CODES 00850040
OCCURS 2 TIMES PIC X. 00860040
*** NEXT LINE WAS PREVIOUSLY INSTRUC-DIV 00870040
10 FILLER PIC X(2). 00880040
** NOTE:10 GEO-WA2-FN2-FIRESEC ==> FIRE DIVISION ** 00890040
10 GEO-WA2-FN2-FIRESEC PIC X(2). 00900040
10 GEO-WA2-FN2-FIREBAT PIC X(2). 00910040
10 GEO-WA2-FN2-FIRECO. 00920040
15 GEO-WA2-FN2-FIRECO-TYPE PIC X. 00930040
15 GEO-WA2-FN2-FIRECO-NUM PIC X(3). 00940040
10 GEO-WA2-FN2-COMDIST. 00950040
15 GEO-WA2-FN2-COMDIST-BORO PIC X. 00960040
15 GEO-WA2-FN2-COMDIST-NUMBER PIC X(2). 00970040
10 GEO-WA2-FN2-ZIP PIC X(5). 00980040
10 GEO-WA2-FN2-SLA PIC X. 00990040
10 GEO-WA2-FN2-2010-CENS-TRCT PIC X(6). 01000042
10 FILLER PIC X(3). 01010040
10 GEO-WA2-FN2-HEALTHAREA PIC X(4). 01020047
10 FILLER PIC X(9). 01030040
10 GEO-WA2-FN2-NODE-NUM PIC X(7). 01040040
10 GEO-WA2-FN2-XCOORD PIC X(7). 01050040
10 GEO-WA2-FN2-YCOORD PIC X(7). 01060040
10 FILLER PIC X(4). 01070040
10 GEO-WA2-FN2-POLICEDIST. 01080040
15 GEO-WA2-FN2-POL-PATR-BORO-CMD PIC X. 01090040
15 GEO-WA2-FN2-POL-PRECINCT PIC X(3). 01100040
10 GEO-WA2-FN2-SCHOOLDIST PIC X(2). 01110040
10 GEO-WA2-FN2-MARBLE-RIKER-FLAG PIC X. 01120040
10 GEO-WA2-FN2-1990-CENSUSTRACT PIC X(6). 01130040
10 GEO-WA2-FN2-SANBORN1-BVOLPAGE. 01140040
15 GEO-WA2-FN2-SANBORN1-BORO PIC X. 01150040
15 GEO-WA2-FN2-SANBORN1-VOL-NUM PIC X(3). 01160040
15 GEO-WA2-FN2-SANBORN1-PAGE-NUM PIC X(4). 01170040
10 GEO-WA2-FN2-SANBORN2-BVOLPAGE. 01180040
15 GEO-WA2-FN2-SANBORN2-BORO PIC X. 01190040
15 GEO-WA2-FN2-SANBORN2-VOL-NUM PIC X(3). 01200040
15 GEO-WA2-FN2-SANBORN2-PAGE-NUM PIC X(4). 01210040
10 GEO-WA2-FN2-DUP-INT-DISTANCE PIC X(5). 01220040
10 GEO-WA2-FN2-2000-CENS-TRACT PIC X(6). 01240043
10 FILLER PIC X(27). 01250040
05 GEO-WA2-FUNCTION3 REDEFINES GEO-WA2-FUNCTION1. 01260040
10 FILLER PIC X(21). 01270040
10 GEO-WA2-FN3-DUP-KEY-FLAG PIC X. 01280040
10 GEO-WA2-FN3-CURVE-FLAG PIC X. 01290040
10 GEO-WA2-FN3-LOCATION-STATUS PIC X. 01300040
10 GEO-WA2-FN3-COUNTY-BOUNDARY PIC X. 01310040
10 GEO-WA2-FN3-COINCIDENT-CNT PIC X. 01320040
10 FILLER PIC X(3). 01330040
10 GEO-WA2-FN3-PREFERRED-LGC1 PIC X(2). 01340040
10 GEO-WA2-FN3-PREFERRED-LGC2 PIC X(2). 01350040
10 GEO-WA2-FN3-PREFERRED-LGC3 PIC X(2). 01360040
10 GEO-WA2-FN3-NUM-X-ST-LOW-END PIC X. 01370040
10 GEO-WA2-FN3-LOW-PBSC PIC S9(7) COMP-3 01380040
OCCURS 5 TIMES. 01390040
10 GEO-WA2-FN3-NUM-X-ST-HI-END PIC X. 01400040
10 GEO-WA2-FN3-HI-PBSC PIC S9(7) COMP-3 01410040
OCCURS 5 TIMES. 01420040
10 GEO-WA2-FN3-SLA PIC X. 01430040
10 GEO-WA2-FN3-REVERSALFLAG PIC X. 01440040
10 GEO-WA2-FN3-LEFT-COMDIST. 01450040
15 GEO-WA2-FN3-LEFT-COMDIST-BORO PIC X. 01460040
15 GEO-WA2-FN3-LEFT-COMDIST-NUM PIC X(2). 01470040
10 GEO-WA2-FN3-RIGHT-COMDIST. 01480040
15 GEO-WA2-FN3-RIGHT-COMDIST-BORO PIC X. 01490040
15 GEO-WA2-FN3-RIGHT-COMDIST-NUM PIC X(2). 01500040
10 GEO-WA2-FN3-LEFT-ZIP PIC X(5). 01510040
10 GEO-WA2-FN3-RIGHT-ZIP PIC X(5). 01520040
10 FILLER PIC X(18). 01530040
10 GEO-WA2-FN3-LEFT-HEALTHAREA PIC X(4). 01540047
10 GEO-WA2-FN3-RIGHT-HEALTHAREA PIC X(4). 01550047
*** NEXT LINE WAS PREVIOUSLY LEFT-INSTRUC-DIV 01560040
10 FILLER PIC X(2). 01570040
*** NEXT LINE WAS PREVIOUSLY RIGHT-INSTRUC-DIV 01580040
10 FILLER PIC X(2). 01590040
10 GEO-WA2-FN3-LEFT-LOW-HOUSENUM PIC X(7). 01600040
10 GEO-WA2-FN3-LEFT-HI-HOUSENUM PIC X(7). 01610040
10 GEO-WA2-FN3-RIGHT-LOW-HOUSENUM PIC X(7). 01620040
10 GEO-WA2-FN3-RIGHT-HI-HOUSENUM PIC X(7). 01630040
10 GEO-WA2-FN3-CONT-PARITY-IND PIC X. 01640040
10 GEO-WA2-FN3-LIONFACECODE PIC X(4). 01650040
10 GEO-WA2-FN3-LIONSEQ PIC X(5). 01660040
10 GEO-WA2-FN3-GENRECFLAG PIC X. 01670040
10 GEO-WA2-FN3-SEGMENTLENGTH PIC S9(5) COMP-3. 01680040
10 GEO-WA2-FN3-SEGMENTSLOPE PIC X(3). 01690040
10 GEO-WA2-FN3-SEGMENTORIENT PIC X. 01700040
10 FILLER PIC X(4). 01710040
10 GEO-WA2-FN3-RESDCP PIC X(2). 01720040
10 GEO-WA2-FN3-DOG-LEG PIC X. 01730040
10 GEO-WA2-FN3-FEATURE-TYPE PIC X. 01740040
10 GEO-WA2-FN3-LEFT-POLDIST. 01750040
15 GEO-WA2-FN3-L-POL-PATR-BOR-CMD PIC X. 01760040
15 GEO-WA2-FN3-L-POL-PRECINCT PIC X(3). 01770040
10 GEO-WA2-FN3-RIGHT-POLDIST. 01780040
15 GEO-WA2-FN3-R-POL-PATR-BOR-CMD PIC X. 01790040
15 GEO-WA2-FN3-R-POL-PRECINCT PIC X(3). 01800040
10 GEO-WA2-FN3-LEFT-SCHLDIST PIC X(2). 01810040
10 GEO-WA2-FN3-RIGHT-SCHLDIST PIC X(2). 01820040
10 GEO-WA2-FN3-MARBLE-RIKER-FLAG PIC X. 01830040
10 GEO-WA2-FN3-SEG-ID PIC X(7). 01840040
10 GEO-WA2-FN3-SEGMENT-TYPE PIC X. 01850040
05 GEO-WA2-FUNCTION3C REDEFINES GEO-WA2-FUNCTION1. 01860040
10 GEO-WA2-FN3C-ACCESS-KEY PIC X(21). 01870040
10 GEO-WA2-FN3C-CURVE-FLAG PIC X. 01880040
10 GEO-WA2-FN3C-SEGMENT-TYPE PIC X. 01890040
10 GEO-WA2-FN3C-LOCATION-STATUS PIC X. 01900040
10 GEO-WA2-FN3C-COUNTY-BOUNDARY PIC X. 01910040
10 GEO-WA2-FN3C-COINCIDENT-CNT PIC X. 01920040
10 FILLER PIC X(3). 01930040
10 GEO-WA2-FN3C-PREFERRED-LGC1 PIC X(2). 01940040
10 GEO-WA2-FN3C-PREFERRED-LGC2 PIC X(2). 01950040
10 GEO-WA2-FN3C-PREFERRED-LGC3 PIC X(2). 01960040
10 GEO-WA2-FN3C-NUM-X-ST-LOW-END PIC X. 01970040
10 GEO-WA2-FN3C-LOW-PBSC PIC S9(7) COMP-3 01980040
OCCURS 5 TIMES. 01990040
10 GEO-WA2-FN3C-NUM-X-ST-HI-END PIC X. 02000040
10 GEO-WA2-FN3C-HI-PBSC PIC S9(7) COMP-3 02010040
OCCURS 5 TIMES. 02020040
10 GEO-WA2-FN3C-COMDIST. 02030040
15 GEO-WA2-FN3C-COMDIST-BORO PIC X. 02040040
15 GEO-WA2-FN3C-COMDIST-NUMBER PIC X(2). 02050040
10 GEO-WA2-FN3C-ZIP PIC X(5). 02060040
10 GEO-WA2-FN3C-SLA PIC X. 02070040
10 GEO-WA2-FN3C-2000-CENS-TRACT PIC X(6). 02090043
10 FILLER PIC X. 02100040
10 GEO-WA2-FN3C-2010-CENS-TRCT PIC X(6). 02110042
10 GEO-WA2-FN3C-2010-CENS-BLK PIC X(4). 02120042
10 GEO-WA2-FN3C-2010-CENS-BLK-SFX PIC X. 02130042
10 GEO-WA2-FN3C-HEALTHAREA PIC X(4). 02140047
10 GEO-WA2-FN3C-REVERSALFLAG PIC X. 02150040
10 GEO-WA2-FN3C-SOS PIC X. 02160040
** NOTE:10 GEO-WA2-FN3C-FIRESEC ==> FIRE DIVISION ** 02170040
10 GEO-WA2-FN3C-FIRESEC PIC X(2). 02180040
10 GEO-WA2-FN3C-FIREBAT PIC X(2). 02190040
10 GEO-WA2-FN3C-FIRECO. 02200040
15 GEO-WA2-FN3C-FIRECO-TYPE PIC X. 02210040
15 GEO-WA2-FN3C-FIRECO-NUM PIC X(3). 02220040
10 GEO-WA2-FN3C-SEG-ID PIC X(7). 02230040
10 GEO-WA2-FN3C-LOW-HOUSENUM PIC X(7). 02240040
10 GEO-WA2-FN3C-HI-HOUSENUM PIC X(7). 02250040
10 GEO-WA2-FN3C-LOW-HOUSENUM2 PIC X(7). 02260040
10 GEO-WA2-FN3C-HI-HOUSENUM2 PIC X(7). 02270040
* HOUSENUM2 ONLY PRESENT IF ODD & EVEN RANGES ARE ON 02280040
* SAME SIDE OF STREET. 02290040
10 GEO-WA2-FN3C-CONT-PARITY-IND PIC X. 02300040
10 GEO-WA2-FN3C-LIONFACECODE PIC X(4). 02310040
10 GEO-WA2-FN3C-LIONSEQ PIC X(5). 02320040
10 GEO-WA2-FN3C-GENRECFLAG PIC X. 02330040
10 GEO-WA2-FN3C-SEGMENTLENGTH PIC S9(5) COMP-3. 02340040
10 GEO-WA2-FN3C-SEGMENTSLOPE PIC X(3). 02350040
10 GEO-WA2-FN3C-SEGMENTORIENT PIC X. 02360040
*** NEXT LINE WAS PREVIOUSLY INSTRUC-DIV 02370040
10 FILLER PIC XX. 02380040
10 GEO-WA2-FN3C-RESDCP PIC X. 02390040
10 GEO-WA2-FN3C-FEATURE-TYPE PIC X. 02400040
10 GEO-WA2-FN3C-POLICEDIST. 02410040
15 GEO-WA2-FN3C-POL-PATR-BORO-CMD PIC X. 02420040
15 GEO-WA2-FN3C-POL-PRECINCT PIC X(3). 02430040
10 GEO-WA2-FN3C-SCHOOLDIST PIC X(2). 02440040
10 GEO-WA2-FN3C-MARBLE-RIKER-FLAG PIC X. 02450040
10 GEO-WA2-FN3C-1990-CENSUSTRACT PIC X(6). 02460040
10 FILLER PIC X(4). 02470040
10 GEO-WA2-FN3C-DYN-BLOCK PIC X(3). 02480040
10 GEO-WA2-FN3C-2000-CENS-BLOCK PIC X(4). 02500043
10 GEO-WA2-FN3C-2000-CENS-BLK-SUF PIC X. 02510043
05 GEO-WA2-FUNCTION1E REDEFINES GEO-WA2-FUNCTION1. 02520040
10 FILLER PIC X(21). 02530040
10 GEO-WA2-FN1E-CONT-PARITY PIC X. 02540040
10 GEO-WA2-FN1E-LOW-HOUSENUM-INT. 02550040
15 GEO-WA2-FN1E-LOW-HOUSENUM PIC X(5). 02560040
15 GEO-WA2-FN1E-LOW-HSENUMSFX PIC X. 02570040
10 GEO-WA2-FN1E-HI-HOUSENUM-INT. 02580040
15 GEO-WA2-FN1E-HI-HOUSENUM PIC X(5). 02590040
15 GEO-WA2-FN1E-HI-HSENUMSFX PIC X. 02600040
10 FILLER PIC X. 02610040
10 GEO-WA2-FN1E-NUM-X-ST-LOW-END PIC X. 02620040
10 GEO-WA2-FN1E-LOW-PBSC PIC S9(7) COMP-3 02630040
OCCURS 5 TIMES. 02640040
10 GEO-WA2-FN1E-NUM-X-ST-HI-END PIC X. 02650040
10 GEO-WA2-FN1E-HI-PBSC PIC S9(7) COMP-3 02660040
OCCURS 5 TIMES. 02670040
10 GEO-WA2-FN1E-COMDIST. 02680040
15 GEO-WA2-FN1E-COMDIST-BORO PIC X. 02690040
15 GEO-WA2-FN1E-COMDIST-NUMBER PIC X(2). 02700040
10 GEO-WA2-FN1E-ZIP PIC X(5). 02710040
10 GEO-WA2-FN1E-SLA PIC X. 02720040
10 GEO-WA2-FN1E-HCD PIC X(2). 02730047
10 GEO-WA2-FN1E-SOS PIC X. 02740040
10 GEO-WA2-FN1E-CONT-PARITY-IND PIC X. 02750040
10 GEO-WA2-FN1E-2010-CENS-TRCT PIC X(6). 02760042
10 GEO-WA2-FN1E-2010-CENS-BLK PIC X(4). 02770042
10 GEO-WA2-FN1E-2010-CENS-BLK-SFX PIC X. 02780042
10 FILLER PIC X(3). 02790040
10 GEO-WA2-FN1E-HEALTHAREA PIC X(4). 02800047
10 GEO-WA2-FN1E-SANI-REC PIC X(3). 02810040
10 GEO-WA2-FN1E-FEATURE-TYPE PIC X. 02820040
10 GEO-WA2-FN1E-RESDCP PIC X. 02830040
10 GEO-WA2-FN1E-CURVE-FLAG PIC X. 02840040
10 GEO-WA2-FN1E-POLICEDIST. 02850040
15 GEO-WA2-FN1E-POL-PATR-BORO-CMD PIC X. 02860040
15 GEO-WA2-FN1E-POL-PRECINCT PIC X(3). 02870040
10 GEO-WA2-FN1E-SCHOOLDIST PIC X(2). 02880040
10 GEO-WA2-FN1E-ELECTDIST PIC X(3). 02890040
10 GEO-WA2-FN1E-ASSEMDIST PIC X(2). 02900040
10 GEO-WA2-FN1E-SPLIT-ED-FLAG PIC X. 02910040
10 GEO-WA2-FN1E-CONGDIST PIC X(2). 02920040
10 GEO-WA2-FN1E-SENATEDIST PIC X(2). 02930040
10 GEO-WA2-FN1E-COURTDIST PIC X(2). 02940040
10 GEO-WA2-FN1E-COUNCILDIST PIC X(2). 02950040
10 GEO-WA2-FN1E-COINCIDENT-CNT PIC X. 02960040
10 FILLER PIC X. 02970040
10 GEO-WA2-FN1E-SANIDIST. 02980040
15 GEO-WA2-FN1E-SANIDIST-BORO PIC X. 02990040
15 GEO-WA2-FN1E-SANIDIST-NUMBER PIC X(2). 03000040
10 GEO-WA2-FN1E-SANITATION-SUBSEC PIC X(2). 03010040
** NOTE:10 GEO-WA2-FN1E-FIRESEC ==> FIRE DIVISION ** 03020040
10 GEO-WA2-FN1E-FIRESEC PIC X(2). 03030040
10 GEO-WA2-FN1E-FIREBAT PIC X(2). 03040040
10 GEO-WA2-FN1E-FIRECO. 03050040
15 GEO-WA2-FN1E-FIRECO-TYPE PIC X. 03060040
15 GEO-WA2-FN1E-FIRECO-NUM PIC X(3). 03070040
10 GEO-WA2-FN1E-SPECIAL-ADDR-FLAG PIC X. 03080040
10 GEO-WA2-FN1E-MARBLE-RIKER-FLAG PIC X. 03090040
10 GEO-WA2-FN1E-SPLIT-SCHOOL-FILL PIC X. 03100044
10 GEO-WA2-FN1E-PREFERRED-LGC PIC X(2). 03110040
10 GEO-WA2-FN1E-LIONFACECODE PIC X(4). 03120040
10 GEO-WA2-FN1E-LIONSEQ PIC X(5). 03130040
10 GEO-WA2-FN1E-1990-CENSUSTRACT PIC X(6). 03140040
10 FILLER PIC X(4). 03150040
10 GEO-WA2-FN1E-DYN-BLOCK PIC X(3). 03160040
10 GEO-WA2-FN1E-XCOORD PIC X(7). 03170040
10 GEO-WA2-FN1E-YCOORD PIC X(7). 03180040
10 GEO-WA2-FN1E-SEGMENTLENGTH PIC X(5). 03190040
10 GEO-WA2-FN1E-SANI-REG PIC X(5). 03200040
05 GEO-WA2-FUNCTION5 REDEFINES GEO-WA2-FUNCTION1. 03210040
10 GEO-WA2-FN5-ADDR-MATCHING-KEY PIC X(28). 03220040
10 FILLER PIC X(172). 03230040
****************************************************************** 00010021
*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2COBL, CONTAINING *** 00020021
*** THE LAYOUT OF THE OPTIONAL LONG WORK AREA 2 FOR FUNCTIONS * 00030021
*** 1/1E AND 3. THIS WORK AREA SHOULD BE USED ONLY WHEN *** 00040021
*** FUNCTION 1/1E,3 ARE CALLED WITH THE "LONG" WORK AREA2 *** 00050021
*** APRIL 3 2001 *** 00060021
****************************************************************** 00070021
*** LAST MODIFIED 06/08/10 *** 00080021
****************************************************************** 00090021
05 GEO-WA2-1L-FUNCTION1. 00100021
10 FILLER PIC X(21). 00110021
10 GEO-WA2-1L-CONT-PARITY PIC X. 00120021
10 GEO-WA2-1L-LOW-HOUSENUM-INT. 00130021
15 GEO-WA2-1L-LOW-HOUSENUM PIC X(5). 00140021
15 GEO-WA2-1L-LOW-HOUSENUMSFX PIC X. 00150021
10 GEO-WA2-1L-HI-HOUSENUM-INT. 00160021
15 GEO-WA2-1L-HI-HOUSENUM PIC X(5). 00170021
15 GEO-WA2-1L-HI-HOUSENUMSFX PIC X. 00180021
10 GEO-WA2-1L-ALX PIC X. 00190021
10 GEO-WA2-1L-NUM-X-ST-LOW-END PIC X. 00200021
10 GEO-WA2-1L-LOW-PBSC PIC S9(7) COMP-3 00210021
OCCURS 5 TIMES. 00220021
10 GEO-WA2-1L-NUM-X-ST-HI-END PIC X. 00230021
10 GEO-WA2-1L-HI-PBSC PIC S9(7) COMP-3 00240021
OCCURS 5 TIMES. 00250021
10 GEO-WA2-1L-COMDIST. 00260021
15 GEO-WA2-1L-COMDIST-BORO PIC X(1). 00270021
15 GEO-WA2-1L-COMDIST-NUMBER PIC X(2). 00280021
10 GEO-WA2-1L-ZIP PIC X(5). 00290021
10 GEO-WA2-1L-SLA PIC X. 00300021
10 GEO-WA2-1L-HCD PIC X(2). 00310028
10 GEO-WA2-1L-SOS PIC X. 00320021
10 GEO-WA2-1L-CONT-PARITY-IND PIC X. 00330021
10 GEO-WA2-1L-2010-CENS-TRCT PIC X(6). 00340023
10 GEO-WA2-1L-2010-CENS-BLK PIC X(4). 00350023
10 GEO-WA2-1L-2010-CENS-BLK-SFX PIC X. 00360023
10 FILLER PIC X(3). 00370021
10 GEO-WA2-1L-HEALTHAREA PIC X(4). 00380028
10 GEO-WA2-1L-SANI-REC PIC X(3). 00390021
10 GEO-WA2-1L-FEATURE-TYPE PIC X(1). 00400021
10 GEO-WA2-1L-RESDCP PIC X(1). 00410021
10 GEO-WA2-1L-CURVE-FLAG PIC X(1). 00420021
10 GEO-WA2-1L-POLICEDIST. 00430021
15 GEO-WA2-1L-POL-PATR-BORO-CMD PIC X(1). 00440021
15 GEO-WA2-1L-POL-PRECINCT PIC X(3). 00450021
10 GEO-WA2-1L-SCHOOLDIST PIC X(2). 00460021
10 FILLER PIC X(14). 00470021
10 GEO-WA2-1L-COINCIDENT-CNT PIC X. 00480021
10 GEO-WA2-1L-SEGMENT-TYPE PIC X. 00490021
10 GEO-WA2-1L-SANIDIST. 00500021
15 GEO-WA2-1L-SANIDIST-BORO PIC X(1). 00510021
15 GEO-WA2-1L-SANIDIST-NUMBER PIC X(2). 00520021
10 GEO-WA2-1L-SANITATION-SUBSEC PIC X(2). 00530021
** NOTE:10 GEO-WA2-1L-FIRESEC ==> FIRE DIVISION ** 00540021
10 GEO-WA2-1L-FIRESEC PIC X(2). 00550021
10 GEO-WA2-1L-FIREBAT PIC X(2). 00560021
10 GEO-WA2-1L-FIRECO. 00570021
15 GEO-WA2-1L-FIRECO-TYPE PIC X(1). 00580021
15 GEO-WA2-1L-FIRECO-NUM PIC X(3). 00590021
10 GEO-WA2-1L-SPECIAL-ADDR-FLAG PIC X(1). 00600021
10 GEO-WA2-1L-MARBLE-RIKER-FLAG PIC X(1). 00610021
10 GEO-WA2-1L-SPLIT-SCHOOL-FILL PIC X. 00620025
10 GEO-WA2-1L-PREFERRED-LGC PIC X(2). 00630021
10 GEO-WA2-1L-LIONFACECODE PIC X(4). 00640021
10 GEO-WA2-1L-LIONSEQ PIC X(5). 00650021
10 GEO-WA2-1L-1990-CENSUSTRACT PIC X(6). 00660021
10 FILLER PIC X(4). 00670021
10 GEO-WA2-1L-DYN-BLOCK PIC X(3). 00680021
10 GEO-WA2-1L-XCOORD PIC X(7). 00690021
10 GEO-WA2-1L-YCOORD PIC X(7). 00700021
10 GEO-WA2-1L-SEGMENTLENGTH PIC X(5). 00710021
10 GEO-WA2-1L-SANI-REG PIC X(5). 00720021
10 GEO-WA2-1L-SEG-ID PIC X(7). 00730021
10 GEO-WA2-1L-TRUE-B7SC PIC X(8). 00740021
10 GEO-WA2-1L-TRUE-HNI PIC X(6). 00750021
10 GEO-WA2-1L-2000-CENS-TRACT PIC X(6). 00770024
10 GEO-WA2-1L-2000-CENS-BLOCK PIC X(4). 00780024
10 GEO-WA2-1L-2000-CENS-BLK-SUF PIC X. 00790024
10 FILLER PIC X(68). 00800021
05 GEO-WA2-1EL-FUNCTION1E REDEFINES GEO-WA2-1L-FUNCTION1. 00810021
10 FILLER PIC X(21). 00820021
10 GEO-WA2-1EL-CONT-PARITY PIC X. 00830021
10 GEO-WA2-1EL-LOW-HOUSENUM-INT. 00840021
15 GEO-WA2-1EL-LOW-HOUSENUM PIC X(5). 00850021
15 GEO-WA2-1EL-LOW-HOUSENUMSFX PIC X. 00860021
10 GEO-WA2-1EL-HI-HOUSENUM-INT. 00870021
15 GEO-WA2-1EL-HI-HOUSENUM PIC X(5). 00880021
15 GEO-WA2-1EL-HI-HOUSENUMSFX PIC X. 00890021
10 FILLER PIC X. 00900021
10 GEO-WA2-1EL-NUM-X-ST-LOW-END PIC X. 00910021
10 GEO-WA2-1EL-LOW-PBSC PIC S9(7) COMP-3 00920021
OCCURS 5 TIMES. 00930021
10 GEO-WA2-1EL-NUM-X-ST-HI-END PIC X. 00940021
10 GEO-WA2-1EL-HI-PBSC PIC S9(7) COMP-3 00950021
OCCURS 5 TIMES. 00960021
10 GEO-WA2-1EL-COMDIST. 00970021
15 GEO-WA2-1EL-COMDIST-BORO PIC X(1). 00980021
15 GEO-WA2-1EL-COMDIST-NUMBER PIC X(2). 00990021
10 GEO-WA2-1EL-ZIP PIC X(5). 01000021
10 GEO-WA2-1EL-SLA PIC X. 01010021
10 GEO-WA2-1EL-HCD PIC X(2). 01020028
10 GEO-WA2-1EL-SOS PIC X. 01030021
10 GEO-WA2-1EL-CONT-PARITY-IND PIC X. 01040021
10 GEO-WA2-1EL-2010-CENS-TRCT PIC X(6). 01050023
10 GEO-WA2-1EL-2010-CENS-BLK PIC X(4). 01060023
10 GEO-WA2-1EL-2010-CENS-BLK-SFX PIC X. 01070023
10 FILLER PIC X(3). 01080021
10 GEO-WA2-1EL-HEALTHAREA PIC X(4). 01090028
10 GEO-WA2-1EL-SANI-REC PIC X(3). 01100021
10 GEO-WA2-1EL-FEATURE-TYPE PIC X(1). 01110021
10 GEO-WA2-1EL-RESDCP PIC X(1). 01120021
10 GEO-WA2-1EL-CURVE-FLAG PIC X(1). 01130021
10 GEO-WA2-1EL-POLICEDIST. 01140021
15 GEO-WA2-1EL-POL-PATR-BORO-CMD PIC X(1). 01150021
15 GEO-WA2-1EL-POL-PRECINCT PIC X(3). 01160021
10 GEO-WA2-1EL-SCHOOLDIST PIC X(2). 01170021
10 GEO-WA2-1EL-ELECTDIST PIC X(3). 01180021
10 GEO-WA2-1EL-ASSEMDIST PIC X(2). 01190021
10 GEO-WA2-1EL-SPLIT-ED-FLAG PIC X(1). 01200021
10 GEO-WA2-1EL-CONGDIST PIC X(2). 01210021
10 GEO-WA2-1EL-SENATEDIST PIC X(2). 01220021
10 GEO-WA2-1EL-COURTDIST PIC X(2). 01230021
10 GEO-WA2-1EL-COUNCILDIST PIC X(2). 01240021
10 GEO-WA2-1EL-COINCIDENT-CNT PIC X. 01250021
10 FILLER PIC X. 01260021
10 GEO-WA2-1EL-SANIDIST. 01270021
15 GEO-WA2-1EL-SANIDIST-BORO PIC X(1). 01280021
15 GEO-WA2-1EL-SANIDIST-NUMBER PIC X(2). 01290021
10 GEO-WA2-1EL-SANITATION-SUBSEC PIC X(2). 01300021
** NOTE:10 GEO-WA2-1EL-FIRESEC==> FIRE DIVISION ** 01310021
10 GEO-WA2-1EL-FIRESEC PIC X(2). 01320021
10 GEO-WA2-1EL-FIREBAT PIC X(2). 01330021
10 GEO-WA2-1EL-FIRECO. 01340021
15 GEO-WA2-1EL-FIRECO-TYPE PIC X(1). 01350021
15 GEO-WA2-1EL-FIRECO-NUM PIC X(3). 01360021
10 GEO-WA2-1EL-SPECIAL-ADDR-FLAG PIC X(1). 01370021
10 GEO-WA2-1EL-MARBLE-RIKER-FLAG PIC X(1). 01380021
10 GEO-WA2-1EL-SPLIT-SCHOOL-FILL PIC X. 01390025
10 GEO-WA2-1EL-PREFERRED-LGC PIC X(2). 01400021
10 GEO-WA2-1EL-LIONFACECODE PIC X(4). 01410021
10 GEO-WA2-1EL-LIONSEQ PIC X(5). 01420021
10 GEO-WA2-1EL-1990-CENSUSTRACT PIC X(6). 01430021
10 FILLER PIC X(4). 01440021
10 GEO-WA2-1EL-DYN-BLOCK PIC X(3). 01450021
10 GEO-WA2-1EL-XCOORD PIC X(7). 01460021
10 GEO-WA2-1EL-YCOORD PIC X(7). 01470021
10 GEO-WA2-1EL-SEGMENTLENGTH PIC X(5). 01480021
10 GEO-WA2-1EL-SANI-REG PIC X(5). 01490021
10 GEO-WA2-1EL-SEG-ID PIC X(7). 01500021
10 GEO-WA2-1EL-TRUE-B7SC PIC X(8). 01510021
10 GEO-WA2-1EL-TRUE-HNI PIC X(6). 01520021
10 GEO-WA2-1EL-2000-CENS-TRACT PIC X(6). 01540024
10 GEO-WA2-1EL-2000-CENS-BLOCK PIC X(4). 01550024
10 GEO-WA2-1EL-2000-CENS-BLK-SUF PIC X. 01560024
10 FILLER PIC X(68). 01570021
05 GEO-WA2-3L-FUNCTION3 REDEFINES GEO-WA2-1L-FUNCTION1. 01580021
10 FILLER PIC X(21). 01590021
10 GEO-WA2-3L-DUP-KEY-FLAG PIC X. 01600021
10 GEO-WA2-3L-CURVE-FLAG PIC X. 01610021
10 GEO-WA2-3L-LOCATION-STATUS PIC X. 01620021
10 GEO-WA2-3L-COUNTY-BOUNDARY PIC X. 01630021
10 GEO-WA2-3L-COINCIDENT-CNT PIC X. 01640021
10 FILLER PIC X(3). 01650021
10 GEO-WA2-3L-PREFERRED-LGC1 PIC X(2). 01660021
10 GEO-WA2-3L-PREFERRED-LGC2 PIC X(2). 01670021
10 GEO-WA2-3L-PREFERRED-LGC3 PIC X(2). 01680021
10 GEO-WA2-3L-NUM-X-ST-LOW-END PIC X. 01690021
10 GEO-WA2-3L-LOW-PBSC PIC S9(7) COMP-3 01700021
OCCURS 5 TIMES. 01710021
10 GEO-WA2-3L-NUM-X-ST-HI-END PIC X. 01720021
10 GEO-WA2-3L-HI-PBSC PIC S9(7) COMP-3 01730021
OCCURS 5 TIMES. 01740021
10 GEO-WA2-3L-SLA PIC X. 01750021
10 GEO-WA2-3L-REVERSALFLAG PIC X. 01760021
10 GEO-WA2-3L-LEFT-COMDIST. 01770021
15 GEO-WA2-3L-LEFT-COMDIST-BORO PIC X(1). 01780021
15 GEO-WA2-3L-LEFT-COMDIST-NUM PIC X(2). 01790021
10 GEO-WA2-3L-RIGHT-COMDIST. 01800021
15 GEO-WA2-3L-RIGHT-COMDIST-BORO PIC X(1). 01810021
15 GEO-WA2-3L-RIGHT-COMDIST-NUM PIC X(2). 01820021
10 GEO-WA2-3L-LEFT-ZIP PIC X(5). 01830021
10 GEO-WA2-3L-RIGHT-ZIP PIC X(5). 01840021
10 FILLER PIC X(18). 01850021
10 GEO-WA2-3L-LEFT-HEALTHAREA PIC X(4). 01860028
10 GEO-WA2-3L-RIGHT-HEALTHAREA PIC X(4). 01870028
*** NEXT LINE WAS PREVIOUSLY LEFT-INSTRUC-DIV 01880021
10 FILLER PIC X(2). 01890021
*** NEXT LINE WAS PREVIOUSLY RIGHT-INSTRUC-DIV 01900021
10 FILLER PIC X(2). 01910021
10 GEO-WA2-3L-LEFT-LOW-HOUSENUM PIC X(7). 01920021
10 GEO-WA2-3L-LEFT-HI-HOUSENUM PIC X(7). 01930021
10 GEO-WA2-3L-RIGHT-LOW-HOUSENUM PIC X(7). 01940021
10 GEO-WA2-3L-RIGHT-HI-HOUSENUM PIC X(7). 01950021
10 GEO-WA2-3L-CONT-PARITY-IND PIC X. 01960021
10 GEO-WA2-3L-LIONFACECODE PIC X(4). 01970021
10 GEO-WA2-3L-LIONSEQ PIC X(5). 01980021
10 GEO-WA2-3L-GENRECFLAG PIC X. 01990021
10 GEO-WA2-3L-SEGMENTLENGTH PIC S9(5) COMP-3. 02000021
10 GEO-WA2-3L-SEGMENTSLOPE PIC X(3). 02010021
10 GEO-WA2-3L-SEGMENTORIENT PIC X. 02020021
10 FILLER PIC X(4). 02030021
10 GEO-WA2-3L-RESDCP PIC X(2). 02040021
10 GEO-WA2-3L-DOG-LEG PIC X. 02050021
10 GEO-WA2-3L-FEATURE-TYPE PIC X(1). 02060021
10 GEO-WA2-3L-LEFT-POLDIST. 02070021
15 GEO-WA2-3L-L-POL-PATR-BOR-CMD PIC X(1). 02080021
15 GEO-WA2-3L-L-POL-PRECINCT PIC X(3). 02090021
10 GEO-WA2-3L-RIGHT-POLDIST. 02100021
15 GEO-WA2-3L-R-POL-PATR-BOR-CMD PIC X(1). 02110021
15 GEO-WA2-3L-R-POL-PRECINCT PIC X(3). 02120021
10 GEO-WA2-3L-LEFT-SCHLDIST PIC X(2). 02130021
10 GEO-WA2-3L-RIGHT-SCHLDIST PIC X(2). 02140021
10 GEO-WA2-3L-MARBLE-RIKER-FLAG PIC X(1). 02150021
10 GEO-WA2-3L-SEG-ID PIC X(7). 02160021
10 GEO-WA2-3L-SEGMENT-TYPE PIC X. 02170021
************************************************************* 02180021
** THE PORTION OF THIS WORK AREA ABOVE THIS POINT IS ** 02190021
** IDENTICAL TO THE STANDARD WORK AREA 2 FOR FUNCTION 3. ** 02200021
** THE PORTION BELOW THIS POINT IS PRESENT ONLY FOR THE ** 02210021
** LONG WORK AREA 2 OPTION. ** 02220021
************************************************************* 02230021
10 GEO-WA2-3L-L-1990-CENSUSTRACT PIC X(6) . 02240021
10 FILLER PIC X(4). 02250021
10 GEO-WA2-3L-L-DYN-BLOCK PIC X(3). 02260021
10 GEO-WA2-3L-R-1990-CENSUSTRACT PIC X(6). 02270021
10 FILLER PIC X(4). 02280021
10 GEO-WA2-3L-R-DYN-BLOCK PIC X(3). 02290021
** NOTE:10 GEO-WA2-3L-L-FIRESEC ==> FIRE DIV ** 02300021
** NOTE:10 GEO-WA2-3L-R-FIRESEC ==> FIRE DIV ** 02310021
10 GEO-WA2-3L-L-FIRESEC PIC X(2). 02320021
10 GEO-WA2-3L-L-FIREBAT PIC X(2). 02330021
10 GEO-WA2-3L-L-FIRECO. 02340021
15 GEO-WA2-3L-L-FIRECO-TYPE PIC X(1). 02350021
15 GEO-WA2-3L-L-FIRECO-NUM PIC X(3). 02360021
10 GEO-WA2-3L-R-FIRESEC PIC X(2). 02370021
10 GEO-WA2-3L-R-FIREBAT PIC X(2). 02380021
10 GEO-WA2-3L-R-FIRECO. 02390021
15 GEO-WA2-3L-R-FIRECO-TYPE PIC X(1). 02400021
15 GEO-WA2-3L-R-FIRECO-NUM PIC X(3). 02410021
10 GEO-WA2-3L-L-2010-CENS-TRCT PIC X(6). 02420023
10 GEO-WA2-3L-L-2010-CENS-BLK PIC X(4). 02430023
10 GEO-WA2-3L-L-2010-CENS-BLK-SFX PIC X. 02440023
10 GEO-WA2-3L-R-2010-CENS-TRCT PIC X(6). 02450023
10 GEO-WA2-3L-R-2010-CENS-BLK PIC X(4). 02460023
10 GEO-WA2-3L-R-2010-CENS-BLK-SFX PIC X. 02470023
10 GEO-WA2-3L-FROM-NODE PIC X(7). 02480021
10 GEO-WA2-3L-TO-NODE PIC X(7). 02490021
10 GEO-WA2-3L-L-2000-CENS-TRACT PIC X(6). 02510024
10 GEO-WA2-3L-L-2000-CENS-BLOCK PIC X(4). 02520024
10 GEO-WA2-3L-L-2000-CENS-BLK-SUF PIC X. 02530024
10 GEO-WA2-3L-R-2000-CENS-TRACT PIC X(6). 02540024
10 GEO-WA2-3L-R-2000-CENS-BLOCK PIC X(4). 02550024
10 GEO-WA2-3L-R-2000-CENS-BLK-SUF PIC X. 02560024
***************************************************************** 00000100
** THIS IS GEOSUPPORT SYSTEM COPY FILE W2COB1A, CONTAINING ** 00000200
** THE LAYOUT OF WORK AREA 2 FOR FUNCTIONS 1A AND BL WHICH ** 00000300
** SHARE A SINGLE WORK AREA 2 LAYOUT. 10/18/96 ** 00000400
***************************************************************** 00000500
* NEW FORMAT * 00000600
05 GEO-WA2-1A-ACCESS-KEY PIC X(21). 00000700
05 GEO-WA2-1A-CONT-PARITY PIC X. 00000800
05 GEO-WA2-1A-LOW-HOUSENUM PIC X(6). 00000900
05 GEO-WA2-1A-ALTKEY-1. 00001000
10 GEO-WA2-1A-ALTKEY-1-BORO PIC X. 00001100
10 GEO-WA2-1A-ALTKEY-1-TAXBLOCK PIC X(5). 00001200
10 GEO-WA2-1A-ALTKEY-1-TAXLOT PIC X(4). 00001300
05 FILLER PIC X. 00001400
05 GEO-WA2-1A-SCC PIC X. 00001500
05 FILLER PIC X. 00001600
05 GEO-WA2-1A-GENERAL-LOT-INFO. 00001700
10 GEO-WA2-1A-RPAD-BLDG-CLASS PIC X(2). 00001800
10 GEO-WA2-1A-CORNER-CODE PIC X(2). 00001900
10 GEO-WA2-1A-NUM-OF-STRUCTURES PIC X(2). 00002000
10 GEO-WA2-1A-NUM-OF-BLOCKFACES PIC X(2). 00002100
10 GEO-WA2-1A-INTERIOR-FLAG PIC X. 00002200
10 GEO-WA2-1A-VACANT-FLAG PIC X. 00002300
10 GEO-WA2-1A-IRREG-FLAG PIC X. 00002400
05 GEO-WA2-1A-ALT-BORO-FLAG PIC X. 00002500
05 FILLER PIC X. 00002600
05 GEO-WA2-1A-STROLL-KEY PIC X(13). 00002700
05 GEO-WA2-1A-OVERFLOW-FLAG PIC X(1). 00002801
05 FILLER-DCP PIC X(1). 00002900
05 GEO-WA2-1A-BLDG-ID-NUM PIC X(7). 00003000
05 GEO-WA2-1A-CONDO-LOT-FLAG PIC X. 00003100
05 GEO-WA2-1A-RPAD-COND-NUM PIC X(4). 00003200
05 GEO-WA2-1A-CONDO-LOW-BBL PIC X(10). 00003300
05 FILLER PIC X. 00003400
05 GEO-WA2-1A-CONDO-BILLING-BBL PIC X(10). 00003500
05 FILLER PIC X. 00003600
05 GEO-WA2-1A-CONDO-BILL-BBL-SCC PIC X. 00003700
05 GEO-WA2-1A-CONDO-HIGH-BBL PIC X(10). 00003800
05 FILLER PIC X. 00003900
05 GEO-WA2-1A-SANBORN-BVOLPAGE. 00004000
10 GEO-WA2-1A-SANBORN-BORO PIC X(1). 00004100
10 GEO-WA2-1A-SANBORN-VOL-PAGE. 00004200
15 GEO-WA2-1A-SANBORN-VOL-NUM PIC X(3). 00004300
15 GEO-WA2-1A-SANBORN-PAGE-NUM PIC X(4). 00004400
05 GEO-WA2-1A-COMMERC-DIST PIC X(5). 00004500
05 GEO-WA2-1A-CO-OP-NBR PIC X(4). 00004602
05 FILLER PIC X(4). 00004703
05 GEO-WA2-1A-TOT-NBR-BLDG PIC X(4). 00004802
05 GEO-WA2-1A-DOF-MAP-BOROUGH PIC X. 00004904
05 GEO-WA2-1A-TAX-MAP-NBR PIC X(4). 00005004
05 FILLER-FOR-TAX-MAP-PAGE PIC X(4). 00005105
05 GEO-WA2-1A-X-COORD PIC X(7). 00005205
05 GEO-WA2-1A-Y-COORD PIC X(7). 00005305
05 GEO-WA2-1A-BID PIC X(6). 00005406
05 FILLER PIC X(2). 00005506
05 GEO-WA2-1A-FILLER-LGCS PIC X(8). 00005607
05 FILLER PIC X(2). 00005706
05 GEO-WA2-1A-NUM-OF-ADDR-FOR-LOT PIC X(2). 00005806
05 GEO-WA2-1A-LIST-OF-ADDRESSES OCCURS 21 TIMES. 00005906
10 GEO-WA2-1A-LIST-LOW-HOUSENUM PIC X(6). 00006006
10 FILLER PIC X(3). 00006106
10 GEO-WA2-1A-LIST-HI-HOUSENUM PIC X(6). 00006206
10 FILLER PIC X(3). 00006306
10 GEO-WA2-1A-LIST-STREETCODE PIC X(8). 00006406
10 GEO-WA2-1A-LIST-BIN PIC X(7). 00006506
10 GEO-WA2-1A-ADDR-TYPE PIC X. 00006606
10 FILLER PIC X. 00006706
10 GEO-WA2-1A-LIST-SOS PIC X. 00007002
***************************************************************** 00000100
** THIS IS GEOSUPPORT SYSTEM COPY FILE W2COB1AL, CONTAINING ** 00000200
** THE LAYOUT OF LONG WORK AREA 2 FOR FUNCTIONS 1A AND BL ** 00000300
** WHICH SHARE A SINGLE WORK AREA 2 LAYOUT. 11/06/97 ** 00000400
***************************************************************** 00000500
* 1A/BL LONG WORK AREA 2 * 00000600
05 GEO-WA2-1AL-ACCESS-KEY PIC X(21). 00000700
05 GEO-WA2-1AL-CONT-PARITY PIC X. 00000800
05 GEO-WA2-1AL-LOW-HOUSENUM PIC X(6). 00000900
05 GEO-WA2-1AL-ALTKEY-1. 00001000
10 GEO-WA2-1AL-ALTKEY-1-BORO PIC X. 00001100
10 GEO-WA2-1AL-ALTKEY-1-TAXBLOCK PIC X(5). 00001200
10 GEO-WA2-1AL-ALTKEY-1-TAXLOT PIC X(4). 00001300
05 FILLER PIC X. 00001400
05 GEO-WA2-1AL-SCC PIC X. 00001500
05 FILLER PIC X. 00001600
05 GEO-WA2-1AL-GENERAL-LOT-INFO. 00001700
10 GEO-WA2-1AL-RPAD-BLDG-CLASS PIC X(2). 00001800
10 GEO-WA2-1AL-CORNER-CODE PIC X(2). 00001900
10 GEO-WA2-1AL-NUM-OF-STRUCTURES PIC X(2). 00002000
10 GEO-WA2-1AL-NUM-OF-BLOCKFACES PIC X(2). 00002100
10 GEO-WA2-1AL-INTERIOR-FLAG PIC X. 00002200
10 GEO-WA2-1AL-VACANT-FLAG PIC X. 00002300
10 GEO-WA2-1AL-IRREG-FLAG PIC X. 00002400
05 GEO-WA2-1AL-ALT-BORO-FLAG PIC X. 00002500
05 FILLER PIC X. 00002600
05 GEO-WA2-1AL-STROLL-KEY PIC X(13). 00002700
05 FILLER PIC X(1). 00002800
05 FILLER-DCP PIC X(1). 00002900
05 GEO-WA2-1AL-BLDG-ID-NUM PIC X(7). 00003000
05 GEO-WA2-1AL-CONDO-LOT-FLAG PIC X. 00003100
05 GEO-WA2-1AL-RPAD-COND-NUM PIC X(4). 00003200
05 GEO-WA2-1AL-CONDO-LOW-BBL PIC X(10). 00003300
05 FILLER PIC X. 00003400
05 GEO-WA2-1AL-CONDO-BILLING-BBL PIC X(10). 00003500
05 FILLER PIC X. 00003600
05 GEO-WA2-1AL-CONDO-BILL-BBL-SCC PIC X. 00003700
05 GEO-WA2-1AL-CONDO-HIGH-BBL PIC X(10). 00003800
05 FILLER PIC X. 00003900
05 GEO-WA2-1AL-SANBORN-BVOLPAGE. 00004000
10 GEO-WA2-1AL-SANBORN-BORO PIC X(1). 00004100
10 GEO-WA2-1AL-SANBORN-VOL-PAGE. 00004200
15 GEO-WA2-1AL-SANBORN-VOL-NUM PIC X(3). 00004300
15 GEO-WA2-1AL-SANBORN-PAGE-NUM PIC X(4). 00004400
05 GEO-WA2-1AL-COMMERC-DIST PIC X(5). 00004500
05 GEO-WA2-1AL-CO-OP-NBR PIC X(4). 00004604
05 FILLER PIC X(4). 00004705
05 GEO-WA2-1AL-TOT-NBR-BLDG PIC X(4). 00004804
05 GEO-WA2-1AL-DOF-MAP-BORO PIC X. 00004907
05 GEO-WA2-1AL-DOF-MAP-SECVOL PIC X(4). 00005007
******* GEO-WA2-1AL-DOF-MAP-PAGE NOT IMPLEMENTED 00005107
05 GEO-WA2-1AL-DOF-MAP-PAGE PIC X(4). 00005207
05 GEO-WA2-1AL-X-COORD PIC X(7). 00005308
05 GEO-WA2-1AL-Y-COORD PIC X(7). 00005408
05 GEO-WA2-1AL-BID PIC X(6). 00005509
05 FILLER PIC X(2). 00005609
05 GEO-WA2-1AL-FILLER-LGCS PIC X(8). 00005709
05 GEO-WA2-1AL-NUM-OF-BINS PIC X(4). 00005809
05 GEO-WA2-1AL-BINS PIC X(7) 00005909
OCCURS 2500 TIMES. 00006004
****************************************************************** 00010000
*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2COB3S, CONTAINING ** 00020000
*** THE LAYOUT OF WORK AREA 2 FOR FUNCTION 3S. 9/22/93 ** 00030000
****************************************************************** 00040000
05 GEO-WA2-3S-ACCESS-KEY PIC X(21). 00050000
05 GEO-WA2-3S-NUM-OF-INTERSECTS PIC X(3). 00060000
05 GEO-WA2-3S-LIST-OFINTERSECTS OCCURS 350 TIMES. 00070000
10 GEO-WA2-3S-SMALLEST-PBSC PIC S9(7) COMP-3. 00080000
10 GEO-WA2-3S-2ND-SMALLEST-PBSC PIC S9(7) COMP-3. 00090000
10 GEO-WA2-3S-DISTANCE PIC S9(5) COMP-3. 00100000
10 GEO-WA2-3S-GAP-FLAG PIC X. 00110000
ASSEMBLER COPY FILES (MSW)
\*/********************************************************************/ 00000100
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W1BAL, \***/ 00000200
\*/***** CONTAINING THE LAYOUT OF WORK AREA 1. \***/ 00000300
\*/********************************************************************/ 00000400
\*/***** Last Updated - 17 October 2006 \***/ 00000410
\*/********************************************************************/ 00000420
W1BAL DS 0H 00000500
\*/**************************** 00000600
\*/***** INPUT FIELDS ******* 00000700
\*/**************************** 00000800
W1IFUNC DS 0CL2 FUNCTION CODE 00000900
W1IFUNC1 DS CL1 FUNCTION CODE, BYTE 1 00001000
W1IFUNC2 DS CL1 FUNCTION CODE, BYTE 2 00001100
W1IBORO DS 0CL1 00001200
W1IBORO1 DS CL1 BORO CODE (1=MN;2=BX;3=BK;4=QN;5=SI) 00001300
W1IHSE# DS CL12 UNFORMATED HSNUM FOR FUNCTION: 1; 1A; 1E. 00001400
W1IHSE#P DS CL6 HOUSE NUM (INTERNAL FORMAT FOR FUNC D) 00001500
W1ISTRT1 DS CL32 STREET NAME 1 00001600
W1ISTRT2 DS CL32 STREET NAME 2 00001700
W1ISTRT3 DS CL32 STREET NAME 3 00001800
W1ICOMP DS CL1 COMPASS DIRECTION (TYPES 2, 3C & 3S) 00001900
W1ICOMP2 DS CL1 COMPASS DIRECTION (TYPE 3S) 00001950
W1ICDE1 DS PL4 PB5SC FOR STREET 1 00002000
W1ICDE2 DS PL4 PB5SC FOR STREET 2 00002100
W1ICDE3 DS PL4 PB5SC FOR STREET 3 00002200
W1IRBRQS DS CL1 ROADBED REQUEST SWITCH 00002300
W1IBORO2 DS CL1 BORO CODE OF CROSS ST. 1 00002400
W1IBORO3 DS CL1 BORO CODE OF CROSS ST. 2 00002500
W1ISNL DS CL2 LENGTH STREET NAME IS TO BE NORMALIZED TO 00002600
W1I10SC1 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 1 00002700
W1I10SC2 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 2 00002800
W1I10SC3 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 3 00002900
W1IZIPIN DS CL5 INPUT ZIP CODE 00003000
W1IBBL DS 0CL10 BORO,BLOCK,LOT FOR "BL" FUNCTION 00003100
W1IBLBOR DS CL1 BORO FOR FUNCTION "BL" 00003200
W1IBLOCK DS CL5 TAX BLOCK - FOR FUNCTION "BL" 00003300
W1ILOT DS CL4 TAX LOT - FOR FUNCTION "BL" 00003400
DS CL1 FILLER 00003410
W1IBIN DS CL7 BUILDING ID NUMBER 00003500
W1ICMPCT DS CL1 'C' IF STREET NAMES ARE TO BE COMPACTED 00003600
W1ILONG3 DS CL1 'L' IF LONG WORKAREA 2 FOR FUNC 3 DESIRED 00003700
W1ILHSE DS CL12 UNFORMATED LOW HSNUM FOR FUNCTION: 1; 1A; 1E. 00003800
W1ILHSEP DS CL6 LOW HOUSE NUM (INTERNAL FORMAT FOR FUNC D) 00003900
W1INIBMF DS CL1 NON-IBM MAIN FRAMME FLAG 00004000
W1I1ABLV DS CL1 Set to "S" for St'd Func. 1A & BL WORKAREA 00004100
\* Set to "L" or " " for Legacy 1A & BL Workarea 00004200
W1IXSTF DS CL1 CROSS STREET NAME FLAG 00004300
DS CL4 FILLER 00004400
\*/***************************** 00004500
\*/***** OUTPUT FIELDS ******* 00004600
\*/***************************** 00004700
W1OLHSE DS CL12 LOW HOUSE NUMBER IN DISPLAY FORMAT
W1OBORO DS CL9 BORO NAME 00004800
W1OSTRT1 DS CL32 STREET 1 NAME, NORMALIZED 00004900
W1OSTRT2 DS CL32 STREET 2 NAME, NORMALIZED 00005000
W1OSTRT3 DS CL32 STREET 3 NAME, NORMALIZED 00005100
W1OHSE# DS CL12 HOUSE NUMBER, NORMALIZED, DISPLAY FORMAT 00005200
W1OHSE#P DS CL6 HOUSE NUMBER (INTERNAL FORMAT) 00005300
DS CL7 FILLER 00005400
W1OPB51K DS 0PL4 Packed Borough and Street Code 1 00005500
W1OBOR1K DS XL1 Packed unsigned Borough Code 00005600
W1OCDE1K DS PL3 STREET CODE 1 (KEY) 00005700
DS PL2 Filler 00005800
W1OPB52K DS 0PL4 Packed Borough and Street Code 2 00005900
W1OBOR2K DS XL1 Packed unsigned Borough Code 00006000
W1OCDE2K DS PL3 STREET CODE 2 (KEY) 00006100
DS PL2 Filler 00006200
W1OPB53K DS 0PL4 Packed Borough and Street Code 3 00006300
W1OBOR3K DS XL1 Packed unsigned Borough Code 00006400
W1OCDE3K DS PL3 STREET CODE 3 (KEY) 00006500
W1OATTR DS CL3 Attribute Bytes - Internal Use Only 00006600
W1BROWSE DS CL40 10 PB5SC'S FOR FUNCTION: BB; BF. 00006700
W1O10SC1 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 1 00006800
W1O10SC2 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 2 00006900
W1O10SC3 DS CL11 BORO + 10 BYTE STREET CODE FOR CROSS STREET 2 00007000
W1OCONDO DS CL5 CONDO UNIT ID NUMBER - NOT IMPLEMENTED 00007100
W1OBBL DS 0CL10 OUTPUT BORO,BLOCK,LOT FOR FUNCTION "BL" 00007200
W1OBLBOR DS CL1 BORO FOR FUNCTION "BL" 00007300
W1OBLOCK DS CL5 TAX BLOCK - FOR FUNCTION "BL" 00007400
W1OLOT DS CL4 TAX LOT - FOR FUNCTION "BL" 00007500
DS CL1 FILLER 00007510
W1OBIN DS CL7 BUILDING IDENTIFICATION Number 00007600
W1OINTU1 DS CL1 INTERNAL USE ONLY - ATTR BYTE
W1OREASN DS CL1 REASON CODE 00007900
W1OINTR0 DS CL1 INTERNAL USE ONLY - RETURN CODE 00008000
W1OINTRC DS CL1 INTERNAL USE ONLY - RETURN CODE 00008100
W1ORC DS 0CL2 RETURN CODE 00008200
W1ORC1 DS CL1 RETURN CODE, BYTE 1 00008300
W1ORC2 DS CL1 RETURN CODE, BYTE 2 00008400
W1OERROR DS CL80 ERROR MESSAGE 00008500
W1O#SIM DS PL2 NUMBER OF SIMILAR NAMES 00008600
W1ONAMES DS 10CL32 UP TO 10 SIMILAR NAMES 00008700
W1END EQU * 00008800
W1LENGTH EQU W1END-W1BAL LENGTH OF W1BAL 00008900
\*/********************************************************************/ 00010000
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W2BAL, \***/ 00020000
\*/***** CONTAINING THE LAYOUT OF WORK AREA 2 FOR FUNCTIONS \***/ 00030000
\*/***** 1, 1E, 2, 2C, 3, 3C. PLEASE NOTE THAT FUNCTIONS 2 AND 2C \***/ 00040000
\*/***** SHARE A SINGLE WORK AREA 2 LAYOUT. \***/ 00050000
\*/********************************************************************/ 00060000
\*/***** LAST MODIFIED JANUARY 2012 \***/ 00070044
\*/********************************************************************/ 00080012
W2BAL DS 0H 00090000
W2ACCKEY DS CL21 ACCESS KEY 00100000
W2LAYOUT DS 0CL179 00110002
W2F1CPAR DS CL1 CONTINUOUS PARITY INDICATOR 00120002
W2F1LHNI DS 0CL6 LOW HOUSE NUMBER 00130000
W2F1HSEL DS CL5 LOW HOUSE NUMBER ON BLOCK FACE 00140000
W2F1SFXL DS CL1 LOW HOUSE NUMBER SUFFIX 00150013
W2F1HHNI DS 0CL6 HIGH HOUSE NUMBER 00160000
W2F1HSEH DS CL5 HIGH HOUSE NUMBER ON BLOCK FACE 00170000
W2F1SFXH DS CL1 HI HOUSE NUMBER SUFFIX 00180013
W2F1ALX DS CL1 A=ALLEYS INTERSECT SEGMENT 00190025
\* X=CROSS STREETS MODIFIED 00191025
W2F1#STL DS CL1 NUMBER OF CROSS STREETS AT LOW END 00200000
W2F1CDEL DS CL20 UP TO FIVE PB5SC'S FOR LOW END 00210000
W2F1#STH DS CL1 NUMBER OF CROSS STREETS AT HIGH END 00220000
W2F1CDEH DS CL20 UP TO FIVE PB5SC'S FOR HIGH END 00230000
W2F1CD DS 0CL3 COMMUNITY DISTRICT 00240000
W2F1CDB DS CL1 COMMUNITY DISTRICT BORO 00250000
W2F1CDN DS CL2 COMMUNITY DISTRICT NUMBER 00260000
W2F1ZIP DS CL5 ZIP CODE 00270000
W2F1SLA DS CL1 STREET LIGHT AREA 00280000
W2F1HCD DS CL2 HEALTH CODE DISTRICT 00290045
W2F1SOS DS CL1 SIDE OF STREET INDICATOR 00300000
W2F1PAR DS CL1 CONTINUOUS PARITY INDICATOR 00310000
W2F1CT10 DS CL6 2010 CENSUS TRACT 00320037
W2F1CB10 DS CL4 2010 CENSUS BLOCK 00350037
W2F1CBS1 DS CL1 2010 CENSUS BLOCK SUFFIX NOT IMPLEMENTED 00351042
DS CL3 FILLER 00352032
W2F1HA DS CL4 HEALTH AREA 00360045
W2F1SREC DS CL3 SANITATION RECYCLE PICK-UP 00370007
W2F1FEAT DS CL1 FEATURE TYPE CODE 00380023
RES1 DS CL1 RESERVED FOR DCP/GSS USE 00400000
ORG RES1 00401030
W2F1ELCD DS CL1 COMMUNITY DEVELOPMENT ELIGIBILITY 00402031
W2F1CURV DS CL1 CURVE FLAG 00410014
W2F1POL DS 0CL4 POLICE DISTRICT 00420000
W2F1PBC DS CL1 POLICE PATROL BORO COMMAND 00430000
W2F1POP DS CL3 POLICE PRECINCT 00440000
W2F1SCH DS CL2 SCHOOL DISTRICT 00450000
DS CL14 RESERVED FOR POLITICAL INFORMATION 00460028
W2F1CSC DS CL1 COINCIDENT SEGMENT COUNT 00460128
W2F1STC DS CL1 SEGMENT TYPE CODE 00461026
W2F1SAND DS CL3 SANITATION DISTRICT 00470002
W2F1SANT DS CL2 SANITATION DEPT SUBSECTION 00480000
W2F1FS DS CL2 FIRE DIVISION 00490001
W2F1FB DS CL2 FIRE BATTALION 00500000
W2F1FC DS 0CL4 FIRE COMPANY 00510000
W2F1FCT DS CL1 FIRE COMPANY TYPE 00520000
W2F1FCN DS CL3 FIRE COMPANY NUMBER 00530000
W2F1SPAD DS CL1 SPECIAL ADDRESS FLAG 00540000
W2F1MHRI DS CL1 MARBLE HILL/RIKERS ISLAND FLAG 00550000
W2F1FILS DS CL1 FILLER-WAS SPLIT SCHOOL DISTRICT FLAG 00560039
W2F1LGC DS CL2 LOGICAL GROUP CODE (PREFERRED) 00570000
W2F1FACE DS CL4 LION FACE CODE 00580000
W2F1SEQ DS CL5 LION SEQUENCE NUMBER 00590000
W2F1CT90 DS CL6 1990 CENSUS TRACT 00600000
DS CL4 FILLER 00610015
W2F1CPB DS CL3 DYNAMIC BLOCK/ATOMIC POLYGON 00640038
W2F1XCOR DS CL7 X COORDINATE 00650000
W2F1YCOR DS CL7 Y COORDINATE 00660000
W2F1SEGL DS CL5 SEGMENT LEGNTH 00670000
W2F1SREG DS CL5 SANITATION REGULAR PICK-UP 00680012
\* 00690000
******************************************************************** 00700000
ORG W2F1SCH+2 PATCH FOR FUNCTION 1E FIELDS 00710000
******************************************************************** 00720000
\* 00730000
W2F1EED DS CL3 ELECTION DISTRICT 00740000
W2F1EAD DS CL2 ASSEMBLY DISTRICT 00750000
W2F1ESED DS CL1 SPLIT E.D. FLAG 00760000
W2F1ECON DS CL2 CONGRESSIONAL DISTRICT 00770000
W2F1ESEN DS CL2 SENATORIAL DISTRICT 00780000
W2F1ECIV DS CL2 CIVIL COURT DISTRICT 00790000
W2F1ECOU DS CL2 CITY COUNCIL DISTRICT 00800000
DS CL18 00810000
W2F1ELGC DS CL2 LOGICAL GROUP CODE (PREFERRED) 00820000
\* 00830000
******************************************************************** 00840000
ORG W2LAYOUT RESET LOCATION COUNTER FOR FUNCTION 2 00850000
******************************************************************** 00860000
\* 00870000
W2F2DUPI DS CL1 DUPLICATE INTERSECT FLAG 00880000
DS CL9 FILLER 00890000
W2F2LGC1 DS CL2 STREET 1 PREFERRED LGC 00900013
W2F2LGC2 DS CL2 STREET 2 PREFERRED LGC 00910013
W2F2#INT DS CL1 NUMBER OF INTERSECTING STREETS 00920000
W2F2CODE DS CL20 INTERSECTING PB5SC'S 00930000
W2F2CDIR DS CL1 COMPASS DIRECTION OF TWO LOWEST STREETS 00940011
W2F2LEVC DS CL10 LEVEL CODES ASSOCIATED WITH CROSS STREETS 00941022
DS CL2 WAS INSTRUCTIONAL DIVISION 00950046
W2F2FS DS CL2 FIRE DIVISION 00960003
W2F2FB DS CL2 FIRE BATTALION 00970000
W2F2FC DS 0CL4 FIRE COMPANY 00980000
W2F2FCT DS CL1 FIRE COMPANY TYPE 00990000
W2F2FCN DS CL3 FIRE COMPANY NUMBER 01000000
W2F2CD DS 0CL3 COMMUNITY DISTRICT 01010000
W2F2CDB DS CL1 COMMUNITY DISTRICT BORO 01020000
W2F2CDN DS CL2 COMMUNITY DISTRICT NUMBER 01030000
W2F2ZIP DS CL5 ZIP CODE 01040000
W2F2SLA DS CL1 STREET LIGHT AREA 01050000
W2F2CT10 DS CL6 2010 CENSUS TRACT 01060037
DS CL3 FILLER 01080000
W2F2HA DS CL4 HEALTH AREA 01090045
DS CL9 FILLER 01100010
W2F2NDNB DS CL7 LION NODE NUMBER 01110010
W2F2XCOR DS CL7 X COORDINATE 01120000
W2F2YCOR DS CL7 Y COORDINATE 01130000
DS CL4 FILLER 01150013
W2F2POL DS 0CL4 POLICE DISTRICT 01160000
W2F2PBC DS CL1 POLICE PATROL BORO COMMAND 01170000
W2F2POP DS CL3 POLICE PRECINCT 01180000
W2F2SCH DS CL2 SCHOOL DISTRICT 01190000
W2F2MHRI DS CL1 MARBLE HILL/RIKERS ISLAND FLAG 01200000
W2F2CT90 DS CL6 1990 CENSUS TRACT 01210000
W2F2SVP1 DS 0CL8 FIRST SANBORN BOROUGH, PAGE, VOLUME 01220003
W2F2SB1 DS CL1 FIRST SANBORN BOROUGH CODE 01230003
W2F2SP1 DS CL3 FIRST SANBORN PAGE 01240003
W2F2SV1 DS CL4 FIRST SANBORN VOLUME 01250003
W2F2SVP2 DS 0CL8 SECOND SANBORN BOROUGH, PAGE, VOLUME 01260003
W2F2SB2 DS CL1 SECOND SANBORN BOROUGH CODE 01270003
W2F2SP2 DS CL3 SECOND SANBORN PAGE 01280003
W2F2SV2 DS CL4 SECOND SANBORN VOLUME 01290003
W2F2DID DS CL5 DUPLICATE INTERSECTION DISTANCE 01291034
W2F2T00 DS CL6 2000 CENSUS TRACT 01292040
DS CL27 FILLER 01300034
\* 01310000
******************************************************************** 01320000
ORG W2LAYOUT RESET LOCATION COUNTER FOR FUNCTION 3 01330000
******************************************************************** 01340000
\* 01350000
W2F3DUPF DS CL1 DUPLICATE KEY FLAG 01360013
W2F3CURV DS CL1 CURVE FLAG 01361014
W2F3LST DS CL1 LOCATIONAL STATUS 01362018
W2F3CBI DS CL1 COUNTY BOUNDARY INDICATOR 01363017
W2F3CSC DS CL1 COINCIDENT SEGMENT COUNT 01364028
DS CL3 01370028
W2F3LGC1 DS CL2 STREET 1 PREFERRED LGC 01380013
W2F3LGC2 DS CL2 STREET 2 PREFERRED LGC 01390013
W2F3LGC3 DS CL2 STREET 3 PREFERRED LGC 01400013
W2F3#STL DS CL1 NUMBER OF CROSS STREETS AT LOW END 01410000
W2F3CDEL DS CL20 CROSS STREET PB5SC'S AT LOW END 01420000
W2F3#STH DS CL1 NUMBER OF CROSS STREETS AT HIGH END 01430000
W2F3CDEH DS CL20 CROSS STREET PB5SC'S AT HIGH END 01440000
W2F3SLA DS CL1 STREET LIGHT AREA 01450000
W2F3REVF DS CL1 REVERSAL FLAG 01460000
W2F3CDL DS 0CL3 LEFT COMMUNITY DISTRICT 01470000
W2F3CDBL DS CL1 LEFT COMMUNITY DISTRICT BORO 01480006
W2F3CDNL DS CL2 LEFT COMMUNITY DISTRICT NUMBER 01490006
W2F3CDR DS 0CL3 RIGHT COMMUNITY DISTRICT 01500000
W2F3CDBR DS CL1 RIGHT COMMUNITY DISTRICT BORO 01510006
W2F3CDNR DS CL2 RIGHT COMMUNITY DISTRICT NUMBER 01520006
W2F3ZIPL DS CL5 LEFT ZIP CODE 01530000
W2F3ZIPR DS CL5 RIGHT ZIP CODE 01540000
DS CL18 FILLER - FORMER 1980 CENSUS GEOGRAPHY 01541015
W2F3HAL DS CL4 LEFT HEALTH AREA 01610045
W2F3HAR DS CL4 RIGHT HEALTH AREA 01620045
DS CL2 WAS LEFT INSTRUCTIONAL DIVISION 01630046
DS CL2 WAS RIGHT INSTRUCTIONAL DIVISION 01631046
W2F3LO#L DS CL7 LEFT LOW HOUSE NUMBER 01640000
W2F3HI#L DS CL7 LEFT HIGH HOUSE NUMBER 01650000
W2F3LO#R DS CL7 RIGHT LOW HOUSE NUMBER 01660000
W2F3HI#R DS CL7 RIGHT HIGH HOUSE NUMBER 01670000
W2F3PAR DS CL1 CONTINUOUS PARITY INDICATOR 01680000
W2F3FACE DS CL4 LION FACE CODE 01690000
W2F3SEQ DS CL5 LION SEQUENCE NUMBER 01700000
W2F3GEN DS CL1 GENERATED RECORD FLAG 01710000
W2F3SEGL DS PL3 SEGMENT LENGTH IN FEET 01720000
W2F3SLOP DS CL3 SEGMENT SLOPE IN DEGREES 01730000
W2F3ORNT DS CL1 SEGMENT ORIENTATION 01740000
DS CL4 FILLER 01750013
RES2 DS CL2 RESERVED FOR DCP/GSS USE 01770000
ORG RES2 01770130
W2F3ELCD DS CL2 COMMUNITY DEVELOPMENT ELIGIBILITY 01770231
W2F3DGLG DS CL1 DOG LEG FLAG 01771015
W2F3FEAT DS CL1 FEATURE TYPE CODE 01780024
W2F3POLL DS 0CL4 LEFT POLICE DISTRICT 01790000
W2F3PBCL DS CL1 LEFT POLICE PATROL BORO COMMAND 01800000
W2F3POPL DS CL3 LEFT POLICE PRECINCT 01810000
W2F3POLR DS 0CL4 RIGHT POLICE DISTRICT 01820000
W2F3PBCR DS CL1 RIGHT POLICE PATROL BORO COMMAND 01830000
W2F3POPR DS CL3 RIGHT POLICE PRECINCT 01840000
W2F3SCHL DS CL2 LEFT SCHOOL DISTRICT 01850000
W2F3SCHR DS CL2 RIGHT SCHOOL DISTRICT 01860000
W2F3MHRI DS CL1 MARBLE HILL/RIKERS ISLAND FLAG 01870000
W2F3SEGT DS CL7 SEGMENT IDENTIFIER 01871015
W2F3STC DS CL1 SEGMENT TYPE CODE 01880026
\* 01890000
******************************************************************** 01900000
ORG W2LAYOUT RESET LOCATION COUNTER FOR FUNCTION 3C 01910000
******************************************************************** 01920000
\* 01930000
W23CCURV DS CL1 CURVE FLAG 01931014
W23CSTC DS CL1 SEGMENT TYPE CODE 01932026
W23CLST DS CL1 LOCATIONAL STATUS 01933018
W23CCBI DS CL1 COUNTY BOUNDARY INDICATOR 01934017
W23CCSC DS CL1 COINCIDENT SEGMENT COUNT 01935028
DS CL3 FILLER 01940028
W23CLGC1 DS CL2 STREET 1 PREFERRED LGC 01950013
W23CLGC2 DS CL2 STREET 2 PREFERRED LGC 01960013
W23CLGC3 DS CL2 STREET 3 PREFERRED LGC 01970013
W23C#STL DS CL1 NUMBER OF CROSS STREETS AT LOW END 01980000
W23CCDEL DS CL20 UP TO FIVE PB5SC'S FOR LOW END 01990000
W23C#STH DS CL1 NUMBER OF CROSS STREETS AT HIGH END 02000000
W23CCDEH DS CL20 UP TO FIVE PB5SC'S FOR HIGH END 02010000
W23CCD DS 0CL3 COMMUNITY DISTRICT 02020000
W23CCDB DS CL1 COMMUNITY DISTRICT BORO 02030000
W23CCDN DS CL2 COMMUNITY DISTRICT NUMBER 02040000
W23CZIP DS CL5 ZIP CODE 02050000
W23CSLA DS CL1 STREET LIGHT AREA 02060000
W23CT00 DS CL6 2000 CENSUS TRACT - 02070040
DS CL1 FILLER 02080034
W23CCT10 DS CL6 2010 CENSUS TRACT 02100037
W23CCB10 DS CL4 2010 CENSUS BLOCK 02110037
W23CCBS1 DS CL1 2010 CENSUS BLOCK SUFFIX NOT IMPLEMENTED 02111042
W23CHA DS CL4 HEALTH AREA 02120045
W23CREVF DS CL1 CROSS STREET REVERSAL FLAG 02130005
W23CSOS DS CL1 SIDE OF STREET INDICATOR 02140005
W23CFS DS CL2 FIRE DIVISION 02150003
W23CFB DS CL2 FIRE BATTALION 02160000
W23CFC DS 0CL4 FIRE COMPANY 02170000
W23CFCT DS CL1 FIRE COMPANY TYPE 02180000
W23CFCN DS CL3 FIRE COMPANY NUMBER 02190000
W23CSEGT DS CL7 SEGMENT IDENTIFIER 02200015
W23CHSEL DS CL7 LOW HOUSE NUMBER 02210000
W23CHSEH DS CL7 HIGH HOUSE NUMBER 02220000
W23CHS2L DS CL7 2ND LOW HSE # - USED IF ODD & EVEN RANGES 02230000
W23CHS2H DS CL7 2ND HI HSE # ARE ON SAME SIDE OF STREET 02240000
W23CPAR DS CL1 CONTINUOUS PARITY INDICATOR 02250000
W23CFACE DS CL4 LION FACE CODE 02260000
W23CSEQ DS CL5 LION SEQUENCE NUMBER 02270000
W23CGEN DS CL1 GENERATED RECORD FLAG 02280000
W23CSEGL DS PL3 SEGMENT LENGTH IN FEET 02290000
W23CSLOP DS CL3 SEGMENT SLOPE IN DEGREES 02300000
W23CORNT DS CL1 SEGMENT ORIENTATION 02310000
DS CL2 WAS INSTRUCTIONAL DIVISION 02320046
RES3 DS CL1 RESERVED FOR DCP/GSS USE 02330000
ORG RES3 02331030
W23CELCD DS CL1 COMMUNITY DEVELOPMENT ELIGIBILITY 02332031
W23CFEAT DS CL1 FEATURE TYPE CODE 02340024
W23CPOL DS 0CL4 POLICE DISTRICT 02350000
W23CPBC DS CL1 POLICE PATROL BORO COMMAND 02360000
W23CPOP DS CL3 POLICE PRECINCT 02370000
W23CSCH DS CL2 SCHOOL DISTRICT 02380000
W23CMHRI DS CL1 MARBLE HILL/RIKERS ISLAND FLAG 02390000
W23CCT90 DS CL6 1990 CENSUS TRACT 02400000
DS CL4 FILLER 02410015
W23CCPB DS CL3 DYNAMIC BLOCK/ATOMIC POLYGON 02440038
W23CB00 DS CL4 2000 CENSUS BLOCK 02441040
W23CS00 DS CL1 2000 CENSUS BLOCK SUFFIX 02442040
\* 02460000
******************************************************************** 02470000
ORG W2BAL RESET LOCATION COUNTER FOR FUNCTION 5 02480000
******************************************************************** 02490000
\* 02500000
W2F5AMK DS CL28 ACCESS MATCHING KEY 02510000
DS CL172 FILLER 02520000
W2END EQU * 02530000
W2LENGTH EQU W2END-W2BAL LENGTH OF W2BAL 02540000
\*/********************************************************************/ 00000100
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W2BALL, \***/ 00000200
\*/***** CONTAINING THE LAYOUT OF THE OPTIONAL LONG WORK AREA 2 \***/ 00000300
\*/***** FOR FUNCTIONS 1 AND 3. \***/ 00000400
\*/********************************************************************/ 00000500
\*/***** LAST UPDATED JANUARY 2012 \***/ 00000603
\*/********************************************************************/ 00000702
W2BALL DS 0H 00000802
W2LACKEY DS CL21 ACCESS KEY 00100000
W21LCPAR DS CL1 CONTINUOUS PARITY INDICATOR 00120002
W21LLHNI DS 0CL6 LOW HOUSE NUMBER 00130000
W21LHSEL DS CL5 LOW HOUSE NUMBER ON BLOCK FACE 00140000
W21LSFXL DS CL1 LOW HOUSE NUMBER SUFFIX 00150013
W21LHHNI DS 0CL6 HIGH HOUSE NUMBER 00160000
W21LHSEH DS CL5 HIGH HOUSE NUMBER ON BLOCK FACE 00170000
W21LSFXH DS CL1 HI HOUSE NUMBER SUFFIX 00180013
W21LALX DS CL1 A=ALLEYS INTERSECT SEGMENT 00190000
* X=CROSS STREETS MODIFIED
W21L#STL DS CL1 NUMBER OF CROSS STREETS AT LOW END 00200000
W21LCDEL DS CL20 UP TO FIVE PB5SC'S FOR LOW END 00210000
W21L#STH DS CL1 NUMBER OF CROSS STREETS AT HIGH END 00220000
W21LCDEH DS CL20 UP TO FIVE PB5SC'S FOR HIGH END 00230000
W21LCD DS 0CL3 COMMUNITY DISTRICT 00240000
W21LCDB DS CL1 COMMUNITY DISTRICT BORO 00250000
W21LCDN DS CL2 COMMUNITY DISTRICT NUMBER 00260000
W21LZIP DS CL5 ZIP CODE 00270000
W21LSLA DS CL1 STREET LIGHT AREA 00280000
W21LHCD DS CL2 HEALTH CODE DISTRICT 00290000
W21LSOS DS CL1 SIDE OF STREET INDICATOR 00300000
W21LPAR DS CL1 CONTINUOUS PARITY INDICATOR 00310000
W21LCT10 DS CL6 2010 CENSUS TRACT 00320015
W21LCB10 DS CL4 2010 CENSUS BLOCK 00350015
W21LCBS1 DS CL1 2010 CENSUS BLOCK SUFFIX 00351015
DS CL3 FILLER 00352015
W21LHA DS CL4 HEALTH AREA 00360000
W21LSREC DS CL3 SANITATION RECYCLE PICK-UP 00370007
W21LFEAT DS CL1 FEATURE TYPE CODE 00380007
RES1L DS CL1 RESERVED FOR DCP/GSS USE 00400000
ORG RES1L
W21LELCD DS CL1 COMMUNITY DEVELOPMENT ELIGIBILITY
W21LCURV DS CL1 CURVE FLAG 00410014
W21LPOL DS 0CL4 POLICE DISTRICT 00420000
W21LPBC DS CL1 POLICE PATROL BORO COMMAND 00430000
W21LPOP DS CL3 POLICE PRECINCT 00440000
W21LSCH DS CL2 SCHOOL DISTRICT 00450000
DS CL14 RESERVED FOR POLITICAL INFORMATION 00460013
W21LCSC DS CL1 COINCIDENT SEGMENT COUNT
W21LSTC DS CL1 SEGMENT TYPE CODE
W21LSAND DS CL3 SANITATION DISTRICT 00470002
W21LSANT DS CL2 SANITATION DEPT SUBSECTION 00480000
W21LFS DS CL2 FIRE DIVISION 00490001
W21LFB DS CL2 FIRE BATTALION 00500000
W21LFC DS 0CL4 FIRE COMPANY 00510000
W21LFCT DS CL1 FIRE COMPANY TYPE 00520000
W21LFCN DS CL3 FIRE COMPANY NUMBER 00530000
W21LSPAD DS CL1 SPECIAL ADDRESS FLAG 00540000
W21LMHRI DS CL1 MARBLE HILL/RIKERS ISLAND FLAG 00550000
W21LFILS DS CL1 FILLER-WAS SPLIT SCHOOL DISTRICT FLAG 00560000
W21LLGC DS CL2 LOGICAL GROUP CODE (PREFERRED) 00570000
W21LFACE DS CL4 LION FACE CODE 00580000
W21LSEQ DS CL5 LION SEQUENCE NUMBER 00590000
W21LCT90 DS CL6 1990 CENSUS TRACT 00600000
DS CL4 FILLER 00610015
W21LCPB DS CL3 DYNAMIC BLOCK/ATOMIC POLYGON 00640000
W21LXCOR DS CL7 X COORDINATE 00650000
W21LYCOR DS CL7 Y COORDINATE 00660000
W21LSEGL DS CL5 SEGMENT LEGNTH 00670000
W21LSREG DS CL5 SANITATION REGULAR PICK-UP 00680012
W21LSEGT DS CL7 SEGMENT IDENTIFIER
W21LB7SC DS CL8 "TRUE" BOROUGH AND 7 DIGIT STREET CODE
W21LHNI DS CL6 UNDERLYING HOUSE NUMBER
W21LT00 DS CL6 2000 CENSUS TRACT 00320015
W21LB00 DS CL4 2000 CENSUS BLOCK 00350015
W21LS00 DS CL1 2000 CENSUS BLOCK SUFFIX 00351015
DS CL68 FILLER - FUTURE USE
\* 00690000
******************************************************************** 00700000
ORG W21LSCH+2 PATCH FOR FUNCTION 1E FIELDS 00710000
******************************************************************** 00720000
\* 00730000
W21LEED DS CL3 ELECTION DISTRICT 00740000
W21LEAD DS CL2 ASSEMBLY DISTRICT 00750000
W21LESED DS CL1 SPLIT E.D. FLAG 00760000
W21LECON DS CL2 CONGRESSIONAL DISTRICT 00770000
W21LESEN DS CL2 SENATORIAL DISTRICT 00780000
W21LECIV DS CL2 CIVIL COURT DISTRICT 00790000
W21LECOU DS CL2 CITY COUNCIL DISTRICT 00800000
DS CL18 00810000
W21LELGC DS CL2 LOGICAL GROUP CODE (PREFERRED) 00820000
\* 00830000
******************************************************************** 00840000
ORG W2LACKEY RESET LOCATION COUNTER FOR FUNCTION 3 00850000
******************************************************************** 00860000
\* 00870000
DS CL21 00000902
W23LDUPF DS CL1 DUPLICATE KEY FLAG 00001002
W23LCURV DS CL1 CURVE FLAG 00001103
W23LLST DS CL1 LOCATION STATUS OF SEGMENT
W23LCBI DS CL1 COUNTY BOUNDARY INDICATOR
W23LCSC DS CL1 COINCIDENT SEGMENT COUNT
DS CL3 00001203
W23LLGC1 DS CL2 STREET 1 PREFERRED LGC 00001302
W23LLGC2 DS CL2 STREET 2 PREFERRED LGC 00001402
W23LLGC3 DS CL2 STREET 3 PREFERRED LGC 00001502
W23L#STL DS CL1 NUMBER OF CROSS STREETS AT LOW END 00001602
W23LCDEL DS CL20 CROSS STREET PB5SC'S AT LOW END 00001702
W23L#STH DS CL1 NUMBER OF CROSS STREETS AT HIGH END 00001802
W23LCDEH DS CL20 CROSS STREET PB5SC'S AT HIGH END 00001902
W23LSLA DS CL1 STREET LIGHT AREA 00002002
W23LREVF DS CL1 REVERSAL FLAG 00002102
W23LCDL DS 0CL3 LEFT COMMUNITY DISTRICT 00002202
W23LCDBL DS CL1 LEFT COMMUNITY DISTRICT BORO 00002302
W23LCDNL DS CL2 LEFT COMMUNITY DISTRICT NUMBER 00002402
W23LCDR DS 0CL3 RIGHT COMMUNITY DISTRICT 00002502
W23LCDBR DS CL1 RIGHT COMMUNITY DISTRICT BORO 00002602
W23LCDNR DS CL2 RIGHT COMMUNITY DISTRICT NUMBER 00002702
W23LZIPL DS CL5 LEFT ZIP CODE 00002802
W23LZIPR DS CL5 RIGHT ZIP CODE 00002902
DS CL18
W23LHAL DS CL4 LEFT HEALTH AREA 00003602
W23LHAR DS CL4 RIGHT HEALTH AREA 00003702
DS CL2 WAS LEFT INSTRUCTIONAL DIVISION 00003802
DS CL2 WAS RIGHT INSTRUCTIONAL DIVISION
W23LLO#L DS CL7 LEFT LOW HOUSE NUMBER 00003902
W23LHI#L DS CL7 LEFT HIGH HOUSE NUMBER 00004002
W23LLO#R DS CL7 RIGHT LOW HOUSE NUMBER 00004102
W23LHI#R DS CL7 RIGHT HIGH HOUSE NUMBER 00004202
W23LPAR DS CL1 CONTINUOUS PARITY INDICATOR 00004302
W23LFACE DS CL4 LION FACE CODE 00004402
W23LSEQ DS CL5 LION SEQUENCE NUMBER 00004502
W23LGEN DS CL1 GENERATED RECORD FLAG 00004602
W23LSEGL DS PL3 SEGMENT LENGTH IN FEET 00004702
W23LSLOP DS CL3 SEGMENT SLOPE IN DEGREES 00004802
W23LORNT DS CL1 SEGMENT ORIENTATION 00004902
DS CL4 FILLER 00005002
RESL1 DS CL2 RESERVED FOR DCP/GSS USE 00005102
ORG RESL1
W23LELCD DS CL2 COMMUNITY DEVELOPMENT ELIGIBILITY
W23LDGLG DS CL1 DOG LEG FLAG
W23LFEAT DS CL1 FEATURE TYPE CODE 00005202
W23LPOLL DS 0CL4 LEFT POLICE DISTRICT 00005302
W23LPBCL DS CL1 LEFT POLICE PATROL BORO COMMAND 00005402
W23LPOPL DS CL3 LEFT POLICE PRECINCT 00005502
W23LPOLR DS 0CL4 RIGHT POLICE DISTRICT 00005602
W23LPBCR DS CL1 RIGHT POLICE PATROL BORO COMMAND 00005702
W23LPOPR DS CL3 RIGHT POLICE PRECINCT 00005802
W23LSCHL DS CL2 LEFT SCHOOL DISTRICT 00005902
W23LSCHR DS CL2 RIGHT SCHOOL DISTRICT 00006002
W23LMHRI DS CL1 MARBLE HILL / RIKERS ISLAND 00006102
W23LSEGT DS CL7 SEGMENT IDENTIFIER
W23LSTC DS CL1 SEGMENT TYPE CODE 00006202
W23LT90L DS CL6 1990 LEFT CENSUS TRACT 00006302
DS CL4 FILLER
W23LCPBL DS CL3 CURRENT LEFT DYNAMIC BLOCK/ATOMIC POLYGON 00006702
W23LT90R DS CL6 1990 RIGHT CENSUS TRACT 00006802
DS CL4 FILLER
W23LCPBR DS CL3 CURRENT RIGHT DYNAMIC BLOCK/ATOMIC POLYGON 00007202
W23LFSL DS CL2 LEFT FIRE DIVISION 00007302
W23LFBL DS CL2 LEFT FIRE BATTALION 00007402
W23LFCL DS 0CL4 LEFT FIRE COMPANY 00007502
W23LFCTL DS CL1 LEFT FIRE COMPANY TYPE 00007602
W23LFCNL DS CL3 LEFT FIRE COMPANY NUMBER 00007702
W23LFSR DS CL2 RIGHT FIRE DIVISION 00007802
W23LFBR DS CL2 RIGHT FIRE BATTALION 00007902
W23LFCR DS 0CL4 RIGHT FIRE COMPANY 00008002
W23LFCTR DS CL1 RIGHT FIRE COMPANY TYPE 00008102
W23LFCNR DS CL3 RIGHT FIRE COMPANY NUMBER 00008202
W23LT10L DS CL6 LEFT 2010 CENSUS TRACT
W23LB10L DS CL4 LEFT 2010 CENSUS BLOCK
W23LBS1L DS CL1 LEFT 2010 CENSUS BLOCK SUFFIX
W23LT10R DS CL6 RIGHT 2010 CENSUS TRACT
W23LB10R DS CL4 RIGHT 2010 CENSUS BLOCK
W23LBS1R DS CL1 RIGHT 2010 CENSUS BLOCK SUFFIX
W23FNODE DS CL7 FROM NODE
W23TNODE DS CL7 TO NODE
W23L00TL DS CL6 LEFT 2000 CENSUS TRACT
W23L00BL DS CL4 LEFT 2000 CENSUS BLOCK
W23L00SL DS CL1 LEFT 2000 CENSUS BLOCK SUFFIX
W23L00TR DS CL6 RIGHT 2000 CENSUS TRACT
W23L00BR DS CL4 RIGHT 2000 CENSUS BLOCK
W23L00SR DS CL1 RIGHT 2000 CENSUS BLOCK SUFFIX
W23LEND EQU * 00008402
W23LLEN EQU W23LEND-W2BALL LENGTH OF W2BALL 00008502
\*/********************************************************************/ 00000100
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W2BAL1A, \***/ 00000200
\*/***** CONTAINING THE LAYOUT OF WORK AREA 2 FOR FUNCTION \***/ 00000300
\*/***** 1A, BL AND BN WHICH SHARE A SINGLE WORK AREA 2 LAYOUT. \***/ 00000408
\*/********************************************************************/ 00000500
\*/***** LAST UPDATED 5 MARCH 2009 \***/ 00000608
\*/********************************************************************/ 00000703
W2BAL1A DS 0H 00000803
DS CL21 00000903
W21ACPAR DS CL1 CONTINUOUS PARITY INDICATOR 00001003
W21AHSEL DS CL6 LOW HOUSE NUMBER ON BLOCK 00001103
W21AALT1 DS 0CL10 ALTERNATE KEY 00001203
W21ABOR1 DS CL1 ALTERNATE KEY - BORO 00001303
W21ATXB1 DS CL5 ALTERNATE KEY - TAX BLOCK 00001403
W21ATXL1 DS CL4 ALTERNATE KEY - TAX LOT 00001503
DS CL1 FILLER 00001603
W21ARSCC DS CL1 RPAD SCC 00001703
DS CL1 FILLER 00001803
W21AGLI DS 0CL11 GENERAL LOT INFO 00001903
W21ARBLC DS CL2 RPAD BUILDING CLASSIFICATION 00002003
W21ACORC DS CL2 CORNER CODE 00002103
W21A#STC DS CL2 TOTAL NUMBER STRUCTURES 00002203
W21A#BFA DS CL2 TOTAL NUMBER BLOCKFACES 00002303
W21AINTF DS CL1 INTERIOR LOT FLAG 00002403
W21AVACF DS CL1 VACANT LOT FLAG 00002503
W21AIRLF DS CL1 IRREGULARLY-SHAPED LOT FLAG 00002603
W21AMHRI DS 0CL1 MARBLE HILL/RIKERS ISLAND FLAG 00002703
W21AABFL DS CL1 ALTERNATE BORO FLAG 00002803
DS CL1 STROLLING FLAG (W21ASTRF) 00002903
W21ASTRK DS CL13 STROLLING KEY 00003003
W21AOVFL DS CL1 ADDRESS RANGE LIST OVERFLOW FLAG 00003103
W21ARFIU DS CL1 RESERVED FOR INTERNAL USE 00003203
W21ABIN DS CL7 BUILDING IDENTIFICATION NUMBER (BIN) 00003303
W21ACONF DS CL1 CONDO LOT FLAG 00003403
W21ARCO# DS CL4 RPAD CONDO NUMBER 00003503
W21ACLBL DS CL10 CONDO LOW BBL 00003603
DS CL1 FILLER 00003703
W21ACBBL DS CL10 CONDO BILLING BBL 00003803
DS CL1 FILLER 00003903
W21ACBBS DS CL1 CONDO BILLING BBL SCC 00004003
W21ACHBL DS CL10 CONDO HIGH BBL 00004103
DS CL1 FILLER 00004203
W21ASBVP DS CL8 SANDBORN BOROUGH/VOLUME/PAGE 00004303
W21ABUSA DS CL5 BUSINESS AREA 00004403
W21ACOOP DS CL4 COOP ID NUMBER 00004503
DS CL4 FILLER 00004605
W21ANBST DS CL4 ACTUAL TOTAL NBR OF BLDGS ON LOT 00004704
W21ATAXB DS CL1 TAX MAP BOROUGH 00004805
W21ATAXM DS CL4 TAX MAP NBR - SECTION AND VOLUME 00004905
DS CL4 RESERVED FOR TAX MAP PAGE NUMBER 00005005
W21AXCO DS CL7 X COORDINATE OF ANNOTATION POINT 00005107
W21AYCO DS CL7 Y COORDINATE OF ANNOTATION POINT 00005207
W21ABID DS CL6 BUSINESS IMPROVEMENT DISTRICT 00005308
DS CL2 FILLER 00005408
W21AINT DS CL10 INTERNAL USE 00005508
W21A#ADR DS CL2 TOTAL ADDRESSES FOR LOT 00005603
W21ALIST DS 0CL756 LIST OF ADDRESSES, MAXIMUM OF 21 00005703
W21ALOW# DS CL6 LOW HOUSE NUMBER 00005803
DS CL3 FILLER 00005903
W21AHI# DS CL6 HIGH HOUSE NUMBER 00006003
DS CL3 FILLER 00006103
W21ACODE DS CL8 STREET CODE 00006203
W21ALBIN DS CL7 LIST BIN 00006303
W21AATYP DS CL1 ADDRESS TYPE 00006403
DS CL1 FILLER 00006503
W21ALSOS DS CL1 LIST SOS 00006603
* STORAGE IS RESERVED FOR THE REMAINING 20 ADDRESS STRUCTURES. 00006703
* EACH STRUCTURE IS IDENTICAL TO THE ONE DEFINED ABOVE. 00006803
DS CL720 REMAINING ADDRESSES 00006903
W21AEND EQU * 00007003
W21ALEN EQU W21AEND-W2BAL1A LENGTH OF W2BAL1A 00008003
\*/********************************************************************/ 00000100
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W2BAL1AL, \***/ 00000200
\*/***** CONTAINING THE LONG LAYOUT OF WORK AREA 2 FOR FUNCTION \***/ 00000300
\*/***** 1A, BL and BN WHICH SHARE A SINGLE WORK AREA 2 LAYOUT. \***/ 00000416
\*/********************************************************************/ 00000500
\*/***** Last Updated 5 March 2009 \***/ 00000616
\*/********************************************************************/ 00000710
W2BAL1AL DS 0H 00000810
DS CL21 00000910
W21ALCPA DS CL1 CONTINUOUS PARITY INDICATOR 00001010
W21ALHSE DS CL6 LOW HOUSE NUMBER ON BLOCK 00001110
W21ALALT DS 0CL10 ALTERNATE KEY 00001210
W21ALBOR DS CL1 ALTERNATE KEY - BORO 00001310
W21ALTXB DS CL5 ALTERNATE KEY - TAX BLOCK 00001410
W21ALTXL DS CL4 ALTERNATE KEY - TAX LOT 00001510
DS CL1 FILLER 00001610
W21ALRSC DS CL1 RPAD SCC 00001710
DS CL1 FILLER 00001810
W21ALGLI DS 0CL11 GENERAL LOT INFO 00001910
W21ALRBL DS CL2 RPAD BUILDING CLASSIFICATION 00002010
W21ALCOR DS CL2 CORNER CODE 00002110
W21AL#ST DS CL2 TOTAL NUMBER STRUCTURES 00002210
W21AL#BF DS CL2 TOTAL NUMBER BLOCKFACES 00002310
W21ALINT DS CL1 INTERIOR LOT FLAG 00002410
W21ALVAC DS CL1 VACANT LOT FLAG 00002510
W21ALIRL DS CL1 IRREGULARLY-SHAPED LOT FLAG 00002610
W21ALMHR DS 0CL1 Marble Hill/Rikers Island Flag 00002710
W21ALABF DS CL1 ALTERNATE BORO FLAG 00002810
DS CL1 STROLLING FLAG (W21ALSTRF) 00002910
W21ALSTR DS CL13 STROLLING KEY 00003010
DS CL1 FILLER 00003110
W21ALRFI DS CL1 RESERVED FOR INTERNAL USE 00003210
W21ALNGB DS CL7 BUILDING IDENTIFICATION NUMBER (BIN) 00003310
W21ALCON DS CL1 CONDO LOT FLAG 00003410
W21ALRCO DS CL4 RPAD CONDO NUMBER 00003510
W21ALCLB DS CL10 CONDO LOW BBL 00003610
DS CL1 FILLER 00003710
W21ALCBB DS CL10 CONDO BILLING BBL 00003810
DS CL1 FILLER 00003910
W21ALCBS DS CL1 CONDO BILLING BBL SCC 00004010
W21ALCHB DS CL10 CONDO HIGH BBL 00004110
DS CL1 FILLER 00004210
W21ALSBV DS CL8 SANDBORN BOROUGH/VOLUME/PAGE 00004310
W21ALBUS DS CL5 BUSINESS AREA 00004410
W21ALCOO DS CL4 COOP ID NUMBER 00004510
DS CL4 00004613
W21ALNBS DS CL4 Actual Nbr of Bldgs on Lot 00004711
W21ALTMB DS CL1 TAX MAP BOROUGH 00004814
W21ALTAX DS CL4 Tax Map NBR - Section and Volume 00004913
DS CL4 RESERVED FOR TAX PAGE NUMBER 00005013
W21ALXCO DS CL7 X COORDINATE OF ANNOTATION POINT 00005115
W21ALYCO DS CL7 Y COORDINATE OF ANNOTATION POINT 00005215
W21ALBID DS CL6 Business Improvement District 00005316
DS CL2 FILLER 00005416
W21ALINU DS CL8 Internal Use Only 00005517
W21AL#BN DS CL4 TOTAL Number of BINS for Lot 00005610
W21ALLST DS 2500CL7 LIST OF BINS, MAXIMUM OF 2500 00005709
W21ALEND EQU * 00005802
W21ALLEN EQU W21ALEND-W2BAL1AL Length of W2BAL1AL 00006002
\*/********************************************************************/ 00000100
\*/***** THIS IS GEOSUPPORT INFORMATION SYSTEM COPY FILE W2BAL3S, \***/ 00000200
\*/***** CONTAINING THE LAYOUT OF WORK AREA 2 FOR FUNCTION 3S. \***/ 00000300
\*/********************************************************************/ 00000400
W2BAL3S DS 0H 00000500
W23SAKEY DS CL21 ACCESS KEY 00000600
W23S#INT DS CL3 NUMBER OF INTERSECTIONS ON STRETCH 00000700
W23SINT DS 0CL12 INTERSECTION LAYOUT 00000800
W23SCDE1 DS PL4 NUMERICALLY SMALLEST PB5SC 00000900
W23SCDE2 DS PL4 NUMERICALLY 2ND SMALLEST PB5SC 00001000
W23SDIST DS PL3 DISTANCE IN FEET FROM PREVIOUS INTERSECT. 00001100
W23SGAPF DS CL1 GAP FLAG ("G" IF NO SEGMENT CONNECTS THIS 00001200
\* INTERSECTION TO THE PREVIOUS ONE) 00001300
\* 00001400
\* THE MAXIMUM NUMBER OF INTERSECTIONS IS 350. THE LAYOUT OF EACH 00001500
\* INTERSECTION IS IDENTICAL TO THE 12 BYTES DEFINED BY "W23SINT". 00001600
\* RATHER THAN DEFINE 349 MORE INTERSECTIONS, WE ALLOCATE THE STORAGE 00001700
\* NECESSSARY SHOULD THE MAXIMUM NUMBER OF INTERSECTIONS BY FOUND. 00001800
\* ALL INTERSECTIONS BUT THE FIRST ONE MUST BE REFERENCED BY 00001900
\* DISPLACEMENT. 00002000
\* 00002100
W23SREST DS CL4188 REMAINING INTERSECTIONS 00002200
W23SEND EQU * 00002300
W23SLEN EQU W23SEND-W2BAL3S LENGTH OF W2BAL3S 00002400
PL/1 COPY Files (MSW)
/******************************************************************/ 00000100
/*** THIS IS GEOSUPPORT SYSTEM COPY FILE W1PL1, CONTAINING THE \***/ 00000200
/\*** LAYOUT OF WORK AREA 1. COPYLIB2 04/07/98 \***/ 00000300
/\******************************************************************/ 00000400
DCL PW1 POINTER; 00000500
DCL 00000600
1 W1PL1, 00000700
/*******************************************************/ 00000802
/***** INPUT FIELDS *****/ 00000902
/*******************************************************/ 00001002
2 GEO_WA1_IN_FUNCTION_CODE, 00001100
3 GEO_WA1_IN_FUNCTION_1 CHAR(1), 00001200
3 GEO_WA1_IN_FUNCTION_2 CHAR(1), 00001300
2 GEO_WA1_IN_BORO CHAR(1), 00001400
2 GEO_WA1_IN_HOUSENUM CHAR(12),/\*HIGH HSE# INPUT*/ 00001500
2 GEO_WA1_IN_HOUSENUM_INTERNAL CHAR(6), /\*IF FUNCTION 5 \*/ 00001600
2 GEO_WA1_IN_STREET_1 CHAR(32), 00001700
2 GEO_WA1_IN_STREET_2 CHAR(32), 00001800
2 GEO_WA1_IN_STREET_3 CHAR(32), 00001900
2 GEO_WA1_IN_COMPASS CHAR(01), 00002008
2 GEO_WA1_IN_COMPASS2 CHAR(01), 00002110
2 GEO_WA1_IN_STREETCODE_1 FIXED DEC(6), 00002200
2 GEO_WA1_IN_STREETCODE_2 FIXED DEC(6), 00002300
2 GEO_WA1_IN_STREETCODE_3 FIXED DEC(6), 00002400
2 GEO_WA1_IN_ROADBED_REQ_SWITCH CHAR(1), 00002514
2 GEO_WA1_IN_BORO_2 CHAR(1), 00002600
2 GEO_WA1_IN_BORO_3 CHAR(1), 00002700
2 GEO_WA1_IN_SNL CHAR(2), 00002800
2 GEO_WA1_IN_10SC_1 CHAR(11), 00002900
2 GEO_WA1_IN_10SC_2 CHAR(11), 00003000
2 GEO_WA1_IN_10SC_3 CHAR(11), 00003100
2 GEO_WA1_IN_ZIPIN CHAR(5), 00003215
2 GEO_WA1_IN_BBL, 00003300
3 GEO_WA1_IN_BL_BORO CHAR(1), 00003400
3 GEO_WA1_IN_BLOCKNUM CHAR(5), 00003500
3 GEO_WA1_IN_LOTNUM CHAR(4), 00003600
2 FILLER_W1_010 CHAR(1), 00003700
2 GEO_WA1_IN_BIN CHAR(7), 00003802
/************************************************************/ 00003903
/*******------ USAGE NOTES FOR SELECTED FIELDS -------*******/ 00004004
/************************************************************/ 00004103
/** GEO_WA1_IN_COMPACT_NAME_FLAG: SET TO "C" TO REQUEST \**/ 00004203
/** COMPACT NAMES OPTION. \**/ 00004303
/** GEO_WA1_IN_LONG_WORKAREA2_FLAG: SET TO "L" TO REQUEST \**/ 00004403
/** THE LONG WORKAREA 2. AT PRESENT, ONLY FUNCTIONS \**/ 00004503
/** 1A AND 3 HAVE THE LONG WA2 OPTION. \**/ 00004603
/** GEO_WA1_IN_NON_IBM_MAIN_FRAME: SET TO "X" IF \**/ 00004703
/** APPLICATION IS RUNNING ON A NON-IBM MAIN FRAME. \**/ 00004803
/** GEO_WA1_IN_1ABL_VERSION: SET TO "L" OR " " TO REQUEST \**/ 00004903
/** THE LEGACY WORKAREA2 FORMAT FOR FUNCTION 1A OR BL. \**/ 00005003
/** GEO_WA1_IN_1ABL_VERSION: SET TO "S" TO REQUEST THE \**/ 00005103
/** STANDARD WORKAREA2 FORMAT FOR FUNCTION 1A OR BL. \**/ 00005203
/************************************************************/ 00005903
2 GEO_WA1_IN_COMPACT_NAME_FLAG CHAR(1), 00006000
2 GEO_WA1_IN_LONG_WORKAREA2_FLAG CHAR(1), 00006100
2 GEO_WA1_IN_LOW_HOUSENUM CHAR(12), 00006200
2 GEO_WA1_IN_LOW_HSENUM_INTERNAL CHAR(6), 00006300
2 GEO_WA1_IN_NON_IBM_MAIN_FRAME CHAR(1), 00006400
2 GEO_WA1_IN_1ABL_VERSION CHAR(1), 00006500
2 GEO_WA1_IN_XSTREET_FLAG CHAR(1), 00006610
2 FILLER_W1_100 CHAR(04), 00006809
/*******************************************************/ 00006902
/***** OUTPUT FIELDS *****/ 00007002
/*******************************************************/ 00007102
2 GEO_WA1_OUT_LOW_HOUSENUM CHAR(12), 00007209
2 GEO_WA1_OUT_BORONAME CHAR(9), 00007300
2 GEO_WA1_OUT_STREET_1 CHAR(32), 00007400
2 GEO_WA1_OUT_STREET_2 CHAR(32), 00007500
2 GEO_WA1_OUT_STREET_3 CHAR(32), 00007600
2 GEO_WA1_OUT_HOUSENUM CHAR(12), /\*HI-HND*/ 00007709
2 GEO_WA1_OUT_HOUSENUM_INTERNAL CHAR(6), 00007800
2 FILLER_W1_200 CHAR(7), 00007900
2 GEO_WA1_OUT_PB5SC_1 FIXED DEC(6), 00008006
2 FILLER_W1_210 CHAR(2), 00008300
2 GEO_WA1_OUT_PB5SC_2 FIXED DEC(6), 00008406
2 FILLER_W1_220 CHAR(2), 00008800
2 GEO_WA1_OUT_PB5SC_3 FIXED DEC(6), 00008906
2 GEO_WA1_OUT_STREET_ATTR(3) CHAR(1), 00009312
2 GEO_WA1_BROWSE CHAR(40), 00009400
2 GEO_WA1_OUT_10SC_1 CHAR(11), 00009500
2 GEO_WA1_OUT_10SC_2 CHAR(11), 00009600
2 GEO_WA1_OUT_10SC_3 CHAR(11), 00009700
2 GEO_WA1_OUT_CUI CHAR(5), /\*NOT IMPLEMENTED*/ 00009800
2 GEO_WA1_OUT_BBL, 00009900
3 GEO_WA1_OUT_BL_BORO CHAR(1), 00010000
3 GEO_WA1_OUT_BLOCKNUM CHAR(5), 00010100
3 GEO_WA1_OUT_LOTNUM CHAR(4), 00010200
2 FILLER_W1_240 CHAR(1), 00010300
2 GEO_WA1_OUT_BIN CHAR(7), 00010411
2 GEO_WA1_OUT_SND_ATTR CHAR(1), /\*DCP/GSS USE*/ 00010705
2 GEO_WA1_OUT_REASON_CODE CHAR(1), 00010800
2 FILLER_W1_400 CHAR(2), 00010900
2 GEO_WA1_OUT_RETURN_CODE, 00011007
3 GEO_WA1_OUT_RC_1 CHAR(1), 00011107
3 GEO_WA1_OUT_RC_2 CHAR(1), 00011207
2 GEO_WA1_OUT_ERROR_MESSAGE CHAR(80), 00011400
2 GEO_WA1_OUT_NUM_SIMILAR_NAMES FIXED DEC(3), 00011500
2 GEO_WA1_OUT_SIMILAR_NAMES(10) CHAR(32); 00011600
00011702
/**************************************************************/ 00011801
00011902
DCL 1 GEO_WA1_OUT_PB_5SC_1 00012006
BASED (ADDR(GEO_WA1_OUT_PB5SC_1)), 00012106
3 GEO_WA1_OUT_PACKBORO_NOSIGN_1 CHAR(1), 00012206
3 GEO_WA1_OUT_STREETCODE_1_KEY FIXED DEC(5), 00012306
1 GEO_WA1_OUT_PB_5SC_2 00012406
BASED (ADDR(GEO_WA1_OUT_PB5SC_2)), 00012506
3 GEO_WA1_OUT_PACKBORO_NOSIGN_2 CHAR(1), 00012606
3 GEO_WA1_OUT_STREETCODE_2_KEY FIXED DEC(5), 00012706
1 GEO_WA1_OUT_PB_5SC_3 00012806
BASED (ADDR(GEO_WA1_OUT_PB5SC_3)), 00012906
3 GEO_WA1_OUT_PACKBORO_NOSIGN_3 CHAR(1), 00013006
3 GEO_WA1_OUT_STREETCODE_3_KEY FIXED DEC(5); 00013106
00013202
/**************************************************************/ 00013301
00013402
DCL GEO_WA1_OUT_GRC CHAR(02) 00013507
BASED(ADDR(GEO_WA1_OUT_RETURN_CODE)); 00013607
00013902
/**************************************************************/ 00014001
00014102
DCL 1 WORK1PL1 BASED(PW1) CHAR(884); 00014201
00014302
/**************************************************************/ 00014401
00014502
PW1=ADDR(W1PL1); 00015000
/******************************************************************/ 00000100
/*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2PL1, CONTAINING THE \***/ 00000300
/*** LAYOUT OF WORK AREA 2 FOR FUNCTIONS: 1, 1E, 2, 2C, 3, 3C, \***/ 00000400
/*** 5. PLEASE NOTE THAT FUNCTIONS 2 AND 2C SHARE A SINGLE \***/ 00000500
/*** WORK AREA 2 LAYOUT. 12/30/97 \***/ 00000600
/*** LAST UPDATED JANUARY 2012 \***/ 00000749
/******************************************************************/ 00000800
DCL PW2 POINTER; 00000900
00001001
DCL 1 W2PL1 CHAR(200) INIT(' '); 00001101
00001201
DCL 00001300
1 GEO_WA2_FUNCTION1 BASED(PW2), 00001400
2 GEO_WA2_FN1_ACCESS_KEY CHAR(21), 00001500
2 GEO_WA2_FN1_CONT_PARITY CHAR(1), 00001600
2 GEO_WA2_FN1_LOW_HOUSENUM_INT CHAR(6), 00001700
2 GEO_WA2_FN1_HI_HOUSENUM_INT CHAR(6), 00001800
2 GEO_WA2_FN1_ALX CHAR(1), 00001931
2 GEO_WA2_FN1_NUM_X_ST_LOW_END CHAR(1), 00002000
2 GEO_WA2_FN1_LOW_PBSC(5) FIXED DEC(7), 00002100
2 GEO_WA2_FN1_NUM_X_ST_HI_END CHAR(1), 00002200
2 GEO_WA2_FN1_HI_PBSC(5) FIXED DEC(7), 00002300
2 GEO_WA2_FN1_COMMUN_DIST, 00002400
3 GEO_WA2_FN1_COMDIST_BORO CHAR(1), 00002500
3 GEO_WA2_FN1_COMDIST_NUMBER CHAR(2), 00002600
2 GEO_WA2_FN1_ZIP CHAR(5), 00002700
2 GEO_WA2_FN1_SLA CHAR(1), 00002800
2 GEO_WA2_FN1_HCD CHAR(2), 00002951
2 GEO_WA2_FN1_SOS CHAR(1), 00003150
2 GEO_WA2_FN1_CONT_PARITY_IND CHAR(1), 00003250
2 GEO_WA2_FN1_2010_CENSUS_TRACT CHAR(6), 00003350
2 GEO_WA2_FN1_2010_CENSUS_BLOCK CHAR(4), 00003450
2 GEO_WA2_FN1_2010_CENSUS_BLK_SF CHAR(1), /\*NOT IMPLEMENTED*/00003550
2 GEO_WA2_FN1_FILLER_INDV CHAR(1), 00003650
2 FILLER_W2_260 CHAR(2), 00003750
2 GEO_WA2_FN1_HEALTHAREA CHAR(4), 00003851
2 GEO_WA2_FN1_SANI_REC CHAR(3), 00003950
2 GEO_WA2_FN1_FEATURE_TYPE CHAR(1), 00004050
2 GEO_WA2_FN1_RESDCP /\*RESERVED FOR*/ CHAR(1), /\*DCP/GSS USE*/ 00004150
2 GEO_WA2_FN1_CURVE_FLAG CHAR(1), 00004250
2 GEO_WA2_FN1_POLICE_DIST, 00004350
3 GEO_WA2_FN1_POL_PAT_B_CMD CHAR(1), 00004450
3 GEO_WA2_FN1_POL_PRECINCT CHAR(3), 00004550
2 GEO_WA2_FN1_SCHOOLDIST CHAR(2), 00004650
2 FILLER_W2_250 CHAR(14), /\*1E POL DIST*/ 00004750
2 GEO_WA2_FN1_COINCIDENT_SEG_CTR CHAR(1), 00004850
2 GEO_WA2_FN1_SEGMENT_TYPE CHAR(1), 00004950
2 GEO_WA2_FN1_SANI_DIST, 00005050
3 GEO_WA2_FN1_SANIDIST_BORO CHAR(1), 00005150
3 GEO_WA2_FN1_SANIDIST_NUMBER CHAR(2), 00005250
2 GEO_WA2_FN1_SANITATION_SUBSEC CHAR(2), 00005350
2 GEO_WA2_FN1_FIRESEC /\*FIRE DIV*/ CHAR(2), 00005450
2 GEO_WA2_FN1_FIREBAT CHAR(2), 00005550
2 GEO_WA2_FN1_FIRECO, 00005650
3 GEO_WA2_FN1_FIRECO_TYPE CHAR(1), 00005750
3 GEO_WA2_FN1_FIRECO_NUM CHAR(3), 00005850
2 GEO_WA2_FN1_SPECIAL_ADDR_FLAG CHAR(1), 00005950
2 GEO_WA2_FN1_MARBLE_RIKERS_FLAG CHAR(1), 00006050
2 GEO_WA2_FN1_SPLIT_SCHOOL_FILL CHAR(1), 00006150
2 GEO_WA2_FN1_PREFERRED_LGC CHAR(2), 00006250
2 GEO_WA2_FN1_LIONFACECODE CHAR(4), 00006350
2 GEO_WA2_FN1_LIONSEQ CHAR(5), 00006450
2 GEO_WA2_FN1_1990_CENSUSTRACT CHAR(6), 00006550
2 FILLER_W2_260B CHAR(4), 00006650
2 GEO_WA2_FN1_DYN_BLOCK CHAR(3), /\*ATOMIC POLYGON*/ 00006750
2 GEO_WA2_FN1_XCOORD CHAR(7), 00006850
2 GEO_WA2_FN1_YCOORD CHAR(7), 00006950
2 GEO_WA2_FN1_SEGMENTLENGTH CHAR(5), 00007050
2 GEO_WA2_FN1_SANI_REG CHAR(5); 00007150
00007250
/********************************************************************/ 00007350
00007450
DCL 1 GEO_WA2_FN1_LOW_HOUSE_NUM 00007550
BASED(ADDR(GEO_WA2_FN1_LOW_HOUSENUM_INT)), 00007650
3 GEO_WA2_FN1_LOW_HOUSENUM CHAR(5), 00007750
3 GEO_WA2_FN1_LOW_HOUSENUMSFX CHAR(1); 00007850
00008001
DCL 1 GEO_WA2_FN1_HI_HOUSE_NUM 00008100
BASED(ADDR(GEO_WA2_FN1_HI_HOUSENUM_INT)), 00008200
3 GEO_WA2_FN1_HI_HOUSENUM CHAR(5), 00008300
3 GEO_WA2_FN1_HI_HOUSENUMSFX CHAR(1); 00008425
00008501
DCL 1 GEO_WA2_FN1_COMDIST CHAR(3) 00008600
BASED(ADDR(GEO_WA2_FN1_COMMUN_DIST)); 00008700
00008801
DCL 1 GEO_WA2_FN1_SANIDIST CHAR(3) 00008900
BASED(ADDR(GEO_WA2_FN1_SANI_DIST)); 00009000
00009101
DCL 1 GEO_WA2_FN1_POLICEDIST CHAR(4) 00009200
BASED(ADDR(GEO_WA2_FN1_POLICE_DIST)); 00009300
00009401
/********************************************************************/ 00009801
00009901
DCL 00010000
1 GEO_WA2_FUNCTION2 BASED(PW2), 00010100
2 GEO_WA2_FN2_ACCESS_KEY CHAR(21), 00010200
2 GEO_WA2_FN2_DUPINTERFLAG CHAR(1), 00010300
2 FILLER_W2_270 CHAR(9), 00010400
2 GEO_WA2_FN2_PREFERRED_LGC1 CHAR(2), 00010500
2 GEO_WA2_FN2_PREFERRED_LGC2 CHAR(2), 00010600
2 GEO_WA2_FN2_NUM_OF_INTERSECTS CHAR(1), 00010700
2 GEO_WA2_FN2_INTERSECT_PBSC(5) FIXED DEC(7), 00010800
2 GEO_WA2_FN2_COMPDIR CHAR(01), 00010906
2 GEO_WA2_FN2_LEVEL_CODES(5,2) CHAR(01), 00011020
2 GEO_WA2_FN2_FILLER_INDV CHAR(02), 00011134
2 GEO_WA2_FN2_FIRESEC /\*FIRE DIV*/ CHAR(2), 00011200
2 GEO_WA2_FN2_FIREBAT CHAR(2), 00011300
2 GEO_WA2_FN2_FIRECO, 00011400
3 GEO_WA2_FN2_FIRECO_TYPE CHAR(1), 00011500
3 GEO_WA2_FN2_FIRECO_NUM CHAR(3), 00011600
2 GEO_WA2_FN2_COMMUN_DIST, 00011700
3 GEO_WA2_FN2_COMDIST_BORO CHAR(1), 00011800
3 GEO_WA2_FN2_COMDIST_NUMBER CHAR(2), 00011900
2 GEO_WA2_FN2_ZIP CHAR(5), 00012000
2 GEO_WA2_FN2_SLA CHAR(1), 00012100
2 GEO_WA2_FN2_2010_CENSUS_TRACT CHAR(6), 00012241
2 FILLER_W2_290 CHAR(3), 00012300
2 GEO_WA2_FN2_HEALTHAREA CHAR(4), 00012451
2 FILLER_W2_300 CHAR(9), 00012504
2 GEO_WA2_FN2_LIONNODENUM CHAR(7), 00012605
2 GEO_WA2_FN2_XCOORD CHAR(7), 00013000
2 GEO_WA2_FN2_YCOORD CHAR(7), 00013100
2 FILLER_W2_320 CHAR(4), 00013300
2 GEO_WA2_FN2_POLICE_DIST, 00013400
3 GEO_WA2_FN2_POL_PAT_B_CMD CHAR(1), 00013500
3 GEO_WA2_FN2_POL_PRECINCT CHAR(3), 00013600
2 GEO_WA2_FN2_SCHOOLDIST CHAR(2), 00013700
2 GEO_WA2_FN2_MARBLE_RIKERS_FLAG CHAR(1), 00013800
2 GEO_WA2_FN2_1990_CENSUSTRACT CHAR(6), 00013900
2 GEO_WA2_FN2_SANBORN1_BORO CHAR(1), 00014000
2 GEO_WA2_FN2_SANBORN1_VOL_PAGE, 00014100
3 GEO_WA2_FN2_SANBORN1_VOL_NUM CHAR(3), 00014200
3 GEO_WA2_FN2_SANBORN1_PAGE_NUM CHAR(4), 00014300
2 GEO_WA2_FN2_SANBORN2_BORO CHAR(1), 00014400
2 GEO_WA2_FN2_SANBORN2_VOL_PAGE, 00014500
3 GEO_WA2_FN2_SANBORN2_VOL_NUM CHAR(3), 00014600
3 GEO_WA2_FN2_SANBORN2_PAGE_NUM CHAR(4), 00014700
2 GEO_WA2_FN2_DUP_INTRSCT_DISTNCE CHAR(5), 00014837
2 GEO_WA2_FN2_2000_CENS_TRACT CHAR(6), 00014944
2 FILLER_W2_330 CHAR(27); 00015038
00015101
/********************************************************************/ 00015201
00015301
DCL 1 GEO_WA2_FN2_COMDIST CHAR(3) 00015400
BASED(ADDR(GEO_WA2_FN2_COMMUN_DIST)); 00015500
00015601
DCL 1 GEO_WA2_FN2_POLICEDIST CHAR(4) 00015700
BASED(ADDR(GEO_WA2_FN2_POLICE_DIST)); 00015800
00015901
DCL 1 GEO_WA2_FN2_SANBORN1_BVOLPAGE CHAR(8) 00016000
BASED(ADDR(GEO_WA2_FN2_SANBORN1_BORO)), 00016100
1 GEO_WA2_FN2_SANBORN2_BVOLPAGE CHAR(8) 00016200
BASED(ADDR(GEO_WA2_FN2_SANBORN2_BORO)); 00016300
00016401
/********************************************************************/ 00016501
00016601
DCL 00016700
1 GEO_WA2_FUNCTION3 BASED(PW2), 00016800
2 GEO_WA2_FN3_ACCESS_KEY CHAR(21), 00016900
2 GEO_WA2_FN3_DUP_KEY_FLAG CHAR(1), 00017023
2 GEO_WA2_FN3_CURVE_FLAG CHAR(1), 00017108
2 GEO_WA2_FN3_LOCATION_STATUS CHAR(1), 00017216
2 GEO_WA2_FN3_COUNTY_BOUNDARY CHAR(1), 00017316
2 GEO_WA2_FN3_COINCIDENT_SEG_CTR CHAR(1), 00017432
2 FILLER_W2_340 CHAR(3), 00017532
2 GEO_WA2_FN3_PREFERRED_LGC1 CHAR(2), 00017632
2 GEO_WA2_FN3_PREFERRED_LGC2 CHAR(2), 00017732
2 GEO_WA2_FN3_PREFERRED_LGC3 CHAR(2), 00017832
2 GEO_WA2_FN3_NUM_X_ST_LOW_END CHAR(1), 00017932
2 GEO_WA2_FN3_LOW_PBSC(5) FIXED DEC(7), 00018032
2 GEO_WA2_FN3_NUM_X_ST_HI_END CHAR(1), 00018132
2 GEO_WA2_FN3_HI_PBSC(5) FIXED DEC(7), 00018232
2 GEO_WA2_FN3_SLA CHAR(1), 00018332
2 GEO_WA2_FN3_REVERSALFLAG CHAR(1), 00018432
2 GEO_WA2_FN3_LEFT_COMMUN_DIST, 00018532
3 GEO_WA2_FN3_LEFT_COMDIST_BORO CHAR(1), 00018632
3 GEO_WA2_FN3_LEFT_COMDIST_NUM CHAR(2), 00018732
2 GEO_WA2_FN3_RIGHT_COMMUN_DIST, 00018832
3 GEO_WA2_FN3_RIGHT_COMDIST_BORO CHAR(1), 00018932
3 GEO_WA2_FN3_RIGHT_COMDIST_NUM CHAR(2), 00019032
2 GEO_WA2_FN3_LEFT_ZIP CHAR(5), 00019132
2 GEO_WA2_FN3_RIGHT_ZIP CHAR(5), 00019232
2 FILLER_WA2_350A CHAR(18), 00019332
2 GEO_WA2_FN3_LEFT_HEALTHAREA CHAR(4), 00019451
2 GEO_WA2_FN3_RIGHT_HEALTHAREA CHAR(4), 00019551
2 GEO_WA2_FN3_LEFT_FILLER_INDV CHAR(2), 00019634
2 GEO_WA2_FN3_RIGHT_FILLER_INDV CHAR(2), 00019734
2 GEO_WA2_FN3_LEFT_LOW_HOUSENUM CHAR(7), 00019800
2 GEO_WA2_FN3_LEFT_HI_HOUSENUM CHAR(7), 00019900
2 GEO_WA2_FN3_RIGHT_LOW_HOUSENUM CHAR(7), 00020000
2 GEO_WA2_FN3_RIGHT_HI_HOUSENUM CHAR(7), 00020100
2 GEO_WA2_FN3_CONT_PARITY_IND CHAR(1), 00020200
2 GEO_WA2_FN3_LIONFACECODE CHAR(4), 00020300
2 GEO_WA2_FN3_LIONSEQ CHAR(5), 00020400
2 GEO_WA2_FN3_GENRECFLAG CHAR(1), 00020500
2 GEO_WA2_FN3_SEGMENTLENGTH FIXED DEC(5), 00020600
2 GEO_WA2_FN3_SEGMENTSLOPE CHAR(3), 00020700
2 GEO_WA2_FN3_SEGMENTORIENT CHAR(1), 00020800
2 FILLER_W2_355 CHAR(4), 00020900
2 GEO_WA2_FN3_RESDCP /\*RESERVED FOR \*/ CHAR(2), /\*DCP/GSS USE*/ 00021000
2 GEO_WA2_FN3_DOG_LEG CHAR(1), 00021111
2 GEO_WA2_FN3_FEATURE_TYPE CHAR(1), 00021221
2 GEO_WA2_FN3_LEFT_POLICE_DIST, 00021300
3 GEO_WA2_FN3_LEFT_POL_PAT_B_CMD CHAR(1), 00021400
3 GEO_WA2_FN3_LEFT_POL_PRECINCT CHAR(3), 00021500
2 GEO_WA2_FN3_RIGHT_POLICE_DIST, 00021600
3 GEO_WA2_FN3_RIGHT_POL_PAT_B_CMD CHAR(1), 00021700
3 GEO_WA2_FN3_RIGHT_POL_PRECINCT CHAR(3), 00021800
2 GEO_WA2_FN3_LEFT_SCHLDIST CHAR(2), 00021900
2 GEO_WA2_FN3_RIGHT_SCHLDIST CHAR(2), 00022000
2 GEO_WA2_FN3_MARBLE_RIKERS_FLAG CHAR(1), 00022100
2 GEO_WA2_FN3_SEGMENT_ID CHAR(7), 00022211
2 GEO_WA2_FN3_SEGMENT_TYPE CHAR(1); 00022329
00022501
/********************************************************************/ 00022601
00022701
DCL 1 GEO_WA2_FN3_LEFT_COMDIST CHAR(3) 00022800
BASED(ADDR(GEO_WA2_FN3_LEFT_COMMUN_DIST)); 00022900
00023001
DCL 1 GEO_WA2_FN3_RIGHT_COMDIST CHAR(3) 00023100
BASED(ADDR(GEO_WA2_FN3_RIGHT_COMMUN_DIST)); 00023200
00023301
DCL 1 GEO_WA2_FN3_LEFT_POLICEDIST CHAR(4) 00023400
BASED(ADDR(GEO_WA2_FN3_LEFT_POLICE_DIST)); 00023500
00023601
DCL 1 GEO_WA2_FN3_RIGHT_POLICEDIST CHAR(4) 00023700
BASED(ADDR(GEO_WA2_FN3_RIGHT_POLICE_DIST)); 00023800
00023901
DCL 00024000
1 GEO_WA2_FUNCTION3C BASED(PW2), 00024100
2 GEO_WA2_FN3C_ACCESS_KEY CHAR(21), 00024200
2 GEO_WA2_FN3C_CURVE_FLAG CHAR(1), 00024308
2 GEO_WA2_FN3C_SEGMENT_TYPE CHAR(1), 00024430
2 GEO_WA2_FN3C_LOCATION_STATUS CHAR(1), 00024630
2 GEO_WA2_FN3C_COUNTY_BOUNDARY CHAR(1), 00024730
2 GEO_WA2_FN3C_COINCIDENT_SEG_CTR CHAR(1), 00024832
2 FILLER_W2_380 CHAR(3), 00024932
2 GEO_WA2_FN3C_PREFERRED_LGC1 CHAR(2), 00025032
2 GEO_WA2_FN3C_PREFERRED_LGC2 CHAR(2), 00025132
2 GEO_WA2_FN3C_PREFERRED_LGC3 CHAR(2), 00025232
2 GEO_WA2_FN3C_NUM_X_ST_LOW_END CHAR(1), 00025332
2 GEO_WA2_FN3C_LOW_PBSC(5) FIXED DEC(7), 00025432
2 GEO_WA2_FN3C_NUM_X_ST_HI_END CHAR(1), 00025532
2 GEO_WA2_FN3C_HI_PBSC(5) FIXED DEC(7), 00025632
2 GEO_WA2_FN3C_COMMUN_DIST, 00025732
3 GEO_WA2_FN3C_COMDIST_BORO CHAR(1), 00025832
3 GEO_WA2_FN3C_COMDIST_NUMBER CHAR(2), 00025932
2 GEO_WA2_FN3C_ZIP CHAR(5), 00026032
2 GEO_WA2_FN3C_SLA CHAR(1), 00026132
2 GEO_WA2_FN3C_2000_CENS_TRACT CHAR(6), 00026244
2 FILLER_W2_390 CHAR(1), 00026338
2 GEO_WA2_FN3C_2010_CENSUS_TRACT CHAR(6), 00026441
2 GEO_WA2_FN3C_2010_CENSUS_BLOCK CHAR(4), 00026541
2 GEO_WA2_FN3C_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00026647
2 GEO_WA2_FN3C_HEALTHAREA CHAR(4), 00026751
2 GEO_WA2_FN3C_REVERSALFLAG CHAR(1), 00026835
2 GEO_WA2_FN3C_SOS CHAR(1), 00026935
2 GEO_WA2_FN3C_FIRESEC /\*FIRE DIV*/ CHAR(2), 00027035
2 GEO_WA2_FN3C_FIREBAT CHAR(2), 00027135
2 GEO_WA2_FN3C_FIRECO, 00027235
3 GEO_WA2_FN3C_FIRECO_TYPE CHAR(1), 00027335
3 GEO_WA2_FN3C_FIRECO_NUM CHAR(3), 00027435
2 GEO_WA2_FN3C_SEGMENT_ID CHAR(7), 00027535
2 GEO_WA2_FN3C_LOW_HOUSENUM CHAR(7), 00027635
2 GEO_WA2_FN3C_HI_HOUSENUM CHAR(7), 00027735
2 GEO_WA2_FN3C_LOW_HOUSENUM2 CHAR(7), 00027835
2 GEO_WA2_FN3C_HI_HOUSENUM2 CHAR(7), 00027935
/* 2 HOUSENUM2 ONLY PRESENT IF ODD & EVEN RANGES ARE ON \*/ 00028035
/* 2 SAME SIDE OF STREET \*/ 00028135
2 GEO_WA2_FN3C_CONT_PARITY_IND CHAR(1), 00028235
2 GEO_WA2_FN3C_LIONFACECODE CHAR(4), 00028335
2 GEO_WA2_FN3C_LIONSEQ CHAR(5), 00028435
2 GEO_WA2_FN3C_GENRECFLAG CHAR(1), 00028535
2 GEO_WA2_FN3C_SEGMENTLENGTH FIXED DEC(5), 00028635
2 GEO_WA2_FN3C_SEGMENTSLOPE CHAR(3), 00028735
2 GEO_WA2_FN3C_SEGMENTORIENT CHAR(1), 00028835
2 GEO_WA2_FN3C_FILLER_INDV CHAR(2), 00028935
2 GEO_WA2_FN3C_RESDCP /\*RESERVED FOR*/ CHAR(1), /\*DCP/GSS USE*/ 00029035
2 GEO_WA2_FN3C_FEATURE_TYPE CHAR(1), 00029135
2 GEO_WA2_FN3C_POLICE_DIST, 00029235
3 GEO_WA2_FN3C_POL_PAT_B_CMD CHAR(1), 00029335
3 GEO_WA2_FN3C_POL_PRECINCT CHAR(3), 00029435
2 GEO_WA2_FN3C_SCHOOLDIST CHAR(2), 00029535
2 GEO_WA2_FN3C_MARBLE_RIKERS_FLAG CHAR(1), 00029635
2 GEO_WA2_FN3C_1990_CENSUSTRACT CHAR(6), 00029735
2 FILLER_W2_410B CHAR(4), 00029835
2 GEO_WA2_FN3C_DYN_BLOCK CHAR(3), /\*ATOMIC POLYGON*/ 00029942
2 GEO_WA2_FN3C_2000_CENS_BLOCK CHAR(4), 00030044
2 GEO_WA2_FN3C_2000_CENS_BL_SFX CHAR(1); 00030144
00030335
/********************************************************************/ 00030435
00030535
DCL 1 GEO_WA2_FN3C_COMDIST CHAR(3) 00030635
BASED(ADDR(GEO_WA2_FN3C_COMMUN_DIST)); 00030735
DCL 1 GEO_WA2_FN3C_POLICEDIST CHAR(4) 00030835
BASED(ADDR(GEO_WA2_FN3C_POLICE_DIST)); 00030935
00031035
/********************************************************************/ 00031135
00031235
DCL 00031335
1 GEO_WA2_FUNCTION1E BASED(PW2), 00031435
2 GEO_WA2_FN1E_ACCESS_KEY CHAR(21), 00031535
2 GEO_WA2_FN1E_CONT_PARITY CHAR(1), 00031635
2 GEO_WA2_FN1E_LOW_HOUSENUM_INT CHAR(6), 00031735
2 GEO_WA2_FN1E_HI_HOUSENUM_INT CHAR(6), 00031835
2 FILLER_W2_435 CHAR(1), 00031935
2 GEO_WA2_FN1E_NUM_X_ST_LOW_END CHAR(1), 00032035
2 GEO_WA2_FN1E_LOW_PBSC(5) FIXED DEC(7), 00032135
2 GEO_WA2_FN1E_NUM_X_ST_HI_END CHAR(1), 00032235
2 GEO_WA2_FN1E_HI_PBSC(5) FIXED DEC(7), 00032335
2 GEO_WA2_FN1E_COMMUN_DIST, 00032435
3 GEO_WA2_FN1E_COMDIST_BORO CHAR(1), 00032535
3 GEO_WA2_FN1E_COMDIST_NUMBER CHAR(2), 00032635
2 GEO_WA2_FN1E_ZIP CHAR(5), 00032735
2 GEO_WA2_FN1E_SLA CHAR(1), 00032835
2 GEO_WA2_FN1E_HCD CHAR(2), 00032951
2 GEO_WA2_FN1E_SOS CHAR(1), 00033150
2 GEO_WA2_FN1E_CONT_PARITY_IND CHAR(1), 00033250
2 GEO_WA2_FN1E_2010_CENSUS_TRACT CHAR(6), 00033350
2 GEO_WA2_FN1E_2010_CENSUS_BLOCK CHAR(4), 00033450
2 GEO_WA2_FN1E_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00033550
2 GEO_WA2_FN1E_FILLER_INDV CHAR(1), 00033650
2 FILLER_W2_440 CHAR(2), 00033750
2 GEO_WA2_FN1E_HEALTHAREA CHAR(4), 00033851
2 GEO_WA2_FN1E_SANI_REC CHAR(3), 00033950
2 GEO_WA2_FN1E_FEATURE_TYPE CHAR(1), 00034050
2 GEO_WA2_FN1E_RESDCP /\*RESERVED FOR*/ CHAR(1), /\*DCP/GSS USE*/ 00034150
2 GEO_WA2_FN1E_CURVE_FLAG CHAR(1), 00034250
2 GEO_WA2_FN1E_POLICE_DIST, 00034350
3 GEO_WA2_FN1E_POL_PAT_B_CMD CHAR(1), 00034450
3 GEO_WA2_FN1E_POL_PRECINCT CHAR(3), 00034550
2 GEO_WA2_FN1E_SCHOOLDIST CHAR(2), 00034650
2 GEO_WA2_FN1E_ELECTDIST CHAR(3), 00034750
2 GEO_WA2_FN1E_ASSEMDIST CHAR(2), 00034850
2 GEO_WA2_FN1E_SPLIT_ED_FLAG CHAR(1), 00034950
2 GEO_WA2_FN1E_CONGDIST CHAR(2), 00035050
2 GEO_WA2_FN1E_SENATEDIST CHAR(2), 00035150
2 GEO_WA2_FN1E_COURTDIST CHAR(2), 00035250
2 GEO_WA2_FN1E_COUNCILDIST CHAR(2), 00035350
2 GEO_WA2_FN1E_COINCIDENT_SEG_CTR CHAR(1), 00035450
2 GEO_WA2_FN1E_SEGMENT_TYPE_CODE CHAR(1), 00035550
2 GEO_WA2_FN1E_SANI_DIST, 00035650
3 GEO_WA2_FN1E_SANIDIST_BORO CHAR(1), 00035750
3 GEO_WA2_FN1E_SANIDIST_NUMBER CHAR(2), 00035850
2 GEO_WA2_FN1E_SANITATION_SUBSEC CHAR(2), 00035950
2 GEO_WA2_FN1E_FIRESEC /\*FIRE DIV*/ CHAR(2), 00036050
2 GEO_WA2_FN1E_FIREBAT CHAR(2), 00036150
2 GEO_WA2_FN1E_FIRECO, 00036250
3 GEO_WA2_FN1E_FIRECO_TYPE CHAR(1), 00036350
3 GEO_WA2_FN1E_FIRECO_NUM CHAR(3), 00036450
2 GEO_WA2_FN1E_SPECIAL_ADDR__FLAG CHAR(1), 00036550
2 GEO_WA2_FN1E_MARBLE_RIKERS_FLAG CHAR(1), 00036650
2 GEO_WA2_FN1E_SPLIT_SCHOOL_FILL CHAR(1), 00036750
2 GEO_WA2_FN1E_PREFERRED_LGC CHAR(2), 00036850
2 GEO_WA2_FN1E_LIONFACECODE CHAR(4), 00036950
2 GEO_WA2_FN1E_LIONSEQ CHAR(5), 00037050
2 GEO_WA2_FN1E_1990_CENSUSTRACT CHAR(6), 00037150
2 FILLER_W2_480B CHAR(4), 00037250
2 GEO_WA2_FN1E_DYN_BLOCK CHAR(3), /\*ATOMIC POLYGON*/ 00037350
2 GEO_WA2_FN1E_XCOORD CHAR(7), 00037450
2 GEO_WA2_FN1E_YCOORD CHAR(7), 00037550
2 GEO_WA2_FN1E_SEGMENTLENGTH CHAR(5), 00037650
2 GEO_WA2_FN1E_SANI_REG CHAR(5); 00037750
00037850
/********************************************************************/ 00037950
00038050
DCL 1 GEO_WA2_FN1E_LOW_HOUSE_NUM 00038150
BASED(ADDR(GEO_WA2_FN1E_LOW_HOUSENUM_INT)), 00038250
3 GEO_WA2_FN1E_LOW_HOUSENUM CHAR(5), 00038350
3 GEO_WA2_FN1E_LOW_HOUSENUMSFX CHAR(1); 00038450
00038550
DCL 1 GEO_WA2_FN1E_HI_HOUSE_NUM 00038650
BASED(ADDR(GEO_WA2_FN1E_HI_HOUSENUM_INT)), 00038750
3 GEO_WA2_FN1E_HI_HOUSENUM CHAR(5), 00038850
3 GEO_WA2_FN1E_HI_HOUSENUMSFX CHAR(1); 00038950
00039050
DCL 1 GEO_WA2_FN1E_COMDIST CHAR(3) 00039150
BASED(ADDR(GEO_WA2_FN1E_COMMUN_DIST)); 00039250
00039350
DCL 1 GEO_WA2_FN1E_SANIDIST CHAR(3) 00039450
BASED(ADDR(GEO_WA2_FN1E_SANI_DIST)); 00039550
00039650
DCL 1 GEO_WA2_FN1E_POLICEDIST CHAR(4) 00039750
BASED(ADDR(GEO_WA2_FN1E_POLICE_DIST)); 00039850
00039950
/********************************************************************/ 00040050
00040150
DCL 00040250
1 GEO_WA2_FUNCTION5 BASED(PW2), 00040350
2 GEO_WA2_FN5_ADDR_MATCHING_KEY CHAR(28), 00040450
2 FILLER_W2_210 CHAR(172); 00040550
00041000
/********************************************************************/ 00042001
00043001
PW2=ADDR(W2PL1); 00050000
/********************************************************************/ 00000100
/*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2PL1L, CONTAINING \***/ 00000200
/*** THE LAYOUT OF THE OPTIONAL LONG WORK AREA 2 FOR \***/ 00000300
/*** FUNCTION 1,1E, & 3. THIS WORK AREA SHOULD BE USED ONLY WHEN \***/ 00000400
/*** FUNCTION IS CALLED WITH THE "LONG" WORK AREA2 OPTION. \***/ 00000500
/*** 07/23/2001 \***/ 00000600
/*** LAST MODIFIED JANUARY 2012 \***/ 00000739
/********************************************************************/ 00000824
DCL PW2L POINTER; 00000924
DCL 1 W2PL1L CHAR(300) INIT(' '); 00001024
DCL 00001124
1 GEO_WA2_1L_FUNCTION1 BASED(PW2L), 00001224
2 GEO_WA2_1L_ACCESS_KEY CHAR(21), 00001324
2 GEO_WA2_1L_CONT_PARITY CHAR(1), 00001424
2 GEO_WA2_1L_LOW_HOUSENUM_INT CHAR(6), 00001524
2 GEO_WA2_1L_HI_HOUSENUM_INT CHAR(6), 00001624
2 GEO_WA2_1L_ALX CHAR(1), 00001724
2 GEO_WA2_1L_NUM_X_ST_LOW_END CHAR(1), 00001824
2 GEO_WA2_1L_LOW_PBSC(5) FIXED DEC(7), 00001924
2 GEO_WA2_1L_NUM_X_ST_HI_END CHAR(1), 00002024
2 GEO_WA2_1L_HI_PBSC(5) FIXED DEC(7), 00002124
2 GEO_WA2_1L_COMMUN_DIST, 00002224
3 GEO_WA2_1L_COMDIST_BORO CHAR(1), 00002324
3 GEO_WA2_1L_COMDIST_NUMBER CHAR(2), 00002424
2 GEO_WA2_1L_ZIP CHAR(5), 00002524
2 GEO_WA2_1L_SLA CHAR(1), 00002624
2 GEO_WA2_1L_HCD CHAR(2), 00002740
2 GEO_WA2_1L_SOS CHAR(1), 00002939
2 GEO_WA2_1L_CONT_PARITY_IND CHAR(1), 00003039
2 GEO_WA2_1L_2010_CENSUS_TRACT CHAR(6), 00003139
2 GEO_WA2_1L_2010_CENSUS_BLOCK CHAR(4), 00003239
2 GEO_WA2_1L_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00003339
2 GEO_WA2_1L_FILLER_INDV CHAR(1), 00003439
2 FILLER_W2_230 CHAR(2), 00003539
2 GEO_WA2_1L_HEALTHAREA CHAR(4), 00003640
2 GEO_WA2_1L_SANI_REC CHAR(3), 00003739
2 GEO_WA2_1L_FEATURE_TYPE CHAR(1), 00003839
2 GEO_WA2_1L_RESDCP /\*RESERVED FOR*/ CHAR(1), /\*DCP/GSS USE*/ 00003939
2 GEO_WA2_1L_CURVE_FLAG CHAR(1), 00004039
2 GEO_WA2_1L_POLICE_DIST, 00004139
3 GEO_WA2_1L_POL_PAT_B_CMD CHAR(1), 00004239
3 GEO_WA2_1L_POL_PRECINCT CHAR(3), 00004339
2 GEO_WA2_1L_SCHOOLDIST CHAR(2), 00004439
2 FILLER_W2_250 CHAR(14), /\*1E POL DIST*/ 00004539
2 GEO_WA2_1L_COINCIDENT_SEG_CTR CHAR(1), 00004620
2 GEO_WA2_1L_SEGMENT_TYPE CHAR(1), 00004720
2 GEO_WA2_1L_SANI_DIST, 00004820
3 GEO_WA2_1L_SANIDIST_BORO CHAR(1), 00004920
3 GEO_WA2_1L_SANIDIST_NUMBER CHAR(2), 00005020
2 GEO_WA2_1L_SANITATION_SUBSEC CHAR(2), 00005120
2 GEO_WA2_1L_FIRESEC /\*FIRE DIV*/ CHAR(2), 00005220
2 GEO_WA2_1L_FIREBAT CHAR(2), 00005320
2 GEO_WA2_1L_FIRECO, 00005420
3 GEO_WA2_1L_FIRECO_TYPE CHAR(1), 00005520
3 GEO_WA2_1L_FIRECO_NUM CHAR(3), 00005620
2 GEO_WA2_1L_SPECIAL_ADDR_FLAG CHAR(1), 00005720
2 GEO_WA2_1L_MARBLE_RIKERS_FLAG CHAR(1), 00005820
2 GEO_WA2_1L_SPLIT_SCHOOL_FILL CHAR(1), 00005938
2 GEO_WA2_1L_PREFERRED_LGC CHAR(2), 00006020
2 GEO_WA2_1L_LIONFACECODE CHAR(4), 00006120
2 GEO_WA2_1L_LIONSEQ CHAR(5), 00006220
2 GEO_WA2_1L_1990_CENSUSTRACT CHAR(6), 00006320
2 FILLER_W2_260B CHAR(4), 00006423
2 GEO_WA2_1L_DYN_BLOCK CHAR(3), /\*ATOMIC POLYGON*/ 00006534
2 GEO_WA2_1L_XCOORD CHAR(7), 00006620
2 GEO_WA2_1L_YCOORD CHAR(7), 00006720
2 GEO_WA2_1L_SEGMENTLENGTH CHAR(5), 00006820
2 GEO_WA2_1L_SANI_REG CHAR(5), 00006920
2 GEO_WA2_1L_SEGMENT_ID CHAR(7), 00007020
2 GEO_WA2_1L_REAL_B7SC CHAR(08), 00007120
2 GEO_WA2_1L_UNDERLY_HOUSENUM_INT CHAR(6), 00007223
2 GEO_WA2_1L_2000_CENS_TRACT CHAR(6), 00007336
2 GEO_WA2_1L_2000_CENS_BLOCK CHAR(4), 00007436
2 GEO_WA2_1L_2000_CENS_BLK_SUF CHAR(1), 00007536
2 FILLER_W2_260C CHAR(68); 00007629
00007723
/********************************************************************/ 00007823
00007923
DCL 1 GEO_WA2_1L_LOW_HOUSE_NUM 00008023
BASED(ADDR(GEO_WA2_1L_LOW_HOUSENUM_INT)), 00008123
3 GEO_WA2_1L_LOW_HOUSENUM CHAR(5), 00008223
3 GEO_WA2_1L_LOW_HOUSENUMSFX CHAR(1); 00008323
00008423
DCL 1 GEO_WA2_1L_HI_HOUSE_NUM 00008523
BASED(ADDR(GEO_WA2_1L_HI_HOUSENUM_INT)), 00008623
3 GEO_WA2_1L_HI_HOUSENUM CHAR(5), 00008723
3 GEO_WA2_1L_HI_HOUSENUMSFX CHAR(1); 00008823
00008923
DCL 1 GEO_WA2_1L_UNDERLY_HOUSE_NUM 00009023
BASED(ADDR(GEO_WA2_1L_UNDERLY_HOUSENUM_INT)), 00009123
3 GEO_WA2_1L_UNDERLY_HOUSENUM CHAR(5), 00009223
3 GEO_WA2_1L_UNDERLY_HOUSENUMSFX CHAR(1); 00009323
00009423
DCL 1 GEO_WA2_1L_COMDIST CHAR(3) 00009523
BASED(ADDR(GEO_WA2_1L_COMMUN_DIST)); 00009623
00009723
DCL 1 GEO_WA2_1L_SANIDIST CHAR(3) 00009823
BASED(ADDR(GEO_WA2_1L_SANI_DIST)); 00009923
00010023
DCL 1 GEO_WA2_1L_POLICEDIST CHAR(4) 00010123
BASED(ADDR(GEO_WA2_1L_POLICE_DIST)); 00010223
00010323
/********************************************************************/ 00010423
00010523
DCL 00010623
1 GEO_WA2_1EL_FUNCTION1E BASED(PW2L), 00010723
2 GEO_WA2_1EL_ACCESS_KEY CHAR(21), 00010823
2 GEO_WA2_1EL_CONT_PARITY CHAR(1), 00010923
2 GEO_WA2_1EL_LOW_HOUSENUM_INT CHAR(6), 00011023
2 GEO_WA2_1EL_HI_HOUSENUM_INT CHAR(6), 00011123
2 GEO_WA2_1EL_ALX CHAR(1), 00011223
2 GEO_WA2_1EL_NUM_X_ST_LOW_END CHAR(1), 00011323
2 GEO_WA2_1EL_LOW_PBSC(5) FIXED DEC(7), 00011423
2 GEO_WA2_1EL_NUM_X_ST_HI_END CHAR(1), 00011523
2 GEO_WA2_1EL_HI_PBSC(5) FIXED DEC(7), 00011623
2 GEO_WA2_1EL_COMMUN_DIST, 00011723
3 GEO_WA2_1EL_COMDIST_BORO CHAR(1), 00011823
3 GEO_WA2_1EL_COMDIST_NUMBER CHAR(2), 00011923
2 GEO_WA2_1EL_ZIP CHAR(5), 00012023
2 GEO_WA2_1EL_SLA CHAR(1), 00012123
2 GEO_WA2_1EL_HCD CHAR(2), 00012240
2 GEO_WA2_1EL_SOS CHAR(1), 00012439
2 GEO_WA2_1EL_CONT_PARITY_IND CHAR(1), 00012539
2 GEO_WA2_1EL_2010_CENSUS_TRACT CHAR(6), 00012639
2 GEO_WA2_1EL_2010_CENSUS_BLOCK CHAR(4), 00012739
2 GEO_WA2_1EL_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00012839
2 GEO_WA2_1EL_FILLER_INDV CHAR(1), 00012939
2 FILLER_W2_240 CHAR(2), 00013039
2 GEO_WA2_1EL_HEALTHAREA CHAR(4), 00013140
2 GEO_WA2_1EL_SANI_REC CHAR(3), 00013239
2 GEO_WA2_1EL_FEATURE_TYPE CHAR(1), 00013339
2 GEO_WA2_1EL_RESDCP /\*RESERVED FOR*/ CHAR(1), /\*DCP/GSS USE*/ 00013439
2 GEO_WA2_1EL_CURVE_FLAG CHAR(1), 00013539
2 GEO_WA2_1EL_POLICE_DIST, 00013639
3 GEO_WA2_1EL_POL_PAT_B_CMD CHAR(1), 00013739
3 GEO_WA2_1EL_POL_PRECINCT CHAR(3), 00013839
2 GEO_WA2_1EL_SCHOOLDIST CHAR(2), 00013939
2 GEO_WA2_1EL_ELECTDIST CHAR(3), 00014039
2 GEO_WA2_1EL_ASSEMDIST CHAR(2), 00014139
2 GEO_WA2_1EL_SPLIT_ED_FLAG CHAR(1), 00014239
2 GEO_WA2_1EL_CONGDIST CHAR(2), 00014339
2 GEO_WA2_1EL_SENATEDIST CHAR(2), 00014439
2 GEO_WA2_1EL_COURTDIST CHAR(2), 00014539
2 GEO_WA2_1EL_COUNCILDIST CHAR(2), 00014639
2 GEO_WA2_1EL_COINCIDENT_SEG_CTR CHAR(1), 00014739
2 GEO_WA2_1EL_SEGMENT_TYPE_CODE CHAR(1), 00014839
2 GEO_WA2_1EL_SANI_DIST, 00014939
3 GEO_WA2_1EL_SANIDIST_BORO CHAR(1), 00015039
3 GEO_WA2_1EL_SANIDIST_NUMBER CHAR(2), 00015139
2 GEO_WA2_1EL_SANITATION_SUBSEC CHAR(2), 00015239
2 GEO_WA2_1EL_FIRESEC /\*FIRE DIV*/ CHAR(2), 00015339
2 GEO_WA2_1EL_FIREBAT CHAR(2), 00015439
2 GEO_WA2_1EL_FIRECO, 00015539
3 GEO_WA2_1EL_FIRECO_TYPE CHAR(1), 00015639
3 GEO_WA2_1EL_FIRECO_NUM CHAR(3), 00015739
2 GEO_WA2_1EL_SPECIAL_ADDR__FLAG CHAR(1), 00015839
2 GEO_WA2_1EL_MARBLE_RIKERS_FLAG CHAR(1), 00015939
2 GEO_WA2_1EL_SPLIT_SCHOOL_FILL CHAR(1), 00016039
2 GEO_WA2_1EL_PREFERRED_LGC CHAR(2), 00016139
2 GEO_WA2_1EL_LIONFACECODE CHAR(4), 00016239
2 GEO_WA2_1EL_LIONSEQ CHAR(5), 00016339
2 GEO_WA2_1EL_1990_CENSUSTRACT CHAR(6), 00016439
2 FILLER_W2_480B CHAR(4), 00016539
2 GEO_WA2_1EL_DYN_BLOCK CHAR(3), /\*ATOMIC POLYGON*/ 00016639
2 GEO_WA2_1EL_XCOORD CHAR(7), 00016739
2 GEO_WA2_1EL_YCOORD CHAR(7), 00016839
2 GEO_WA2_1EL_SEGMENTLENGTH CHAR(5), 00016939
2 GEO_WA2_1EL_SANI_REG CHAR(5), 00017039
2 GEO_WA2_1EL_SEGMENT_ID CHAR(7), 00017139
2 GEO_WA2_1EL_TRUE_B7SC CHAR(8), 00017239
2 GEO_WA2_1EL_UNDER_HOUSENUM_INT CHAR(6), 00017339
2 GEO_WA2_1EL_2000_CENS_TRACT CHAR(6), 00017439
2 GEO_WA2_1EL_2000_CENS_BLOCK CHAR(4), 00017539
2 GEO_WA2_1EL_2000_CENS_BLK_SUF CHAR(1), 00017639
2 FILLER_W2_480 CHAR(68); 00017739
00017839
/********************************************************************/ 00017939
00018039
DCL 1 GEO_WA2_1EL_LOW_HOUSE_NUM 00018139
BASED(ADDR(GEO_WA2_1EL_LOW_HOUSENUM_INT)), 00018239
3 GEO_WA2_1EL_LOW_HOUSENUM CHAR(5), 00018339
3 GEO_WA2_1EL_LOW_HOUSENUMSFX CHAR(1); 00018439
00018539
DCL 1 GEO_WA2_1EL_HI_HOUSE_NUM 00018639
BASED(ADDR(GEO_WA2_1EL_HI_HOUSENUM_INT)), 00018739
3 GEO_WA2_1EL_HI_HOUSENUM CHAR(5), 00018839
3 GEO_WA2_1EL_HI_HOUSENUMSFX CHAR(1); 00018939
00019039
DCL 1 GEO_WA2_1EL_UNDER_HOUSE_NUM 00019139
BASED(ADDR(GEO_WA2_1EL_UNDER_HOUSENUM_INT)), 00019239
3 GEO_WA2_1EL_UNDER_HOUSENUM CHAR(5), 00019339
3 GEO_WA2_1EL_UNDER_HOUSENUMSFX CHAR(1); 00019439
00019539
DCL 1 GEO_WA2_1EL_COMDIST CHAR(3) 00019639
BASED(ADDR(GEO_WA2_1EL_COMMUN_DIST)); 00019739
00019839
DCL 1 GEO_WA2_1EL_SANIDIST CHAR(3) 00019939
BASED(ADDR(GEO_WA2_1EL_SANI_DIST)); 00020039
00020139
DCL 1 GEO_WA2_1EL_POLICEDIST CHAR(4) 00020239
BASED(ADDR(GEO_WA2_1EL_POLICE_DIST)); 00020339
00020439
/********************************************************************/ 00020539
00020639
DCL 00020739
1 GEO_WA2_FUNCTION3L BASED(PW2L), 00020839
2 GEO_WA2_3L_ACCESS_KEY CHAR(21), 00020939
2 GEO_WA2_3L_DUP_KEY_FLAG CHAR(1), 00021039
2 GEO_WA2_3L_CURVE_FLAG CHAR(1), 00021139
2 GEO_WA2_3L_LOCATION_STATUS CHAR(1), 00021239
2 GEO_WA2_3L_COUNTY_BOUNDARY CHAR(1), 00021339
2 GEO_WA2_3L_COINCIDENT_SEG_CTR CHAR(1), 00021439
2 FILLER_W340 CHAR(3), 00021539
2 GEO_WA2_3L_PREFERRED_LGC1 CHAR(2), 00021639
2 GEO_WA2_3L_PREFERRED_LGC2 CHAR(2), 00021739
2 GEO_WA2_3L_PREFERRED_LGC3 CHAR(2), 00021839
2 GEO_WA2_3L_NUM_X_ST_LOW_END CHAR(1), 00021939
2 GEO_WA2_3L_LOW_PBSC(5) FIXED DEC(7), 00022039
2 GEO_WA2_3L_NUM_X_ST_HI_END CHAR(1), 00022139
2 GEO_WA2_3L_HI_PBSC(5) FIXED DEC(7), 00022239
2 GEO_WA2_3L_SLA CHAR(1), 00022339
2 GEO_WA2_3L_REVERSALFLAG CHAR(1), 00022439
2 GEO_WA2_3L_LEFT_COMMUN_DIST, 00022539
3 GEO_WA2_3L_LEFT_COMDIST_BORO CHAR(1), 00022639
3 GEO_WA2_3L_LEFT_COMDIST_NUMBER CHAR(2), 00022739
2 GEO_WA2_3L_RIGHT_COMMUN_DIST, 00022839
3 GEO_WA2_3L_RIGHT_COMDIST_BORO CHAR(1), 00022939
3 GEO_WA2_3L_RIGHT_COMDIST_NUMBER CHAR(2), 00023039
2 GEO_WA2_3L_LEFT_ZIP CHAR(5), 00023139
2 GEO_WA2_3L_RIGHT_ZIP CHAR(5), 00023239
2 FILLER_W340B CHAR(18), 00023339
2 GEO_WA2_3L_LEFT_HEALTHAREA CHAR(4), 00023440
2 GEO_WA2_3L_RIGHT_HEALTHAREA CHAR(4), 00023540
2 GEO_WA2_3L_LEFT_FILLER_INDV CHAR(2), 00023639
2 GEO_WA2_3L_RIGHT_FILLER_INDV CHAR(2), 00023739
2 GEO_WA2_3L_LEFT_LOW_HOUSENUM CHAR(7), 00023839
2 GEO_WA2_3L_LEFT_HI_HOUSENUM CHAR(7), 00023939
2 GEO_WA2_3L_RIGHT_LOW_HOUSENUM CHAR(7), 00024039
2 GEO_WA2_3L_RIGHT_HI_HOUSENUM CHAR(7), 00024139
2 GEO_WA2_3L_CONT_PARITY_IND CHAR(1), 00024239
2 GEO_WA2_3L_LIONFACECODE CHAR(4), 00024339
2 GEO_WA2_3L_LIONSEQ CHAR(5), 00024439
2 GEO_WA2_3L_GENRECFLAG CHAR(1), 00024539
2 GEO_WA2_3L_SEGMENTLENGTH FIXED DEC(5), 00024639
2 GEO_WA2_3L_SEGMENTSLOPE CHAR(3), 00024739
2 GEO_WA2_3L_SEGMENTORIENT CHAR(1), 00024839
2 FILLER_W355 CHAR(4), 00024939
2 GEO_WA2_3L_RESDCP CHAR(2), 00025039
2 GEO_WA2_3L_DOG_LEG CHAR(1), 00025139
2 GEO_WA2_3L_FEATURE_TYPE CHAR(1), 00025239
2 GEO_WA2_3L_LEFT_POLICE_DIST, 00025339
3 GEO_WA2_3L_LEFT_POL_PAT_B_CMD CHAR(1), 00025439
3 GEO_WA2_3L_LEFT_POL_PRECINCT CHAR(3), 00025539
2 GEO_WA2_3L_RIGHT_POLICE_DIST, 00025639
3 GEO_WA2_3L_RIGHT_POL_PAT_B_CMD CHAR(1), 00025739
3 GEO_WA2_3L_RIGHT_POL_PRECINCT CHAR(3), 00025839
2 GEO_WA2_3L_LEFT_SCHLDIST CHAR(2), 00025939
2 GEO_WA2_3L_RIGHT_SCHLDIST CHAR(2), 00026039
2 GEO_WA2_3L_MARBLE_RIKERS_FLAG CHAR(1), 00026139
2 GEO_WA2_3L_SEGMENT_ID CHAR(7), 00026239
2 GEO_WA2_3L_SEGMENT_TYPE CHAR(1), 00026339
/*************************************************************/ 00026439
/** THE PORTION OF THIS WORK AREA ABOVE THIS POINT IS \**/ 00026539
/** IDENTICAL TO THE STANDARD WORK AREA 2 FOR FUNCTION 3. \**/ 00026639
/** THE PORTION BELOW THIS POINT IS PRESENT ONLY FOR THE \**/ 00026739
/** LONG WORK AREA 2 OPTION. \**/ 00026839
/*************************************************************/ 00026939
2 GEO_WA2_3L_L_1990_CENSUSTRACT CHAR(6), 00027039
2 FILLER_W370B CHAR(4), 00027139
2 GEO_WA2_L_3L_DYN_BLOCK CHAR(3),/\*ATOMIC POLYGON*/ 00027239
2 GEO_WA2_3L_R_1990_CENSUSTRACT CHAR(6), 00027339
2 FILLER_W370C CHAR(4), 00027439
2 GEO_WA2_R_3L_DYN_BLOCK CHAR(3),/\*ATOMIC POLYGON*/ 00027539
2 GEO_WA2_3L_LEFT_FIRESEC CHAR(2),/\*FIRE DIV*/ 00027639
2 GEO_WA2_3L_LEFT_FIREBAT CHAR(2), 00027739
2 GEO_WA2_3L_LEFT_FIRECO, 00027839
3 GEO_WA2_3L_LEFT_FIRECO_TYPE CHAR(1), 00027939
3 GEO_WA2_3L_LEFT_FIRECO_NUM CHAR(3), 00028039
2 GEO_WA2_3L_RIGHT_FIRESEC CHAR(2),/\*FIRE DIV*/ 00028139
2 GEO_WA2_3L_RIGHT_FIREBAT CHAR(2), 00028239
2 GEO_WA2_3L_RIGHT_FIRECO, 00028339
3 GEO_WA2_3L_RIGHT_FIRECO_TYPE CHAR(1), 00028439
3 GEO_WA2_3L_RIGHT_FIRECO_NUM CHAR(3), 00028539
2 GEO_WA2_3L_L_2010_CENSUS_TRACT CHAR(6), 00028639
2 GEO_WA2_3L_L_2010_CENSUS_BLOCK CHAR(4), 00028739
2 GEO_WA2_3L_L_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00028839
2 GEO_WA2_3L_R_2010_CENSUS_TRACT CHAR(6), 00028939
2 GEO_WA2_3L_R_2010_CENSUS_BLOCK CHAR(4), 00029039
2 GEO_WA2_3L_R_2010_CENSUS_BLK_SF CHAR(1), /\*NOTIMPLEMENTED*/ 00029139
2 GEO_WA2_3L_FROM_NODE CHAR(7), 00029239
2 GEO_WA2_3L_TO_NODE CHAR(7), 00029339
2 GEO_WA2_3L_L_2000_CENS_TRACT CHAR(6), 00029439
2 GEO_WA2_3L_L_2000_CENS_BLOCK CHAR(4), 00029539
2 GEO_WA2_3L_L_2000_CENS_BL_SUF CHAR(1), 00029639
2 GEO_WA2_3L_R_2000_CENS_TRACT CHAR(6), 00029739
2 GEO_WA2_3L_R_2000_CENS_BLOCK CHAR(4), 00029839
2 GEO_WA2_3L_R_2000_CENS_BL_SUF CHAR(1); 00029939
DCL 1 GEO_WA2_3L_LEFT_COMDIST CHAR(3) 00030025
BASED(ADDR(GEO_WA2_3L_LEFT_COMMUN_DIST)); 00030125
DCL 1 GEO_WA2_3L_RIGHT_COMDIST CHAR(3) 00030225
BASED(ADDR(GEO_WA2_3L_RIGHT_COMMUN_DIST)); 00030325
DCL 1 GEO_WA2_3L_LEFT_POLICEDIST CHAR(4) 00030425
BASED(ADDR(GEO_WA2_3L_LEFT_POLICE_DIST)); 00030525
DCL 1 GEO_WA2_3L_RIGHT_POLICEDIST CHAR(4) 00030625
BASED(ADDR(GEO_WA2_3L_RIGHT_POLICE_DIST)); 00030725
PW2L=ADDR(W2PL1L); 00030825
00031025
/********************************************************************/ 00040012
/********************************************************************/ 00000100
/*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2PL11A, CONTAINING THE \***/ 00000200
/*** LAYOUT OF WORK AREA 2 FOR FUNCTIONS 1A AND BL WHICH SHARE \***/ 00000300
/*** A SINGLE WORK AREA 2 LAYOUT. 11/28/00 \***/ 00000403
/********************************************************************/ 00000500
00000600
/* STANDARD FORMAT \*/ 00000701
00000800
DCL 00000900
1 W2PL11A, 00001000
2 GEO_WA2_1A_ACCESS_KEY CHAR(21), 00001100
2 GEO_WA2_1A_CONT_PARITY CHAR(1), 00001200
2 GEO_WA2_1A_LOW_HOUSENUM CHAR(6), 00001300
2 GEO_WA2_1A_ALTKEY_1, 00001400
3 GEO_WA2_1A_ALTKEY_1_BORO CHAR(1), 00001500
3 GEO_WA2_1A_ALTKEY_1_TAXBLOCK CHAR(5), 00001600
3 GEO_WA2_1A_ALTKEY_1_TAXLOT CHAR(4), 00001700
2 GEO_WA2_1A_FILLER_230 CHAR(1), 00001800
2 GEO_WA2_1A_SCC CHAR(1), 00001900
2 GEO_WA2_1A_FILLER_240 CHAR(1), 00002000
2 GEO_WA2_1A_GENERAL_LOT_INFO, 00002100
3 GEO_WA2_1A_RPAD_BLDG_CLASS CHAR(2), 00002200
3 GEO_WA2_1A_CORNER_CODE CHAR(2), 00002300
3 GEO_WA2_1A_NUM_OF_STRUCTURES CHAR(2), 00002400
3 GEO_WA2_1A_NUM_OF_BLOCKFACES CHAR(2), 00002500
3 GEO_WA2_1A_INTERIOR_FLAG CHAR(1), 00002600
3 GEO_WA2_1A_VACANT_FLAG CHAR(1), 00002700
3 GEO_WA2_1A_IRREG_LOT_FLAG CHAR(1), 00002800
2 GEO_WA2_1A_ALT_BORO_FLAG CHAR(1), 00002900
2 GEO_WA2_1A_FILLER_245 CHAR(1), 00003000
2 GEO_WA2_1A_STROLL_KEY CHAR(13), 00003100
2 GEO_WA2_1A_OVERFLOW_FLAG CHAR(1), 00003202
2 GEO_WA2_1A_FILLER_251 CHAR(1), /\*USED FOR DCP*/ 00003300
2 GEO_WA2_1A_BIN CHAR(7), 00003400
2 GEO_WA2_1A_CONDO_FLAG CHAR(1), 00003500
2 GEO_WA2_1A_RPAD_CONDO_ID_NUM CHAR(4), 00003600
2 GEO_WA2_1A_CONDO_LOW_BBL CHAR(10), 00003700
2 GEO_WA2_1A_FILLER_260 CHAR(1), 00003800
2 GEO_WA2_1A_CONDO_BILL_BBL CHAR(10), 00003900
2 GEO_WA2_1A_FILLER_270 CHAR(1), 00004000
2 GEO_WA2_1A_CONDO_BILL_BBL_SCC CHAR(1), 00004100
2 GEO_WA2_1A_CONDO_HIGH_BBL CHAR(10), 00004200
2 GEO_WA2_1A_FILLER_275 CHAR(1), 00004300
2 GEO_WA2_1A_SANBORN_BORO CHAR(1), 00004400
2 GEO_WA2_1A_SANBORN_VOL_PAGE, 00004500
3 GEO_WA2_1A_SANBORN_VOL_NUM CHAR(3), 00004600
3 GEO_WA2_1A_SANBORN_PAGE_NUM CHAR(4), 00004700
2 GEO_WA2_1A_COMMERC_DIST CHAR(5), 00004800
2 GEO_WA2_1A_COOP_NUM CHAR(4), 00004904
2 GEO_WA2_1A_FILLER_276 CHAR(4), 00005007
2 GEO_WA2_1A_ACTUAL_NUM_OF_STRUCT CHAR(4), 00005106
2 GEO_WA2_1A_DOF_MAP_BORO CHAR(1), 00005207
2 GEO_WA2_1A_DOF_MAP_SECVOL CHAR(4), 00005307
2 GEO_WA2_1A_DOF_MAP_PAGE CHAR(4), 00005407
2 GEO_WA2_1A_X_COORD CHAR(7), 00005508
2 GEO_WA2_1A_Y_COORD CHAR(7), 00005608
2 GEO_WA2_1A_BID CHAR(6), 00005809
2 GEO_WA2_1A_FILLER_280 CHAR(2), 00005909
2 GEO_WA2_1A_FILLER_LGCS CHAR(8), 00006010
2 GEO_WA2_1A_FILLER_280A CHAR(2), 00006109
2 GEO_WA2_1A_NUM_OF_ADDR_FOR_LOT CHAR(2), 00006209
2 GEO_WA2_1A_LIST_OF_ADDRESSES(21), 00006309
3 GEO_WA2_1A_LIST_LOW_HOUSENUM CHAR(6), 00006409
3 GEO_WA2_1A_FILLER_290 CHAR(3), 00006509
3 GEO_WA2_1A_LIST_HI_HOUSENUM CHAR(6), 00006609
3 GEO_WA2_1A_FILLER_300 CHAR(3), 00006709
3 GEO_WA2_1A_LIST_STREETCODE CHAR(8), 00006809
3 GEO_WA2_1A_LIST_BIN CHAR(7), 00006909
3 GEO_WA2_1A_ADDR_TYPE CHAR(1), 00007009
3 GEO_WA2_1A_FILLER_310 CHAR(1), 00007109
3 GEO_WA2_1A_LIST_SOS CHAR(1); 00007209
DCL GEO_WA2_1A_SANBORN_BVOLPAGE CHAR(8) 00007309
BASED(ADDR(GEO_WA2_1A_SANBORN_BORO)); 00008009
/********************************************************************/ 00000100
/*** THIS IS GEOSUPPORT SYSTEM COPY FILE W2PL11AL, CONTAINING THE***/ 00000200
/*** LAYOUT OF LONG WORK AREA 2 FOR FUNCTIONS 1A AND BL WHICH \***/ 00000300
/*** SHARE A SINGLE WORK AREA 2 LAYOUT. 11/28/00 \***/ 00000402
/********************************************************************/ 00000500
00000600
/* 1A/BL LONG WORK AREA 2 \*/ 00000700
00000800
DCL 00000900
1 W2PL11AL, 00001000
2 GEO_WA2_1AL_ACCESS_KEY CHAR(21), 00001100
2 GEO_WA2_1AL_CONT_PARITY CHAR(1), 00001200
2 GEO_WA2_1AL_LOW_HOUSENUM CHAR(6), 00001300
2 GEO_WA2_1AL_ALTKEY_1, 00001400
3 GEO_WA2_1AL_ALTKEY_1_BORO CHAR(1), 00001500
3 GEO_WA2_1AL_ALTKEY_1_TAXBLOCK CHAR(5), 00001600
3 GEO_WA2_1AL_ALTKEY_1_TAXLOT CHAR(4), 00001700
2 GEO_WA2_1AL_FILLER_230 CHAR(1), 00001800
2 GEO_WA2_1AL_SCC CHAR(1), 00001900
2 GEO_WA2_1AL_FILLER_240 CHAR(1), 00002000
2 GEO_WA2_1AL_GENERAL_LOT_INFO, 00002100
3 GEO_WA2_1AL_RPAD_BLDG_CLASS CHAR(2), 00002200
3 GEO_WA2_1AL_CORNER_CODE CHAR(2), 00002300
3 GEO_WA2_1AL_NUM_OF_STRUCTURES CHAR(2), 00002400
3 GEO_WA2_1AL_NUM_OF_BLOCKFACES CHAR(2), 00002500
3 GEO_WA2_1AL_INTERIOR_FLAG CHAR(1), 00002600
3 GEO_WA2_1AL_VACANT_FLAG CHAR(1), 00002700
3 GEO_WA2_1AL_IRREG_LOT_FLAG CHAR(1), 00002800
2 GEO_WA2_1AL_ALT_BORO_FLAG CHAR(1), 00002900
2 GEO_WA2_1AL_FILLER_245 CHAR(1), 00003000
2 GEO_WA2_1AL_STROLL_KEY CHAR(13), 00003100
2 GEO_WA2_1AL_FILLER_250 CHAR(1), 00003200
2 GEO_WA2_1AL_FILLER_251 CHAR(1), /\*USED FOR DCP*/ 00003300
2 GEO_WA2_1AL_BIN CHAR(7), 00003400
2 GEO_WA2_1AL_CONDO_FLAG CHAR(1), 00003500
2 GEO_WA2_1AL_RPAD_CONDO_ID_NUM CHAR(4), 00003600
2 GEO_WA2_1AL_CONDO_LOW_BBL CHAR(10), 00003700
2 GEO_WA2_1AL_FILLER_260 CHAR(1), 00003800
2 GEO_WA2_1AL_CONDO_BILL_BBL CHAR(10), 00003900
2 GEO_WA2_1AL_FILLER_270 CHAR(1), 00004000
2 GEO_WA2_1AL_CONDO_BILL_BBL_SCC CHAR(1), 00004100
2 GEO_WA2_1AL_CONDO_HIGH_BBL CHAR(10), 00004200
2 GEO_WA2_1AL_FILLER_275 CHAR(1), 00004300
2 GEO_WA2_1AL_SANBORN_BORO CHAR(1), 00004400
2 GEO_WA2_1AL_SANBORN_VOL_PAGE, 00004500
3 GEO_WA2_1AL_SANBORN_VOL_NUM CHAR(3), 00004600
3 GEO_WA2_1AL_SANBORN_PAGE_NUM CHAR(4), 00004700
2 GEO_WA2_1AL_COMMERC_DIST CHAR(5), 00004800
2 GEO_WA2_1AL_COOP_NUM CHAR(4), 00004903
2 GEO_WA2_1AL_FILLER_276 CHAR(4), 00005008
2 GEO_WA2_1AL_ACTUAL_NUM_STRUCTS CHAR(4), 00005106
2 GEO_WA2_1AL_DOF_MAP_BORO CHAR(1), 00005208
2 GEO_WA2_1AL_DOF_MAP_SECVOL CHAR(4), 00005308
2 GEO_WA2_1AL_DOF_MAP_PAGE CHAR(4), 00005408
2 GEO_WA2_1AL_X_COORD CHAR(7), 00005509
2 GEO_WA2_1AL_Y_COORD CHAR(7), 00005609
2 GEO_WA2_1AL_BID CHAR(6), 00005710
2 GEO_WA2_1AL_FILLER_280 CHAR(2), 00005810
2 GEO_WA2_1AL_FILLER_LGCS CHAR(8), 00005911
2 GEO_WA2_1AL_NUM_OF_BINS_FOR_LOT CHAR(4), 00006110
2 GEO_WA2_1AL_BINS(2500) CHAR(7); 00006210
00006310
DCL GEO_WA2_1AL_SANBORN_BVOLPAGE CHAR(8) 00006410
BASED(ADDR(GEO_WA2_1AL_SANBORN_BORO)); 00007009
/*******************************************************************/ 00000010
/** THIS IS GEOSUPPORT SYSTEM COPY FILE W2PL13S, CONTAINING THE \**/ 00000020
/** LAYOUT OF WORK AREA 2 FOR FUNCTION 3S. 9/22/93 \**/ 00000030
/*******************************************************************/ 00000040
DCL 00000050
1 W2PL13S, 00000060
2 GEO_WA2_3S_ACCESS_KEY CHAR(21), 00000070
2 GEO_WA2_3S_NUM_OF_INTERSECTS CHAR(3), 00000080
2 GEO_WA2_3S_LIST_OF_INTERSECTS(350), 00000090
3 GEO_WA2_3S_SMALLEST_PBSC FIXED DEC(7), 00000100
3 GEO_WA2_3S_2ND_SMALLEST_PBSC FIXED DEC(7), 00000110
3 GEO_WA2_3S_DISTANCE FIXED DEC(5), 00000120
3 GEO_WA2_3S_GAP_FLAG CHAR(1); 00000130
C COPY File (MSW)
/********************************************************************/
/* Modified - 2 June 2011 (added fields: 2010 Census Tract,Block \*/
/* and Suffix for funcions 1,1E,2,3,3c). \*/
/* Modified - 5 March 2009 \*/
/********************************************************************/
typedef struct {
struct {
char func_code[2]; /* Function Code \*/
char boro_1; /* Borough Code of First St \*/
char hse_nbr_disp[12]; /* House nbr in Disp form \*/
char hse_nbr_hni[6]; /* House nbr in HNI form \*/
char street_name_1[32]; /* First Street Name \*/
char street_name_2[32]; /* Second Street Name \*/
char street_name_3[32]; /* Third Street Name \*/
char comp_direction; /* Compass Direction \*/
char comp_direction2; /* Compass Direction-Fn 3S \*/
char PB5SC_1[4]; /* Packd Boro 5 digt St Code*/
char PB5SC_2[4]; /* Packd Boro 5 digt St Code*/
char PB5SC_3[4]; /* Packd Boro 5 digt St Code*/
char roadbedreq; /* Roadbed Request Switch \*/
char boro_2; /* Boro Code of Second Strt \*/
char boro_3; /* Boro Code of Third Street*/
char snl[2]; /* Street Name Norm Length \*/
char B10SC_1[11]; /* 1st Boro & 10 Digt St Cod*/
char B10SC_2[11]; /* 2nd Boro & 10 Digt St Cod*/
char B10SC_3[11]; /* 3rd Boro & 10 Digt St Cod*/
char zipin[5]; /* Input Zip Code \*/
char BBL[10]; /* Boro(len=1), Block(len=5)\*/
/* and Lot (len=4) \*/
char filler04;
char bld_id[7]; /* Bld Id Number (BIN) \*/
char compact_flag; /* Compact Street Names flag*/
char long_WA_flag; /* Long Work Area 2 Flag \*/
char lo_range_hnd[12]; /* Low HND of Range \*/
char lo_range_hni[6]; /* Low HNI of Range \*/
char not_IBM_flag; /* Non-IBM Mainframe Flag \*/
char BL1A; /* 1A/BL Version Switch \*/
char xstreet_flag; /* Cross Street Names Flag \*/
char filler06[4 ];
} input;
struct {
char lo_hse_nbr_disp[12]; /* Low HND of Range \*/
char boro_name[9]; /* Boro Name of First Street*/
char street_name_1[32]; /* 1st St Name - Normalized \*/
char street_name_2[32]; /* 2nd St Name - Normalized \*/
char street_name_3[32]; /* 3rd St Name - Normalized \*/
char hse_nbr_disp[12]; /* House nbr in Normalized \*/
/* Display form \*/
char hse_nbr_hni[6]; /* House number in HNI form \*/
char filler01[7];
char PB5SC_1[4]; /* Packd Boro 5 digt St Code*/
char filler02[2];
char PB5SC_2[4]; /* Packd Boro 5 digt St Code*/
char filler03[2];
char PB5SC_3[4]; /* Packd Boro 5 digt St Code*/
char attrbytes[3]; /* Attribute Bytes - int use*/
char br_pb5sc[10][4]; /* Up to 10 PB5SCs-Browse fn*/
char B10SC_1[11]; /* 1st Boro & 10 Digt St Cod*/
char B10SC_2[11]; /* 2nd Boro & 10 Digt St Cod*/
char B10SC_3[11]; /* 3rd Boro & 10 Digt St Cod*/
char condo_nbr[5]; /* Condo Number \*/
char BBL[10]; /* Boro(len=1), Block(len=5)\*/
/* and Lot (len=4)-Normalizd*/
char filler06[1];
char bld_id[7]; /* Building Id Number \*/
char intuse1; /* Internal Use Only \*/
char reject_reason_code;/* Reject Reason Code \*/
char filler07[2];
char ret_code[2]; /* GeoSupport Return Code \*/
char msg[80]; /* GeoSupport Message \*/
char nbr_sim_names[2]; /* Nbr of Similar St Names \*/
char sim_names[10][32]; /* Up to 10 Similar St Names*/
} output;
} C_WA1;
typedef struct { char filler01[21];
char cont_parity_ind; /* Continuous Parity Ind. \*/
char lo_hse_nbr[6]; /* Low House nbr in HNI form*/
char hi_hse_nbr[6]; /* Hi House Nbr in HNI form \*/
char alx; /* A=Alley intersects segmnt*/
/* X=Cross Streets modified \*/
char lo_nbr_x_sts; /* Nbr of cross streets at \*/
/* low house nbr end of st \*/
char l_x_sts[5][4]; /* PB5SCs of lo end cross st*/
char hi_nbr_x_sts; /* Nbr of cross streets at \*/
/* low house nbr end of st \*/
char h_x_sts[5][4]; /* PB5SCs of lo end cross st*/
char com_dist[3]; /* Community District \*/
/* Position 0 contains the \*/
/* Legacy Boro Code & Pos 1 \*/
/* & 2, the district nbr \*/
char zip_code[5]; /* Zip code for st seg \*/
char DOT_slca; /* DOT St Lght Contractr Are*/
char health_cent[2]; /* Health Center District \*/
char sos_ind; /* Side of Street Indicator \*/
char cont_par; /* Continuous Parity Ind. \*/
char cen_tract_10[6]; /* 2010 Census Tract \*/
char cen_blk_10[4]; /* 2010 Census Block \*/
char cen_blk_10_sufx; /* 2010 Census Block Suffix \*/
char filler_indv; /* Was Instructional Divisn \*/
char filler07[2]; /* Filler \*/
char health_area[4]; /* Health Area \*/
char sanit_recycle[3]; /* Recycling Sanit pick-up \*/
char feature_type; /* Feature Type Code \*/
char iaei; /* Community Development \*/
/* Eligibility Indicator \*/
char curve_flag; /* Curve Flag \*/
char police_boro_com; /* Police Patrol Boro Commnd*/
char police_pre[3]; /* Police Precinct \*/
char com_schl_dist[2]; /* Community School District*/
/* Following 7 fields are \*/
/* used for Function 1E only*/
char ed[3]; /* Election District \*/
char ad[2]; /* Assembly District \*/
char sped_flag; /* Split Elect District Flag*/
char congress_dist[2]; /* Congressional District \*/
char state_sen_dist[2]; /* State Senatorial District*/
char civil_court[2]; /* Civil Court District \*/
char civil_council[2]; /* City Council District \*/
char coincident_seg_cnt; /* Coincident Segment \*/
/* Count \*/
char segtypecode; /* Segment Type Code \*/
char sanit_dist[3]; /* Sanitation District \*/
char sanit_sub_sect[2]; /* Sanit Collect Scheduling \*/
/* Section and Subsection \*/
char fire_divisn[2]; /* Fire Division \*/
char fire_bat[2]; /* Fire Battalion \*/
char fire_co_type; /* Fire Company Type \*/
char fire_co_nbr[3]; /* Fire Company Number \*/
char sagr_flag; /* Special Address Generated*/
/* Record flag \*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
/* Alternative Borough flag \*/
char scsd_flag; /* Split Com School District*/
/* flag \*/
char DCP_lgc[2]; /* DCP preferred LGC \*/
char face_code[4]; /* LION Face Code \*/
char seq_nbr[5]; /* LION Sequence Number \*/
char cen_tract_90[6]; /* 1990 Census Tract \*/
char filler09 [4]; /* Filler \*/
char dynam_blk[3]; /* Dynamic Block \*/
char X_coord[7]; /* X coordinate \*/
char Y_coord[7]; /* Y coordinate \*/
char seg_len[5]; /* Segment Length in Feet \*/
char sanit_reg_sched[5];/* Regularly Sanit pick-up \*/
} C_WA2_F1;
typedef struct { C_WA2_F1 c_wa2_f1; /* First 200 Bytes \*/
char seg_id[7]; /* Segment Identifier \*/
char true_b7sc[8]; /* "true" Boro 7 Str code \*/
char true_hni [6]; /* Underlying HNI \*/
char cen_tract_2000[6]; /* 2000 Census Tract \*/
char cen_blk_2000[4]; /* 2000 Census Block \*/
char cen_blk_2000_sufx; /* 2000 Census Block Suffix \*/
char filler01[68]; /* Filler - Future Use \*/
/* char filler01[79]; /* Filler - Future Use \*/
} C_WA2_F1L;
typedef struct { char lo_hse_nbr[6]; /* Low House nbr in HNI form*/
char filler01[3];
char hi_hse_nbr[6]; /* Hi House Nbr in HNI form \*/
char filler02[3];
char B5SC[6]; /* Boro & 5 digit Str Code \*/
char lgc[2]; /* LGC of Street \*/
char bld_id[7]; /* BIN of address range \*/
char addr_type; /* Address Type \*/
char filler04;
char sos_ind; /* Side of Street Indicator \*/
} ADDR_RANGE;
typedef struct { char sanborn_boro; /* Sanborn Borough Code \*/
char sanborn_vol[3]; /* Sanborn Volume \*/
char sanborn_page[4]; /* Sanborn Page \*/
} SANBORN;
typedef struct { char filler01[21];
char cont_parity_ind; /* Continuous Parity Ind \*/
char lo_hse_nbr[6]; /* Low House Number \*/
char BBL[10]; /* Boro(len=1), Block(len=5)\*/
/* and Lot (len=4) \*/
char tax_lot_ver_nbr; /* Tax Lot Version Number \*/
char RPAD_scc; /* RPAD Self_Check Code(SCC)\*/
char filler02;
char RPAD_lucc[2]; /* RPAD Land Use Class. Code*/
char corner[2]; /* Corner Code \*/
char nbr_blds[2]; /* Nbr of buildings on lot \*/
char nbr_str[2]; /* Nbr Street Frontages \*/
char inter_flag; /* Interior Lot Flag \*/
char vacant_flag; /* Vacant Lot Flag \*/
char irreg_flag; /* Irregularly-Shaped Lot Fl*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
char filler03; /* Former Pseudo-Address Flg*/
char stroll_key[13]; /* Strolling key \*/
char overflow_flag; /* More than 21 Addresses \*/
char res_internal_use; /* Reserved for Internal Use*/
char bld_id[7]; /* Bld Identification Nbr \*/
/* (BIN) of Input Address of*/
/* Existing Building, If any*/
char condo_flag; /* Condominium Flag \*/
char RPAD_cin[4]; /* RPAD Condo Id Number \*/
char condo_lo_BBL[10]; /* Low BBL of Condo \*/
char filler05;
char condo_bill_BBL[10];/* Condo Billing BBL \*/
char filler06;
char condo_bill_BBL_scc;/* Condo Billing BBL \*/
/* Self-Check Code \*/
char condo_hi_BBL[10]; /* High BBL of Condo \*/
char filler07;
SANBORN fn1A_Sanborn; /* Sanborn Information \*/
char business_area[5]; /* Business Area \*/
char co_op_nbr[4 ]; /* Co-op Number \*/
char filler08[4 ];
char tot_nbr_bldgs[4 ]; /* Actual Nbr Bldgs on lot \*/
char tax_map_nbr[5 ]; /* Tax Map Nbr-Sect and Vol \*/
char filler09[04];
char X_coord[7]; /* X coordinate-Annotation p*/
char Y_coord[7]; /* Y coordinate-Annotation p*/
char bid_id[6]; /* Business Improvement Dist*/
char filler10[2];
char int_use[8];
char filler11[2];
char nbr_addr[2]; /* Nbr of Addr Ranges on Lot*/
ADDR_RANGE addr_range[21]; /* Addr Range structure \*/
} C_WA2_F1A;
typedef struct { char filler01[21];
char cont_parity_ind; /* Continuous Parity Ind \*/
char lo_hse_nbr[6]; /* Low House Number \*/
char BBL[10]; /* Boro(len=1), Block(len=5)\*/
/* and Lot (len=4) \*/
char tax_lot_ver_nbr; /* Tax Lot Version Number \*/
char RPAD_scc; /* RPAD Self_Check Code(SCC)\*/
char filler02;
char RPAD_lucc[2]; /* RPAD Land Use Class. Code*/
char corner[2]; /* Corner Code \*/
char nbr_blds[2]; /* Nbr of buildings on lot \*/
char nbr_str[2]; /* Nbr Street Frontages \*/
char inter_flag; /* Interior Lot Flag \*/
char vacant_flag; /* Vacant Lot Flag \*/
char irreg_flag; /* Irregularly-Shaped Lot Fl*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
char filler03; /* Former Pseudo-Address Flg*/
char stroll_key[13]; /* Strolling key \*/
char filler04;
char res_internal_use; /* Reserved for Internal Use*/
char bld_id[7]; /* Bld Identification Nbr \*/
/* (BIN) of Input Address of*/
/* Existing Building, If any*/
char condo_flag; /* Condominium Flag \*/
char RPAD_cin[4]; /* RPAD Condo Id Number \*/
char condo_lo_BBL[10]; /* Low BBL of Condo \*/
char filler05;
char condo_bill_BBL[10];/* Condo Billing BBL \*/
char filler06;
char condo_bill_BBL_scc;/* Condo Billing BBL \*/
/* Self-Check Code \*/
char condo_hi_BBL[10]; /* High BBL of Condo \*/
char filler07;
SANBORN fn1A_Sanborn; /* Sanborn Information \*/
char business_area[5]; /* Business Area \*/
char co_op_nbr[4 ]; /* Co-op number \*/
char filler08[4 ];
char tot_nbr_bldgs[4 ]; /* Actual Nbr Bldgs on lot \*/
char tax_map_nbr[5 ]; /* Tax Map Nbr-Sect and Vol \*/
char filler09[04];
char X_coord[7]; /* X coordinate-Annotation p*/
char Y_coord[7]; /* Y coordinate-Annotation p*/
char bid_id[6]; /* Business Improvement Dist*/
char filler10[2];
char int_use[8];
char nbr_bins[4]; /* Nbr of BINS on Lot \*/
char bin_list[2500][7]; /* List of BINS on Lot \*/
} C_WA2_F1AL;
typedef struct { char filler01[31];
char lgc[2][2]; /* Preferred LGCs \*/
char nbr_x_sts; /* Number of Intersecting St*/
char x_sts[5][4]; /* PB5SCs of Intersection St*/
char compdir[1]; /* Compass Direction if 2 \*/
/* lowest str codes cross \*/
/* exactly twice \*/
char level_codes[10]; /* Level Codes of X Streets \*/
char instruc_div[2]; /* Instructional Division \*/
char fire_sector[2]; /* Fire Sector \*/
char fire_bat[2]; /* Fire Battalion \*/
char fire_co_type; /* Fire Company Type \*/
char fire_co_nbr[3]; /* Fire Company Number \*/
char com_dist[3]; /* Community District \*/
/* Pos 0 contains the Boro \*/
/* Code and Positions 1 & 2 \*/
/* contain the district nbr \*/
char zip_code[5]; /* Zip code for st segment \*/
char DOT_slca; /* DOT St Lght Contractr Are*/
char cen_tract_10[6]; /* 2010 Census Tract \*/
char filler03[3];
char health_area[4]; /* Health Area \*/
char filler04[9];
char node_nbr[7 ]; /* Node Number \*/
char X_coord[7]; /* X coordinate \*/
char Y_coord[7]; /* Y coordinate \*/
char filler04a[2]; /* \*/
char filler05[2];
char police_boro_com; /* Police Patrol Boro Commnd*/
char police_pre[3]; /* Police Precinct \*/
char com_schl_dist[2]; /* Community School District*/
/* Following 7 fields are \*/
/* used forFunction 1E only \*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
char cen_tract_90[6]; /* 1990 Census Tract \*/
SANBORN fn2_Sanborn[2]; /* Sanborn Information \*/
char dup_intersect_distance[5]; /* Distance in Feet*/
/* Bet Duplicate Intersects \*/
char cen_tract_2000[6]; /* 2000 Census Tract \*/
char filler06[27];
/* char filler06[33]; \*/
} C_WA2_F2;
typedef struct { char filler01[21];
char dup_key_flag; /* Duplicate Key Flag \*/
char curve_flag; /* Curve Flag \*/
char loc_stat_seg; /* Locational Status of Seg*/
char cnty_bnd_ind; /* County Boundary Indicat \*/
char coincident_seg_cnt; /* Coincident Segment \*/
/* Count \*/
char filler03[3]; /* Future Use \*/
char lgc[3][2]; /* Preferred LGCs \*/
char lo_nbr_x_sts; /* Nbr of cross sts at low \*/
/* house nbr end of street \*/
char l_x_sts[5][4]; /* PB5SCs of lo end X sts \*/
char hi_nbr_x_sts; /* Number of X streets at lo*/
/* house nbr end of street \*/
char h_x_sts[5][4]; /* PB5SCs of low end X sts \*/
char DOT_slca; /* DOT St Lght Contractr Are*/
char x_street_reversal_flag; /* X St Reversal Flag \*/
char l_com_dist[3]; /* Left Community District \*/
/* Position 0 contains the \*/
/* Boro Code and Pos 1 & 2 \*/
/* contain the district nbr \*/
char r_com_dist[3]; /* Right Community District \*/
/* Position 0 contains the \*/
/* Boro Code and Pos 1 & 2 \*/
/* contain the district nbr \*/
char l_zip_code[5]; /* Left Zip code for st seg \*/
char r_zip_code[5]; /* Right Zip code for st seg*/
char filler07 [18];
char l_health_area[4]; /* Left Health Area \*/
char r_health_area[4]; /* Right Health Area \*/
char l_fill_in_div[2]; /* Was Left Instructionl Div*/
char r_fill_in_div[2]; /* Was Right Instructnl Div \*/
char l_lo_hse_nbr[7]; /* Left Lo Hse nbr in Disp \*/
char l_hi_hse_nbr[7]; /* Left Hi Hse Nbr in Disp \*/
char r_lo_hse_nbr[7]; /* rght Lo Hse nbr in Disply*/
char r_hi_hse_nbr[7]; /* rght Hi Hse Nbr in Disply*/
char cont_par; /* Continuous Parity Ind \*/
char face_code[4]; /* LION Face Code \*/
char seq_nbr[5]; /* LION Sequence Nbr \*/
char genr_flag; /* Generated Record Flag \*/
char seg_len[3]; /* Segment Length in Feet \*/
char seg_azm[3]; /* Segment Azimuth \*/
char seg_orient; /* Segment Orientation \*/
char filler04a[2]; /* \*/
char filler04b[2]; /* \*/
char l_iaei; /* Community Development \*/
/* Eligibility Indicator for*/
/* left side \*/
char r_iaei; /* Community Development \*/
/* Eligibility Indicator for*/
/* right side \*/
char dog_leg; /* Dog Leg Flag \*/
char feature_type; /* Feature Type Code \*/
char l_police_boro_com; /* Lft Police Patrl Boro Com*/
char l_police_pre[3]; /* Left Police Precinct \*/
char r_police_boro_com; /* Rght Police Patrl Boro Cm*/
char r_police_pre[3]; /* Right Police Precinct \*/
char l_com_schl_dist[2];/* Lft Com School District \*/
char r_com_schl_dist[2];/* Rght Com School District \*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
/* Alternative Boro flag \*/
char seg_id[7]; /* Segment Identifier \*/
char segtypecode; /* Segment Type Code \*/
} C_WA2_F3;
typedef struct { C_WA2_F3 c_wa2_f3; /* First 200 Bytes \*/
char l_cen_tract_90[6]; /* Left 1990 Census Tract \*/
char filler01[4]; /* Filler \*/
char l_dynam_blk[3]; /* Left Dynamic Block \*/
char r_cen_tract_90[6]; /* Right 1990 Census Tract \*/
char filler03[4]; /* Filler \*/
char r_dynam_blk[3]; /* Right Dynamic Block \*/
char l_fire_sector[2]; /* Left Fire Sector \*/
char l_fire_bat[2]; /* Left Fire Battalion \*/
char l_fire_co_type; /* Left Fire Company Type \*/
char l_fire_co_nbr[3]; /* Left Fire Company Nbr \*/
char r_fire_sector[2]; /* Right Fire Sector \*/
char r_fire_bat[2]; /* Right Fire Battalion \*/
char r_fire_co_type; /* Right Fire Company Type \*/
char r_fire_co_nbr[3]; /* Right Fire Company Nbr \*/
char l_cen_tract_10[6]; /* Left 2010 Census Tract \*/
char l_cen_blk_10[4]; /* Left 2010 Census Block \*/
char l_cen_blk_10_sufx; /* Left 2010 Census Blk Sufx*/
char r_cen_tract_10[6]; /* Right 2010 Census Tract \*/
char r_cen_blk_10[4]; /* Right 2010 Census Block \*/
char r_cen_blk_10_sufx; /* Right 2010 Census Blk Sfx*/
char nodes[2][7]; /* From and To Nodes \*/
char l_cen_tract_2000[6];/\*Left 2000 Census Tract \*/
char l_cen_blk_2000[4]; /\*Left 2000 Census Block \*/
char l_cen_blk_2000_sufx;/\*Left 2000 Census Blk Sufx\*/
char r_cen_tract_2000[6];/\*Right 2000 Census Tract \*/
char r_cen_blk_2000[4]; /\*Right 2000 Census Block \*/
char r_cen_blk_2000_sufx;/\*Right 2000 Census Blk Sfx*/
// char filler02[22];
} C_WA2_F3L;
typedef struct { char filler01[21];
char curve_flag; /* curve flag \*/
char segtypecode; /* Segment Type Code \*/
char loc_stat_seg; /* Location Status of Seg. \*/
char cnty_bnd_ind; /* County Boundary Indicator*/
char coincident_seg_cnt; /* Coincident Segment \*/
/* Count \*/
char filler0A[3]; /* Future Use \*/
char lgc[3][2]; /* Preferred LGCs \*/
char lo_nbr_x_sts; /* Nbr of cross sts at low \*/
/* house nbr end of street \*/
char l_x_sts[5][4]; /* PB5SCs of lo end cross st*/
char hi_nbr_x_sts; /* Nbr of cross sts at low \*/
/* house nbr end of street \*/
char h_x_sts[5][4]; /* PB5SCs of lo end X sts \*/
char com_dist[3]; /* Community District Pos 0 \*/
/* contains the Boro Code & \*/
/* Positions 1&2 contain the*/
/* district nbr \*/
char zip_code[5]; /* Zip code for street seg \*/
char DOT_slca; /* DOT St Lght Contractr Are*/
char cen_tract_2000[6]; /* 2000 Census Tract \*/
char filler02[1];
// char filler02[7];
char cen_tract_10[6]; /* 2010 Census Tract \*/
char cen_blk_10[4]; /* 2010 Census Block \*/
char cen_blk_10_sufx; /* 2010 Census Block Suffix \*/
char health_area[4]; /* Health Area \*/
char x_street_reversal_flag; /* X St Reversal Flag \*/
char sos_ind; /* Side of Street Indicator \*/
char fire_sector[2]; /* Fire Sector \*/
char fire_bat[2]; /* Fire Battalion \*/
char fire_co_type; /* Fire Company Type \*/
char fire_co_nbr[3]; /* Fire Company Nbr */
char seg_id[7]; /* Segment Identifier */
char lo_hse_nbr[7]; /* Low House nbr in Display */
char hi_hse_nbr[7]; /* High House Nbr in Display*/
char a_lo_hse_nbr[7]; /* Alt. Lo Hse nbr in Disply*/
char a_hi_hse_nbr[7]; /* Alt.Hi Hse Nbr in Display*/
char cont_par; /* Continuous Parity Ind \*/
char face_code[4]; /* LION Face Code \*/
char seq_nbr[5]; /* LION Sequence Nbr \*/
char genr_flag; /* Generated Record Flag \*/
char seg_len[3]; /* Segment Length in Feet \*/
char seg_azm[3]; /* Segment Azimuth \*/
char seg_orient; /* Segment Orientation \*/
char instruc_div[2]; /* Instructional Division \*/
char iaei; /* Community Development \*/
/* Eligibility Indicator \*/
char feature_type; /* Feature Type Code \*/
char police_boro_com; /* Police Patrol Boro Com. \*/
char police_pre[3]; /* Police Precinct \*/
char com_schl_dist[2]; /* Community School District*/
char mh_ri_flag; /* Marble Hill/Rikers Island*/
/* Alternative Boro flag \*/
char cen_tract_90[6]; /* 1990 Census Tract \*/
char filler03[4]; /* Filler \*/
char dynam_blk[3]; /* Dynamic Block \*/
char cen_blk_2000[4]; /* 2000 Census Block \*/
char cen_blk_2000_sufx; /* 2000 Census Block Suffix \*/
// char filler06[5];
} C_WA2_F3C;
typedef struct { char lo_x_PB5SC[4]; /* Lowest PB5SC at Intersect*/
char lo2x_PB5SC[4]; /* 2nd Lowest PB5SC at Inter*/
char len[3]; /* Len in ft from prev node \*/
char gap_flag; /* Gap Flag \*/
} CROSS_STRS;
typedef struct { char filler01[21];
char nbr_x_str[3]; /* Nbr of X sts in list \*/
CROSS_STRS cross_strs[350];/* Cross Street structure*/
} C_WA2_F3S;
NATURAL LDAs (MSW)
\* USER PROGRAMS MUST RESET GEOLW1 BEFORE PRIMING WORKAREA 1
1 GEOLW1 /* LRECL=200
\* THE FIELD W1NAT IS USED AS A PARAMETER TO CALL GEOSUPPORT RT
2 W1NAT A 2
R 2 W1NAT
\* * * * * INPUT FIELDS * * * * * * * * * * /* WORK AREA 1 FOR
\* * /* ALL FUNCTIONS
3 GEO-WA1-IN-FUNCTION-CODE A 2
R 3 GEO-WA1-IN-FUNCTION-CODE
4 GEO-WA1-IN-FUNCTION-1 A 1
4 GEO-WA1-IN-FUNCTION-2 A 1
2 GEO-WA1-IN-BORO A 1
2 GEO-WA1-IN-HOUSENUM A 12 /* FOR FCT 5, INPUT HIGH HSE NUM
2 GEO-WA1-IN-HOUSENUM-INTERNAL A 6 /* FOR FCT 5, INPUT HIGH HSE NUM
2 GEO-WA1-IN-STREET-1 A 32
2 GEO-WA1-IN-STREET-2 A 32
2 GEO-WA1-IN-STREET-3 A 32
2 GEO-WA1-IN-COMPASS A 1
2 GEO-WA1-IN-COMPASS2 A 1
2 GEO-WA1-IN-STREETCODE-1 P 6
2 GEO-WA1-IN-STREETCODE-2 P 6
2 GEO-WA1-IN-STREETCODE-3 P 6
2 GEO-WA1-IN-ROADBED-REQ-SWITCH-SF A 1
2 GEO-WA1-IN-BORO-2 A 1
2 GEO-WA1-IN-BORO-3 A 1
2 GEO-WA1-IN-SNL A 2
2 GEO-WA1-IN-10SC-1 A 11
2 GEO-WA1-IN-10SC-2 A 11
2 GEO-WA1-IN-10SC-3 A 11
2 GEO-WA1-IN-ZIPCODE A 5
2 GEO-WA1-IN-BBL A 10
R 2 GEO-WA1-IN-BBL
3 GEO-WA1-IN-BBL-BORO A 1
3 GEO-WA1-IN-BLOCKNUM A 5
3 GEO-WA1-IN-LOTNUM A 4
2 FILLER-WA1-10 A 1
2 GEO-WA1-IN-BIN A 7
2 GEO-WA1-IN-COMPACT-NAME-FLAG A 1 /* TO REQUEST THE COMPACT NAMES
\* OPTION,
\* MOVE 'C' TO THIS FIELD.
\*
2 GEO-WA1-IN-LONG-WORKAREA2-FLAG A 1 /* TO REQUEST THE LONG WORKAREA
\* OPTION,
\* MOVE 'L' TO THIS FIELD.
\* ONLY FCT 3 HAS THIS OPTION.
\*
2 GEO-WA1-IN-LOW-HOUSENUM A 12
2 GEO-WA1-IN-LOW-HSENUM-INTERNAL A 6
2 GEO-WA1-IN-NON-IBM-MAIN-FRAME A 1 /* NOT IMPLEMENTED
\* FOR ANY APPLICATION RUNNING
\* ON NON-IBM MAINFRAM,
\* MOVE 'X' TO THIS FIELD.
\*
2 GEO-WA1-IN-1ABL-VERSION A 1 /* FOR FCT 1A & BL, TO REQUEST
\* THE STANDARD WA2 FORMAT, SET
\* THIS FIELD TO 'S'. TO REQUEST
\* THE LEGACY WA2 FORMAT, SET
\* THIS FILED TO ' ' OR 'L'.
\*
2 GEO-WA1-IN-XSTREET-FLAG A 1
2 FILLER-WA1-100 A 4
\* * * * * OUTPUT FIELDS * * * * *
2 GEO-WA1-OUT-LOW-HOUSENUM A 12
2 GEO-WA1-OUT-BORONAME A 9
2 GEO-WA1-OUT-STREET-1 A 32
2 GEO-WA1-OUT-STREET-2 A 32
2 GEO-WA1-OUT-STREET-3 A 32
2 GEO-WA1-OUT-HOUSENUM A 12 /* HI HND
2 GEO-WA1-OUT-HOUSENUM-INTERNAL A 6
2 FILLER-WA1-200 A 7
2 GEO-WA1-OUT-PB5SC-1 P 6 /* 4 BYTES
R 2 GEO-WA1-OUT-PB5SC-1
3 GEO-WA1-OUT-PACKBORO-NOSIGN-1 N 1
3 GEO-WA1-OUT-STREETCODE-1-KEY P 5 /* 3 BYTES
2 FILLER-WA1-210 A 2
2 GEO-WA1-OUT-PB5SC-2 P 6 /* 4 BYTES
R 2 GEO-WA1-OUT-PB5SC-2
3 GEO-WA1-OUT-PACKBORO-NOSIGN-2 N 1
3 GEO-WA1-OUT-STREETCODE-2-KEY P 5 /* 3 BYTES
2 FILLER-WA1-220 A 2
2 GEO-WA1-OUT-PB5SC-3 P 6 /* 4 BYTES
R 2 GEO-WA1-OUT-PB5SC-3
3 GEO-WA1-OUT-PACKBORO-NOSIGN-3 N 1
3 GEO-WA1-OUT-STREETCODE-3-KEY P 5 /* 3 BYTES
2 GEO-WA1-OUT-STREET-ATTR A 1 (1:3) /* INTERNAL USE
2 GEO-WA1-BROWSE A 40
2 GEO-WA1-OUT-10SC-1 A 11
2 GEO-WA1-OUT-10SC-2 A 11
2 GEO-WA1-OUT-10SC-3 A 11
2 GEO-WA1-OUT-CUI A 5 /* NOT IMPLEMENTED
2 GEO-WA1-OUT-BBL A 10
R 2 GEO-WA1-OUT-BBL
3 GEO-WA1-OUT-BBL-BORO A 1
3 GEO-WA1-OUT-BLOCKNUM A 5
3 GEO-WA1-OUT-LOTNUM A 4
2 FILLER-WA1-240 A 1
2 GEO-WA1-OUT-BIN A 7
2 GEO-WA1-OUT-SND-ATTR A 1 /* DCP/GSS USE
2 GEO-WA1-OUT-REASON-CODE A 1
2 FILLER-WA1-400 A 2 /* INTERNAL USE
2 GEO-WA1-OUT-RETURN-CODE A 2
R 2 GEO-WA1-OUT-RETURN-CODE
3 GEO-WA1-OUT-RC-1 A 1
3 GEO-WA1-OUT-RC-2 A 1
2 GEO-WA1-OUT-ERROR-MESSAGE A 80
2 GEO-WA1-OUT-NUM-SIMILAR-NAMES P 3
2 GEO-WA1-OUT-SIMILAR-NAMES A 32 (1:10)
1 GEOLW2
* THE FIELD W2NAT IS USED AS A PARAMETER TO CALL GEOSUPPORT FOR ALLLL
* FUNCTIONS THAT ARE REDEFINED ON GEOLW2
2 W2NAT A 21
R 2 W2NAT
* * BEGINNING OF FUNCTION 1 LAYOUT * **** *******
3 GEO-WA2-FN1-ACCESS-KEY A 21
2 GEO-WA2-FN1-CONT-PARITY A 1
2 GEO-WA2-FN1-LOW-HOUSENUM-INT A 6
R 2 GEO-WA2-FN1-LOW-HOUSENUM-INT
3 GEO-WA2-FN1-LOW-HOUSENUM A 5
3 GEO-WA2-FN1-LOW-HOUSENUMSFX A 1
2 GEO-WA2-FN1-HI-HOUSENUM-INT A 6
R 2 GEO-WA2-FN1-HI-HOUSENUM-INT
3 GEO-WA2-FN1-HI-HOUSENUM A 5
3 GEO-WA2-FN1-HI-HOUSENUMSFX A 1
2 GEO-WA2-FN1-ALX A 1 /\*ALLEYS INTERSECT SEGMENT
2 GEO-WA2-FN1-NUM-X-ST-LOW-END N 1
2 GEO-WA2-FN1-LOW-PBSC P 6 (1:5) /* 4 BYTES X 5 = 20
2 GEO-WA2-FN1-NUM-X-ST-HI-END N 1
2 GEO-WA2-FN1-HI-PBSC P 6 (1:5)
2 GEO-WA2-FN1-COMDIST A 3
R 2 GEO-WA2-FN1-COMDIST
3 GEO-WA2-FN1-COMDIST-BORO A 1
3 GEO-WA2-FN1-COMDIST-NUM A 2
2 GEO-WA2-FN1-ZIP A 5
2 GEO-WA2-FN1-SLA A 1
2 GEO-WA2-FN1-HCD A 2
2 GEO-WA2-FN1-SOS A 1
2 GEO-WA2-FN1-CONT-PARITY-IND A 1
2 GEO-WA2-FN1-2010-CENSUSTRACT A 6
2 GEO-WA2-FN1-2010-CENSUSBLOCK A 4
2 GEO-WA2-FN1-2010-CENSUSBLKSFX A 1
2 GEO-WA2-FN1-FILLER_INDV A 1
2 FILLER-WA2-260 A 2
2 GEO-WA2-FN1-HEALTHAREA A 4
2 GEO-WA2-FN1-SANI-REC A 3
2 GEO-WA1-FN1-FEATURE-TYPE A 1
2 GEO-WA2-FN1-RESDCP A 1 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-FN1-CURVE-FLAG A 1
2 GEO-WA2-FN1-POLICEDIST A 4
R 2 GEO-WA2-FN1-POLICEDIST
3 GEO-WA2-FN1-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN1-POL-PRECINCT A 3
2 GEO-WA2-FN1-SCHOOLDIST A 2
2 FILLER-WA2-250 A 15
2 GEO-WA2-FN1-SEGMENT-TYPE A 1
2 GEO-WA2-FN1-SANIDIST A 3
R 2 GEO-WA2-FN1-SANIDIST
3 GEO-WA2-FN1-SANIDIST-BORO A 1
3 GEO-WA2-FN1-SANIDIST-NUM A 2
2 GEO-WA2-FN1-SANITATION-SUBSEC A 2
2 GEO-WA2-FN1-FIRESEC A 2 /* FIRE DIVISION
2 GEO-WA2-FN1-FIREBAT A 2
2 GEO-WA2-FN1-FIRECO A 4
R 2 GEO-WA2-FN1-FIRECO
3 GEO-WA2-FN1-FIRECO-TYPE A 1
3 GEO-WA2-FN1-FIRECO-NUM A 3
2 GEO-WA2-FN1-SPECIAL-ADDR-FLAG A 1
2 GEO-WA2-FN1-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-FN1-SPLIT-SCHOOL-FLAG A 1
2 GEO-WA2-FN1-PREFERRED-LGC A 2
2 GEO-WA2-FN1-LIONFACECODE A 4
2 GEO-WA2-FN1-LIONSEQ A 5
2 GEO-WA2-FN1-1990-CENSUSTRACT A 6
2 FILLER-WA2-260B A 4
2 GEO-WA2-FN1-DYN-BLOCK A 3
2 GEO-WA2-FN1-XCOORD A 7
2 GEO-WA2-FN1-YCOORD A 7
2 GEO-WA2-FN1-SEGMENTLENGTH A 5
2 GEO-WA2-FN1-SANI-REG A 5
* * END OF FUNCTION 1 LAYOUT * **** *******
* - -------------------------------- - ---- ---------------------------
* * BEGINNING OF FUNCTION 2 LAYOUT * **** *******
R 1 GEOLW2
2 GEO-WA2-FN2-ACCESS-KEY A 21 /\*FCT 2,2C SHARE SAME WA2 LAYO
2 GEO-WA2-FN2-DUPINTERFLAG A 1 /*
2 FILLER-WA2-270 A 9
2 GEO-WA2-FN2-PREFERRED-LGC1 A 2
2 GEO-WA2-FN2-PREFERRED-LGC2 A 2
2 GEO-WA2-FN2-NUM-OF-INTERSECTS N 1
2 GEO-WA2-FN2-INTERSECT-PBSC P 6 (1:5)
2 GEO-WA2-FN2-COMPDIR A 1
2 GEO-WA2-FN2-LEVEL-CODES-TBL A 10
R 2 GEO-WA2-FN2-LEVEL-CODES-TBL
3 GEO-WA2-FN2-LEVEL-CODES A 1 (5,2)
2 GEO-WA2-FN2-INSTRUCT-REG A 2
2 GEO-WA2-FN2-FIRESEC A 2
2 GEO-WA2-FN2-FIREBAT A 2
2 GEO-WA2-FN2-FIRECO A 4
R 2 GEO-WA2-FN2-FIRECO
3 GEO-WA2-FN2-FIRECO-TYPE A 1
3 GEO-WA2-FN2-FIRECO-NUM A 3
2 GEO-WA2-FN2-COMDIST A 3
R 2 GEO-WA2-FN2-COMDIST
3 GEO-WA2-FN2-COMDIST-BORO A 1
3 GEO-WA2-FN2-COMDIST-NUM A 2
2 GEO-WA2-FN2-ZIP A 5
2 GEO-WA2-FN2-SLA A 1
2 GEO-WA2-FN2-2010-CENSUSTRACT A 6
2 FILLER-WA2-290 A 3
2 GEO-WA2-FN2-HEALTHAREA A 4
2 FILLER-WA2-300 A 9
2 GEO-WA2-FN2-LIONNODENUM A 7
2 GEO-WA2-FN2-XCOORD A 7
2 GEO-WA2-FN2-YCOORD A 7
2 FILLER-WA2-320 A 4
2 GEO-WA2-FN2-POLICEDIST A 4
R 2 GEO-WA2-FN2-POLICEDIST
3 GEO-WA2-FN2-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN2-POL-PRECINCT A 3
2 GEO-WA2-FN2-SCHOOLDIST A 2
2 GEO-WA2-FN2-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-FN2-1990-CENSUSTRACT A 6
2 GEO-WA2-FN2-SANBORN1-BVOLPAGE A 8
R 2 GEO-WA2-FN2-SANBORN1-BVOLPAGE
3 GEO-WA2-FN2-SANBORN1-BORO A 1
3 GEO-WA2-FN2-SANBORN1-VOLPAGE A 7
R 3 GEO-WA2-FN2-SANBORN1-VOLPAGE
4 GEO-WA2-FN2-SANBORN1-VOL-NUM A 3
4 GEO-WA2-FN2-SANBORN1-PAGE-NUM A 4
2 GEO-WA2-FN2-SANBORN2-BVOLPAGE A 8
R 2 GEO-WA2-FN2-SANBORN2-BVOLPAGE
3 GEO-WA2-FN2-SANBORN2-BORO A 1
3 GEO-WA2-FN2-SANBORN2-VOLPAGE A 7
R 3 GEO-WA2-FN2-SANBORN2-VOLPAGE
4 GEO-WA2-FN2-SANBORN2-VOL-NUM A 3
4 GEO-WA2-FN2-SANBORN2-PAGE-NUM A 4
2 GEO-WA2-FN2-DUP-INTRSCT-DISTNCE A 5
2 GEO-WA2-FN2-2000-CENSUSTRACT A 6
2 FILLER-WA2-330 A 27
* * END OF FUNCTION 2 LAYOUT * **** *******
* - -------------------------------- - ---- ------------------------------
* * BEGINNING OF FUNCTION 3 LAYOUT * **** *******
R 1 GEOLW2
2 GEO-WA2-FN3-ACCESS-KEY A 21
2 GEO-WA2-FN3-DUP-KEY-FLAG A 1 /* OR FN3 CONTI PARITY
2 GEO-WA2-FN3-CURVE-FLAG A 1
2 GEO-WA2-FN3-LOCATION-STATUS A 1
2 GEO-WA2-FN3-COUNTY-BOUNDARY A 1
2 FILLER-WA2-340 A 4
2 GEO-WA2-FN3-PREFERRED-LGC1 A 2
2 GEO-WA2-FN3-PREFERRED-LGC2 A 2
2 GEO-WA2-FN3-PREFERRED-LGC3 A 2
2 GEO-WA2-FN3-NUM-X-ST-LOW-END N 1
2 GEO-WA2-FN3-LOW-PBSC P 6 (1:5)
2 GEO-WA2-FN3-NUM-X-ST-HI-END N 1
2 GEO-WA2-FN3-HI-PBSC P 6 (1:5)
2 GEO-WA2-FN3-SLA A 1
2 GEO-WA2-FN3-REVERSALFLAG A 1
2 GEO-WA2-FN3-LEFT-COMDIST A 3
R 2 GEO-WA2-FN3-LEFT-COMDIST
3 GEO-WA2-FN3-LEFT-COMDIST-BORO A 1
3 GEO-WA2-FN3-LEFT-COMDIST-NUM A 2
2 GEO-WA2-FN3-RIGHT-COMDIST A 3
R 2 GEO-WA2-FN3-RIGHT-COMDIST
3 GEO-WA2-FN3-RIGHT-COMDIST-BORO A 1
3 GEO-WA2-FN3-RIGHT-COMDIST-NUM A 2
2 GEO-WA2-FN3-LEFT-ZIP A 5
2 GEO-WA2-FN3-RIGHT-ZIP A 5
2 FILLER-WA2-350A A 18
2 GEO-WA2-FN3-LEFT-HEALTHAREA A 4
2 GEO-WA2-FN3-RIGHT-HEALTHAREA A 4
2 GEO-WA2-FN3-LEFT-INSTRUCT-REG A 2
2 GEO-WA2-FN3-RIGHT-INSTRUCT-REG A 2
2 GEO-WA2-FN3-LEFT-LOW-HOUSENUM A 7
2 GEO-WA2-FN3-LEFT-HI-HOUSENUM A 7
2 GEO-WA2-FN3-RIGHT-LOW-HOUSENUM A 7
2 GEO-WA2-FN3-RIGHT-HI-HOUSENUM A 7
2 GEO-WA2-FN3-CONT-PARITY-IND A 1
2 GEO-WA2-FN3-LIONFACECODE A 4
2 GEO-WA2-FN3-LIONSEQ A 5
2 GEO-WA2-FN3-GENRECFLAG A 1
2 GEO-WA2-FN3-SEGMENTLENGTH P 5
2 GEO-WA2-FN3-SEGMENTSLOPE A 3
2 GEO-WA2-FN3-SEGMENTORIENT A 1
2 FILLER-WA2-355 A 4
2 GEO-WA2-FN3-RESSDCP A 2 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-FN3-DOG-LEG A 1
2 GEO-WA2-FN3-FEATURE-TYPE A 1
2 GEO-WA2-FN3-LEFT-POLICEDIST A 4
R 2 GEO-WA2-FN3-LEFT-POLICEDIST
3 GEO-WA2-FN3-L-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN3-LEFT-POL-PRECINCT A 3
2 GEO-WA2-FN3-RIGHT-POLICEDIST A 4
R 2 GEO-WA2-FN3-RIGHT-POLICEDIST
3 GEO-WA2-FN3-R-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN3-RIGHT-POL-PRECINCT A 3
2 GEO-WA2-FN3-LEFT-SCHOOLDIST A 2
2 GEO-WA2-FN3-RIGHT-SCHOOLDIST A 2
2 GEO-WA2-FN3-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-FN3-SEGMENT-ID A 7
2 GEO-WA2-FN3-SEGMENT-TYPE A 1
* * END OF FUNCTION 3 LAYOUT **** ********
* - -------------------------------- - ---- ------------------------------
* * BEGINNING OF FUNCTION 3C LAYOUT **** ********
R 1 GEOLW2
2 GEO-WA2-FN3C-ACCESS-KEY A 21
2 GEO-WA2-FN3C-CURVE-FLAG A 1
2 GEO-WA2-FN3C-SEGMENT-TYPE A 1
2 GEO-WA2-FN3C-LOCATION-STATUS A 1
2 GEO-WA2-FN3C-COUNTY-BOUNDARY A 1
2 FILLER-WA2-380 A 4
2 GEO-WA2-FN3C-PREFERRED-LGC1 A 2
2 GEO-WA2-FN3C-PREFERRED-LGC2 A 2
2 GEO-WA2-FN3C-PREFERRED-LGC3 A 2
2 GEO-WA2-FN3C-NUM-X-ST-LOW-END N 1
2 GEO-WA2-FN3C-LOW-PBSC P 6 (1:5)
2 GEO-WA2-FN3C-NUM-X-ST-HI-END N 1
2 GEO-WA2-FN3C-HI-PBSC P 6 (1:5)
2 GEO-WA2-FN3C-COMDIST A 3
R 2 GEO-WA2-FN3C-COMDIST
3 GEO-WA2-FN3C-COMDIST-BORO A 1
3 GEO-WA2-FN3C-COMDIST-NUM A 2
2 GEO-WA2-FN3C-ZIP A 5
2 GEO-WA2-FN3C-SLA A 1
2 GEO-WA2-FN3C-2000-CENSUSTRACT A 6
2 FILLER-WA2-390 A 1
2 GEO-WA2-FN3C-2010-CENSUSTRACT A 6
2 GEO-WA2-FN3C-2010-CENSUSBLOCK A 4
2 GEO-WA2-FN3C-2010-CENSUSBLKSFX A 1 /* NOT IMPLEMENTED \*/
2 GEO-WA2-FN3C-HEALTHAREA A 4
2 GEO-WA2-FN3C-REVERSALFLAG A 1
2 GEO-WA2-FN3C-SOS A 1
2 GEO-WA2-FN3C-FIRESEC A 2
2 GEO-WA2-FN3C-FIREBAT A 2
2 GEO-WA2-FN3C-FIRECO A 4
R 2 GEO-WA2-FN3C-FIRECO
3 GEO-WA2-FN3C-FIRECO-TYPE A 1
3 GEO-WA2-FN3C-FIRECO-NUM A 3
2 GEO-WA2-FN3C-SEGMENT-ID A 7
2 GEO-WA2-FN3C-LOW-HOUSENUM A 7
2 GEO-WA2-FN3C-HI-HOUSENUM A 7
2 GEO-WA2-FN3C-LOW-HOUSENUM2 A 7 /* HOUSENUM2 ONLY PRESENT IF
2 GEO-WA2-FN3C-HI-HOUSENUM2 A 7 /* ODD & EVEN ARE ON SAME SIDE
2 GEO-WA2-FN3C-CONT-PARITY-IND A 1
2 GEO-WA2-FN3C-LIONFACECODE A 4
2 GEO-WA2-FN3C-LIONSEQ A 5
2 GEO-WA2-FN3C-GENRECFLAG A 1
2 GEO-WA2-FN3C-SEGMENTLENGTH P 5
2 GEO-WA2-FN3C-SEGMENTSLOPE A 3
2 GEO-WA2-FN3C-SEGMENTORIENT A 1
2 FILLER-WA2-408 A 2
2 GEO-WA2-FN3C-RESDCP A 1 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-FN3C-FEATURE-TYPE A 1
2 GEO-WA2-FN3C-POLICEDIST A 4
R 2 GEO-WA2-FN3C-POLICEDIST
3 GEO-WA2-FN3C-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN3C-POL-PRECINCT A 3
2 GEO-WA2-FN3C-SCHOOLDIST A 2
2 GEO-WA2-FN3C-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-FN3C-1990-CENSUSTRACT A 6
2 FILLER-WA2-410B A 4
2 GEO-WA2-FN3C-DYN-BLOCK A 3
2 GEO-WA2-FN3C-2000-CENSUSBLOCK A 4
2 GEO-WA2-FN3C-2000-CENSUSBLKSFX A 1
\* * END OF FUNCTION 3C LAYOUT * **** *******
\* - -------------------------------- - ---- ------------------------------
\* * BEGINNING OF FUNCTION 1E LAYOUT * **** *******
R 1 GEOLW2
2 GEO-WA2-FN1E-ACCESS-KEY A 21
2 GEO-WA2-FN1E-CONT-PARITY A 1
2 GEO-WA2-FN1E-LOW-HOUSENUM-INT A 6
R 2 GEO-WA2-FN1E-LOW-HOUSENUM-INT
3 GEO-WA2-FN1E-LOW-HOUSENUM A 5
3 GEO-WA2-FN1E-LOW-HOUSENUMSFX A 1 /* NOT IMPLEMENTED
2 GEO-WA2-FN1E-HI-HOUSENUM-INT A 6
R 2 GEO-WA2-FN1E-HI-HOUSENUM-INT
3 GEO-WA2-FN1E-HI-HOUSENUM A 5
3 GEO-WA2-FN1E-HI-HOUSENUMSFX A 1 /* NOT IMPLEMENTED
2 FILLER-WA2-435 A 1
2 GEO-WA2-FN1E-NUM-X-ST-LOW-END N 1
2 GEO-WA2-FN1E-LOW-PBSC P 6 (1:5)
2 GEO-WA2-FN1E-NUM-X-ST-HI-END N 1
2 GEO-WA2-FN1E-HI-PBSC P 6 (1:5)
2 GEO-WA2-FN1E-COMDIST A 3
R 2 GEO-WA2-FN1E-COMDIST
3 GEO-WA2-FN1E-COMDIST-BORO A 1
3 GEO-WA2-FN1E-COMDIST-NUM A 2
2 GEO-WA2-FN1E-ZIP A 5
2 GEO-WA2-FN1E-SLA A 1
2 GEO-WA2-FN1E-HCD A 2
2 GEO-WA2-FN1E-SOS A 1
2 GEO-WA2-FN1E-CONT-PARITY-IND A 1
2 GEO-WA2-FN1E-2010-CENSUSTRACT A 6
2 GEO-WA2-FN1E-2010-CENSUSBLOCK A 4
2 GEO-WA2-FN1E-2010-CENSUSBLKSFX A 1
2 FILLER-WA2-FN1E-FILLER-INDV A 1
2 FILLER-WA2-440 A 2
2 GEO-WA2-FN1E-HEALTHAREA A 4
2 GEO-WA2-FN1E-SANI-REC A 3
2 GEO-WA2-FN1E-FEATURE-TYPE A 1
2 GEO-WA2-FN1E-RESDCP A 1 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-FN1E-CURVE-FLAG A 1
2 GEO-WA2-FN1E-POLICEDIST A 4
R 2 GEO-WA2-FN1E-POLICEDIST
3 GEO-WA2-FN1E-POL-PATR-BORO-CMD A 1
3 GEO-WA2-FN1E-POL-PRECINCT A 3
2 GEO-WA2-FN1E-SCHOOLDIST A 2
2 GEO-WA2-FN1E-ELECTDIST A 3
2 GEO-WA2-FN1E-ASSEMDIST A 2
2 GEO-WA2-FN1E-SPLIT-ED-FLAG A 1
2 GEO-WA2-FN1E-CONGDIST A 2
2 GEO-WA2-FN1E-SENATEDIST A 2
2 GEO-WA2-FN1E-COURTDIST A 2
2 GEO-WA2-FN1E-COUNCILDIST A 2
2 FILLER-WA2-470 A 2
2 GEO-WA2-FN1E-SANIDIST A 3
R 2 GEO-WA2-FN1E-SANIDIST
3 GEO-WA2-FN1E-SANIDIST-BORO A 1
3 GEO-WA2-FN1E-SANIDIST-NUM A 2
2 GEO-WA2-FN1E-SANITATION-SUBSEC A 2
2 GEO-WA2-FN1E-FIRESEC A 2
2 GEO-WA2-FN1E-FIREBAT A 2
2 GEO-WA2-FN1E-FIRECO A 4
R 2 GEO-WA2-FN1E-FIRECO
3 GEO-WA2-FN1E-FIRECO-TYPE A 1
3 GEO-WA2-FN1E-FIRECO-NUM A 3
2 GEO-WA2-FN1E-SPECIAL-ADDR-FLAG A 1
2 GEO-WA2-FN1E-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-FN1E-SPLIT-SCHOOL-FLAG A 1
2 GEO-WA2-FN1E-PREFERRED-LGC A 2
2 GEO-WA2-FN1E-LIONFACECODE A 4
2 GEO-WA2-FN1E-LIONSEQ A 5
2 GEO-WA2-FN1E-1990-CENSUSTRACT A 6
2 FILLER-WA2-480B A 4
2 GEO-WA2-FN1E-DYN-BLOCK A 3
2 GEO-WA2-FN1E-XCOORD A 7
2 GEO-WA2-FN1E-YCOORD A 7
2 GEO-WA2-FN1E-SEGMENTLENGTH A 5
2 GEO-WA2-FN1E-SANI-REG A 5
\* * END OF FUNCTION 1E LAYOUT * **** *******
\* - -------------------------------- - ---- ------------------------------
\* * BEGINNING OF FUNCTION 5 LAYOUT * **** *******
R 1 GEOLW2
2 GEO-WA2-FN5-ADDR-MATCHING-KEY A 28
2 FILLER-WA2-490 A 172
\* * END OF FUNCTION 5 LAYOUT * **** *******
\* - -------------------------------- - ---- ------------------------------
1 GEOLW2L
\* * THE FIELD W2NATL IS USED AS A PARAMETER TO CALL GEOSUPPORT
2 W2NATL A 21
R 2 W2NATL
\* * BEGINNING OF FUNCTION 1 LONG WORKAREA LAYOUT ******
3 GEO-WA2-1L-ACCESS-KEY A 21
2 GEO-WA2-1L-CONT-PARITY A 1
2 GEO-WA2-1L-LOW-HOUSENUM-INT A 6
R 2 GEO-WA2-1L-LOW-HOUSENUM-INT
3 GEO-WA2-1L-LOW-HOUSENUM A 5
3 GEO-WA2-1L-LOW-HOUSENUMSFX A 1
2 GEO-WA2-1L-HI-HOUSENUM-INT A 6
R 2 GEO-WA2-1L-HI-HOUSENUM-INT
3 GEO-WA2-1L-HI-HOUSENUM A 5
3 GEO-WA2-1L-HI-HOUSENUMSFX A 1
2 FILLER-WA2-215 A 1
2 GEO-WA2-1L-NUM-X-ST-LOW-END N 1
2 GEO-WA2-1L-LOW-PBSC P 6 (1:5)
2 GEO-WA2-1L-NUM-X-ST-HI-END N 1
2 GEO-WA2-1L-HI-PBSC P 6 (1:5)
2 GEO-WA2-1L-COMDIST A 3
R 2 GEO-WA2-1L-COMDIST
3 GEO-WA2-1L-COMDIST-BORO A 1
3 GEO-WA2-1L-COMDIST-NUM A 2
2 GEO-WA2-1L-ZIP A 5
2 GEO-WA2-1L-SLA A 1
2 GEO-WA2-1L-HCD A 2
2 GEO-WA2-1L-SOS A 1
2 GEO-WA2-1L-CONT-PARITY-IND A 1
2 GEO-WA2-1L-2010-CENSUSTRACT A 6
2 GEO-WA2-1L-2010-CENSUSBLOCK A 4
2 GEO-WA2-1L-2010-CENSUSBLKSFX A 1
2 FILLER-1L-INDV A 1
2 FILLER-1L-260 A 2
2 GEO-WA2-1L-HEALTHAREA A 4
2 GEO-WA2-1L-SANI-REC A 3
2 GEO-WA2-1L-FEATURE-TYPE A 1
2 GEO-WA2-1L-RESDCP A 1 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-1L-CURVE-FLAG A 1
2 GEO-WA2-1L-POLICEDIST A 4
R 2 GEO-WA2-1L-POLICEDIST
3 GEO-WA2-1L-POL-PATR-BORO-CMD A 1
3 GEO-WA2-1L-POL-PRECINCT A 3
2 GEO-WA2-1L-SCHOOLDIST A 2
2 FILLER-WA2-250 A 16 /* 1E POL DIST
2 GEO-WA2-1L-SANIDIST A 3
R 2 GEO-WA2-1L-SANIDIST
3 GEO-WA2-1L-SANIDIST-BORO A 1
3 GEO-WA2-1L-SANIDIST-NUM A 2
2 GEO-WA2-1L-SANITATION-SUBSEC A 2
2 GEO-WA2-1L-FIRESEC A 2 /* FIRE DIVISION
2 GEO-WA2-1L-FIREBAT A 2
2 GEO-WA2-1L-FIRECO A 4
R 2 GEO-WA2-1L-FIRECO
3 GEO-WA2-1L-FIRECO-TYPE A 1
3 GEO-WA2-1L-FIRECO-NUM A 3
2 GEO-WA2-1L-SPECIAL-ADDR-FLAG A 1
2 GEO-WA2-1L-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-1L-SPLIT-SCHOOL-FLAG A 1
2 GEO-WA2-1L-PREFERRED-LGC A 2
2 GEO-WA2-1L-LIONFACECODE A 4
2 GEO-WA2-1L-LIONSEQ A 5
2 GEO-WA2-1L-1990-CENSUSTRACT A 6
2 FILLER-WA2-260B A 4
2 GEO-WA2-1L-DYN-BLOCK A 3
2 GEO-WA2-1L-XCOORD A 7
2 GEO-WA2-1L-YCOORD A 7
2 GEO-WA2-1L-SEGMENTLENGTH A 5
2 GEO-WA2-1L-SANI-REG A 5
2 GEO-WA2-1L-SEGMENT-ID A 7
2 GEO-WA2-1L-TRUE-B7SC A 8
2 GEO-WA2-1L-UNDERLY-HOUSENUM-INT A 6
R 2 GEO-WA2-1L-UNDERLY-HOUSENUM-INT
3 GEO-WA2-1L-UNDERLY-HOUSENUM A 5
3 GEO-WA2-1L-UNDERLY-HOUSENUMSFX A 1
2 GEO-WA2-1L-2000-CENSUSTRACT A 6
2 GEO-WA2-1L-2000-CENSUSBLOCK A 4
2 GEO-WA2-1L-2000-CENSUSBLKSFX A 1
2 FILLER-WA2-260C A 68
\* * END OF FUNCTION 1 LONG WORKAREA LAYOUT ******
\* - -------------------------------- - ---- ----------------------------
\* * BEGINNING OF FUNCTION 1E LONG WORKAREA LAYOUT ******
R 1 GEOLW2L
2 GEO-WA2-1EL-ACCESS-KEY A 21
2 GEO-WA2-1EL-CONT-PARITY A 1
2 GEO-WA2-1EL-LOW-HOUSENUM-INT A 6
R 2 GEO-WA2-1EL-LOW-HOUSENUM-INT
3 GEO-WA2-1EL-LOW-HOUSENUM A 5
3 GEO-WA2-1EL-LOW-HOUSENUMSFX A 1 /* NOT IMPLEMENTED
2 GEO-WA2-1EL-HI-HOUSENUM-INT A 6
R 2 GEO-WA2-1EL-HI-HOUSENUM-INT
3 GEO-WA2-1EL-HI-HOUSENUM A 5
3 GEO-WA2-1EL-HI-HOUSENUMSFX A 1 /* NOT IMPLEMENTED
2 FILLER-WA2-435 A 1
2 GEO-WA2-1EL-NUM-X-ST-LOW-END N 1
2 GEO-WA2-1EL-LOW-PBSC P 6 (1:5)
2 GEO-WA2-1EL-NUM-X-ST-HI-END N 1
2 GEO-WA2-1EL-HI-PBSC P 6 (1:5)
2 GEO-WA2-1EL-COMDIST A 3
R 2 GEO-WA2-1EL-COMDIST
3 GEO-WA2-1EL-COMDIST-BORO A 1
3 GEO-WA2-1EL-COMDIST-NUM A 2
2 GEO-WA2-1EL-ZIP A 5
2 GEO-WA2-1EL-SLA A 1
2 GEO-WA2-1EL-HCD A 2
2 GEO-WA2-1EL-SOS A 1
2 GEO-WA2-1EL-CONT-PARITY-IND A 1
2 GEO-WA2-1EL-2010-CENSUSTRACT A 6
2 GEO-WA2-1EL-2010-CENSUSBLOCK A 4
2 GEO-WA2-1EL-2010-CENSUSBLKSFX A 1
2 FILLER-WA2-1EL-INDV A 1
2 FILLER-WA2-440C A 2
2 GEO-WA2-1EL-HEALTHAREA A 4
2 GEO-WA2-1EL-SANI-REC A 3
2 GEO-WA2-1EL-FEATURE-TYPE A 1
2 GEO-WA2-1EL-RESDCP A 1 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-1EL-CURVE-FLAG A 1
2 GEO-WA2-1EL-POLICEDIST A 4
R 2 GEO-WA2-1EL-POLICEDIST
3 GEO-WA2-1EL-POL-PATR-BORO-CMD A 1
3 GEO-WA2-1EL-POL-PRECINCT A 3
2 GEO-WA2-1EL-SCHOOLDIST A 2
2 GEO-WA2-1EL-ELECTDIST A 3
2 GEO-WA2-1EL-ASSEMDIST A 2
2 GEO-WA2-1EL-SPLIT-ED-FLAG A 1
2 GEO-WA2-1EL-CONGDIST A 2
2 GEO-WA2-1EL-SENATEDIST A 2
2 GEO-WA2-1EL-COURTDIST A 2
2 GEO-WA2-1EL-COUNCILDIST A 2
2 FILLER-WA2-470 A 2
2 GEO-WA2-1EL-SANIDIST A 3
R 2 GEO-WA2-1EL-SANIDIST
3 GEO-WA2-1EL-SANIDIST-BORO A 1
3 GEO-WA2-1EL-SANIDIST-NUM A 2
2 GEO-WA2-1EL-SANITATION-SUBSEC A 2
2 GEO-WA2-1EL-FIRESEC A 2
2 GEO-WA2-1EL-FIREBAT A 2
2 GEO-WA2-1EL-FIRECO A 4
R 2 GEO-WA2-1EL-FIRECO
3 GEO-WA2-1EL-FIRECO-TYPE A 1
3 GEO-WA2-1EL-FIRECO-NUM A 3
2 GEO-WA2-1EL-SPECIAL-ADDR-FLAG A 1
2 GEO-WA2-1EL-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-1EL-SPLIT-SCHOOL-FLAG A 1
2 GEO-WA2-1EL-PREFERRED-LGC A 2
2 GEO-WA2-1EL-LIONFACECODE A 4
2 GEO-WA2-1EL-LIONSEQ A 5
2 GEO-WA2-1EL-1990-CENSUSTRACT A 6
2 FILLER-WA2L-480B A 4
2 GEO-WA2-1EL-DYN-BLOCK A 3
2 GEO-WA2-1EL-XCOORD A 7
2 GEO-WA2-1EL-YCOORD A 7
2 GEO-WA2-1EL-SEGMENTLENGTH A 5
2 GEO-WA2-1EL-SANI-REG A 5
2 GEO-WA2-1EL-SEGMENT-ID A 7
2 GEO-WA2-1EL-TRUE-B7SC A 8
2 GEO-WA2-1EL-UNDER-HOUSENUM-INT A 6
2 GEO-WA2-1EL-2000-CENSUSTRACT A 6
2 GEO-WA2-1EL-2000-CENSUSBLOCK A 4
2 GEO-WA2-1EL-2000-CENSUSBLKSFX A 1
2 FILLER-WA2-480 A 68
\* * END OF FUNCTION 1E LONG WORKAREA LAYOUT ******
\* - -------------------------------- - ---- ----------------------------
\* * BEGINNING OF FUNCTION 3 LONG WORKAREA LAYOUT ******
R 1 GEOLW2L
2 GEO-WA2-3L-ACCESS-KEY A 21
2 GEO-WA2-3L-DUP-KEY-FLAG A 1 /* NOT IMPLEMENTED
2 GEO-WA2-3L-CURVE-FLAG A 1
2 GEO-WA2-3L-LOCATION-STATUS A 1
2 GEO-WA2-3L-COUNTY-BOUNDARY A 1
2 FILLER-WA2-340 A 4
2 GEO-WA2-3L-PREFERRED-LGC1 A 2
2 GEO-WA2-3L-PREFERRED-LGC2 A 2
2 GEO-WA2-3L-PREFERRED-LGC3 A 2
2 GEO-WA2-3L-NUM-X-ST-LOW-END N 1
2 GEO-WA2-3L-LOW-PBSC P 6 (1:5)
2 GEO-WA2-3L-NUM-X-ST-HI-END N 1
2 GEO-WA2-3L-HI-PBSC P 6 (1:5)
2 GEO-WA2-3L-SLA A 1
2 GEO-WA2-3L-REVERSALFLAG A 1
2 GEO-WA2-3L-LEFT-COMDIST A 3
R 2 GEO-WA2-3L-LEFT-COMDIST
3 GEO-WA2-3L-LEFT-COMDIST-BORO A 1
3 GEO-WA2-3L-LEFT-COMDIST-NUM A 2
2 GEO-WA2-3L-RIGHT-COMDIST A 3
R 2 GEO-WA2-3L-RIGHT-COMDIST
3 GEO-WA2-3L-RIGHT-COMDIST-BORO A 1
3 GEO-WA2-3L-RIGHT-COMDIST-NUM A 2
2 GEO-WA2-3L-LEFT-ZIP A 5
2 GEO-WA2-3L-RIGHT-ZIP A 5
2 FILLER-WA2-340B A 18
2 GEO-WA2-3L-LEFT-HEALTHAREA A 4
2 GEO-WA2-3L-RIGHT-HEALTHAREA A 4
2 GEO-WA2-3L-LEFT-INSTRUCT-REG A 2
2 GEO-WA2-3L-RIGHT-INSTRUCT-REG A 2
2 GEO-WA2-3L-LEFT-LOW-HOUSENUM A 7
2 GEO-WA2-3L-LEFT-HI-HOUSENUM A 7
2 GEO-WA2-3L-RIGHT-LOW-HOUSENUM A 7
2 GEO-WA2-3L-RIGHT-HI-HOUSENUM A 7
2 GEO-WA2-3L-CONT-PARITY-IND A 1
2 GEO-WA2-3L-LIONFACECODE A 4
2 GEO-WA2-3L-LIONSEQ A 5
2 GEO-WA2-3L-GENRECFLAG A 1
2 GEO-WA2-3L-SEGMENTLENGTH P 5
2 GEO-WA2-3L-SEGMENTSLOPE A 3
2 GEO-WA2-3L-SEGMENTORIENT A 1
2 FILLER-WA2-3L-355 A 4
2 GEO-WA2-3L-RESDCP A 2 /* RESERVED FOR DCP/GSS USE
2 GEO-WA2-3L-DOG-LEG A 1
2 GEO-WA2-3L-FEATURE-TYPE A 1
2 GEO-WA2-3L-LEFT-POLICEDIST A 4
R 2 GEO-WA2-3L-LEFT-POLICEDIST
3 GEO-WA2-3L-L-POL-PATR-BORO-CMD A 1
3 GEO-WA2-3L-LEFT-POL-PRECINCT A 3
2 GEO-WA2-3L-RIGHT-POLICEDIST A 4
R 2 GEO-WA2-3L-RIGHT-POLICEDIST
3 GEO-WA2-3L-R-POL-PATR-BORO-CMD A 1
3 GEO-WA2-3L-RIGHT-POL-PRECINCT A 3
2 GEO-WA2-3L-LEFT-SCHOOLDIST A 2
2 GEO-WA2-3L-RIGHT-SCHOOLDIST A 2
2 GEO-WA2-3L-MARBLE-RIKERS-FLAG A 1
2 GEO-WA2-3L-SEGMENT-ID A 7
2 FILLER-WA2-3L-370 A 1
\* * ******************************** * **** ****************************
\* THE PORTION OF THIS WORK AREA ABOVE THIS POINT IS
\* IDENTICAL TO THE STANDARD WORK AREA 2 FOR FUNCTION 3.
\* THE PORTION BELOW THIS POINT IS PRESENT ONLY FOR THE
\* LONG WORK AREA 2 OPTION.
\* * ******************************** * **** ****************************
2 GEO-WA2-3L-L-1990-CENSUSTRACT A 6
2 FILLER-WA2-370B A 4
2 GEO-WA2-3L-LEFT-DYN-BLK A 3
2 GEO-WA2-3L-R-1990-CENSUSTRACT A 6
2 GEO-WA2-370C A 4
2 GEO-WA2-3L-RIGHT-DYN-BLK A 3
2 GEO-WA2-3L-LEFT-FIRESEC A 2
2 GEO-WA2-3L-LEFT-FIREBAT A 2
2 GEO-WA2-3L-LEFT-FIRECO A 4
R 2 GEO-WA2-3L-LEFT-FIRECO
3 GEO-WA2-3L-LEFT-FIRECO-TYPE A 1
3 GEO-WA2-3L-LEFT-FIRECO-NUM A 3
2 GEO-WA2-3L-RIGHT-FIRESEC A 2
2 GEO-WA2-3L-RIGHT-FIREBAT A 2
2 GEO-WA2-3L-RIGHT-FIRECO A 4
R 2 GEO-WA2-3L-RIGHT-FIRECO
3 GEO-WA2-3L-RIGHT-FIRECO-TYPE A 1
3 GEO-WA2-3L-RIGHT-FIRECO-NUM A 3
2 GEO-WA2-3L-L-2010-CENSUSTRACT A 6
2 GEO-WA2-3L-L-2010-CENSUSBLOCK A 4
2 GEO-WA2-3L-L-2010-CENSUSBLKSFX A 1
2 GEO-WA2-3L-R-2010-CENSUSTRACT A 6
2 GEO-WA2-3L-R-2010-CENSUSBLOCK A 4
2 GEO-WA2-3L-R-2010-CENSUSBLKSFX A 1
2 GEO-WA2-3L-FROM-NODE A 7
2 GEO-WA2-3L-TO-NODE A 7
2 GEO-WA2-3L-L-2000-CENSUSTRACT A 6
2 GEO-WA2-3L-L-2000-CENSUSBLOCK A 4
2 GEO-WA2-3L-L-2000-CENSUSBLKSFX A 1
2 GEO-WA2-3L-R-2000-CENSUSTRACT A 6
2 GEO-WA2-3L-R-2000-CENSUSBLOCK A 4
2 GEO-WA2-3L-R-2000-CENSUSBLKSFX A 1
\* * END OF FUNCTION 3 LONG WORKAREA LAYOUT ******
\* - -------------------------------- - ---- ----------------------------
1 GEOLW21A /\*FCT 1A,BL USE SAME WA2
LAYOUT
\* * THE FIELD W2NAT1A IS USED AS A PARAMETER TO CALL GEOSUPPORT
2 W2NAT1A A 21
R 2 W2NAT1A
3 GEO-WA2-1A-ACCESS-KEY A 21
2 GEO-WA2-1A-CONT-PARITY A 1
2 GEO-WA2-1A-LOW-HOUSENUM A 6
2 GEO-WA2-1A-ALTKEY-1 A 10
R 2 GEO-WA2-1A-ALTKEY-1
3 GEO-WA2-1A-ALTKEY-1-BORO A 1
3 GEO-WA2-1A-ALTKEY-1-TAXBLOCK A 5
3 GEO-WA2-1A-ALTKEY-1-TAXLOT A 4
2 FILLER-WA2-1A-230 A 1
2 GEO-WA2-1A-SCC A 1
2 FILLER-WA2-1A-240 A 1
2 GEO-WA2-1A-GENERAL-LOT-INFO
3 GEO-WA2-1A-RPAD-BLDG-CLASS A 2
3 GEO-WA2-1A-CORNER-CODE A 2
3 GEO-WA2-1A-NUM-OF-STRUCTURES A 2
3 GEO-WA2-1A-NUM-OF-BLOCKFACES A 2
3 GEO-WA2-1A-INTERIOR-FLAG A 1
3 GEO-WA2-1A-VACANT-FLAG A 1
3 GEO-WA2-1A-IRREG-FLAG A 1
2 GEO-WA2-1A-ALT-BORO-FLAG A 1
2 FILLER-WA2-1A-245 A 1
2 GEO-WA2-1A-STROLL-KEY A 13
2 GEO-WA2-1A-OVERFLOW-FLAG A 1
2 FILLER-WA2-1A-251 A 1 /* USED FOR DCP
2 GEO-WA2-1A-BIN A 7
2 GEO-WA2-1A-CONDO-FLAG A 1
2 GEO-WA2-1A-RPAD-CONDO-NUM A 4
2 GEO-WA2-1A-CONDO-LOW-BBL A 10
2 FILLER-WA2-1A-260 A 1
2 GEO-WA2-1A-CONDO-BILL-BBL A 10
2 FILLER-WA2-1A-270 A 1
2 GEO-WA2-1A-CONDO-BILL-BBL-SCC A 1
2 GEO-WA2-1A-CONDO-HIGH-BBL A 10
2 FILLER-WA2-1A-275 A 1
2 GEO-WA2-1A-SANBORN-BVOLPAGE A 8
R 2 GEO-WA2-1A-SANBORN-BVOLPAGE
3 GEO-WA2-1A-SANBORN-BORO A 1
3 GEO-WA2-1A-SANBORN-VOLPAGE A 7
R 3 GEO-WA2-1A-SANBORN-VOLPAGE
4 GEO-WA2-1A-SANBORN-VOL-NUM A 3
4 GEO-WA2-1A-SANBORN-VOL-PAGE A 4
2 GEO-WA2-1A-COMMERC-DIST A 5
2 GEO-WA2-1A-COOP-NUM A 4
2 FILLER-WA2-1A-276 A 4
2 GEO-WA2-1A-ACTUAL-NUM-STRUCTS A 4
2 GEO-WA2-1A-DOF-MAP-BORO A 1
2 GEO-WA2-1A-DOF-MAP-SECVOL A 4
2 GEO-WA2-1A-DOF-MAP-PAGE A 4
2 GEO-WA2-1A-X-COORD A 7
2 GEO-WA2-1A-Y-COORD A 7
2 FILLER-WA2-1A-280 A 18
2 GEO-WA2-1A-NUM-OF-ADDR-FOR-LOT N 2
2 GEO-WA2-1A-LIST-OF-ADDRESSES (1:21)
3 GEO-WA2-1A-LIST-LOW-HOUSENUM A 6
3 FILLER-WA2-1A-290 A 3
3 GEO-WA2-1A-LIST-HI-HOUSENUM A 6
3 FILLER-WA2-1A-300 A 3
3 GEO-WA2-1A-LIST-STREETCODE A 8
3 GEO-WA2-1A-LIST-BIN A 7
3 GEO-WA2-1A-LIST-ADDR-TYPE A 1
3 FILLER-WA2-1A-310 A 1
3 GEO-WA2-1A-LIST-SOS A 1
1 GEOLW2AL /\*FCT 1A,BL USE SAME LONG WA2
\* * THE FIELD W2NAT1AL IS USED AS A P ARA METER TO CALL GEOSUPPORT
2 W2NAT1AL A 21
R 2 W2NAT1AL
3 GEO-WA2-1AL-ACCESS-KEY A 21
2 GEO-WA2-1AL-CONT-PARITY A 1
2 GEO-WA2-1AL-LOW-HOUSENUM A 6
2 GEO-WA2-1AL-ALTKEY-1 A 10
R 2 GEO-WA2-1AL-ALTKEY-1
3 GEO-WA2-1AL-ALTKEY-1-BORO A 1
3 GEO-WA2-1AL-ALTKEY-1-TAXBLOCK A 5
3 GEO-WA2-1AL-ALTKEY-1-TAXLOT A 4
2 FILLER-WA2-1AL-230 A 1
2 GEO-WA2-1AL-SCC A 1
2 FILLER-WA2-1AL-240 A 1
2 GEO-WA2-1AL-GENERAL-LOT-INFO
3 GEO-WA2-1AL-RPAD-BLDG-CLASS A 2
3 GEO-WA2-1AL-CORNER-CODE A 2
3 GEO-WA2-1AL-NUM-OF-STRUCTURES A 2
3 GEO-WA2-1AL-NUM-OF-BLOCKFACES A 2
3 GEO-WA2-1AL-INTERIOR-FLAG A 1
3 GEO-WA2-1AL-VACANT-FLAG A 1
3 GEO-WA2-1AL-IRREG-LOT-FLAG A 1
2 GEO-WA2-1AL-ALT-BORO-FLAG A 1
2 FILLER-WA2-1AL-245 A 1
2 GEO-WA2-1AL-STROLL-KEY A 13
2 FILLER-WA2-1AL-250 A 1
2 FILLER-WA2-1AL-251 A 1 /* USED FOR DCP
2 GEO-WA2-1AL-BIN A 7
2 GEO-WA2-1AL-CONDO-FLAG A 1
2 GEO-WA2-1AL-RPAD-CONDO-NUM A 4
2 GEO-WA2-1AL-CONDO-LOW-BBL A 10
2 FILLER-WA2-1AL-260 A 1
2 GEO-WA2-1AL-CONDO-BILL-BBL A 10
2 FILLER-WA2-1AL-270 A 1
2 GEO-WA2-1AL-CONDO-BILL-BBL-SCC A 1
2 GEO-WA2-1AL-CONDO-HIGH-BBL A 10
2 FILLER-WA2-1AL-275 A 1
2 GEO-WA2-1AL-SANBORN-BVOLPAGE A 8
R 2 GEO-WA2-1AL-SANBORN-BVOLPAGE
3 GEO-WA2-1AL-SANBORN-BORO A 1
3 GEO-WA2-1AL-SANBORN-VOLPAGE A 7
R 3 GEO-WA2-1AL-SANBORN-VOLPAGE
4 GEO-WA2-1AL-SANBORN-VOL-NUM A 3
4 GEO-WA2-1AL-SANBORN-VOL-PAGE A 4
2 GEO-WA2-1AL-COMMERC-DIST A 5
2 GEO-WA2-1AL-COOP-NUM A 4
2 FILLER-WA2-1AL-276 A 4
2 GEO-WA2-1AL-ACTUAL-NUM-STRUCTS A 4
2 GEO-WA2-1AL-DOF-MAP-BORO A 1
2 GEO-WA2-1AL-DOF-MAP-SECVOL A 4
2 GEO-WA2-1AL-DOF-MAP-PAGE A 4
2 GEO-WA2-1AL-X-COORD A 7
2 GEO-WA2-1AL-Y-COORD A 7
2 FILLER-WA2-1AL-280 A 16
2 GEO-WA2-1AL-NUM-OF-BINS-FOR-LOT N 4
2 GEO-WA2-1AL-LIST-OF-BINS (1:2500)
3 GEO-WA2-1AL-BINS N 7
1 GEOLW23S
\* * THE FIELD W2NAT3S IS USED AS A PARAMETER TO CALL GEOSUPPORT
2 W2NAT3S A 21
R 2 W2NAT3S
3 GEO-WA2-3S-ACCESS-KEY A 21
2 GEO-WA2-3S-NUM-OF-INTERSECTS N 3
2 GEO-WA2-3S-LIST-OF-INTERSECTS (1:350)
3 GEO-WA2-3S-SMALLEST-PBSC P 6
3 GEO-WA2-3S-2ND-SMALLEST-PBSC P 6
3 GEO-WA2-3S-DISTANCE P 5
3 GEO-WA2-3S-GAP-FLAG A 1