[From the U.S. Government Printing Office, www.gpo.gov]
NC DIVISION OF MARINE FISHERIES COMPUTERIZED BIOLOGICAL MONITORING DATABASE: SYSTEM DESCRIPTION AND USER'S MANUAL CEIP REPORT NO. 22 1984 SH 222 N8 E6 1984 CE THE NORTH CAROLINA DIVISION OF MARINE FISHERIES COMPUTERIZED BIOLOGICAL MONITQRING DATABASE: SYSTEM DESCRIPTION AND USER'S MANUAL BY Sheryan P. Epperly North Carolina Dapartment of Natural Resources and Community Development Division of Marine Fisheries Morehead City, N.C. 28557 The preparation of this report was financed through a Coastal Energy Impact Program grant provided by the North Carolina Coastal Management Program, through funds provided by the Coastal Zone Management Act of 1972, as amended, which is administered by the Office of Coastal Zone Management, National Oceanic and Atmospheric Administration. This CEIP grant was part of NOAA grant NA-79-AA-D-CZ097. This manual is printed in loose-leaf format to accommodate updates. If you wish to receive these updates please complete the form below and mail to: NC Division of Marine Fisheries License and Data Management Section P. 0. Box 769 Morehead City, NC 28557 ------------------------------------------------------------------------ I would like to receive updates to the System Description and User's Manual of The North Carolina Division of Marine Fisheries Computerized Biological Monitoring Database. NAME ADDRESS CITY STATE ZIP CODE PHONE ACKNOWLEDGEMENTS I would like to acknowledge the following people for their roles in creating a computerized Marine Fisheries database: Elaine Barber, Lisa Boddie, Nancy Brown, Dan Clark, Louise Davis, Bruce Garner, Larry Leis, Diane Nichols, Jim Smith, Michael Street and Katy West. Fisheries Management Section personnel were responsible for the collection of the data. Margaret Stafford and Sharon Sanchez typed the manuscript. Trade names cited herein do not imply endorsement by the North Carolina Department of Natural Resources and.,Community Development, Division of Marine Fisheries. TABLE OF CONTENTS Page ACKNOWLEDGEMENTS . . ... . . . . . . . . . . . . . . . . . . . . . . INTRODUCTION . . . . . . . . . . . . . . . . . . . . . . . . . . . FILE STRUCTURE . . . . . . . . . . . . . . . . . . . . . . . . . . DATA ENTRY . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3 UPDATING THE MASTER FILE . . . . . . . . . . ... . . . . . . . . . 4 Transaction.Pre-edits . . . . . . . . . . . . . . . . . . . . 5 Transaction Edits . . . . . . . . . . . .. . . . . . . . . . . 6 File Structure Edits . . . . . . . . . . . . . . . . . 7 AUDIT TRAILS . . . . . . . . . . . . . . . . . . . . . . . . . . 9 DISASTER RECOVERY . . . . . . . . . . . . . . . . . . . . . . . . 9 REFERENCES . . . . . . . . . . . . . . . . . . . . . . . . . . . . 10 APPENDICES Appendix A "A Description of Instructions and Procedures for the Preparation of Forms for the Division of Marine Fish eries Data System" Appendix B-1 COM@4-STOR III configuration parameters used for data entry B-2 Layout files and attribute information for BIOFORM 00-08 B-3 Directory for data entry diskette B-4 Allowable entry and substitution files Appendix C-1 Outputs from the update program C-2 a. Layout of environmental pre-load table .b. JCi, to compile a revised environmental pre-load C-3 Allowable entries for gear in each program C-4 COBOL update program and JCL to execute it THE DIVISION OF MARINE FISHERIES COMPUTERIZED BIOLOGICAL MONITORING DATABASE INTRODUCTION The North Carolina Division of Marine Fisheries (DMF) began computerizing its biological monitoring data!in spring 1981. Through the Management Information Services Division (MISD) of the North - Carolina Department of Administration, file structure and edit/update procedures were developed. Forms were created on which all DMF data could be coded/transcribed, and a manual was written to describe the proper procedures in coding these forms. The manual, entitled "A Description of Instructions and Procedures for the Preparation of Forms for the Division of Marine Fisheries Data System", should be used as a reference when reading this report; it is included as Appendix A. Revisions will be made as they are needed at all stages of the computerization process, from coding to updating and editing. This report details the biological monitoring computerized database for the DMF. Prior to the initiation of the computerized fisheries database in 1981, isolated DMF data had been digitized. Data from the station logs of the vessel R/V DAN MOORE and biological samples taken from the commercial anadromous fisheries prior to 1979 had been computerized. In 1982 these files were duplicated and the tapes archived. Neither database is being maintained, but both databases will be reentered into the Division's overall biological monitoring database. Statistical data on the landings of North Carolina's commercial fisheries are being digitized through a cooperative state and federal agreement. These data constitute a separate database which is not addressed in this report. FILE STRUCTURE The basic file structure is hierarchial and composed of six record types: Environmental and Station Data Record Type I [ Replicate Data Record Type II Species Data lRecord-Type IIII Individual Datal Tag Recapture Data Record Type IVI Record TyRe IX Annulus Data lRecord Type V Control information is the combination of fields that is unique to a collection and the records contained in that collection. It is these fields that enables several records from a collection to be linked. Information contained on a given record type applies to all following records in the hierarchy (if the records have the same control information). Control fields for the database record take the form shown below. Data always begin in position 25. Format and Position of Control Information Fields in the Database Control information Number of Position relative field bytes to the first RECORD TYPE 1 1 SEQUENCE NUMBER 7 2-8 REPLICATE NUMBER 2 9-10 SPECIES CODE 10 11-12 SPECIES STATUS 1 21 LINE NUMBER 21 22-24 The first record type, The Environmental and Station Record, contains the overall collection data such as location, environmental parameters and collection effort information. Each record type I is given a SEQUENCE NUMBER which is prefixed by the last two digits of the collection year (e.g. 8200001). This constitutes the second field of the control information and appears in the same position on each record type associated with that collection. The first field of the control information identifies the RECORD TYPE. The second record type contains replicate information. This record identifies the size of the collection and sample. More than one replicate (record type II) may be associated with an Environmental and Station Record. Within a collection, Replicate Records are numbered from 01 and increased sequentially by one. Replicate 00 is reserved for special uses, such as observed occurrences of species not indicated in the sample. These REPLICATE NUMBERS are the third field of the control information. All record types II-V, and IX have a replicate identification. Species Records, record type IIIs, contain information on a given pecies, or size class of a species collected in a replicate sample. The total number and weight collected, sampled and subsampled are indicated. A phylogenetic ten digit SPECIES code developed by the s National Oceanographic Data Center (1981) and a one digit code indicating the SPECIES STATUS (size class) constitute the fourth and fifth fields of the control information. All record types III-V, and IX give a SPECIES and SPECIES STATUS identification. Individual and Annulus Records, record types IV and V, give information on an individual(s) of a species. Individual Records give information on size, age, reproductive stage, etc. of an individual member of a species. Each record type IV is given a number; these LINE NUMBERS are the last field of the control information. If an individual is aged and distance to annulus measurements are taken, Annulus Records, record type Vs, contain these measurements. The control field LINE NUMBER, which also appears on the record type V, is used to link the two records for the same individual, i.e. they have the same LINE NUMBER. Tag Recapture Records, record type IXs, contain data for every tagged individual that has been recaptured. Such data are RECAPTURE DATE, LOCATION, GEAR, etc. Each Tag Recapture Record is stored with the collection in which the tagged individual was released. Each record type IX of a collection is numbered sequentially. Where applicable, the Tag Recapture Record can be merged programatically with a record type IV or V using TAG-NUMBER which is a key field stored on both records. Using the control information, all records for a collection can be linked from the hierarchical file. Flat records (a single record that contains data from various levels of the hie archy) can be created easily with EASYTRIEVE (1980) or SAS (1982).1 The control information forms the@lbasic structural key for the entire master file. Actions on that master file use the control information for the identification of a record. The first field of each keyentered record, a transaction, is the ACTION FIELD. By inserting the proper code (A-add, C-change, D-delete), the master file can be manipulated. ACTION FIELD is not retained in the record once it is stored on the master file. DATA ENTRY Keyentry of the Division of Marine Fisheries biological monitoring data utilizes a dual-drive Sykes Datatronics Comm-Stor III flexible .diskette unit and an OMRON 8025A cathode ray tube-(CRT). The diskette unit uses an eight inch single side, single density, soft sector diskette. Parameters within the Comm-Stor must be set to ensure compatibility of the two units and to define data entry specifications. These parameters are listed in Appendix B-1. Form pages are created through the Comm-Stor's forms generation process. The layout file, a "picture" of the page as it is to appear on the CRT during data entry, is created and later incorporated into the form during the generation process; editing attributes are assigned to each field on a page during the generation process. The form created for entry of the biological monitoring data (BIOFORM) consists of eight pages. The vaiable fields on BIOFORM pages 01-05 and 08 correspond to EASYTRIEVE and SAS are user oriented computer software sys tems frequently used for data summary and analysis. 4 the fields on record types I-V and IX as described in the DMF forms preparation manual (Appendix A). BIOFORM pages 06 and 07 are abbreviated versions of record type IVs; these pages enable entry of multiple record type 1Vx on one form page. Menus appear at the bottom of each page allowing the operator to select the next page. Linkage and dynamic storage information for the form pages are contained in the non-viewable page BIOFORM 00 which is created automatically in the form generation-process. Layouts and attribute information for BIOFORM pages 00-08, the directory for the data entry diskette, and the allowable entry and substitution files are contained in Appendices B-2 through B-4. Each biological collection is stored as a unique file on the diskette. Each record or transaction in this file is 128 characters in length. On each.diskette the files are numbered from zero to eighteen and prefixed by the file name "NER.NM.NM100-". Every collection entered is logged into a data entry ledger. The file name, diskette number and comments are also recorded. The Sykes IBM 3740 Format Program is used to read the ASCII characters stored on the data entry diskette, translate them t2 EBCDIC characters and store the EBCDIC data on a second diskette. The EBCDIC diskettes are sent to the State Computer Center in Raleigh to update the master file. UPDATING THE MASTER FILE Five generations of the master file are stored in the tape library at the State Computer Center (SCC) in Raleigh. The most recent generation is catalogued under the name "NER.Nil.4.NM100-1". Transaction diskettes are submitted weekly to the SCC where they are read on an IBM 3740; t@e data are stored on a temporary tap4. The job control language (JCL) stored under the Time Sharing (TSO) member "NM100UPD" accesses the most recent master file generation snd the temporary transaction data tape and then executes the COBOL update program.. 2 ASCII and EBCDIC are standardized binary codes for representing upper and lower case letters, numbers, symbols, punctuation marks, etc. Standardized by the industry, ASCII is the code used by many computers and terminals, including Comm-Stor III. The State Computer Center, however, has a mainframe IBM computer which uses the EBCDIC code. 3Job control language (JCL) is used by the computer controller to interpret instructions and generate commands to other parts of the computer. 4 TSO is a time sharing system that lets you use the facilities of a computer at a terminal. In the context of this report a TSO member is a data file in a partitioned data set that is accessed through TSO. 5 COBOL is a programming language designed specifically for business and data processing applications. The COBOL update program reads each transaction, pre-edits the transaction file and then sorts it. The program performs the appropriate action (add, change or delete) on the master file and reformats the record to a length of 150 characters. The date of processing is added to each record and stored in position .143-150. It has the format of YY/MM/DD. Validity and structural checks are then made. The master file is sorted according to the control information. After the update program is executed the previous master file is uncatalogued and the recently created file is then catalogued. Output from the update process has the following four parts, (illustrated in Appendix C-1): 1. A list of the action taken on each transaction record read in the update process, giving the control information and the first 45 characters of the data. 2. A list of all edit error warnings. 3. A list,of all structural errors in the master file. 4. A printout of every transaction record submitted. Several edits occur during the update process. Following is a description of the edits. Transaction Pre-edits 1. Record types VI and VII (entered on BIOFORM-06 and BIOFORM-07 data entry screens) allow for multiple entries of record type IVs on one data entry screen. A pre-edit routine creates separate record type IVs for each entry made on BIOFORM 06 and 07 screens. 2. Leading spaces in the follow ing fields are zero filled: NUMBER OF RECORD TYPE III'S, COLLECTION NO., COLLECTION WT., SA11PLE NO., SAMPLE WT., SUBSAMPLE NO., SUBSAMPLE WT., FREQUENCY, LENGTH, AGE, NO. OF SPAWNING MARKS, DISTANCE TO EDGE, and DISTANCE TO ANNULUS MEASUREMENTS. If GEAR does not have an exact length of three digits, the field is replaced with three zeros. 3. A transaction record key consisting of PROGRAM TYPE, STARTING LOCATION and STATION NUMBER is checked ag@;inst a pre-edit table. The table stored in a TSO member "NMENVTAB" is maintained in key sequence order and contains substitution information for DURATION OR AREA, GEAR, GEAR PARM #1, GEAR PARM #2, GEAR PARM #3, RIG, TYPE OF TOW, SEDIMENT. SIZE, BOTTOM COMPOSITI6N, BOTTOM PROFILE, DEPTH, and ALTERATION STATE. During the pre-edit process, table values are inserted into blank fields of record type I. If a value exists@ in the field on the transaction record, that value takes precedence. Only data from collections made since 1982 are processed against this table. As the table is revised, the update program is compiled to incorporate the revised table. The layout of the table is given in Appendix B-2. Transaction Edits (Validity Checks) 1. The first two digits of SEQUENCE NUMBER must be the same as YEAR. 2. The MONTH and DAY subfields of DATE are edited: 01<MONTH<12 and 01<DAY<31 3. For programs 700-799, GRID subfields should be digit-digit-alpha- alpha. 4. a) For Programs 700-799 2500000000<STARTING LOCATION<4000000000 b) For Programs 000-699 and Programs 800-999 0000000000<STARTING LOCATION<2300000000 or 50000060--00<STARTING LOCA'f-ION<7500000000 5. STATION is checked to determine if it is an allowable entry for the value of STARTING LOCATION if PROGRAM is not 400-499, 700-799, 920 or 930. Appendix B of the DMF forms preparation manual and TSO member "MFSITES" contain allowable entries. 6. GEAR is checked to determine if it is an allowable entry for the value of PROGRAM. These allowable entries are given in Appendix C-3, GEAR is zero filled if it is blank or not numeric on the transaction record. 7. If GEAR = 000 then DURATION OR AREA must be blank. 8. If NUMBER OF REPLICATES = 00 then GEAR must 000. 9. SAMPLE SIZE must not exceed COLLECTION SIZE. (999999 indicates a missing value). 10. SPECIES is checked to determine it it is an allowable entry. The abridged Appendix G of the DMF forms preparation manual and TSO member "MFSPP" contain allowable entries. 11. a) COLLECTION NO.>SAMPLE NO.>SUBSAMPLE NO. (99999 indicates a missing value.T b) COLLECTION WT.>SAMPLE WT.>SUBSAMPLE WT. (999999 indicates a missing value.T 12. If FORM OF RECORD TYPE IV equals: 0 or 5 There should be no corresponding record type IVs. I or 2 The only data fields completed on the corresponding record type IVs should be FREQUENCY and LENGTH. 3 The value of LENGTH on the record type IV with LINE NUMBER 001 should be less than the value of LENGTH on the record Type IV with LINE NUMBER 002. The FREQUENCY of each LENGTH should equal one. 4 or.7 Data besides FREQUENCY and LENGTH should be recorded on at least one corresponding record type IV. 5 Replicate must be 00. 13. LENGTH will be checked against a table containing a range of ,allowable lengths for each SPECIES. This table will be given in Appendix C-5. 14. TAG TYPE (X) and TAG NUMBER (X) must either both be blank or both be coded. When both are coded TAG TYPE must be an alpha character and NUMBER TAGGED must be digits. 15. The sum of NUMBER TAGGED (1) and NUMBER TAGGED (2) should be less than or equal to SAMPLE NUMBER. 16. The combination of the first two positions of TAG NUMBER must be nonnumeric. The remaining four bytes must be digits. The field must have an exact length of 6 bytes,if coded. 17. If TAG NUMBER is coded on a record type IV, 1 < STATUS < 3. 18. If AGE STATUS equals zero or is blank, then AGED STRUCTURE, AGE and NUMBER OF SPAWNING MARKS must be blank. 19. If AGED STRUCTURE is blank, then AGE STATUS must equal zero or be blank and AGE and NUMBER OF SPAWNING MARKS must be blank. 20. If AGE or NUMBER OF SPAWNING MARKS is not blank, then AGE STATUS and AGED STRUCTURE must be greater than zero. 21. If AGE STATUS EQUALS: I Age must be recorded. 2 AGE must be recorded and a record type V must exist for that control datum. 3 AGE and NUMBER OF SPAWNING MARKS must be.blank and AGED STRUCTURE must be coded. 22. AGE stored on record type V for an individual must be the same value as stored in AGE on the corresponding record type IV. 23. SPAWNING MARKS stored on record type V for an individual must be the same value as stored in SPAWNING MARKS on the corresponding record type IV. 24. If a record type V is present, AGE STATUS must equal two on the corresponding record type IV. 25. The number of DISTANCE TO ANNULUS measurements should not exceed the value of AGE* 26. If i is the number of distance to annulus measurements given, then a) DISTANCE TO EDGE should equal MARGINAL INCREMENT plus DISTANCE TO ith ANNULUS. If not coded, MARGINAL INCREMENT is calculated and written to the file. b) DISTANCE TO EDGE>DISTANCE TO ith ANNULUS>DISTANCE TO i-I ANNULUS>DISTANCi TO 1-2 ANNULUS.. .>DISTANCE TO FIRST ANNULUS. 27. RECAPTURE DATE if coded, must be later than DATE, have an exact length of 6 digits and be in the format of YYMMDD. The YEAR, MONTH and DAY subfields of RECAPTURE DATE, are edited: 70<YEAR<85, 01<MONTH<12 and 01<DAY<31. 28. If coded, DAYS OUT must be the number of days elasped between DATE and RECAPTURE DATE. DAYS OUT must be blank if RECAPTURE DATE is not a valid entry in the format of YYMMDD. 29. Within a collection, TAG NUMBER may not be repeated across LINE NUMBERS. File Structure Edits 1. The control information of a transaction record is checked against those records on the master file. If a record exists on the master file with the same control information and ACTION FIELD of the transaction is 'change', then the transaction record is substituted for the master file record. A transaction record is added to the master file only if another record with the same unique control information is not already stored. Similarly, a record is deleted from the master file only if the control information of an appropriately coded transaction record matches exactly the control information of a.record on the master file. 2. The actual number of record type Ils for unique control information should be the same as the value for NO. OF REPLICATES. 3., The actualnumber of record type IIIs for unique control information should be the same as the value for NO. OF RECORD TYPE IIIS. 4. The actual number of record type IVs for unique control information is determined on the basis of FORM OF RECORD TYPE IV. If FORM OF RECORD TYPE IV equals: 0 or 5 There should be no corresponding record type IV or V. 1,2,3,4 or 7 The sum of values for FREQUENCY on the record type IVs'should equal SUBSAMPLE NO. on the corresponding record type III. If FORM OF RECORD TYPE IV equals 3 then there must be only two record type IVs with the LINE NUMBERS OF 001 and 002, each with a FREQUENCY=1. 5. LINE NUMBER must be sequential for record types IV -and IX with no missing intermediate numbers. 6. If the value of AGE STATUS is equal to two, a corresponding record type V should occur. 7. Within a collection, the number of record type IXs of a given TAG TYPE must be less than or equal to the NUMBER TAGGED indicated for that TAG TYPE on the record type III. The COBOL update program and the JCL to,run it are.given in .Appendix C-5. AUDIT TRAILS Errors may occur in the control information fields, data fields or in the structure of the file. Errors in the control information fields can be corrected only by deletingeach of the erroneous records and adding the correct records to the file. Errors in the data fields may be found through validity checks in the update process or through subsequent structural errors caused by the incorrect information. Entering the record correctly and indicating."change" in the action field corrects these errors. Update reports.are examined for errors. The reports are first checked to ensure that every collection logged into the data entry ledger was acted upon. The printouts are then examined for edit error warnings and indications of file structure errors. Each error is registered, the data sheets are examined and a list of corrections is made. The fourth report, a listing of every transaction submitted, is examined to ensure that the Latin names on the printout match the species names on the data sheets. The report is examined, also, by the individuals responsible for the.data collection. Corrections are recorded on the printout and submitted for keyentry. Corrections are keyentered and submitted with-other diskettes. DISASTER RECOVERY The third generation of themaster file is placed in the fireproof vault at the State Computer Center. Diskettes containing the data needed to update the third generation to the catalogued NER.NM.NMlOO_1 (the most recent generation) are held in the Morehead City office. Should generations one and two be damaged, the diskettes necessary for complete updating of the third generation are available. When normal updating of the master file occurs, those diskettes that are'no longer needed as backups are recycled through the data entry process. Copies of the diskettes containing the data entry form information and Comm-Stor III configuration parameters are stored in a fire proof filing cabinet in the Division of Marine Fisheries warehouse building. 10 REFERENCES 1980 EASYTRIEVE Reference Manual. Version 8.2. Pansophic Systems, Inc.2 Oak Brook, Illinois. 19821. SAS Userfs Guide: Basics. 1982 Editio SA-- Cary, N.C. n S Institute, Inc. , National bceanographic Data Center. -9 Edit.ion. 1 81. NODC Taxonomic Code. Third National Oceanic and Atmospberi- C-Administ-rati on Washington, D.C. A DESCRIP,TION".OF.INSTRUCTIONS AND PROCEDURES FOR.THE-PREPARATIOEIOF FOP14S FOR THE DIVISION OF.MAEINE,FISHERIES DATA-SYSTEM. Sheryan Epperly March 1984 TABLE OF CONTENTS Introduction Environmental and Station Data 2 Replicate Data Species Data 8 Individual Data Annulus-Data 14 Tag.Recapture Data 16 Appendices: A. Program Codes B. Location Codes C. Gear Codes D. Bottom Type Codes. E. Water Level or Sea State Codes F. Alteration and Fishing Activity,Codes G. Species Codes J. Tag Codes INTRODUCTION The contents of this manual outline the procedures to code all Division data into a common format. We have attempted to make the format as general as possible and accommodate All projects. Each program shculd develop a documentation. Some fields-are critical and their completion is mandatory; these are denoted by'dark blocks.. All fields should be right justified except where noted. Only tho 'se fields blocked off will be entered into the computer. The free form fields are @provided to record information but this data will'not be stored. RECORD TYPE 1: ENVIRONMENTAL AND STATION DATA This.form is used by all projects to.record environmental data, station location.and collection effort data-Code the form as follows: COLUMNS. FIELD TITLE DESCRIPTION 3-9 Sequence Number This number will be coded by keyentry personnel. Each collection will be assigned a number to aid in file maintenance. THIS FIELD WILL ALWAYS BE CODED. 26-28 Program Each type of study has a different program. See Appendix A. THIS FIELD MUST BE CODED. 29-34 Date (YYHMDD) Record the two-digit numerical code for year, month and day. THIS FIELD. MUST BE CODED. 35-39 Station Number. This field can be used by all programs which regularly survey the. same location or sequentially order colTections. For example, this could be a DAN MOORE station number, a. shellfish plant number, a fish house number, a juvenile program station numberi etc. The use-or non-use of this field must be consistent with each program. 40-49 Starting Location Programs not utilizing global coordinates will record locations according to a nested area-subareas design. See Appendix B.. Primary codes are recorded in the first two spaces of the starting location field, secondary codes in the next two, tertiary codes in the next two, etc. Some programs will record latitude and longitude for their station positions. THIS FIELD MUST BE CODED. 50-53 Grid Only those programs using their own grid, strata, or zone system need code this field. 54 Quadrant This is a field to be used if the above grids are further divided. For the Dan Moore programs: NW 1 2 NE SW 4 3 SE '"CORD TYPE I: ENVIRONMENTAL AND STATE DATA (continued) COLUMNS FIELD TITLE DESCRIPTION 55-58 Time. Record the time of day.(on a 24-hour clock) when the gear completed sampling. Follow'standard .(sun) time.- 59-62 Duration or Period of-time, in minutes, over AreaZampled which the gear-sampled. Liiies.are provided to calculate this amount fz = the beginning and ending time. This field may be used, instead, to record the area sampled when time is not applicable. However,.the use.of this field must be consistent within each program. 63-65 Gear Eachunique gear-has a code. See Appendix C. THIS FIELD-MUST BE CODED. Record unknown gear as 999. When no gear is used code it as 110001%. 66-69 Gear Parameter. Gear parameters are us,ed-to describe #1 the designated gear type. Examples are headrope length, body mesh size 70-73 Gear Parameter and tailbag mesh.size. Appendix C.. #2 lists the order in which these parameters are to be coded for each 74-77 Gear Parameter gear type. A decimal I if needed must #3 be coded into one of the columns. Gears which cannot be described in three parameters must have a unique gear code. 78 Rig Gear: 1. singlerigged 2. doublerigged, two barrel 3. doublerigged, four barrel 4. 5. pushed .6. detached fishing gear, set 7. detached fishing gear, drift 8. weighted 9. towed between two boats 79 Type of Tow 1. surface 2. midwater 3. bottom 4. oblique RECORD TYPE I: ENVIRONMTAL AND STATION DATA (continued) COLUMNS FIELD TITLE DESCRIPTION 80 Size Composition of Sediment Bottom types can be recorded according to Appendix D. 81 General Bottom Composition 82 Bottom Profile Few programs record information regarding bottom profile, but others are contemplating collection of such data. Codes ate: 1. level regular 2. sloping regular 3. level moderately irregular 4. sloping moderately irregular 5. level highly irregular 6. sloping highly irregular "Sloping" denotes 10% change in depth over station. 83-85 Depth Record average depth of water in meters. If needed, a decimal is coded in one of the columns. 0 86-88 Air Temperature C) 0 .89-91 Surface Temperature 0 92-94 Bottom Temperature ( 0C) 95-97 Surface Salinity ( 0/00) 98-100 Bottom Salinity 0/00.) 101-104 Variable Field #1 for example 105-107 Surface Dissolved Oxygen (ppm) 108-110 Bottom Dissolved Oxygen (ppm) 111-112 pH 113 Weather Element Record percent cloud cover to nearest as follows or record weather condition if cover is 100%. 1. clear skies 2. one-quarter cover (25%) 3. one-half cover (50%) 'D STATION DATA (contillued). .RECORD TYPE I: ENVIRONMENTAL AN COLUMNS FIELD TITLE DESCRIPTION 4. three-quarter cover (75%) 4. one hundred percent cover 6. haze 7. fog 8. precipitation 9. snow 114-117 Variable Field*#2 Barometer, for example .118 Wind Direction Record the direction FROM which the wind is blowing. N=1 &PNW NE-2 7-W E=3 6=SW SE=4 S=5 119-120 Wind Speed (knots) 121 Current Direction Record the direction TO which the current is flowing according to the codes given under WIND DIRECTION. 122-123 Current Speed (knots) 124 Water Level This is more applicable in areas of tidal influence but may be applicable to nearly all programs. This field can also be used to record sea state. See Appendix E. 125 State of Record the alteration state of the Alteration sampling site. See Appendix F. 126 Allowed Fishing See Appendix F. Activity @127-128 Number of This should correspond to the number Replicates of TYPE II records to follow. THIS FIELD MUST BE CODED. RECORD.TYPE.II:. REPLICATE DATA Type II records are replicate data. Usually, each effort or unit: sample.will,have.one TYPE II.record... Unless the sampling is species specific, the variables on this reco'"rd-are to include all species. Information taken on species,outside-the collection or sample unit are to be recorded under Replicate Number = 00; that replicate is to be included in the count of replicates which is recorded on Record Type I under NUMBER OF REPLICATES. ALL FIELDS ON THIS RECORD TYPE MUST BE COMPLETED. If any fields are unknown or not applicable, code the field with "9's" (a right adjusted "." can serve as a shorthand symbol. indicating a field to be filled with "9's"). All weights are in metric units (kg). One pound,= 0.454 kilogram. ,COLUMNS FIELD TITLE DESCRIPTION 10-11 Replicate Number A replicate is; 1) a collection, effort or a group of collection efforts depending on whether the data for the individual efforts are pooled. If the data are not pooledt each effort is givena unique replicate number. For example, a trawl is a collection efifort. or 2) a unit sample of a collection effort or a group of collection efforts. For example,.a fish box or fish basket sample of a collection is.a.unit sample. Each unit sample is given a unique replicate number. 26-30 Collection Size Record the size of the collection. This is the total amount for all in 7 the collection effort. For example, the size of a catch would be recorded here. If there is no catch, record this field as zero.@' The sum of Collection Number or Collection Weight, whichever is applicable, across all Type III,records associated with the replicate should equal the value coded in Collection Size. Program 610 can use this field to record the size of the piece of cultch. Program 615 can use this. ,field to record the total number of kilos taken. RECORD TYPE II: REPLICATE DATA (continued) COLUMNS FIELD TITLE DESCRIPTION 31-35 Sample Size Record the size taken.fo,r sampling from this replicate. The units must be the same as for COLLECTION SIZE; often this will be the same as COLLECTION SIZEe For example, the size of a,fish basket or box sample of catch would be recorded here. The sum of.Sample Number or Sample Weight, whichever is applicable,. across all Type III records associated with the replicate shculd equal the value coded in Sample Size. If there is no catch, record zero. Program 615 canuse this field to record-the number of kilos with live or recently dead spat. 36-37, Number of This is the total number of Type III Type III records associated with the given Records replicate. 38 Quality Quality is important when analyzing data. Occasionally, problems may be incurred at a.station limiting the use of the data taker.. Record.this field as follows: 0 good sample 1 problems incurred but canbe used quantitatively 2 problems incurred but can be used qualitatively 3 species list incomplete but existing data can be used quantitatively 4 species list incomplete but existing data can be used qualitatively @6 species have been processed This field left blank will be interpreted to mean a good sample 39-128 Fill RECORD TYPE. III: SPECIES DATA @All fieldsexcept.tagging related fields MUST BE RECORDED; 1191 it otherwise fill field with 8 (or,".")-. For qualitative estimates of abundances use: 99995 for tens of individuals 99996 forhundreds of individuals 99997 for thousands of individuals 99999 for an unknown number of individuals These numbers should be entered in the fields Collection Number, Sample Number and Subsample Number when applicable. Record all weights in metric units (kg)., One pound 0.454 kilogram. COLUHNS FIELDMTLE DESCRIPTION 10-11 Replicate This corresponds to the repliate number,.of columns 10-11 for the record type II. For. species observed but not sampled record replicate as zero. 12-21 Species. This i-s a hierarchal code for the species. The general basis for this - code is: Class Order Family Genus Species For example, flounders of the genus Paralichthys would,be recorded as .8857030300. However, if a species is positively indentified as P. albigutta it would be recorded as. 8857030302. If only the family could be determined, it would be recorded as 8857030000. Species Status, .0ccassionally a species must be entered on a Record Type III more than once for a givenreplicate. If all data for a species is pooled, use Status - 0 (0 will.be substituted for a blank in this position). If data are separated by size classes, assign each size class ascending values of status beginning with I for the smallest size class. For a given Sequence Number, the assignment of RECORD TYPE'III: SPECIES DATA (continued) species stutus, by size, must be consistent., For example, fish graded as jumbo must have the same Species Status regardless of which replicate (fish box) it may'have occurred. Program 615 will record live spat as Land recently dead spat as 2, whenever dead spat are noted. 26-30 Collection. Record total number of individuals of Number. @the species in the replicate collection. The value must be.a whole number. 31-36 Collection Record the total weight (kg) of the Weight species in the replicate collection. 37-41 Sample This is the total number of the given Number species in the replicate sample (not: replicate collection unless they are the same). If the entire collection is sampled,-this is the same as, Col11--ction Number. For spatfull evaluations, this is the sum of live and recently dead spat. The value must be a whole number. 42-47 Sample This is the total weight (kg) of the Weight given species in the replicate sample (not replicate collection unless they are -the same). 48-52 Subsample This is the total number of the given Number species in a subsample of the species if one is taken. If no subsample is taken this is the same as Sample Number. If a range of lengths is to be given, this Value is 2. For spatfull evaluations, this is the number of live spat.@ Thevalue must be a whole number., 53-58 Subsample If no subsample is taken, this is the Weight same as Sample Weight. 59 Form of Record This field is to indicate the format Type IV of the following data. This field would be recorded as follows: 0 No data taken on individuals 10 RECORD TYPE III: SPECIEIS D.ATA (c onzt1nued)- 1 Modal length frequencies are recorded. Each length is preceeded by the frequency of that length. No other individual data are recorded. 2 Length frequencies are recorded. Each length is preceded by the frequency of that length. No other individual data are recorded. NOTE: When a .3 Only minimum and maximum lengths number does not are recorded. precede a length, 4 Biological data besides actual the frequency will lengths are recorded. Frequency shouldequal one. be inferred as 1. 5 No data taken on individuals, but species observed spawning. 7 Biological dataj besides modal lengths, are recorded. .60 Tag Type (1) Record the code for a specific type of tag used on the number of individuals recorded in the next field. 61-65 Number Record the total number of Tagged (1) individuals tagged with the type of tag as recorded in the previous field. 66 Tag Type (2) Record the code for a specific type of tag used on the number of individuals recorded in the next field. 67-71 Number Record the total number of Tagged (2) individuals tagged with the type of tag.as recorded in the previous field. 72-128 Fill RECORD TYPE IV: INDIVIDUAL DATA Two@sepa rate forms though in part identical, are given'for individual data. Their use depends on the data to be collected.. One form is for length, sexand maturity d'at-@ only. The other form is to be used when-data besides those above variables are to be recorded for individuals. ALWAYS RECORD DATA AS FREQUENCIES OF UNIQUE DATA. For those species with only.a range of lengths to be recorded, the minimum is recorded first, followed by the maximum length. COLU14NS FIELD TITLE DESCRIPTION 23-25 Line Number Record each Type IV record of the -ally, beginning with species sequent4 001. 26-28 Frequency Record the number of individuals for which the following data applies. 29-32 Recordthe length (or egg diameter) of the individual. 33 Fill 34-38 Weight (kilograms) 39 Sex (1) = male (2) - female (3) undetermined NOTE: Undetermined denotes that the individual was examined for that character but could not be classified; a blank field is interpreted as not examined. 40 Maturity 1 immature 2 maturing 31 mature (ripe) 4 running ripe 5 spent 6 resting or inactive 7 sponge crab 8 9 undetermined 41-44 Parameter A Gonad weight, for example. 45-48 Parameter B Adductor muscle or gonad subsample weight, for example. 12 RECORD TYPE IV: INDIVIDUAL DATA (continued)., 49-52 Parameter C Viscera weight.or median ova Aiameter, for example. 53-56 Parameter.D Numberof eggs, for example.' 57 Egg or Larval Defined.by the following.: Stage 1 unfertilized egg or egg prior to first mitotic division 2 fertilized egg-thru the 8 cell stage 3 8 cell stage through blastodisc 4 gastrula., 5 blastopore closure 6 tail,bud free of yolk 7 late.embryo-just before shedding egg%,sac. 8 yolk sac larvae. 9 post yolk sac larvae A shed egg sac B undetermined egg C undetermined larvae 58 Status 1 tagged 2 tag recapture; returned to water 3 tag recapture; not returned to water 4 deformity 5 red line peeler crab. 6 pink line peelercrab 7 white line peeler crab 8 soft shell crab 9 paper shell crab 59-64 Tag Number 65 'Age Status I only number of marks recorded 2 length to annulus data recorded 3 ageing structure taken; not yet analyzed 66 Aged Structure 1 scale 2 pectoral spine@ 3 otolith 4 shell This field must be coded if Age Status 0. 67-68 Age Thi.s field must be coded if Age Status 1 or 2. 13 RECORD TYPE IV: INDIVIDUAL DATA (continued) COLUMNS FIELD TITLE DESCRIPTION 69-70 Number of Spawning Marks 71-128 Fill 14 RECORD,TYPE V: ANNULUS-@DATA This is to beused when distance*to annuli measurements ate taken. COLUMNS FIELD TITLE DESCRIPTION 23-25 Line Number This should correspond to the same line number as on Record Type IV.for the same individual. 26-27 Age. 28-30 Distance to Edge. 31-33 Marginal Increment 34-36 Distance to 1st Annulus NOTE: Each scale shape or skeletal piece has-a 37-39 Distance to 2nd Annulus standard axis for measurement-. These must 40-42 Distance to 3rd Annulus remain consistent within each species. 43-45 Distance to 4th Annulus 46-48 Distance to 5th Annulus 49-51 Distance to 6t'h Annulus 52-54 Distance to 7th Annulus 55-57 Distance to 8th Annulus 58-60 Distance to 9th Annulus 61-63 Distance to 10th Annulus 64-66 Distance to llth Annulus 67-69 Distance to 12th Annulus 70-72 Distance to 13th Annulus 73-75 Distance to 14th Annulus 76-78 Distance to 15th Annulus 79-81 Distance to 16th Annulus 82-84 Distance to 17th Annulus .85-87 Distance to 18th Annulus @88-90 Distance. to'19th Annulus 15 RECORD TYPE-V: ANNULUS DATA (continued) 91-93 Distance to 20th Annulus 94-96 DistAnce to 21st Annulus 97-99 Distance to 22nd Annulus 100-102 Distance to 23rd Annulus 103-105 Distance to 24th Annulus 106-1.08. Distance to 25thAnnulus 109-111 Distance-to -26th Annulus 112-114 Distance to 27th Annulus 115-1117 Distance to 28th Annulus 118-120 Distance to 29th Annulus 121-123 Distance to 30th Annulus 124-125 Number of Spawning Marks 126-128 Fill 16 RECORD TYPE IX: TAG RECAPTURE DATA COLUMNS FIELD 'TITLE DESCRIPTION THE FOLLOWING FIELDS MUST BE RECORDED. 3-9 Sequence Number This number corresponds to the Sequence Number of,the collection in which the individual was tagged. 10-11 Replicate Number This number corresponds to the Replicate Number of the collection in which the individual was tagged. 12-21@ Species Record-the code for the species tagged and recaptured. 22 Species Status Record.the code for the Species Status as recorded when tagged. 23-25 Line Number Record each Type IX record with the same unique control information, sequentially, beginning with 001. 26-31 Tag Number. Record the Tag Number of the tagged individuals. 32 Tag Type See Appendix J. The follow ing fields are not mandatory, unless noted. 33-38 Recapture Date If the recapture date is unknown, YYMMDD leave this field blank. If the year is known and the month and/or day is unknown., code the unknown subfields with zeros. 39-48 'Recapture Location Record the location of recapture. either by the waterbody codes in Appendix B or by global coordinates, consistent with the program documentation. 49-51 Recapture Gear See Appendix C. Record unknown recap-lure gears as '999'; and use '000' when no gear was used to record a.tag.. THIS FIELD MUST BE CODED. 52-55 Days.Out Record the number of days elapsed from the date of recapture. 17 RECORD TYPE IX: TAG RECAPTURE DATA (continued) COLUMNS FIELD TITLE DESCRIPTION 56-59 Distance Travelled The measure of the distance a tagged individual travelled before recapture will be program specific. For example, the measure may be a straight line dis.tance or the most direct water route. The units within a program (miles, nautical miles, etc.) must be consistent. .60-63 Recapture Length @Record the length of the recaptured individual. 64-68 Recapture Weight Record the.weight of the recaptured individual. 69, Maturity Record'the maturity of the recaptured individual. 70-128 Fill Space is provided to record the nAe and address of the returnee. This information will not be digitized as part of the.record but may be digitized as part of a separate "in house" file. APPENDIX A: PROGRAM CODES 10,0's FISH-SURVEYS 100 Juvenile anadromous study 105 Striped.bass nursery area ecology study 110 Albemarle non-anadromous juvenile study 115' Non-anadromous spawning area survey .120 Nursery area CZM juvenile stock assessment 125 Vandemere Creek study 126 Orchard Creek study 130 Freshwater intrusion study 150 Anadromous adult spawning area sampling. 160 Anadromous egg and larvae sampling 170 Division adult finfish sampling-collection and sample size measured by weight 175 Division eel pot sampling 180 Division adult finfish sampling-collection and sample size measured by number 300's. FISH TAGGING STUDIES 300 Inshore anadromous tagging 320 Scrapfish tagging 330 Inshore flounder tagging 340 Albemarle Sound non-anadromous tagging (white and channel cat and white perch) 350 Croaker tagging 400's COMMERCIAL SAMPLES 400 Anadromouscommercial harvest-culled samples 410 Anadromous commercial harvest-unculled samples A- 2 APPENDIX.A (continued) 420 Striped bass (AFCS-14) commercial harvest-culled samples 421 Striped bass flight survey 422 Striped bass log books 430 Non-anadromous commercial harvest-culled samples 431 Sciaenid poun d net fishery-culled samples 432 Flounder'pound net fishery-culled samples 433 Winter trawl fishery-culled samples 434 Sink net fishery-culled samples 435 Beach seine fishery-culled samples 436 Crab trawl fishery-culled samples 437 Long haul fishery-culled samples 438 Offshore live bottom fishery-culled samples 440 Non-anadromous commercial harvest-unculled samples 441 Sciaenid pound net fishery-unculled samples 442 Flounder pound net fishery-unculled samples 443 Winter trawl fishery-unculled samples 444 Sink net fishery-unculled samples 445 Beach seine fishery-unculled samples .446 Crab trawl fishery-unculled samples 447 Long-haul fishery-unculled samples 450 Scrapfish study 460 Shrimp. 470 Commercial crab'harvest samples 500's CRUSTACEAN STUDIES .510 Shrimp site fre4uency and CPUE samping 520 Shrimp tagging A- 3 APPENDIX A (continued) 530 Crab pot sampling 540 Crab trawl sampling 550 Crab tagging 600's -MOLLUSC STUDIES 600 Culch planings (site selection) 616 Plant samples (spatfall evaluation) Morehead City 615 Plant samples (spatfall evaluation) Wrightsville Beach Relay,Evaluations 620. Seed clam study 630 Shellfish "CZM" survey 640 Clam kicking area studies 650 Clam escalator dredge area studies 660 Shellfish lease investigations 670 Special surveys (oysters) 680 Special surveys (clam 690. Scallop surveys 700's DAN MOORE STUDIES 706 Anadromous fish survey 705 Flounder survey 710 Scallop survey 715 Rock shrimp survey 720 Exploratory fishing/general survey 725 Gear testing 730"- Lobster survey 735, Squid project A-4 APPENDI., A (continued) 740 Diving 745 B.C.F. Schoolfish survey 750 Clam survey .755 Demersal survey 760 Demonstration cruise 765 Industrial fish,survey 770 Aqua 10 Sargassum survey 775 -Net selectivity testing .900's MISCELLANEOUS 910 Fish kill samples 920 Gear testing 930 Miscellaneous ageing samples 000's NON-DMF PROGRAMS 050 Inland Fisheries stream surveys 051 Inland Fisheries Lake Phelps surveys 055 Peat Methanol Associates Pungo River biological data 060 U.S. Fish and.Wildlife Service data WATER CODE STATIONS 2500000000 4900000000 ARE RESERVED FOR GLOBAL COORDINATES ATLANTIC OCEAN 0000000000 CAPE CANVERAL TO CAPE ROMAIN 0002000000 NORTH OF BRUNSWICK, GA 0002010000 SOUTH OF BRUNSWICK, GA 0002020000 CAPE ROAMIN TO CAPE FEAR (LONG DAY) 0003000000 FRYING PAN SKOALS 0003010000 CAPE FEAR TO CAPE LOOKOUT (ONSLOW DAY) 0004000000 NEARSHORE BOGUE BANKS 0004010000 NEARSHORE SHACKLEFORD BANKS 0004020000 BEAUFORT BAR 0004030000 CAPE LOOKOUT SLOUGH 0004949000 CAPE LOOKOUT JETTY VICINITY 0001050000 CAPE LOOKOUT BIGHT 0004060000 NEARSHORE 0004070000 ALT. BEACH ARTIFICIAL REEF 0004080000 CAPE LOOKOUT TO CAPE HATTERAS (RALEIGH BAY) 0005000000 NEARSHORE CORE BANKS 0005010000 OFF OCRACOKE BEACHES 0005020000 OFF HATTERAS INLET CAPE HATTERAS BEACHES 0005030000 DIAMOND SKOALS 0005040000 CAPE HATTERAS TO CAPE HENRY/CAPE CHARLES 0006000000 WIMBLE SKOALS 0006010000 OREGON INLET 0006020000 *THE CIGAR* 0006030000 RUSSIAN TRAWLER 0006040000 CURRITUCK BEACH LIGHT (COROLLA-DUCK BCH) 0006050000 KITTY HAWK TO OREGON INLET BEACHES AND NSHR 0006060000 OREGON INLET TO CAPE HATTERAS SCNS AND NSHR 0004070000 NEARSHORE PEA ISLAND 0005080000 C. HENRY/C. CHARLES TO C. HENLOPEN/C. MAY 0007000000 NURFOLK CANYON 0097010000 WASHINGTON CANYON 0007020000 BALTIMORE CANYON 0007030000 C. HENLOPEN/C. MAY TO CAPE COD 0000090000 CURRITUCK SOUND 0100000000 AREAS WITHIN CURRITUCK SOUND PROPER 0100000000 C.SO.BR.TO JEWISH QUARTER IS 0104010000 124 301 303 304S 305 311 312 1E 1MS 1W C.SO.BR.TO JEWIS QUARTER IS 0100010000 CS1 CS3 CS9 CS11 CS12 CS16S JEWISH QUARTER IS TO POPULAR BRANCH 0100020000 306 308 2E 2ME 2MW 2W CS24 CS26 CS28 CS29 POPLAR BR. TO PARKER CR. TO C.REACH LT. 0100030000 3105 311 312 CS18 CS35 CS38 CS39 PARKER CR. TO BELL PT. 10 SWAB IS 0100040000 CS32 BELL PT. TO SWAN IS TO VA. LINE 0100050000 316 CS41 CS47 CURR. SND BR. S TO POWELLS PT. LONG PT 0100060000 111S 112S 123 AS4 CS605 JENKINS COVE 0100070000 JARVIS CHANNEL 0100080000 307 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WENESDAY, MAY 2 19 4 2 CODE STATIONS WATER LONE OAK CHANNEL 0100090000 OS20 CS21 HOG QUARTER CREEK 0101000000 300 CS17 DOWBY BAY 0102000000 BEARLEY BAY 0104000000 OS22 WELLS CREEK 0105000000 NELLS CREEK 0106000000 SANDERS BAY 0107000000 WHALE HEAD BAY 0108000000 Z13 SHIPS BAY 0107000000 RACCOON BAY 0110000000 KNOTTS ISLAND BAY 0111000000 214 3E 2ME CS48 BELLOUS BAY 0112000000 COINJOCK BAY 0113000000 3 315 CS30 CEDAR ISLAND BAY 0113010000 CEDAR BAY 0113020000 NORTH LANDING RIVER 0114000000 317S 318 317S 321 322 4E 4H 4W 3N 3W NORTH LANDING RIVER 0114000000 CS43 CS53 CS54 GIBBS CREEK 0114010000 TULLS BAY 0114020000 320 CS51 TULLS CREEK 0114020100 1 4 5 6 7 8 CS49 NORTHWEST RIVER 0114020200 SHINGLE LNDS CK 0114020201 2 BACK DAY 0115000000 WEBSTER CREEK 0117000000 ALBEMARLE SOUND 0200000000 AREAS WITHIN ALBEMARLE SOUND PROPER 0200000000 EDENTON BAY TO US 17 BR. 0200010000 49 CR2 CR3 T3 RUANOKE R. TO US 17 BR. 0200020000 1 2 3 139 S1 S2 S3 S6 SIP S4P T1 T2 EDENTON BAY TO RAILROAD BR. 0200030000 153 S7 S8 T4 T8 ROANOKE R TO RAILROAD BR 0200004000 8 129 129S 140 152 AS19 AS20 AS24 ROANOKE R TO RAILROAD BR 0200040000 S4 S5 S5P S6P S7P S8P T5 T6 T7 RAILROAD BR TO HWY 32 NORTHSIDE 0200050000 138 141 149 <OW> 15 A2 AS11 U2 U4 RAILROAD BR TO HWY 32 SOUTHSIDE 0200060000 4 9 151 AS25 W1 W3 HWY 32 TO DRUMMOND PO 0200007000 5 6 129S 136 137 143 AS12 E1 E3 A1 A3 A4 HWY 32 TO LAUREL PT 0200080000 130S 142 150 AS27 AS29 E2 E4 DRUMMOND PT TO HARVEY PT 0200070000 126S E11 E12 AS14 LAUREL PT TO BULL BAY (EASTSIDE) 0200100000 (OW) 2 AS28 HARVEY PT TO LITTLE R 0200010000 27S 135 A10 A11 AS16 BULL DAY TO SHIP PT (EASTSIDE) 0200120000 144 144S AS53 LITTLE R TO WADE PT 0200130000 134 AS7 SHIP PT TO LONG SHOAL PT 0200140000 145 145S (OM)5 AS34 AS35 AS37 WADE PT TO CAMDEN PT 0200150000 LONG SHOAL PT TO NED BEER PT 0200160000 131S (OW)4 (OW)25 AR6 AR7 CAMDEN PT TO PT HARBER TO POWELLS PT 0200170000 125 125S 132 133 AS2 AS3 AS5 NED BEES PT TO CAROON PT 0200180000 146 147S (OW)26 AS8A 147 CAROON PT TO RHODOMS PT EAST TO BEACH 0200190000 POWELLS PT CARROON PT RHODOMS PT 0200200000 NORTH RIVER 0201000000 1S 2S 4 7 21 25 26 D2 D4 D9 D13 D15 NORTH RIVER 0201010000 NR2 NR3 NR5 NR7 NR8 (OW)23 (OW)24 DUCK CREEK 0201010000 BARNETT CREEK 0201020000 6 16 NR1 LUTZ CREEK 0201030000 18 D16 GOOSE POND 0201040000 15 D12 DEEP CREEK 0201050000 8 9 NARROW RIDGE CREEK 0201060000 12 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2 4 3 WATER CODE STATIONS BUMPLANDING CREEK 0201070000 TAYLOR BAY 0201880000 8 19 22 2 3 IWW FROM TAYLOR BAY TO COINJOCK BAY 0201090000 9 10 24 INDIANTOWN CREEK 0201100000 7 11 12 20 22 23 WADING GUT 0201110000 BROAD CREEK 0201120000 3 NR9 NR10 NORTH BRANCH 0201120100 2 LITTLE BROAD CREEK 0201120200 17 HUNTING CREEK 0201130000 5 NORTH BRANCH 0201130100 4 ABEL CREEK 0201140000 3 BACKLANDING CREEK 0201150000 1 PUBLIC CREEK 0201160000 6 COW CREEK (CROOKED CREEK) 0201170000 11 GREAT CREEK 0201180000 5 10 BULL FROG CREEK 0201190000 14 D6 EAST CANAL 0201200000 13 D5 GREEN ISLAND CREEK 0201210000 PASQUOTANK RIVER 0202000000 3 7 10 11 13 13S 14S-16S 15 17 18 22 23 24 PASQUOTANK RIVER 0202000000 (0W)20-(OW)22 26 27 A6-A14 A16-A20 A22-A24 B1A PASQUOTANK RIVER 0202000000 B1A B3A B2-B5 B10 B11 B13 B14 B17 C2-C5 PASQUOTANK RIVER 0202000000 C9-C11 EP11-EP14 S2 RAYMOND CREEK 0202010000 13 B12 B15 PORTOHONK CREEK 0202020000 18 ARENEUSE CREEK 0202030000 17 21 B6 SAWYERS CREEK 0202040000 5 C1 LITTLE FLATTY CREEK 0202050000 12 LF1 LF2 NEW BEGUN CREEK 0202060000 1 16 19 20 A1 A3 A5 PALING CREEK 0202060100 JAMES CREEK 0202060200 CHARLES CREEK 0202070000 21 KNOBBS CREEK 0202080000 2 4 29 UNNAMED TRIS WHICH JONES ARENEUSE CR 0202090000 30 UNNAMED TRIB BELOW SAWYERS CREEK 0202100000 10 UNNAMED CREEK ABOVE COOPER CREEK 0202110000 8 UNNAMED CREEK BELOW GOAT ISLAND 0202120000 9 COOPER CREEK 0202130000 DISMAL SWAMP CANAL (LAKE DRUMMOND CANAL) 0202140000 6 24 25 C6 C7 JOYCE CREEK 0202150000 19 20 BIG FLATTY CREEK 0203000000 25 26 28 BF2 CHAPEL CREEK 0203010000 14 MILL DAM CREEK 0203020000 15 LITTLE RIVER 0204000000 1 3 6 7 8 9 27S 28 29 32 32S (OW)19 85 LITTLE RIVER 0204000000 A2 A3 B1 B3 B3A B4 B5 B5S B6 B6S B7S SYMONDS CREEK 0204010000 2 30 31 (OW)18 HALLS CREEK 0204020000 5 A1 DEEP CREEK 0204030000 4 A4 A6 PERQUIMANS RIVER 0205000000 1 3 5 8 14 19 20 24-27 33S 34S 35 36 38 38S PERQUIMANS RIVER 0205000000 (OW)16 (OW)17 A1 A3 A5-A7 A9 A12-A16 MUDDY CREEK 0205010000 12 CANAAN CREEK (COVE CREEK) 0205020000 SUTTONS CREEK 0205030000 2 16 18 37 A18 MILL POND CREEK (MILL CREEK) 0205040000 4 7 9 13 15 GOODWIN CREEK 0205050000 1 6 23 WALTERS CREEK (RACCON CREEK) 0205060000 10 11 17 20 MATHEWS CREEK 0205070000 21 APPENDIX B WATER BODY CODE AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 1984 4 WATER CODE STATIONS 4 UNNAMED CREEK (1200,1001, 1208) 0205080000 22 YEOPIM RIVER 0206000000 10 39S 40 41 E4 L YEOPIM CREEK 0206010000 4 9 44 45 E8 BETHEL CREEK 0206020000 2 6 8 43 BURNT MILL CREEK 0206030000 3 5 7 E3 MIDDLETOWN CREEK 0206040000 1 11 42 EDENTON BAY 0207000000 12 19 50 (OW)29 EB2 EB3 EB5 PJ1 PJ2 QUEEN ANNE CREEK 0207010000 1 2 4 5 10 POLLOCK CREEK (PEMBROKE CREEK) 0207020000 2 3 6 8 9 11 13-16 51 EB6 DRAINAGE DITCH 0207030000 7 AREAS WITHIN CHOWAN R PROPER 0208000000 HWY 17 BR-MT GOLD HARR.LNDG 0208000100 86 46S 54 (OW)12 CR1 CR5 CR8 CR13 CR14 HWY 17 BR-MT GLD LNDG.HARR.LNDG 0208000100 EP01 EP02 EP05-EP08 NA01-NA03 NA10 NA25 NA26 MT GLD L./HARR.L.-COLER./CHOW B 0208000200 25 47S 07031 CR10 CR11 NA04-NA06 (OW)11 COLER/CHOW.B./N. HOLIDAY IS. 0208000300 19 56 57 50 07041 CR12 CR15 CR17 EP03 EP04 COLER/CHOW.B./N. HOLIDAY IS. 0208000300 NA13 NA14 NA22 NA23 NA28 N. HOLIDAY IS-MOUTH BARNES CK 0208000400 34 42 CR18 CR20 M2 NA11 NA12 NA15 NA16 NA30 MOUTH BARNES CK-HWY 158/13 BR. 0208000500 29 36 38 48S 66 CR22-CR24 MOUTH BARNES CK-HWY 158-13 BR. 0208000500 NA20 NA21 NA31 NA32 NA36 HWY 158/13 BR TO VA. ST LINE 0208000600 14 30 32 70 CR25-CR29 NA18 NA19 NA24 ROCKYHOCK CREEK 0208010000 1 16 55 R1 R2 DILLARD CREEK 0208020000 2 STUMPY CREEK 0208030000 CATHERINE (WARWICK) CREEK 0208040000 3 13 W1-W3 TRUTMAN CREEK 0208040100 8 T1 BENNETTS CREEK 0208050000 4 5 9 37 59 60 B2 B4 B4-B10 NA08 NA09 SAREM CREEK 0208060000 22 53 61 M3 TAYLORS MILL POND 0208060100 7 COLE CREEK 0208060200 11 BARNES CREEK 0208080000 23 M1 SPIKES CREEK 0208090000 BUCKHORN CREEK 0208100000 24 RUN SWAMP 0208100100 12 MUD CREEK 0208110000 SOMERTON CREEK 0208120000 31 N1-N4 HARES MILL CREEK 0208130000 WICCACON RIVER 0208140000 9 20 27 28 33 62 63 65 K1 K3 K4 L1-L4 NA29 NA33 WICCACON RIVER 0208140000 L1-L4 NA29 NA33 CHINKAPIN CREEK 0208140100 3 17 64 L5 L6 AHOSKIE CREEK 0208140200 18 DEEP SWAMP 0208150000 CURRITUCK CREEK (KEEL CREEK) 020816000 WILLOW BRANCH 020817000 MEHERRIN RIVER 020817000 3-5 16-27 67 68 68S 69 07252 MEHERRIN RIVER 020819000 M1 M3 M5-M7 M9-M14 NA17 NA27 NA34 POTECASI CREEK 0208190100 1 11 13 P1-P7 INDIAN CREEK 0208190101 12 OLD TREE SWAMP 0208190102 14 PANTHER SWAMP 0208190103 15 KIRBY CREEK 0208190200 6-9 TURKEY CREEK 0208190201 10 LIVERMAN CREEK 0208190300 2 SALMON CREEK 0208200000 1 2 3 5 52 53 S2 EASTMOST SWAMP 0208100100 14 appendix b water body codes and station codes 2 may 1984 10:37 wednesday, may 2 84 water code stations cricket swamp 0208200200 15 cricket swamp 0200200200 15 unnamed creek at cannons ferry 0200210000 10 unnamed creek at cannons ferry 0208210000 10 unnamed creek across from wiccacon ok. 02 8220000 21 unnamed creek across from wiccacon ok. 0208220000 21 nottaway river 0298230000 1-11 01-05 na35 nottaway river 0208230000 1-11 01-05 na35 blackwater river 0200240000 12 13 p1-p5 blackwater river 0248240000 12 13 p1-p5 catherine creek (at tunis) 0200250000 19 BATCHELOR BAY 0207000000 7 128S AS21 AS22 AS23 AS23A BB1 BB2 EP09 CASHIER RIVER 0207010000 2 4 713 72-75 CR2-CR4 CR6 CR7 CR9-CR13 CASHIER RIVER 0209010000 10-12 14-16 18 CR15 CR16 CASHOKE CREEK 0209010100 CC1 BROAD CREEK 0209010200 17 SC1-BC3 GRENNEL CREEK 0209010300 9 G1 G2 WADING PLACE CREEK 0209010400 1 1A HOGGARD MILL CREEK 0209010500 3 3A ROQUIST CREEK 0209010600 5 13 CHISKA CREEK 0209010700 6 CONNARISTA CREEK 0209010800 8 WHITE OAK SWAMP 0209010900 7 MIDDLE RIVER 0209020000 77 MR2 EASTMOST RIVER 0209030000 E1 ROANOKE RIVER 0210000000 AREAS WITHIN ROANOKE RIVER PROPER 0210000000 MARKER:8-MOUTH OF WELCH CK. 0210000100 43 76 70 RR1 RR2 (OW)14 WELCH CK-HWY 17 L.AT WINSTON 0210000200 4 5 37 38 79 8: 82 RR3 RR4 RR8-RR10 RR15 RR17 HWY 17 BR AT WLMSTON HWY 11 DR 0210000300 03 40 RR23-446 HWY 11 BR.-HWY 258 DR. 0210000400 24 42 RR27 RR28 RR29-RR31 RR21 HWY 258 BR.-ROANOKE RAPIDS DAM 0210000500 5 20 23 25 RR20 RR18 RR19 RR32 RR34 CANADY CREEK 0210010000 35 36 41 76 CC1 CC2 WELCH CREEK 0210020000 1 31 33 INDIAN CREEK (NO.1) 0210030000 2 6 34 CONINE CREEK 0210040000 27 BROAD CREEK 0210050000 RR5-RR7 LEFT FORK 0210050100 28 00 THROUGHFARE 0210060000 CONOHO CREEK 0210070000 1-7 26 DEVILS GUT 0210080000 39 RR11-RR13 GARDNERS CREEK 0210080100 7 ROSES CREEK 0210090000 COW CREEK 0210100000 3 80 CONIOTT CREEK 0210110000 ROANOKE CREEK 0210110100 1 32 UNNAMED TRIP 0210110200 22 SWEETWATER CREEK 0210120000 21 44 45 KEHUKEE SWAM (OK. MO. 4) 0210150000 11 29 QUANKEY CREEK 0210160000 30 CK.NO. 2-1ST CK SE OF HWY 11 0210170000 9 CK NO. 3==2WD CL SE PF JWU 11 0210180000 10 CK NO 51LITS TO S. COMMIS.& NORFLEET 0210170000 12 CK NO. 6-s. OF RAILROAD XIN NW GERTIE CO. 0210200000 14 CK NO.7--OK.JUST SOUTH OF BRIDGES CK 0210210000 15 BRIDGES CREEK (CK. NO. 8) 0210220000 16 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 1984 WATER CODE STATIONS CONOCONNARA SWAMP (CK.NO.9) 021023000O 17 TRIP TO BARROWS MILL POND (CK.NO.10) 0210240000 10 OCCONEECHEE CREEK 0210250000 19 SWAMP AT END OF SSR 1109 0210260000 0 CANAL AT ROANOKE TAR HUNTING CLUB 0210270000 13 SWAN BAY 0211000000 MACKEYS CREEK (KENDRICK CREEK) 0212000000 M4 M5 M75D2 5D3 OLD MILL CREEK 0212010000 M1 MILL CREEK 0212020000 M3 MAIN CANAL 0212030000 25 M2 5D1 BULL BAY 0213030000 (OU)6 10 11 855 J4 SCUPPERNONG RIVER 0213100000 4 9 10 25 35 38 39 04 04S 85-87 (OW)7 SCUPPERNONG RIVER 0213010000 J1 J6 US1 US6 4D3 4D4 4D8 4D9 RIDERS CREEK 0213010300 2 4D6 MOCCASIN (WESTERN) CANAL 0213010400 11 23 40 4D2 CREEK TO BATAYA & DEE TREE 0213010500 7 17 BATAVA(BONRVA)CANAL 0213010501 BET TREE CANAL 0213010502 3 31 34 4D1 WINSLOW'S FEEDER 0213010503 37 LAKE PHELIAN 0213010504 4501 6502 7601 7612 76NE 7801-7820 30 FOOT CANAL 0213010600 33 WHITE CANAL (WND CK AT COLUMBIA) 0213010700 4D7 FIRST COLONY PUMP.STA.CANAL 0213010800 32 SOMERSET (TRANSPORTATION) CANAL 0213010900 8 36 CHERRY CANAL 0213011000 22 ENOCH CANAL (1126 CANAL) 0213011100 12 SECOND CREEK (ABOVE RIDERS CK.) 0213011200 3 4D5 BULL CREEK 0213020000 DEEP CREEK 0213030000 29 J5 CANAL SSR 1300 0213030100 28 ALLIGATOR RIVER 0214000000 AREAS WITHIN ALLIGATOR RIVER PROPER 0211400000 LONG SHOAL PT-SOUND PT-ALL.R.NR. 0211000100 (OU)3 19 GR5 AR8 2D9 CREEK TO BATAYA & D TREE 0213010500 APPENDIX D WATER BODY CODES CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2 WATER WHIPPING CREEKS & LAKE SWAN CREEK & LAKE NO. 1 CANAL 94 (OFF ALLIGATOR RIVER) TWW-ALLIGATOR NEWLAKE FORK NEW LAKE GRAPEVINE BAY NORTHWEST FORK CANAL NO 1 NC 94 (WAYNES) SOUTHWEST FORK GUM NECK PUMPING STATION CHERRY BRIDGE CANAL NO 2 CANAL OFF ALLIGATRO R TO NC 91 EAST LAKE CANAL KITTY HAWK BAY COLLINGTON CREEK BUZZARD BAY BLACK WALNUT SWAMP TOM MANN CREEK CROAIAN SOUND CROATAN SOUND PETER MASHODES CREEK SPENCER CREEK CALLAGAHN CREEK BAUM CREEK OYSTER CREEK CEDAR BUSH BAY CUTTHROUGH SMITH CREEK MANNS HARBOR ROANOKE SOUND AREAS WITHIN ROAN0OKE SOUND PROPER BAUM SLOUGH WALTER SOLUGH STETSON CHANNEL BLOSSIE CREEK CHANNEL BETWEEN HERRING SH. AND BODIE IS. SHALLOWBAG BAG SCARBORO CREEK DOUGH CREEK JOHNS CREEK SAND BEACH CREEK BROAD CREEK MILL CREEK OYSTER CREEKS CUTHROUGH PAMLICO SOUND AREAS WITHIN PAMLICO SOUND PROPER ROYAL SHOAL POINT OF MARSH BLUFF SHOAL SWANQUARTER NARROWS NEUSE RIVER LIGHT CEDAR ISLAND BEACH 0 WATER CODE STATIONS BRANT ISLAND SHOAL BRANT SLOUGH BRANT ISLAND (HORSESHOE) WEST OF BLUFF LOWER MIDDLE GROUND INNER MIDDLE GROUND UPPER MIDDLE GROUND PAMLICO RIVER LIGHT EAST BLUFF GULL ROCK LONG SHOAL GIBBS SHOAL SEVEN FOOT PATCH RACCOON ISLAND OFFSHORE OLIVER REEF GULL ISLAND SOUTH WEST POINT (ROYAL SHOAL) NORTH WEST POINT (ROYAL SHOAL) JACK SHOAL OUTER BANKS HATTERAS ISLAND HATTERAS ISLAND SANEY BAY CAPE CHANNEL CRAB SLOUGH OLD HOUSE SLOUGH DAVIS CHANNEL CLAK SHOAL OLD NEW INLET CHANNEL TERRRAPIN CR. BAY UNCLE JIMMYS LANDING CLARKS BAY BROOKS CREEK AUSTIN CR OLIVERS PRLS SHARK SHOAL JACK SHOAL BLACKMAR GUT GOUTE CREEK EAGLE NEST DAY ASKINS CREEK OCRACOKE ISLAND HOWARD RELF LEGGEND LUIT BIG FOOT SLOUGH TEACHES HOLE PORTSMOUTH ISLAND HODGES REEF MULLET SHOAL EVERGREEN SLOUGH THE HAULOVLR SWAN ISLAND GREAT ISLAND HOG ISLAND SOW ISLAND p0 p0 0 2p01p0 2 MAY i Y 9 1p1 p- C DID E F A OFF, ,opt- OFF Vp1p1 PAY @ CORN LONG V p!1p.pP P IF D p- it p, p- r CUMBERLAND C I MUDDY C OTTER C R 1) S DAY FAR' c FC9 C 0 Y "I TE R p7 F C6 L 1 WN ( 1p7 K j LAKE.: p. 0 3 p3 A OLD fill L p.pf M2pAp)F E Y CEK p- BAY 1 1 A 3 Opi LAKE M pA 0 FANAL E I Cp. CANAL 0 1p. T MAIN .. -- GEMEO@ 2p0 EAFF PAY. 1 RF E LUFF BAY CUNNING H 00 J JDAY - 2p1 LAUREL C pF DOE CREEK K p01pJ RATTL p- J U N2p- p-N; F UY F9 p9 (',1, 1p0 2p4 0 WAY, M mp,v- 9 AT T C FEE .pT % - T F J A. F 1pQ pE ME"T TlN 4 DAY I p1 r HE U PAY , 1pFpP R 9 P py .." A p1 .1 E K 1pB I 1p1 pl , pN CEDAR : "pB L T L T UD TRIRY 7 . UNNAMED U N N A, M I' D pI 1 R I D C PIT DAY 3 pl1pi- 3 N p7 C IG J1pC' p0 L R - 1pw1pI 4 _71, CH p4 p0 U: TJ. I A pF p, GUM `p3 1- p6 P TApSC MAUL " PT/1pP p. !:,1 p0 12 6 130 141 'PARS' r 1C I:-M r, 17 pt LONG 'CREEK 1p2 WILLOW pn A ABEL BAY 2p6 I I cr PELL BAY j p1 BELL CREEK 1p, pB7 BOX CREEK A MARIE CREEK 2 0 1 MAY A 2p1N I 2 pl- 21p304 pE 41pB I pC 1" 2 ' p3 P' PU V 1p:2p, FOR 1pl . 2 r1prrp3 "I C 2p: A L OLD r LOG 2p. 0 I i 1p. C p. . C SEER I\ SLADE 2 2 r- 3 F A 2 2p' f) 2 CH J 1pN 2 J F WOOD 2p. K 2py C pV I A p, p. EMT T1 2pr C ' ' 0 p:2p1 EEK F i ' 4 P U 1p0 1 -L 7 E TER' 1p1 C F C 4E3 W TL F - TW 2p" lIT E4 L A N D i, p0 0 1p: 0 CRABTREE PAY 2p Fp) C R E E "I 12p. @ pf 2p: I CL KNIGHTS '1 III: DIF, 0 A I i 1plp1 . C 1p.10 N 2 r l "I -Ei FL L. 1D1pV C 7. 1 2pE 2p. 4 1p@` 'E V E 2p- AI w PUMA) 1 2 1 1 2 12 1 pE3 PU p4 3 1 5 F 1. IT T E 3 C 2 2 7 .- RpAr 2 A L 9 R - F Tr R T H p1E 1, 1p, ED 1p, PUP, 4 j W UR 1pR 7 1 32 C 0 -L 1 pR I%, f 41p14 I A NE C L V p.2p1 A) 6 4 16 A o DU C(TO PHELPS M IT pSP NORTH CREEK 0 p, MAY 2, ME A 1: fT LS DAY M I X 11pA C C C Cp GUT AT L: G P A 2pTL I P RUNYON C 2F JACKS CREEK TA R R I V 1 102 10 1pI T K T1p' T T C5 1 7 II T R1 G T A V I 0 N C G GC4 POO CREEK JON 2pr CREEK 0 Ti TC02 REEK FIR DEEP 11 C6 PEACH IMP C "L2p; r04 0 KM 0 I MAPLE I'll 0 TCK TIN1 APPENDIX 0F WATER BODY CODES AND STATION CODES WATER CODE STATIONS BYNUMS MILL CREEK 01001 TTN6 OTTER CREEK 052 201100 KITTEN CREEK 052 201101 TOC1 TYSON CREEK 052 201200 TOC2 SAMS BRANCH 052 201300 TTY1 TTY2 HARRIS MILL RUN 052 201400 GREENS CREEK 052 1500 HARDEE CREEK 052 1600 THC1 CHICOD CREEK 052 1700 104 TCC1-TCC3 BEAR CREEK 052 1800 TBC1 CANNON SWAMP 052 1900 TCS1 SWIFT CREEK 052 2000 TCC1-TSC4 BEECH BRANCH 052 202000 TSC1-TSC4 COMPASS CREEK 052 100 TBB1 TBB2 STONY CREEK 052 2200 TCM1 SAPPONY CREEK 052 202300 HARTS MILL RUN 052 202400 COWLICK BRANCH 052 202500 THM1 RODMAN CREEK 052 202600 TCL1 CHOCOWINITY BAY 052 230000 PRO1 CEDAR CREEK 052 030000 113 114 TAYLOR CREEK 052 230100 CRAWFOR CREEK 052 230200 CHOCOWINITY CREEK 052 230300 SIDNEY CREEK 052 0400 SILAS CREEK 052 0500 RICE CREEK 052 30500 CALS CREEK 052 40000 HILLS CREEK 052 50000 PHC1 TAYLOR GUT 052 260000 BLOUNTS BAY 052 270000 BLOUNTS CREEK 052 280000 YEATS CREEK 052 270101 DURKEE CREEK 052 290102 LITTLE CREEK 0520290103 SHEPPARD RUN 0520290104 PDB2 NANCY RUN 0520290105 PDB3 HERRING RUN 0520290106 PDB4 YELLOWBANK CUT 0520290107 ALLIGATOR CUT 0520290108 NEVIL CREEK 052 128 PNV1 JACK CREEK 0529300100 PNV2 LEWIS CUT 0520300200 CUPLER SLOUGHS TAYOR BRANCH 0520320000 BARRIS CREEK 0520330000 MILL GUT 0520340000 DURHAM CREEK 0520350000 137 140 PAR6 PAR34 PDM1 BROWN RUN 0520350100 CRAWFORD MILL RUN 0520350200 TAN SWAMP 0520350300 PDM2 PORTER CREEK 0520350400 139 PAR7 HUDDLES GUT 0520360000 SOUTH CREEK 0520370000 146 149S 150 151 152 PAR11 PAR12(S) PSC1 PAR36 TOOLEY CREEK 052 370100 PAR27 JACOBS CREEK 052 370200 PAR31 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 1984 15 WATER CODE STATIONS DRINKWATER CREEK 0528370201 PAR32 JACKS CREEK 0528370300 PAR30 WHITEHURST CREEK 0528370400 BAILEY CREEK 0528370500 BROGHFIELD SWAMP CREEK 0528370600 CYPRESS RUN 0528370700 GUM SWAMP RUN 0528370800 LITTLE CREEK 0528370900 SHORT CREEK 0528371000 LONG CREEK 0528371100 PAR26 BOND CREEK 0528371200 147 PAR14 FLANNIGAN GUT 0528371201 PAR24 ALLIGATOR GUT 0528371202 PAR23 MUDDY CREEK 0528371203 148 PAR13 WILSON GUT 0528371204 SHEEPSKIN CREEK 0528371205 ROBBIN GUT 0528371206 DAVIS CREEK 0528380000 STRAWHORN CREEK 0528390000 CYPRESS CREEK 0528390100 PAR25 EAST PRONG 0528390101 PAR16 GOOSE CREEK 0528400000 A9 A13 A15 S88 S89 HATLER CREEK 0528400100 LOWER SPRING CREEK 0528400200 A1 BETTY CREEK <DOG CREEK> 0528400201 A2 S86 PETERSON CREEK 0528400300 A3 SNODE CREEK 0528400400 A1 A5 CAMPBELL CREEK 0528400500 A6 A8 PASTURE GUT 0528400501 SMITH CREEK 0528400502 A7 CUFF FARKLIN GUT 0528400503 UPPER SPRING CREEK 0528400600 A16 COW GALLUS CREEK 0528400601 HUNTING CREEK 0528400602 EASTHAM CREEK 0528400700 A10 A11 S87 SLADE LANDING CREEK 0528400701 MALLARD CREEK 0528400702 A12 MUD GUT 0528100703 WILKERSON CREEK 0528400704 DIXON CREEK 0528400800 A14 OYSTER CREEK-MIDDLE PRONG 0528410000 A52 OYSTER CREEK 0528410100 A50 A51 S90 DUCK CREEK 0528410101 A53 JAMES CREEK 0528410200 A54 A55 S91 CLARK CREEK 0528410300 A58 A59 S93 MIDDLE PRONG 0528410400 A56 A57 S92 MOUSE HARBOR 0529000000 B13 S97 LONG CREEK 0529010000 B10 LIGHT HOUSE CREEK 0529020000 MOUSE HARBOR DITCH 0529030000 CEDAR CREEK 0529040000 B11 B12 S96 ISLAND CREEKS 0529050000 SOUTHWARD BAY 0529060000 B19 S99 LITTLE PORPOISE BAY 0530000000 BIG PORPOISE BAY 0531000000 B22 S98 PORPOISE CREEK 0531010000 B20 B21 S95 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 16 WATER CODE STATION MIDDLE BAY 0532000000 B33 S85 S94 LITTLE OYSTER CREEK <BLACK DUCK CREEK> 0532010000 B30 S84 CAPPS CREEK 0532020000 B31 MIDDLE BAY CREEK 0532030000 B32 FISHING BAY 0532040000 B39 JONES BAY 0533000000 B41 B42 B44 S83 JB11 JB14 JB12 JB15 LITTLE DRUM CREEK 0533010000 B49 LITTLE EVE CREEK 0533020000 JB5 DRUM CREEK 0533030000 B45 DITCH CREEK 0533040000 B43 B44 S81 JB13 DOWDY CREEK 0533040100 SHEEPNECK CREEK 0533040200 UPPER JONES BAY CREEK 0533050000 B40 S82 BAY RIVER 0834000000 M3 M5 M20 CN13 S70 S78 ROCK HOLE BAY 0534010000 CN7 DUMP CREEK 0534020000 CN6 IWW-GALE CREEK 0534030000 CN8 S79 DUTCH CREEK 0534030100 RACCOON CREEK 0534030200 JUMP OVER CREEK 0534030300 GALE CREEK 0534030400 CN5 S80 WHEALTON CREEK 0534030500 TAR CREEK 0534030600 CHADWICK CREEK 0534040000 BEAR CREEK 0534050000 CN4 CN2 RIGGS CREEK 0534050100 CN3 LITTLE BEAR CREEK 0534060000 BLOSSOM POND CREEK 0534060100 CN10 OYSTER CREEK 0531070000 HARRIS CREEK 0534000000 MESIC CREEK 0534090000 VANDEMERE CREEK 0534100000 CN11 CN12 A01-A09 B01-B09 C01-C09 D01-D09 VANDEMERE CREEK 0534100000 A01C-A04C B01C-B03C C01C-C08C D09C A01S-A19S VANDEMERE CREEK 0534100000 B01S-B18S C01S-C18S D01S-D21S NBR1 LONG CREEK 0534100100 D01C-D08C CEDAR CREEK 0534100200 D10C-D13C LOG POND CREEK 0534100300 SMITH CREEK 0534110000 CN1 UNNAMED TRIBUTARY 0534110100 S72 HARPER CREEK 0534120000 CHAPEL CREEK 0534130000 CN14 BEE TREE CREEK 0534130100 S71 RACCOON CREEK 0534140000 TRENT CREEK 0534150000 CS12 CS14 NBR2 ALLIGATOR CREEK 0534150100 CS11 THOMAS CREEK 0534150200 MASON CREEK 0534160000 CS10 MOORE CREEK 0534170000 CS13 LITTLE PASTURE CREEK 0534180000 RICE CREEK 0534190000 CS1 BALL CREEK 0534200000 CS3 CS5 PASTURE CREEK 0534200100 SIMPSON CREEK 0534200200 CS2 CABIN CREEK 0534200300 CS4 S73 S74 BONNER BAY 0534210000 D1 D9 RIGGS CREEK 0534210100 APPENDIX B WATER CODES AATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 17 WATER CODE STATIONS SAVANNAH CREEK 0531010101 MORRIS CREEK D2 SPRING CREEK D3 D4 D10 MORTON CREEK RICHARDSON CREEK IVES CREEK BRYAN CREEK D5 875 LONG CREEK D6 D7 S76 COW GALLUS CREEK DIPPING VAT CREEK D8 S77 SHEEPHEAD CREEK BARNES CREEK POTTER CREEK SWINDELL BAY NORTH PRONG NBR4 SOUTH PRONG NBR3 NEUSE RIVER AREAS WITHIN NEUSE RIVER PROPER MOUTH TO CHERRY PT/WILKINSON PT. F23 M6-M11 CHERRY PT/WILK. PT TO NEW BERN 4172 41B5 420 421 422S 434 4375 NR1S CHERRY PT/WILK. PT TO NEW BERN NR3S NR4 NR125 NR135 M12-M16 ABOVE NEW BERN 400 401 4023 404 406-409 4103 411 ABOVE NEW BERN 413-416 N1 N2 NNR01-NNR26 MAW BAY-MAW POINT SWAN CREEK C1-E3 S68 S69 BROAD CREEK SC5 BC13 BC15 BC16 E12 E14 NBC1 BC11 CEDAR CREEK S65 MILL CREEK PARRIS CREEK C13 S64 TAR CREEK GIDEAN CREEK UPPER BROAD CREEK E10 BC11 SHIP CREEK BC1 BROWN CREEK C11 NBC2 SPICE CREEK PASTURE CREEK BARTON CREEK PITTMAN CREEK C16 GREEN CREEK BC3 BC14 E15 S67 COFFEE CREEK GUM THICKET CREEK ORCHARD CREEK F2 F5 A1-A3 B1-B8 C1-C8 PASTURE CREEK S60 BRIGHT CREEK F1 D1-D8 OLD HOUSE CREEK PIERCE CREEK F3 F3D F3N S59 WHITTAKER CREEK F4 S58 GREENS CREEK F13 F14 NGC1 S53 S54 S57 S56 S55 CAMP CREEK SMITH CREEK F10 F11 NGC2 MORRIS CREEK KERSHAW CREEK F12 NGC3 UNNAMED CREEK (F-14A) SHOP GUT F15 DRAWHORN CREEK DAWSON CREEK F21 F22 NDC1 APPENDIX B WATER BODY CODES CODES 2MAY 1984 10:39 WEDNESDAY, MAY 2, 18 WATER CODE STATIONS TARKILN CREEK F20 DEEP RUN MDC2 BEARD CREEK 0535100000 428 4295 430 NR7 NR8S L1 L2 NBD1 GOOSE CREEK 0535110000 426 427 NR5 NR6 L3 NGS1 NGS3 UPPER BROAD CREEK 0535120000 424 425 L4 NUB1-NUB3 NORTHWEST CREEK 0535130000 423 L5 NNC1 DUCK CREEK 0535140000 419 NR2 NDK1 SLOCUM CREEK 0535150000 431 433 NR9S K3 K4 ANDERSON CREEK 0535150000 NR10 TUCKER CREEK 0535150100 432 NSC1 SOUTHWEST PRONG 0535150300 NSC2 EAST PRONG 0535150400 NSC3 HANCOCK CREEK 0535160000 435 436 NR11 K1 K2 NHC1 REEDS GUT 0535160100 STILL GUT 0535160200 CAHOOGUE CREEK 0535160300 NHC2 CLUBFOOT CREEK 0535170000 H2 H3 H5 MITCHELL CREEK 0535170100 H1 MORTONS MILL POND 0535170200 S3 GULDEN CREEK 0535170300 H4 HARLOWE CANAL 0535170400 RCC1 LONG CREEK 0535180000 COURTS CREEK 0535190000 ADAMS CREEK 0535200000 G21 G22 S23 S25 GODFREY CREEK 0535200100 S24 DELAMAR CREEK 0535200200 KELLUN CREEK 0535200300 KEARNEY CREEK 0535200400 ISAAC CREEK 0535300500 S22 BACK CREEK (BLACK CREEK) 0535200600 620 121 CEDAR CREEK 0535200700 JONAQUIN CREEK 0535200701 G19 S26 DUMPLING CREEK 0535200800 SANDY HUSS CREEK 0535200900 GARBACON CREEK 0535210000 SOUTH RIVER 0525220000 G13 NSR1 HARDY CREEK 0535220100 G15 BIG CREEK 0535220200 111 G16 SOUTHWEST CREEK 0535020300 G11 EASTMAN CREEK 0535220400 G12 HEADWATERS 0535220500 113 G10 HORTON BAY 0535220600 G14 S27 BROWN CREEK 0535230000 TURNAGAIN BAY 0535240000 G4 G1 S39 S40 ABRAHAM BAY 0535240100 BROAD CREEK 0535240200 BIG GUT 0535240300 DEEP CUT 0535240400 G2 OLD CANAL S38 PARSON'S CREEK 0535240600 G3 S28 HEADWATERS 0535240700 TUMP GUT 0535240800 MULBERRY PT CREEK 0535240900 SWIFT CREEK 0535250000 412 NSW1-NSW5 0535250100 NSW6 NSW7 NSW8 PITCHKETTLE CREEK 0535260000 405S NPK1 NPK2 APPENDIX B WATER BODY CODES CODES 2MAY 1984 10:39 WEDNESDAY, MAY 2 19 WATER CODE STATIONS TURKEY QUARTER CREEK NTQ4-NTQ3 TAYLORS CREEK MY Ali *I APPENDIX 8 WATER BODY COVER AU TION CODES 2 MAY 1984 10:37 WEDNESDAY, MAY 2, 20 0 I T WATER CCDE STATIONS D E M C I KIDDLE SWANP 05254 401 NE M 1 2p11) Y 1pN' IF GpH1pi pH p, A M K MOSLEY CREEK 0535 00 GAR G 0 PC I r pK C . 1 )1p@r A STONYTON CREEK 0515 00 N T1 NST2 M CREEK 1p1 SOUTHWEST CREEK 0515 0000 N 1 I 1ph WEST BAY FALLING CREEK 0515 0000 NTA1 NFA2 JM 1 7 I WHITLEYS CREEK 05351 003 l TU 0- LON 0- J1 J S35 FUR pK SQUIRREL CREEK 0535111 00 7 CREEI U2p0 BEAR CREEK 05 5 00 NES1 WEST THOROFARE BAY 4 WALNUT CREEK 05351 00 NNA1 THRC 0 7 SLEEPY CREEK 05354 000 CABIN BRANCH 05 55 0000 p,' p0J MEREDITH DAY - . SOUND p.@ I p@p, FELLOWS BRANCH 05 55 0000 AREAS WITHIN CO'RO WATNpL1p@ RG 0 CARROWAY CREEK 05 55 0000 POPLAR BRANCH 0535520000 LITTLE RIVER 05355 00 NE I1-NLI4 BEAVERDAM CREEK 0535540000 NE D1 HALFMILE BRANCH 05355 0000 DAWDY CREEK 05335 000 FALLING CREEK (GRANTHAM QUAD.) 0535510000 NF 1 MOCCASOM CREEK 05335 000 MILL CREEK 0535 0000 NMI1-NMI4 HANNAH CREEK 0535600100 NMI5 RACCOON SWAMP 0535 00 GAR GUT 0535620000 POLECAT BRANCH 0535630000 BLACK CREEK 0535640000 NOL1 ARTERS BRANCH 0535 0000 MIDDLE CREEK 0535669000 NMD1 SWIFT CREEK 05356 0100 NMD2 THE NARROWS 0536000000 WEST BAY 0537000000 J34 J31 M17-M19 S37 NEWSTUMP BAY-POINT 0537010000 TUMP ISLAND 0537020000 LONG BAY 0537010000 J1 J3 S29 S31 S32 S35 S37 FUR CREEK 0537030100 J2 GOLDEN CREEK 0537030200 CC9 S30 STUMP BAY 0537030300 WEST THOROFARE BAY 0537040000 J11 J12 S36 S34 CODDUGGEN CREEK 0537040100 J10 S33 THOROFARE CANAL 0537040200 MERKLE BAY 0537050000 J13 NORTH BAY 0537 0000 J20 J21 MEREDITH BAY 0537070000 SOUND BAY 05380 0000 CORE SOUND 0600 00000 S2 AREAS WITHIN CORE SOUND PROPER 0600000000 S2 WAINWRIGHT ISLAND 0600010000 WAINWRIGHT'S SLOUGH 0600020000 SHELL COVE 0600030000 HALL POINT 0600040000 YELLOW SHOAL 0600 0000 DAVIS ISLAND 06000 0000 MULLET SHOAL 06000 0000 DAVID SHORE CHANNEL 0600000000 71 CORE SOUND CHANNEL 0600000000 82 MAINLAND AREAS OF CORE SOUND 0341698000 550 548 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY MAY 2, 21. WATER CODE STATIONS CEDAR ISLAND BAY 06010 0000 91 94 CC0 S52 S51 BACK BAY 0601 1 100 GREAT DITCH 0601010101 92 LEWIS CREEK 060192 000 349 SOUTHWEST PRONG 0 01 0100 CC11 RUMLEY BAY EAST THOROFARE BAY S45 S46 S47 BARRY BAY S42 S43 E. THOROFARE CK (MERKLE HAMMOCK) CC10 S44 CEDAR CREEK 0601050000 STYRON BAY GLOVER CREEK 0601 NELSON BAY 0601 000 S19 FULCHERS CREEK 0601000100 LEWIS CREEKQ 0601000200 WILLIS CREEK 0601000300 S17 SALIERS CREEK 0601 400 CC8 LONG, BAY - NELSON BAY CHANNEL 0601080500 BROAD CREEK 0601090000 BRETT BAY 0601 000 OYSTER CREEK 0601110000 CC7 S15 SPIT BAY 0601120000 JARRETTS BAY 0601130000 CC14 CC19 72 S12 S13 SMYRNA CREEK 0601130100 CC6 GREAT CREEK 0601130200 DUTCH COVE 0601130300 SALTER CREEK 0601130400 HOLLAND CREEK 0601130500 WILLISTON CREEK 0601130600 WADE CREEK 0601130700 MIDDINS CREEK 0601140000 73 JUMP RUN 0601140100 TUSK CREEK 0601140200 GREAT MARSH CREEK 0601150000 STRAITS 0601160000 53 1 WEST MOUTH BAY 0601160100 52 EAST MOUTH BAY 0601160200 SLEEPY CREEK 0601160300 54 WHITEHURST CREEK 0601160400 STRAITS CHANNEL 0601140500 HARPER'S POINT CHANNEL 0601160300 51 CORE BANKS AREAS OF CORE SOUND 0602000000 CB1-CB6 CB8 CB14-CB16 CB19 CB21 CB23 CB27 CB28 CORE BANKS AREAS OF CORE SOUND 0602000000 CB28S S11 S14 S16 S18 16 17 20 DRUM INLET 0602010000 CB7 GUN CLUB 06020 0000 CB9 CB10 19 SWASH INLET 0602 30000 GREAT ISLAND CREEK 0602010000 GREAT ISLAND BAY 0602 50000 18 CB12 CB13 JOHNSON CREEK (HAMMOCK) 0602 000 LEWIS CREEK .0220 CODDS CREEK 060 000 HOG PEN BAY 060 0000 .0826 BARDEN INLET WHITEHURST ISLAND 0602 2 000 62 15 CORE BANKS FLATS 0602130000 84 HORSEPEN PT (BAY) 0602140000 CB17 APPENDIX WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 22 WATER CODE STATIONS HORSEPEN CREEK 0602 40100 CB18 HORSE ISLAND CREEK 060 50000 CB11 MULLET COVE 0602160000 CB22 SHEEP PEN CREEK 000 CB24 CB25 BACK SOUND 070 0000 13 14 63 AREAS WITHIN BACK SOUND PROPER 0700000000 13 14 63 MIDDLE MARSHES 0700 10000 SHELL POINT 07000 000 41 BANKS BAY 0701 000 NORTH RIVER 0702009000 S10 AREAS WITHIN NORTH RIVER PROPER 00000 S10 NORTH RIVER MARSHES 0702000100 NORTH RIVER NARROWS 070 000200 CB5 NORTH RIVER BELOW BRIDGE 0702 00300 46 S9 STEEP POINT CHANNEL 0702 400 48 SHEEPHEAD MARSH 0702000500 12 TURNER CREEK 0702010000 GOOSE BAY 0702020000 WARD CREEK 0702030000 47 NORTH LEOPARD CREEK 0702030100 SOUTH LEOPARD CREEK 0702030200 UPPER WARD CREEK NARROWS 0702030300 BEAUFORT INLET 0800000000 NEWPORT RIVER 0801 000 S4 AREAS WITHIN NEWPORT: RIVER PROPER 0801 000 S4 NEWPORT MARSHES 0801 0100 PHILLIPS ISLAND 0801 00200 43 CROSS ROCK 0801000300 CC3 S5 ANNIEBELLE ROCK 0801000400 LINEKILN ROCK 0801000500 BULLS EYE 0801000600 FLAT ROCK 0801000700 UPPER HAMMOCK 0801000800 LOWER HAMMOCK 0801000900 WHITE ROCK 0801001000 TURTLE ROCK 0801001100 CRAB POINT THOROFARE 0801 01200 41 MID NEWPORT RIVER 080 300 CC4 44 TAYLOR'S CREEK 0801 20000 CALICO BAY 0801 20000 CALICO CREEK 0801 0000 CC13 CRAB POINT BAY 0801030100 CC12 HELL GATE CREEK 0801030200 41A CC15 WADING CREEK 0801040000 RUSSELL CREEK 0801050000 CORE CREEK 0801060000 WARE CREEK 0801070000 BELL CREEK 080 70100 EASTMAN CREEK 0801070200 OYSTER CREEK 0801070300 HARLOWE CREEK 0801 80000 42 BOGUE SOUND 0801 0000 8 AREAS WITHIN BOUNCE SOUND PROPER 0900 00000 8 BURDEN CHANNEL 090 010000 4 22 EMERALD ISLE FERRY CHANNEL 090 920000 5 24 CAT ISLAND 0900300000 9 25 APPENDIX & WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 23 WATER CODE STATIONS IWW 0900 40000 27 10 6 DRUM SLOUGH 0900 50000 11 33 TAR LANDIN BAY 0901000000 34 HOOP POLE CREEK 0 0000 PELTIER CREEK 0904 0000 31 SPOONERS CREEK 0905 0000 GALES CREEK 0906000000 26 BROAD CREEK 0907000000 SANDERS CREEK 0 00 7 GOOSE CREEK 0909000000 28 ARCHER CREEK 0910 0000 23 DEER CREEK 1000 0000 3 21 BOGUE INLET 1001 0000 WHITE OAK RIVER 1001 00000 AREAS WITHIN WHITE OAK RIVER PROPER 1001 100 11 12 CC1 WHITE OAK MARROWS 1001000200 CC2 TURNSTAKE 1001000300 14 OLD SWANSBORO CHANNEL 1001010000 DUBLING CREEK 1001 000 BOAT HOUSE CREEK 1001030000 PETTIFORD CREEK BAY 1001030100 13 PETTIFORD CREEK 1001030200 WO2 STARKEY CREEK 1001040000 WELLS CREEK 1001050000 HUNTERS CREEK 1001060000 SPRING BRANCH 1001070000 HOLSTON CREEK 1001080000 WO HOLLAND MILL CREEK 1001080100 CARTWHEEL BRANCH 1001090000 HARGETTS CREEK 1100000000 BOGUE SOUND TO NEW RIVER INLET 1101 0000 BI1 - BI3 MAINLAND AREAS 1101 10000 FB1 FB2 FOSTER'S BAY 1101020000 QC1 - QC10 QUEENS' CREEK 1101030000 BC1 - BC6 BEAR CREEK 1102000000 BC1 - BC7 SEASIDE AREAS 1102010000 2HB1 - HB6 HAMMOCK'S BEACH 1103000000 IWW1 - IWW3 IWW 1200000000 NEW RIVER INLET 1201000000 NEW RIVER 1201010000 1 NR9 NR11 NR14 NR38 - NR47 NEW RIVER INLET I 72 BRIDGE 1201010100 NR10 SNEADS CREEK 1201010200 NR48 FANNIE CREEK 1201010300 BC49 WHEELER CREEK 1201 0400 ELLIS COVE 1201 10500 JERRET'S POINT 1201020000 MIDDLE NEW RIVER 1201020100 NR8 NR12 NR32-NR34 NR60 NR76 STONES BAY 1201 20101 NR35 EVERETT CREEK 1201020102 NR36 STONES CREEK 1201 20103 NR37 MUDDY CREEK 04 NR13 MILL CREEK 1201 20105 EASTERN SHORE 1201020106 WESTERN SHORE 1201020107 CATFISH POINT 1201020108 APPENDIX B WATER BODY CODES AND STATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 24 WATER CODE STATIONS RIFLE RANGE 120 0109 FARRELL BAY 1 209 NR7 NR24 NR27 NR61-NR64 BUCK CREEK 1 201 28 CREEK 1201 202 NR6 NR29 TOWN CREEK 1201 203 NR30 WHITEHURST CREEK 1201 204 NR31 MORGAN BAY 1201 20300 NR22 NR23 NR65-NR68 WALLACE CREEK 1201 301 NR20 NR21 LEWIS CREEK 1201 302 NR19 CHADWICH BAY 120 400 NR50-NR53 FULLARD CREEK 1201 20401 NR54 NR55 BIGLINS CREEK 1201020402 NR56 NR57 CHARLES CREEK 1201020403 NR58 NR59 UPPER NEW RIVER 1201030000 NEW RIVER 1201030100 NR1-NR3 NR69-NR72 SOUTHWEST CREEK 1201 200 NR5 NR18 NORTHWEST CREEK 1201030300 NR4 NR16 NR17 NR73-NR75 SCALE CREEK 1201 301 NR15 (NEW RIVER INLET TO SURF CITY) 1300000000 MAINLAND AREAS 1301000000 SSI1 SSI4 SSI5 ALLIGATER BAY 1301020000 SSI6 SSI7 TURKEY CREEK 1301030000 SSI18 GOOSE BAY 1301040000 SSI12 SSI13 KING'S BAY 1301050000 SSI9 SSI14 SSI15 BARLOW CREEK 1301060000 SSI10-SSI13 WATERS BAY 1302000000 SEASIDE AREAS 1302010000 SS07 SS08 ALLIGATOR BAY 1302020000 SS01 SS06 SS12 SPICER'S BAY (EVERETT BAY) 1302040000 SS02-SS05 SS09-SS011 BERMUDA ISLAND BAY 13030 0000 IWW4-IWW13 IWW 1400 0000 TOPSAIL SOUND (SURF CITY TO TOPSAIL INLET 1401000000 TI1-TI10 MAINLADN AREAS 1401 10000 BH1-BH3 BISHOP CREEK 1401020000 VC1-VC8 VIRGINIA CREEK 1401030000 MB1-MB4 MALLARD BAY 1401040000 OTC1-OTC6 OLD TOPSAIL CREEK 1402 0000 SEASIDE AREAS 1402010000 OC1-OC7 OLD CHANNEL 1402020000 TS1-TS10 TOPSAIL MARSHES 1402030000 DC1-DC3 BANK'S CHANNEL 1403 0000 IWW14-IWW20 IWW 1500000000 MIDDLE SOUND (TOPSAIL INLET TO MASON'S INLET) 1501000000 MS1-MS6 MAINLAND AREAS 1501010000 MC1-MC4 MILL CREEK 1501 20000 FC1-FC4 FUTCH'S CREEK 1501030000 PC1-PC10 PAGE'S CREEK 1502000000 SEASIDE AREAS 1502010000 RI1-RI8 LEA ISLAND MARSHES 1502020000 FE1-FE5 FIGURE EIGHT ISLAND MARSHES 1502030000 MA1-MA4 MASON'S CHANNEL 1503000000 IWW21-IWW28 IWW 1600000000 WRIGHTSVILLE SOUND (MASON'S INLET TO MASONBORO INLET)16010 000 WI1-WI6 MAINLAND AREAS 1601000000 WI1-WI6 HOWE CREEK 1601010000 HC1-HC3 BRADLEY CREEK 1601020000 BR1-BR5 APPENDIX B WATER BODY CODES CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 25 WATER CODE STATIONS SEASIDE AREAS 1602000000 WRIGHTSVILLE MARSHES 1602010000 WM1-UM8 WRIGHTSVILLE CHANNELS 1602020000 WM1-WB10 IWW 1603000000 ZUW29-IWW35 MASONBORO SOUND (MASONBORO INLET TO CABBAGE INLET, MARKER: 138)1700000000 MAINLAND AREAS 1701000000 NC1-MC5 HEWLETT'S CREEK 1701010000 NE1-ME5 WHISKEY CREEK 1701020000 NC1-WC5 SEASIDE AREAS 1702000000 MASONBORO MARSHES 1702010000 MM1-MM9 IWW 1703000000 IWW36-IWW39 MYRTLE GROVE SOUND 1800000000 MAINLAND AREAS 1801000000 MAINLAND MARSHES 1801010000 MI1-MI9 SEASIDE AREAS 1802000000 SEASIDE MARSHES 1802010000 M01-M09 IWW 1803000000 IWW40-IWW46 CAROLINA BEACH YACHT BASIN 1804000000 CBY1-CBY4 CAPE FEAR RIVER 1900000000 CAPE FEAR RIVER BELOW WILMINGTON 1901000000 BALD HEAD AREAS 1901010000 BASIN 1901010100 CFR38-CFR40 NORTHEAST ARM 1901010101 CFR41-CFP42 SECOND BAY 1901010200 CFR29 CFR30 CFR43-CFR45 BUZZARD'S BAY 1901010300 CFR46 CFR47 BALD HEAD CREEK 1901010400 CFR31-CFR33 FISHING CREEK 1901010500 CFR28 EAST BEACH CREEK 1901010600 CFR25 CFR27 CAPE CREEK 1901010700 CFR22-CFR24 BAY CREEK 1901010800 CFR19-CFR21 DEEP CREEK 1901010900 CFR15-CFR17 CEDAR CREEK 1901011000 CFR14-CFR18 MUDDY SLOUGH 1901011100 CFR34-CFR37 SOUTHPORT AREAS 1901020000 WALDEN CREEK 1901020100 CFR13-CFR47 NANCY'S CREEK 1901020101 CFR48 ELIZABETH RIVER 1901020200 CFR50-CFR52 DUTCHMAN CREEK 1901020300 CFR53-CFR55 CP&L DISCHARGE CANAL 1901020400 CFR56-CFR58 CP&L INTAKE CANAL 1901020500 CFR59-CFR62 BEAVERDAM CREEK 1901020600 BD1 CAPE FEAR RIVER BAYS 1901030000 SOUTH OF SNOW'S CUT 1901030100 CFR8 CFR10-CFR12 CFR63-CFR70 NORTH OF SNOW'S CUT 1901030200 CFR4 CFR5 CFR71-CFR80 DREDGED AREAS 1901040000 CFR3 CFR6 CFR7 CFR9 CFR81-CFR87 CREEKS 1901050000 LILLIPUS CREEK 1901050100 CFR88 TOWN CREEK 1901050200 CFR89 CFR90 MALLORY CREEK 1901050300 CFR91 CFR92 BERNARD CREEK 1901050400 CFR93 MOTT CREEK 1901050500 CFR94 CAPE FEAR RIVER, WILMINGTON AND ABOVE 1902000000 CFR1 POOLS 1902010000 POOL 1 1902010100 INDIAN CREEK 1902010101 LIVINGSTON CREEK 1902010102 APPENDIX B WATER BODY CODES AND CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 26 CODE STATION POOL 2 TURNHILL CREEK 1902210200 POOL 3 UPPER POOL BRUNSWICK RIVER CFR95-CFR99 NORTHEAST CAPE FEAR RIVER SMITH CREEK TO LANE FERRY PER2 NE1-NE3 NE5 NE7-NE18 NE20 LANE FERRY TO GROOM'S BRIDGE NE21 NE30 GROOM'S BRIDGE TO ABOVE GOSHEN II NE31 NE 32 NE34-NE39 BLACK RIVER BELOW HWY 210 LYON CREEK MOORES CREEK COLLY CREEK NWY 210 TO HWY 50 BELOW HWY 701 ABOVE DUNN HWY 731 TO DUNN HWY 53 TO IVANHOE ABOVE IVANHOE SIX RUNS CREEK YELLOW BANKS TO LOCKWOOD'S FOLLY INLET LOCKWOOD'S FOLLY RIVER LFR1-LFR20 CROSS ROCK SANDSHOAL GALLOWAY FLATS DRUMS SLOUGH SPRING BRANCH DAVIS CREEK AREA DC1-DC6 IWW IWW47-IWW52 LOCKWOOD'S FOLLY RIVER TO SHALLOTTE INLET SHALLOTTE RIVER SR1-SR5 GIBBS CREEK GC1-GC4 BOOOMS ISLAND BI1-BI3 SAUCEPAN CREEK SC1-SC5 IWW IWW53-IWW61 SHALLOTTE INLET TO LITTLE RIVER INLET TUBB'S INLET TU1-TU6 EASTERN CHANNEL EC1-EC5 SOLS CREEK SC1 SC2 SUNSET BEACH CAUSEWAY DITCH CD1 SD7 FOX CREEK CS4 SB12 BLANE CREEK SB2 SB13 SB14 SALTBOILER CREEK SB2 SB8 SB7 BONAFARTE CREEK SB3 SB10 SB11 DEAD RIVER SB6 SB15 SB17 LITTLE RIVER LR1-LR3 CALABASH CREEK CR1-CR5 OLD CHANNEL OL1-OL3 IWW IWW62-IWW71 BRICK LANDING CHESAPEAKE BAY AREAS WITHIN CHESAPEAKE BAY PROPER BELOW THE BAY BRIDGE TUNNEL APPENDIX B WATER BODY CODES ATION CODES 2 MAY 1984 10:39 WEDNESDAY, MAY 2, 1984 27 WATER CODE STATIONS BAY BRIDGE TUNNEL TO VA/MD LINE 5000020000 VA/MD LINE TO BAY BRIDGE 5000030000 ABOVE DAT BRIDGE 5000040000 LYNNHAVEN BAY 5001000000 BROAD BAY 5001010000 LITTLE CREEK 5002000000 JAMES RIVER 5003000000 BACK RIVER 5004000000 YORK RIVER 5007000000 MOBJACK BAY 5008000000 HORN HARBOR 5009000000 PIANKATANK RIVER 5015000000 RAPPAHANNOCK RIVER 5016000000 FLEETS BAY 5017000000 DIVIDING CREEK 5017000000 INGRAM BAY 5019000000 LITTLE WICOMICO RIVER 5020000000 POTOMAC RIVER 5025000000 PATUENT RIVER 5025000000 HERRING BAY 5027000000 SOUTH RIVER 5028000000 SEVERN RIVER 5029000000 MAGOTHY RIVER 5030000000 PATAPSCO RIVER 5035000000 BACK RIVER 5036000000 MIDDLE RIVER 5037000000 SENECA CREEK 5038000000 SALTPETER CREEK 5039000000 GUNPOWDER RIVER 5040000000 BUSH RIVER 5041000000 ROMNET CREEK 5042000000 ? 5043000000 SUSQUEHANA RIVER 5043010000 NORTHEAST RIVER 5043020000 ELK RIVER 5050000000 CHESAPEAKE AND DELAWARE CANAL 5050010000 BOHEMIA RIVER 5050020000 SASSAFRAS RIVER 5051000000 STILL POND 5052000000 WORTON CREEK 5053000000 FAIRLEE CREEK 5054000000 SWAN CREEEK 5055000000 CHESTER RIVER 5056000000 EASTERN BAY 5057000000 CHOPTANK RIVER 5058000000 TRIPPE BAY 5059000000 LITTLE CHOPTANK RIVER 5060000000 TAR BAY 5065000000 TANGIER SOUND 5066000000 FISHING BAY 5066010000 NANTICOKE RIVER 5066020000 MONIE BAY 5066030000 WICOMICO RIVER 5066030100 MANOKIN RIVER 5066040000 BIG ANNEMESSEX RIVER 5066050000 LITTE ANNEMESSEX RIVER 5066060000 w NESDAY An 1pr 1p0 1 2p1 MAY 2 R 2p" 1p[7 1" @ C m A I 0 C p.K 1pR H CH A GULF 11p0 N 1.... OLD F'LpI APPENDIX C: GEAR CODES Due to common usage, English units should be used for descriptive parameters unless metric units are specified for the gear (e.g. plankton nets). Mesh size must be-in bar units hot stretch units and reflect the opening in the mesh. The presence or absence of such things as cull rings will be denoted as.a zero if not present and the number one if present. .Bait can be classified as follows; specific codes can be added later. A. natural, unclassified B. unnatural, 'unclassified CODE GEAR DESCRIPTIVE PARAMETERS 100, fixed gear, unclassified .110 traps and pots, unclassified ill crab pot, unclassified number of culling rings, size of culling rings 112 crab pot, with outside cage number of culling rings size of culling rings. 114 eel pot, unclassified size, mesh, bait 115 eel pot, cylindrical size, mesh, bait 116 eel pot, rectangular size, mesh, bait 117 catfish'pot size, mesh, bait 118 fish trap size, funnel size, number of pots 119 lobster trap size, bait 120 shrimp traps size, mesh,.bait 130 pound net length of lead, pound mesh size, number of pounds 135 fyke net length of lead, mesh size, funnel size 1401, hoop net hoop size, mesh size, funnel size @APPENDIX C (continued) CODE GEAR bESCRIPTIVE PARAMETERS 150 channel net headrope length, body mesh size,. .,bag mesh size 200 gill net, unclassified length, mesh size, depth 210 150 ft. floating, drifting,. mesh size.of: panel 1, panel 2, monofilament gill net, with panel 3 3 panels of varying mesh size 211 150 ft. floating, anchored,. mesh size of panel 1, panel 2, monofilament gill net with panel 3' 3 panels of varying mesh size 212 monofilament gill net length, number of panels, depth floating anchored with variable length panels of variable mesh size 213 experimental gill net length, min. mesh size, max. mesh size 220 monofilament gill net length, mesh size, depth sink, anchored 222 multifilament gill net, length, mesh size, depth sink, anchored 230 monofilament gill net, length, mesh size, depth floating, drifting 232 multifilament gill net, length, mesh size, depth floating, drifing 240 monofilament gill net length, mesh size, depth sink, drifing 242 multifilament gill net, length, mesh size, depth sink, drifting 245 monofilament gill net, length, mesh size, depth floating, anchored 247 multifilament gill net, length, mesh size, depth floating, anchored. 250 drop net length, mesh size, depth C- 3 APPENDIX C (continued) CODE GEAR DES.CRIPTIVE.PARAMETERS 260 trammel net length, mesh size of outer panels, mesh size of inner panels 300 seines, unclassified Those seines with bags of different mesh sizes than the bodies must be given separate gear codes based on bag mesh size 310* bag seines length, mesh, depth 311 knitted bag seine, bag length, mesh, depth mesh size = 1/8 inch 320 haul seine length, mesh, depth 330 flat.seine length,-mesh, depth 340 beach seine length, mesh, depth 351 Division's long haul length, wing net mesh size., back net mesh size 352 commercial long haul length, wing net mesh size, back net mesh size 353 swipe net length, wing net mesh size, back net mesh size 360 purse seine length, depth mesh 371 cast nets size (spread diameter) mesh, amount of weight 380 herring basket (dipnet) size, mesh 382 bow net size, mesh 384 fight net size, mesh 386 lift net size, mesh 400 lines, unclassified length, no. of hooks, bait 410 long line, unclassified length, no. of hooks, bait 411 long line, surface length, no. of hooks, bait 412 deep line (bottom) length, no. 'of hooks, bait C-4-- APPENDIXC (continued) .413 vertical drift line length, no. of hookst' bait 415 trotline length, no. of hooks, bait 420 book and line, unclassified 'depth of book, number of lines fished, bait 421 float fishing depth of hook, number of lines fished, bait trolling depth of hook, number of lines fished, bait 423 @.midwater fishing depth of hook, numberof lines fished, bait 424 bottom fishing number of hooks, number of lines fished, bait 440 handline depth of hook, number of lines fished, bait 500 trawl, unclassified headrope length, body mesh size tailbag mesh size 510 balloon trawl, headrope length, body mesh size unclassified tailbag mesh size 515 DAN MOORE midwater trawl headrope length, body mesh size tailbag mesh size 530 semi-balloon trawl headrope length, body mesh size .,unclassified tailbag mesh size 531 Carolina wing trawl headrope length, body mesh size tailbag mesh size 532 commercial flynet headrope length, body mesh size tailbag mesh.size 534 Irish 3-bridle trawl headrope length, body mesh size tailbag mesh size 535 NCSU semi-balloon trawl headrope length, body mesh size tailbag mesh size 536 Division's semi-balloon. headrope length, body mesh size trawl tailbag mesh size C- 5 APPENDIX C (continued) CODE GEAR. DESCRIPTIVE PARAMETERS 538 Cobb trawl. headrope length, body mesh size tailbag mesh'size 550 flat trawl, unclassified headrope length., body mesh size tailbag mesh,size 552 Yankee trawl headrope length, body mesh size tailbag mesh size 553 offshore flounder trawl headrope length, body mesh size tailbag mesh size .554 trynet headrope length, body mesh size tailbag mesh size- 556 Division's stock assessment headrope length, body mesh size trawl, knotted throughout tailbag mesh size 558 heavily chained Division headrope length, body mesh size stock assessment trawl tailbag mesh size 560 Division's shrimp trawl headrope length, body mesh size (DAN MOORE) tailbag mesh size 570 commercial shrimp trawl headrope length, body mesh size tailbag mesh size 572 commercial scallop trawl headrope length, body mesh size. tailbag mesh size 574 commercial crab trawl headrope length, body mesh size tai-lbag mesh size 575 commercial peeler crab headrope length, body mesh size trawl tailbag mesh size Gear codes in the 600 series will use metricunits to-describe gear parameters. 600 plankton net, unclassified opening diameter, mesh size depth fished 605 standard conical plankton opening diameter, mesh size net depth fished 610 Wisconsin plankton net opening diameter, mesh size, depth fished C- 6 APPENDIX C (continued) CODE GEAR DESCRIPTIVE PARAMETERS 620 Juday plankton trap ..opening diameter, mesh size, depth fished,' 630 'bongo net opening diameter, mesh size, depth fished 640 Clarke.Bumpus opening diameter, mesh size, -depth fished 645 Tucker' trawl opening diameter, mesh size, depth fished 650 Neuston net opening diameter, mesh size., depth fished 700 dredge or grab, width, mesh size, weight unclassified 713 scallop dredge (can be width, mesh size, weight towed only one way) 715 tumbler dredge, width, mesh size, weight 720 Quahog dredge (Fall R.) size, teeth number, weight .730 Peterson grab size 740 Eckman dredge size .745 scrape. size, mesh size 746 suction pump head size, bag mesh size 750 hydraulic gear, unclassified 754 oyster dredge length of toothbar, weight 758 escalator dredge, clam head 762 escalator dredge, seed oyster harvester 766 patent tongs length of toothbar C- 7 APPENDIX C(continued) 'CODE GEAR 'DESCRIPTIVE PARAMET'ERS. 770 inboard clam kicker headrope length, boat draft with clam net 771 outboard clam kicker headrope lengthp boat draft. .800 hand gear, unclassified 805 hand harvest 810 rake, unclassified 811- ..Jersey rake 812 pea digger rake 815 bull rake tbothbar length, teeth number 820 basket rake 830 hand tongs 835 gig Miscellaneous gear 911 ichthyocides 912 explosives' 920 night light 925 camera 926 diver observations and/or collections 927 spear gun 940 electric shocker voltage out, pulse width, frequency 950 submersible 960 fish wheel basket size 999 unknown D-1 APPENDIX D.: BOTTOM TYPES All the programs except Dan Moore, will use the first column to denote sediment size and the second to denote bottom composition. Column 80:1 Sediment Size Size definitions: ''category size (mm) 1. gravel .4-64' 2. coarse sand 1/2-4 3. find sand 1/16-1/2 4. coarse silt 1/64-1/16 5. 11claye! 1/4096-1/64 The primary sediment size should denote the modal class of sediments according to Ingram (1965). The secondary sediment size should include those sizes in large enough amounts to affect the main name of the sediment. If actual sediment sizes are recorded, use the following codes. Primary sediment,,size: Secondary sediment size A. gravel B. gravel:coarse sand C. gravel:fine sand gravel:coarse silt E. gravel:clay F. coarse sand G. coarse sand:gravel H. coarse sand:fine sand I. coarse sand:coarse silt J. coarse sand:clay K. fine sand L. fine sand:graviel M. fine sand:coarse sand fine sand:coarse silt 0. fine sand:clay P. coarse silt Q. coarse silt:gravel R. -coarse silt:coarse sand S. coarse silt:fine sand T U: coarse silt:clay clay V. clay:gravel W. clay:coarse sand X. clay:fine sand Y. clay:coarse silt 0-2 APPENDIX D (continued) If-the sediment size is determined in the field or not quantified, alternate sediment size codes should be-used.. .0. cemented hard bottom or rock 1. hard sand 2. soft mud 3. hard mud 4. clay 5. silt .6. muddy sand 7. sandy mud 8. sand 9. mud Column 81: Bottom Composition The following codes will be used to denote-the general bottom composition (excluding the size of the sediments). A. shell B. grass C. algae D. detritus E. sponge F. coral G. shell, grass H. grass, algae I. shell, grass, algae J. shell, algae K. grass, detritus L. grass, algae, detritus, M. shell, detritus N. cinder The Dan Moore programs will continue using their codes in columns 80 and 81. They are: BD boulders CL clay CO coral GL gravel GR grass HD mud ML marl OZ ooze RK rock SA sand SH shell SP sponge E-1 APPENDIX E: WATER LEVEL OR SEA STATE Tides-lunar A. early ebb B. mid,ebb C. late ebb ebb slack E. early flood F. late flood G. midflood H. flood slack X. -ebb-(low) Y. flood (high) Z. slack Wind Tides and River Stage I. high J. normal K. low 'L. flood M. ice Sea State Beaufort Scale (probable wave height, in feet, given in parentheses). Record the chop, not swell, when chop occurs. N. sea like mirror (0) 0. ripples with appearance of scales;.no foam crests (1/4) _.P. small wavelets, crests of glassy appearance, not breaking (1/2) largewavelets, crests begin to break, scattered whitecaps (2) R,- small waves, becoming longer, numerous whitecaps (4) moderate waves,-taking longer form, many whitecaps (6) T.@ larger waves forming, whitecaps everywhere, more spray (10)- U. moderate swell F-1 APPENDIX F: ALTERATION STATE AND ALLOWED FISHING ACTIVITY ALTERATION STATE 1. no alteration 2. closed due.to pollution 3. channelized 4. channelized and closed due to,pollutio,n 5. sample site unaltered but alterations in nearby environment could affect site. ALLOWED FISHING ACTIVITY record by most severe bottom disturbing activity A. no commercial fishing activity allowed B. crab or shrimp trawling allowed C. -dredging allowed D. hydraulic dredging or clam travlingj@:kicking allowed. E. trawling, dredging, non bottom disturbing activities allowed F. trawling and hydraulic dredging allowed G. dredging and hydraulic dredging allowed H. all fishing activities allowed I. non bottom disturbing fishing activities allowed J. all activities except trawling, hydraulic dredging allowed, clam kicking allowed. APPENDIX G: SPECIES CODES The following are the National Oceanic Data Center (NODC) codes. Many freshwater species are not listed buta request has been made to. assign, codes to these species. Should you collect a species withouta code leave the species code field blank to be filled in when a code is assigned. Please note that the Chondrichthyes taxa,have been-given 'the same first order code as the lower Osteichthyes (87). Record Chondrichthyes. (87.01-8716) as 9701-9.716. Donot assign codes to any unlisted species. The purpose of using W4 NODCcodes is for national standardization. We Lll request unlisted codes from the NODC. 2 MAY 1984 ****VERTEBRATA**** ****CHONDRICHTHYES**** ****OSTEICHTHYES**** ALEWIFE 8747010105 ALOSA PSEUDOHARENGUS AMBERJACKS 8835280800 SERIOLA AMBERJACK, GREATER 8835280801 SERIOLA DUMERILI ANCHOVIES 8747020200 ANCHOA ANCHOVY, BAY 8747020202 ANCHOA MITCHILLI ANCHOVY, STRIPED 8747020201 ANCHOA HEPSETUS BARBFISH 8826010605 SCORPAENA BRASILIENSIS BARRACUDAS 8837010100 SPHYRAENA BARRACUDA, GREAT 8837010104 SPHYRAENA BARRACUDA BARRELFISH 8851010201 HYPEROGLYPHE PER IFORMIS BASS, LARGEMOUTH 8835160602 MICROPTESUS SALMOIDES BASS, YELLOWFIN 8835020102 MORONE SAXATALIS BIGEYES 8835170100 PRIACANTHUS BIGEYE 8835170101 PRIACANTHUS AREMATUS BIGEYE 8835170201 PRISTIGENYS ALTA BLENNIES 8842010000 BLENNIDAE BLENNY, BAY 8842010501 HYPLEUROCHILUS GEMINATUS BLENNY, FEATHER 8842010201 HYPSOBLENNIUS HENTZI BLENNY, STRIPED 8842010301 CHASMODES BOSQUIANUS BLUEFISH 8835250101 POMATOMUS SALTAIRIX BLUEGILL 8835160504 LEPOMIS MACROCHIRUS BLUE RUNNER 8835280306 CARANX CRYSOS BONITA, ATLANTIC 8850030202 SARDA SARDA BOWFIN 8734010101 AMIA CALVA BULLHEAD, BLACK 8777020106 ICTALURUS MELAS BULLHEAD, BROWN 8777020104 ICTALURUS NEBULOSUS BULLHEAD, SNAIL 8777020107 ICTALURUS BRUNNEUS BULLHEAD, YELLOW 8777020103 ICTALURUS NATALIS BUMPER 8835280401 CHLOROSCOMBRUS CHRYSURUS BURRFISH, STRIPED 8861030101 CHILOMYCTERUS SCHOE I BUTTERFISH 8851030103 PERRILUS TRIACANIMUS BUTTERFLYFISHES 8835550100 CHAETODON BUTTERFLYFISH, SPOTFIN 8835550101 CHAETODOR OCELLATUS CARP 8776010101 CYPRINUS CARPIO CATFISHES 8777020000 ICTALURIDAE CATFISHES 8777020100 ICTALURUS CATFISH, BLUE 8777020102 ICTALURUS FURCATUS CATFISH, CHANNEL 8777020105 ICTALURUS PUNCTATUS CATFISH, HARDHEAD 8777180202 ARIUS FELIS CATFISH, WHITE 8777020101 ICTALURUS CATUS CHUBSUCKER, CREEK 8776040302 ERIMYZON OBLONGUS CHUBSUCKER, LAKE 8776040301 ERIMYZON SUCETTA COBIA 8835260101 RACHYCENTRON CANADUM COD, ATLANTIC 8791030402 GADUS MORHUA CONEY 8835020802 EPINEPHELUS (=CEPHALOPHOLIS)FULVUS CORNETFISH, BLUESPOTTED 8819020101 FISTULARIA TABACARIA COWFISH, SCRAWLED 8860030201 LACTOPHRYS QUADRICORNIS CRAPPIE, BLACK 8835160702 POMOXIS NIGROMACULATUS CRAPPIE, WHITE 8835160701 POMOXIS ANNULARIS CREOLE-FISH 8835021701 PARANTHIAS FURCIFER CROAKER, ATLANTIC 8835440701 MICROPOSONIAS UNDULATUS CUSK-EELS 8792010900 OPHIDION CUSK-EEL, BANK 8792010603 OPHIDION HOLBROOKI CUSK-EEL, CRESTED 8792010605 OPHIDION WELSHI CUSK-EEL, STRIPED 8792010901 OPHIDION (=RISSOLA) MARGINAIUM CUTLASSFISH, ATLANTIC 8890020201 TRICHIURUS LEP RUS DARTERS 8835200100 ETHEOSTOMA DARTER, SAWCHEEK 8835200104 ETHEOSTOMA DARTER, SWAMP 8835200101 ETHEOSTOMA FUS DARTER, TESSELAYED 8835200102 ETHEOSTOMA DOCTORFISH 8849010102 ACANTHURUS CHI DOGFISH, CHAIN 9708010204 SCYLIOR INU DOGFISH, SMOOTH 9708020401 MUSTELUS CANIS DOGFISH, SPINY 9710010201 SQUALUS ACANTHIAS DOLPHIN 8835830101 CORYPHAENA HIP URUS DRUMS 8835440000 SCIAENIDAE DRUM, BLACKBAR N. SP. 8835441299 EQUETES (-PAREQUES)N. SP. DRUM, BANDED 8835440501 LARIMUS FASCIATUS DRUM, BLACK 8835440801 POGONIAS CROMIS DRUM, RED (CHANNEL BASS) 8835440901 SCIAENOSS OCELLATUS DRUM, STAR 8035441001 STELLIFER LANCOLATUS EEL, AMERICAN 8741010101 ANGUILLA ROSTRATA EEL, CONGER 8741120101 CONGER OCEANIC S EEL, SHRIMP 8741131001 OPHICHTHUS GOM EEL, SPECKLED WORM 8741130802 MYROPHIS PUNCTATUS ELOPIFORMS 8737000000 ELOPIFORKES FILEFISHES 8860020000 BALISTIDAE FILEFISH, ORANGE 8860020101 ALOTERUS SCHOE I FILEFISH, PLANEHEAD 8860020301 MONOCANTHUS HI IDUS FLIER 8835160301 CENTRARCHUS MACROPIEGUS FLOUNDERS 8857000000 PLEURONECTIODEL FLOUNDERS, LEFTEYE 8857030000 BOTHIDAE FLOUNDERS, RIGHTEYE 8857040000 PLEURONECTIDAE FLOUNDERS 8857030300 PARALICHTHYS FLOUNDER, FOURSPOT 8857030305 PARALICHTHYS FLOUNDER, FRINGED 8857030201 ETRUPUS CROSSOIUS FLOUNDER, GULF 8857030302 PARALICHTHYS ALBIGUTTA FLOUNDER, OCELLATED 8857030506 ANCYLOPSOTTA FLOUNDER, SOUTHERN 8857030304 PARALICHTHYS LOTHO IGHA FLOUNDER, SUMMER 8857030301 PARALICHTHYS DENTATUS FLOUNDER, WINTER 8857042001 PSEUDOPLLURONECTES AMERICANUS FLOUNDER, WITCH 8857040502 GLYPTOCEPHALUS CYNCELOSSUS GAG 8835020501 MYCTEROPERCA MICROLEPIS GAR, LONGNOSE 8732010101 LEPISOSTEUS OSSEUS GOBIES 8847010000 GOBIIDAE GOBIES 8847010500 GOBIONELLUS GOBY, DARTER 8847040501 GOBIONELLUS BO SOMA GOBY, FRESHWATER 8847010504 GOBIONELLUS SHEFELDTI GOBY, GREEN 8847010702 MICROGOBIUS THALASSINUS GOBY, NAKED 8847010601 GOBIOSOMA BOSCI GOBY, SHARPTAIL 8847010502 GOBIONELLUS HASTATUS GOOSEFISH 8786010101 LOPHIUS AMERICANUS GROUPER, BLACK 8835020502 MYCTEROFERCA GROUPER, MARBLED 8835020901 EPINEPHELUS GROUPER, SNOWY 8835020411 EPINEPHELUS NI ATUS GROUPER, RED 8835020408 EPINEPHELUS NIGRITUS GROUPER, YELLOWFIN 8835020506 MYCTEROBERCA V NOSA GROUPER, YELLOWEDGE 8835020405 EPINEPHELUS FLAVOL ATUS GROUPER, WARSAW 8835020410 EPINEPHELUS NIGRITUS GRUNT, WHITE 8835400102 HAEMOLON PLUMICCI HAKES 8791031000 UROPHYCIS HAKES 8791031006 UROPHYCIS EARLII HAKE, SILVER 8791040101 MERLUSCIUS BILINEARIS HAKE, SOUTHERN 8791031007 UROPHYCIS FLORIDANA HAKE, SPOTTED 8791031002 UROPHYCIS REGIA HAKE, WHITE 8791031003 UROPHYCIS TENUIS HALFBEAKE, 8803010301 HYPORHAMBUUS UNIFASCIATUS HARVESTFISH, 8851030106 PEPRILUS ALEPIDOTUS HERRINGS 8747010000 CLU EIDAL HERRING, ATLANTIC THREAD 8747010701 OPISTHONLMA OGL UM HERRING, BLUEBLACK 8747010102 ALOSA AE HERRING, RIVER 8747010100 ALOSA HERRING, ROUND 8747010601 ETRUMEUS TERES HIND, RED 8835020406 EPINEPHELUS GUTTATUS HIND, ROCK 8835020402 EPINEPHELUS HIND, SPECKLED 8835020404 EPINEPHELUS DRUM ONDHAY HOGCHOKER 8858010101 TRIN TES MACULATUS HOGFISH 8839010901 LACHNOLAIMUS MAXIMUS HOGFISH, SPOTFIN 8839010301 BODIANUS PULCHELLUS JACKS 8835280000 CARANGIDAE JACKS 8835280300 CARANX JACK, COTTONMOUTH 8835281701 URASHIS SECUNDA JACK, CREVALLE 8835280303 CARANX HIPPOS JACK, HORSE-EYE 8835280304 CARANX LATUS JACK, YELLOW 8835280301 CARANX BARTHOLO EI KILLIFISHES 8804040000 CYPRINODOTIDAE KILLIFISHES 8804040200 FUNDULUS KILLIFISH, BANDED 8804040202 FUNDULUS DIAPHANUS KILLIFISH, MARSH, BAYOU 8804040201 FUNDULUS CONFL TUS PULVERTUS KILLIFISH, RAINWATER 8804040301 LUCANIA PARVA KILLIFISH, STRIPED 8804040205 FUNDULUS MAJALIS KILLIFISH, WACCAMAW 8804040225 FUNDULUS WACCAMENSIS KINGFISHES 8835440600 MENTICIRRHUS KINGFISH, GULF 8835440602 MENTICIRRHUS LITTORALIS KINGFISH, NORTHERN 8835440603 MENTICIRRHUS SAMATILIS KINGFISH, SOUTHERN 8835440601 MENTICIRRHUS AMERICANUS LADYFISH 8738010101 ELOPS SAURUS LEATHERJACKET 8835280501 OLICOPLITES SAURUS LIZARDFISH, INSHORE 8762020101 SUMPDIS FPETEMS LOOKDOWN 8835280701 SELENE VOMER MACKERELS 8850030000 SCOMBRIDAE MACKERELS 8850030500 SCOMBEROMORUS MACKEREL, ATLANTIC 8850030302 SCOMBER SCOMBRUS MACKEREL, CHUB 8850030301 SCOMBER JAPONICUS MACKEREL, KING 8850030501 SCOMBEROMORUS CAVALLA MACKEREL, SPANISH 8850030502 SCOMBEROMORUS MACULATUS MADTOMS 8777020200 NOTURUS MADTOM, TADPOLE 8777020201 NOTURUS GYRINUS MAKO, SHORTFIN 9707040501 ISURUS OXYRINCHUS MENHADEN, ATLANTIC 8747010401 BREVOORTIA TYRANNUS MIDSHIPMAN, ATLANTIC 8783010108 PORICHTHYS PLECTRODON MINNOWS 8776010000 CYPRINIDAE MINNOWS 8776011100 NOTROPIS MINNOW, EASTERN SILVERY 8776010501 HYBOGNATHUS REGIUS MINNOW, SHEEPSHEAD 8804040101 CYPRINODON VARIEGATUS MOJARRAS 8835390000 GERREIDAE MOJARR, SPOTFIN 8835390101 EUCINOSTOMUS ARGENTEUS MOONFISH, ATLANTIC 8835281001 SELENE SITAPINNIS MORAYS 8741050000 MURAENIDAE MORAY 8741050504 MURAENA ROBUSTA MORAY, RETICULATE 8741050502 MURAENA RETIFER MOSQUITOFISH 8804080101 GAMBUSIA AFFINIS MUDMINNOW 8758020101 UMBRA PYGMAEA MULLET, STRIPED 8836010101 MUGIL CEPHALUS MULLET, WHITE 8836010102 MUGIL CURCMA MUMMICHOG 8804040203 FUNDULUS HETEROGLITUS NEEDLEFISHES 8803020200 STRONGYLURA NEEDLEFISHES 8803020300 TYLOSURUS NEEDLEFISH, ATLANTIC 8803020201 STRONGYLURA MARINA OCEAN SURGEON 8849010101 ACANTHURUS BAHIANUS PALOMETA 8835280903 TRACHINORUS GOO PARROTFISH, REDFIN 8839030405 SPARISOMA RUBRIPINNE PERCHES 8835200000 PERCTDAE PERCH, PIRATE 8781010101 APHREDODERUS SAYANUS PERCH, SAND 8835021002 DIPLECTRUM FORMUSUM PERCH, SILVER 8835440301 BAIR IELLA CHRYSHURA PERCH, WHITE 8835020101 MORONE AMERICANA PERCH, YELLOW 8835200201 PERCA FLAYESCEN PERMIT 8835280902 TRACHINOIUS FAL ATUS PICKEREL 8758010100 ESOX PICKEREL, CHAIN 8758010103 ESOX NIGER PICKEREL, REDFIN 8758010102 ESOX AMERICANUS AMERICANUS PIGFISH 8835400201 ORTHOPRISTIS CHRYSOPTERA PINFISH 8835430201 LAGODON RHOMBOIDES PINFISH, SPOTTAIL 8835430401 DIPLODUS HOLBROOKI PIPEFISHES 8820020100 SYNGNATHUS PIPEFISH, CHAIN 8820020104 SYNGNATHUS LOUISIANAE PIPEFISH, DUSKY 8820020102 SYNGNATHUS FLORIDAE PIPEFISH, NORTHERN 8820020103 SYNGNATHUS FUSCUS POLLOCK 8791030901 POLLACHIUS VIRENS POMPANO, AFFIRCAN 8835280202 ALECTIS CILARIS POMPANO, FLORIDA 8835280901 TRACHINOTUS CAROLINUS POMPANO, IRISH 8835390201 DIAPTERUS AURATUS PORGIES 8835430000 SPARIDAE PORGIES 8835430100 STENOTOMUS PORGY, KNOBBED 8835430506 CALAHUS NODOXUS PORGY, LONGSPINE 8835430102 STENOTOMUS CAPHINUS PORGY, RED 8835430601 PAGRUS PAGRUS PORGY, WHITEBONE 8835430505 CALAMUS LEUCOSTEUS BUFFERS 8861010200 SPHOEROIDES BUFFER, BANDTAIL 8861010211 SPHOEROIDES SPENGLEPI BUFFER, NORTHERN 8861010201 SPHOEROIDES MACULATUS PUMPKINSEED 8835160505 LEPOMIS GIBBOSUS RAY, BULLNOSE 9713070201 MYLIDBATIS FREMINVILLEI RAY, COWNOSE 9713070301 RHINOPTERA BONARUS BAY, SMOOTH BUTTERFLY 9713050202 GYMNURA MICRURA REDHORSE, SHORTHEAD 8776040401 MOXOSTOMA MACROLEPIDOTUM REDHORSE, SILVER 8776040404 MOXOSTOMA ANISUPUM SAND LANCE, AMERICAN 8845010102 AMMODYTES AMERICANUS SAND TIGER 9707030101 ODONTASPIS TAURUS SCAD, ROUND 8835281202 DECAPTERUS PUNCTATUS SCAMP 8835020505 MYCTEROPERCA PHENAX SCORPIONFISH, SPINYCHEEK 8826010402 NEOMERINTBE HEMINGWAYI SCUP 8835430101 STENOTOMUC CHRYSOPS SEA BASSES 8835020000 SERRANIDAE SEA BASS, BANK 8835020304 CENTROPRISTIS OCYURUS SEA BASS, BLACK 8835020301 CENTROPRISTIS STRAITA SEA BASS, ROCK 8835020305 CENTROPRISTIS PRILADELPHICA SEAHORSES 8820020200 HIPPOCAMBUS SEAHORSES, LINED 8820020201 HIPPOCAMBUS ERECTUS SEAROBINS 8826020100 PRIONOTUS SEAROBIN, BIGHEAD 8826020104 PRIONOTUS TRUB SEAROBIN, BLACKWING 8826020120 PRIONOTUS SALMU COLOR SEAROBIN 8826020103 PRIONOTUS SCITULUS SMARODIN, STRIPED 8826020102 PRIONOTUS EVOLUM SEATROUTS 8835440100 CYNOSCION SEATROUT, SPOTTED 8835440102 CYNOSCION NERULOSUS SENNET, NORTHERN 8837010102 SPHYPAENA BOREALIS SERGEANT MAJOR 8835620101 ABUDEFDUT SAXATILIS SHAD, AMERICAN 8747010101 ALOA SARIDISSINA SHAD, GIZZARD 8747010501 DOROSAOMA CEPEDMACK SHAD, HICKORY 8747010103 ALOSA MEDIOORLE SHAD, THREADFIN 8747010502 DOROSOMA PETENENCE SHARKS 9702000000 CHONDRICHTHYES LLACMUBPANCHE SHARKS, HAMMERHEAD 9708030000 SPHYRNI SHARKS, REQUIEM 9708020000 CARCHARHINIDAE SHARKS, REQUIEM 9708020500 CARCHARHINUS SHARK, ATLANTIC ANGEL 9711010102 SQUATINA SHARK, ATLANTIC SHARPNOSE 9708020301 SHARK, BLACK TIP 9708020507 CARCHARHINUS LIMIATUS SHARK, BULL 9708020502 CARCHARHINUS LEVCAS SHARK, FINETOOTH 9708021001 ARPIONODON ISODON SHARK, LEMON 9708020403 HUSTELUS NORRIS SHARK, SANDBAR 9708020503 CARCHARHINUS SHARK, SILKY 9708020506 CARCHARHINUS SHARK, THRESHER 9707040401 ALOPIAS VULPIN SHARK, TIGER 9708020201 GALEOCERNO SHEEPSHEAD 8835430301 ARCHUSARGUS SHINER, COASTAL 8776011185 NOTRRPIS SHINER, DUSKY 8776011157 NOTROPIS SHINER, GOLDEN 8776010601 NOTEMIGONIUS CRYSAL EUCAS SHINER, HIGHFIN 8776011131 NOTROPIS ALTIPIMNIS SHINER, IRONCOLOR 8776011104 NOTROPIS CHALYPAEUS SHINER, SATINFIN 8776011102 NOTROPIS ANALOSTANUS SHINER, SPOTTAIL 8776011106 NOTROPIS HUDSONIUS SHINER, SWALLOWTAIL 8776011107 NOTROPIS PROCNE SHINER, TAILLIGHT 8776011178 NOTROPIS MACULATUS SILVER JENNY 8835390102 EUCINOSTOMUS GULA SILVERSIDES 8805020000 ATHERINIDAE SILVERSIDES 8805020300 MENIDIA SILVERSIDE, ATLANTIC 8805020302 MENIDIA MENIDIA S-SIDE, INLAND (TIDEWATER) 8805020301 MENIDIA DERYLLINA SILVERSIDE, ROUGH 8805020201 MEMBRAS MARTINISA SKATE, CLEARNOSE 9713040113 RAJA EGLANTERIA SKATE, ROSETTE 9713040124 RAJA GARMANI SKILLETFISH 8784010102 GOBIESOX STRUMOSUS SLEEPER, SPINYCHEEK 8847013703 ELEOTRIS PISONIS SLIPPERY DICK 8839010702 HALICHOERES BIYITTATUS SNAPPERS 8835360000 LUT JANIDAE SNAPPERS 8835560100 LUT JANUS SNAPPER, BLACKFIN 8835360106 LUT JANUS BUCCAUILLA SNAPPER, CUBERA 8835360101 LUT JANUS CYANOPTERUS SNAPPER, GREY 8835360102 LUT JANUS GRISEUS SNAPPER, LANE 8835360112 LUT JANUS SYNAGRIS SNAPPER, MUTTON 8835360103 LUT LANUS ANALIS SNAPPER, RED 8835360107 LUT JANUS CAMPECHANUS SNAPPER, SILK 8835360113 LUT JANUS VIVANUS SNAPPER, VERMILLION 8835360501 RHOMBOPLITES AUNORUPENS SOAPFISHES 8835030200 RYPTICUS SPADEFISH, ATLANTIC 8835520101 CHAETODIPTERUS FABER SPOT 8835440401 LEIOSTOMUS ZANTUURUS STARGAZERS 8840140100 ASTROSCOPUS STARGAZER, NOTHERN 8840140101 ASTROSCOPUS GUTTATUS STARGAZER, SOUTHERN 8840140102 ASTROSCOPUS Y-GRAECUM STICKEBA, THREESPINE 8818010101 GASTEROSTEUS ACULLATUS STINGRAYS 9713050000 DASYATIDAE STINGRAYS 9713050100 DASYATIS STINGRAY, ATLANTIC 9713050105 DASYATIS CABINA STINGRAY, ROUGHTAIL 9713030104 DASYATIS CENTROURA STINGRAY, SOUTHERN 9713050103 DASYATIS AMERICANA STURGEON, ATLANTIC 8729010105 ACIPENSER SUCKERS 8776040000 CATOSTOMIDAE SUCKERS 8776040400 MOXESTOHA SUNFISHES 8835160000 CENTRARCHDAE SUNFISHES 8835160500 LEPCHIS SUNFISH, BANDED 8835160403 FNNT ACANTAUS SUNFISH, BLACKBANDED 8835160401 SUNFISH, BLUESPOTTED 8835160402 ENNEACAMIOUS SUNFISH, DOLLAR 8835160507 LEPCAIS MARGINA SUNFISH, GREEN 8835160502 LEPOMIS CYANELLIS SUNFISH, MUD 8835160101 ACANTHARCHUS POMOTIS SUNFISH, REDBREASTED 8835160501 LEPOMIS AURITUS SUNFISH, REDEAR 8835160509 LEPOMIS MICROLOPMUS SWAMPFISH 8780010101 CHOLOGASTER COPNUTA TARPON 8738020201 MEGALOPS ATLANTIOUS TAUTOG 8839010101 TAUTOGA ONITIS THREADFIN, ATLANTIC 8838010101 POLYDACTYLUS OCTONEMUS TILAPIA, REDBELLY 8835610405 ATILAPIA ZILLI TILEFISHES 8835220000 MALACANTHTDAE TILEFISH, BLUELINE 8835220104 CAULOLATILUS MIRROPS TILEFISH, SAND 8835220301 MALACANTHUS PLUMIERI TOADFISH, OYSTER 8783010201 OPSAMUS TAU TOMTATE 8835400101 HAEMULON AUROLINEATUM TONGUEFISH, BLACKCHEEK 8858020101 SYMPHURUS PLAGIUSA TOPMINNOW, LINED 8804040218 FUNDULUS LINEOLATUS TRIGGERFISH, GRAY 8860020201 BALISTES CAPRISOUS TRIGGERFISH, QUEEN 8860020202 BALISTES VETULA TRIPLETAIL 8835380101 LOBOTES SURINAMENSIS TUNA, BLACKFIN 8850030404 THUNNUS ATLANTIOUS TUNA, SKIPJACK 8850030101 EUTHYNNU PELAYIS TUNA, YELLOWFIN 8850030403 THUNNUS ALBACARFS TUNNY, LITTLE 8850030102 EUTHYNNUS ALLETTERATUS UNIDENTIFIED FISHES 8735000000 OSTEICHTHYES TETFOSTEI UNID. FISH, PERCOIDEI 8835000000 ACANTHOPD WAHOO 8850030601 ACANTHOCYBIUM SOLANDERI WARMOUTH 8835160503 LEPOMIS GULOSUS WEAKFISH 8835440104 CYNOSCION REGALIS WHIFF 8857030100 CITHARICHTHYS WHIFF, BAY 8857030110 CITHARICHTHYS SPILOPTERUS WHIFF, SPOTTED 8857030109 CITHARICHTHYS MACROPS WINDOWPANE 8857030401 SCOPHTHALMUS AQUOSUS ***** REPTILIA ***** TURTLES 9002000000 REPTILIA ANAPSIDA TURTLE, DIAMONDBACK 9002030301 MALACLEMYA TERRAPIN TURTLE, LOGGERHEAD 9002040101 CARETTA CARETTA TURTLE, YELLOWBELLY 9002030405 CHRYSEMYS SCRIPTA TURTLE, 9002010101 CHELYDRA SERPENTINA ***** INVERTEBRATES ***** ***** COELENTERATA ***** JELLYFISHES 3700000000 CNIDARIA JELLY BOMBS 3737050101 STOMOLOPHUS MELEAGRIS ***** MOLLUCSA ***** ARK, BLOOD 5506010202 ANADARA CVALIS BIVALVES 5515000000 BIVALVIA VENEROIDA BUTTERCUP 5515010501 ANODONTIA ALBA CHIONE, CROSS-BARRED 5515471503 CHICNE CANCELLATA CLAM, LITTLE SURF (DUCK) 5515250301 MULINIA LATERAL'S CLAM, SURF 5515250102 SPISULA SOLIDISSIMA MACOMA, BALTIC 5515310116 MACOMA BALTHICA MOONSHELL, LOBED 5103760407 POLINICES DUPLICATUS OCTOPI 5708010200 OCTOPUS OCTOPUS, COMMON ATL. 5708010202 OCTOPUS VULGARIT OYSTER, COMMON 5510020102 CRASSOSTREA VIPEINICA QUAHOG, NORTHERN 5515471101 MERCENARIG MERCENGRIG QUAHOG, SOUTHERN 5515471102 MERCENARIA COMPECHIENSIS RANGIA, WEDGE 5515250401 PANGIA CUNEATA SCALLOP, BAY 5509050801 SCALLOP, CALICO 5509051201 ARGOPECTEN SCALLOP, SEA 5509050901 PLACOPECTLN SLUGS, ELL GRASS 5123030100 ELYSIA SQUIDS 5700006000 MOLLUSCA CEPHALOPODA SQUID, ATLANTIC 5706010102 LOLIGO PEALII SQUID, NORTHERN, SHORTFIN 5707150301 ILEX ILLECEBROSUS SQUID, THUMBSTALL 5706010201 LOLLIGUNCULA BREVIS TULIPSHELL, BANDED 5105090203 FASCIOLARIA WHELKS 5105070100 BUSYCON ***** ARTHROPODA ***** ARTHROPODA, MEROSTOMATA 5802000000 ARTHROPODA MERONTOMATA CRAB, HORSESHOE 5802010101 LIMULUS POLYPHEMUS ARTHROPODA, CRUSTACEA 6100000000 ARTHROPODA CRUSTACEA CRABS 6189000000 DECAPODA CRAB-CALAPPID 6186020101 CALAPPA FLAMMEA CRABS-CANCER 6188030100 CANCER CRAB-CANCER, ROCK 6188030103 CANCER IRRIRATUS CRAB-CANCER, JONAH 6188030107 CANCER CRAB-MAJIDAE, CORAL 6187012501 MITHRAX HISPIDUS CRABS-MAJIDAE, PENTAGON 6187020190 CRABS-MAJIDAE, SPIDER 6187010900 LIBINIA CRABS-PINNOTHERID, PEA 6189060200 PINNOCHERCS CRABS-PORTUNID 6189010000 PORTUNIDAE CRABS-PORTUNID 6189010500 CALLINECYES CRAB-PORTUNID, BLUE 6189010301 CALLINESTES SAPTDUS CRAB-PORTUNID, MARGINAL 6189010305 CALLINECTES MARGINATUS CRAB-PORTUNID, ORNATE 6189010304 CALLINECTES ORNATUS CRAB-PORTUNID 6189010302 CALLINECTES CRABS-PORTUNID 6189010500 OVALIPES CRAB-PORTUNID, LADY 6189010502 OVALIPES OCELLATUS CRABS-PORTUNID 6189010500 PORTUNUS CRAB-PORTUNID 6189010601 PORTUNUS GIBBESSI CRAB-PORTUNID 6189010602 PORTUNUS SAYI CRABS-XANTHID, MUD 6187020070 XANTNIDAE CRAB-XANTHID, STONE 6189021301 MENIPPE, MERCENARIA CRAB-XANTHIDS 6189020700 NEOPANOPE CRAB-XANTHID 6189020701 NEOPANOPE TEXANA CRABS-XANTHID 6189020800 PANOPEUS CRAB-XAN.,HEBST' PANOPEUS 6189020801 PANOPEUS HERBSTII CRAYFISHES 6181020100 CAMPARUS SHRIMPS-AMPHIPODA 6168000000 AMPHIPODA SHRIMP-CARIDEAN, ARROW 6179161201 TOZFUMA SHRIMP-CAR.,FWATER PRAWN 6179110201 RAC BRACHIUM SHRIMPS-CARIDEAN 6179160000 HIPPOLYTIDAE SHRIMPS-CARIDEAN, GRASS 6179160100 HIPPOLYDE SHRIMPS-CARIDEAN 6179220100 CRANGUN SHRIMP-CAR.,(FLATHD)SAND 6179220103 CRAUGON SEPTIMUSA SHRIMPS-CAR.,(GRASS)SHORE 6179110300 PALACMONETES SHRIMP-CARIDEAN 6179110301 PALACMONETES SHRIMP-CARIDEAN 6179110303 PALAEMONETES SHRIMP-CARIDEAN 6179110304 PALAEMONETES SHRIMP-CARIDEAN 6179110403 PERICLIMENES LONGICAUDATUS SHRIMPS-CARIDEAN,SNAPPING 6179140100 ALPHEUS SHRIMP-CAR.,BIG CLAW-SNAP 6179140101 ALPEHUS HETEROCHAELIS SHRIMPS-MYSIDS 6153000000 PERACARIDEA SHRIMP-MYSID 6153011508 NEOMYSIS AMERICANA SHRIMP-PENAEID, BROWN 6177010101 PENAEUS AZTECUS SHRIMP-PENAEID, PINK 6177010102 PENAEUS DUORARUM SHRIMP-PENAEID, ROCK 6177010401 SICYONIA SHRIMP-PENAEID, WHITE 6177010103 PENASUS SETIFERUS SHRIMP-PENAEID 6177020101 ACETES AMERICANUS SHRIMP-PENAEID 6177010501 PARAPENAEUS LONGTROSTRIS SHRIMPS-PENAEID 6177010100 PENACUS SHRIMP-PENAEID 6177010201 TRACHYPENEUS CONSTRICTUS SHRIMP-STOMATOPODA,MANTIS 6191010101 SQUILLA EMPUSA ***** ECHINODERMATA ***** J_ I APPENDIX J: TAG CODES CODE DESCRIPTION A.. FT-1 Dart tag B. FT-2.Dart tag C. FT-4 Cinch-up spaghetti tag D. _FM-66 Dart tag- E. "Same Reeves Original" Dart tag F. FD-67 Anchor tag G. FD-68B and FD-68BC Anchor tag H. FTSL-73 Shrimp tag I. FTL-69 Lobster tag J. FD-67M K. Carapace tag 1/4 x 1 3/4 inch L. Floy plastic sleeve on wire M. Peterson disc on wire N. Peterson disc 1/2 inch diameter 0. Peterson disc 3/4 inch diameter P. Carlin disc tag Biological dyes APPENDIX B-2: BIOFORM 00' There is no layout file for this page as it is a start up pace. However, the following information is stored on this page: Autoload "display" default mode FC Autoload "send" default mode FX Autoload "print" default mode FV Number of arithmetic registers 2 Number of memory cells 10 C611, used to Cell Size store:'- Mi 2 YEAR M2 5 COLLECTION NO. M3 2 REPLICATE M4 10 SPECIES M5 1 STATUS M6 3 LINE NUMBER, M7 2 AGE M8 10 extra M9 10 extra M10 10 extra APPENDIX B-1: COMM-STOR III CONFIGURATION PARAMETERS USED FOR DATA ENTRY 1: ASCII DATA? (YES) 2: SEND EOT AFTER EACH MODEM REQUEST? (NO) 3: END OF LINE CHARActer ([CR]) 4: SYSTEM TO ADD LINE FEED AFTER CARRIAGE RETURN? (YES) 5: LINE FEED CHARACTER ([LF]) 6: CARRIAGE RETURN CHARACTER FOR SYSTEM MESSAGES ([CR]) 7: LINE FEED CHARACTER FOR SYSTEM MESSAGES ([LF]) 8: END OF TEXT CHARACTER ([ETX]) 9: TRANSMIT "END OF TEXT" CHARACTER? (NO) 10: TRANSMTI "END OF TRANSMISSTION" CHARACTER? (NO) 11: "END OF TRANSMISSION" CHARACTER ([^D]) 12: "RESET" CHARACTER ([^T]) 13: SPACE CHARACTER FOR SYSTEM MESSAGES ( ) 14: FIRST CHARACTER OF ESCAPE SEQUENCE ([ESC]) 15: PARITY ERROR SYMBOL (?) 16: "STOP SEND/START SEND" OPTION (0) 17: "STOP SEND: CHARACTER (TO COMPUTER) ([^S]) 18: "STOP SEND: CHARACTER (TO COMPUTER) ([^Q]) 19: "HOLD" CHARACTER (FROM COMPUTER/TERMINAL) ([^S) 20: "RESUME" CHARACTER (FROM COMPUTER/TERMINAL) ([^Q]) 21: OUTPUT NUMERICAL ERROR MESSAGES? (NO) 22: SEND ERROR MESSAGES TO MODEM? (NO) 23: SPECIAL OUTPUT CHARACTER #1 ([CR]) PORTS (NONE) DELAY FACTOR/SUBSTITUTION (1) 24: SPECIAL OUTPUT CHARACTER #2 ([CR]) PORTS (NONE) DELAY FACTOR/SUBSTITUTION (1) 25: SPECIAL OUTPUT CHARACTER #3 ([CR]) PORTS (NONE) DELAY FACTOR/SUBSTITUTION (1) 26: SPECIAL OUTPUT CHARACTER #4 ([CR]) 27: "DELETE" CHARACTER ENTERED ([BS]) 28: "DELETE: CHARACTER ECHOED ([NULL]) 29: "LINE CHANCEL" CHARACTER ([^X]) 30: NUMBER OF LINES ON PAGE (23) 31: STOP DISPLAY AFTER EACH PAGE? (NO) 32: SUBSTITUTE TERMINAL PARITY ERRORS WITH ERROR SYMBOL? (YES) 33: MODEL OFF-LINE ALERT CHARACTER ([^G]) 34: INHIBIL ECHO TO TERMINAL? 35: IGNORE "NULL" CHARACTER FROM TERMINAL? (YES) 36: TERMINAL "NULL" CHARACTER ([NULL]) 37: NORMAL TERMINAL DATA PARITY - EVEN/ODD/NONE (EVEN) NUMVER OF DATA BITS EXCLUDING PARITY AND INCLUDING FIXED BITS (IF ANY) (7) 38: BINARY TERMINAL DATA PARITY - EVEN/ODD/NONE (EVEN) NUMVER OF DATA BITS EXVLUDING PARITY AND INCLUDING FIXED BITS (IF ANY) (7) CONFIGURATION PARAMETERS 39: TERMINAL INTERFACE CONTROL (11110) 40/1 TERMINAL? (NO) 40: DOES TERMINAL PROVIDE "DATA TERM READY"? (NO) 41: HALF DUPLEX MODEM? (NO) 42: FOR HDX ONLY TURN AROUND LINE AFTER EVERY CHARACTER? (YES) 43: FOR HDX ONLY MODEM TURNAROUND CHARACTER ([CR]) 44: FOR HDX ONLY SECONDARY (SUPERVISORY) CHANNEL AVAILABLE? (NO) 45: FOR HDX ONLY "REQUEST TO SEND" TIMEOUT [MILLISECONDS] (200) 46: FOR HDX ONLY "SECONDARY CARRIER DROPPED" OPTION (0) 47: WAIT AFTER EOL FOR PROMPT OR AFTER ETX FOR ACK? (NO) 48: CHARACTER TO INITIATE WAIT PERIOD ([ETX]) 49: WAIT FOR PROMT BEFORE STARTING TRANSMISSION? (NO) 50: "PROMPT" OR "ACKNOWLEDGE" character ([^f]) 51: "RETRANSMIL FILE" CHARACTER ([^U]) 52: IGNORE "NULL" CHARACTER FROM MODEL? (YES) 53: MODEM "NULL" CHARACTER ([NULL]) 54: IS ATTACHED INSTRUCTION ECHOED? (NO) 55: SUBSTITUTE MODEM PARITY ERRORS WITH ERROR SYMBOL? (YES) 56: CHECK MODEM FRAMING ERRORS? (NO) 57: INACTIVITY TIMEOUT [SECONDS] (INACTIVE) 58: NORMAL MODEM DATA PARITY - EVEN/ODD/NONE (NONE) NUMBER OF DATTA BITS INCLUDING FIXED BITS (IF ANY) (8) 59: BINARY MODEM DATA PARITY - EVEN/ODD/NONE (NONE) NUMBER OF DATA BITS INCLUDING FIXED BITS (IF ANY) (8) 60: DOES MODEM PROVIDE "DATA SET READY"? (YES) 61: PRINTER PORT INSTALLED? (YES) 62: PRINTER DATA PARITY - EVEN/ODD/NONE (NONE) NUMBER OF DATA BITS INCLUDING FIXED BITS (IF ANY) (8) EIGHTH DATA BIT (0) 63: PRINTER INTERFACE CONTROL (11110) 64: DOES PRINTER PROVIDE "DATA TERM READY"? (NO) 65: DOES PRINTER PROVIDE "SEC. REQUEST TO SEND"? (NO) 66: DOES PRINTER REQUIRE "LINE FEED" AFTER "CARRIAGE RETURN"? (YES) 67: CHARACTER TO SEPARATE COMMAND AND ARGUMENT ( ) 68: CHARACTER TO SEPARATE FILE NAMES (/) 69: CHARACTER TO START "ENTER AUTOMATIC" INCREMENTING FIELD (<) 70: CHARACTER TO END "ENTER AUTOMATIC" INCREMENTING FIELD (>) 71: CHARACTER TO SEPARATE FILE NAME AND EXTENSION (+) 72: CHARACTER TO SEPARATE COMMAND AND ATTACHED INSTRUCTION (#) 73: DIRECTORY BOUNDARY SPECIFICATION CHARACTER ( ) 74: "DON'T CARE" CHARACTER FOR EXTENSION (?) 75: UNUSED 76: USER RESPONSE TO "SURE?" MESSAGE (Y) 77: SYSTEM COMMAND CHARACTER - TERMINAL AND MODEM (.) 78: SYSTEM COMMAND CHARACTER - MODEM ONLY (,) CONFIGURATION PARAMETERS 79: "SELECT DRIVE 1" CHARACTER (1) 80: "SELECT DRIVE 2" CHARACTER (2) 81: "BAUD MODEM" COMMAND (BM) 82: "BAUD PRINTER" COMMAND (BP) 83: "BAUD TERMINAL" COMMAND (BT) 84: "COPY" COMMAND (C) 85: "CANCEL" COMMAND (CN) 86: "DISPLAY" COMMAND (D) 87: "DISPLAY DIRECTORY" COMMAND (DD) 88: "DISPLALY DIRECTORY" COMMAND (DD) 89: "ENTER" COMMAND (E) 90: "ENTER AUTOMACTIC" COMMAND (EA) 91: "ECHO MODE" COMMAND (EM) 92: "ECHO EXIT" COMMAND (EX) 93: "INCLUDE MODE" COMMAND (IM) 94: "INCLUDE MODE EXIT" COMMAND (IX) 95: "LOAD EXTENSION" COMMAND (LE) 96: "LOAD INITIAL VALUE" COMMAND (LI) 97: "MONITOR MODE" COMMAND (MM) 98: "MONITOR MODE EXIT" COMMAND (MX) 99: "PRINT" COMMAND (P) 100: "PRINT DIRECTORY" COMMAND (PD) 101: "RECEIVE" COMMAND (PD) 102: "RECEIVE AUTOMATIC" COMMAND (RA) 103: "SEND" COMMAND (S) 104: "SEND DIRECTORY" COMMAND (SD) 105: "SEND STATUS" COMMAND (SS) 106: "SEQUENTIAL MODE" COMMAND (SM) 107: "ALPHA MODE" COMMAND (AM) 108: "STANDBY MODE" COMMAND (SB) 109: "WRITE-ENABLE" COMMAND (WE) 110: "WRITE-PROTECT" COMMAND (WP) 111: EDIT OPTION INSTALLED? (YES) 112: EDITOR LINE NUMBER SEPARATOR (,) 113: EDITOR CHARACTER STRING DELIMITER (/) 114: EDIT COMMAND CHARACTER (;) 115: PREPARE TO "EDIT" COMMAND (ED) 116: "SAVE FILE" COMMAND (SV) 117: EDITOR "APPEND" COMMAND (A) 118: EDITOR "DELETE" COMMAND (D) 119: EDITOR "INSERT" COMMAND (I) 120: EDITOR "LINE COUNT" COMMAND (=) 121: EDITOR "CLEAR" COMMAND (L) 122: EDITOR "LIST" COMMAND (L) 123: EDITOR "LIST-NUMBERED" COMMAND (N) 124: EDITOR "REPLACE" COMMAND (R) 125: EDITOR "SEARCH" COMMAND (S) 126: FORMS OPTION INSTALLED? (YES) 127: CHARACTER TO START FORMS VARIABLE FIELD ( ) 128: CHARACTER TO END FORMS VARIABLE FIELD ( ) 129: "FORMS COMPLETE" COMMAND (FC) CONFIGURATION PARAMETERS 130: "FORMS VARIABLE" COMMAND (FV) 131: "FORMS EXIT" COMMAND (FX) 132: FORMS MODE STRING SEARCH CHARACTER ([^Y]) 133: FORMS MODE-UTILITY CHARACTER ([^L]) 134: FORMS "LINE RE-ENTER" CHARACTER ([^Z)]) 135: FORMS MODE - FILL IN FROM DRIVE 1 ([^0]) 136: FORMS MODE - FILL IN FROM DRIVE 2 ([^N]) 137: FORMS "TAB" CHARACTER ([CR]) 138: ANSWERBACK MESSAGE ( NONE ) 139: CHARACTER TO INITIATE ANSWERBACK MESSAGE ([^E]) 140: USER COMMAND TABLE ( NONE ) 141: SELF-START ON POWER-UP OR RESTART? (NO) 142: SEND ANSWER BACK MASSAGE AFTER INITIAL CONNECTION? (NO) 143: INHIBIT AUTO LINEFEED TO MODEM PORT? (NO) 144: TERMINAL/MODEM BUFFER SIZES (00) 145: LOWER DSR DURING STANDBY? (NO) 146: USE EIA LINES TO CLOSE FILES? (NO) 147: SELF-START ON AUTO-ANSWER? (NO) 148: INHIBIT MONITOR MODE ON SEND? (NO) 149: RAISE RTS AFTER RECEIVING EOT? (NO) 150: "FORMS COMPLETE" COMMAND (SAME AS #129) (FC) 151: "FORMS VARIABLE" COMMAND (SAME AS #130) (FV) 152: "FORMS EXIT" COMMAND (SAME AS #131) (FX) 153: AUTO LOAD MODE ENABLED? (NO) 154: DOES TERMINAL HAVE CURSOR CONTROL? (NO) 155: PREPRINT PAGE? (YES) 156: PREPRINT LINE? (NO) 157: SKIP INTERMEDIATE LINES? (NO) 158: "SKIPPED LINE" CHARACTER (-) 159: ENABLE REDISPLAY? (YES) 160: "GO TO TOP OF PAGE" CHARACTER #1 ([^A]) 161: "CLEAR AND RESTART PAGE" CHARACTER ([^L]) 162: "BACKFIELD" CHARACTER #1 ([^B]) CHARACTER #2 ([^B]) 163: "CLOSE FIELD" CHARACTER #1 ([^CR]) CHARACTER #2 ([^CR]) 164: "TAB" CHARACTER #1 ([TAB]) CHARACTER #2 ([TAB]) 165: "AUTO TAB" CHARACTER ([^Z]) 166: "ERROR OVERRIDE" CHARACTER ([^K]) 167: "CLOSE PAGE" CHARACTER ([^P]) 168: "VERIFY PAGE" CHARACTER ([^V]) 169: "VERIFY BYPASS" CHARACTER ([^Y]) 170: "CLOSE FORM" CHARACTER (SAME AS #8) ([ETX]) 171: FILL IN FROM DRIVE 1 CHARACTER (SAME AS #135) ([^0]) 172: FILL IN FROM DRIVE 2 CHARACTER (SAME AS #136) ([^N]) 173: CURSOR RIGHT CHARACTER ENTERED #1 ([^R]) CHARACTER ENTERED #2 ([^R]) 174: CURSOR LEFT CHARACTER ENTERED (SAME AS #27) ([BS]) 175: CURSOR LEFT OUTPUT CHARACTER ([ESC]D) 176: CURSOR RIGHT OUTPUT CHARACTER ([ESC]C) CONFIGURATION PARAMETERS 177: CURSOR UP OUTPUT CHARACTER ([ESC]A) I 178: CURSOR DOWN 0UTPUT CHARACTER ([ESC]B) 179: CARRIAGE RETURN OUTPUT CHARACTER ([CR]) 180: CURSOR H0ME OUTPUT CHARACTER ([ESC]H) 181: CLEAR SCREEN OUTPUT CHARACTER ([ESC]J) 182: LITERAL FIELD FRAMING CHARACTER ([^W]) 183: SECURITY FIELD FILL CHARACTER (*) 184: DECIMAL POINT CHARACTER (.) 185: PLUS SIGN CHARACTER (**NONE**) 186: MINUS SIGN CHARACTER (-) 187: FIELD MSIMATCH ERROR (?) 188: NUMERIC ERROR CHARACTER (#) 189: EMPTY FIELD FILL CHARACTER ( ) 190: OUTPUT FIXED LENGTH FIELDS? (YES) 191: OUTPUT WITH DELIMITERS? (N0) 192: MID-LINE OUTPUT DELIMITERS ([CR]) 193: END-OF-LINE 0UTPUT DELIMITER ([CR]) 194: SUBSTITUTION TABLE MINOR DELIMITER (,) 195: SUBSTITUTION TABLE AND ALLOWABLE ENTRY TABLE MAJOR DELIMITER (;) 196: END OF PAGE INDICATION OPTIOIN (0, 1, 2, OR 3) (1) 197: VARIABLE FIELD INDICATOR CHARACTER #1 (<) CHARACTER #2 (>) 198: INHIBIT OUTPUT ON SKIPPED PAGES? (YES) ENVIRONMENTAL AND STATION DATA FORM PAGE 01 ACTION FIELD < RECORD TYPE < SEQUENCE NO: YEAR << COLLECTION NO <<<<< REPLICATE << SPECIES <<<<<<<<< STATUS < LINE NUMBER <<< PROGRAM <<< DATE (YYMMDD) <<<<<< STATION NUMBER <<<<< STARTING LOCATION <<<<<<<<<< GRID <<<< QUADRANT < TIME (24 HR) <<<< DURATION (MIN) <<<< GEAR <<< GEAR PARAMETER: #1 <<<< #2 <<<< #3 <<<< RIG < TON TYPE< SEDIMENT SIZE < BOTTOM COMP. < BOTTOM PROFILE < DEPTH (METERS) <<< TEMPERATURE (CENTIGRADE): AIR <<< SURFACE <<< BOTTOM <<< SALINITY (PPT): SURFACE <<< BOTTOM <<< VARIABLE FIELD #1 <<<< DISSOLVED OXYGEN: SURFACE <<< BOTTOM <<< pH << WHEATHER ELEMENT < VARIABLE FIELD #2 <<<< WIND DIRECTION < WIND SPEED << CURRENT DIRECTION < CURRENT SPEED << WATER LEVEL < ALTERATION STATE < ALLOWED FISHING ACTIVITY < NUMBER OF REPLICATES << ----------LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X'---------- ONE < TWO < THREE < FOUR < FIVE < SIX< SEVEN < EIGHT < NINE < -01 ATTRIBUTES BIOFORM-01 ATTRIBUTES ACTION TABST0P (YES) FIELD 1: INPUT TYPE (KEYBOARD-CONSTANT: ) 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: 0VERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE (NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE: ACTION 1: SUBSTITUTION (NO) 1: JUSTIFICATION (RIGHT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITION (0) I 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OP0RATIN (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHIING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (C0NSTANT: 1) 2: CHARACTER TYPE (DIGIT) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (RIGHT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL POSITIONS (0) 2: SIGN P0SITI0N (LEADING) 2: AUTO CLOSE (YES) 2 ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BARNCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: 0UTPUT TO DISKETTE (YES) BIOFORM-01 SEQUENCE 3: TAB STOP (YES) NO: YEAR 3: INPUT TYPE (KEYBOARD) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (YES: 2) 3: RANGE (YES: FROM: 65 TO: 85) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (NO) 3: FILL CHARACTER ( ) 3: FLOAT CHARACTER ( ) 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE 4: TAB STOP (YES) NO: COLLECTION 4: INPUT TYPE (KEYBOARD) NO 4: CHARACTER TYPE (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (RIGHT) 4: FILL CHARACTER (0) 4: FLOAT CHARACTER (0) 4: DECIMAL POSITITONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (FIXED LINE: 6 POSITION 1) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 2) 4: OUTPUT TO DISKETTE (YES) BIOFORM-01 5: TAB STOP (YES) REPLICATE 5: INPUT TYPE (KEYBOARD) 5: CHARACTER TYPE (PRINTABLE) 5: SECURITY FIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (0) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (LEFT) 5: FILL CHARACTER () 5: FLOAT CHARACTER () 5: DECIMAL POSITIONS () 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (NO) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (NO) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD) 6: CHARACTER TYPE (PRINTABLE) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENTGH (0) 6: EXACT LENGTH TABLE (NO) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT) 6: FILL CHARACTER () 6: FLOAT CHARACTER () (0) 6: DECIMAL POSITIONS (0) 6: SIGN POSITIONS (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (NO) 6: OUTPUT TO DISKETTE (YES) BIOFORM-01 STATUS 7: TAP STOP (YES) 7: INPUT TYPE (KEYBOARD) 7: CHARACTER TYPE (PRINTABLE) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (0) 7: EXACT LENTGH TABLE (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (NO) 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER () 7: FLOAT CHARACTER () 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER () 7: FLOAT CHARACTER () 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7: BRANCHING (NO) 7: AUTO-INCREMENT (NO) 7: OUTPUT TO MEMORY CELL (NO) 7: OUTPUT TO DISKETTE (YES) LINE 8: TAB STOP (YES) NUMBER 8: INPUT TYPE (KEYBOARD) 8: CHARACTER TYPE (PRINTABLE) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (0) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 8: SUBSTITUTION (NO) 8: JUSTIFICATION (LEFT) 8: FILL CHARACTER () 8: FLOAT CHARACTER () 8: DECIMAL POSITIONS (0) 8: SIGN POSITION (LEADING) 8: AUTO CLOSE (YES) 8: ARITHMETIC OPERATION (NO) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: OUTPUT TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM-01 PROGRAM 9: TAP STOP (YES) 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (DIGIT) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (0) 9: EXACT LENGTH TABLE (YES: 3) 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER () 9: FLOAT CHARACTER () 9: DECIMAL POSITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE (YES) 10: TAB STOP (YES) 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (DIGIT) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (YES) 10: MINIMUM LENGTH (0) 10: EXACT LENGTH TABLE (YES: 6) 10: RANGE YES: FROM: $40000 TO 851231 DATE 10: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (NO) 10: JUSTIFICATION (RIGHT) 10: FILL CHARACTER () 10: FLOAT CHARACTER 10: DECIMAL POSITIONS (0) 10: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT TO DISKETTE (YES) BIOFORM-01 STATION 11: TAB STOP (YES) NUMBER 11: INPUT TYPE (KEYBOARD) 11: CHARACTER TYPE (MIXED) 11: SECURITY FIELD (NO) 11: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGTH (0) ll: EXACT LENGTH TABLE (NO) 11: RANGE (NO) 11: ALLOWABLE ENTRY (NO) 11: SUBSTITUTION (NO) 11: JUSTIFICATION (LEFT) 11: FILL CHARACTER () 11: FLOAT CHARACTER () 11: DECIMAL POSITIONS (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO-INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) STARTING 12: TAB STOP (YES) LOCATION 12: INPUT TYPE (KEYBOARD) 12: CHARACTER TYPE (DIGIT) 12: SECURITY FIELD (NO) 12: 0VERRIDE ERROR FIELD (YES) 12: MINIMUM LENGTH (0) 12: EXACT LENGTH TABLE (YES: 10) 12: RANGE (YES: FROM: 0000000000 TO: 4400000000) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (RIGHT) 12: FILL CHARACTER ( ) 12: FLOAT CHARACTER ( ) 12: DECIMAL POSITIONS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (NO) 12: AUTO-INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (YES) 0 BIOFORM-01 GRID 183: TAB STOP (YES) 13: INPUT TYPE (KEYBOARD) TYPE(MIXED) 13: CHARACTER 13: SECURIT) FIELD (NO) 13: OVERRIDE ERROR FIELD (YES) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (NO) 13: JUSTIFICATION (RIGHT) 13: FILL CHARACTER 13: FLOAT CHARACTER 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (NO) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: B0RANCHING (N0) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORY CELL (N0) 13: OUTPUT TO DISKETTE (YES) UADRANT 14: TAB STOP (YES) 14: INPUT TYPE (KEY0BOARD) 14: CHARACTER TYPE (DIGIT) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINIMUM LENGTH (0) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION. (YES - RAM: 0,;) 14: JUSTIFICATION (RIGHT) 14: FILL CHARACTER () 14: FLOAT CHARACTER () 14: DECIMAL POSITIONS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC 0PER0ATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT 14: OUTPUT TO MEM0RY CELL (NO) 14: OUTPUT TO DISKETTE (YES) 0 BIOFORM-01 TIME 15: TAB STOP (YES) (24 HR) 15: INPUT TYPE (KEYBOARD) 15: CHARACTER TYPE (DIGIT) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELID (YES) 15: MINIMUM LEHGTH (0) 15: LEHGTH TABLE (NO) 15: RANGE (YES: FROM: 0000 TO: 2,400) 15: ALLOWABLE ENTRY (NO) 15; SUBSTITUTION (NO) 15: JUSTIFICATION (RIGHT) 15: FILL CHARACTER 15: FLOAT CHARACTER 15: DECIMAL POSITIONS 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (NO) 15: AUTO INCREMENT (NO) 15: OUTPUT-TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (YES)) DURATION 16: TAB STOP (YES) (MIN) 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE PRINTABLE 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM-LENGTH (60) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (RIGHT) 16: FILL CHARACTER 16: FLOAT CHARACTER 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-INCREMENT (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM-01 17: TAB STOP (YES) 17: INPUT TYPE (KEYBOARD) 17: CHARACTER TYPE (DIGIT) 17: CHARACTER FIELD (NO) 17: OVERRIDE ERROR FIELD (YES) 17: MINIMUM LENGTH (0) 17: EXACT ENGTH TABLE (YES:3) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL CHARACTER (0) 17: FLOAT CAHARACTER (0) 17: DECIMAL POSITION (LEADING) 17: AUTO CLOSE (YES) 17: ARITHMETIC OPERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (NO) 17: AUTO-INCREMENT (NO) 17: OUTPUT TO MEMORY CELL (NO) 17: OUTPUT TO DISKETTE (YES) 18: TAB STOP (YES) 18 INPUT TYPE (KEYBOARD) 18: CHARACTER TYPE (PRINTABLE) 18: SECURITY FIELD (NO) 18: OVERRIDE ERROR FIELD (YES) 18 MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE (YES:0,4) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTION (NO) 18: JUSTIFICATION (RIGHT) 18: FILL CHARACTER () 18: FLOAT CHARACTER () 18: DECIMAL POSITION (0) 18: SIGN POSITION (LEADING) 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (NO) 18: NEXT PAGE NUMBER (NO) 18: AUTO-INCREMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETTE (YES) BIOFORM-01 19: TAB STOP (YES) 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (PRINTABLE) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (YES) 19: MINIMUM LENGTH (NO) 19: EXACT LENGTH TABLE (YES:0,4) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (RIGHT) 19: FILL CHARACTER () 19: FLOAT CHARACTER () 19: DECIMAL POSITION (0) 19: SIGN POSITION (LEADING) 19:AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKETTE (YES) 20: TAB STOP (YES) 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (PRINTABLE) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH TABLE (0) 20: EXACT LENGTH TABLE (YES: 0,4) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: ALLOWABLE ENTRY (NO) 20: JUSTIFICATION (RIGHT) 20: FILL CHARACTER () 20: FLOAT CHARACTER () 20: DECIMAL POSITION (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (YES) BIOFORM-01 RIG 21: TAB STOP (YES) 21: INPUT TYPE - (KE@-f'8B8OA4PD) T- 21: 4CHARACT0q@R PE (DIGIT) 21: SECURITY FIELD f NO) 8qal: 0OUERRID0E ERROR FIELD (YES.) 21: MINIMUM LENGTH f8q0i 2 21: 8E--..'qFiCT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (4qN8qOq) =,-TITqLITI4qOqrqi (NO) 21: 3L40 21: JUSTIFICATION fRIGHT) 21: FILL CHARACTER 21: FLOAT CHARACTER 21: DECIMAL POSITIONS (0) 21: SIGN .3 TI4ON (I FADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (N8ol 21: AUTO FILL-IN f 6qN0qOq) 21: NE,'-'T PAGE NUMBER (NO) 21: 4BR4AN4CHING@ (NO) 21: AUTO- I 4qC0qREMENT (NO) 21: OUTPUT TO r-lEqr-1O4qR'l-' CELL (NO) 21: OUTPUT-TO DISKETTE (0qYES) TOW 22: TAB STOP (YES) TYPE 22: INPUT TYPE EY4qB4qOARD) 22: CHARACTER TYPE (DIGIT) 22: SE4qC0qURIT'-l-' FIELD 4q-q40) 22: Ot..I0ERRIDE ERROR F i ELI, (YES) 22: MINIMUM LENGTH 1'00) 22: E..'ACT LENGTH TABLE (NO) 22: F2NGE (YES: FROM: 40 TO: 4) 22: ALLOWABLE ENT0R' (NO) 22: SUBSTITUTION - (YES - RAM: 22: JUSTIFICATION (RIGHT) 4242:- FILL CHARACTER 22: FLOAT CHARACTER 22: DECIMAL PO' .ITI4O0NS (00) 22:-. 6SqlN F'0qO'-::.ITI-i (LEADING) 22: AUTO CLOSE 040qYE44qS) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: 40HEI-T PAGE NUMBER fNO4) 22: 4E:R44NCHING 44Q-40) 22: AUTO4q-IN4CRE36qNE2qt40qf40f 0(N36) 22: OUTPUT TO MEMORY CELL 0Qq-0q40) R .52248L: OUTPUT TO DISKETTE (YES) BIOFORM-01 "YES) SEDIMENT 23: TAP. SIZE 23: IN4qRjT TYPE (KEYBOARD) 23: CHARACTER TYPE f rl I ED) 23: SECURITY FIELD (NO) 23: O0UER0RIDE ERROR FIELD @(YES) 23: -lINIt-lU0qN LENGTH (40) 23: EXACT LENIqCq]TH TABLE (NO) 23: RANGE (0qN4qOq) 243:* ALLOWABLE ENTRY (NO) .='T I TUT I I IN I'NO) 23: SU4qP.@ 23: JUST IFICATI8qO4qN qfRIGHT) 23: FILL CHARACTER 23: FLOAT CHARACTER 23: DE8qCI0qNAL POSITIONS (0) 23: SIGN POITION (LEADING) 2q2,31: AUTO CLOSE 1"I'ES I 424q3:. ARITHqME0qTIi- OPERATION (NO) 223: AUTO FIL4L-IN (NO) NEXT PAGE NU0N0EER (NO) 23: PRANCHING (0NO) 23: 4AUTO-IN4qCREMENT (4NO) 23:. OUTPUT TO IIE6qNORY CELL 0Q-10) ETT4E (YES) .8qn-: OUTPUT TO DISK BOTTOM 24: T4A4D STOP (YES) comp. 24: INPUT TYPE f r-%*EY0qD4qOARD) 24 CHARACTER T-I-PE C ALPHA) 24Z SECU0qRIT@-' FIELD (NO) 24: O0U0qERRIDE ERRORFI8E4LD fYES) 24: MINI0NUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGLE (NO) 24: ALLOWABLE ENTRY (NO) 24: SU0DSTITUTION (NO) 24: JUST IF I4CAT I ON (RIGHT) 24: FILL CHARACTER 24: FLOAT ICHAR0AC0TE0R 24: DECItI4A4L POSITIONS' (0) 24:* SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC i 1PE0R6ATION (NO) 24:- AUTO FILL-IN (NO) 24: NEXT PAGE N'44U4tI44PER (NO) 24: BRANCHING (NO) 24: AUTO- I N0CRE0IENT (44NO) 24: OUTPUT TO MEM32ORqlq' CELL (NO) 24: OUTPUT TO DISKETTE Cq-0qfq'E48qS0ql BIOFORM-01 BOTTOM .25: TAP STOP (YES) PROFILE 25: INPUT TYPE' .KE'-l'0qBO0qA0qRD) 25: 6qt-HAR4qACTER' Tt. PE (D 1q1q3 1 T) 25: ESE4qCU4qRITq FI4qLD qf NO) 25: 0O0UER6RIDE ERROR FIELD ' (0YES) - lIqt-l4qUt-1 LENqI-TH ' (0) 25: MIr 'TH TABLE (NO) 25: E.' A C TLENIG 25: RANGE 8qC-qf'ES: 4FR8qOr-1: A TO: 6) 25: ALLOWABLE ENTRY (4qNO) 2q25:- SUBSTITUTION (0qYES - RAM: 219 _IUSTIFIC0qATION (RIGHT) 25: FILL CHARACTER 25: FLOAT CHARACTER 25: DE4CI6qN6qR0L POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (0YE-4qS) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN i'NO) -qiE':'T PAGE NUMBER (NO) 25: qr 25: 0D0RAN0CHINL_3i fqrqA0qO) 25: 6AUTOq-IN6qC6qREqtqIENT (NO) r.4 25: OUTPUT TO 1Eqr-1O4RY CELL (NO) 25: OUTPUT TO DISI."'ETTE (YES) DEPTH 26: TAB 4STFIP (YES) (METERS) 26: INPUT T1-PE fKEY4B4O4A4RD) 26: CHARACTER 07-1-PE (PRINT0qA4qB4qLE 26: SE4URIT@-q(' FIELD (NO) 26: 4qO0qUERRIDE ERROR FIELD (YES) 26: qNINIqtql0qUqrl LENGTH (0) . q: Es'A0qCT LENGTH TABLE (NO) r (NO) 26: RANGE 26: ALLOWABLE ENTRY (NO) S0U.L,_ 1 -8q0) 26: 0qR=@-TITUTICqt - ft =.,TIFICRTI0r-i (RIGHT) 26: JU4 26: FILL CHR0RR.CTER 26: FLOAT CHARACTER 26: DE4qCIr-0qR4qL POSITIONS (0) 26: SIGN POSITION (LEADING) q'E 26: AUTO CL04=q-q7E 6qf S) 26: 40qARIT40qK6qIETI40qC qFqIPER36qRTI40qON 4qfN4q4q) 26: AUTO FILL-Ili .(NO) a 0qrq'0qiEq"q-q-T PAGE 40qH40qU40qN40qDE40qR q- (NO) 26: BRANCHING 6(NO0i 268: AUTO4q-INCRE0qt0qIENT 44Q-0q40) .q:482486: OUTPUT TO ME0qrIqiDRqIq-q1q1 CELL (NO) 264q: OUTPUT TO DIS0qIq-q0q"ETTE (YE44qS0 BIOFORM- 01 TEMPERATURE 27: -2qT4A4B STOP (YES) (CENTIGRADE): 27: INPUT TYPE 40-q: E'l4l-8OFIRD) 'P AIR 27: CHARACTER T-- E (DIGIT) 27: SE4qCU4RIT'-I' FIELD 0Q-40) 27: O0qUE0RRIDE ERROR FIELD 4VqVES) 27: MINIMUM LENGTH (00) 27: E:-,-'.4A-C'T LENGTH TABLE (YES: 409 q3 27: RANGE C-i'ES-* FROM: 99 TO: 400) 27: '4qALLOWi4qBLE ENTRY (NO). 27: SUBSTITUTION (NO) 27: JUSTIFICATION (RIGHT) 27: FILL CHARACTER 7: FLOAT CHARACTER 27: DECIMAL POSITIONS (0) 27: SIGN =3ITI4N LEADING) 27: AUTO CLOSE f'ES) 27: ARITHMETIC OPERATION , (NO) 27: AUTO FILL-IN fNO) 27: NEXT PAGE qrqAqLIM6qBER (NO) 27: BRANCHING (NO) 27: AUTO-IN4qCRE0qMENT fNO) 27: 4qOqj_j8qT4qP0qUT TO 6ME4NOR'-' CELL (NO) 27-0 OUTPUT TO DISKETTE (YES) TEMPERATURE 28: TAB STOP (YES) (CENTIGRADE): 28: INPUT T@-i'PEql*E4qB8qOARD) SURFACE 28: CHARACTER T-I'0qPE fDIGIT) 286: SECURITY Fqlrr_-4qL4qI! (NO) 28: 0qO0qUERRID8qE ERROR FIELD C-q('ES 28: MINIMUM LENGTH q(4q0q) 28: E:--'.4A4qCT LENGTH TABLE. (YES: 28: RANGE q(YE-8qS: FROM:q-50 TO: 4 4q0 0) 28: ALLOWABLE ENTRY (NO) 28: SU4B0STITUTIC-4-4. (N0O1. 28: JUS-TIFI0qCATION (RIGHT) 28: FILL CHARACTER 28: FLOAT CHARACTER f qi 52q248q8:q. DECIMAL P20qAq,0q@q:;ITI44qONS 144q0) 44q244q84q: SIGN 40qP40qoqlq:q-q:q;ITIOr6ql (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC 20qAP44qE40qRATI44qON (NO), 28: AUTO FILL-IN (NO) 28: NIEq'q-q-48qJ, PAGE NUMBER (NO) 28: BRANCHING 6qf36qNO) 28: AUTO0q-INCRE36HE6qt-6IT 6q(6qtq6q@n0q) 28: OUTPUT T40qO ME40qM40qORq'q-q@q' 6qF:ELL (NO) 52q252q8: 'OUTPUT TO DISKETTqLE qiq'q.q'q-q,q-q'ES) BIOFORM-01 TEMPERATURE 29: TAB STOP (YES) (CENTIGRADE): 29: INPUT TYPE (KEYBOARD) 'BOTTOM 29: CHARACTER TYPE (DIGIT) 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (YES) 29: MINIMUM LENGHT 29: EXACT LENGTH TABLE (YES: 29: RANGE (YES: FROM: -50 TO: 400) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (RIGHT) 29: FIH CHARACTER 29: FLOAT CHARACTER 29: DECIMAL POSITIONS (0) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) (NO) 29: ARITHMETIC OPERATION 29: AUTO FILL-IN. (NO) 29: NEXT PAGE NUMBER (NO) 29: BRANCHING (NO) 29: AUTO-INCREMENT (NO) 29: OUTPUT TO MEMORY CELL (NO) 29: OUTPUT TO DISKETTE (YES) SALINITY 30: TAB STOP (YES) (PPT): 30: INPUT TYPE (KEYBOARD) SURFACE 30: CHARACTER TYPE (DIGIT) 30: SECURITY FILED (NO) 30: OVERRIDE ERROR FIELD (YES) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE (YES: 0,3) 30: RANGE (YES: FROM:000 TO: 400) 30: ALLOWABLE ENTRY(NO) 30: SUBSTITUTION (NO) 30: JUSTIFICATION (RIGHT) 30: FILL CHARACTER () 30: FLOAT CHARACTER 30: DECIMAL POSITIONS (0) SIGN POSITION (LEADING) 30: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (NO) 30: BRANCHING (NO) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO MEMORY CELL (NO). 30: OUTPUT TO DISKETTE (YES) BIOFORM-01 SALINITY 31: TAB STOP (YES) (PPT): 31: INPUT TYPE (KEYBOARD) BOTTOM 31: CHARACTER TYPE (DIGIT) 31: SECURITY FIELD (NO) 31: OVERRIDE ERRIR FIELD (YES) 31: MINIMUM LENGTH (0) 31: EXACT LENGTH TABLE (YES: 093) 31: RANGE (YES: FROM: 000 TO: 400) 31: ALLOWABLE ENTRY (NO) 31: SUBSTITUTION (NO) 31: JUSTIFICATION (RIGHT) 31: FILL CHARACTER 31: FLOAT CHARACTER 31: DECIMAL POSITIONS SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE- NUMBER (NO) 31: BRANCHING (NO) 31: AUTO-INCREMENT (NO) 31: OUTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (YES) VARIABLE 32: TAB STOP (YES) FIELD 32: INPUT TYPE (KEYBOARD) #1 32: CHARACTER TYPE (PRINTABLE) 32: SECURITY FIELD (NO) 32: OVERRIDE ERROR FIELD (YES) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE (NO) 32: ALLOWABLE ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTIFICATION (RIGHT) 32: JUSTIFICATION (RIGHT) 32: FILL CHARACTER () 32: FLOAT CHARACTER () 32: DECIMAL POSITIONS (0) 32: SIGN POSITION (LEADING) 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL-IN (NO) 32: NEXT PAGE NUMBER (NO) 32: BRANCHING (NO) 32: AUTO-INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32: OUTPUT TO DISKETTE (YES) BIFORM-01 DISSOLVED 33: TAB STOP (YES) OXYGEN: 33: INPUT TYPE KEYBOARD) SURFACE 33: CHARACTER TYPE (DIGIT). 33: SECURITY FIELD (NO) 33: OVERRIDE ERROR FIELD (YES) 33: MINIMUM LENGTH (0) 33: EXACT LENGTH TABLE (YES: RANGE (YES: FROM: 000 TO: 100) 33: ALLOWABLE ENTRY (NO) 33: SUBSTITUTION (NO) 33: JUSTIFICATION (RIGHT) 33: FILL CHARACTER () 33: FLOAT CHARACTER () 33: DECIMAL POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE (YES) 33: ARITHMETIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (NO) 33: BRANCHING (NO) DISSOLVED 34: TAP STOP (YES) OXYGEN: 34: INPUT TYPE (KEYBOARD) BOTTOM 34: CHARACTER TYPE (DIGIT) 34: SECURITY FIELD (NO) 34: OVERRIDE ERROR FIELD (YES) 34: MINIMUM LENGTH (0) 34: EXACT LENGTH TABLE (YES: 0,3) 34: RANGE (YES: FROM: 000 TO:100) 34: ALLOWABLE ENTRY (NO) 34: SUBSTITUTION (NO) 34: JUSTIFICATION (RIGHT) 34: FILL CHARACTER 34: FLOAT CHARACTER 34: DECIMAL POSITIONS (0) 34: SIGN POSITION) 34: AUTO CLOSE (YES) 34: ARITHMETIC OPERATION 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (NO) 34: BRANCHING (NO) 34: AUTO INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT TO DISKETTE (YES) BIOFORM-01 pH 35: TAB STOP (YES) 35: INPUT TYPE (KEYBOARD) 35: CHARACTER TYPE (DIGIT) 35: SECURITY FIELD (NO) 35: OVERIDE ERROR FIELD (YES) 35: MINIMUM LENGTH (0) 35: EXACT LENGTH TABLE (YES: 0,2) 35: RANGE (YES: FROM: 00 TO: 99) 35: ALLOWABLE ENTRY (NO) 35: SUBSTITUTION (NO) 35: JUSTIFICATION (RIGHT) 35: FILL CHARACTER 35: FLOAT CHARACTER 35: DECIMAL POSITIONS (0) 35: SIGN POSITION (LEADING) 35: AUTO CLOSE (YES) 35: ARITHMETIC OPERATION (NO) 35: AUTO FILL-IN (NO) 35: NEXT PAGE NUMBER (NO) 35: BRANCHING (NO) 35: AUTO-INCREMENT (NO) 35: OUTPUT TO MEMORY CELL (NO) 35: OUTPUT TO DISKETTE (YES) WEATHER 36: TAB STOP (YES) ELEMENT 36: INPUT TYPE 36: CHARACTER TYPE (DIGIT) 36: SECURITY FIELD (NO) 36: OVERRIDE ERROR FIELD (YES) 36: MINIMUM LENGTH (0) 36: EXACT LENGTH TABLE (NO) 36: RANGE (NO) 36: ALLOWABLE ENTRY (NO) 36: SUBSTITUTION (NO) 36: JUSTIFICATION (RIGHT) 36: FILL CHARACTER 36: FLOAT CHARACTER 36: DECIMAL POSITIONS (0) 36: SIGN POSITION (LEADING) 36: AUTO CLOSE (YES) 36: ARITHMETIC OPERATION (NO) 36: AUTO FILL-IN (NO) 36: NEXT PAGE NUMBER (NO) 36: BRANCHING (NO) 36: AUTO INCREMENT (NO) 36: OUTPUT TO MEMORY CELL (NO) 36: OUTPUT TO DISKETTE (YES) BIOFORM-01 VARIABLE 37: TAB STOP (YES) FIELD 37: INPUT TYPE (KEYBOARD) #2 37: CHARACTER TYPE (PRINTABLE) 37: SECURITY FIELD (NO) 37: OVERRIDE ERROR FIELD (YES) 37: MINIMUM LENGTH (0) 37: EXACT LENGTH TABLE (NO) 37: RANGE (NO) 37: ALLOWABLE ENTRY (NO) 37: SUBSTITUTION (NO) 37: JUSTIFICATION (RIGHT) 37: FILL CHARACTER ( ) 37: FLOAT CHARACTER ( ) 37: DECIMAL POSITIONS (0) 37: SIGN POSITION (LEADING) 37: AUTO CLOSE (YES) 37: ARITHMETIC OPERATION (NO) 37: AUTO FILL-INN (NO) 37: NEXT PAGE NUMBER (NO) 37: BRANCHING (NO) 37: AUTO-INCREMENT (NO) 37: OUTPUT TO MEMORY CELL (NO) 37: OUTPUT TO DISKETTE (YES) 38: TAB STOP (YES) WIND 38: INPUT TYPE (KEYBOARD) DIRECTION 38: CHARACTER TYPE (DIGIT) 38: SECURITY FIELD (NO) 38: OVERRIDE ERROR FIELD (YES) 38: MINIMUM LENGTH TABLE (NO) 38: EXACT LENGTH TABLE (NO) 38: RANGE (NO) 38: ALLOWABLE ENTRY (NO) 38: SUBSTITUTION (NO) 38: JUSTIFICATION (RIGHT) 38: FILL CHARACTER ( ) 38: FLOAT CHARACTER ( ) 38: DECIMAL POSITONS (0) 38: SIGN POSITION (LEADING) 38: AUTO CLOSE (YES) 38: ARITHMETIC OPERATION (NO) 38: AUTO FILL-IN (NO) 38: NEXT PAGE NUMBER (NO) 38: BRANCHING (NO) 38: AUTO-INCREMENT (NO) 38: OUTPUT TO MEMORY CELL (NO) 38: OUTPUT TO DISKETTE (YES) BIOBORM-01 WIND 39: TAP STOP (YES) SPEED 39: INPUT TYPE (KEYBOARD) 39: CHARACTER TYPE (DIGIT) 39: SECURITY FIELD (NO) 39: OVERRIDE ERROR FIELD (YES) 39: MINIMUM LENGTH (0) 39: EXACT LENGTH TABLE (NO) 39: RANGE (YES: FROM: 00 TO:30) 39: ALLOWABLE ENTRY (NO) 39: SUBSTITUTION (NO) 39: JUSTIFICATION (RIGHT) 39: FILL CHARACTER ( ) 39: FLOAT CHARACTER ( ) 39: DECIMAL POSITIONS (LEADING) 39: SIGN POSITION (LEADING) 39: AUTO CLOSE (YES) 39: ARITHMETIC OPERATION (NO) 39: AUTO FILL-IN (NO) 39: NEXT PAGE NUMBER (NO) 39: BRANCHING (NO) 39: AUTO-INCREMENT (NO) 40: TAB STOP (YES) 40: INPUT TYPE (KEYBOARD) 40: CHARACTER TYPE (DIGIT) 40: SECURITY FIELD (NO) 40: OVERRIDE ERROR FIELD (YES) 40: MINIMUM LENGTH (0) 40: EXACT LENGTH TABLE (NO) 40: RANGE (NO) 40: ALLOWABLE ENTRY (NO) 40: SUBSTITUTION (NO) 40: JUSTIFICATION (RIGHT) 40: FILL CHARACTER ( ) 40: FLOAT CHARACTER ( ) 40: DECIMAL POSITIONS (0) 40: SIGN POSITION (LEADING) 40: AUTO CLOSE (YES) 40: ARITHMETIC OPERATION (NO) 40: AUTO FILL-IN (NO) 40: NEXT PAGE NUMBER (NO) 40: BRANCHING (NO) 40: AUTO-INCREMENT (NO) 40: OUTPUT TO MEMORY CELL (NO) 40: OUTPUT TO DISKETTE (YES) BIOFORM-01 CURRENT 41: TAB STOP (YES) SPEED 41: INPUT TYPE (KEYBOARD) 41: CHARACTER TYPE (DIGIT) 41: SECURITY FIELD (NO) 41: OVERRIDE ERROR FIELD (YES) 41: MINIMUM LENGTH (0) 41: EXACT LENGTH TABLE (NO) 41: RANGE (YES: FROM: 00 TO: 15) 41: ALLOWABLE ENTRY (NO) 41: SUBSTITUTION (NO) 41: JUSTIFICATION (RIGHT) 41: FILL CHARACTER ( ) 41: FLOAT CHARACTER ( ) 41: DECIMAL POSITIONS (0) 41: SIGN POSITION (LEADING) 41: AUTO CLOSE (YES) 41: ARITHMETIC OPERATION (NO) 41: AUTO FILL-IN (NO) 41: ARITHMETIC OPERATION (NO) 41: AUTO FILL-IN (NO) 41: NEXT PAGE NUMBER (NO) 41: BRANCHING (NO) 41: AUTO-INCREMENT (NO) 41: OUTPUT TO MEMORY CELL (NO) 41: OUTPUT TO DISKETTE (YES) WATER 42: TAB STOP (YES) LEVEL 42: INPUT TYPE (KEYBOARD) 42: CHARACTER TYPE (ALPHA) 42: SECURITY FIELD (NO) 42: OVERRIDE ERROR FIELD (YES) 42: MINIMUM LENGTH (0) 42: EXACT LENGTH TABLE (NO) 42: RANGE (NO) 42: ALLOWABLE ENTRY (NO) 42: SUBSTITUTION (NO) 42: JUSTIFICATION (RIGHT) 42: FILL CHARACTER ( ) 42: FLOAT CHARACTER ( ) 42: DECIMAL POSITIONS (0) 42: SIGN POSITION (LEADING) 42: AUTO CLOSE (YES) 42: ARITHMETIC OPERATION (NO) 42: AUTO FILL-IN (NO) 42: NEXT PAGE NUMBER (NO) 42: BRANCHING (NO) 42: AUTO-INCREMENT (NO) 42: OUTPUT TO MEMORY CELL (NO) 42: OUTPUT TO DISKETTE (YES) BIOFORM-01 ALTERATION 43: TAB STOP (YES) STATE 43: INPUT TYPE (KEYBOARD) 43: CHARACTER TYPE (DIGIT) 43: SECURITY FIELD (NO) 43: OVERRIDE ERROR FIELD (YES) 43: MINIMUM LENGTH (0) 43: EXACT LENGTH TABLE (NO) 43: RANGE (YES: FROM: 0 TO: 5 43: ALLOWABLE ENTRY (NO) 43: SUBSTITUTION (YES-RAM: 0, ;) 43: JUSTIFICATION (RIGHT) 43: FILL CHARACTER ( ) 43: FLOAT CHARACTER ( ) 43: DECIMAL POSITIONS (0) 43: SIGN POSITION (LEADING) 43: AUTO CLOSE (YES) 43: ARITHMETIC OPERATION (NO) 43: AUTO FILL-IN (NO) 43: NEXT PAGE NUMBER (NO) 43: BRANCHING (NO) 43: AUTO-INCREMENT (NO) 43: OUTPUT TO MEMORY CELL (NO) 43: OUTPUT TO DISKETTE (YES) ALLOWED 44: TAB STOP (YES) FISHING 44: INPUT TYPE (KEYBOARD) ACTIVITY 44: CHARACTER TYPE (ALPHA) 44. SECURITY FIELD (NO) 44. OVERRIDE ERROR FIELD (YES) 44. MINIMUM LENGTH (0) 44. EXACT LENGTH TABLE (NO) 44. RANGE (NO) 44. ALLOWABLE ENTRY (NO) 44. SUBSTITUTION (NO) 44. JUSTIFICATION (RIGHT) 44. FILL CHARACTER ( ) 44. FLOAT CHARACTER ( ) 44. DECIMAL POSITIONS (0) 44. SIGN POSITION (LEADING) 44. AUTO CLOSE (YES) 44. ARITHMETIC OPERATION (NO) 44. AUTO FILL-IN (NO) 44. NEXT PAGE NUMBER (NO) 44. BRANCHING (NO) 44. AUTO-INCREMENT (NO) 44. OUTPUT TO MEMORY CELL (NO) 44. OUTPUT TO DISKETTE (YES) BIOFORM-01 NUMBER 45: TAB STOP (YES) 45: 45: INPUT TYPE (KEYBOARD) REPLICATES 45: CHARACTER TYPE (DIGIT) 45: SECURITY FIELD (NO) 45: OVERRIDE ERROR FIELD (NO) 45: MINIMUM LENGTH (1) 45: EXACT LENGTH TAKE. (NO) 45: RANGE (NO) 45: ALLOWABLE ENTRY (NO) 45: SUBSTITIUTION (NO) 45: JUSTIFICATION (RIGHT) 45: FILL CHARACTER 45: FLOAT CHARACTER (0) 45: DECIMAL POSITIONS (0) 45: SIGN P0SITION (LEADING) 45: AUTO CLOSE (YES) 45: ARITHMETIC OPERATION (No) 45: AUTO FILL-IN (NO) 45: NEXT PAGE NUMBER (NO) 45: BRANCHING (NO) 45: AUTO-INCREMENT (NO) 45: OUTPUT TO MEMORY CELL (NO) 45: OUTPUT TO DISKETTE (YES) LOAD 46: TAB STOP (YES) RECORD TYPE: 46: INPUT TYPE (KEYBOARD) ONE 46: CHARACTER TYPE (PRINTABLE) 46: SECURITY FIELD(NO) 46: OVERRIDE ERROR FIELD (NO) 46: MINIMUM LENGTH (0) 46: EXACT LENGTH TABLE (NO) 46: RANGE (NO) 46: ALLOWABLE ENTRY (NO) 46: SUBSTITUTION (NO) 46: JUSTIFICATION (LEFT) 46: FILL CHARACTER () 46: FLOAT CHARACTER () 46: DECIMAL POSITIONS (0) 46: SIGN POSITION (LEADING) 46: AUTO CLOSE (YES) 46: ARITHMETIC OPERATION (NO) 46: AUTO FILL-IN (NO) 46: NEXT PAGE NUMBER (YES - PAGE 1) 46: BRANCHING (TEST LINE: 23 POSITION:80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X:)) 46: AUTO-INCREMENT (NO) 46: OUTPUT TO MEMORY CELL (NO) 46: OUTPUT TO DISKETTE (NO) BIOFORM-01 LOAD 47: TAB STOP (YES) RECORD TYPE: 47: INPUT TYPE TWO 47: CHARACTER TYPE (PRINTABLE) 47: SECURITY FIELD (NO) 47: OVERRIDE ERROR FIELD (NO) 47: MINIMUM LENGTH (0) 47: EXACT LENGTH TABLE (NO) 47: RANGE (NO) 47: ALLOWABLE ENTRY (NO) 47: SUBSTITUTION (NO) 47: JUSTIFICATION (LEFT) 47: FILL CHARACTER 47: FLOAT CHARACTER 47: DECIMAL POSITIONS (0) 47: SIGN POSITION (LEADING) 47: AUTO CLOSE (YES) 47: ARITHMETIC OPERATION (NO) 47: AUTO FILL-IN (NO) 47: NEXT PAGE NUMBER (YES.- PAGE 2 ) 47: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X:)) 47: AUTO-INCREMENT (NO) 47: OUTPUT TO MEMORY CELL (NO) 47: OUTPUT TO DISKETTE (NO) LOAD 48: TAB STOP (YES) RECORD TYPE: 48: INPUT TYPE (KEYBOARD) THREE 48: CHARACTER TYPE (PRINTABLE) 48: SECURITY FIELD (NO) 48: OVERRIDE ERROR FIELD (NO) 48: MINIMUM LENGTH (0) 48: EXACT LENGTH TABLE. (NO) 48: RANGE (NO) 48: ALLOWABLE ENTRY (NO) 48: SUBSTITUTION (NO) 48: JUSTIFICATION. (LEFT) 48: FILL CHARACTER 48: FLOAT CHARACTER 48: DECIMAL POSITIONS (0) 48: SIGN POSITION (LEADING)- 48: AUTO CLOSE (YES) 48: ARITHMETIC OPERATION (NO) 48: AUTO FILL-IN (NO) 48: NEXT PAGE NUMBER (YES-PAGE 3) 48: BRANCHING (TEST LINE:23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: XX;)) 48: AUTO-INCREMENT (NO) 48: OUTPUT TO MEMORY CELL (NO) 48: OUTPUT TO DISKETTE (NO) BIOFORM-01 LOAD 49: TAB STOP (YES) RECORD TYPE: 49: INPUT TYPE (KEYBOARD) 49: CHARACTER TYPE (PRINTABLE) FOUR 49: SECURITY FIELD (NO) 49: SECURITY FIELD 49: OVERRIDE ERROR FIELD 49: MINIMUM LENGTH (0) 49: EXACT LENGTH TABLE (NO) 49: RANGE (NO) 49: ALLOWABLE ENTRY (NO) 491 SUBSTITUTION (NO) 49: JUSTIFICATION (LEFT) 49: FILL CHARACTER 49: FLOAT CHARACTER 49: DECIMAL POSITIONS (0) 49: SIGN POSITION (LEADING) 49: AUTO CLOSE (YES) 49: ARITHEMETIC OPERATION (NO) 49: AUTO FILL-IN (NO) 49: NEXT PAGE (YES-PAGE 4) 4 49: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: RAM: X;)) ) 49: AUTO-INCREMENT (NO) 49: OUTPUT TO MEMORY CELL (NO) 49: OUTPUT TO DISKETTE (NO) LOAD 50: TAB STOP (YES) RECORD TYPE:. 50: INPUT TYPE (KEYBOARD) FIVE 50: CHARACTER TYPE (PRINTABLE) 50: SECURITY FIELD (NO) 50: OVERRIDE ERROR FIELD (NO) 50: MINIMUM LENGTH (0) 50: EXACT LENGTH TABLE (NO) 50: RANGE (NO) 50: ALLOWABLE ENTRY (NO) 50: SUBSTITUTION (NO) 50: JUSTIFICATION- (LEFT) 50: FILL CHARACTER 50: FLOAT CHARACTER 50: DECIMAL POSITIONS (0) 50: SIGN POSITION (LEADING) 50: AUTO CLOSE (YES) 50: ARITHMETIC OPERATION (NO) 50: AUTO FILL-IN (NO) 50: NEXT PAGE NUMBER (YES-PAGE 5) 50: BRANCHING (TEST LINE: 23 POSITION: 80 80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAN: X;)) 50: AUTO-INCREMENT (NO) 50: OUTPUT TO MEMORY CELL (NO) 50: OUTPUT TO DISKETTE (NO) BI0FORM-01 LOAD 51: TAB STOP (YES) RECORD TYPE: 51: INPUT TYPE (KEYBOARD) SIX 51: CHARACTER TYPE (PRINTABLE) 51: SECURITY FIELD (NO) 51: OVERRIDE ERROR FIELD (NO) 51: MINIMUM LENGTH (0) 51: EXACT LENGTH TABLE (NO) 51: RANGE (NO) 51: ALLOWABLE ENTRY (NO) 51: SUBSTITUTION (NO). 51: JUSTIFICATION (LEFT) 51: FILL CHARACTER 51: FLOAT CHARACTER 51: DECIMAL POSITIONS (0) 51: SIGN POSITION (LEADING) 51: AUTO CLOSE (YES) 51: ARITHMETIC OPERATION (NO) 51: AUTO FILL-IN (NO) 51: NEXT PAGE NUMBER (YES- PAGE 6) 51: BRANCHING (TEST LINE: 23 POSITION:80 80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM:X;)) (NO) 51: BRANCH: AUTO-INCREMENT (NO) 51: OUTPUT TO MEMORY CELL (NO) 51: OUTPUT TO DISKETTE (NO) LOAD 52: TAB STOP (YES) RECORD TYPE: 52: INPUT TYPE (KEYBOARD) SEVEN 52: CHARACTER TYPE (PRINTABLE) 52: SECURITY FIELD (NO) 52: OVERRIDE ERROR FIELD (NO) 52: MINIMUM LENGTH (0) 52: EXACT LENGTH TABLE (NO) 52: RANGE (NO) 52: ALLOWABLE ENTRY (NO) 52: SUBSTITUTION (NO) 52: JUSTIFICATION (LEFT) 52: FILL CHARACTER 52: FLOAT CHARACTER 52: DECIMAL POSITIONS (0) 52: SIGN POSITION (LEADING) 52: AUTO CLOSE (YES) 52: ARITHMETIC OPERATION (NO) 52: AUTO FILL-IN (NO) 52: NEXT PAGE NUMBER (YES - PAGE 7) 52: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 52: AUTO-INCREMENT (NO) 52: OUTPUT TO MEMORY CELL (NO) 52: OUTPUT TO DISKETTE (NO) BIOFORM-01 LOAD 53: TAB STOP (YES) RECORD TYPE: 53: INPUT TYPE (KEYBOARD) EIGHT 53: CHARACTER TYPE (PRINTABLE) 53: SECURITY FIELD (NO) 53: OVERRIDE ERROR FIELD (NO) 53: MINIMUM LENGTH (0) 53: EXACT LENGTH TABLE (NO) 53: RANGE (NO) 53: ALLOWABLE ENTRY (NO) 53: SUBSTITUTION (NO) 53: JUSTIFICATION (LEFT) 53: FILL CHARACTER ( ) 53: FLOAT CHARACTER ( ) 53: DECIMAL POSITIONS (0) 53: SIGN POSITION (LEADIND) 53: AUTO CLOSE (YES) 53: ARITHMETIC OPERATION (NO) 53: AUTO FILL-IN (NO) 53: NEXT PAGE NUMBER (NO) 53: BRANCHING (NO) 53: AUTO-INCREMENT (N0) 53: OUTPUT TO MEMORY CELL. (NO) 53: OUTPUT TO DISKETTE (NO) LOAD 54: TAB STOP (YES) RECORD TYPE: 54: INPUT TYPE (KEYBOARD) NINE 54: CHARACTER TYPE (PRINTABLE.) 54: SECURITY FIELD (NO) 54: OVERRIDE ERROR FIELD (NO) 54: MINIMUM LENGTH (0) 54: EXACT LENGTH TABLE (NO) 54: RANGE (NO) 54: ALLOWABLE ENTRY (NO) 54: SUBSTITUTION (NO) 54: JUSTIFICATION (LEFT) 54: FILL CHARACTER ( ) 54: FLOAT CHARACTER ( ) 54: DECIMAL POSITIONS (0) 54: SIGN POSITION (LEADING) 54: AUTO CLOSE (YES) 54: ARITHMETIC OPERATION (NO) 54: AUTO FILL-IN (NO) 54: NEXT PAGE NUMBER (YES - PAGE 8) 54: BRANCHING (TEST LINE: 23 POSITION: 80 BRANCH: MINIMUM LENGTH (0) BRANCH MAXIMUM LENGTH (1) BRANCH EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 54: AUTO-INCREMENT (NO) 54: OUTPUT TO MEMORY CELL (N0) 54: OUTPUT TO DISKETTE (NO) APPENDIX B-2: BIOFORM - -2 LAYOUT FILE REPLICATE DATA FORM PAGE 02 ACTION FIELD < RECIRD TYPE < SEQYEBCE NO: YEAR << COLLECTION NO <<<<< REPLICATE << SPECIES <<<<<<<<<< STATUS < LINE NUMBER <<< COLLECTION SIZE <<<<<< SAMPLE SIZE <<<<<< NUMBER OF RECORD TYPE III'S << QUALITY < FILL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< FILL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -----------LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X'----------- ONE < TWO < THREE < FOUR < FIVE < SIX < SEVEN < EIGHT < NINE < BIOFORM-02 ATTRIBUTES ACTION TAB STOP (YES) FIELD 1: INPUT TYPE (KEYBOARD-CONSTANT: ) 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE (NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE : ACTION) 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 2) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: OUTPUT TO DISKETTE (YES) BIOFORM-02 SEQUENCE 3: TAB STOP (YES) NO: YEAR 3: INPUT TYPE (KEYBOARD-MEMORY CELL # 1) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (YES: 2) 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (LEFT) 3: FILL CHARACTER ( ) 3: FLOAT CHARACTER ( ) 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 1) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH TABLE (NO) 3: EXACT LENGTH TABLE (NO) 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTIONAL (NO) 3: JUSTIFICATION (RIGHT) 3: FILL CHARACTER (0) 3: FLOAT CHARACTER (0) 3: DECIMAL POSITIONS (LEADING) 3: SIGN POSITIONS (0) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TOMEMORY CELL (YES - MEMORY CELL # 1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE 4: TAB STOP (YES) NO: COLLECTION 4: INPUT TYPE (KEYBOARD-MEMORY CELL # 2) NO 4: CHARACTER TYPE (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (RIGHT) 4: FILL CHARACTER (0) 4: FLOAT CHARACTER (0) 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (NO) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 2) 4: OUTPUT TO DISKETTE (YES) BIOFORM-02 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (KEYBOARD) 5: CHARACTER TYPE (DIGIT) 5: SECURITY FIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (1) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (RIGHT) 5: FILL CHARACTER ( ) 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (YES) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (FIXED LINE: 7 POSITION: 1) 5: AUTO INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (N0) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD) 6: CHARACTER TYPE (PRINTABLE) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENGTH (0) 6: EXACT LENGTH TABLE (NO) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT) 6: FILL CHARACTER ( ) 6: FLOAT CHARACTER ( ) 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (N0) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (NO) 6: OUTPUT TO DISKETTE (YES) BIOFORM-02 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (KEYBOARD) 7: CHARACTER TYPE (PRINTABLE) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (0) 7: EXACT LENGTH TABLE (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (N0) 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER ( ) 7: FLOAT CHARACTER ( ) 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (N0) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (N0) 7: BRANCHING (NO) 7: AUTO-INCREMENT (NO) 7: OUTPUT TO MEMORY CELL (N0) 7: OUTPUT TO DISKETTE (YES) LINE 8: TAB STOP (YES) NUMBER 8: INPUT TYPE (KEYBOARD) 8: CHARACTER TYPE (PRINTABLE) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (0) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 8: SUBSTITUTION (NO) 8: JUSTIFICATION (LEFT) 8: FILL CHARACTER ( ) 8: FLOAT CHARACTER ( ) 8: DECIMAL POSITIONS (0) 8: SIGN POSITION (LEADING) 8: AUTO CLOSE (YES) 8: ARITHMETIC OPERATION (NO) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: OUTPUT TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM-02 COLLECTION 9: TAB STOP (YES) SIZE 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (PRINTABLE) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (NO) 9: EXACT LENGTH TABLE (NO) 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (YES - RAM: .,999999;) 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER (0) 9: FLOAT CHARACTER (0) 9: DECIMAL POSITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE (YES) SAMPLE 10: TAB STOP (YES) SIZE 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (PRINTABLE) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (YES) 10: MINIMUM LENGTH (1) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (YES - RAM: .,999999;) 10: JUSTIFICATION (RIGHT) 10: FILL CHARACTER (0) 10: FLOAT CHARACTER (0) 10: DECIMAL POSITIONS (0) 10: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT TO DISKETTE (YES) BIOFORM-02 NUMBER 11: TAB STOP (YES) OF 11: INPUT TYPE (KEYBOARD) RECORD 11: CHARACTER TYPE (DIGIT) TYPE 11: SECURITY FIELD (NO) III'S 11: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGTH (1) 11: EXACT LENGTH TABLE (NO) 11: RANGE (YES: FROM: 00 TO: 30) 11: ALLOWABLE ENTRY (NO) 11: SUBSTITUTION (NO) 11: JUSTIFICATION (RIGHT) 11: FILL CHARACTER (0) 11: FLOAT CHARACTER (0) 11: DECIMAL POSITIONS (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO-INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) QUALITY 12: TAB STOP (YES) 12: INPUT TYPE (KEYBOARD-CONSTANT: 0) 12: CHARACTER TYPE (DIGIT) 12: SECURITY FIELD (NO) 12: OVERRIDE ERROR FIELD (YES) 12: MINIMUM LENGTH (0) 12: EXACT LENGTH TABLE (NO) 12: RANGE (YES: FROM: 0 TO: 4:) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (LEFT) 12: FILL CHARACTER ( ) 12: FLOAT CHARACTER ( ) 12: DECIMAL POSITIONS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (FIXED LINE: 17 POSITION: 1) 12: AUTO-INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (YES) 0 BIOFORM-02 FILL TAB STOP (YES) 13: INPUT TYPE (CONSTANT:) 13: CHARACTER TYPE (PRINTABLE) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD (NO) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (NO) 13: JUSTIFICATION (LEFT) 13: FILL CHARACTER ( ) 13: FLOAT CHARACTER ( ) 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (N0) 13: NEXT PAGE NUMBER (N0) 13: BRANCHING (NO) 13: AUTO-INCEMENT (NO) 13: OUTPUT TO MEMORY CELL (NO) 13: OUTPUT TO DISKETTE (YES) FILL TAB STOP (YES) 14: INPUT TYPE (CONSTANT: ) 14: CHARACTER TYPE (PRINTABLE) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (NO) 14: MINIMUN LENGTH (0) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION. (NO) 14: JUSTIFICATION (LEFT) 14: FILL CHARACTER ( ) 14: FLOAT CHARACTER ( ) 14: DECIMAL POSITINS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) 0 BIOFORM-02 LOAD 15: TAB STOP (YES) RECORD TYPE: 15: INPUT TYPE (KEYBOARD) ONE 15: CHARACTER TYPE (PRINTABLE) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELD (NO) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (NO) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER ( ) 15: FLOAT CHARACTER ( ) 15: DECIMAL POSITIONS (0) 15: SIGN POSITTI0N (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (YES - PAGE 1) 15: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALL0WABLE ENTRY (YES - RAM: X;)) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (NO) LOAD 16: TAB STOP (YES) RECORD TYPE: 16: INPUT TYPE (KEYBOARD) TWO 16: CHARACTER TYPE (PRINTABLE) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (NO) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (LEFT) 16: FILL CHARACTER ( ) 16: FLOAT CHARACTER ( ) 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (YES - PAGE 2) 16: BRANCHING (TEST LINE: 23 POSITION: 80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: 0UTPUT TO DISKETTE (NO) 0 BIOFORM-02 LOAD 17: TAB STOP (YES) RECORD TYPE: 17: INPUT TYPE (KEYBOARD) THREE 17: CHARACTER TYPE (PRINTABLE) 17: SECURITY FIELD (NO) 17: OVERRIDE ERROR FIELD (NO) 17: MINIMUM LENGTH (0) 17: EXACT LENGTH TABLE (NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (LEFT) 17: FILL CHARACTER ( ) 17: FLOAT CHARACTER ( ) 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO CLOSE (YES) 17: ARITHMETIC 0PERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (YES - PAGE 3) 17: BRANCHING (TEST LINE: 23 POSITION:80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 17: AUTO-INCREMENT (NO) 17: OUTPUT TO MEMORY CELL (No) 17: OUTPUT TO DISKETTE (NO) LOAD 18: TAB STOP (YES) RECORD TYPE: 18: INPUT TYPE (KEYBOARD) FOUR 18: CHARACTER TYPE (PRINTABLE) 18: SECURITY FIED (NO) 18: OVERRIDE ERROR FIELD (NO) 18: MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE (NO) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTI0N (NO) 18: JUSTIFICATION (LEFT) 18: FILL CHARACTER ( ) 18: FLOAT CHARACTER ( ) 18: DECIMAL POSITIONS (0) 18: SIGN POSITION (LEADING) 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (NO) 18: NEXT PAGE NUMBER (YES - PAGE 4) 18: BRANCHING (TEST LINE: 23 POSITION: 80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTPY (YES - RAM: X;)) 18: AUTO-INCREMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETTE (NO) 0 BIOFORM-02 LOAD 19: TAB STOP (YES) RECORD TYPE: 19: INPUT TYPE (KEYBOARD) FIVE 19: CHARACTER TYPE (PRINTABLE) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (NO) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (LEFT) 19: FILL CHARACTER ( ) 19: FLOAT CHARACTER ( ) 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (YES - PAGE 5) 19: BRANCHING (TEST LINE: 23 POSITION: 80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) LOAD 19: AUTO-INCREMENT (NO) RECORD TYPE: 19: OUTPUT TO MEMORY CELL (NO) SIX 19: OUTPUT TO DISKETTE (NO) 20: TAB STOP (YES) 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (PRINTABLE) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (NO) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUSTIFICATON (LEFT) 20: FILL CHARACTER ( ) 20: FLOAT CHARACTER ( ) 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (YES - PAGE 6) 20: BRANCHING (TEST LINE: 23 POSITION: 80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (NO) BIOFORM-02 LOAD 21: TAB STOP (YES) RECORD TYPE: 21: INPUT TYPE (KEYBOARD) SEVEN 21: CHARACTER TYPE. (PRINTABLE) 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD (NO) 21: MINIMUM LENGTH (N0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (LEFT) 21: FILL CHARACTER 21: FLOAT CHARACTER 21: DECIMAL POSITIONS (O) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (YES - PAGE7) 21: BRANCHING (TEST LINE: 23 POSITION:80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1). BRANCH: EXACT LENGTH TABLE (NO), BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 21: AUTO INREMENT (NO) 21: OUTPUT TO MEMORY (NO) 21: OUTPUT TO DISKETTE. (NO) LOAD 22: TAB STOP (YES) RECORD TYPE: 22: INPUT TYPE (KEYBOARD) EIGHT 22: CHARACTER TYPE (PRINTABLE) 22: SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (NO) 22; MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE. (NO) 22: ALLOWABLE ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION (LEFT) 22: FILL CHARACTER 22: FLOAT CHARACTER 22: DECIMAL POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING 22: AUTO-INCRENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (N0) B10FORM-02 LOAD 23: TAB STOP (YES) 23: RECORD TYPE: INPUT TYPE (CONTANT: X) NINE 23: CHARACTER TYPE (PRINTABLE) 23: SECURITY FIELD (N0) 23: OVERRIDE ERROR FIELD (NO) 23: MINIMUM LENGTH (0) 23: EXACT LENGTH TABLE (NO) 23: RANGE (NO) 23: ALLOWABLE ENTRY (NO) SUBSTITUTION (NO) 23: 23: JUSTIFICATION (LEFT) 23: FILL CHARACTER 23: FLOAT CHARACTER 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) (YES - PAGE 3) 23: NEXT PAGE NUMBER 23: BRANCHING (TEST LINE: 18 POSITION: 78: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH , EXACT LENGTH (NO) BRANCH: RANGE. (NO) BRANCH: ALLOWABLE ENTRY (YES RAM: X;)) 23: AUTO-INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE. (NO) SPECIES DATA FORM PAGE 03 ACTION FIELD < RECORD TYPE < SEQUENCE NO: YEAR << COLLECTION NO <<<<< REPLICATE << SPECIES <<<<<<<<<< STATUS< LINE NUMBER<<< COLLECTION NUMBER <<<<< COLLECTION WEIGHT <<<<<< SAMLE NUMBER <<<<< SAMPLE WEIGHT < SUBSAMPLE NUMBER <<<<<- SUBSAMPLE WEIGHT<<<<< 3C FORM OF RECORD TYPE FOUR < TAG TYPE NUMBER TAGGED<<<<< TAG TYPE NUMBER TAGGED FILL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< --------- LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X' ONE TWO THREE < FOUR < FIVE SIX SEVEN < EIGHT < NINE < BIOFORM-03 ATTRIBUTES ACTION TAB STOP (YES) FIELD 1: INPUT TYPE (KEYBOARD-CONSTANT: ) 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE. (NO) 1: RANGE (NO) 1: ALL0WABLE ENTRY (YES: DRIVE: I FILE: ACTION) 1: SUBSTITUTION (NO) I : JUSTIFICATION (LEFT) 1 : FILL CHARACTER I : FLOAT CHARACTER 1 : DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO). 1: AUTO- INCREMENT (NO) I: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 3) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD NO 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER 2: FLOAT CHARACTER 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) OUTPUT TO DISKETTE (YES) BIOFORM-03 SEQUENCE -8q1 TAB STOP (YES) NO: YEAR 3: INPUT TYPE (KEYBOARD-MEMORY CELL #1) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD NO 3: MINIMUM LENGTH (N0) 3: EXACT LENGTH TABLE- fYES: 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (LEFT) 3: FILL. CHARACTER 3: FLOAT CHARACTER 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUT0-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL. (YES-MEMORY CELL #1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE Aw 4: TAB STOP (YES) NO: COLLECTION 4: INPUT TYPE (KEYBOARD MEMORY CELL.# 2) NO 4: CHARACTER TYPE (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD. (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4. SUBSTITUTION -(NO) 4: JUSTIFICATION .(RIGHT) 4: FILL CHARACTER (0) 4: *FLOAT CHARACTER (0) 4: DECIMAL POSITION (LEADING) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FiLL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (NO) 4: AUT0-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES 4: OUTPUT TO DISKETTE (YES) BIOFORM-03 REPLICATE 5 TAB STOP (YES) 5 1 NPUT TYPE (KEYBOARD) 5: CHARACTER TYPE (DIGIT) 5 S E C C U R I TFIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (1) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5 ALLOW0ABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (RIGHT) 5: FILL CHARACTER (N0) 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) AUTO FILL-IN (NO) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: 0UTPUT TO MEMORY CELL (YES-MEMORY CELL #3) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD) 6: CHARACTER TYPE (DIGIT) 6: SECURITY FIElD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENGTH (N0) 6: EXACT LENGTH TABLE (YES: 10) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITITION (NO) 6: JUSTIFICATION - (LEFT) 6: FILL CHARACTER 6: FLOAT CHARACTER 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (fLEADING) 6: AUTO CLOSE (YES) 6: -ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (YES-MEMORY CELL #4) 6: OUTPUT TO DISKETTE (YES) BIOFORM-03 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (KEYBOARD-CONSTANT: 0) 7: CHARACTER TYPE (DIGIT) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD. NO 7: MINIMUM LENGTH (1). 7: EXACT LENGTH TABLE.- (NO) 7: RANGE (YES) FROM: 0 - TO 4) 7: ALLOABLE ENTRY (NO) 7: SUBSTITUTION (YES" - RAM: 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER A 7: FLOAT CHARACTER 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7 BRANCHING (FIXED. LINE: 7: AUTO- INCREMENT (N0) 7: OUTPUT TO MEMORY CELL (YES-MEMORTY CELL#5) 7: OUTPUT TO DlSKITTE (YES) LINE 8: TAB STOP (YES) NUMBER 8: INPUT TYPE (PRINTABLE) 8: CHARACTER TYPE PRINTABLE) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (0) 8: EXACT LENGTH TABLE. (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 8: SUBSTITUTION, (NO) 8: JUSTIFICATION - (LEFT) 8: FILL CHARACTER 8: FLOAT CHARACTER 8: DECIMAL POSTITIONS (0) 8: -SIGN POSITION (LEADING) 8: AUTO CLOSE (YES) 8: ARITHMETIC OPERATION (NO) 8: AUTO FILL-IN (NO) 8: NEXT PAGE HUMBER (NO) 8: BRANCHING (NO) 8 AUTO-INCRENENT (NO) 8: OUTPUT TO MEMORY TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM-03 COLLECTION 9: TAB STOP (YES) NUMBER 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (PRINTABLE) 9: SECURITY FIELD (110) 9: OVERRIDE ERROR FIELD. (YES) 9: MINIMUM LENGTH (1) 9: EXACT LENGTH TABLE. N0 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION YES-RAM: 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER 9: FLOAT CHARACTER (01 9: DECIMAL POO ITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE ('YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE. (YES) COLLECTION 10: TAB STOP (YES) WEIGHT 10: INPUT TYPE (KEYBOARD) l0: CHARACTER TYPE (PRINTABLE) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (YES) lo: MINIMUM LENGTH (11 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALL0ABLE ENTRY (NO) 10: SUBSTITUTION (YES - RAM: 999999; 10: JUSTIFICATION (.RIGHT) 10: FILL CHARACTER (N0) 10: FLOAT IF. -TER (N0) 10: DECIMAL POSITIONS (N0) lo: SIGN P0OSIITION (LEADING) 10: AUTO FILL-IN (NO) 10: ARITHlETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO I 10: OUTPUT TO DISKETTE (YES) BIOFORM-03 SAMPLE 11: TAB STOP (YES) NUMBER 11: INPUT TYPE (KEYBOARD-FlELD #9) 11: CHARACTER TYPE (DIGIT) 11: SECURITY FIELD (NO) 1l: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGTH (1) 11: EXACT LENGTH TABLE (NO) 11: RANGE (NO) 11: ALLOWABLE ENTRY (NO) 11: SUBSTITUTION (YES - RAM: .,99999;) 11: JUSTIFICATION (RIGHT) 11: FILL CHARACTER (0) ll: FLOAT CHARACTER (0) 11: DECIMAL POSITIONS (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 1l: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING- (NO) 11: AUTO INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) SAMPLE 12: TAB STOP (YES) WEIGHT 12: INPUT TYPE (KEYBOARD-FIELD # 10) 12: CHARACTER TYPE (PRINTABLE) 12: SECURITY FIELD (NO) 12: OVERRIDE ERROR FIELD (YES) 12: MINIMUM LENGTH (1) 12: EXACT LENGTH TABLE (NO) 12: RANGE (NO) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (YES RAM: .,99999;) 12: JUSTIFICATION (RIGHT) 12: FILL CHARACTER (0) 12: FLOAT CHARACTER (0) 12: DECIMAL POSITI0NS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (NO) 12: AUTO INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (YES) BIOFORM-03 SUBSAMPLE 13: TAB STOP (YES) NUMBER 13: INPUT TYPE (KEYBOARD-FIELD # 11) 13: CHARACTER TYPE (DIGIT) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD (YES) 13: MINIMUM LENGTH (1) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (YES - RAM: ., 9999;) 13: JUSTIFICATION (RIGHT) 13: FILL CHARACTER (0) 13: FLOAT CHARACTER (0) 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING. (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORY CELL (No) 13: OUTPUT TO DISKETTE (YES) SUBSAMPLE 14: TAB STOP (YES) WEIGHT 14: INPUT TYPE (KEYBOARD-FIELD.# 12) 14: CHARACTER TYPE (PRINTABLE) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINIMUM LENGTH (1) 14: LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION .(YES RAM: .,99999;) 14: JUSTIFICATION (RIGHT) 14: FILL CHARACTER (0) 14: FLOAT CHARACTER (0) 14: DECIMAL POSITIONS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM-03 FORM 15: TAB-STOP (YES) OF 15: INPUT TYPE (KEYBOARD) RECORD 15: CHARACTER TYPE (DIGIT) TYPE 15: SECURITY FIELD (NO) FOUR 15: OVERRIDE ERROR F I ELD (NO) 15: MINIMUM LENGTH (1) 15: EXACT LENGTH TABLE (NO) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER 15: FLOAT CHARACTER 15: DECIMAL POSITIONS (O) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (NO) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (YES) TAG TYPE 16: TAB STOP (YES) 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE (ALPHA) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD. (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (LEFT) 16: FILL CHARACTER 16: FLOAT CHARACTER 16: DECIMAL POSITIONS (0) 16: SIGN POSITIONS (0) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM-03 NUMBER 17: TAB STOP (YES) TAGGED 17: INPUT TYPE (KEYBOARD) 17: CHARACTER TYPE (DIGIT) 17: SECURITY FIELD (NO) 17: OVERRIDE ERR0R FIELD (YES) 17: MINIMUM LENGTH (0) 17: EXACT LENGTH TABLE NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL. CHARACTER ( ) 17: FLOAT CHARACTER ( ) 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO FILL-IN (NO) 17: ARITHMETIC OPERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (N0) 17: AUTO INCREMENT (NO) 17: OUTPUT TO MEMORY CELL(YES) 17: OUTPUT TO DISKETTE (NO) TAG 18: TAB STOP (YES) TYPE 18: INPUT TYPE (KEYBOARD) 18: CHARACTER TYPE (ALPHA) 18: SECURITY FIELD (N0) IS: OVERRIDE ERROR FIELD (YES) 18: MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE (NO) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTION (NO) 18: JUSTIFICATION (LEFT) 18: FILL CHARACTER 18: FLOAT CHARACTER 18: DECIMAL POSITIONS (NO) SIGN POSITION (LEADING) 18: 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (NO) 18: NEXT PAGE NUMBER (NO) 18: BRANCHING 18: AUTO INCREMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETT (YES) NUMBER -TOP (YES) TAGGED 19: TAB STOP (YES) 19: INPUT 7 19: -CHARACTER TYPE (DIGIT) 19: SECUR I TY FIELD (NO) 19: OVERRI DE ERROR FIELD (YES) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) or (NO) 19: SUBSTITUTI N 19: JUSTIFICATION (RIGHT) 19: FILL CHARACTER 19: FLOAT CHARACTER 19: DECIMAL POSITIONS (0) 19: SIGH POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHIETIC OPERATION 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRACHINIG(NO) 19: AUTO- I NCREMEN'T (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKLETTE (YES) FILL- 20: TAB STOP WES) TYPE (CONSTANT: 20 INPUT 20: CHARACER TYPE (PRINTED) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (n0) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) RANGE (N0) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUST IFICATION (LEFT) 20: FILL CHARACTER 20: FLOAT CHARACTER 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE(YES) 20: ARITHtIETIC OPERATION' (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (No) 20: AUTO- I NCRENENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO (YES) LOAD STOP (YES) RECORD TYPE: 21 INPUT TYPE (KEYBOARD) ME 21: CHARACTER TYPE (PR I NTABLE) 21; SECURITY FIELD (NO) 21: OVERRIDE ERROR, FIELD. (NO). 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO). 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21. JUSTIFICATION (LEFT) 21: FILL CHARACTER 21: FLOAT CHARACTER 21: DECIMAL POSITIONS (0) 21: .SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER. (YES - PAGE 1) 21: BRANCHING (TEST LINE: 23 POSITION: BRANCH: MINIMlUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE. (NO) BRANCH: ALLOWBLE ENTRY (YES RAM: X;)) 21: AUTO-INCEMENT (NO) 21: OUTPUT TO. REM0ORY CELL- (NO) 21: OUTPUT, TO DISKETTE (NO) LOAD 21: TAB STOP (YES) 22: INPUT TYPE (KEYBOARD) RECORD TYPE: 22: CHARACTER TYPE (PRINTABLE) TWO 22: SECURITY FILL-IN, (NO.) 22: OVERRIDE ERROR FIELD. (NO) 22: MINIMUM LENGTH (NO) 22: EXACT LENGTH TABLE (NO) 22: RANGE (NO) 22: ALLOWABLE, ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION (LEFT) 22: FILL CHARACTER 22: FLOAT- CHARACTER 22:_ DECIMAL POSITIONS (0) 22: SIGN POSITI ON (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22:- RUTO FILL-IN (NO). 22 NEXT PAGE NUMBER (YES - PAGE 23) 22: BRANCHING (TEST LINE: 23 POSITION 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE. (NO) BRANCH: ALLOWABLE ENTRY (YES RAM: X;)) 22: AUT0-INCREMENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (NCO BIOFORM-03 LOAD 23: TAB STOP (YES) RECORD TYPE: 23: INPUR TYPE (KEYBOARD) 23: CHARACTER TYPE (PRINTABLE) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD (NO) 23: MINIMUN LENGTH TABLE (NO) 23: EXACT LENGTH TABLE (NO) 23: RANGE (NO) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATON (LEFT) 23: FILL CHARACTER ( ) 23: FLOAT CHARACTER ( ) 23: DECIMAL POSITION (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (YES-PAGE3) 23: BRANCHING (TEST LINE:23 POSITION 80) BRANCH:MINIMUN LENGHT (0) BRANCH: MAXIMUM LENGTH TABLE (NO) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 23: AUTO-INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: 24: TAB STOP (YES) 24: INPUT TYPE (KEYBOARD) 24: CHARACTER TYPE (PRINTABLE) 24: SECUTITY FIELD (NO) 24: OVERRIDE ERROR FIELD (NO) 24: MINIMUN LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (NO) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATIN (LEFT) 24: FILL CHARACTER ( ) 24: FLOAT CHARACTER ( ) 24: DECIMAL POSITIONS ( ) 24: SIGN POSITON (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERAITON (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE NUMBER (YES-PAGE 4) 24: BRANCHING (TEST LINE:23 POSITION: 80: BRANCH: MINIMUN LENGTH (0) BRANCH: MAXIMUN LENGTH (1) BRANCH: EXACT LENGTH RABLE (1) BRANCH: RANGE (NO) BRANCH: ALLOWAVLE ENTRY (YES-RAM: X;)) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (NO) BIOFORM-03 LOA'D 25: TAB STOP (YES) RECORD TYPE- 25: INPUT TYPE (KEYBOARD) 25: CHARRCTER TYPE (PRINTABLE) FIVE 25: SECURITY FIELD (NO) 25: 0VERRIDE ERROR FIELD (NO) 25: MINIMUM LENGTH (N0) 25: EXACT LENGTH TABLE (NO) 25: RANGE (NO) 25: ALLOWABLE. ENTRY (NO) 25: SUBSTITUTION (NO) 25: _JUSTIFICATON -(LEFT) 25: FILL CHARACTER 25: FLOAT CHARACTER 25: DECIMAL POSTIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO FILL-IN WES) 25: ARI THIMET I C OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (YES -PAGE:5) 25: BRANCHING fTEST LINE:' 23 POSITION: 80: BRANCH: MINIUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH- EXACT LENGTH TABLE. (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE- ENTRY (YES-RAM: X;)) 25: AUTO-INCREMENT (NO) 25: OUTPUT TO MEMORY CELL- (NO) 25: OUTPUT TO DISKETTE. (NO) LOAD 26: TAB STOP (YES) RECORD TYPE 2E.: INPUT TYPE (KEYBOARD) LOAD 26: CHARACTER TYPE (PRINTABLE) 26: SECURITY F`IELD (NO) 26: OUERRIDE ERROR FIELD (NO) 26: MINIMUM LENGTH (N0) 26: EXACT LENGTH TABLE (NO) 26: RANGE. (NO) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION, (LEFT) 26: FILL CHARACTER 26: FLOAT CHARACTER 26: DECIMAL POITIONS (0) 26: SIGN POSITION (LEADING) 26: AUTO CLOSE (YES) 26:. ARITHMETIC OPERATION (NO) 26: AUTO FILL-III (NO) 26: NEXT PAGE NUMBER (YES-PAGE 6) 26: BRANCHING (TEST LINE: 23, POSITION: 30 BRANCH: MINIMUM LENGTH BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES X;)) 26: AUTO-INCREMENT (NO) 26: OUTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (NO) BIOFORM-03 LOAD 27: TAB STOP RECORD TYPE: 27: INPUT TYPE (KEYBOARD) SEVEN 27: CHARACTER TYPE (PRINTABLE) 27: SECURITY FIELD (NO) 27: OVERRIDE ERROR FIELD (NO) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (NO) 27: RANGE (NO) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTIFICATION (LEFT) 27: FILL. CHARACTER ( ) 27: FLOAT CHARACTER ( ) 27: DECIMAL POSITIONS (LEADING) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE: NUMBER (YES - PAGE 7) 27: BRANCHING (TEST LINE: 23 POSITION: 80 : BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 27: AUTO- INCREMENT (NO) 27: OUTPUT TO MEMORY CELL (NO) 27: OUTPUT TO DISKETTE (NO) LOAD 28: TAB STOP (YES) RECORD TYPE: 28: INPUT TYPE (KEYBOARD) EIGHT 28: CHARACTER TYPE (PRINTABLE) 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD (NO) 28: MINIMUM LENGTH (0) 28: EXACT LENGTH TABLE (NO) 28: RANGE (NO) 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTIFICATION (LEFT) 28: FILL CHARACTER ( ) 28: FLOAT CHARACTER ( ) 28: DECIMAL POSITIONS (0) 28: SIGN P0SITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER (NO) 28: BRANCHING (NO) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL (NO) 28: OUTPUT TO DISKETTE (NO) BI0FORM-03 LOAD 29: TAB STOP (YES) RECORD TYPE: 29: INPUT TYPE (KEYBOARD) NINE 29: CHARACTER TYPE (PRINTABLE) 29: SECURITY FIELD 29: OVERRIDE ERROR FIELD. (NO) 29: MINIMUM LENGTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (LEFT) 29: FILL CHARACTER ( ) 29: FLOAT CHARACTER ( ) 29: DECIMAL POSITIONS (0) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE NUMBER (YES - PAGE 8) 29: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (l) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 29: AUTO-INCREMENT (NO) 29: OUTPUT TO MEMORY CELL (NO) 29: OUTPUT TO DISKETTE (NO) INDIVIDUAL DATA FORM PAGE 04 ACTION FIELD < RECORD TYPE < SEQUENCE NO: YEAR << COLLECTION NO<<<<< REPLICATE << SPECIES <<<<<<<<< STATUS < LINE NUMBER <<< FREQUENCY <<< LENGTH <<<< WEIGHT <<<<<< END OF PAGE < SEX< MATURITY < END OF PAGE < PARAMETER A <<<< PARAMETER B <<<< PARAMETER C <<<< PARAMETER D <<<< EGG OR LARVAL STAGE < STATUS < TAG NUMBER <<<<<< AGE STATUS < AGED STRUCTURE < AGE << NUMBER OF SPAWNING MARKS << FILL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ------LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X' --------- ONE < TWO < THREE < FOUR < FIVE < SIX < SEVEN < EIGHT < NINE < BIOFORM- 04 ATTRIBUTES ACTION TAB STOP (YES) FIELD 1: INPUT TYPE KEYBOARD-CONSTANT: ) 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE (NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE: ACTION) 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1 OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 4) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: OUTPUT TO DISKETTE (YES) BI0FORM-04 SEQUENCE 3: TAB STOP (YES) NO: YEAR 3: INPUT TYPE (KEYBOARD-MEMORY CELL #1) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (YES: 2) 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (LEFT) 3: FILL CHARACTER ( ) 3: FLOAT CHARACTER ( ) 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY (YES - MEMORY CELL #1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE 4: TAB STOP (YES) NO: COLLECTION 4: INPUT TYPE (KEYBOARD-MEMORY CELL # 2) NO 4: CHARACTER TYPE (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (RIGHT) 4: FILL CHARACTER ( ) 4: FLOAT CHARARCTER ( ) 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE (NO) 4: BRANCHING (NO) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES - MEMORY CELL #2) 4: OUTPUT TO DISKETTE (YES) BIOFORM-04 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (KEYBOARD-MEMORY CELL # 3) 5: CHARACTER TYPE (DIGIT) 5: SECURITY FIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (1) 5: EXACT LENGTH TABLE (NO) 5: RANGE (No) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (RIGHT) 5: FILL CHARACTER ( ) 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (NO) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (YES - MEMORY CELL #3) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD-MEMORY CELL # 4) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENGTH (0) 6: EXACT LENGTH TABLE (YES: 10) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT] 6: FILL CHARACTER ( ) 6: FLOAT CHARACTER ( ) 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 4) 6: OUTPUT TO DISKETTE (YES) BIOFORM-04 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (KEYBOARD-MEMORY CELL # 5) 7: CHARACTER TYPE (DIGIT) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (1) 7: EXACT LENGTH TABLE. (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (NO) 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER ( ) 7: FLOAT CHARACTER ( ) 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7: BRANCHING (NO) 7: AUTO-INCREMENT (NO) 7: OUPUT TO MEMORY CELL (YES - MEMORY CELL # 5) 7: OUTPUT TO DISKETTE (YES) LINE 8: TAB STOP (YES) NUMBER 8: INPUT TYPE (KEYBOARD-REGISTER # 1) 8: CHARACTER TYPE (DIGIT) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (1) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 8: SUBSTITUTION (NO) 8: JUSTIFICATION (RIGHT) 8: FILL CHARACTER (0) 8: FLOAT CHARACTER (0) 8: DECIMAL POSITIONS (0) 8: SIGN POSITION (LEADING) 8: AUTO CLOSE (YS) 8: ARITHMETIC OPERATION (YES R1=F8=1) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 6) 8: OUTPUT TO DISKETTE (YES) BIOFORM-04 FREQENCY 9: TAB STOP (YES) 9: INPUT TYPE (KEYBOARD-CONSTANT: 1) 9: CHARACTER TYPE (DIGIT) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (NO), 9: MINIMUM LENGTH (1) 9: EXACT LENGTH TABLE (NO) 9: RANGE . (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (NO) 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER ( ) 9: FLOAT CHARACTER (0) 9: DECIMAL POSITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: LAST PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE (YES) LENGTH 10: TAB STOP (YES) 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (PRINTABLE) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD. (YES) 10: MINIMUM LENGTH (0) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) l0: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (NO) 10: JUSTIFICAION (RIGHT) 10: FILL CHARACTER 10: FLOAT CHARACTER 10: DECIMAL POSITIONS (0) l0: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (N0) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT TO DISKETTE (YES) BIOFORM - 04 WEIGHT 11: TAB STOP (YES) 11: INPUT TYPE (KEYBOARD) 11: CHARACTER TYPE (PRINTABLE) 11: SECURITY FIELD. (NO) 11: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGTH (0) 11: EXACT LENGTH TABLE (NO) 11: RANGE (NO) 11: ALLOWABLE ENTRY (NO) 11: SUBSTITUTION (NO) 11: JUSTIFICATION (RIGHT) 11: FILL CHARACTER 11: FLOAT CHARACTER 11: DECIMAL POSITIONS (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO-INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) END 12: TAB STOP (YES) OF 12: INPUT TYPE (KEYBOARD) PAGE 12: CHARACTER TYPE (PRINTABLE) 12: SECURITY FIELD (NO) 12: OVERRIDE ERROR FIELD (NO) 12: MINIMUM LENGTH (0) 12: EXACT LENGTH TABLE (NO) 12: RANGE (NO) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (LEFT) 12: FILL CHARACTER 12: FLOAT CHARACTER 12: DECIMAL POSITIONS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (TEST LINE: 22 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM X;)) 12: AUTO- INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (NO) BI0FORM-04 SEX 13: TAB STOP (YES) 13: INPUT TYPE (KEYBOARD) 13: CHARACTER TYPE (MIXED) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD (YES) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (YES: DRIVE: I FILE: SEX) 13: JUSTIFICATION (LEFT) 13: FILL-CHARACTER ( ) 13: FLOAT CHARACTER ( ) 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSEE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORY CELL (NO) 13: OUTPUT TO DISKETTE (YES) MATURITY 14: TAP STOP (YES) 14: INPUT TYPE (KEYBOARD) 14: CHARACTER TYPE (DIGIT) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINIMUM LENGTH (0) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION (NO) 14: JUSTIFICATION (LEFT) 14: FILL CHARACTER 14: FLOAT CHARACTER 14: DECIMAL P0SITIONS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM-04 END 15: TAB STOP (YES) OF 15: INPUT TYPE (KEYBOARD) PAGE 15: CHARACTER TYPE (PRINTABLE) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELD (NO) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (NO) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER 15: FLOAT CHARACTER 15:. DECIMAL POSITIONS (0) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO). 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (TEST' LINE: 22 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE.ENTRY (YES - RAM: X;)) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (NO) PARAMETER 16: TAB STOP (YES) A 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE (PRINTABLE) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (RIGHT) 16: FILL CHARACTER 16: FLOAT CHARACTER 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM-04 PARAMETER 17: TAB STOP (YES) B 17: INPUT TYPE (KEYBOARD) 17: CHARACTER TYPE (PRINTABLE) 17: SECURITY FIELD (NO) 17: OVERRIDE ERROR FIELD (YES) 17: MINIMUM LENGTH (0) 17: EXACT LENGTH TABLE (NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL-CHARACTER 17: FLOAT CHARACTER 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO CLOSE (YES) 17: ARITHMETIC OPERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (NO) 17: AUTO-INCREMENT (No) 17: OUTPUT TO MEMORY CELL (NO) 17: OUTPUT TO DISKETTE (YES) PARAMETER 18: TAB STOP (YES) C 18: INPUT TYPE (KEYBOARD) 18: CHARACTER TYPE (PRINTABLE) 18: SECURITY FIELD (NO) 18: OVERRIDE ERROR FIELD (YES) 18: MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE (NO) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTION (NO) 18: JUSTIFICATION (RIGHT) 18: FILL CHARACTER 18: FLOAT CHARACTER 18: DECIMAL POSITIONS (0) 18: SIGN POSITION (LEADING) 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (NO) 18: NEXT PAGE NUMBER (NO) 18: BRANCHING (NO) 18: AUTO-INCREMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETTE (YES) BIOFORM-04 PARAMETER 19: TAB STOP (YES). D 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (PRINTABLE) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (YES) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (RIGHT) 19: FILL CHARACTER 19: FLOAT CHARACTER 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (NO) 19: AUTO INCREMENT (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKETTE (YES) EGG 20: TAB STOP (YES) OR 20: INPUT TYPE (KEYBOARD) LARVAL 20: CHARACTER TYPE (DIGIT) STAGE 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUSTIFICATION (LEFT) 20: FILL CHARACTER 20: FLOAT CHARACTER 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUT0 FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (YES) BIOFORM-04 STATUS 21: TAB STOP (YES) 21: INPUT TYPE (KEYBOARD) 21: CHARACTER TYPE (DIGIT) 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD (YES) 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (LEFT) 21: FILL CHARACTER ( ) 21: FLOAT CHARACTER 21: DECIMAL POSITIONS (0) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21; AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (NO) 21: BRANCHING (NO) 21: AUTO-INCREMENT (NO) 21: OUTPUT TO MEMORY CELL (NO) 21: OUTPUT TO DISKETTE (YES) TAG 22: TAB STOP (YES) NUMBER 22: INPUT TYPE (KEYBOARD) 22: CHARACTER TYPE (MIXED) 22: SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (YES) 22: MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE (NO) 22: ALLOWABLE ENTPY (NO) 22: SUSTITUTION (NO) 22; JUSTIFICATION (LEFT) 22: FILL. CHARACTER 22: FLOAT CHARACTER 22: DECIMAL POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING (NO) 22: AUTO-INCREMENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (YES) BIOFROM-04 AGE 23: TAB STOP (YES) STATUS 23: INPUT TYPE (KEYBOARD) 23: CHARACTER TYPE (DIGIT) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD (YES) 23: MINIMUM LENGTH (0) 23: EXACT LENGTH TABLE (NO) 23: RANGE (YES: FROM: 0 TO: 3) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATION (LEFT) 23: FILL CHARACTER ( ) 23: FLOAT CHARACTER ( ) 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (NO) 23: BRANCHING (NO) 23: AUTO INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE (YES) AGED 24: TAB STOPE (YES) STRUCTURE 24: INUT TYPE (KEYBOARD) 24: CHARACTER TYPE (DIGIT) 24: SECURITY FIELD (NO) 24: OVERRIDE ERROR FIELD (NO) 24: MINIMUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (YES: FROM: 0 TO: 4) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATION (LEFT) 24: FILL CHARACTER ( ) 24: FLOAT CHARACTER ( ) 24: DECIMAL POSITIONS (0) 24: SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERATION (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE NUMBER (NO) 24: BRANCHING (NO) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (YES) BIOFORM-04 AGE 25: TAP STOP (YES) 25: INPUT TYPE (KEYBOARD) 25: CHARACTER TYPE (DIGIT) 25: SECURITY FIELD (NO)) 25: OVERRIDE ERROR FIELD (YES) 25: MINIMUM LENGTH (0) 25: EXACT LENGTH TABLE (NO) 25: RANGE (YES: FROM: 0 TO: 30) 25: ALLOWABLE ENTRY (NO) 25: SUBSTITUTION (NO) 25: JUSTIFICATION (RIGHT) 25: FILL CHARACTER 25: FLOAT CHARACTER 25: DECIMAL POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (YES) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (NO) 25: BRANCHING (NO) 25: AUTO-INCREMENT (NO) 25: OUTPUT TO MEMORY CELL (YES MEMORY CELL # 7) 25: OUTPUT TO DISKETTE (YES) NUMBER 26: TAB STOP (YES) OF 26: INPUT TYPE (KEYBOARD) SPAWNING 26: CHARACTER TYPE (DIGIT) MARKS 26: SECURITY FIELD (NO) 26: OVERRIDE ERROR FIELD (YES) 26: MINIMUM LENGTH (0) 26: EXACT LENGTH TABLE (NO) 26: RANGE (YES: FROM: 0 TO: 30) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION (RIGHT) 26: FILL CHARACTER ( ) 26: FLOAT CHARACTER ( ) 26: DECIMAL POSITIONS (0) 26: SIGN POSITION (LEADING) 26: AUTO CLOSE (YES) 26: ARITHMETIC OPERATION (NO) 26: AUTO FILL-IN (NO) 26: NEXT PAGE NUMBER (NO) 26: BRANCHING (NO) 26: AUTO-INCREMENT (NO) 26: OUTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (YES) BIOFORM-04 FILL 27: TAB STOP (YES) 27: INPUT TYPE (CONSTANT: ) 27: CHARACTER TYPE (PRINTABLE) 27: SECURITY FIELD (NO) 27: OVERRIDE ERROR FIELD (NO) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (NO) 27: RANGE (NO) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTIFICATION (LEFT) 27: FILL CHARACTER ( ) 27: FLOAT CHARACTER ( ) 27: DECIMAL POSITIONS (0) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE NUMBER (NO) 27: BRANCHING (NO) 27: AUTO-INCREMENT (NO) 27: OUTPUT TO MEMORY CELL (NO) 27: OUTPUT TO DISKETTE (YES) LOAD 28: TAB STOP (YES) RECORD TYPE: 28: INPUT TYPE (KEYBOARD) ONE 28: CHARACTER TYPE (PRINTABLE) 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD (NO) 28: MINIMUM LENGTH (0) 28: EXACT LENGTH TABLE (NO) 28: RANGE (NO) 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTIFICATION (LEFT) 28: FILL CHARACTER ( ) 28: FLOAT CHARACTER ( ) 28: DECIMAL POSITIONS (0) 28: SIGN POSITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER (YES - PAGE 1) 28: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL (NO) 28: OUTPUT TO DISKETTE (NO) BIOFORM-04 LOAD 29: TAB STOP (YES) RECORD TYPE: 29: INPUT TYPE (KEYBOARD) TWO 29: CHARACTER TYPE (PRINTABLE) 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (NO) 29: MINIMUM LENGTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (LEFT) 29: FILL CHARACTER ( ) 29: FLOAT CHARACTER ( ) 29: DECIMAL POSITIONS (0) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE NUMBER (YES - PAGE 2) 29: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 29: AUTO-INCREMENT (NO) 29: OUTPUT TO MEMORY CELL (NO) 29: OUTPUT TO DISKETTE (NO) LOAD 30: TAB STOP (YES) RECORD TYPE: 30: INPUT TYPE (KEYBOARD) THREE 30: CHARACTER TYPE (PRINTABLE) 30: SECURITY FIELD (NO) 30: OVERRIDE ERROR FIELD (NO) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE (NO) 30: RANGE (NO) 30: ALLOWABLE ENTRY (NO) 30: SUBSTITUTION (NO) 30: JUSTIFICATION (LEFT) 30: FILL CHARACTER ( ) 30: FLOAT CHARACTER ( ) 30: DECIMAL POSITIONS (0) 30: SIGN POSITION (LEADING) 30: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (YES - PAGE 3) 30: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGHT TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO MEMORY CELL (NO) 30: OUTPUT TO DISKETTE (NO) BIOFORM 04 LOAD 31: TAB STOP (YES) RECORD TYPE: 31: INPUT TYPE (KEYBOARD) FOUR 31: CHARACTER TYPE (PRINTABLE) 31: SECURITY FIELD (NO) 31: OVERRIDE ERROR FIELD (NO) 31: MINIMUM LENGTH (0) 31: EXACT LENGTH TABLE (NO) 31: RANGE (NO) 31: ALLOWABLE ENTRY (NO) 31: SUBSTITUTION (NO) 31: JUSTIFICATION (LEFT) 31: FILL CHARACTER ( ) 31: FLOAT CHARACTER ( ) 31: DECIMAL POSITIONS (0) 31: SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE NUMBER (YES - PAGE 4) 31: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 31: AUTO-INCREMENT (NO) 31: OUTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (NO) LOAD 32: TAB STOP (YES) RECORD TYPE 32: INPUT TYPE (KEYBOARD) FIVE 32: CHARACTER TYPE (PRINTABLE) 32: SECURITY FIELD (NO) 32: OVERRIDE ERROR FIELD (NO) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE (NO) 32: ALLOWABLE ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTIFICATION (LEFT) 32: FILL CHARACTER ( ) 32: FLOAT CHARACTER ( ) 32: DECIMAL POSITIONS (0) 32: SIGN POSITION (LEADING) 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL0IN (NO) 32: NEXT PAGE NUMBER (YES - PAGE 5) 32: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 32: AUTO-INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32: OUTPUT TO DISKETTE (NO) BIOFORM-04 LOAD 33: TAB STOP (YES) RECORD TYPE: 33: INPUT TYPE (KEYBOARD) SIX 33: CHARACTER TYPE (PRINTABLE) 33: SECURITY FIELD (NO) 33: OVERRIDE ERROR FIELD (NO) 33: MINIMUM LENGTH (0) 33: EXACT LENGTH TABLE (NO) 33: RANGE (NO) 33: ALLOWABLE ENTRY (NO) 33: SUBSTITUTION (NO) 33: JUSTIFICATION (LEFT) 33: FILL CHARACTER ( ) 33: FLOAT CHARACTER ( ) 33: DECIMAL POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE (YES) 33: ARITHMETIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (YES - PAGE 6) 33: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 33: AUTO-INCREMENT (NO) 33: OUTPUT TO MEMORY CELL (NO) 33: OUTPUT TO DISKETTE (NO) LOAD 34: TAB STOP (YES) RECORD TYPE: 34: INPUT TYPE (KEYBOARD) SEVEN 34: CHARACTER TYPE (PRINTABLE) 34: SECURITY FIELD (NO) 34: OVERRIDE ERROR FIELD (NO) 34: MINIMUM LENGTH (0) 34: EXACT LENGTH TABLE (NO) 34: RANGE (NO) 34: ALLOWABLE ENTRY (NO) 34: SUBSTITUTION (NO) 34: JUSTIFICATION (LEFT) 34: FILL CHARACTER ( ) 34: FLOAT CHARACTER ( ) 34: DECIMAL POSITIONS (0) 34: SIGN POSITION (LEADING) 34: AUTO CLOSE (YES) 34: ARITHMETIC OPERATION (NO) 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (YES - PAGE 7) 34: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM : X;) 34: AUTO-INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT TO DISKETTE (NO) BIOFROM-04 LOAD 35: TAB STOP (YES) RECORD TYPE: 35: INPUT TYPE (KEYBOARD) EIGHT 35: CHARACTER TYPE (PRINTABLE) 35: SECURITY FIELD (NO) 35: OVERRIDE ERROR FIELD (NO) 35: MINIMUM LENGTH (0) 35: EXACT LENGTH TABLE (NO) 35: RANGE (NO) 35: ALLOWABLE ENTRY (NO) 35: SUBSTITUTION (NO) 35: JUSTIFICATION (LEFT) 35: FILL CHARACTER ( ) 35: FLOAT CHARACTER ( ) 35: DECIMAL POSITIONS (0) 35: SIGN POSITION (LEADING) 35: AUTO CLOSE (YES) 35: ARITHMETIC OPERATION (NO) 35: AUTO FILL-IN (NO) 35: NEXT PAGE NUMBER (NO) 35: BRANCHING (NO) 35: AUTO INCREMENT (NO) 35: OUTPUT TO MEMORY CELL (NO) 35: OUTPUT TO DISKETTE (NO) LOAD 36: TAB STOP (YES) RECORD TYPE: NINE 36: INPUT TYPE (YES) 36: CHARACTER TYPE (PRINTABLE) 36: SECURITY FIELD. (NO) 36: OVERRIDE ERROR FIELD (NO) 36: MINIMUM LENGTH (0) 36: EXACT LENGTH TABLE (NO) 36: RANGE (NO) 36: ALLOWABLE ENTRY (NO) 36: SUBSTITUTION (NO) 36: JUSTIFICATION (LEFT) 36: FILL CHARACTER ( ) 36: FLOAT CHARACTER ( ) 36: DECIMAL POSITIONS (0) 36: SIGN POSITION (LEADING) 36: AUTO CLOSE (YES) 36: ARITHMETIC OPERATION (NO) 36: AUTO FILL-IN (NO) 36: NEXT PAGE NUMBER (YES-PAGE 8 36: BRANCHING (TEST LINE: 23 POSITION: 80: 80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;) 36: AUTO INCREMENT (NO) 36: OUTPUT TO MEMORY CELL (NO) 36: OUTPUT TO DISKETTE (NO) RGE DATA FORM PAGE 05 ACTION F*TELD < RECORD TYPE < SEQUENCE NON. "f'CAR COLLECTION NO <<<<< REPLICATE << SPECIES <<<<<<<<<< STATUS UNE PIUMBER <<< F4C@E: JAPIC 'r.'I riAl. TrJCF,.,Fr-JErlT <<< D I -E TO EDGE X< r, I A R. r @.lIt_--;TRr-lCE TO ArjrjLlLlJ:_,-v C@l f it I < FOP < -n I.." C) 44 45 < #6 t.-.0p < ..t -0P < r- _n `7 @@18 <<e, C) < < I cl F.oP < < < 4+15 < If 13 x., ... Co 44. < < << < < :%R4 <<< X< r-j:jr-j'r.!EF__,. OF SPAL-jrfTr-ji-' 11ARKS < F L L ----------- L-OAD THE 170I.-U-11-UNG R'El'l'lFT, TYPE-CHOOSE WTTH Arj.9g@ ------ - -- TH'PF 1 ir-iF T'40 ..F <' i-R-IR < F T jEr-j .7 CIGHT < ri T PIE BIOFORM-05 ATTRIBUTES ACTION TAB STOP (YES) FIELD 1: INPUT TYPE (KEYBOARD-CONSTANT:) 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE f NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE: ACTION) 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 5) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE. (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL P0SITIONS (NO) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHIMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO- INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: OUTPUT TO DISKETTE (YES) BIOFORM-05 SEQUENCE 3: TAB STOP (YES) 3: INPUT TYPE (KEYBOARD-MEMORY CELL # 1) NO: YEAR 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (NO) 3: EXACT LENGTH TABLE (YES: 2) 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (LEFT) 3: FILL CHARACTER( ) 3: FLOAT CHARACTER( ) 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL- (YES MEMORY CELL # 1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE 4: TAP STOP (YES) NO: COLLECTION 4: INPUT TYPE (KEYBOARD-MEMORY CELL # 2) NO 4: CHARACTER TYPE. (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (RIGHT) 4: FILL CHARACTER (0) 4: FLOAT CHARACTER (0) 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (NO) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 2) 4: OUTPUT TO DISKETTE (YES) BIOFORM-05 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (KEYBOARD-MEMORY CELL # 3) 5: CHARACTER TYPE (DIGIT) 5: SECURITY FIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (1) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (RIGHT) 5: FILL CHARACTER ( ) 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (NO) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO- INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (YES MEMORY CELL # 3) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD-MEMORY CELL # 4) 6: CHARACTER TYPE (DIGIT) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO 6: MINIMUM LENGTH (0) 6: EXACT LENGTH TABLE (YES: 10) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT) 6: FILL CHARACTER ( ) 6: FLOAT CHARACTER ( ) 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 4) 6: OUTPUT TO DISKETTE (YES) 0 BIOFORM-05 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (KEYB0OARD-MEMORY CELL # 5) 7: CHARACTER TYPE (DIGIT) 7: SECURITY FIELD (NO) 7: OVERIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (1) 7: EXACT LENGTH TABELTOP. (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (NO) 7: JUSTIFIC0ATION (LEFT) 7: FILL CHARACTER 7: FLOAT CHARACTER 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 70. ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7: BRANCHING (NO) 7: AUTO-INCRE0MENT. (NO) 7: OUTPUT TO MEMORY CELL (YES - MEMORY CELL #5) 7: OUTPUT TO DISKETTE (YES) LINE 8: TAP STOP (0YES) NUMBER 8: INPUT TYPE (KEYBOARD - MEMORY CELL # 6) 8: CHARACTER TYPE (RIGHT) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD. NO 8: MINIMUM LENTH (0) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY. (NO) 8: SUBSTITUTION (NO) 8: JUSTIFCATION(RIGHT) 8: FILL CHARACTER (0) 8: FLOAT CHARACTER (0) 8: DECIMAL POSITION (0) 8: SIGN POSITION fLEADING) 8: AUTO C0LOS-E (YES) ARITHMETIC OPERATION (NO) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: 0UTPUT TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM-05 9: TAB STOP (YES) 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (DIGIT) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (1) 9: EXACT LENGTH TABLE (NO) 9: RANG YES: FROM : 0 TO 30) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (NO) 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER () 9: FILL CHARACTER (0) 9: DECIMAL POSITION (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO DISKETTE (ES) 10: TAB STOP (YES) 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (DIGIT) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (YES) 10: MINIMUM LENGTH (1) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALLOWABLE ENTRY (NO) 10: JUSTIFICATION (RIGHT) 10: FILL CHARACTER (0) 10: FLOAT CHARACTER (0) 10: DECIMAL CHARACTER (0) 10: SIGN POSTION (LEADING ) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: QUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING ( NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPT TO DISKETTE (YES) BIOFORM-05 11: TAB STOP (YES) 11: INPUT TYPE (KEYBOARD) 11: CHARACTER TYPE (DIGIT) 11: SECURITY FIELD ( NO) 11: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGHT FIELD (YES) 11: EXACT LENGHT TABLE (NO) 11: RANGE (NO) 11: ALLOWABLE ENTRY (NO) 11: SUBSTITUTION (NO) 11: JUSTFICATION (RIGHT) 11: FILL CHARACTER () 11: FLOAT CHARACTER () 11: DECIMAL POSITION (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO-INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) 12: TAB STOP (YES) 12: INPT TYPE (KEYBOARD) 12: CHARACTER TYPE (DIGIT) 12: SECURITY FIELD (NO) 12: OVERRIDE FIELD (YES) 12: MINIMUM LENGTH (0) 12: EXACT LENGHT TABLE (NO) 12: RANGE (NO) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (RIGHT) 12: FILL CHARACTER () 12: FLOAT CHARACTER () 12: DECIMAL POSITION (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (NO) 12: AUTO-INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (YES) BIOFORM-05 13: TAB STOP (YES) 13: INPUT TYPE (KEYBOARD) 13: CHARACTER TYPE (DIGIT) 13: SECURITY FIELD (NO) 13: OVERRIDE FIRLD (NO) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUSTITUTION (NO) 13: JUSTIFICATION (RIGHT) 13: FILL CHARACTER () 13: FLOAT CHARACTER () 13: DECIMAL POSITION (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (YES) 13; ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO CELL (NO) 13: OUTPUT TO DISKETTE (YES) 14: TAB STOP (YES) 14: INPUT TYPE (KEYBOARD) 14: CHARACTER TYPE ( DIGIT) 14: SECURITY FIELD ( NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINMUM LENGTH (0) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSITUTION (NO) 14: JUSTIFICATION (RIGHT) 14: FILL CHARACTER () 14: FLOAT CHARACTER () 14: DECIMAL POSITION (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM-05 EOP 15: TAB STOP (YES) 15: INPUT TYPE (KEYBOARD) 15: CHARACTER TYPE (PRINTABLE) 15: SECURITY FIELD. (NO) 15: OVERRIDE ERROR FIELD (NO) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (NO) 15: RANGE. (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER 15: FLOAT CHARACTER 15: DECIMAL POSITIONS (0) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (TEST LINE: 23 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL- (NO) 15: OUTPUT TO DISKETTE (NO) DISTANCE 16: TAB STOP (YES) TO 16: INPUT TYPE (KEYBOARD) ANNULUS 16: CHARACTER TYPE (DIGIT] 4 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE- (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (RIGHT) 16: FILL. CHARACTER 16: FLOAT CHARACTER 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION .(NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 17: TAP STOP (YES) TO 17: INPUT TYPE (KEYB0ARD) ANNULUS 17: CHARACTER TYPE (DIGIT) 5 17: SECURITY FIELD (NO) 17: OVERRIDE ERROR FIELD (YES) 17: MINIMUM LENGTH (0) 17: EXACT LENGTH TABLE (NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL CHARACTER 17: FLOAT CHARACTER 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO CLOSE. (YES) 17: ARITHMETIC OPERATION (NO). 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (NO) 17: AUTO-INCREMENT (NO) 17: OUTPUT TO MEMORY CELL (N0) 17: OUTPUT TO DISKETTE (YES) DISTANCE 18: TAB STOP (YES) TO 18: INPUT TYPE (KEYBOARD) ANNULUS I8: CHARACTER TYPE (DIGIT) I8: SECURITY FIELD (NO) 6 18: OVERRIDE ERROR FIELD (YES) 18: MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE. (NO) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTION (NO) 18: JUSTIFICATION (RIGHT) 18: FILL CHARACTER 18: FLOAT CHARACTER IS: DECIMAL POSITIONS (0) 18: SIGN POSITION (LEADING) 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (N0) 18: NEXT PAGE NUMBER- (NO) 18: BRANCHING (NO) 18: AUTO-INCREMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETTE (YES) BIOFORM-05 EOP 19: TAB STOP (YES) 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (PRINTABLE) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (NO) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (LEFT) 19: FILL CHARACTER 19: FLOAT CHARACTER 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (TEST LINE: 23 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (N0) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 19: AUTO- INCREMENT (NO) 19: OUTPUT TO CELL-(NO) 19: OUTPUT To DISKETTE (NO) DISTANCE 20: TAB STOP (YES) TO 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (DIGIT) ANNULUS 20: SECURITY FIELD (NO) 7 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH (0) 20: EXACT LENGHT TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (N0) 20: SUBSTITUTION (NO) 20: JUSTIFICATION (RIGHT) 20: FILL CHARACTER 20: FLOAT CHARACTER 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL 20: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 21: TAB STOP (YES) TO 21: INPUT TYPE (KEYBOARD) ANNULUS 21: CHARACTER TYPE (DIGIT) 8 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD. (YES) 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (RIGHT) 21: FILL CHARACTER ( ) 21: FLOAT CHARACTER ( ) 21: DECIMAL POSITIONS (0) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO). 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (NO) 21: BRANCHING (NO) 21: AUTO-INCREMENT (NO) 21: OUTPUT TO MEMORY CELL (NO) 21: OUTPUT TO DISKETTE (YES) DISTANCE 22: TAB STOP (YES) TO 22: INPUT TYPE (KEYBOARD) ANNULUS 22: CHARACTER TYPE (DIGIT) 9 22; SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (YES) 22: MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE (NO) 22: ALLOWABLE ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION. (RIGHT) 22: FILL CHARACTER 22: FLOAT CHARACTER 22: DECIMAL. POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE- (YES) 22: ARITHMETIC OPERATION. (NO) 22; AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING (NO) 22: AUTO-INCREMENT (NO) 22; OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (YES) BIOFORM-05 EOP 23: TAB STOP (YES) 23: INPUT TYPE (KEYBOARD) 23: CHARACTER TYPE (PRINTABLE) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD. (NO) 23: MINIMUM LENGTH TABLE (0) 23: EXACT LENGHT TABLE (NO) 23: RANGE. (NO) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATION (LEFT) 83: FILL CHARACTER 23: FLOAT CHARACTER 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE. (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (NO) 23: BRANCHING (TEST LINE: 23 POSITION: 1: BRANCH: MINIMUM LENGHT (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 23: AUTO-INCREMENT (NO) 23: 0UTPUT TO MEMORY CELL. (NO) 23: OUTPUT TO DISKETTE (NO) DISTANCE 24: TAB STOP (YES) TO 24: INPUT TYPE (KEYBOARD) ANNULUS 24: CHARACTER TYPE- (DIGIT) 10 24: SECURITY FIELD (NO) 24: OVERRIDE-ERROR FIELD (YES) 24: MINIMUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (NO) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATION (RIGHT) 24: FILL CHARACTER 24: FLOAT CHARACTER 24: DECIMAL POSITIONS (0) 24: SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERATION (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE. NUMBER - (NO) 24: BRANCHING (NO) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (YES) BIOFO RM-05 DISTANCE 25: TAB STOP (YES) TO 25: INPUT TYPE (KEYBOARD) ANNULUS 25: CHARACTER TYPE (DIGIT) 25: SECURITY FIELD .(NO) 25: OVERRIDE ERROR FIELD. (YES) 25: MINIMUM LENGTH (0) 25: EXACT LENGTH TABLE. (NO) 25: RANGE (NO) 25: ALLOWABLE ENTRY (NO) 25: SUBSTITUTION (NO) 25: JUSTIFICATION (RIGHT) 25: FILL CHARACTER 25: FLOAT CHARACTER 25: DECIMAL POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (YES) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (NO) 25: BRANCHING (NO) 25: AUTO-INCREMENT (N0) 25: OUTPUT TO MEMORY CELL (NO) 25: OUTPUT TO DISKETTE (YES) DISTANCE 26: TAB STOP (YES) TO 26: INPUT TYPE (KEYBOARD) 26: CHARACTER TYPE (DIGIT) ANNULUS 12 26: SECURITY FIELD (NO) 26: OVERRIDE ERROR FIELD (YES) 26: MINIMUM LENGHT (0) 26: EXACT LENGTH TABLE. (NO) 26: RANGE (NO) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION (RIGHT) 26: FILL CHARACTER 26: FLOAT CHARACTER 26: DECIMAL POSTITIONS (0) 26: SIGN POSTITION (LEADING) 26: AUTO CLOSE. (YES) 26: ARITHMETIC OPERATION (NO) 26: AUTO FILL-IN (NO) 26: NEXT PAGE NUMBER (NO) 26: BRANCHING (NO) 26: AUTO-INCREMENT (NO) 26: OUTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (YES) BIOFORM-05 EOP 27 TAB STOP (YES) 27: INPUT TYPE (KEYBOARD) 27: CHARACTER TYPE (PRINTABLE) 27: SECURITY FIELD (NO) 27: OVERRIDE ERROR FIELD (NO) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (NO) 27: RANGE (NO) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTIFICATION (LEFT) 27: FILL CHARACTER 27: FLOAT CHARACTER 27: DECIMAL POSTITIONS (0) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE NUMBER- (NO) 27: BRANCHING (TEST- LINE: 23 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 27: AUTO-INCREMENT (NO) 27: OUTPUT TO MEMORY CELL- (NO) 27: OUTPUT TO DISKETTE (NO) DISTANCE 28: TAB STOP (YES) TO 28: INPUT TYPE (KEYBOARD) ANNULUS 28: CHARACTER TYPE (DIGIT) 13 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD- (YES) 28: MINIMUM LENGTH (0) 28: EXACT-LENGTH TABLE (NO) 28: RANGE- (NO) 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTIFICATION (RIGHT) 28: FILL CHARACTER 28: FLOAT CHARACTER 28: DECIMAL POSITIONS (0) 28: SIGN POSITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER (NO) 28: BRANCHING (NO) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL 28: OUTPUT TO DISKETTE. (YES), BIOFORM-05 DISTANCE 29: TAB STOP (YES) TO 29: INPUT TYPE (KEYBOARD) ANNULUS 29: CHARACTER TYPE (DIGIT) 14 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (YES) 29: MINIMUM LENGTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE- (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (RIGHT) 29: FILL CHARACTER 29: FLOAT CHARACTER 29: DECIMAL POSITIONS 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE. NUMBER (NO) 29: BRANCHING (NO) 29: AUTO FILL-IN (NO) 29: OUTPUT TO MEM0RY CELL (NO) 29: OUTPUT TO DISKETTE (YES) DISTANCE 30: TAB STOP (YES) TO 30: INPUT TYPE (KEYBOARD) ANNULUS 30: CHARACTER TYPE (DIGIT) 15 30: SECURITY FIELD. (NO) 30: OVERRIDE ERROR FIELD (YES) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE. (NO) 30: RANGE (NO) 30: ALLOWABLE ENTRY (NO) 30: SUBSTITUTION (NO) 30: JUSTIFICATION. (RIGHT) 30: FILL CHARACTER 30: FLOAT CHARACTER 30: DECIMAL POSITIONS (0) 30: SIGN POSITION (LEADING) 30: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (NO) 30: BRANCHING (NO) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO MEMORY CELL. (NO) 30: OUTPUT TO DISKETTE (YES) BIOFORM-05 EOP 31: TAB STOP (YES) 31: INPUT TYPE (KEYBOARD) 31: CHARACTER TYPE (PRINTABLE) 31: SECURITY FIELD (NO) 31: OVERRIDE ERROR FIELD (NO) 31: MINIMUM LENGTH (0) 31: EXACT LENGTH TABLE (NO) 31: RANGE. (NO) 31: ALLOWABLE ENTRY (NO) 31: SUBSTITUTION (No) 31: JUSTIFICATION (LEFT) 31: FILL CHARACTER 31: FLOAT CHARACTER- 31: DECIMAL. POSITIONS (0) 31: SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE. NUMBER - (NO) 31; BRANCHING (TEST LINE: 23 POSITION: 1: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (1) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY - (YES - RAM: X;)) 31: AUTO-INCREMENT (NO) 31: OUTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (NO) DISTANCE 32: TAB STOP (YES) TO 32: INPUT TYPE (KEYBOARD) ANNULUS 32: CHARACTER TYPE (DIGIT) 16 32: SECURITY FIELD- (NO) 32: OVERRIDE ERROR FIELD (YES) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE- (NO) 32: ALLOWABLE. ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTICATION (RIGHT) 32: FILL CHARACTER 32: FLOAT CHARACTER 32: DECIMAL POSITIONS (0) 32: SIGN POSITION (LEADING) 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL-IN (NO) 32: NEXT PAGE NUMBER (NO) 32: BRANCHING (NO) 32: AUTO-INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32; OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 33: TAB STOP (YES) TO 33: INPUT TYPE (KEYBOARD) ANNULUS 33: CHARACTER TYPE (DIGIT) 17 33: SECURITY FIELD (NO) 33: OVERRIDE ERROR FIELD. (YES) 33: MINIMUM LENGTH (0) 33: EXACT LENGTH TABLE (NO) 33: RANGE- (NO) 33: ALLOWABLE. ENTRY (NO) 33: SUBSTITUTION (NO) 33; JUSTIFICATION (RIGHT) 33: FILL- CHARACTER 33: FLOAT CHARACTER 33: DECIMAL. POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE. (YES) 33: ARITHMETIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (NO) 33: BRANCHING (NO) 33: AUTO-INCREMENT (NO) 33: OUTPUT TO MEMORY CELL (NO) 33: OUTPUT TO DISKETTE (YES) DISTANCE 34: TAB STOP (YES) TO 34: INPUT TYPE (KEYBOARD) ANNULUS 34: CHARACTER TYPE (DIGIT) 18 34: SECURITY FIELD (NO) 34: OVERRIDE ERROR FIELD (YES) 34: MINIMUM LENGTH (0) 34: EXACT LENGTH TABLE (NO) 34: RANGE (NO) 34: ALLOWABLE ENTRY (NO) 34: SUBSTITUTION (NO) 34: JUSTIFICATION (RIGHT) 34: FILL - CHARACTER 34: FLOAT CHARACTER 34: DECIMAL POSITIONS (0) 34: SIGN POSITION (LEADING) 34: AUTO CLOSE (YES) 34: ARITHMETIC OPERATION (NO) 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (NO) 34: BRANCHING (NO) 34: AUTO-INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 35: TAB STOP (YES) 35: INPUT TYPE (KEYBOARD) TO ANNULUS 35: CHARACTER TYPE (DIGIT). 19 35: SECURITY FIELD (NO) 35: OVERRIDE ERROR FIELD (YES) 35: MINIMUM LENGTH (0) 35: EXACT LENGTH TABLE (NO) 35: RANGE (NO) 35: ALLOWABLE ENTRY (NO) 35: SUBSTITUTION (NO) 35: JUSTIFICATION (RIGHT) 35: FILL CHARACTER 35: FLOAT CHARACTER 35: DECIMAL POSITIONS (0) 35: SIGN POSITION (LEADING) 35: AUTO CLOSE. (YES) 35: ARITHMETIC OPERATION (NO) 35: AUTO FILL-IN (NO) 35: NEXT PAGE NUMBER (NO) 35: BRANCHING (NO) 35: AUTO-INCREMENT (NO) 35: OUTPUT TO MEMORY CELL (NO) 35: OUTPUT TO DISKETTE (YES) DISTANCE 36: TAB STOP (YES] TO 36: INPUT TYPE (KEYBOARD) ANNULUS 36: CHARACTER TYPE (DIGIT] 20 36: SECURITY FIELD (NO) 36: OVERRIDE ERROR FIELD (YES) 36: MINIMUM LENGTH (0) 36: EXACT LENGTH TABLE. (NO) 36: RANGE (NO) 36: ALLOWABLE ENTRY (NO) 36: SUBSTITUTION (NO) 36: JUSTIFICATION (RIGHT) 36: FILL CHARACTER 36: FLOAT CHARACTER 36: DECIMAL POSITIONS (0) 36: SIGN POSITION (LEADING) 36: AUTO CLOSE (YES) 36: ARITHMETIC OPERATION (NO) 36: AUTO FILL-IN (NO) 36: NEXT PAGE NUMBER (NO) 36: BRANCHING (NO) 36: AUTO-INCREMENT (NO) 36: OUTPUT TO MEM0RY CELL (NO) 36: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 37: TAB STOP (YES) TO 37: INPUT TYPE (KEYBOARD) ANNULUS 37: CHARACTER TYPE (DIGIT) 21 37: SECURITY FIELD (NO) 37: OVERRIDE ERROR FIELD (YES) 37: MINIMUM LENGTH (0) 37: EXACT LENGTH TABLE (N0) 37: RANGE ( NO) 37: ALLOWABLE ENTRY (NO) 37: SUBSTITUTION (N0) 37: JUSTIFICATION (RIGHT) 37: FILL CHARACTER 37: FLOAT CHARACTER 37: DECIMAL POSITIONS 37: SIGN POSITION (LEADING) 37: ARITHMETIC OPERATION (NO) 37: AUTO FILL-IN (NO) 37: NEXT PAGE NUMBER (NO) 37: BRANCHING (NO) 37: AUTO-INCREMENT (NO) 37: OUTPUT TO MEMORY CELL- (NO) 37: OUTPUT TO DISKETTE (YES] DISTANCE. 38: TAB STOP (YES) TO 38: INPUT TYPE (KEYBOARD) ANNULUS 38: CHARACTER TYPE (DIGIT) 38: SECURITY FIELD (NO) 22 38: OVERRIDE ERROR FIELD (YES) 38: MINIMUM LENGTH (0) 38: EXACT LENGTH TABLE- (NO) 38: RANGE- (NO) 38: ALLOWABLE ENTRY (NO) 38: SUBSTITUTION (NO) 38: JUSTIFICATION (RIGHT) 38: FILL CHARACTER 38: FLOAT CHARACTER 38: DECIMAL POSITIONS (0) 38: SIGN POSITION (LEADING) 38: AUTO CLOSE (YES) 38: ARITHMETIC OPERATION -(NO) 38: AUTO FILL-IN (NO) 38: NEXT PAGE NUMBER (NO) 38: BRANCHING (NO) 38: AUTO-INCREMENT (NO) 38: OUTPUT TO MEMORY CELL (NO) 38: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 39: TAB STOP (YES) TO 39: INPUT TYPE (KEYBOARD) ANNULUS 39: CHARACTER TYPE (DIGIT) 23 39: SECURITY FIELD (NO) 39: OVERRIDE ERROR FIELD (YES) 39: MINIMUM LENGTH (0) 39: EXACT LENGTH TABLE (NO) 39: RANGE (NO) 39: JUSTIFICATION (RIGHT) 39: FILL CHARACTER 39: FLOAT CHARACTER 39: DECIMAL POSITIONS (0) 39: SIGN POSITION (LEADING) 39: AUTO CLOSE (YES) 39: ARITHMETIC OPERATION (NO) 39: AUTO FILL-IN (NO) 39: NEXT PAGE NUMBER (NO) 39: BRANCHING (NO) 39: AUTO-INCREMENT (NO) 39: OUTPUT TO MEMORY CELL. (NO) 39: OUTPUT TO DISKETTE (YES) DISTANCE 40: TAB STOP (YES) TO 40: INPUT TYPE (KEYBOARD) ANNULUS 40: CHARACTER TYPE (DIGIT) 24 40: SECURITY FIELD (NO) 40: OVERRIDE ERROR FIELD (YES) 40: MINIMUM LENGTH (0) 40: EXACT LENGTH TABLE (NO) 40: RANGE (NO) 40: ALLOWABLE ENTRY (NO) 40: SUBSTITUTION (NO) 40: JUSTIFICATION (RIGHT) 40: FILL CHARACTER 40: FLOAT CHARACTER 40: DECIMAL POSITIONS (0) 40: SIGN POSITION (LEADING) 40: AUTO CLOSE (YES) 40: ARITHMETIC OPERATION (NO) 40: AUTO FILL-IN (NO) 40: NEXT PAGE NUMBER (NO) 40: BRANCHING (NO) 40: AUTO-INCREMENT (NO) 40: OUTPUT TO MEMORY CELL (NO) 40: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE. 41: TAB STOP (YES) TO 41: INPUT TYPE (KEYBOARD) ANNULUS 41: CHARACTER TYPE (DIGIT) 25 41: SECURITY FIELD (NO) 41: OVERRIDE ERROR FIELD (YES) 41: MINIMUM LENGTH (0) 41: EXACT LENGTH TABLE (NO) 41: RANGE. (NO) 41: ALLOWABLE. ENTRY (NO) 41: SUBSTITUTION (NO) 41: JUSTIFICATION (RIGHT) 41: FILL CHARACTER 41: FLOAT CHARACTER 41: DECIMAL POSITIONS (0) 41: SIGN POSITION (LEADING) 41: AUTO CLOSE. (YES.) 41: ARITHMETIC OPERATION (NO) 41: AUTO FILL-IN (NO) 41: NEXT PAGE NUMBER (NO) 41: BRANCHING (NO) 41: AUTO-INCREMENT (NO) 41: OUTPUT TO MEMORY CELL (NO) 41: OUTPUT TO DISKETTE (YES) DISTANCE 42: TAB STOP (YES) TO 42: INPUT TYPE (KEYBOARD) ANNUUS 42: CHARACTER TYPE (DIGIT) 42: SECURITY FIELD (NO) 26 42: OVERRIDE ERROR FIELD (YES) 42: MINIMUM LENGTH (0) 42: EXACT LENGTH TABLE- (NO) 42: RANGE (NO) 42: ALL0WABLE ENTRY (NO) 42: SUBSTITUTION (NO) 42: JUSTIFICATION (RIGHT) 42: FILL CHARACTER 42: FLOAT CHARACTER 42: DECIMAL POSITIONS (0) 42: SIGN POSITION (LEADING) 42: AUTO CLOSE 42: ARITHMETIC OPERATION (NO). 42: AUTO FILL-IN (NO) 42: NEXT PAGE NUMBER (NO) 42: BRANCHING (NO) 42: AUTO-INCREMENT (NO) 42: OUTPUT TO MEMORY CELL (NO) 42: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 43: TAB STOP (YES) TO 43: INPUT TYPE. (KEYBOARD) ANNULUS 43: CHARACTER TYPE (DIGIT) 27 43: SECURITY FIELD. (NO) 43: OVERRIDE ERROR FIELD (YES) 43: MINIMUM LENGTH (O) 43: EXACT LENGTH TABLE. (NO) 43: RANGE. (NO) 43: ALLOWABLE ENTRY (NO) 43: SUBSTITUTION (NO) 43: JUSTIFICATION (RIGHT) 43: FILL CHARACTER 43: FLOAT CHARACTER 43: DECIMAL POSITIONS (0) 43: SIGN POSITION (LEADING) 43: AUTO CLOSE (YES) 43: ARITHMETIC OPERATION (NO) 43: AUTO FILL-IN (NO) 43: NEXT PAGE NUMBER (NO) 43: BRANCHING (NO) 43: AUTO-INCREMENT- (NO) 43: OUTPUT TO MEMORY CELL (NO) 43: OUTPUT TO DISKETTE (YES) DISTANCE 44: TAB STOP (YES) TO 44: INPUT TYPE (KEYBOARD) ANNULUS 44: CHARACTER TYPE (DIGIT) 28 44: SECURITY FIELD (NO) 44: OVERRIDE ERROR FIELD (YES) 44: MINIMUM LENGTH (0) 44: EXACT LENGTH TABLE (NO) 44: RANGE (NO) 44: ALLOWABLE ENTRY (NO) 44: SUBSTITUTION (NO) 44: JUSTIFICATION (RIGHT) 44: FILL CHARACTER 44: FLOAT CHARACTER 44: DECIMAL POSITIONS (0) 44: SIGN POSITION (LEADING) 44: AUTO CLOSE (YES) 44: ARITHMETIC OPERATION (NO) 44: AUTO FILL-IN (NO) 44: NEXT PAGE NUMBER (NO) 44: BRANCHING (NO) 44: AUTO-INCREMENT (NO) 44: OUTPUT TO MEMORY CELL (NO) 44: OUTPUT TO DISKETTE (YES) BIOFORM-05 DISTANCE 45: TAB STOP (YES) TO 45: INPUT TYPE (KEYBOARD) ANNULUS 45: CHARACTER TYPE (DIGIT) 29 45: SECURITY FIELD (NO) 45: OVERRIDE ERROR FIELD (YES) 45: MINIMUM LENGTH (0) 45: EXACT LENGTH TABLE (NO) 45: RANGE (NO) 45: ALLOWABLE ENTRY (NO) 45: SUBSTITUTION (NO) 45: JUSTIFICATION (RIGHT) 45: FILL CHARACTER 45: FLOAT CHARACTER 45: DECIMAL POSITIONS (0) 45: SIGN POSITION (LEADING) 45: AUTO CLOSE (YEA) 45: ARITHMETIC OPERATION (NO) 45: AUTO FILL-IN (NO) 45: NEXT PAGE NUMBER (NO) 45: BRANCHING (NO) 45: AUTO-INCREMENT (NO) 45: OUTPUT TO MEMORY CELL (NO) 45: OUTPUT TO DISKETTE (YES) DISTANCE 46: TAB STOP (YES) TO 46: INPUT TYPE (KEYBOARD) ANNULUS 46: CHARACTER TYPE (DIGIT) 30 46: SECURITY FIELD (NO) 46: OVERRIDE ERROR FIELD (YES) 46: MINIMUM LENGTH (0) 46: EXACT LENGTH TABLE (NO) 46: RANGE (NO) 46: ALLOWABLE. ENTRY (NO) 46: SUBSTITUTION (NO) 46: JUSTIFICATION (RIGHT) 46: FILL CHARACTER 46: FLORT CHARACTER- 46: DECIMAL POSITIONS (0) 46: SIGN POSITION (LEADING) 46: AUTO CLOSE (YES) 46: ARITHMETIC OPERATION (NO) 46: AUTO FILL-IN (NO) 46: NEXT PAGE NUMBER (NO) 46: BRANCHING (NO) 46: AUTO-INCREMENT (NO) 46: OUTPUT TO MEMORY CELL (NO) 46: OUTPUT TO DISKETTE (YES) BIOFORM-05 NUMBER OF 47: TAB STOP (YES) SPAWNING 47: INPUT TYPE (KEYBOARD) MARKS 47: CHARACTER TYPE (DIGIT) 47: SECURITY FIELD (NO) 47: OVERRIDE ERROR FIELD (YES) 47: MINIMUM LENGTH (0) 47: EXACT LENGTH TABLE (NO) 47: RANGE (NO) 47: ALLOWABLE ENTRY (NO) 47: SUBSTITUTION (NO) 47: JUSTIFICATION (RIGHT) 47: FILL CHARACTER ( ) 47: FLOAT CHARACTER 47: DECIMAL POSITIONS (0) 47: SIGN POSITION (LEADING) 47: AUTO CLOSE (YES) 47: ARITHMETIC OPERATION (NO) 47: AUTO FILL-IN (NO) 47: NEXT PAGE NUMBER (NO) 47: BRANCHING (N0) 47: AUTO-INCREMENT (N0) 47: OUTPUT TO MEMORY CELL (NO) 47: OUTPUT TO DISKETTE (YES) FILL 48: TAB STOP (YES) 48: INPUT TYPE (CONSTANT: ) 48: CHARACTER TYPE (PRINTABLE) 48: SECURITY FIELD (NO) 48: OVERRIDE ERROR FIELD (NO) 48: MINIMUM LENGTH (0) 48: EXACT LENGTH TABLE (NO) 48: RANGE (NO) 48: ALLOWABLE. ENTRY (NO) 48: SUBSTITUTION (NO) 48: JUSTIFICATION (LEFT) 48: FILL CHARACTER 48: FLOAT CHARACTER 48: DECIMAL POSITIONS (0) 48: SIGN POSITION (LEADING) 48: AUTO CLOSE (YES) 48: ARITHMETIC OPERATION (NO) 48: AUTO FILL-IN (NO) 48: NEXT PAGE NUMBER (NO) 48: BRANCHING 48: AUTO-INCREMENT (NO) 48: OUTPUT TO MEMORY CELL (NO) 48: OUTPUT TO DISKETTE (YES) BIOFORM-05 LOAD 9: TAB STOP. (YES) RECORD TYPE: 9: INPUT TYPE (KEYBOARD) ONE 9: CHARACTER TYPE (PRINTABLE) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (NO) 9: MINIMUM LENGTH (0) 9: EXACT LENGTH TABLE (NO) 9: RANGE (N0) 9: ALLOL-I0RE2LF1 @r_NTRY (NO) 9: S.U8E8STITUT'll-ri (NO) 9: -JU0S (LEFT) 9: FILL CHARACTER 9: FLOAT CHARACTER 9: DECIMAL POSITIONS (0) 9: SIGN- POS'ITION (LEADING) 9: AUTO CLOSE CYES) 9: ARITHMETIC OPER0AITION (NO) 9: AUTO FILL7IN (NO) 9: NE'evT P0R0GF- NUMBER. (YES BRANCHING (TEST LINE P6k3 80 9: E * 20H 186SITION: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TRBLE_- (NO) BRANCH: RANGE (NO) BRANCH: ALLOL-IA0BLE ENTRY 8Of'ES RAM: 8X;)). 9: AUTO-INC0REMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9z OUTPUT TO DISKETTE (NO), LOAD 50: TAB STOP (YES) RECORD TYPE: 50: INPUT TYPE (KEYBOARD) TWO 50: CHARACTER TYPE (PRINTABLE) 50: SECURITY FIEL-11 (0NO) 50: O6UERRIDE ERROR FIELD- (NO) 50: MINIMI-IM LENGTH (0) 50: C.1-'ACT LENGTH TABLE. (NO) 50: RANGE@ f NO) 50: ALL.Ot-IA8DLE ENTRY (NO) 50: SUBSTITUTION (NO) 50: JUSTIFICATION. (LEFT) 50: FIH F-H0ARACTER 50: FLOAT CHARACTER' 50: DECIMAL POSITIONS (0) 50: SIGN POSITION (LEADING) 50: AUTO CLOSE C-l'ES) 50 ARITHMETIC OPER0ATIOti (NO) 50 AUTO FILL-IN (NO) 50' NEXT PAGE N0UM36B0F_R (YES - PAGE 2) 506: BRANCHING (TEST LINE: 8282'. POSITION: 80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: E'@-6:A0CT LENGTH TABLE (NO) BRANCH: RANGE NO) BRANCH: 36A6L6J_002L-2JA36B36LE ENTRY (YES RAM: 0i0O: AUTO- I 2t32c32r-,EMENT (NO) 502: OUTPUT TO MEMORY CELL (No) 508: OUTPUT TO DISKETTE (NO) 0 BIOFORM-05 51: TAB TOP (YES) LOAD 51: INPUT TYPE (KEYBOARD) RECORD TYPE: 51: CHARACTER TYPE (PRINTABLE) THREE 51: SECURITY FIELD (NO) 51: OVERRIDE ERROR FIELD (NO) 51: MINIMUM LENGTH (0) 51: EXACT LENGTH TABLE (NO) 51: RANGE (NO) 51: ALLOWABLE ENTRY (NO) 51; SUBSTITUTION (NO) 51: JUSTIFICATION (LEFT) 51". FIH CHARACTER 51: FLOAT CHRACTER 51: DECIMAL POSITIONS (0) 51: SIGN POSITION (LEADING) 51: AUTO CLOSE (YES) 51: ARITHMETIC OPERARTION (NO) 51: AUTO FILL-IN (NO) 51: NEXT PAGE NUMBER (YES - PAGE 3) 51:. BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALL0WABLE ENTRY (YES - RAM: X;)) 51: AUTO-INCREMENT (NO) 51: OUTPUT TO MEMORY CELL (NO) 51: OUTPUT TO DISKETTE (NO) 52: LOAD 52: TAB STOP (YES) RECORD TYPE: 52: INPUT TYPE (KEYBOARD) FOUR 52: CHARACT0R TYPE (PRINTABLE) 52: SECURITY FIELD (NO) 52; OVERRIDE ERROR FIELD (NO) 52: MINIMUM LENGTH (LENGTH) 52: EXACT LENGTH TABLE (NO) 52: RANGE (NO) 52: ALLOWABLE ENTRY (NO) 52: SUBSTITUTION (NO) 52: JUSSTIFICATION (LEFT) 52: FILL CHARACTER 52: FLOAT CHARACTER 52: DECIMAL P0SITIONS (0) 52: SIGN POSITION (LEADING) 52: AUTO CLOSE (YES) 52: ARITHMETIC OPERATION (NO) 52: AUTO FILL-IN (NO) 52: NEXT PAGE NUMBER (YES- PAGE 4 52: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE- ENTRY (YES - RAM: X;)) 52: AUTO-INCREMENT (NO) 52: OUTPUT TO MEMORY CELL (NO) 52: OUTPUT TO DISKETTE (NO) BIOFORM-05 53: TAB STOP (YES) 53: INPUT TYPE (KEYBOARD) 53: CHARACTER TYPE (PRINTABLE) 53: SECURITY FIELD (NO) 53: OVERRIDE ERROR FIELD (NO) 53: MINIMUM LENGTH (0) 53: EXACT LENGTH TABLE (NO) 53 RANGE (NO) 53:ALLOWABLE ENTRY (NO) 53: SUBSTITUTION (NO) 53: JUSTIFICATION (LEFT) 53: FILL CHARACTER () 53: FLOAT CHARACTER () 53: DECIMAL POSITION (0) 53: SIGN POSITION (LEADING) 53: AUTO CLOSE (YES) 53: ARITHMETIC OPERATION (NO) 53: AUTO FILL-IN (NO) 53: NEXT PAGE NUMBER (YES-PAGE 5) 53: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 53: AUTO-INCREMENT (NO) 53: OUTPUT TO MEMORY CELL (NO) 53: OUTPUT TO DISKETTE (NO) 54: TAB STOP (YES) 54: INPUT TYPE (KEYBOARD) 54: CHARACTER TYPE (PRINTABLE) 54: SECURITY FIELD (NO) 54: OVERRIDE ERROR FIELD ( NO) 54: MINIMUM LENGTH (0) 54: EXACT LENGTH TABLE (NO) 54: RANGE (NO) 54: ALL0WABLE ENTRY (NO) 54: SUBSTITUTION (NO) 54: JUSTIFICATION (LEFT) 54: FILL CHARACTER () 54: FLOAT CHARACTER () 54: DECIMAL POSITION (O) 54: SIGN POSITION (LEADING) 54: AUTO CLOSE (YES) 54: ARITHMETIC OPERATION (NO) 54: AUTO FILL-IN (NO) 54: NEXT PAGE NUMBER (YES-PAGE6) 54: BRANCHING (TEST LINE:3 POSITION:80: BRANCH : MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM:X;)) 54: AUTO-INCREMENT (NO) 54: OUTPUT TO MEMORY MODU;LE (NO) 54: OUTPUT TO DISKETTE (NO) BIOFORM-05 LOAD 55: TAB STOP (YES) RECORD TYPE: 55: INPUT TYPE (KEYBOARD) SEVEN 55: CHARACTER TYPE (PRINTABLE) 55: SECURITY FIELD (NO) 55: OVERRIDE ERROR FIELD (NO) 55: MINIMUM LENGTH (0) 55: EXACT LENGTH TABLE (NO) 55: RANGE. (NO) 55: ALLOWABLE. ENTRY (NO) 55: SUBSTITUTION (NO) 55: JUSTIFICATION (LEFT) 55: FILL CHARACTER 55: FLOAT CHARACTER 55: DECIMAL POSITIONS (0) 55: SIGN POSITION (LEADING) 55: AUTO CLOSE (YES) 55: ARITHMETIC OPERATION (NO) 55: AUTO FILL-IN (NO) 55: NEXT PAGE_ NUMBER (YES - PAGE.7) 55: BRANCHING (TEST LINF: 23 POSITION: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH., ALLOWABLE ENTRY (YES - RAM: X;)) 55: AUTO-INCREMENT (NO) 55: OUTPUT TO MEMORY CELL (NO) 55: OUTPUT TO DISKETTE (NO) LOAD 56: TAB STOP (YES) RECORD TYPE 56: INPUT TYPE. (KEYBOARD) EIGHT 56: CHARACTER TYPE (PRINTABLE) 56: SECURITY FIELD. (NO) 56: OVERRIDE ERROR-FIELD (NO) 56: MINIMUM LENGTH (0) 56: EXACT LENGTH TABLE (NO) 56: RANGE (NO) 56: ALLOWABLE ENTRY (NO) 56: SUBSTITUTION (NO) 56: JUSTIFICATION (LEFT) 56: FILL CHARACTER 56: FLOAT CHARACTER 56: DECIMAL POSITIONS (0) 56: SIGN POSITION (LEADING) 56: AUTO CL0SE (YES) 56:. ARITHMETIC OPERATION (NO) 56: AUTO FILL-IN (NO) 56: NEXT PAGE NUMBER (NO) 56: BRANCHING 56: AUT0-INCEMENT (NO) 56: OUTPUT TO MEMORY CELL (NO) 56: OUTPUT TO DISKETTE (NO) BIOFORM-05 LOAD 57: TAB STOP (YES) RECORD TYPE: 57: INPUT TYPE (KEYBOARD) NINE 57: CHARACTER TYPE (PRINTABLE) 57: SECURITY FIELD (NO) 57: OVERRIDE ERRORFIELD (NO) 57: MINIMUM LENGTH (0) 57: EXACT LENGTH TABLE. (NO) 57: RANGE (NO) 57: ALLOWABLE ENTRY (NO) 57: SUBSTITUTION (NO) 57: JUSTIFICATI0N (LEFT) 57: FILL CHARACTER 57: FLOAT CHARACTER 57: DECIMAL POSITIONS (0) 57: SIGN POSITION (LEADING) 57: AUTO CLOSE (YES) 57: ARITHMETIC OPERATION (NO) 57: AUTO FILL-IN (NO) 57: NEXT PAGE. NUMBER (YES - PAGE- 8) 57: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES RAM: 57: AUTO-INCREMENT (NO) 57: OUTPUT TO MEMORY CELL - (NO) 57: OUTPUT TO DISKETTE (NO) INDIVIDUAL DATA-SHORT FORM FORM PAGE 06 ACTION FIELD< RECORD TYPE< SEQUENCE NO: YEAR<< COLLECTION NO<<<<< REPLICATE<< SPECIES<<<<<<<<<< STATUS< FIRST LINE NO<<< 1. FREQUENCY<<< LENGTH<<< 2. FREQUENCY<<< LENGTH<<<< 3. FREQUENCY<<< LENGTH<<< 4. FREQUENCY<<< LENGTH<<< 5. FREQUENCY<<< LENGTH<<< 6. FREQUENCY<<< LENGTH<<< 7. FREQUENCY<<< LENGTH<<< 8. FREQUENCY<<< LENGTH<<< 9. FREQUENCY<<< LENGTH<<< 10. FREQUENCY<<< LENGTH<<< 11. FREQUENCY<<< LENGTH<<< 12. FREQUENCY<<< LENGTH<<< 13. FREQUENCY<<< LENGTH<<< 14. FREQUENCY<<< LENGTH<<< FILL <<<<< ----------LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X'---------- ONE < TWO < THREE < FOUR < FIVE < SIX < SEVEN < EIGHT < NINE < BIOFORM-06 ATTRIBUTE ACTION. TAB STOP (YES) FIELD 1: INPUT TYPE (KEYBOARD CONSTANT: ) 1: CHARACTER TYPE (PRINTABLE) 1: SECURITY FIELD (NO) 1: OVERRIDE _ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE '(NO) 1: ALLOWABLE ENTRY (NO) 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER 1: FLOAT CHARACTER 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) I: AUTO CLOSE (YES) 1: ARITHMETIC-OPERATION (NO) I: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE fYES) RECORD 2: TAB STOP (YES) TYPE 2 INPUT TYPE (CONSTANT: 6) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER 2: FLOAT CHARACTER 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (N0) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: 0UTPUT TO MEMORY CELL (NO) 2: 0UTPUT TO DISKETTE (YES) BIOFORM-06 SEQUENCE 3: TAB STOP (YES) NO: YEAR 3: INPUT TYPE (MEMORY CELL #1 3: - CHARACTER TYPE (PRINTABLE) 3: SECURITY FIELD (NO) 3: 0VERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (NO) 3: RANGE (NO) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) JUTIFICATION (LEFT) 3: 3: FILL CHACTER 3: FLOAT CHATACTER 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARTHEMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT To MEMORY CELL (YES MEMORY CELL 1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE 4: TAB S TOP (YES) NO: COLLECTION 4: INPUT TYPE (MEMORY CELL # 2) NO 4: CHARACTER TYPE (PRINTABLE) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (O) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) JUSTIFCATION 4: FILL CHARACTER (LEFT) 4: FILL CHARACTER 4: FLOAT CHARACTER 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4 ATITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHIN (NO) 4: AUTO-INCREMENT (NO) Y CELL (YES-MEMORY CELL #2) 4 OUTPUT TO MEMORY CELL (YES-MEMORY CELL #2) 4: OUTPUT TO DISKETTE (YES) B10FORM-06 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (MEMORY CELL# 3) 5: CHARACTER TYPE (MEMORY CELL #3) 5: SECURITY FIELD (NO) 5: 0VERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (0) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITION (NO) 5: JUSTIFICATION (LEADING) 5: FILL CHARACTER 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (N0) 5: AUTO FILL-IN (N0) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (YES, MEMORY CELL 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAP. STOP (YES) 6: INPUT TYPE (MEMORY CELL # 4) 4) 6: CHARACTER TYPE (PRINTED) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR, FIELD (NO) 6: MINIMUM LENGTH (0) 6. EXACT LENGTH TABLE (NO) 6: RANGE NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTIT0N (NO) 6: JUSTIFICATION(LEFT) 6: FILL CHARACTER 6: FL0AT CHARCTER ( ) 6: DECIMAL POSIT-IONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL 6: OUTPUT TO DISKETTE (YES) BIOFORM-06 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (MEMORY CELL # 5) 7: CHARACTER TYPE (PRINTABLE) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (0) 7: EXACT LENGTH TABLE (NO) 7: RANGE (NO) 7: FI8L4L4OW ENTRY (0N4O) 7 S4U4B8STIT4UTIor-i -(NO) OTI4FICF 7: J8U, - ITI0ON (LEFT) 7: FILL CHARACTER 7: FLOAT CHARACTER 87: DECIrl;64-6L 6P0O-,:-:-ITI6ONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE ('-("0ES) 7: FirRIT0H8METIC OPEFR4RTI2O4N (4NO) AUTO F'IL8L-l4 (4N4O) 7: NEXT PAGE r-J4U4MBE0P (0NO) 7: .64P4RrI4CH4VI0G fr-40i 7: 4A6UTO-I2N0C0RE6MENT (000) 7: OUTPUT To 2m0al6or-,.6Y CELL (6YES MEMORY CELL 7: OUTPUT T4O DISKETTE (4YES) FIRST 88: TAB STOP WES) LINE 48: INPUT TYPE f@:"EYB4OFig'D-4C.4Or-ii=,,TFiriT. 001.1 NO 88: 4C0H0A0R0R8CTE0P TYPE (6D I G I T) 88 : SECURITY FIELD (r-40 i j 8 : 01 E4P0RI4D8E ERROR 0F1 EL D 8: MINIMUM LENGTH (0) IGTH TABLE (NO) 1p: EXACT 8LEt 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 88: 4S4U4BS"TIT0UTI4Oll (0N8O) 8: J4USTI0FICRTIOT (RIGHT) 8: FILL CHARACTER (0) 28: FLOAT 4CH494R0R0CTE4R (0) 8: D4ECI0M6Ri- POSITIONS (0) -4 4POSITIOrl I - 8: SIGt (LEADING) 8: AUTO LO'=I- 8: 48R44RITHr-4l44CTIC OPERATION (NO) 8: AUTO 16FILL-I36N 6fr-6106) 4r-0IE..---.T P4F6IGE 36N40o0r-0l4BE44R' (NO) 40B20P.36Ar-6J40CH I t-2i2r 2(r2io6) 488 44A44UT44O2-IN44C44RE40M44Er0IT 4(riO) 8: OUTPUT To r,6I6F'r.6J44O0F-0,11-' CELL (44NO) 448: OUTPUT TO DI44S6J----'ETTE (YES) BIOFORM-06 1. FREQUENCY 9: TAB STOP (YES) 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (DIGIT) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (0) 9: EXACT LENGTH TABLE (NO) 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (NO) 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER () 9: FLOAT CHARACTER () 9: DECIMAL POSITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT OT DISKETTE (YES) 1. LENGTH 10: TAB STOP (YES) 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (DIGIT) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (YES) 10: MINIMUM LENGHT (0) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (NO) 10: JUSTIFICATION (RIGHT) 10: FILL CHARACTER () 10: FLOAT CHARACTER () 10: DECIMAL POSITIONS (0) 10: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT OT DISKETTE (YES) BI0FORM-06 2. FREQUENCY 11: TAB ST0P (YES) 11: INPUT TYPE (KEYBOARD) 11: CHARACTER TYPE (DIGIT) 11: SECURITY FIELD (NO) 11: OVERRIDE ERROR FIELD (NO) 11: MINIMUM LENGTH (0) 11: EXACT LENGTH TABLE (NO) 11: RANGE (NO) 11: ALLOWABLE ENTRY (NO) 1l: SUBSTITUTION (NO) 11: JUSTIFICATION (RIGHT) 11: FILL CHARACTER 11: FLOAT CHARACTER 11: DECIMAL POSITION (O) l1: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) 2. LENGTH 12: TAB STOP (YES) 12: INPUT TYPE (KEYBOARD) 12: CHARACTER TYPE (DIGIT) 12: SECURITY FIELD (NO) 12: OVERRIDE ERROR FIELD (YES) 12: EXACT LENGTH TABLE (NO) 12: RANGE (NO) 12: ALLOWABLE ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (RIGHT) 12: FILL CHARACTER 12: FLOAT CHARACTER 12: DECIMAL POSITIONS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (NO) 12: AUTO-INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) Y CELL (NO) 12: OUTPUT TO DISKETTE (YES) BIOFORM-06 3. FREQUENCY 13: TAB STOP (YES) 13: INPUT TYPE (KEYBOARD) 13: CHARACTER TYPE (DIGIT) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD YES) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBTITUTION (NO) 13: JUSTIFICATION(RIGHT) 13: FILL CHARACTER 13: FLOAT CHARACTER 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORY CELL (NO) 13: OUTPUT TO DISKETTE (YES) 3. LENGTH 14: TAB STOP (YES) 14: INPUT TYPE (KEYBOARD) 14: CHARACTER TYPE (DIGIT) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINIMUM LENGTH (O) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION (NO) 14: JUSTIFICATION (RIGHT) 14: FILL CHARACTER ( ) 14: FLOAT CHARACTER 14: DECIMAL POSITIONS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM-06 4. FREQUENCY 15: TAB STOP (YES) 15: INPUT TYPE (KEYBOARD) 15: CHARACTER TYPE (DIGIT) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELD (YES) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (NO) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (RIGHT) 15: FILL CHARACTER 15: FLOAT CHARACTER 15: DECIMAL POSITIONS (0) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (NO) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (YES) 4. LENGTH 16: TAB STOP (YES) 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE (DIGIT) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (RIGHT) 16: FILL CHARACTER 16: FLOAT CHARACTER 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) 0 BIOFORM-06 5. FREUENCY 17: TAB STOP (YES.) 17: INPUT TYPE (1-.'E'l'B4O0A4RDl 17: CHARACTER TYPE (DIGIT) rEL4D (NI-31 17: @,Er8Xl4RIT%f' F 17: O`.)ER.4RIDE FIELD -(YES) 17: MI8NI6mLl0m LENGTH -17: E>-.'0ACT LENGTH TABLE (NO) 7: RANGE (6NO) 17: ALLOWABLE ENTRY (No) 17: 8S4UBSTITLITI4O0N fN4O) 17: JUSTIFICATION (8RI GHT) 17: FILL CHARACTER 17: FLOAT CHARACTER 17: DECIMAL POSITIONS (0) r-4OSITI4ON 17: SIGN fLE4ADI8NG) 17: 0AIJTO CLOSE (YES) 17: ARITHMETIC OPE4R8RTION (NO) 17: AUTO FI! 0L-Ir-j f r,180) 17: NEXT PAGE 0NUrJE,.E0R (NO) 17: BRANCHING (NO) 17: 6AUTO-ItI6C0RErI0E6NT (6NO) 17: OUTPUT TO MEMORY CELL (0N8O) 17: OUTPUT TO lilc* ETTE (YE,@') SK 5. LENGTH IS: TAP STOP (YES) 18: INPUT TYPE (KEYBOARD) 1 P,: 4CH8A4RR0CT2@0R TYPE (DIGIT) Ap 18: SE4CU'r*",ITf' FIELD (NO) 148; 040E0R0RIDE F 0PnP, FIELD (YES) 18: r'!IriIrllJr:l LENGTH (00) 18: EXACT LENGTH T0R4E8LIE (NO) 18: RANGE (NO) IS: 0R4u 4O6W6R0BLE ENTRY (4N8O) 18: SU4BSTITI - ITI0O0N (NO) 18: JUSTIFICATION (RIGHT) 18: FILL CHARACTER 18: FLOAT CHARACTER IS: DECIMAL POSITIONS (40) IS: '31"t-I0N 0Pn- =,ITIO0M (LEADING) 1 .8844 0RLITO CLOSE (YES) 18: ARITHMETIC OPEr-..'0ATION (r-40) 18: 44A0L0IT44O FILL-Ir0l (r-040) 18: r-0iE'--.-',T PAGE 0r-40mr-6J40EE44R (NO) IS: 40E0r_,44A0r-0j44CHIr-JG 6f6r6i40o6) 18: 36A0L4lT44O4-0I36N40C6F-.,Er0j40Et0lT (40NO) 18: OUTPUT TO MEMORY CELL (NO) .1488: OlJTPlJT TO DI449.-',ETTE 6(-I'ES) BIOFORM-06 6. FREQUENCY 19: TAB STOP (YES) 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (DIGIT) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (YES) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (RIGHT) 19: FILL CHARACTER ( ) 19: FLOAT CHARACTER ( ) 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (NO) 19: AUTO-INCREMENT (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKETTE (YES) 6. LENGTH 20: TAB STOP (YES) 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (DIGIT) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUSTIFICATION (RIGHT) 20: FILL CHARACTER ( ) 20: FLOAT CHARACTER ( ) 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (YES) BIOFORM-6 7. FREQUENCY 21: TAB STOP (YES) 21: INPUT TYPE (KEYBOARD) 21: CHARACTER TYPE (DIGIT) 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD (YES) 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (RIGHT) 21: FILL CHARACTER ( ) 21: FLOAT CHARACTER ( ) 21: DECIMAL POSITIONS (0) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (NO) 21: BRANCHING (NO) 21: AUTO-INCREMENT (NO) 21: OUTPUT TO MEMORY CELL (NO) 21: OUTPUT TO DISKETTE (YES) 7. LENGTH 22: TAB STOP (YES) 22: INPUT TYPE (KEYBOARD) 22: CHARACTER TYPE (DIGIT) 22: SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (YES) 22: MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE (NO) 22: ALLOWABLE ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION (RIGHT) 22: FILL CHARACTER ( ) 22: FLOAT CHARACTER ( ) 22: DECIMAL POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING (NO) 22: AUTO-INCREMENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (YES) BI0FORM-06 8. FREQUENCY 23: TAB STOP (YES) 23: INPUT TYPE (KEYBOARD) 23: CHARACTER TYPE (DIGIT) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD (YES) 23: MINIMUM LENGTH (0) 23: EXACT LENGTH TABLE (NO) 23: RANGE (NO) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATION (RIGHT) 23: FILL CHARACTER ( ) 23: FLOAT CHARACTER ( ) 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (NO) 23: BRANCHING (NO) 23: AUTO-INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE (YES) 24: TAB STOP (YES) 24: INPUT TYPE (KEYBOARD) 24: CHARACTER TYPE (DIGIT) 24: SECURITY FIELD (NO) 24: OVERRIDE ERROR FIELD (YES) 24: MINIMUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (NO) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATION (RIGHT) 24: FILL CHARACTER ( ) 24: FLOAT CHARACTER ( ) 24: DECIMAL POSITIONS (0) 24: SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERATION (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE NUMBER (NO) 24: BRANCHING (NO) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (YES) BI0FORM-06 9. FREQUENCY 25: TAB STOP (YES) 25: INPUT TYPE (KEYBOARD) 25: CHARACTER TYPE (DIGIT) 25: SECURITY FIELD (NO) 25: OVERRIDE ERROR FIELD (YES) 25: MINIMUM LENGTH (0) 25: EXACT LENGTH TABLE (NO) 25: RANGE (NO) 25: ALLOWABLE ENTRY (NO) 25: SUBSTITUTION (NO) 25: JUSTIFICATION (RIGHT) 25: FILL CHARACTER ( ) 25: FLOAT CHARACTER ( ) 25: DECIMAL POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (YES) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (NO) 25: BRANCHING (NO) 25: AUTO-INCREMENT (NO) 25: OUTPUT TO MEMORY CELL (NO) 25: OUTPUT TO DISKETTE (YES) 9. LENGTH 26: TAB STOP (YES) 26: INPUT TYPE (KEYBOARD) 26: CHARACTER TYPE (DIGIT) 26: SECURITY FIELD (NO) 26: OVERRIDE ERROR FIELD (YES) 26: MINIMUM LENGTH (NO) 26: EXACT LENGTH TABLE (NO) 26: RANGE (NO) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION (RIGHT) 26: FILL CHARACTER ( ) 26: FLOAT CHARACTER ( ) 26: DECIMAL POSITIONS (0) 26: SIGN POSITION (LEADING) 26: AUTO CLOSE (YES) 26: ARITHMETIC OPERATION (NO) 26: AUTO FILL-IN (NO) 26: NEXT PAGE NUMBER (NO) 26: BRANCHING (NO) 26: AUTO-INCREMENT (NO) 26: 0UTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (YES) BIOFORM-06 10.FREQUENCY 27: TAP STOP (YES) 27: INPUT TYPE (KEYBOARD) 27: CHARACTER TYPE (DIGIT) 27: SECURITY FIELD (NO) 27: 0VERRIDE ERROR FIELD (YES) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (NO) 27: RANGE (N0) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTICATION (RIGHT) 27: FILL CHARACTER ( ) 27: FLOAT CHARACTER ( ) 27: DECIMAL POSITIONS (0) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE NUMBER (NO) 27: BRANCHING (NO) 27: AUTO-INCREMENT (NO) 27: OUTPUT TO MEMORY CELL (NO) 27: OUTPUT TO DISKETTE (YES) 10. LENGTH 28: TAB STOP (YES) 28: INPUT TYPE (KEYBOARD) 28: CHARACTER TYPE (DIGIT) 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD (YES) 28: MINIMUM LENGTH LENGTH TABLE (0) 28: EXACT LENGTH TABLE (NO) 28: RANGE (NO) 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTICATION (RIGHT) 28: FILL CHARACTER ( ) 28: FLOAT CHARACTER 28: DECIMAL POSITIONS (0) 28: SIGN POSITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER 28: BRANCHING (N0) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL (NO) 28: OUTPUT TO DISKETTE (YES) BIOFORM-06 11. FREQUENCY 29: TAB STOP (YES) 29: INPUT TYPE (KEYBOARD) 29: CHARACTER TYPE (DIGIT) 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (YES) 29: MINIMUM LENGTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (RIGHT) 29: FILL CHARACTER ( ) 29: FLOAT CHARACTER ( ) 29: DECIMAL POSITIONS (NO) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE NUMBER (NO) 29: BRANCHING (NO) 29: AUTO-INCREMENNT (NO) 29: OUTPUT TO MEMORY CELL(N0) 29: OUTPUT TO DISKETTE (YES) 11. LENGTH 30: TAB STOP (YES) 30: INPUT TYPE (KEYBOARD) 30: CHARACTER TYPE (DIGIT) 30: SECURITY FIELD(NO) 30: OVERRIDE ERROR FIELD (YES) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE (NO) 30: RANGE (NO) 30: ALLOWABLE ENTRY (NO) 30: SUBSTITUTION (NO) 30: FILL CHARACTER ( ) 30: JUSTIFICATION (RIGHT) 30: FILL CHARACTER ( ) 30: FLOAT CHARACTER ( ) 30: DECIMAL POSITIONS (0) 30: SIGN POSITION (LEADING) 30: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (NO) 30: BRANCHING (NO) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO MEMORY CELL (NO) 30: OUTPUT TO DISKETT (YES) BIOFORM-06 31: TAB STOP (YES) FREQUENCY 31: INPUT TYPE (KEYBOARD) 31: CHARATER TYPE (DIGIT) 31: SECURITY FIELD (NO) 31: 0VERRIDE ERROR FIELD (YES) 31: MINIMUM LENGTH (0) 31: EXACT LENGTH TABLE (NO) 31: RANGE (NO) 31: ALLOWABLE ENTRY (N0) 31: SUBSTITUTION (NO) 31: JUSTIFICATION (RIGHT) 31: FILL CHARACTER ( ) 31: FLOAT CHARACTER ( ) 31: DECIMAL POSITIONS (0) 31: SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE NUMBER (NO) 31: BRANCHING (N0) 31: AUTO-INCREMENT (NO) 31: OUTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (YES) 12. LENGTH 32: TAB STOP (YES) 32: INPUT TYPE (KEYBOARD) 32: CHARACTER TYPE (DIGIT) 32: SECURITY FIELD (NO) 32: 0VERRRIDE ERROR FIELD (YES) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE (NO) 32: ALLOWABLE ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTIFICATION (RIGHT) 32: FILL CHARACTER ( ) 32: FLOAT CHARACTER ( ) 32: DECIMAL POSITIONS (0) 32: SIGN POSITION (LEADING), 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL-IN (NO) 32: NEXT PAGE NUMBER (NO) 32: BRANCHING (NO) 32: AUTO INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32: OUTPUT TO DISKETTE (YES) BIOFORM-06 13. FREQUENCY 33: TAB STOP (YES) 33: INPUT TYPE (KEYBOARD) 33: CHARACTER TYPE (DIGIT) 33: SECURITY FIELD (NO) 33: OVERRIDE ERROR FIELD (YES) 33: MINIMUM LENGTH (N0) 33: EXACT LENGTH TABLE (NO) 33: RANGE (NO) 33: ALLOWABLE ENTRY (NO) 33: SUBSTITUTION (N0) 33: JUSTIFICATION (RIGHT) 33: FILL CHARACTER ( ) 33: FLOAT CHARACTER ( ) 33: DECIMAL POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE (YES) 33: ARITHMETIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (NO) 33: BRANCHING (NO) 33: AUTO-INCREMENT (NO) 33: OUTPUT TO MEMORY CELL (NO) 33: OUTPUT TO DISKETTE (YES) 13. LENGTH 34: TAB STOP (YES) 34: INPUT TYPE (KEYBOARD) 34: CHARACTER TYPE (DIGIT) 34: SECURITY FIELD (NO) 34: OVERRIDE ERROR FIELD (YES) 34: MINIMUM LENGTH (0) 34: EXACT LENGTH TABLE (NO) 34: RANGE (NO) 34: ALLOWABLE ENTRY (NO) 34: SUBSTITUTION (NO) 34: JUSTIFICATION (RIGHT) 34: FILL CHARACTER ( ) 34: FLOAT CHARACTER ( ) 34: DECIMAL POSITIONS (0) 34: SIGN POSITION (LEADING) 34: AUTO CLOSE (YES) 34: ARITHMETIC OPERATION (NO) 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (NO) 34: BRANCHING (NO) 34: AUTO-INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT TO DISKETTE (YES) BIOFORM-06 14. FREQUENCY 35: TAB STOP (YES) 35: INPUT TYPE (KEYBOARD) 35: CHARACTER TYPE (DIGIT) 35: SECURITY FIELD (NO) 35: OVERRIDE ERROR FIELD (YES) 35: MINIMUM LENGTH (0) 35: EXACT LENGTH TABLE (NO) 35: RANGE (NO) 35: ALLOWABLE ENTRY (NO) 35: SUBSTITUTION (NO) 35: JUSTIFICATION (RIGHT) 35: FILL CHARACTER ( ) 35: FLOAT CHARACTER ( ) 35: DECIMAL POSITIONS (0) 35: SIGN POSITION (LEADING) 35: AUTO CLOSE (YES) 35: ARITHMETIC OPERATION (NO) 35: AUTO FILL-IN (NO) 35: NEXT PAGE NUMBER (NO) 35: BRANCHING (NO) 35: AUTO-INCREMENT (NO) 35: OUTPUT TO MOMORY CELL (NO) 35: OUTPUT TO DISKETTE (YES) 14. LENGTH 36: TAB STOP (YES) 36: INPUT TYPE (KEYBOARD) 36: CHARACTER TYPE (DIGIT) 36: SECURITY FIELD (NO) 36: OVERRIDE ERROR FIELD (YES) 36: MINIMUM LENGTH (0) 36: EXACT LENGTH TABLE (NO) 36: RANGE (NO) 36: ALLOWABLE ENTRY (N0) 36: SUBSTITUTION (NO) 36: JUSTIFICATION (RIGHT) 36: FILL CHARACTER ( ) 36: FLOAT CHARACTER ( ) 36: DECIMAL POSITIONS (0) 36: SIGN POSITION (LEADING) 36: AUTO CLOSE (YES) 36: ARITHMETIC OPERATION (NO) 36: AUTO FILL-IN (NO) 36: NEXT PAGE NUMBER (NO) 36: BRANCHING (NO) 36: AUTO-INCREMENT (NO) 36: OUTPUT TO MEMORY CELL (NO) 36: OUTPUT TO DISKETTE (YES) BIOFORM-06 FILL 37: TAB STOP (YES) 37: INPUT TYPE (CONSTANT: ) 37: CHARACTER TYPE (PRINTABLE) 37: SECURITY FIELD (NO) 37: OVERRIDE ERROR FIELD (NO) 37: MINIMUM LENGTH (0) 37: EXACT LENGTH TABLE (NO) 37: RANGE (NO) 37: ALLOWABLE ENTRY (NO) 37: SUBSTITUTION (NO) 37: JUSTIFICATION (LEFT) 37: FILL CHARACTER ( ) 37: FLOAT CHARACTER ( ) 37: DECIMAL POSITIONS (0) 37: SIGN POSITION (LEADING) 37: AUTO CLOSE (YES) 37: ARITHMETIC OPERATION (NO) 37: AUTO FILL-IN (NO) 37: NEXT PAGE NUMBER (NO) 37: BRANCHING (NO) 37: AUTO-INCREMENT (NO) 37: OUTPUT TO MEMORY CELL (NO) 37: OUTPUT TO DISKETTE (YES) LOAD RECORD TYPE: 38: TAB STOP (YES) ONE 38: INPUT TYPE (KEYBOARD) 38: CHARACTER TYPE (PRINTABLE) 38: SECURITY FIELD (NO) 38: OVERRIDE ERROR FIELD (NO) 38: MINIMUM LENGTH (0) 38: EXACT LENGTH TABLE (NO) 38: RANGE (NO) 38: ALLOWABLE ENTRY (NO) 38: SUBSTITUTION (NO) 38: JUSTIFICATION (LEFT) 38: FILL CHARACTER ( ) 38: FLOAT CHARACTER ( ) 38: DECIMAL POSITIONS (0) 38: SIGN POSITION (LEADING) 38: AUTO CLOSE (YES) 38: ARITHMETIC OPERATION (NO) 38: AUTO FILL-IN (NO) 38: NEXT PAGE NUMBER (YES-PAGE 1) 38: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 38: AUTO-INCREMENT (NO) 38: OUTPUT TO MEMORY CELL (NO) 38: OUTPUT TO DISKETTE (NO) BIOFORM-06 LOAD 39: TAB STOP (YES) RECORD TYPE: 39: INPUT TYPE (KEYBOARD) TWO 39: CHARACTER TYPE (PRINTABLE) 39: SECURITY FIELD (NO) 39: OVERRIDE ERROR FIELD (NO) 39: MINIMUM LENGTH (0) 39: EXACT LENGTH TABLE (NO) 39: RANGE (NO) 39: ALLOWABLE ENTRY (NO) 39: SUBSTITUTION (NO) 39: JUSTIFICATION (LEFT) 39: FILL CHARACTER ( ) 39: FLOAT CHARACTER ( ) 39: DECIMAL POSITIONS (0) 39: SIGN POSITION (LEADING) 39: AUTO CLOSE (YES) 39: ARITHMETIC OPERATION (NO) 39: AUTO FILL-IN (NO) 39: NEXT PAGE NUMBER (YES - PAGE 2) 39: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 39: AUTO-INCREMENT (NO) 39: OUTPUT TO MEMORY CELL (NO) 39: OUTPUT TO DISKETTE (NO) LOAD 40: TAB STOP (YES) RECORD TYPE: 40: INPUT TYPE (KEYBOARD) THREE 40: CHARACTER TYPE (PRINTABLE) 40: SECURITY FIELD (NO) 40: OVERRIDE ERROR FIELD (NO) 40: MINIMUM LENGTH (0) 40: EXACT LENGTH TABLE (NO) 40: RANGE (NO) 40: ALLOWABLE ENTRY (NO) 40: SUBSTITUTION (NO) 40: JUSTIFICATION (LEFT) 40: FILL CHARACTER ( ) 40: FLOAT CHARACTER ( ) 40: DECIMAL POSITIONS (0) 40: SIGN POSITION (LEADING) 40: AUTO CLOSE (YES) 40: ARITHMETIC OPERATION (NO) 40: AUTO FILL-IN (NO) 40: NEXT PAGE NUMBER (YES - PAGE 3) 40: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 40: AUTO-INCREMENT (NO) 40: OUTPUT TO MEMORY CELL (NO) 40: OUTPUT TO DISKETTE (NO) BIOFORM-06 LOAD 41: TAB STOP (YES) RECORD TYPE: 41: INPUT TYPE (KEYBOARD) FOUR 41: CHARACTER TYPE (PRINTABLE) 41: SECURITY FIELD (NO) 41: OVERRIDE ERROR FIELD (NO) 41: MINIMUM LENGTH (0) 41: EXACT LENGTH TABLE (NO) 41: RANGE (NO) 41: ALLOWABLE ENTRY (NO) 41: SUBSTITUTION (NO) 41: JUSTIFICATION (LEFT) 41: FILL CHARACTER ( ) 41: FLOAT CHARACTER ( ) 41: DECIMAL POSITIONS (0) 41: SIGN POSITION (LEADING) 41: AUTO CLOSE (YES) 41: ARITHMETIC OPERATION (NO) 41: AUTO FILL-IN (NO) 41: NEXT PAGE NUMBER (YES - PAGE 4) 41: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY YES - RAM: X;)) 41: AUTO-INCREMENT (NO) 41: OUTPUT TO MEMORY CELL (NO) 41: OUTPUT TO DISKETTE (NO) LOAD 42: TAB STOP (YES) RECORD TYPE: 42: INPUT TYPE (KEYBOARD) FIVE 42: CHARACTER TYPE (PRINTABLE) 42: SECURITY FIELD (NO) 42: OVERRIDE ERROR FIELD (NO) 42: MINIMUM LENGTH (0) 42: EXACT LENGTH TABLE (NO) 42: RANGE (NO) 42: ALLOWABLE ENTRY (NO) 42: SUBSTITUTION (NO) 42: JUSTIFICATION (LEFT) 42: FILL CHARACTER ( ) 42: FLOAT CHARACTER ( ) 42: DECIMAL POSITIONS (0) 42: SIGN POSITION (LEADING) 42: AUTO CLOSE (YES) 42: ARITHMETIC OPERATION (NO) 42: AUTO FILL-IN (NO) 42: NEXT PAGE NUMBER (YES - PAGE 5) 42: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCHING: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 42: AUTO-INCREMENT (NO) 42: OUTPUT TO MEMORY CELL (NO) 42: OUTPUT TO DISKETTE (NO) BIOFORM-06 LOAD 43: TAB STOP (YES) RECORD TYPE: 43: INPUT TYPE (KEYBOARD) SIX 43: CHARACTER TYPE (PRINTABLE) 43: SECURITY FIELD (NO) 43: OVERRIDE ERROR FIELD (NO) 43: MINIMUM LENGTH (0) 43: EXACT LENGTH TABLE (NO) 43: RANGE (NO) 43: ALLOWABLE ENTRY (NO) 43: SUBSTITUTION (NO) 43: JUSTIFICATION (LEFT) 43: FILL CHARACTER ( ) 43: FLOAT CHARACTER ( ) 43: DECIMAL POSITIONS (0) 43: SIGN POSITION (LEADING) 43: AUTO CLOSE (YES) 43: ARITHMETIC OPERATION (NO) 43: AUTO FILL-IN (NO) 43: NEXT PAGE NUMBER (YES-PAGE 6) 43: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 43: AUTO-INCREMENT (NO) 43: OUTPUT TO MEMORY CELL (NO) 43: OUTPUT TO DISKETTE (NO) LOAD 44: TAB STOP (YES) RECORD TYPE: 44: INPUT TYPE (KEYBOARD) SEVEN 44: CHARACTER TYPE (PRINTABLE) 44: SECURITY FIELD (NO) 44: OVERRIDE ERROR FIELD (NO) 44: MINIMUM LENGTH (0) 44: EXACT LENGTH TABLE (N0) 44: RANGE (NO) 44: ALLOWABLE ENTRY (NO) 44: SUBSTITUTION (NO) 44: JUSTIFICATION (LEFT) 44: FILL CHARACTER ( ) 44: FLOAT CHARACTER ( ) 44: DECIMAL POSITIONS (0) 44: SIGN POSITION (LEADING) 44: AUTO CLOSE (YES) 44: ARITHMETIC OPERATION (NO) 44: AUTO FILL-IN (NO) 44: NEXT PAGE NUMBER (YES-PAGE2) 44: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 44: AUTO-INCREMENT (NO) 44: OUTPUT TO MEMORY CELL (NO) 44: OUTPUT TO DISKETTE (N0) BIOFORM-06 LOAD 45: TAB STOP (YES) RECORD TYPE: 45: INPUT TYPE (KEYBOARD) EIGHT 45: CHARACTER TYPE (PRINTABLE) 45: SECURITY FIELD (NO) 45: OVERRIDE ERROR FIELD (NO) 45: MINIMUM LENGTH (0) 45: EXACT LENGTH TABLE (N0) 45: RANGE (NO) 45: ALLOWABLE ENTRY (NO) 45: SUBSTITUTION (NO) 45: JUSTIFICATION (LEFT) 45: FILL CHARACTER ( ) 45: FLOAT CHARACTER ( ) 45: DECIMAL POSITIONS (0) 45: SIGN POSITION (LEADING) 45: AUTO CLOSE (YES) 45: ARITHMETIC OPERATION (N0) 45: AUTO FILL-IN (NO) 45: NEXT PAGE NUMBER (N0) 45: BRANCHING (N0) 45: AUTO-INCREMENT (NO) 45: OUTPUT TO MEMORY CELL (NO) 45: OUTPUT TO DISKETTE (NO) LOAD 46: TAB STOP (YES) RECORD TYPE: 46: INPUT TYPE (KEYBOARD) NINE 46: CHARACTER TYPE (PRINTABLE) 46: SECURITY FIELD (NO) 46: OVERRIDE ERROR FIELD (NO) 46: MINIMUM LENGTH (0) 46: EXACT LENGTH TABLE (NO) 46: RANGE (NO) 46: ALLOWABLE ENTRY (NO) 46: SUBSTITUTION (NO) 46: JUSTIFICATION (LEFT) 46: FILL CHARACTER ( ) 46: FLOAT CHARACTER ( ) 46: DECIMAL POSITIONS (0) 46: SIGN POSITION (LEADING) 46: AUTO CLOSE (YES) 46: ARITHMETIC OPERATION (NO) 46: AUTO FILL-IN (NO) 46: NEXT PAGE NUMBER (YES-PAGE 8) 46: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 46: AUTO-INCREMENT (N0) 46: OUTPUT TO MEMORY CELL (NO) 46: OUTPUT TO DISKETTE (NO) APPENDIX B-2: BIOFORM-07 LAYOUT FILE BIOLOGICAL DATA-SHORT FORM FORM PAGE 07 ACTION FIELD< RECORD TYPE< SEQUENCE NO: YEAR<< COLLECTION NO<<<<< REPLICATE<< SPICIES<<<<<<<<<<<< STATUS< FIRST LINE NO <<< 01: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 02: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 03: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 04: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 05: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 06: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 07: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 08: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 09: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 10: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< 11: FREQUENCY<<< LENGTH<<<< SEX< MATURITY< FILL<<<< -------------------LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X'--------- ONE< TWO< THREE< FOUR< FIVE< SIX< SEVEN< EIGHT< NINE< BIOFORM-07 ATTRIBUTES TAB STOP (YES) ACTION 1: INPUT TYPE (KEYBOARD-CONSTANT:) FIELD 1: CHARACTER TYPE (ALPHA) 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE (NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE: ACTION) 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 7) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: OUTPUT TO DISKETTE (YES) BIOFORM-07 SEQUENCE 3: TAB '-:.TOP (YES) NO: YEAR 3: INPUT TYPE (MEMORY CELL 3: CHARACTER TYPE. (PRINTABLE) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (NO) 3: RANGE (NO) 3: ALLOWABLE ENTRY(NO) 3: SUBSTITUTION (NO) 3: JUSTIFlCATION (LEFT) 3: FILL CHARACTER 3: FLOAT CHARACTER 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN(NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (N0) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL (NO) 3: OUTPUT TO DISKETTE (YES) COLLECTION 4: TAB STOP (YES) NO 4: INPUT TYPE (MEMORY CELL #2) 4: CHARACTER TYPE (PRINTABLE) 4: SECURITY FIELD (NO) 4: 0VERRIDE ERROR FIELD (N0) 4: MINIMUN LENGTH (0) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (LEFT) 4: FILL CHARACTER ( ) 4: FLOAT CHARACTER ( ) 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC 0PERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (NO) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (NO) 4: OUTPUT TO DISKETTE (YES) BIOFORM-07 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (MEMORY CELL #3) 5: CHARACTER TYPE (PRINTABLE) 5: SECURITY FIELD (N0) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (0) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (LEFT) 5: FILL CHARACTER ( ) 5: FLOAT CHARACTER ( ) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (NO) 5: NEXT PAGE HUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (NO) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (MEMORY CELL # 4) 6: CHARACTER TYPE (PRINTABLE) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENGTH (0) 6: EXACT LENGTH TABLE (NO) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT) 6: FILL CHARACTER 6: FLOAT CHARACTER 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (N0) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO INCREMENT (NO) 6: OUTPUT To MEMORY CELL (NO) 6: OUTPUT TO DISKETTE (YES) BIOFORM-07 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (MEMORY CELL #5) 7: CHARACTER TYPE (PRINTABLE) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (1) 7: EXACT LENGTH TABLE (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (NO) 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER ( ) 7: FLOAT CHARACTER ( ) 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7: BRANCHING (NO) 7: AUTO-INCREMENT (NO) 7: 0UTPUT TO MEMORY CELL (NO) 7: OUTPUT TO DISKETTE (YES) FIRST 8: TAB STOP (YES) LINE NO 8: INPUT TYPE (KEYBOARD-CONSTANT: 001) 8: CHARACTER TYPE (DIGIT) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (O) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY(NO) 8: SUBSTITUTION (NO) 8: JUSTIFICATION (RIGHT) 8: FILL CHARACTER- (0) 8: FLOAT CHARACTER (0) 8: DECIMAL POSITIONS (0) 8: SIGN POSITION (LEADING) 8: AUTO CLOSE (YES) 8: ARITHMETIC OPERATION (NO) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: OUTPUT TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM-07 01. FREQUENCY 9: TAB STOP (YES) 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE ( DIGIT) 9: SECURITY FILED (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (O) 9: EXACT LENGTH TABLE (NO) 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (NO) 9: JUSTIFICATION (RIGHT) 9: FILL CHARACTER ( ) 9: FLOAT CHARACTER ( ) 9: DECIMAL POSITIONS (0) 9: SIGN-POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER, (NO), 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: 0UTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE (YES) 01. LENGTH 10: TAP STOP (YES) 10: INPUT TYPE (KEYBOARD) AV 10: CHARACTER TYPE (DIGIT) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (NO) 10: MINIMUM LENGTH (0) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (NO) 10: JUSTIFICATION (RIGHT) 10: FILL CHARACTER ( ) 10: FLOAT CHARACTER ( ) 10: DECIMAL POSITIONS (0) 10: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE HUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT TO DISKETTE (YES) BIOFORM-07 01. SEX 11. TAB STOP (YES) 11. INPUT TYPE (KEYBOARD) 11. CHARACTER TYPE )DIGIT) 11. SECURITY FIELD (NO) 11. OVERRIDE ERROR FIELD (YES) 11. MINIMUM LENGTH (0) 11. EXACT LENGTH TABLE (NO) 11. RANGE (NO) 11. ALLOWABLE ENTRY (NO) 11. SUBSTITUTION (NO) 11. JUSTIFICATION (LEFT) 11. FILL CHARACTER () 11. FLOAT CHARACTER () 11. DECIMAL POSITIONS (0) 11. SIGN POSITION (LEADING) 11. AUTO CLOSE (YES) 11. ARITHMETIC OPERATION (NO) 11. AUTO FILL-IN (NO) 11. NEXT PAGE NUMBER (NO) 11. BRANCHING (NO) 11. AUTO-INCREMENT (NO) 11. OUTPUT TO MEMORY CELL (NO) 11. OUTPUT OT DISKETTE (YES) 01. MATURITY 12. TAB STOP (YES) 12. INPUT TYPE (KEYBOARD) 12. CHARACTER TYPE (DIGIT) 12. SECURITY FIELD (NO) 12. OVERRIDE ERROR FIELD (YES) 12. MINIMUM LENGTH (0) 12. EXACT LENGTH TABLE (NO) 12. RANGE (NO) 12. ALLOWABLE ENTRY (NO) 12. SUBSTITUTION (NO) 12. JUSTIFICATION (LEFT) 12. FILL CHARACTER () 12. FLOAT CHARACTER () 12. DECIMAL POSITIONS (0) 12. SIGN POSITION (LEADING) 12. AUTO CLOSE (YES) 12. ARITHMETIC OPERATION (NO) 12. AUTO FILL-IN (NO) 12. NEXT PAGE NUMBER (NO) 12. BRANCHING (NO) 12. AUTO-INCREMENT (NO) 12. OUTPUT TO MEMORY CELL (NO) 12. OUTPUT TO DISKETTE (YES) BI0FORM-07 02. FREQUENCY 13: TAB STOP (YES) 13: INPUT TYPE (KEYBOARD) 13: CHARACTER TYPE (DIGIT) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD (YES) 13: MINIMUM LENGTH (0) 13: EXACT LENGTH TABLE (NO) 13: RANGE (NO) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (NO) 13: JUSTIFICATION (RIGHT) 13: FILL CHARACTER () 13: FLOAT CHARACTER () 13: DECIMAL POSITIONS (0) 13: SIGN POSTION (LEADING) 13: AUTO CLOSE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORY CELL (NO) 13: OUTPUT TO DISKETTE (YES) 02. LENGTH 14: TAB STOP (YES) 14: INPUT TYPE (KEYBOARD) 14: CHARACTER TYPE (DIGIT) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (NO) 14: MINIMUM LENGTH (O) 14: EXACT LENGTH TABLE (NO) 14: RANGE (NO) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION (NO) 14: JUSTIFICATION (RIGHT) 14: FILL CHARACTER () 14: FLOAT CHARACTER () 14: DECIMAL POSITIONS (O) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT TO MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM-07 02. SEX 15: TAB STOP (YES) 15: INPUT TYPE (KEYBOARD) 15: CHARACTER TYPE (DIGIT) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELD (YES) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (NO) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER () 15: FLOAT CHARACTER () 15: DECIMAL POSITIONS (0) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (NO) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORAY CELL (NO) 15: OUTPUT TO DISKETTE (YES) 02. MATURITY 16: TAB STOP (YES) 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE (DIGIT) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (LEFT) 16: FILL CHARACTER () 16: FLOAT CHARACTER () 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM-07 03.FREQUENCY 17: TAB STOP (YES) 17: INPUT TYPE (KEYBOARD) 17: CHARACTER TYPE (DIGIT) 17: SECURITY FIELD (NO) 17: OVERRIDE ERROR FIELD (YES) 17: MINIMUN LENGHT (0) 17: EXACT LENGTH TABLE (NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL CHARACTER () 17: FLOAT CHARACTER () 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO CLOSE (YES) 17: ARITHMETIC OPERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (NO) 17: AUTO-INCREMENT (NO) 17: OUTPUT TO MEMORY CELL (NO) 17: OUTPUT TO DISKETTE (YES) 03. LENGTH 18. TAB STOP (YES) 18. INPUT TYPE (KEYBOARD) 18. CHARACTER TYPE (DIGIT) 18. SECURITY FIELD (NO) 18. OVERRIDE ERROR FIELD (NO) 18. MINIMUM LENGTH (0) 18. EXACT LENGTH TABLE (NO) 18. RANGE (NO) 18. ALLOWABLE ENTRY (NO) 18. SUBSTITUTION (NO) 18. JUSTIFICATION (RIGHT) 18. FILL CHARACTER () 18. FLOAT CHARACTER () 18. DECIMAL POSITIONS (0) 18. SIGN POSITION (LEADING) 18. AUTO CLOSE (YES) 18. ARITHMETIC OPERATION (NO) 18. AUTO FILL-IN (NO) 18. NEXT PAGE NUMBER (NO) 18. BRANCHING (NO) 18. AUTO-INCREMENT (NO) 18. OUTPUT TO MEMORY CELL (NO) 18. OUTPUT TO DISKETTE (YES) BIOFORM-07 03. SEX 19: TAB STOP (YES) 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (DIGIT) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (YES) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (LEFT) 19: FILL CHARACTER ( ) 19: FLOAT CHARACTER ( ) 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (NO) 19: AUTO-INCREMENT (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKETTE (YES) 03. MATURITY 20: TAB STOP (YES) 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (DIGIT) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUSTIFICATION (LEFT) 20: FILL CHARACTER ( ) 20: FLOAT CHARACTER ( ) 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (YES) BIOFORM-07 04. FREQUENCY 21: TAB STOP (YES) 21: INPUT TYPE (KEYBOARD) 21: CHARACTER TYPE (DIGIT) 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD (YES) 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (RIGHT) 21: FILL CHARACTER ( ) 21: FLOAT CHARACTER ( ) 21: DECIMAL POSITIONS (0) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (NO) 21: BRANCHING (NO) 21: AUTO-INCREMENT (NO) 21: OUTPUT TO MEMORY CELL (NO) 21: OUTPUT TO DISKETTE (YES) 04. LENGTH 22: TAB STOP (YES) 22: INPUT TYPE (KEYBOARD) 22: CHARACTER TYPE (DIGIT) 22: SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (NO) 22: MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE (NO) 22: ALLOWABLE ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION (RIGHT) 22: FILL CHARACTER ( ) 22: FLOAT CHARACTER ( ) 22: DECIMAL POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING (NO) 22: AUTO-INCREMENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (YES) BIOFORM-07 04. SEX 23: TAB STOP (YES) 23: INPUT TYPE (KEYBOARD) 23: CHARACTER TYPE (DIGIT) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD (YES) 23: MINIMUM LENGTH (0) 23: EXACT LENGTH TABLE (NO) 23: RANGE (NO) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATION (LEFT) 23: FILL CHARACTER ( ) 23: FLOAT CHARACTER ( ) 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (NO) 23: BRANCHING (NO) 23: AUTO-INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE (YES) 04: MATURITY 24: TAB STOP (YES) 24: INPUT TYPE (KEYBOARD) 24: CHARACTER TYPE (DIGIT) 24: SECURITY FIELD (NO) 24: OVERRIDE ERROR FIELD (YES) 24: MINIMUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (NO) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATION (LEFT) 24: FILL CHARACTER ( ) 24: FLOAT CHARACTER ( ) 24: DECIMAL POSITIONS (0) 24: SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERATION (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE NUMBER (NO) 24: BRANCHING (NO) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (YES) BIOFORM-07 25: TAB STOP (YES) 05. FREQUENCY 25: INPUT TYPE (KEYBOARD) 25: CHARACTER TYPE (DIGIT) 25: SECURITY FIELD (NO) 25: OVERRIDE ERROR FIELD (YES) 25: MINIMUM LENGTH (0) 25: EXACT LENGTH TABLE (NO) 25: RANGE (NO) 25: ALLOWABLE ENTRY (NO) 25: SUBSTITUTION (NO) 25: JUSTIFICATION (RIGHT) 25: FILL CHARACTER ( ) 25: FLOAT CHARACTER ( ) 25: DECIMAL POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (YES) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (NO) 25: BRANCHING (NO) 25: AUTO-INCREMENT (NO) 25: OUTPUT TO MEMORY CELL (NO) 25: OUTPUT TO DISKETTE (YES) 05. LENGTH 26: TAB STOP (YES) 26: INPUT TYPE (KEYBOARD) 26: CHARACTER TYPE (DIGIT) 26: SECURITY FIELD (NO) 26: OVERRIDE ERROR FIELD (NO) 26: MINIMUM LENGTH (0) 26: EXACT LENGTH TABLE (NO) 26: RANGE (NO) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION (RIGHT) 26: FILL CHARACTER ( ) 26: FLOAT CHARACTER ( ) 26: DECIMAL POSITIONS (0) 26: SIGN POSITION (LEADING) 26: AUTO CLOSE (YES) 26: ARITHMETIC OPERATION (NO) 26: AUTO FILL-IN (NO) 26: NEXT PAGE NUMBER (NO) 26: BRANCHING (NO) 26: AUTO-INCREMENT (NO) 26: OUTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (YES) B10FORM-07 05- SEX 27: TAB STOP (YES) 27: INPUT TYPE (KEYBOARD) 27: CHARACTER TYPE (DIGIT) 27: SECURITY FIELD (NO) 27: OVERRIDE ERROR, FIELD (YES) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (N0) 27: RANGE (NO) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTIFICATION (LEFT) 27: FILL CHARACTER ( ) 27: FLOAT CHARACTER ( ) 27: DECIMAL POSITIONS (0) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE NUMBER (NO) 27: BRANCHING (NO) 27: AUTO-INCREMENT (NO) 27: OUTPUT TO MEMORY CELL (NO) 27: OUTPUT TO DISKETTE (YES) 05. MATURITY 28: TAB STOP (YES) 28: INPUT TYPE (KEYBOARD) 28: CHARACTER TYPE (DIGIT) 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD (YES) 28: MINIMUM LENGTH TABLE ( ) 28: EXACT LENGTH TABLE (NO) 28: RANGE (NO) Y 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTIFICATION (LEFT) 28: FILL CHARACTER ( ) 28: FLOAT CHARACTER( ) 28: DECIMAL POSITIONS (0) 28: SIGN POSITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER (NO) 28: BRANCHING (NO) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL (NO) 28: OUTPUT TO DISKETTE (YES) B10FORM-07 06.FREQUENCY 29: TAB STOP (YES) 29: INPUT TYPE 29: CHARACTER TYPE. (DIGIT) 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (YES) 29: MINIMUM LENTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (RIGHT) 29: PILL CHARACTER 29: FLOAT CHARACTER ( ) 29: DECIMAL POSITIONS (0) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE NUMBER (NO) 29: BRANCHING (No) 29: AUTO- INCREMENT (NO) 29: OUTPUT TO MEMORY CELL_ (NO) 29: OUTPUT TO DISKETTE (YES) 30: TAP STOP (YES) 06. LENGTH 30: INPUT TYPE (KEYBOARD) A. CHARACTER TYPE (DIGIT) 30: SECURITY FIELD (NO) SEEN OVERRIDE ERROR FIELD (NO) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE (NO) 30: RANGE (NO) 30: ALLOWABLE ENTRY (NO) 30: SUBSTITUTION (NO) 30: JUSTIFICATION (RIGHT) 30: FILL CHARACTER 30: FLOAT CHARACTER 30: DECIMAL POSITIONS (0) 30: SIGN POSITION (LEADING) 3O: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (NO) 30: BRANCHING (NO) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO. MEMORY CELL (NO) 30: OUTPUT TO DISKETTE (YES) BIOFORM-07 06. SEX 31: TAB -STOP (YES) I INPUT TYPE (KEYBOARD) 31: CHARACTER TYPE (DIGIT) 31: SECURITY FIELD (NO) 31: OVERRIDE ERROR FIELD (YES) 31: MINIMUM LENGTH (O) 31: EXACT LENGTH TABLE (O) 31: RANGE (NO) 31: ALLOWABLE ENTRY (NO) 31: SUBSTITUTION (NO) 31: JUSTIFICATION (LEFT) 31: FILL CHARACTER ( ) 31: FLOAT CHARACTER ( ) 31: DECIMAL POSITIONS ( ) 31: SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE NUMBER (NO) 31: BRANCHING (NO) 31: AUTO-INCREMENT (NO) 31: 0UTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (YES) 32: TAB STOP (YES) 06. MATURITY 32: INPUT TYPE (KEYBOARD) A 32: CHARACTER TYPE (DIGIT) 32: SECURITY FIELD (NO) 32: OVERRIDE ERROR FIELD (YES) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE (NO) 32: ALLOWABLE ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTIFICATION (LEFT) 32: FILL CHARACTER ( ) 32: FLOAT CHARACTER ( ) 32: DECIMAL POSITIONS (0) 32: SIGN POSTION (LEADING) 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL-IN (NO) 32: NEXT PAGE NUMBER (NO) 32: BRANCHING (NO) 32: AUTO-INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32: OUTPUT OT DISKETTE (YES) BIOFORM-107 07. FREQUENCY 33: TAB STOP (YES) 33: INPUT TYPE 33: CHARACTER TYPE (DIGIT) 33: SECURITY FIELD (NO) 33: OVERRIDE FIELD (YES) 33: MINIMUM LENGTH 33: EXECT LENGTH TABLE (NO) 33: RANGE (NO) 33: SUBSTITUTION (NO) 33: JUSTIFICATION (RIGHT) 33: FILL CHARACTER ( ) 33: FLOAT CHARACTER ( ) 33: DECIMAL POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE (YES) 33: ARITHMATIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (NO) 33: BRANCHING (NO) 33: AUTO-INCREMENT (NO) 33: OUTPUT IN MEMORY CELL (NO) 33: OUTPUT TO DISKETTE (YES) 07. LENGTH 34: TAB STOP (YES) 34: INPUT TYPE (KEYBOARD) 34: CHARACTER TYPE (DIGIT) 34: SECURITY FIELD 34: OVERRIDE ERROE FIELD (NO) 34: MINUMUM LENGTH (0) 34: EXACT LENGTH TABLE (NO) 34: RANGE (NO) 34: ALLOWABLE ENTRY (NO) 34: SUBSTITUTION (NO) 34: JUSTIFICATION (RIGHT) 34: FILL CHARACTER () 34: FLOAT CHARACTER () 34: DECIMAL POSITIONS (0) 34: SIGN POSITION (LEADING) 34: AUTO CLOSE (YES) 34: ARITHMATIC OPERATION (NO) 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (NO) 34: BRANCHING (NO) 34: AUTO-INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT T6O DISKETTE (YES) BIOFORH-07 07. SEX 35: TAB STOP (YES) 35: INPUT TYPE (KEYBOARD) 35: CHARACTER TYPE (DIGIT) 35: SECURITY FIELD (NO) 35: OVERRIDE ERROR FIELD (YES) 35: MINIMUM LENGTH (0) 35: EXACT LENGTH TABLE (NO) 35: RANGE (NO) 35: ALLOWABLE ENTRY (NO) 35: SUBSTITUTION (N0) 35: JUSTIFICATION (LEFT) 35: FILL CHARACTER ( ) 35: FLOAT CHARACTER ( ) 35: DECIMAL POSITIONS (0) 35: SIGN POSITION (LEADING) 35: AUTO CLOSE (YES) 35: ARITHMETIC OPERATION (NO) 35: AUTO FILL-IN (NO) 35: NEXT PAGE NUMBER (NO) 35: BRANCHING (NO) 35: AUTO- INCREMENT (NO) 35: OUTPUT To MEMORY CELL (NO) 35: OUTPUT TO DISKETTE (YES) 07. MATURITY 36: TAB STOP (YES) 36: INPUT TYPE (KEYBOARD) 36: CHARACTER, TYPE (DIGIT) 36: SECURITY FIELD (NO) 36: OVERRIDE ERROR FIELD (YES) 36: MINIMUM LENGTH (0) 36: EXACT TABLE (NO) 36: RANGE (NO) 36: ALLOWABLE ENTRY (NO) 36: SUBSTITUTION (NO) 36: JUSTIFICATION (LEFT) 36: FILL CHARACTER ( ) 36: FLOAT CHARACTER ( ) 36: DECIMAL POSITIONS (0) 36: SIGN POSITION (LEADING) 36: AUTO CLOSE (YES) 36: ARITHMETIC OPERATION (NO) 36: AUTO FILL-IN (NO) 36: NEXT PAGE NUMBER (NO) 36: BRANCHING (NO) 36: AUTO-INCREMENT (NO) 36: OUTPUT TO MEMORY CELL (NO) 36: OUTPUT TO DISKETTE (YES) BIOFORM-07 08. FREUENCY 37. TAB STOP (YES) 37: INPUT TYPE (KEYBOARD) 37: CH0AR0ACTER- TYPE (DIGIT) 37: SECURITY FIELD (NO) 37: OVERRIDE ERROR FIELD (YES) 37: MINIMUM LENGTH (0) 37: EXACT LENGTH TABLE (NO) 37: RANGE (NO) 37: ALLOWABLE ENTRY (NO) 37: SUBSTIT0UTION (NO) 37: JUSTIFICICATION (RIGHT) 37: FILL CHARACTER ( ) 37: FLOAT CHARACTER ( ) 37: DE4CI0M6R4L POSITIONS (0) 37: SIGN POSITION (LEADING) 37: AUTO CLOSE (YES) 37: ARITHMETIC OPERATION (0N) 37: AUTO FILL-IN (NO) 37: NEXT PAGE NUMBER (NO) 37: BRANCHING (0N) 37: AUTO-INCREMENT (NO). 37: OUTPUT TO MEMORY CELL (NO) 37: OUTPUT TO DISKETTE (YES) OB.LENGTH 38: TAB STOP (YES) 38: INPUT TYPE (KEYBOARD) 38: CHARACTER TYPE (DIGIT) 38: SECURITY FIELD (NO) 38: OVERRIDE ERROR FIELD (NO) 38: MINIMUM LENGTH (0) 38: EXACT LENGTH TABLE (NO) 38: RANGE (NO) 38: ALLOWABLE ENTRY(NO) 38: SUBSTITUTION (NO) 38: JUSTIFICATON- (RIGHT) 38: FILL CHARACTER ( ) 88: FLOAT CHARACTER ( ) 38: DECIMAL POSITIONS (0) 38: SIGN POSITION (LEADING) 38: AUTO CLOSE (YES) 38: ARITHMETIC OPERATION- (NO) 38: AUTO FILL-IN (NO) 38: NEXT PAGE NUMBER (NO) 38: BRANCHING (NO) 38: AUTO-INCREMENT (NO) 38: OUTPUT TO DISKETTE (YES) BIOFORM-07 08. SEX 39: TAB STOP (YES) 39: INPUT TYPE (KEYBOARD) 39: CHARACTER TYPE . (DIGIT) 39: SECURITY FIELD (YES) 39: OVERRIDE ERROR FIELD (YES) 39: MINIMUM LENGTH (0) 39: EXACT LENGTH TABLE (NO) 39: RANGE (NO) 39: ALLOWABLE- ENTRY (NO) 39: SUBSTITUTION (NO) 39: JUSTIFICATION (LEFT) 39: FILL CHARACTER ( ) 39: FLOAT CHARACTER 39: DECIMAL POSITIONS (0) 39: SIGN POSITION (LEADING) 39: AUTO CLOSE (YES) 39: ARITHMETIC OPERATION (NO) 39: AUTO FILL-IN (NO) 39: NEXT PAGE NUMBER (NO) 39: BRANCHING (NO) 39: AUTO-INCREMENT (NO) 39: OUTPUT TO MEMORY CELL (NO) 39: OUTPUT TO DISKETTE (YES) 08. MATURITY 40: TAB STOP (YES) 40: INPUT TYPE (KEYBOARD) 40: CHARACTER TYPE (DIGIT) 40: SECURITY FIELD (N0) 40: 0VERRIDE ERROR FIELD (YES) 40: MINIMUM LENGTH (O) 40: EXACT LENGTH TABLE (NO) 40: RANGE (NO) 40: ALLOWABLE ENTRY (NO) 40: SUBSTITUTION (NO) 40: JUSTIFICATION (LEFT) 40: FILL CHARACTER ( ) 40: FLOAT CHARACTER ( ) 40: DECIMAL POSITIONS(0) 40: SIGN POSIT10N - (LEADING) 40: AUTO CL0SE (YES) 40: ARITHMETIC 0PERATION (NO) 40: AUTO FILL-IN (NO) 40: NEXT PAGE NUMBER (NO) 40: BRANCHING (NO) 40: AUTO- INCREMENT (NO) 40: OUTPUT TO MEMORY CELL (NO) 40: OUTPUT TO DISKETTE (YES) BIOFORM-07 09. FREQUENCY. 41: TAB STOP (YES) 41: INPUT TYPE (KEYBOARD) 41: CHARACTER TYPE (DIGIT) 41: SECURITY FIELD (NO) 41: 0VERRIDE ERROR FIELD (YES) 41: MINIMUM LENGTH (0) 41: EXACT LENGTH TABLE (NO) 41: RANGE (NO) 41: ALLOWABLE ENTRY(NO) 41: SUBSTITUTION (NO) 41: JUSTIFICATION (RIGHT) 41: FILL CHARACTER 41: FLOAT CHARACTER 41: DECIMAL POSITIONS (0) 41: SIGN POSITION (LEADING) 41: AUTO CLOSE (YES) 41: ARITHMETIC OPERATION (NO), 41: AUTO FILL-IN (NO) 41: NEXT PAGE NUMBER (NO) 41: BRANCHING (NO) 41: AUTO-INCREMENT (NO) 41: OUTPUT TO MEMORY CELL- (NO) 41: OUTPUT TO DISKETTE (YES) 09. LENGTH 42: TAB, STOP (YES) 42: INPUT TYPE (KEYBOARD) 42: CHARACTER TYPE(DIGIT) 42: SECURITY FIELD (NO) 42: OVERRIDE ERROR FIELD. (NO) 42: MINIMUM LENGTH (0) 42: EXACT LENGTH TABLE (NO) 42: RANGE. (NO) 42: ALLOWABLE ENTRY (NO) 42: SUBSTITUTION(NO) 42: JUSTIFICATION (RIGHT) 42: FILL CHARACTER 42: FLOAT CHARACTER 42: DECIMAL POSITIONS (0) 42: SIGN POSITION (LEADING) 42: AUTO CLOSE (YES) 42: ARITHMETIC OPERATION (NO) 42: AUTO FILL-IN (NO) 42: NEXT PAGE NUMBER (NO) 42: BRANCHING (NO) 42: AUTO-INCREMENT (N0) 42: OUTPUT TO MEMORY CELL (NO) 42: OUTPUT TO DISKETTE (YES) BIOFORM-07 09. SEX 43: TAB-STOP (YES) 43: INPUT TYPE (KEYBOARD) 43: CHARACTER TYPE (DIGIT) 43: SECURITY FIELD (NO) 43: OVERRIDE ERROR FIELD (YES) 43: MINIMUM LENGTH (0) 43: EXACT LENGTH TABLE (0) 43: RANGE 43: ALLOWABLE ENTRY 43: FILL CHARACTER ( ) 43: FLOAT CHARACTER ( ) 43: DECIMAL POSITIONS (0) 43: SIGN POSITION (LEADING) 43: AUTO CLOSE (YES) 43: ARITHMETIC OPERATION (NO) 43: AUTO FILL-IN 43: NEXT PAGE NUMBER (NO) 43: BRANCHING (NO) 43: AUTO-INCREMENT (NO) 43: OUTPUT TO MEMORY CELL (NO) 43: OUTPUT TO DISKETTE (YES) 09. MATURITY 44: TAB STOP (YES) 44: INPUT TYPE (KEYBOARD) 44: CHARACTER TYPE (DIGIT) 44: SECURITY FIELD (NO) 44: OVERRIDGE ERROR FIELD (YES) 44: MINIMUM LENGTH (0) 44: EXACT LENGTH TABLE (NO) 44: RANGE (NO) 44: ALLOWABLE ENTRY (NO) 44: SUBSTITUTION (NO) 44: JUSTIFICATION (LEFT) 44: FILL CHARACTER ( ) 44: FLOAT CHARACTER ( ) 44: DECIMAL POSITIONS (0) 44: SIGN POSITION (LEADING) 44: AUTO CLOSE (YES) 44: ARITHMETIC OPERATION (NO) 44: AUTO FILL-IN (NO) 44: NEXT PAGE NUMBER (NO) 44: BRANCHING (NO) 44: AUTO-INCREMENT (NO) 44: OUTPUT TO MEMORY CELL (NO) 44: OUTPUT TO DISKETTE (YES) BIOFORM-07 10. FREQUENCY 45: TAB STOP (YES) 45: INPUT TYPE (KEYBOARD) 45: CHARACTER TYPE (DIGIT) 45: SECURITY FIELD (NO) 45: OVERRIDE ERROR FIELD (YES) 45: MINIMUM LENGTH (0) 45: EXACT LENGTH TABLE (NO) 45: RANGE (NO) 45: ALLOWABLE ENTRY (NO) 45: SUBSTITUTION (NO) 45: JUSTIFICATION (RIGHT) 45: FILL CHARACTER ( ) 45: FLOAT CHARACTER 45: DECIMAL POSITIONS (0) 45: SIGN POSITION (LERD ING) 45: AUTO CLOSE (YES) 45: ARITHMETIC OPERATION (NO) 45: AUTO FILL-IN (NO) 45: NEXT PAGE NUMBER (NO) 45: BRANCHING (NO) 45: AUTO-INCREMENT (NO) 45: OUTPUT To MEMORY CELL (NO) 45: OUTPUT TO DISKETTE (YES) 10. LENGTH 46: TAB STOP (YES) 46: INPUT TYPE (KEYBOARD) 46: CHARACTER TYPE (DIGIT) 46: SECURITY FIELD (NO) 46: OVERRIDE ERROR FIELD (NO) 46: MINIMUM LENGTH (0) 46: EXACT LENGTH TABLE (NO) 46: RANGE (NO) 46: ALLOWABLE ENTRY (NO) 46: SUBSTITUTION (NO) 46: JUSTIFICATION (RIGHT) 46: FILL CHARACTER ( ) 46: FLOAT CHARACTER ( ) 46: DECIMAL P0SITIONS (0) 46: SIGN POSITION (LEADING) 46: AUTO CLOSE (YES) 46: ARITHMETIC OPERATION (NO) 46: AUTO FILL-IN (N0) 46: NEXT PAGE NUMBER (NO) 46: BRANCHING (NO) 46: AUTO-INCREMENT (NO) 46: OUTPUT TO MEMORY CELL (NO) 46: OUTPUT TO DISKETTE (YES) BIOFORM-07 10. SEX 47: TAB STOP (YES) 47: INPUT TYPE (KEYBOARD) 47: CHARACTER TYPE (DIGIT) 47: SECURITY FIELD (NO) 47: OVERRIDE ERROR FIELD (YES) 47: MINIMUM LENGTH (0) 47: EXACT LENGTH TABLE (NO) 47: RANGE (NO) 47: ALLOWABLE ENTRY (NO) 47: SUBSTITUTION (NO) 47: JUSTIFICATION (LEFT) 47: FILL CHARACTER ( ) 47: FLOAT CHARACTER ( ) 47: DECIMAL POSITIONS (0) 47: SIGN POSTION (LEADING) 47: AUTO CLOSE (YES) 47: ARITHMETIC OPERATION (NO) 47: AUTO FILL-IN 47: NEXT PAGE NUMBER (NO) 47: BRANCHING (NO) 47: AUTO-INCREMENT (NO) 47: OUTPUT TO MEMORY CELL (NO) 47: OUTPUT To DISKETTE (YES) 10. MATURITY 48: TAB STOP (YES) 48: INPUT TYPE (KEYBOARD) 48: CHARACTER TYPE (DIGIT) 48: SECURITY FIELD (NO) 48: OVERRIDE ERROR FIELD (YES) 48: MINIMUM LENGTH TABLE (0) 48: EXACT LENGTH TABLE (NO) 48: RANGE (NO) 48: ALLOWABLE ENTRY (NO) 48: SUBSTITUTION (NO) 48: JUSTIFICATION (LEFT) 48: FILL CHARACTER ( ) 48: FLOAT CHARACTER ( ) 48: DECIMAL POSITIONS (0) 48: SIGN POSITION (LEADING) 48: AUTO CLOSE (YES) 48: ARITHMETIC OPERATION (NO) 48: AUTO FILL-IN (NO) 48: NEXT PAGE NUMBER (NO) 48: BRANCHING (NO) 48: AUTO-INCREMENT (NO) 48: OUTPUT TO MEMORY CELL (NO) 48: OUTPUT TO DISKETT (YES) BIOFORM-07 11. FREQUENCY 49: TAB STOP (YES) 49: INPUT TYPE (KEYBOARD) 49: CHARACTER TYPE (DIGIT) 49: SECURITY FIELD (NO) 49: OVERRIDE ERROR FIELD (YES) 49: MINIMUM LENGTH (0) 49: EXACT LENGTH TABLE (NO) 49: RANGE (NO) 49: ALLOWABLE ENTRY (NO) 49: SUBSTITUTION (NO) 49: JUSTIFICATION (RIGHT) 49: FILL CHARACTER ( ) 49: FLOAT CHARACTER ( ) 49: DECIMAL POSITIONS (0) 49: SIGN POSITION (LEADING) 49: AUTO CLOSE (YES) 49: ARITHMETIC OPERATION (NO) 49: AUTO FILL-IN (NO) 49: NEXT PAGE NUMBER (NO) 49: BRANCHING (NO) 49: AUTO-INCREMENT(NO) 49: OUTPUT TO MEMORY CELL (NO) 49: OUTPUT TO DISKETTE (YES) 11. LENGTH 50: TAB STOP (YES) 50: INPUT TYPE (KEYBOARD) 50: CHARACTER TYPE (DIGIT) 50: SECURITY FIELD (NO) 50: OVERRIDE ERROR FIELD (NO) 50' MINIMUM LENGTH (0) 50: EXACT LENGTH TABLE (NO) 50: RANGE (NO) 50: ALLOWABLE ENTRY (NO) 50: SUBSITUTION (NO) 50: JUSTIFICATION (RIGHT) 50: FILL CHARACTER ( ) 50: FLOAT CHARACTER ( ) 50: DECIMAL POSITIONS (0) 50: SIGN POSITION (LEADING) 50: AUTO CLOSE (YES) 50: ARITHMETIC OPERATION (NO) 50: AUTO FILL-IN (NO) 50: NEXT PAGE NUMBER (NO) 50: BRANCHING (NO) 50: AUTO-INCREMENT (NO) 50: OUTPUT TO MEMORY CELL (NO) 50: OUTPUT TO DISKETTE (YES) BIOFORM-07 11. SEX 51: TAB STOP (YES) 51: INPUT TYPE (KEYBOARD) 51: CHARACTER TYPE (DIGIT) 51: SECURITY FIELD (NO) 51: OVERRIDE ERROR FIELD (YES) 51: MINIMUM LENGTH (0) 51: EXACT LENTH TABLE (NO) 51: RANGE (NO) 51: ALLOWABLE ENTRY (NO) 51: SUBSTITUTION (NO) 51: JUSTIFICATION (LEFT) 51: FILL CHARACTER ( ) 51: FLOAT CHARACTER ( ) 51: DECIMAL POSITIONS (0) 51: SIGN POSITION (LEADING) 51: AUTO CLOSE (YES) 51: ARITHMETIC OPERATION (NO) 51: AUTO FILL-IN (NO) 51: NEXT PAGE NUMBER (NO) 51: BRANCHING (NO) 51: AUTO-INCREMENT (NO) 51: OUTPUT TO MEMORY CELL (NO) 51: OUTPUT TO DISKETTE (YES) 11. MATURITY 52: TAB STOP (YESo 52: INPUT TYPE (KEYBOARD) 52: CHARACTER TYPE (DIGIT) 52: SECURITY FIELD (NO) 52: OVERRIDE ERROR FIELD (YES) 52: MINIMUM LENGTH (0) 52: EXACT LENGTH TABLE (NO) 52: RANGE (NO) 52: ALLOWABLE ENTRY (NO) 52: SUBSTITUTION (NO) 52: JUSTIFICATION (LEFT) 52: FILL CHARACTER ( ) 52: FLOAT CHARACTER ( ) 52: DECIMAL POSITIONS (0) 52: SIGN POSITION (LEADING) 52: AUTO CLOSE (YES) 52: ARITHMETIC OPERATION (NO) 52: AURO FILL-IN (NO) 52: NEXT PAGE NUMBER (NO) 52: BRANCHING (NO) 52: AUTO-INCREMENT (NO) 52: OUTPUT TO MEMORY CELL (NO) 52: OUTPUT TO DISKETTE (YES) BIOFORM-07 FILL 53: TAB STOP (YES) 53: INPUT TYPE (CONSTANT:) 53: CHARACTER TYPE (PRINTABLE) 53: SECURITY FIELD (NO) 53: OVERRIDE ERROR FIELD (NO) 53: MINIMUM LENGTH (0) 53: EXACT LENGTH TABLE (NO) 53: RANGE (NO) 53: ALLOWABLE ENTRY (NO) 53: SUBSTITUTION (NO) 53: JUSTIFICATION (LEFT) 53: FILL CHARACTER ( ) 53: FLOAT CHARACTER ( ) 53: DECIMAL POSITIONS (0) 53: SIGN POSITION (LEADING) 53: AUTO CLOSE (YES) 53: ARITHMETIC OPERATION (NO) 53: AUTO FILL-IN (NO) 53: NEXT PAGE NUMBER (NO) 53: BRANCHING (NO) 53: AUTO-INCREMENT (NO) 53: OUTPUT TO MEMORY CELL (NO) 53: OUTPUT TO DISKETTE (YES) LOAD 54: TAB STOP (YES) RECORD TYPE: 54: INPUT TYPE (KEYBOARD) ONE 54: CHARACTER TYPE (PRINTABLE) 54: SECURITY FIELD (NO) 54: OVERRIDE ERROR FIELD (NO) 54: MINIMUM LENGTH (O) 54: EXACT LENGTH TABLE (NO) 54: RANGE (NO) 54: ALLOWABLE ENTRY (NO) 54: SUBSTITUTION (NO) 54: JUSTIFICATION (LEFT) 54: FILL CHARACTER ( ) 54: FLOAT CHARACTER ( ) 54: DECIMAL POSITIONS (0) 54: SIGN POSITION (LEADING) 54: AUTO CLOSE (YES) 54: ARITHMETIC OPERATION (NO) 54: AUTO FILL-IN (NO) 54: NEXT PAGE NUMBER (YES-PAGE 1) 54: BRANCHING (TEST LINE: 23 POSITION: 87Z; BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 54: AUTO-INCREMENT (NO) 54: OUTPUT TO MEMORY CELL (NO) 54: OUTPUT TO DISKETTE (NO) BIOFORM-07 LOAD 55: TAB STOP (YES) RECORD TYPE: 55: INPUT TYPE (KEYBOARD) TWO 55: CHARACTER TYPE (PRINTABLE) 55: SECURITY FIELD (NO) 55: OVERRIDE ERROR FIELD (NO) 55: MINIMUM LENGTH (0) 55: EXACT LENGTH TABLE (NO) 55: RANGE (NO) 55: ALLOWABLE ENTRY (N0) 55: SUBSTITUTION (NO) 55: JUSTIFICATION (LEFT) 55: FILL CHARACTER ( ) 55: FLOAT CHARACTER ( ) 55: DECIMAL POSITIONS (0) 55: SIGN POSITION (LEADING) 55: AUTO CLOSE (YES) 55: ARITHMETIC OPERATION (NO) 55: AUTO FILL-IN (NO) 55: NEXT PAGE NUMBER (YES-PAGE 2) 55: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 55: AUTOINCREMENT (NO) 55: OUTPUT TO MEMORY CELL (NO) 55: OUTPUT TO DISKETTE (NO) LOAD 56: TAB STOP (YES) RECORD TYPE: 56: INPUT TYPE (KEYBOARD) THREE 56: CHARACTER TYPE (PRINTABLE) 56: SECURITY FIELD (NO) 56: OVERRIDE ERROR FIELD (NO) 56: MINIMUM LENGTH (0) 56: EXACT LENGTH TABLE (NO) 56: RANGE (NO) 56: ALLOWABLE ENTRY (NO) 56: SUBSTITUTION (NO) 56: JUSTIFICATION (LEFT) 56: FILL CHARACTER ( ) 56: FLOAT CHARACTER ( ) 56: DECIMAL POSITIONS (0) 56: SIGN POSITION (LEADING) 56: AUTO CLOSE (YES) 56: ARITHMETIC OPERATION (NO) 56: AUTO FILL-IN (NO) 56: NEXT PAGE NUMBER (YES PAGE 3) 56: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM; X;)) 56: AUTO-INCREMENT (NO) 56: OUTPUT TO MEMORY CELL (NO) 56: OUTPUT TO DISKETTE (NO) BIOFORM-07 LOAD 57: TAB STOP (YES) RECORD TYPE: 57: INPUT TYPE (KEYBOARD) FOUR 57: CHARACTER TYPE (PRINTABLE) 57: SECURITY FIELD (NO) 57: OVERRIDE ERROR FIELD (NO) 57: MINIMUM LENGTH (0) 57: EXACT LENGTH TABLE (NO) 57: RANGE (NO) 57: ALLOWABLE ENTRY (NO) 57: SUBSTITUTION (NO) 57: JUSTIFICATION (LEFT) 57: FILL CHARACTER ( ) 57: FLOAT CHARACTER ( ) 57: DECIMAL POSITIONS (0) 57: SIGN POSITION (LEADING) 57: AUTO CLOSE (YES) 57: ARITHMETIC OPERATION (NO) 57: AUTO FILL-IN (NO) 57: NEXT PAGE NUMBER (YES-PAGE4) 57: BRANCHING (TEST LINE: 23. POSITION :80 BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY 9YES-RAM: X;)) 57. AUTO-INCREMENT (NO) 57: OUTPUT TO MEMORY CELL (NO) 57: OUTPUT TO DISKETTE(NO) LOAD RECORD TYPE: 58: TAB STOP (YES) FIVE 58: INPUT TYPE (KEYBOARD) 58: CHARACTER TYPE (PRINTABLE) 58: SECURITY FIELD (NO) 58: OVERRIDE ERROR FIELD (NO) 58: MINIMUM LENGTH (0) 58: EXACT LENGTH TABLE (NO) 58: RANGE (NO) 58: ALLOWABLE ENTRY (NO) 58: SUBSTITUTION(NO) 58: JUSTIFICATION (LEFT) 58: FILL CHARACTER ( ) 58: FLOAT CHARACTER ( ) 58: DECIMAL POSITIONS (0) 58: SIGN POSITION (LEADING) 58: AUTO CLOSE (YES) 58: ARITHMETIC OPERATION (NO) 58: AUTO FILL-IN (NO) 58: NEXT PAGE NUMBER (YES-PAGE 5) 58: BRANCHING (TEST LINE: 23 POSITION 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 58: AUTO-INCREMENT (NO) 58: OUTPUT TO MEMORY CELL (NO) 58: OUTPUT TO DISKETTE (NO) BIOFORM-07 LOAD 59: TAB STOP. (YES) RECORD TYPE: 59: INPUT TYPE (KEYBOARD) SIX 59: CHARACTER TYPE (PRINTABLE) 59: SECURITY FIELD (NO) 59: OVERRIDE ERROR FIEDL (NO) 59: MINIMUM LENGTH (0) 59: EXACT LENGTH TABLE (NO) 59: RANGE (NO) 59: ALLOWABLE ENTRY (NO) 59: SUBSTITUTION (NO) 59: JUSTIFICATION (LEFT) 59: FILL CHARACTER ( ) 59: FLOAT CHARACTER ( ) 59: DECIMAL POSITIONS (0) 59: SIGN. POSITION (LEADING) 59: AUTO CLOSE (YES) 59. ARITHMETIC OPERATION (NO) 59: AUTO FILL-IN (NO) 59: NEXT PAGE NUMBER (YES-PAGE 6) 59: BRANCHING (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE- ENTRY (YES RAM: X;)) 59: AUTO-INCREMENT (NO) 59: OUTPUT TO MEMORY CELL (NO) 59: OUTPUT TO DISKETTE (NO) LOAD 60: TAB STOP (YES) RECORD TYPE: 60: INPUT TYPE (KEYBOARD) SEVEN 60: CHARACTER TYPE (PRINTABLE) 60: SECURITY FIELD (NO) 60: OVERRIDE ERROR FIELD. (NO) 60: MINIMUM LENGTH (NO) 60: EXACT LENGTH TABLE (NO) 60: RANGE (NO) 60: ALLOWABLE ENTRY (NO) 60: SUBSTITUTION (NO) 60: JUSTISICATION (LEFT) 60: FILL CHARACTER ( ) 60: FLOAT CHARACTER ( ) 60: DECIMAL POSITIONS (0) 60: SIGN POSITION (LEADING) 60: AUTO CLOSE (YES) 60: ARITHMETIC OPERATION (NO) 60: AUTO FILL-IN (NO) 60: NEXT PAGE NUMBER (YES- PAGE 7) 60: BRANCH (TEST LINE: 23 POSITION: 80: BRANCH: MINIMUM LENGHT (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 60: AUTO-INCREMENT (NO) 60: OUTPUT TO MEMORTY CELL (NO) 60: OUTPUT TO DISKETTE (NO) BIOFORM-07 LOAD RECORD 61: TAB STOP (YES) RECORD TYPE: 61: INPUT TYPE (KEYBOARD) EIGHT 61: CHARACTER TYPE (PRINTABLE) 61: SECURITY FIELD (NO) 61: OVERRIDE ERROR FIELD (NO) 61: MINIMUM LENGTH (NO) 61: EXACT LENGTH TABLE (No) 61: RANGE (NO) 61: ALLOWABLE ENTRY (NO) 61: SUBSTITUTION (NO) 61: JUSTIFICATION (LEFT) 61: FILL CHARACTER ( ) 61: FLOAT CHARACTER (0) 61: DECIMAL POSITIONS (0) 61: SIGN POSITION (LEADING) 61: AUTO CLOSE (YES) 61: ARITHMETIC OPERATION (NO) 61: AUTO FILL-IN (NO) 61: NEXT PAGE NUMBER (N0) 61: BRANCHING (NO) 61: AUTO-INCREMENT (NO) 61: OUTPUT TO MEMORY CELL (NO) 61: OUTPUT TO DISKETTE (NO) LOAD RECORD 62: TAB STOP (YES) RECORD TYPE: 62: INPUT TYPE (KEYBOARD) NINE 62: CHARACTER TYPE (PRINTABLE) 62: SECURITY FIELD (NO) 62: OVERRIDE ERROR FIELD (NO) 62; MINIMUM LENGTH (0) 62; EXACT LENGTH TABLE (NO) 62: RANGE (NO) 62: ALLOWABLE ENTRY (NO) 62: SUBSTITUION (NO) 62: JUSTIFICATION (LEFT) 62: FILL CHARACTER ( ) 62: FLOAT CHARACTER ( ) 62: DECIMAL POSITION (0) 62: SIGN POSITION (LEADING) 62: AUTO CLOSE (YES) 62: ARITHMETIC OPERATION (NO) 62: AUTO FILL-IN (NO) 62: NEXT PAGE NUMBER (YES-PAGE3) 62: BRANCHING (TEST LINE: 23 POSITION:80: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABEL (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES-RAM: X;)) 62: AUTO-INCREMENT (NO) 62: OUTPUT TO MEMORY CELL (NO) 62; OUTPUT TO DISKETTE (NO) TAG RECAPTURE DATA RECORD TYPE IX (FORM PAGE 08) ACTION FIELD < RECORD TYPE < SEQUENCE NO: YEAR << COLLECTION NO <<<<< REPLICATE << SPECIES <<<<<<<<<<< STATUS < LINE NUMBER <<< APPENDIX B-2: BIOFORM - 08 TAG NUMBER <<<<<< TAG TYPE < LAYOUT FILE RECAPTURE DATE: YEAR DAY << MONTH << DAY << RECAPTURE LOCATION >>>>>>>>>> RECAPTURE GEAR <<< DAYS OUT <<<< DISTANCE TRAVELLED (MILES) <<<< RECAPTURE LENGTH <<<< RECAPTURE WEIGHT <<<<< RECAPTURE MATURITY < VARIABLE FIELD #1 <<<<<<<<<<<<<<<<<< VARIABLE FIELD #2 <<<<<<<<<<<<<<<<<< VARIABLE FIELD #3 <<<<<<<<<<<<<<<< VARIABLE FIELD #5 <<<<< ---------- LOAD THE FOLLOWING RECORD TYPE-CHOOSE WITH AN 'X' ONE < TWO > THREE > FOUR > FIVE< SIX < SEVEN < EIGHT < NINE < BIOFORM-08 ATTRIBUTES BIOFORM 08 TAB STOP (YES) 1: INPUT TYPE (KEYBOARD-CONSTANT:) ACTION 1: CHARACTER TYPE (ALPHA) FIELD 1: SECURITY FIELD (NO) 1: OVERRIDE ERROR FIELD (NO) 1: MINIMUM LENGTH (0) 1: EXACT LENGTH TABLE (NO) 1: RANGE (NO) 1: ALLOWABLE ENTRY (YES: DRIVE: 1 FILE: ACTION 1: SUBSTITUTION (NO) 1: JUSTIFICATION (LEFT) 1: FILL CHARACTER ( ) 1: FLOAT CHARACTER ( ) 1: DECIMAL POSITIONS (0) 1: SIGN POSITION (LEADING) 1: AUTO CLOSE (YES) 1: ARITHMETIC OPERATION (NO) 1: AUTO FILL-IN (NO) 1: NEXT PAGE NUMBER (NO) 1: BRANCHING (NO) 1: AUTO-INCREMENT (NO) 1: OUTPUT TO MEMORY CELL (NO) 1: OUTPUT TO DISKETTE (YES) RECORD 2: TAB STOP (YES) TYPE 2: INPUT TYPE (CONSTANT: 9) 2: CHARACTER TYPE (PRINTABLE) 2: SECURITY FIELD (NO) 2: OVERRIDE ERROR FIELD (NO) 2: MINIMUM LENGTH (0) 2: EXACT LENGTH TABLE (NO) 2: RANGE (NO) 2: ALLOWABLE ENTRY (NO) 2: SUBSTITUTION (NO) 2: JUSTIFICATION (LEFT) 2: FILL CHARACTER ( ) 2: FLOAT CHARACTER ( ) 2: DECIMAL POSITIONS (0) 2: SIGN POSITION (LEADING) 2: AUTO CLOSE (YES) 2: ARITHMETIC OPERATION (NO) 2: AUTO FILL-IN (NO) 2: NEXT PAGE NUMBER (NO) 2: BRANCHING (NO) 2: AUTO-INCREMENT (NO) 2: OUTPUT TO MEMORY CELL (NO) 2: OUTPUT TO DISKETTE (YES) BIOFORM - 08 SEQUENCE NO: YEAR 3: TAB STOP (YES) 3: INPUT TYPE (KEYBOARD-MEMORY CELL # 1) 3: CHARACTER TYPE (DIGIT) 3: SECURITY FIELD (NO) 3: OVERRIDE ERROR FIELD (NO) 3: MINIMUM LENGTH (0) 3: EXACT LENGTH TABLE (YES: 2) 3: RANGE (YES: FROM: 65 TO: 85) 3: ALLOWABLE ENTRY (NO) 3: SUBSTITUTION (NO) 3: JUSTIFICATION (LEFT) 3: FILL CHARACTER ( ) 3: FLOAT CHARACTER ( ) 3: DECIMAL POSITIONS (0) 3: SIGN POSITION (LEADING) 3: AUTO CLOSE (YES) 3: ARITHMETIC OPERATION (NO) 3: AUTO FILL-IN (NO) 3: NEXT PAGE NUMBER (NO) 3: BRANCHING (NO) 3: AUTO-INCREMENT (NO) 3: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 1) 3: OUTPUT TO DISKETTE (YES) SEQUENCE NO: COLLECTION NO. 4: TAB STOP (YES) 4: INPUT TYPE (KEYBOARD-MEMORY CELL # 2) 4: CHARACTER TYPE (DIGIT) 4: SECURITY FIELD (NO) 4: OVERRIDE ERROR FIELD (NO) 4: MINIMUM LENGTH (1) 4: EXACT LENGTH TABLE (NO) 4: RANGE (NO) 4: ALLOWABLE ENTRY (NO) 4: SUBSTITUTION (NO) 4: JUSTIFICATION (RIGHT) 4: FILL CHARACTER (0) 4: FLOAT CHARACTER (0) 4: DECIMAL POSITIONS (0) 4: SIGN POSITION (LEADING) 4: AUTO CLOSE (YES) 4: ARITHMETIC OPERATION (NO) 4: AUTO FILL-IN (NO) 4: NEXT PAGE NUMBER (NO) 4: BRANCHING (NO) 4: AUTO-INCREMENT (NO) 4: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 2) 4: OUTPUT TO DISKETTE (YES) BIOFORM - 08 REPLICATE 5: TAB STOP (YES) 5: INPUT TYPE (KEYBOARD-MEMORY CELL # 3) 5: CHARACTER TYPE (DIGIT) 5: SECURITY FIELD (NO) 5: OVERRIDE ERROR FIELD (NO) 5: MINIMUM LENGTH (1) 5: EXACT LENGTH TABLE (NO) 5: RANGE (NO) 5: ALLOWABLE ENTRY (NO) 5: SUBSTITUTION (NO) 5: JUSTIFICATION (RIGHT) 5: FILL CHARACTER (0) 5: FLOAT CHARACTER (0) 5: DECIMAL POSITIONS (0) 5: SIGN POSITION (LEADING) 5: AUTO CLOSE (YES) 5: ARITHMETIC OPERATION (NO) 5: AUTO FILL-IN (NO) 5: NEXT PAGE NUMBER (NO) 5: BRANCHING (NO) 5: AUTO-INCREMENT (NO) 5: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 3) 5: OUTPUT TO DISKETTE (YES) SPECIES 6: TAB STOP (YES) 6: INPUT TYPE (KEYBOARD-MEMORY CELL # 4) 6: CHARACTER TYPE (DIGIT) 6: SECURITY FIELD (NO) 6: OVERRIDE ERROR FIELD (NO) 6: MINIMUM LENGTH (0) 6: EXACT LENGTH TABLE (YES: 10) 6: RANGE (NO) 6: ALLOWABLE ENTRY (NO) 6: SUBSTITUTION (NO) 6: JUSTIFICATION (LEFT) 6: FILL CHARACTER ( ) 6: FLOAT CHARACTER ( ) 6: DECIMAL POSITIONS (0) 6: SIGN POSITION (LEADING) 6: AUTO CLOSE (YES) 6: ARITHMETIC OPERATION (NO) 6: AUTO FILL-IN (NO) 6: NEXT PAGE NUMBER (NO) 6: BRANCHING (NO) 6: AUTO-INCREMENT (NO) 6: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 4) 6: OUTPUT TO DISKETTE (YES) BIOFORM - 08 STATUS 7: TAB STOP (YES) 7: INPUT TYPE (KEYBOARD-MEMORY CELL # 5) 7: CHARACTER TYPE (DIGIT) 7: SECURITY FIELD (NO) 7: OVERRIDE ERROR FIELD (NO) 7: MINIMUM LENGTH (1) 7: EXACT LENGTH TABLE (NO) 7: RANGE (NO) 7: ALLOWABLE ENTRY (NO) 7: SUBSTITUTION (NO) 7: JUSTIFICATION (LEFT) 7: FILL CHARACTER ( ) 7: FLOAT CHARACTER ( ) 7: DECIMAL POSITIONS (0) 7: SIGN POSITION (LEADING) 7: AUTO CLOSE (YES) 7: ARITHMETIC OPERATION (NO) 7: AUTO FILL-IN (NO) 7: NEXT PAGE NUMBER (NO) 7: BRANCHING (NO) 7: AUTO-INCREMENT (NO) 7: OUTPUT TO MEMORY CELL (YES - MEMORY CELL # 5) 7: OUTPUT TO DISKETTE (YES) LINE NUMBER 8: TAB STOP (YES) 8: INPUT TYPE (KEYBOARD-REGISTER # 1) 8: CHARACTER TYPE (DIGIT) 8: SECURITY FIELD (NO) 8: OVERRIDE ERROR FIELD (NO) 8: MINIMUM LENGTH (1) 8: EXACT LENGTH TABLE (NO) 8: RANGE (NO) 8: ALLOWABLE ENTRY (NO) 8: SUBSTITUTION (NO) 8: JUSTIFICATION (RIGHT) 8: FILL CHARACTER (0) 8: FLOAT CHARACTER (0) 8: DECIMAL POSITIONS (0) 8: SIGN POSITION (LEADING) 8: AUTO CLOSE (YES) 8: ARITHMETIC OPERATION (YES: R1=F8+1) 8: AUTO FILL-IN (NO) 8: NEXT PAGE NUMBER (NO) 8: BRANCHING (NO) 8: AUTO-INCREMENT (NO) 8: OUTPUT TO MEMORY CELL (NO) 8: OUTPUT TO DISKETTE (YES) BIOFORM - 08 TAG NUMBER 9: TAB STOP (YES) 9: INPUT TYPE (KEYBOARD) 9: CHARACTER TYPE (MIXED) 9: SECURITY FIELD (NO) 9: OVERRIDE ERROR FIELD (YES) 9: MINIMUM LENGTH (0) 9: EXACT LENGTH TABLE (YES: 6) 9: RANGE (NO) 9: ALLOWABLE ENTRY (NO) 9: SUBSTITUTION (NO) 9: JUSTIFICATION(LEFT) 9: FILL CHARACTER ( ) 9: FLOAT CHARACTER ( ) 9: DECIMAL POSITIONS (0) 9: SIGN POSITION (LEADING) 9: AUTO CLOSE (YES) 9: ARITHMETIC OPERATION (NO) 9: AUTO FILL-IN (NO) 9: NEXT PAGE NUMBER (NO) 9: BRANCHING (NO) 9: AUTO-INCREMENT (NO) 9: OUTPUT TO MEMORY CELL (NO) 9: OUTPUT TO DISKETTE (YES) TAG TYPE 10: TAB STOP (YES) 10: INPUT TYPE (KEYBOARD) 10: CHARACTER TYPE (ALPHA) 10: SECURITY FIELD (NO) 10: OVERRIDE ERROR FIELD (NO) 10: MINIMUM LENGTH (1) 10: EXACT LENGTH TABLE (NO) 10: RANGE (NO) 10: ALLOWABLE ENTRY (NO) 10: SUBSTITUTION (NO) 10: JUSTIFICATION (LEFT) 10: FILL CHARACTER ( ) 10: FLOAT CHARACTER ( ) 10: DECIMAL POSITIONS (0) 10: SIGN POSITION (LEADING) 10: AUTO CLOSE (YES) 10: ARITHMETIC OPERATION (NO) 10: AUTO FILL-IN (NO) 10: NEXT PAGE NUMBER (NO) 10: BRANCHING (NO) 10: AUTO-INCREMENT (NO) 10: OUTPUT TO MEMORY CELL (NO) 10: OUTPUT TO DISKETTE (YES) BIOFORM - 08 RECAPTURE 11: TAB STOP (YES) DATE : YEAR 11: INPUT TYPE (KEYBOARD) 11: CHARACTER TYPE (DIGIT) 11: SECURITY FIELD (NO) 11: OVERRIDE ERROR FIELD (YES) 11: MINIMUM LENGTH (0) 11: EXACT LENGTH TABLE (YES: 0,2) 11: RANGE (NO) 11: ALLOWABEL ENTRY (NO) 11: SUBSTITUTION (NO) 11: JUSTIFICATION (LEFT) 11: FILL CHARACTER () 11: FLOAT CHARACTER () 11: DECIMAL POSITIONS (0) 11: SIGN POSITION (LEADING) 11: AUTO CLOSE (YES) 11: ARITHMETIC OPERATION (NO) 11: AUTO FILL-IN (NO) 11: NEXT PAGE NUMBER (NO) 11: BRANCHING (NO) 11: AUTO-INCREMENT (NO) 11: OUTPUT TO MEMORY CELL (NO) 11: OUTPUT TO DISKETTE (YES) RECAPTURE 12: TAB STOP (YES) DATE : MONTH 12: INPUT TYPE (KEYBOARD) 12: CHARACTER TYPE (DIGIT) 12: SECURITY FIELD (NO) 12: OVERRIDE ERROR FIELD (YES) 12: MINIMUM LENGTH (0) 12: EXACT LENGTH TABLE (YES: 0,2) 12: RANGE (YES: FROM: 00 TO: 12) 12: ALLOWABEL ENTRY (NO) 12: SUBSTITUTION (NO) 12: JUSTIFICATION (LEFT) 12: FILL CHARACTER () 12: FLOAT CHARACTER () 12: DECIMAL POSITIONS (0) 12: SIGN POSITION (LEADING) 12: AUTO CLOSE (YES) 12: ARITHMETIC OPERATION (NO) 12: AUTO FILL-IN (NO) 12: NEXT PAGE NUMBER (NO) 12: BRANCHING (NO) 12: AUTO-INCREMENT (NO) 12: OUTPUT TO MEMORY CELL (NO) 12: OUTPUT TO DISKETTE (YES) BIOFORM 08 RECAPTURE 13: TAB STOP (YES) DATE : DAY 13: INPUT TYPE (KEYBOARD) 13: CHARACTER TYPE (DIGIT) 13: SECURITY FIELD (NO) 13: OVERRIDE ERROR FIELD (YES) 13: MINIMUM LENGTH (O) 13: EXACT LENGTH TABLE (YES: 0,2) 13: RANGE (YES: FROM: 00 TO: 31) 13: ALLOWABLE ENTRY (NO) 13: SUBSTITUTION (NO) 13: JUSTIFICATION (RIGHT) 13: FILL CHARACTER (O) 13: FLOAT CHARACTER (0) 13: DECIMAL POSITIONS (0) 13: SIGN POSITION (LEADING) 13: AUTO CLOSE (YES) 13: ARITHMETIC OPERATION (NO) 13: AUTO FILL-IN (NO) 13: NEXT PAGE NUMBER (NO) 13: BRANCHING (NO) 13: AUTO-INCREMENT (NO) 13: OUTPUT TO MEMORAY CELL (NO) 13: OUTPUT OT DISKETTE (YES) RECAPTURE 14: TAB STOP (YES) LOCATION 14: INPUT TYPE (KEYBOARD) 14: CHARACTER TYPE (DIGIT) 14: SECURITY FIELD (NO) 14: OVERRIDE ERROR FIELD (YES) 14: MINIMUM LENGTH (0) 14: EXACT LENGTH TABLE (YES: 0, 10) 14: RANGE (YES: FROM: 0000000000 TO 4400000000) 14: ALLOWABLE ENTRY (NO) 14: SUBSTITUTION (NO) 14: JUSTIFICATION (LEFT) 14: FILL CHARACTER () 14: FLOAT CHARACTER () 14: DECIMAL POSITIONS (0) 14: SIGN POSITION (LEADING) 14: AUTO CLOSE (YES) 14: ARITHMETIC OPERATION (NO) 14: AUTO FILL-IN (NO) 14: NEXT PAGE NUMBER (NO) 14: BRANCHING (NO) 14: AUTO-INCREMENT (NO) 14: OUTPUT OT MEMORY CELL (NO) 14: OUTPUT TO DISKETTE (YES) BIOFORM - 08 RECAPTURE 15: TAB STOP (YES) GEAR 15: INPUT TYPE (KEYBOARD) 15: CHARACTER TYPE (DIGIT) 15: SECURITY FIELD (NO) 15: OVERRIDE ERROR FIELD (YES) 15: MINIMUM LENGTH (0) 15: EXACT LENGTH TABLE (YES: 3) 15: RANGE (NO) 15: ALLOWABLE ENTRY (NO) 15: SUBSTITUTION (NO) 15: JUSTIFICATION (LEFT) 15: FILL CHARACTER () 15: FLOAT CHARACTER () 15: DECIMAL POSITIONS (0) 15: SIGN POSITION (LEADING) 15: AUTO CLOSE (YES) 15: ARITHMETIC OPERATION (NO) 15: AUTO FILL-IN (NO) 15: NEXT PAGE NUMBER (NO) 15: BRANCHING (NO) 15: AUTO-INCREMENT (NO) 15: OUTPUT TO MEMORY CELL (NO) 15: OUTPUT TO DISKETTE (YES) DAYS 16: TAB STOP (YES) OUT 16: INPUT TYPE (KEYBOARD) 16: CHARACTER TYPE (DIGIT) 16: SECURITY FIELD (NO) 16: OVERRIDE ERROR FIELD (YES) 16: MINIMUM LENGTH (0) 16: EXACT LENGTH TABLE (NO) 16: RANGE (NO) 16: ALLOWABLE ENTRY (NO) 16: SUBSTITUTION (NO) 16: JUSTIFICATION (RIGHT) 16: FILL CHARACTER () 16: FLOAT CHARACTER () 16: DECIMAL POSITIONS (0) 16: SIGN POSITION (LEADING) 16: AUTO CLOSE (YES) 16: ARITHMETIC OPERATION (NO) 16: AUTO FILL-IN (NO) 16: NEXT PAGE NUMBER (NO) 16: BRANCHING (NO) 16: AUTO-INCREMENT (NO) 16: OUTPUT TO MEMORY CELL (NO) 16: OUTPUT TO DISKETTE (YES) BIOFORM - 08 DISTANCE 17: TAB STOP (YES) TRAVELLED 17: INPUT TYPE (KEYBOARD) 17: CHARACTER TYPE (PRINTABLE) 17: SECURITY FIELD (NO) 17: OVERRIDE ERROR FIELD (YES) 17: MINIMUM LENGTH (0) 17: EXACT LENGTH TABLE (NO) 17: RANGE (NO) 17: ALLOWABLE ENTRY (NO) 17: SUBSTITUTION (NO) 17: JUSTIFICATION (RIGHT) 17: FILL CHARACTER () 17: FLOAT CHARACTER () 17: DECIMAL POSITIONS (0) 17: SIGN POSITION (LEADING) 17: AUTO CLOSE (YES) 17: ARITHMETIC OPERATION (NO) 17: AUTO FILL-IN (NO) 17: NEXT PAGE NUMBER (NO) 17: BRANCHING (NO) 17: AUTO-INCREMENT (NO) 17: OUTPUT TO MEMORY CELL (NO) 17: OUTPUT TO DISKETTE (YES) RECAPTURE 18: TAB STOP (YES) LENGTH 18: INPUT TYPE (KEYBOARD) 18: CHARACTER TYPE (DIGIT) 18: SECURITY FIELD (NO) 18: OVERRIDE ERROR FIELD (YES) 18: MINIMUM LENGTH (0) 18: EXACT LENGTH TABLE (NO) 18: RANGE (NO) 18: ALLOWABLE ENTRY (NO) 18: SUBSTITUTION (NO) 18: JUSTIFICATION (RIGHT) 18: FILL CHARACTER () 18: FLOAT CHARACTER () 18: DECIMAL POSITIONS (0) 18: SIGN POSITION (LEADING) 18: AUTO CLOSE (YES) 18: ARITHMETIC OPERATION (NO) 18: AUTO FILL-IN (NO) 18: NEXT PAGE NUMBER (NO) 18: BRANCHING (NO) 18: AUTO-INCRRMENT (NO) 18: OUTPUT TO MEMORY CELL (NO) 18: OUTPUT TO DISKETTE (YES) BIOFORM - 08 RECAPTURE 19: TAB STOP (YES) WEIGHT 19: INPUT TYPE (KEYBOARD) 19: CHARACTER TYPE (PRINTABLE) 19: SECURITY FIELD (NO) 19: OVERRIDE ERROR FIELD (YES) 19: MINIMUM LENGTH (0) 19: EXACT LENGTH TABLE (NO) 19: RANGE (NO) 19: ALLOWABLE ENTRY (NO) 19: SUBSTITUTION (NO) 19: JUSTIFICATION (RIGHT) 19: FILL CHARACTER ( ) 19: FLOAT CHARACTER ( ) 19: DECIMAL POSITIONS (0) 19: SIGN POSITION (LEADING) 19: AUTO CLOSE (YES) 19: ARITHMETIC OPERATION (NO) 19: AUTO FILL-IN (NO) 19: NEXT PAGE NUMBER (NO) 19: BRANCHING (NO) 19: AUTO-INCREMENT (NO) 19: OUTPUT TO MEMORY CELL (NO) 19: OUTPUT TO DISKETTE (YES) RECAPTURE 20: TAB STOP (YES) MATURITY 20: INPUT TYPE (KEYBOARD) 20: CHARACTER TYPE (DIGIT) 20: SECURITY FIELD (NO) 20: OVERRIDE ERROR FIELD (YES) 20: MINIMUM LENGTH (0) 20: EXACT LENGTH TABLE (NO) 20: RANGE (NO) 20: ALLOWABLE ENTRY (NO) 20: SUBSTITUTION (NO) 20: JUSTIFICATION (LEFT) 20: FILL CHARACTER ( ) 20: FLOAT CHARACTER ( ) 20: DECIMAL POSITIONS (0) 20: SIGN POSITION (LEADING) 20: AUTO CLOSE (YES) 20: ARITHMETIC OPERATION (NO) 20: AUTO FILL-IN (NO) 20: NEXT PAGE NUMBER (NO) 20: BRANCHING (NO) 20: AUTO-INCREMENT (NO) 20: OUTPUT TO MEMORY CELL (NO) 20: OUTPUT TO DISKETTE (YES) BIOFORM - 08 VARIABLE 21: TAB STOP (YES) FIELD 21: INPUT TYPE (KEYBOARD) #1 21: CHARACTER TYPE (PRINTABLE) 21: SECURITY FIELD (NO) 21: OVERRIDE ERROR FIELD (NO) 21: MINIMUM LENGTH (0) 21: EXACT LENGTH TABLE (NO) 21: RANGE (NO) 21: ALLOWABLE ENTRY (NO) 21: SUBSTITUTION (NO) 21: JUSTIFICATION (LEFT) 21: FILL CHARACTER ( ) 21: FLOAT CHARACTER ( ) 21: DECIMAL POSITIONS (0) 21: SIGN POSITION (LEADING) 21: AUTO CLOSE (YES) 21: ARITHMETIC OPERATION (NO) 21: AUTO FILL-IN (NO) 21: NEXT PAGE NUMBER (NO) 21: BRANCHING (NO) 21: AUTO-INCREMENT (NO) 21: OUTPUT TO MEMORY CELL (NO) 21: OUTPUT TO DISKETTE (YES) VARIABLE 22: TAB STOP (YES) FIELD 22: INPUT TYPE (KEYBOARD) #2 22: CHARACTER TYPE (PRINTABLE) 22: SECURITY FIELD (NO) 22: OVERRIDE ERROR FIELD (NO) 22: MINIMUM LENGTH (0) 22: EXACT LENGTH TABLE (NO) 22: RANGE (0) 22: ALLOWABLE ENTRY (NO) 22: SUBSTITUTION (NO) 22: JUSTIFICATION (LEFT) 22: FILL CHARACTER ( ) 22: FLOAT CHARACTER ( ) 22: DECIMAL POSITIONS (0) 22: SIGN POSITION (LEADING) 22: AUTO CLOSE (YES) 22: ARITHMETIC OPERATION (NO) 22: AUTO FILL-IN (NO) 22: NEXT PAGE NUMBER (NO) 22: BRANCHING (NO) 22: AUTO-INCREMENT (NO) 22: OUTPUT TO MEMORY CELL (NO) 22: OUTPUT TO DISKETTE (YES) BIOFORM - 08 VARIABLE 23: TAB STOP (YES) FIELD 23: INPUT TYPE (KEYBOARD) #3 23: CHARACTER TYPE (PRINTABLE) 23: SECURITY FIELD (NO) 23: OVERRIDE ERROR FIELD (NO) 23: MINIMUM LENGTH (0) 23: EXACT LENGTH TABLE (NO) 23: RANGE (NO) 23: ALLOWABLE ENTRY (NO) 23: SUBSTITUTION (NO) 23: JUSTIFICATION (LEFT) 23: FILL CHARACTER ( ) 23: FLOAT CHARACTER ( ) 23: DECIMAL POSITIONS (0) 23: SIGN POSITION (LEADING) 23: AUTO CLOSE (YES) 23: ARITHMETIC OPERATION (NO) 23: AUTO FILL-IN (NO) 23: NEXT PAGE NUMBER (NO) 23: BRANCHING (NO) 23: AUTO-INCREMENT (NO) 23: OUTPUT TO MEMORY CELL (NO) 23: OUTPUT TO DISKETTE (YES) VARIABLE 24: TAB STOP (YES) FIELD 24: INPUT TYPE (KEYBOARD) #4 24: CHARACTER TYPE (PRINTABLE) 24: SECURITY FIELD (NO) 24: OVERRIDE ERROR FIELD (NO) 24: MINIMUM LENGTH (0) 24: EXACT LENGTH TABLE (NO) 24: RANGE (NO) 24: ALLOWABLE ENTRY (NO) 24: SUBSTITUTION (NO) 24: JUSTIFICATION (LEFT) 24: FILL CHARACTER ( ) 24: FLOAT CHARACTER ( ) 24: DECIMAL POSITIONS (0) 24: SIGN POSITION (LEADING) 24: AUTO CLOSE (YES) 24: ARITHMETIC OPERATION (NO) 24: AUTO FILL-IN (NO) 24: NEXT PAGE NUMBER (NO) 24: BRANCHING (NO) 24: AUTO-INCREMENT (NO) 24: OUTPUT TO MEMORY CELL (NO) 24: OUTPUT TO DISKETTE (YES) BIOFORM - 08 VARIABLE 25: TAB STOP (YES) FIELD 25: INPUT TYPE (KEYBOARD) #5 25: CHARACTER TYPE (PRINTABLE) 25: SECURITY FIELD (NO) 25: OVERRIDE ERROR FIELD (NO) 25: MINIMUM LENGTH (0) 25: EXACT LENGTH TABLE (NO) 25: RANGE (NO) 25: ALLOWABLE ENTRY (NO) 25: SUBSTITUTION (NO) 25: JUSTIFICATION (LEFT) 25: FILL CHARACTER ( ) 25: FLOAT CHARACTER ( ) 25: DECIMAL POSITIONS (0) 25: SIGN POSITION (LEADING) 25: AUTO CLOSE (YES) 25: ARITHMETIC OPERATION (NO) 25: AUTO FILL-IN (NO) 25: NEXT PAGE NUMBER (NO) 25: BRANCHING (NO) 25: AUTO-INCREMENT (NO) 25: OUTPUT TO MEMORY CELL (NO) 25: OUTPUT TO DISKETTE (YES) LOAD 26: TAB STOP (YES) RECORD TYPE: 26: INPUT TYPE (KEYBOARD) ONE 26: CHARACTER TYPE (PRINTABLE) 26: SECURITY FIELD (NO) 26: OVERRIDE ERROR FIELD (NO) 26: MINIMUM LENGTH (0) 26: EXACT LENGTH TABLE (NO) 26: RANGE (NO) 26: ALLOWABLE ENTRY (NO) 26: SUBSTITUTION (NO) 26: JUSTIFICATION (LEFT) 26: FILL CHARACTER ( ) 26: FLOAT CHARACTER ( ) 26: DECIMAL POSITIONS (0) 26: SIGN POSITION (LEADING) 26: AUTO CLOSE (YES) 26: ARITHMETIC OPERATION (NO) 26: AUTO FILL-IN (NO) 26: NEXT PAGE NUMBER (YES - PAGE 1) 26: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 26: AUTO-INCREMENT (NO) 26: OUTPUT TO MEMORY CELL (NO) 26: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: TWO 27: TAB STOP (YES) 27: INPUT TYPE (KEYBOARD) 27: CHARACTER TYPE (PRINTABLE) 27: SECURITY FIELD (NO) 27: OVERRIDE ERROR FIELD (NO) 27: MINIMUM LENGTH (0) 27: EXACT LENGTH TABLE (NO) 27: RANGE (NO) 27: ALLOWABLE ENTRY (NO) 27: SUBSTITUTION (NO) 27: JUSTIFICATION (LEFT) 27: FULL CHARACTER ( ) 27: FLOAT CHARACTER ( ) 27: DECIMAL POSITIONS (0) 27: SIGN POSITION (LEADING) 27: AUTO CLOSE (YES) 27: ARITHMETIC OPERATION (NO) 27: AUTO FILL-IN (NO) 27: NEXT PAGE NUMBER (YES - PAGE 2) 27: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 27: AUTO-INCREMENT (NO) 27: OUTPUT TO MEMORY CELL (NO) 27: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: THREE 28: TAB STOP (YES) 28: INPUT TYPE (KEYBOARD) 28: CHARACTER TYPE (PRINTABLE) 28: SECURITY FIELD (NO) 28: OVERRIDE ERROR FIELD (NO) 28: MINIMUM LENGTH (0) 28: EXACT LENGTH TABLE (NO) 28: RANGE (NO) 28: ALLOWABLE ENTRY (NO) 28: SUBSTITUTION (NO) 28: JUSTIFICATION (LEFT) 28: FILL CHARACTER ( ) 28: FLOAT CHARACTER ( ) 28: DECIMAL POSITIONS (0) 28: SIGN POSITION (LEADING) 28: AUTO CLOSE (YES) 28: ARITHMETIC OPERATION (NO) 28: AUTO FILL-IN (NO) 28: NEXT PAGE NUMBER (YES - PAGE 3) 28: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 28: AUTO-INCREMENT (NO) 28: OUTPUT TO MEMORY CELL (NO) 28: OUTPUT TO DISKETTE (NO) BIOFORM - 08 LOAD RECORD TYPE: FOUR 29: TAB STOP (YES) 29: INPUT TYPE (KEYBOARD) 29: CHARACTER TYPE (PRINTABLE) 29: SECURITY FIELD (NO) 29: OVERRIDE ERROR FIELD (NO) 29: MINIMUM LENGTH (0) 29: EXACT LENGTH TABLE (NO) 29: RANGE (NO) 29: ALLOWABLE ENTRY (NO) 29: SUBSTITUTION (NO) 29: JUSTIFICATION (LEFT) 29: FILL CHARACTER ( ) 29: FLOAT CHARACTER ( ) 29: DECIMAL POSITIONS (0) 29: SIGN POSITION (LEADING) 29: AUTO CLOSE (YES) 29: ARITHMETIC OPERATION (NO) 29: AUTO FILL-IN (NO) 29: NEXT PAGE NUMBER (YES - PAGE 4) 29: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 29: AUTO-INCREMENT (NO) 29: OUTPUT TO MEMORY CELL (NO) 29: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: FIVE 30: TAB STOP (YES) 30: INPUT TYPE (KEYBOARD) 30: CHARACTER TYPE (PRINTABLE) 30: SECURITY FIELD (NO) 30: OVERRIDE ERROR FIELD (NO) 30: MINIMUM LENGTH (0) 30: EXACT LENGTH TABLE (NO) 30: RANGE (NO) 30: ALLOWABLE ENTRY (NO) 30: SUBSTITUTION (NO) 30: JUSTIFICATION (LEFT) 30: FILL CHARACTER ( ) 30: FLOAT CHARACTER ( ) 30: DECIMAL POSITIONS (0) 30: SIGN POSITION (LEADING) 30: AUTO CLOSE (YES) 30: ARITHMETIC OPERATION (NO) 30: AUTO FILL-IN (NO) 30: NEXT PAGE NUMBER (YES - PAGE 5) 30: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 30: AUTO-INCREMENT (NO) 30: OUTPUT TO MEMORY CELL (NO) 30: OUTPUT TO DISKETTE (NO) BIOFORM - 08 LOAD RECORD TYPE: SIX 31: TAB STOP (YES) 31: INPUT TYPE (KEYBOARD) 31: CHARACTER TYPE (PRINTABLE) 31: SECURITY FIELD (NO) 31: OVERRIDE ERROR FIELD (NO) 31: MINIMUM LENGTH (0) 31: EXACT LENGTH TABLE (NO) 31: RANGE (NO) 31: ALLOWABLE ENTRY (NO) 31: SUBSTITUTION (NO) 31: JUSTIFICATION (LEFT) 31: FILL CHARACTER ( ) 31: FLOAT CHARACTER ( ) 31: DECIMAL POSITIONS (0) 31: SIGN POSITION (LEADING) 31: AUTO CLOSE (YES) 31: ARITHMETIC OPERATION (NO) 31: AUTO FILL-IN (NO) 31: NEXT PAGE NUMBER (YES - PAGE 6) 31: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 31: AUTO-INCREMENT (NO) 31: OUTPUT TO MEMORY CELL (NO) 31: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: SEVEN 32: TAB STOP (YES) 32: INPUT TYPE (KEYBOARD) 32: CHARACTER TYPE (PRINTABLE) 32: SECURITY FIELD (NO) 32: OVERRIDE ERROR FIELD (NO) 32: MINIMUM LENGTH (0) 32: EXACT LENGTH TABLE (NO) 32: RANGE (NO) 32: ALLOWABLE ENTRY (NO) 32: SUBSTITUTION (NO) 32: JUSTIFICATION (LEFT) 32: FILL CHARACTER ( ) 32: FLOAT CHARACTER ( ) 32: DECIMAL POSITIONS (0) 32: SIGN POSITION (LEADING) 32: AUTO CLOSE (YES) 32: ARITHMETIC OPERATION (NO) 32: AUTO FILL-IN (NO) 32: NEXT PAGE NUMBER (YES - PAGE 7) 32: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS: BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 32: AUTO-INCREMENT (NO) 32: OUTPUT TO MEMORY CELL (NO) 32: OUTPUT TO DISKETTE (NO) BIOFORM - 08 LOAD RECORD TYPE: EIGHT 33: TAB STOP (YES) 33: INPUT TYPE (KEYBOARD) 33: CHARACTER TYPE (PRINTABLE) 33: SECURITY FIELD (NO) 33: OVERRIDE ERROR FIELD (NO) 33: MINIMUM LENGTH (0) 33: EXACT LENGTH TABLE (NO) 33: RANGE (NO) 33: ALLOWABLE ENTRY (NO) 33: SUBSTITUTION (NO) 33: JUSTIFICATION (LEFT) 33: FILL CHARACTER ( ) 33: FLOAT CHARACTER ( ) 33: DECIMAL POSITIONS (0) 33: SIGN POSITION (LEADING) 33: AUTO CLOSE (YES) 33: ARITHMETIC OPERATION (NO) 33: AUTO FILL-IN (NO) 33: NEXT PAGE NUMBER (NO) 33: BRANCHING (NO) 33: AUTO-INCREMENT (NO) 33: OUTPUT TO MEMORY CELL (NO) 33: OUTPUT TO DISKETTE (NO) LOAD RECORD TYPE: NINE 34: TAB STOP (YES) 34: INPUT TYPE (KEYBOARD) 34: CHARACTER TYPE (PRINTABLE) 34: SECURITY FIELD (NO) 34: OVERRIDE ERROR FIELD (NO) 34: MINIMUM LENGTH (0) 34: EXACT LENGTH TABLE (NO) 34: RANGE (NO) 34: ALLOWABLE ENTRY (NO0 34: SUBSTITUTION (NO) 34: JUSTIFICATION (LEFT) 34: FILL CHARACTER ( ) 34: FLOAT CHARACTER ( ) 34: DECIMAL POSITIONS (0) 34: SIGN POSITION (LEADING) 34: AUTO CLOSE (YES) 34: ARITHMETIC OPERATION (NO) 34: AUTO FILL-IN (NO) 34: NEXT PAGE NUMBER (YES - PAGE 8) 34: BRANCHING (TEST LINE: 23 POSITION: 80 ERASURE OF BRANCHED OVER FIELDS; BRANCH: MINIMUM LENGTH (0) BRANCH: MAXIMUM LENGTH (1) BRANCH: EXACT LENGTH TABLE (NO) BRANCH: RANGE (NO) BRANCH: ALLOWABLE ENTRY (YES - RAM: X;)) 34: AUTO-INCREMENT (NO) 34: OUTPUT TO MEMORY CELL (NO) 34: OUTPUT TO DISKETTE (NO) APPENDIX B-3: DIRECTORY FOR DATA ENTRY DISKETTE File Name Size ACTION 10 BIOFORM-00 155 BIOFORM-01 3276 BIOFORM-02 1768 BIOFORM-03 1887 BIOFORM-04 2284 BIOFORM-05 2704 BIOFORM-06 2483 BIOFORM-07 3250 BIOFORM-08 2121 LAYOUT 01 1150 LAYOUT 02 573 LAYOUT 03 751 LAYOUT 04 843 LAYOUT 05 988 LAYOUT 06 926 LAYOUT 07 1061 LAYOUT 08 851 SEX 31 APPENDIX-3-4: ALLOWABLE ENTRY AND SUBSTITUTION FILES File: Action 9;C;D; File Sex rig 1; FY2' U. 3; 2-2 APPENDIX C-1. Output from the update program NM 103 Rl NORTH CARCLINA DIVISICN OF MARINI FISHERIES PAGE I UPDATCji ACTIVITY RE Pon T DATE 04/26/84 REC. S EQ. REP. SPECIES LINE UPCATE ERROR TYPE NBR. NBP. CODE KBR. MESSACE PESSAGE DATA FROM TRANSACTICN 1 7201385 AECORC CHANGED 1007212053 02140CO10C 5538OC100 -0 3 730C524 01 8E352203C3 RECORD ADDED 00OC299999SCCOC299SS99CCOC299Sg9g2 4 7300524 01 8f35ZE03C3-0 COI RECORD ADGEO 0010100 4 73CC524 01 OE352PO3C3-0 CC2 RECORC AOCED 001C090 3 730C524 01 8E352EOSCI-O RECORD DELETED 999s9999999999gs9ris9gsq;qgss9g9990 4 730C524 01 8E35280901-0 ccl RECCPC DELETED 3 74CC498 01 BF35160401-0 RECCRC METED 999599gs9sscsq9s99qs99999955999990 4 7400498 01 8F35If04CI-O col RECCRD f)ELETED 1111111 3 740C498 01 BF3SI605C4-C RECORC ADDED 0000199999scccclssssqgccccl9gC,9992 4 74CC498 01 8(351605C4-0 CCI RECORE AOCED 001C068 3 7804666 01 6 1770 10102-0 RECORC CHANGED OOOC?00.0020CO0700.CO2CCCC7CC.CO21 3 7804667 01 617 70 1010 2-0 PECORC CHANGED 00014CO.007CO0140O.COTOC014CO.0071 3 7804715 01 8f35020301-0 RECCRO DELETED 999sgggsgsssggg5qsqsg99559ssgggggo 4 7804715 Ol 8E35C203CI-0 CCI RECORD DELETED 1111111 3 7804715 01 eF35402CI-0 RECORC ADCEO ODOC199999qccoclrvsSS99ccccl.;q9q991 4 78G4715 01 BE3!4CO201-0 ccl RECORC ACCED 3 7804749 01 aFS6010101-C RECCAC ACCEC 000139999990001?giSSSgCCC13S';SgggI 4 7804749 01 8E58010101-0 cct RECORC ACCEC 012CO55 4 7804749 cl 8F5EOIOIOI-O 002 RECCPC ACEED 001C045 3 7804749 01 U5e02'0101-0 REC.CPO DELETED 999s999999959995995599959555999990 4 7804749 01 8f5EC20101-0 OCI RECURO DELETED 1111111 4 7SC4749 01 8f5E02OIC1-O C02 RECORD DELETED. 1111111 3 7804848 01 SE35020?01-0 RECORD DELETED 99999999999999999999999ssiiiSS9990 4 7BC4848 01 8E35020301-0 001 RECCRC DELETED 1111111 4 7804948 ol 8F35C20301-0 C02 RECCRD DELETED IIIIIII, 3 7604848 01 E(354CO201-0 RECORC ADDED 0000299999SCC002SSSS99CCOC29999991 4 M:4848 01 Rf3!4C02CI-O CCI RECORC ADCED OOIcls5 7- Nm 100 Ri KPIN CAROLINA CIVISIC)@ CF PAFINE FISHERIES PAGE 2 UPCATE ACTIVITY REPORT DATE 04/26/84 REC. SEC. REP. !PECIES LINE UPDATE ERROR TYPE Neq. NBR. CCDE NBR. ?IESSAGF NESSAGE DATA FRCM TRANSACTICN 4 T804848 01 8f3!4CO2CI-O CC2 RECORC ADEED 0010205 4 79C3230 Co BE51020C4-0 cot RECORE CHANGED oncon .0004 31 3 T903335 01 6177010102-0. @ECORC CHtNGED OCOCROO.007CCOO8 00. C070CCUCC.0071 1 7903448 RECORC CH@NGED 433791203 CC060CO000 NI9 5530I.C0 2 T903448 cc PECORD ADDED 9S99999999S9070 3 T903448 00 BE350203CI-0 RECORD ADDED 999999999S'g@S';g@94;r7S99;;S;SS9gq990 3 79C2448 oc 8E352501CI-0 RECORC ADCEC 999s9999999sg9gsgsssq9ssssqsgsg990 3 79C3448 00 BE3044ClC4-0 PECORC AOCEC 99999999999si;ggsss@@q9sss5ss9g999o 3 T903448 Do 6e35440401-0 RECOPC ACCEC 99SS9999999999999g9c99qss@SSSS9990 3 79C3448 cc OE35440600-0 RECOPC ACCED 99,;s9g9s9sss,;99s99ss999599ssgsss9c 3 ?903448 CC 8E3c440701-0 RECORD ADDED 3 7903448 Do 8E51030103-0 RECORC ADDED 9999999s9sisseclsgsss99ss99ssgs9990 2 7903448 05 RECORC CHANGED 00133400133ACOO 3 790?448 05 BE35020301-0 RECCRC DELETED 9995999r,9g9s999999gs9gssisssssss9o 3 7903448 C5 RE352501cl-0 RECORD DELETED 3 T903448 05 8E35440104-0 RECCRO DELETED 99qs99ssqssssq9ssgSS999SSSS9999990 3 7903448 05 OE354404CI-0 RECORD DELETED 99999999995ql;sgss9s@999SSSSS999990 3 7903448 05 SE3!4406CC-0 RECORD DELETED 9999999999SS999ssss@9ss@l;sssssg9qo 3 7901448 M 8E35440701-0 RECORC DELETED 999s99999999999999SS99SSSSSSS59990 3 7903448 05 BE510?0103-0 RECORD DELETED I lqo344q RECORC CHINGEC 433791210 C00602000C NIS 553 2 T903449 cc RECOFO ADDED 995599999999100 3 7903449 00 s-lococococ-o RECORD ADCED 999999999995ssssgsqsq9sqqsqsqqqq9o 3 79C3449 00 872SO10105-0 RECORC ACCED 3 79C3449 00 OE3!0203CI-C RECORC AOCED 9999;9999999sev99%%%@@99%ss;ss9sq990 3 7'903449 Do 8E352',0101-0 PECORC ACCED 9ggs9qqs99q99999991;1@99sssiisgs9990 3 79C3449 cc SE35440104-0 RkCPC AVCED 9991999s9955999cl9gssg9ql;gl;s@SS9990 NM 100 Ri NORTH.CARCLINA DIVISICN OF MARINE FISHERIES PAGE 3 %CTIVITY REFORT upICATE@ DATE 04/26/84 REC SEQ. REP. SPECIES LINE UPCATE ERROR TYP; NeR. PIBR. CODE KBP. MESSACE PESSAGE DATA FROM TRANSACTIEN 3 T903449 oc OC35440401-0 RECORD ADDED 999s99999994;99999995994;sscss9s9990 3 7903449 00 8(354406CO-0 REccRc ADDED 3 790344q 00 BE354407CI-0 RECORD ADDED 9999999999sssqssssssg9ssqsssgg9990 3 79C3449 cc BE 5 10 20103-0 RECORC AOCtO 999999999999999s9qssg9qsssq;s9g;9990 3 79C344q 00 8E570io3cl-2 RECOPC ADCEU 9994;9999999CO01099SS99CCClCS9Sg992 ccl 4 79C3449 00 BE570!0301-2 RECORC ACCEC 00IC296 4 TgC3449 cc 8E57030301-2 002 RECORC ACCEC 00IC302 4 7902449 cc 8E5703C3CI-2 003 RECCPC ADDED OCIC270 4 7903449 00 8ES70303CI-2 CC4 RECORD ADDED 0010265 4 79C3441 Do SE510303CI-2 Cos RECORD ADDED 0010278 4 79C3449 00 SE57020301-2 CC6 RECORC ADCED OOiC30S 4 79C3449 cc 8E57036'301-2 007 RECORr AVEfr 001C264 4 790344q cc BE57030301-2 OCe RECORD ADDED 001C255 4 79C?449 00 8E5703C301-2 009 RECCRO ADDED 0010283 4 7903449 00 8(57C3C3CI-2 010 RECORC ADCEO@ 0010258 2 79C3449 05 RECORD CHA&GED 001212001212000 3 79C3449 05 570COCOOCC-0 RECORD DELETED 999q99gs999cj999sgqs@9ssssqssssq990 3 7903449 cs 872901OL05-0 RECORD DELETED 3 7903449 05 8E350203Cl-O RECORD DELETED 9994;999s9sss@S9599SS99ssssss9s9990 3 7901449 05 8F352501CI-0 RECCRO DELETED 999i9,7s59999999issSS99q4;55SS999990 3 79C3449 05 SE3544GIC4-0 RECORD DELETED 3 T9C3449 05 8E3!440401-0 RECORD DELETED 999999999999999,999ss,;,;sssiss959990 3 79C3449 05 BE 35440600-0 RECORE DELETED 9ggs999s99999999999%99ssssi@4;sggqo 3 7902449 cs BE 35440 701-0 RECORD DELETED 9994;9999999999959994;99999sssqs9990 3 7903449 05 BE51030103-0 RECCRO DELETED 99gq99ssgssiec,9599SS99ssssssgs999o 3 7903449 05 OE570303CI-2 RECORD DELETED 99999999999CO01CSSSS99CCCICqgS9992 4 7903449 05 BE570303CI-2 CCI RECORD DELETED a 1111111 NM 100 Pi KCRYM CARCLINA CIVISICV OF FOARIKE FISHERIES PAGE 4 fjPCATE ACTIVITY REPCRT DATE C4126/84 REC. SEC. REP. !PECTES LINE UFBATE ERROR TYPE NeR. NBR. CCOE NBR. FESSAGE MESSAGE DATA FPCH TRANSACTICN 4 7903449 05 SE57030301-2' 002 RECORD DELETED 111,1111 4 79C3449 05 8F57O?O3CI-2 003 RECORD DELETED I it'll 11 4 79C3449 05 8E57030301-2 CC4 RECORC DELETED 1111111 4 7903449 05 8E57030301-2 005 RECCRO DELETED 1111111 4 7901449 05 8(57030301-2 006 RECCPD DELETED 1111111 4 7903449 05 8(57030301-2' 007 RECCRO O,ELETEO 1111111 4 79C3449 05 8E570'30301-2, OCS RECORD DELETED 1111111 4 79C3449 05 SES7030301-2 CC9 RECORD DELETED 1111111 4 7903449 05 BE57020301-2, cic PECCRC'OELETED 1111111, I T90!450 RECOPO CHtNGED 43091213 CC06CCO000 NIS 553 2 T903450 oc @ECCRG ADDED 999S999S999S120 3 7903450 00 51050701CO-0 RECCRE ADDED 3 79C3450 00 570COCCCOO-0 RECORC ADDED 9999999999qssgss9sss99ssclsqsSS9990 3 79C3450 (30 5 70 80 10 200- 0 RECOPC ADDED 99959999999,99994;99gs9cs@@@ssgr,9990 3 7qci450 cc 872qOlOIO5-O PECGFC ACCEC 3 7901450. cc BF35020301-0 PECOPO AOCEC gs9sgqggggqqqqqsgqqsgg5qqsgsgsgggo .3 ?903450 CO BE352501CI-0 RECORD AVCEn 9999999s99ssss9s9ss@99SS99999sqq9o 3 79C3450 00 BE3!440IC4-0 R E COR C ACCEO 99 9 99 9999913 S Sqq S 5 ss i9q s SS SqS999990 3 TqC3450 co 0 e 3 54 40 40 1-0 RECORC ADDED 9999999999999991;99cs9gssssss9s999o 3 7901450 00 8 f 3 54 40 40 170 RECORD METED gggSgggggqgggqqSggqSggSSsS@S5Sq99o 3 T90?450 cc BE35440600-0 RFCORC AOCED 3 7903450 00 - SE35,440701-0 RECORD ADDED 9999999cgssss9gsggsi999SSSSS959q9o 3 7903450 00 SC510?0103-0 RECORD ADnEO 999 9q 99 999 S S is S s 99 S 19 91 is SS%999990 3 71)C3450 oc 8f61OIO2OI-C RECURC ADDED 99qq9999999,,9q9s995sqqssssssgsq990 2 7903450 06 RECORD CHANGED 003141003141000 3 7903450 C6 5 1050 TO 100-0 RECOPC 0 E@ ETE 0 9999999s9999999s9999995sisisSS9990 3 7902450 C6 5700000000-0 RECCRO DELETEC 9999999999999999999s99959gs5gigg9o hm 100 Ri NORTH CARCLINA OIVISICN OF FARINE FISHERIES PAGE 5 UPDATE ACTIVITY PEPORT CATE 04/26/84 REC. SEQ. REP. SPECIES LINE UPDATE ERSUP TYPE N FR. NOR. CODE so P. MESSACE VESSAGE DATA FROM TRANSACTIEN 3 790?450 Cc 5 70 80 10 200-0 RECCPD DELETED qgqs9,9q9991;19SC,99999s999sq.;.;Sr*s.;990 gggqgqgggSSSSSqSgqS59ggSgggqgggqqo 3 7903450 Oe 8729010105-0 RECORD DELETED 3 7901450 ce BF350203CI-0 PFCCPD DELETEd qqgsgs.%Sggqsgqqssss@ggs5ssssgqgqgo 3 79C3450 06 EIF35250kl-0 RECORC DELETED qq9999999sqsgclgsclsq;@9.grcq9c,99s9990 3 7qO?450 06 SE35440IC4-0 RECORD DELETED 999s99999999999sqss@ssssssss5s9990 3 79C3450 0 (Z 8 E 3 54 40 40 1-0 RECCAC DELETED 999q99q999gs9999,7991;99cso;@s@SS9990 3 7903450 06 80544o6oo-d RECCRO DELETED 9qqq99999q,999999999"9qs9ssqss9qgo 3 7901450 OIE 6F3@440M-O RECORD DELETED 3 7903450 06 81510?OIC3-0 RECORC DELETED 9q9s999999SSS99599s@9qssssss999990 3 7903450 Of BF61010201-0 RECORC DELETED 999s9g9999ss999s9gssq9sss@SSSSS990 01 8E35020102-0 8OC2854 FiECORC ACCEC OOOC19999990000199,;,q99ccccl4;ss9997 4 8002854 ol BE 3 50 20 10 2-0 ccl RECCRC ACCCO OOtC225 3 3 9002954 Cl BE35160602-0 RECCPD DELETED 99q"(;qs99sss99s999s999sssilSS9990 4 A002854 01 BE35106C2-0 Oct RECORD DELETED 1111111 3 8002872 01 SE352CO101-0 RECCRO DELETED 9999999999SS599sggsc,,@gsss@ssss9ggo 4 6002072 Ol BE 3 !2 CO I C I- C Ccl RECORD DELETED 1111111 3 8OC2872 01 8E35520101-0 PECOPC ACCED OOOC19999990000199ssqscccclS,999991 4 8002RT2 01 80552OM-0 ect RECORD ACCEC 001CO55 3 8002880 Ol BE35020301-0 FECCRO DELETED 9 9,9 S9 94; S99 s SS99 S994; 599 999 SS s9s9990 4 8002880 01 OE35020301-0 Ccl RECORD DELETED 1111111 3 80c2ES0 01 8f352CClCI-O RECORC DELETED 9999999999ssq;clqsssssg9qsssss9s9990 4 8002980 01 8E3!206101-0 M RECORD DELETED 3 SOC2810 ci SE35400201-0 RECCRC ADDED 00OC6999999COOOe999S99OCCC6SSS9991 4 8002600 Cl 8 f 3 54 CO 20 1- 0 Oct PECCRr ADCEC OC6CIO5 3 8002880 01 SE3552DICI-0 RECORC AOCED 00OC29gs99SCCC029SS599CCOC29999991 4 8002890 01 6E355201CI-0 CC1 RECORC ADDED 0020065 I SOC2995 RECORC CHAhGEO 433601125 OCC6CCOOCC NIS 553 NM 100 Rl NORIH CAROLINA DIVISICK CF PAPINE FISHERIES PAGE 6 UPCA7E.,7ACTIVITY REPORT DATE C4126/84 REC. SEC. RE P . !PECIES LINE UFDATE ERROR TYPE NER. NBR. CCO e NEIR. VESSAGE VESSAGE DATA FRCM TRANSACTICN 2 8002995 00 RECORC ADDED 99999999999CC60 3 9OC2995 cc 57MCOCOC-0 REEOPt ADDED 919CP9991;9 iqssqssssqs9990 3 8002995 CC 805440102-0 RECCPC ADDEn 999599gs9qql;99999999999sqsgsgs9s9o 3 8002995 cc 8e35440'104-0 RECORD ADCEC 3 8002995 00 8E354406CO-0 RECORD ADDED 3 8002995 00 8E510?0103-0 RECORD ADDE 0 9q99999s999ssqss.;gss9sqst;4;59999990 3 8002995 Cc 8E57030301-2 RECORC AOCED 9994;9999999CO01099SS99CCClCS999992 4 SOC2995 00 8E57030301-2 ccl PECORC AOCED 0010222 4 BOC2995 00 8E570?0301-2 CC2 RECORE ACCEC 0010204 4 80C2995 cc SE57030301-2 003 RECOPC ACCEC OCIC280 4 8002995 CC SE570303CI-2 C04 RECORD ADDED OCIC269 4 B002995 00 OE57030301-2 ccs RECCRC ADDED 0010251 4 OCC2995 00 8E51030CI-2 CC6 RECORE ADDED 0010290 4 BOC2995 Do 8E570?0301-2 CC? RECORC ADDEO 0010261 4 8OC7995 00 8ES7030301-2 OCe RECOR E ACCEC obIC178 4 8002995 cc OF57030301-2 ccs RECCPC ADCEC CC I C2 84 4 8002995 cc BE57030301-2 010 RECERC ADDED 0010255 2 8002995 05 RECORC CMAKGED 5108.0sloo.coco 3 BOC2995 05 570COC0000-0 RECORC DELETED 9g9g99q99gqs999s9g9s99ssssss5s9g9o 3 8002995 05 8E 3!443 102-0 RECORD DELETED 3 8002995 cs RE35440104-0 RECcpc nELETED 3 8002995 .05 8F3!4406CO-0 RECORD DELETED 999s999sqg,;sgs9s99ss999s9cqs9s9990 3 8002995 05 8E5IO!atO3-0 RECCRD DELETED 3 8002995 C5 8(570303CL-2 RECORD nELETEO 999@999999qsssqssels@99ssssgs9s999o 3 SOC21')5 05 BE57030301-2 NOT DELETED RECCRO NOT ON FILE 9999999S999;999S9S;S4;cSiSiSS999gqO 4 '8002995. 05 SE57030301-2 CCI RECORD DELETED IIIIIII 4 8OC2995 05 SE57030301-2 Oct NCT DELETED RECORD NOT CN FILE 1111111 hm 103 p I NORTH CAR C L INA DIVISICN OF PAPINE FISHERIES PAGE 7 UPDATE ACTIVITY FEFCPT DATE 04/26/84 AEC. SEQ. REP. SPECIES LINE UPCATE ERROR TYPE NCR. NBR. CODE KBF. MESSACE IIESSAGE DATA FROM TRANSACTICN 4 8002q95 05 8E57010301-2 CC2 RECORD 6ELETED lillill 4 8002995 05 BE57030301-2 002 NCT DELETEC RECCRC NOT CN FILE iiiiiii 4 800299@ 05 BE 5 7030361-2 OC3 RECCRO DELETED iiiiiii 4 8002995 05 8f5?O3O3Cl-2 C03 NOT DELETED RECCRC NOT CN FILE 1111111 4 8002995 05 8F57030301-2 OC4 RECORC DELETED iiiiiii 4 8OC2995 05 8E570?0?01-2 CC4 NCI CELETED RECCRO NCT CN FILE 1111111 4 8002995 05 8F57030301-2 005 RECORD DELETED 1111ILl 4 BOC2q95 05 8E57030301-2 CC5 NCT DELETED RECCPC NOT CN FILE 1111111 4 8002995 05 8f57030301-2 CC6 RECORC DELETED lillill 4 8002995 05 SE570303CI-2 CC6 NOT DELETED RECCRO NOT CN FILE 1111111 4 8OC2995 05 SE570?0301-2 OC7 RECORD DELETED 4 8OC2995 05 BE570?0301-2 CC7 NCY CELETFO RECERC NOT CN FILE 1111111 4 8002995 05 8E57030301-2 Dee RECCRU DELETED 1111111 4 A002995 05 M703001-2 OC8 NOT DELETED FtECCRE NOT CN FILE ItIlIll 4 8002995 05 BF570303CI-2 OC9 RFCCRD DELETED 1111111 4 8OC2995 05 8E570303CI-2 CC9 NOT DELETED RECCFD NOT ON FILE 1111111 4 5CO29q5 05 BE 51030301-2 Cie PFCORC 13ELETED 1111111 4 8OC2995 05 8t57030301-2 Ole NCT CELETED RECCRC NOT EN FILE 1111111 1 8002()97 RECORD CHINGED 4336012C4 0006CCOOOO N19 5S3 2 8002997 cc RECERC ADDED 9q9s9ssq9qsqoqo 3 80021117 00 570cotocco-O RECORC ADDED 3 8OC299? OC OT@9010105-0 RECORC AOCED 999CI99999995999s995599sissssSS9990 3 0002997 cc BE 3 !020301-.C RFCOPC AOCEC@ 999,;qggSgggggggcggS@SS@SSISqcgSgqqo 3 8002997 cc gf35250101-0 RECORD Ar)DED 999qqq9q999qqqqs999qqql9rlqslqssqqqc 3 8002997 00 BF35.440104-0 RECORC ADCED 3 8002997 cc SE354407CI-0 R ECCRO ADDED gqgSggqSgggSgqgSgqqlq9SSSSS4;gSqqgo 3 8002997 00 RESC030SCI-0 RECORC ADDED Nm 100 Rl NORTH CARCLINA CIVISICh CF PAFINE FISHERIES PAGE 8 UPCATE ACTIVITY REPORT DATE 04/26/84 REC. SEC. REP. SPECIES LINE UOCAIE ERROR TYPE NOR. NOR. CCOE NBR. MESSAGE MESSAGE DATA FRCM TRANSACTICN 3 SOC2997 00 OE5IC?OIC3-0 RECORC ADDED 3 8cc2qql 00 SE51030103-0 RECORC DELETED qgqq9qqg99qr.999999g;i9s;ssss@959990 3 8002997 00 8ES7033301-2 RECOPC AOCED 999s999s999coolo99gs99CCCICS54;9992 4 8002q97 00 SE570?0301-2 ccl PECOPC ACCEC 00IC290 4 8002997 cc 8f57030301-2 C02 RECCpr ADDED 0016200 @4 8002-997 00 BF57030CI-2 CC3 RECORE ADDED 0010264 4 8CC2q97 00 RF5703C3CI-2 CC4 RECORC ADDED 0010310 4 8002q97 00 8(5703C3CI-2 CC5 RECORC ACCED 0010184 4 8CC2997 00 8E570?0301-2 CC6 RECORC ACCEC DOIC277 4 BCC21797 CC SESI030301-Z 007 RECCRE ACCED 002C292 4 R002997 cc 8ES703030t-2 008 PFCOPD A0CED OCIC295 4 8C02997 00 8(57030301-2 CC9 RECOPE ADDED 0010303 2 BOC2997 05 PEOPE CHANGED L585.81585.EOOD 3 SOC2997 05 57000CO000-0 RECORC DELETED 999599r,599CIS999999c";qqclsi@i@CIC,99qo 3 e00299l C5 8729010105-0 RECCPC DELETED qggs9qqq9qgq999999SS999599@s9sqqqo 3 8002797 05 BE350203CI-0 RECERC DELETED qgqSqqSSqgiiqggSggSS999SSSSggSgqgo 3 8002997 0! SE35250101-0 RECORD OELETED 999999999qsssq9ig.;Sigg,,59-.9599@990 3 9002997 05 8E35440IC4-C RECORD DELETED 9199999999999999@s5is9se@ssssssqqgo 3 80C2q9T 05 SE35440701-0 RECORC DELETEO gggqgggggggSgqgd;994;4;9959rSSScSggqo 3 8002977 05 RE50070501-C PECOPO OfLETEC qg9s999999999q9s995issssssssSS9990 3 8002f)97 C5 SE57030301-2 PECOPO DELETED 4 800299T 05 gf57030301-2 col RECERD DELETED 4 8002997 05 BES70303CI-2 OC2 PECCAD OCLETCO 4 800299T 0! 10570303CI-2 CC3 RECORD DELETEO 4 8002q97 05 8f5703C3CI-2 004 RECORD DELETED 4 OOC21)91 05 OE5?0?0301-2 ccs RECCRc nELETEO 4 P002997 05 Be57030301-2 OC6 RECORD DELETEC N4 100 Rl NORTH CARCLINA DIVISICN OF PARINE FISHERIES PAGE 9 UPDATE 4CTIVITY REPORT CATE 04/26/84 REC. SEC. REP. SPECIES LINE UPCATE ERROR TYPE NeR. NBR. CODE NBP. MESSACE PESSAGE DATA FR64 TRANSACTICN 4 8002997 05 BE5?030301-;2 OCT RECORD DELETED- 111 lill 4 8002997 05 8E57030301-2 00e RECCRC DELETED 1111111 4 8002997 05 SE57030301-2 009 RECCOD DELETED IIIIIII I 8CO3000 RECORC CHANGED 433801217 CC06CI00CC N19 553 2 8OC3000 cc RECORC AOCED 999S9999999@080 gggSqggqggg,;gqgqgggcggc;SS@@@SS999C 3 SCC300 co 5TOO000000-0 RECOPC ADCED 3 8003000 cc 8729010105-0 RECORD ADCEC 999s999s9999999999qsq99s9q9qg5999o 3 8003000 00 8E352@olcl_o, ADDED 3 6C03COO 00 813144DIC4-W RECORC ADDED 999999999qg@@s,;scss@@;q@sssssgggggo 3 8CC3000' Do 8E35440701-0 RECORC ADCED 3 8003COD cc 8e5oo?olo2-o RECORC ACCEC 999999999999999r,99qs99rsssssss9q9o 3 9003000 00 8E51010103-0 RECOPC AOCEC qgssq9qq9gg,5999;999599ss5sssgsgggo 3 800?000 cc BE57030301-@ RECORD ADDED 999S99qS999COOO4999S9900004SgS9g92 4 80c?ooo 00 8f570303CI-2 001 RECCRC ADDED 0010223 4 800?000 00 BE570303CI-2 CC2 RECORE ADDED 0010232 4' 80C3000 oc SE57030301-2 M RECORC ACCED 00IC196 4 8cc?ooo cc SE570?0301-2 CC4 RECORE ACCED 0010214 2 800?COO C5 RECORD CHtNGEC 863C.2883C.2000 3 800?COO 05 570COCODOO-0 RECORD DELETED 3 8003000 05, 872';Olf)IC5-0 RECCRO DELETED 9995999595SS599599siq9sisil;5959990 3 8CC3C00 05 BF352-@olcl_o RECORC r)EL ETED 999.)oqqggqqSgggSSJS@qgSJ55qS,7qgggo 3 8003000 05 6E3!44QIC4-D PECORC DELETED 999sgggggqqqqggcg-.Vigssst;@ssq.;qqqo 3 8CC3000 05 SE35440TOI-0 RECORC DELETEC 9s9s99999999999999qqqqsssi@SSISS90 3 800?000 C5 SE50030102-0 PECCRD DELETED 9999999s99999999999CI9994;99cs9s999o 3 8003000 05 8f5lO?OlC3-0 -RECORD DELETED 999s999s9s,;iqq9s9ssig9ss99S9959990 3 8003000 05 BF57030301-2 RECORD DELETED 99999999999599919qsi99ssqsss9q9990 4 SIOC30 00 05 Bf5?O3()301-2 OCI RECORC DELETED NM 100 Ri NCRIH CAR,CLINA DIVISICh CF PAFINE FISHERIES PAGE 10 UPCA7E ACTIVITY REPORT DATE C4126/84 REC. SEC. REP. !PECIES LINE UPDATE ERROR TYPE NeR. NHR. CCDE NOR. PESSAGE PESSAGE DAYA FRCM TRANSAC71CN p 4 8003000 05. 8FS70303CI-2 002 RECORD DELETED 1111111 4 9003000 05 9ES70303CI-i' OC3 RECORD DELETED IIIIIII 4 ROC3000 C5 8E570?0?01-7 OC4 RECORC DELETED iiiiiii 4 ROOM0 DS 8E57030301-9 OC5 NCT DELEIEC RECORD hOT CN FILE llillll 3 8101598 ot 8747CI06GI-d RECCRO DELETED 999s999s9sssss9s99SS999s9q99959990 4 81015913' 01 8747CI06CI-6 C01 RECCRC DELETED titilli 3 8101598 01 H470106cl-d RECORE ADDED 006019999990C)OOISSI@99CCCCIS9999q2 4 910.1598 01 CE47010601-d CCI RECCRC AOCELI* 0010036 3 8101599 01 8747010601-d RECbRC DELETED 999s99999999999q99959q9999qs9sssgo 4 81015r)q cl 8747010601-d COI RECtPD DELETED 1111111 4 8101599 01 8747r,10601-0 CC2 RECCRD DELETED 1111111 81015q9 01 8747010601-0 M RECORD DELETED 1111111 q 4 8101599 01 87410106Cl-6 @C4 RECORC DELETED 1111111 4 8101599 cl 8T47010601-0 C6 RECORC DELETED 1111111 4 8101591) cl 8747CIO601-0 CC6 RECCRO DELETED 1111111 4 8101599 01 8747C106CI-O 007 RECORC DELETED 1111111 4 8101599 ol 8747010601-6 Cos RECCRD DELETED 1111111 4 8101519 01 8747006CI-C ccq RECORC DELETED 1111111 3 8101579 01 OF470106CI-0 REWAC AOCED 00OC9999999COOOSc@SSS99CCCCS4;999992 4 8IC1599 01 BE47010601-0 ccl RECORC ACCEC 001C026 4 8101599 01 OC47010601-0 C02 FtECrjRC ACCEC 001C040 4 8101599 CI 8E47010601-0 CC3 RECCRO ADDEO 001C024 4 8101599 01 BE47CIO601-0 C04 RECCRC ADDED 0010040 4 81.01599 01 8(410IC6CI-0 CC5 RECORC ACCED 0010032 4 8101599 01 OE4?OIOfOI-O CC6 RECORC AOCED 001C031 4 8101599 01, 8.E47010601-0 CC? RECORE Accer 0010034 4 8101599 ol OF47C10601-0 CCE RECORD ADCEO OOIC028 NM 100 Rl NORTH CARCLINA DIVISICN OF MARINE FISHERIES PAGE 11 UPDATE ACTIVITY REPORT DATE 04/26/84 REC. $EQ. REP. SPECIES LINE UPDATE ERROR TYPE hep. NBR. CODE hap. MESSACE PESSAGE DATA FROM TRANSACTIEN 4 8101599 01 BF4701060i-0 Cog RECORD ADCEC 001C029 3 8101?58 01 8F354403 01-1 RECORD DELETED 999sggssqssss@gs9gssgggsgsssgsggso 4 8101758 01 8(3!4403CI-I cci RECORD DELETED 1111111 4 8IC1756 01 8(3!4403CI-I CC2 RECORC DELETED lilliti, 4 8101758 01 ge3!4403CI-1 CC3 RECORD DELETED illilil 4 8IC1.758 01 SE35440301-1 CC4 PECORC DELETED 1.111111 4 RIC1758 01 BE35440301-1 005 RECOPC DELETED 1111111 4 8101758 cl OE35440301-1 C06 PECOPO DELETED 1111111 4 (Milss 01 BES!440301-1 CC7 RECORZ @)EIETED 1111111 4 8101758 01 6E3!4403Cl-l Coe RECORD DELETED 111.1111 4 810175q 01 8e3!440?01-1 CCC7 RECORC DELETED IIIIIII, 4 6101758 01 8E3544030i-I 010 RECORE DELETED Villill 4 8101759 Cl FIE35411,0301-1 oil PECCPO DELETED iiiiiii 3 8101758 Ol 8F35440301-2 RFCnFO DELETED 9999999999siSS9599SS99ssssss9s9q9o 4 8101758 01 8(3!440301-2 Cci RECORD DELETED litilit 3 8IC1758 01 8F35440401-1. RECOPC ACCED 00334999999CO33499SS99CC03CSS59992 4 8IC1758 01 BE 3!41;0401-1 ccl RECORC ACCED 0050040 4 8101758 ci BF354@0401-1 M RECCPC ACCEC 005C039 4 8101758 ci BE3544040t-I 003 PECCRC ACCED 906CO30 4 8101758 cl 8(354404CI-1 C04 RECCRD ADDED 001C052. 4 8101758 01 BE354404CI-I CC5 RECORC ADDEO 0010035 4 131CITS8 01 8(3!4,404C1-1 OC6 PECORC ADDEO 0010043 4 8101758 ot GE35440401-1 CC7 RECORC AOCEC 002C036 4 8101?58 Ol SE35440401-1 008 PECORC ACCEC Q02C042 4 8101758 cl BE35440401-1 cog RECCRD ADDEO 001C033 4 8101758 01 GE35440401-1 010 RECCRC ADDEO 0020037 4 9101758 01 Bf3t4404CI-l oil RECORD ADDED 004CO41 NM 100 Rl NCRTH CARCLINA DIVISICK CF 10APINE FISHERIES PAGE 12 UPCAIE/;A@TIVITY REPORT DATE C4J26/84 REC SEC: PEP. !PECIES LINE U.FDAIE ERROR TYP; NOR NBR. COD E NBR. WESSAGE RESSAGE DATA FRCM TRANSACTICN 3 8IC1753 01 8E3,5440401-2 RECORC AOCED 00OC2999999CC0025SS!99CCCC29999992 4 8101758 01 BE3!4404CI-2 ccl PECOPC ADDED 0010132 4 8101758 .01 8E35440401-2 C(2 RECORC ADCEC 001C126 3 8101780 Cl 6177010.103-0 RECOOC CHINGED' ooccioo.oioooooloo.cloocooibo.oioI 3 8101821 Ol SE350203CI-0 kECORO DELETED 00OC199594;SCCCC194;r-599CCOC1994;9992 4 8101871 01 8E3!020301-0 ccl RECORr DELETED 1111111 3 8101821 .01 U354CCM-O RECORC ADCEO 00OC199999900001SIS@9SCCCCIS999992 4 8101821 01 8f3!4C02OI-O ccl RECORD ADDED 00IC141 4 8101832 01 87@7020202-G CIC RECORD CHfNGEC OCIC062 3 8101844 cl 8E35200101-0 RECCRO DELETED 4 8101844 01 EE3!2COICl-C col RECORD DELETED itilill 4 8101044 01 8f3t2C0ICl-;-0 M RECORC DILETEC iiiiiii 3 8101844 01 8F355201CI-0 RECORC ADDED 00002999999000025SS@99CCCC299S9992 4 9101844 Ot 8E2!5201CI-0 ect R6CORC AncEc 0010033 4 SIC1844 cl 8E35520101-0 M REC09C ACCEC 001C027 3 P101P47 01 8F35200101-0 RECORD DELETEC 9SSS99999999999s9991;99gg9srls9s99go 4 8101847 01 8f352COICI-0 001 RECORD DELETED 1111111 4 8101947 01 BF352COlCI-0 002 RECORD DELETED 1111111 4 8101847 01 8E3!2COlCI-C M RECORD DELETED 4 8IC1847 01 86352CO101-0 CC4 REccpc.nELE7ED 1,111111 3 810184T cl BE35520101-0 RECORD ADDED 00OC69999990000699gS99OCCC6SSgq992 4 8101847 01 8E355201CI-0 001 RECCRO ADDED 002CO33 4 8101847 Ol F(355201rl-0 002 PFCrRC AIVED 0010031 4 $3101847 01 U3!5201CI@C M RECORC ADDEO 0010037 4 81C184T 01 8f3c.5ZOICI-C 004 R ECOR C AOCED 002CO38 3 9101865 01 RE 35 200101-0 NCI -SOCE0 RECCRD CN FILE 00oc6q9999900006999999cccc6sss9992 3 , 81C1865 O'l BE35200101-0 PECORC DELETED 9199sqqqs99ssqq9s999s99q9qsssssqggo NM IOD RI NORTH CARELINA DkVISICN OF PARINE FISHERIES PAGE 13 UPDATE ACTIVITY REFORT CATE 04/26/84 RFC. SEQ REP. SPECIES LINE LJPCATE ERROR TYPE NPR: NBR. CODE KBiR. MESSACE PESSAGE DATA, FROM TRANSACTICN 4 8101865 ol 8E352CO101-0 ccl NCT ADDED RECCRD CN FILE 002CO71 4 8101865 01 8E352COiOI-O 001 RECCRO DELETED 4 SIC1365 01 6(352CO161-0. CC2 NOT A .DDED RECCRC CN FILE 0010074 4 8101965 61 SE352CQICI-O cu RECORD DELETED 4 8101865 61 M!MlCI-C C03 NOT ACCED RECCFD CN FILE 001C040 4 0101865 01 8F35200101-0 CE3 PECORC DELETED ilifill 4 8101865 01 8E352CO101-0 004 NtT ACCEC RECCRU CN FILE ooltb64 4 8101865 cl RE3520C161-0 004 RECOPO OELETLPC 1111111 4 8101865 01 BF3!2CCIGI@o 005 N67 ACCED RECCRC LN FILE 0010050 4 8101865 01 BF352colcl-c C05 RECORD DELETED 4 8101868 01 BESE020101-0 ccl RECORE CHANGED 001636 4 6101884 01 BE35440401-0 003 RECOO.C CHANCED OOIC,22 8101905 01 6179110301-0 RECORD DELETED 9(;9s999s9sq@sggs99gs999s9qss9s9990 4 8101905 01 61791103CI-0 col RECCRO DELETED IIIIIII, 4 8101q05 ol 6171;1103Cl-O CC2 RECORD DELETED 1111111 4 8101905 01 617SI103Cl-C C03 RECORD DELETED 4 8101905 ol 6179110301-C CC4 RECORD DELETED Milli 4 9101905 cl 6179110301-0 ccs RECOPO DELETED IIIIIII 3 8101905 01 61 7SI 10303-0 RECCRC ADDED OoOC599-,95SCCOC59SSS99CCO05SSS9992 4 6101905 01 6179110303-0 cci P6CCRC ADDED 001C024 4 81CI')05 ol 617511030@0 C02 RECORD ADDED 0010029 4 81C1905 01 6179110303rC C03 RECORC ADCED OOIC03 I 4 8IC1905 01 6 179110 30 3-0 CC4 RECORC ADCEC 001C033 4 8101905 ol 6179110303-0 CC5 RECORC ACCEC 001C030 1 8101929 RECOAD.CHANGEO 433EI12CS CCOSC3000C N19 553 2 8101929 00 RECCRC ADDED 999s99ssq9qqC?O 3 8101929 00 510COCOCCC-0 RECORD ADDED 99999999999g9rv9sssss9995qss4;999990 NM 100 RI NCRIH,CAPOLINA DIVISICh CF PAPINE FISHERIES PAGE 14 UPCATE ACTIVITY REPORT DATE C4/26/84 SEC. REP. SP ECJE S L I NE UPCATE ERROR TYPE Pier'. NaR. CCOE NBR. PESSAGE MESSAGE DATA FRCM TRANSACTICN 3 RICI929 00 SE352501cl-0 RECORD ADCED 99999999999SCI99issSS99SSSSSS999990 3 8lcIq29 00 8 E 3 !4 401 C2-C RECORC ADCED 999CI9999999s99919sii99si4;sssssq990 3 61C1929 oc 8E 354 40 10 4-0 RECORC ADCED 999CI99999999999999qs999ss@s@,;s9q9o 3 13101929 cc 8E35440401-D AEdCPC AODEC qggsqglsgsssgggsggqqgggsssssggggqo 3 8101929 00 8E354404Cl-O RECORD DELETED 999CI999s99cscqsss9ss99,;s9sss9q9990 3 8101W9 00 8E5102C103-0 RECORC 4DDED 99999999999ssss@ssss9s.;@SqSS999990 3 8IC1929 oc BE57030301-2 RECORC ADCED 99999999999CO012999S99CCC12SS99992 4 RIC19,19 00 8F570303CI-2 Ccl RECORC AOCED' 0020275 4 BICIS29 00 8 E 5 70 20 JO 1- CC2 RECCRC ACCEC 00IC285 4 SIC1929 cc 8E57030301-2 003 AECORC ACCEC OOLC254 4 8101929 CC 8E5703030,1-2 C04 kECCFD ADDED OCIC265 4 8101929 00 8E570303Cl-2 ccs RECORC ADDED 0610226 4 81C1929 00 8(5703C3Cl-2 CC6 AECORC ADDED 0010195 4 81 c 19217 00 6 E 5 70 ?0 301-2 CC7 RECCRC ADCED 0010270 4 SIC1929 cc 8 E 5 703030 1- 2 00e RECCRE AUCEC 00IC268 4 8101929 oc BE57030301-2 ccs RECORD AUCEC 00IC283 4 8101929 CC SE57030301-2 010 RECCRC ADDED 001C224 4 9101929 00 BE570303CI-2 Oil RECORC ADCEC 0010267 2 81C1929 05 RECORC CHtNGtD 001897001897000 3 8101929 05 570COCOCOC-0 RECORD DELETED 999s99999s9s999s99sssss@sss9ss9g9o 3 8101929 C5 SE35250101-0 RECORD DELETED 3 8101929 05 8F35440102-0 RECORD DELETED 999s999s9sssss9ssssi99gss5ss9s999o 3 8101929 oll 8E3',1440104-0 RECCRO DELETED 9q9s9sgs9s9sg99sgsSS99SSSSSS999990 3 8IC1929 05 BF5103CIC3-0 RECORC DELETED 99999999999SS99SSSSS99SS4;sss9s999o 3 9101929 05 OF 57030301-2 -RECORD DELETED 9991;9999999sg994;99css4;s4;siss9s9990 4 8101929 05 8ES7030301-2 Ccl RECCRC DELETED IlItIll 4 8lcl9z9 05 Se 57030301-2 002 RECORG DELETED 1111111 NM 100 RI NORTH CARCLINA D.IVISICN OF 10APINE FISHERIES PAGE 15 UPCATE,ACTIVITY REFORT DATE 04/26/64 REC. SEQ. REP. SPECIES LINE UPCATE ERROR TYPE NER. NBR. CODE t%np. MFSSAC-E FESSAGE DATA FROM TRANSACTICN 4 8101929 05 8ESTON301-2 OC3 RECORD DELETED illitil 4 8101929 05 V5700301-2 004 RECCPC DELETED IIIIIII 4 8101929 C! 8E57030301-2 ocs RECCRO DELETED 1111111 4 8101129 05 SF570303CI-2 CC6 RECORD DELETED 1111111 4 liclqzq 05 SF570?03CI-2 CC7 RECORD DELETED 4 8IC1929 05 8E57030'301-2 Cce RECCAC DELETED 1111111 4 81011)29 05 8ES7030301-2 009 RECORD DELETED 1111111 4 8101929 OIC 8F57030301-2 CIO RECCpr) nELETED lillill 4 8101929 05 U57030301-2 Oll RECORC DELETED 1111111 1 8101935 R'ECORC CHAKED 433811218 CC05C20OCC NIq 553 2 8IC1935 oc@ RECORC AOCED 999S99999999060 3 8101935 Oc 570COC0000-0 RECOPC AOCEC 99SS99999995999sq9csqclf;ssssel9rlqgqo 3 8101935 cc 872SO1010-0 RECORD ADDED 999s9q9s9ssssq9,.q99s999s99scqsqq9o 3 8101935 OC 8(35250101-0, RECORC ADDED 999999gs9gisss9@rlss@919CIsgiSS999990 8IC1935 00 82 3 54 40104-0 RECORC ADDED 9999999qq9gc;gq9lg9qss9gsss.;ss9c;9990 3 SIC1935 00 8(3!44(16CC-0 RECORC AOCED 999r,9999999sss9isqii999sqsssgs9990 3 8101935 OC BE 35440 701-0 RECCPC ADCEO q99g9999959rvqq9s9s5s9s5ss@ssgs9990 3 SIC1935 cc 8E35440701-0 RECOPC DELETEC gs9clq99s99ssss9999qs999s9ssis.;ss9c 2 8101935 C5 PECOFD CHtNGEG 00OC6200OC62000 3 9101935 05 5TCCOCOOOO-0 RECORD DELETED 9999999sq9sss99s995s99ssq;99999990 3 8101935 05 872SO10105-0 RECORD DELETED 3 8IC1935 05 BE 352 SOICI-O RECURC CHANGED 99.)999999 SqSq99 Sq.; S SSS 4; SS SS S999990 3 8101935 G5 SE35440104-0 RECORD DELETED 999s99999999999999qs99gs9sssSS9990 3 8101935 05 8E35440600-0 RECCRO DELETED 999s99ss9ssss99s99SS99gsqqg9ss9990 4 8200447 00 8f354404CI-0 Coe RECCRO ADDED OOIC152 1101 4 8200447 00 8E35440401-0 C09 RECORD ADDED 0010197 1102 4 82C0447 Oc BE3!440401-0 010 RECORC ADUED 0010152 1101 NCR IH, CA.RCLINA CIV.ISICK EF PAPINE FISHERIES PAGE 16 Nm 100 Rl IUPCATE ACTIVITY REPORT DATE 04/26/84 REC SEC. REP. !PEC IES Lll@E UPCATE ERROR MESSAGE DATA FROM TRANSACTICN TYP; NBQ. NOR. CODE NOR. PESSAGE 3 8200883 01 e747CI06CI-0 9ECORr DELETED 4 820C983 01 87470106CI-0 ccl AECORC DELETED 3 82CC883 cl OE4 70 1060 1-0 RECORC AOCED 00001999999CCO019995q9oooclsssq;,;q2 OOIC022 4 8200813 01 BE47010601-0 col RECCRC ADDED 4 8202876 cl SE3!2@0101-2 020 RECCPO CHANGED 003C303 4 8202878 04 8f57030301-5 cli RECORD CHANGED 0020418 RECORD CHANGED 0317.50317.!(110 2 82C2880 10 Z 17587002638CO1480022.2CCt4ECO22.22 3 82CZ904 04 8e35440701-0 RECORC CHANGE 4 8300157 01 8E35440701-0 CCe RECOPO CHANGED bOIC329 05284CO00C 1345 555600200 12CE3052SAL3 I 8300814r @ECOPD CHtNGEC 1 8301069 RECORD CHANGED l20e3O6C3JIC C537C4010C 1730 15561C.5C 3 8302644 06 RE3!020501-0 RECORC AOCED 3 8302644 06 8E3!020502-0 RECORC DELETED sssc(ccIsssqqqo 3 8302653 GO 9708020201-0 RECORD CHANGED oooclqqqq qqoooolqsc 001CS20 4 8302655 07 BE35360501-3 cis RECCPC CHINGE0 999c;goooo.sss9qsoocc.gss9sqcoco.qo 3 8302656 10 BE35020301-4 RECCRC CHANGED 3 8302661 cc 9C02040101-0 PECCAn CHANGED ooool94;s99rcooolgc;(;Sqgccccl4;qqggqo ;@qqccccls9s9990 3, 8302661 00. 97CE02OCCO-0 RECORr CHANGED 00001999999cccclq;, 4 8302663 01 8F3!0205C5-C- OC2 RECORC CHANGED 0010580 3 93r2666 02 8E350'20101-0 RECOPC nELETEO q99-;999q999999q999qs99ssq .5@4;4;59990 3 8302666 C2 U35020505@0 RECORD ACCEC OC0410110.700041011C.7CCO410110.70 4 8302730 cl u3tUOLCI-2 001 RECCRO CHA%GED 0020230 4 8302730 01 8f3!020101-2 OC7 RECORC CHANGED 0010165 4 83C2730 01 RF3!020101-2 OC8 RECORC CHANGED 0010153 4 8302730 01 8E3!020IC1-2 ccs RECORC CHANGED 0010144 4 8302730 01 863',020101-2 Cic RECORC CHANUM 002C142 4 8302730 ot Re3502001-2- 011 11E.CCPD cllkhtn ODIC145 PAGE 17 Nm too Rl NORTH CARCLINA DIVISICN OF POAPINE FISHERIES CATE 04/26/84 UPDATE ACTIVITY REPORT REC. SEQ. REP. SPECIES LINE UPCATE ERROR Typ@ Nf!p. NBR. CODE KBA. MESSACE OESSAGE DATA FROM TRANSACTICN 4 8102730 01 8e350'20101-i 012 RECORD CHtNGEC OClCI67 4 8302730 01 BE35020101-2 Oil rECCRO CHANGED 00IC143 4 8302730 01 BE3SO20101-2 014 RECCRO DELETED 4 8302737 01 8747010102-1 CC3 RECORC CHANGED 0110055 4 83C2737 01 8747010102-1 CC7 RECORD CHANGED 0020056 4 8302737 01 o747010102-1 Cce: kCCRC'CHtNGEC 003C058 16102-1 ccs RECOPO CHANGED OC'lCO52 4 8302737 01 87470 4 u30273T 01 8747CIO102-1 CIO RECCRO DELETED 1111111 1 8302926 RECCRO CHANGED 43883llC7C9C250CC4CC0OCC 424 0 4 83C2993 01 618SOIC3Cl-C cci RECORC CHANGED 0010016 2 4 83C2993 01 6189010301-C CC2 RECORC CHANGED 0010011 2 3 83C1059 01 8E3536Oi6o-o RECCPC DELETED 3 830?059 cl 8E35360112-0 RECORD ADCEC OOOC1999999coool9sc,9990cocisgsgggo 3 81,03073 01 U35C2C505-0 RECCRC CHANGED 000130OS2.ICCO330CS2.ICCC3300r,2.10 3 83C3074 15 8E35020410-0 RECORC ADCEd 000030254.CCO0020254.CCCOCIC254.04 4 8303074 15 8E?!02041C-C Oci RECORD ACCEO 0011660 88.9 4 8303C74 is BE350@0410-0 CC2 PECORE ACCED 0011400 51.7 4 8303174 15 SE35020410-0 C03 RECORD ACCEC 0011770 113.4 3 8303074 15 8F3502 1701@O ,RECORD DELETED 999CI999C,9sssrlggs9cSS999sgccps9s9q9o 4 83@3174 I! SE35C217CI-0 OCI RECORD DELETED 1111111 4 8303074 is SE3!021?Cl-C CC2 RECORD DELETED 4 8303074 15 OF3!0217CI-C CC3 RECORD DELETED 1111111 2 F330?129 01 PECOPC CHANCED 999999999999080 3 83C?129 01 61530CO000-0 RECCPr ACCEC 9999599999SSSS959995999S995SSS999C 3 8303129 01 6177020101-0 RECORD ADDED 9999;5S9S959SS99!4;SS59Sg@99SSSq;9990 4 8303133 ol 6leSO103CI-0 ccs RECORD CHANGED 0010148 23 4 830315T 01 BE354407CL-0 C02 RECORC CHANGED 001C028 NM 100 R I KCRIM CARCLINACIVISION OF PARINE FISHERIES PAGE 18 UPCATE"iACTIVITY REPCRT DATE C4/26/84 REC. SEC. PEP !PECIES LINE UFDAIE ERROR TYPE NeR. NBR: CCDE NBR. YESSAGE VESSAGE DATA FRCM TRANSACTICN 3 8303164 00 805026301-3 RECORD CHANGED 00001999999ccocisgsc;990cccll;qs9990 3 8303164 00 SEI!MEOI-C PECORC ACCED 1 999999999999999sq9ssssssssSS999990 3 83C3164 00 8E37010104-0 R5CCPC DELETEC 9991;999999999991;9991;99ssssssrsqqqo 3 8303166 CC 8E35020301-2 PECORC ACCEC 99gS9g9999999991999S990CO200003.42 4 8303166 CC 8f35020301-2 col RECCAC ADDED 00IC200 4 8303166 00 U35C@0301-2 OC2' RECCRC ADDED 0010190 4 8303166 00 SE3!0203Cl-2 003 RECORC AOC.ED 001026o 4 8303166 00 BE 3 50 20 3C 1-2 'CC4 PECOPC AOCED 0010200 4 83C3166 oc BE 350 20 30 1- 2 CC5 PEC(IRE ACCEC' 00IC205 4 8303166 CC BE35020301 -2 CC6 PkORD AOCED OCIC210 4 8303166 00 80@02C301@2 CC? RECCR 0 ADCE6 0010240 4 8303166 00 8F3SO203Cl-2 Cce RECCRC ADDED 0010210 4 8303166 00 8E350203CI -2 CC9 RECORC ADDED 0010210 4 83C3166 00 BE 3 !0 ;0 30 1' 2 CIO PECOPC ACCE 0 0010200 4 83C3166 CO BE350'2030i-2 oil RECORC 4CCEC 00IC210 4 8303166 oc 8E35020301-2 012 FECORD ADCEC MC205 4 8301166 00 BE35020301-2 013 RECCRC ADDED 00IC200 4 83C3166 00 8F3!0203CI-2 C14 RECORC AOCED 0010225 4 8303166 00 8E3@0203CI-2 C15 RECORC ADCED 0010210 4 8303166 Go BE 350 20 30 1-2 C16 PECORC ACCED 0010200 4 8303166 00 8E35020301-2 C17 PECCPC ACCEC OClC2O5 4 8303166 CC 605020301-2 Ole RECCPO ADDED OoIc2Is 4 8303166 00 8E35020301-2 019 RECORC ADDED 0010215 e. 93C3166 00 8E3!O 20301-2 02C RECORC ACCED 0010205 % 3 8303166 00 8E35020305-2 PECORC DELETED 99999999999C.95959sis9ssssssgss9990 4 8303166 00 Be 350 20 30 5-2 ccl RECORC DELETED 4 83C3166 CC BE 3 5020 305- 2 C01 NCT CELETEC RECCRC hOT CN FILE .1111111 N4 100 RI NORTH.CARCLINA DIVISICN OF MARINE FISHERIES PAGE 19 UPDATE ACTIVITY REPGRT DATE 04/26/84 PSC. SEO. PEP SPECIES LINE UPDATE ERROR TYPE KBR. NBR. CODE Kap. MESSAGE MESSAGE DATA FROM TRANSACTICN 4 830? 166 cc 8E35026305-2 CC2 RECORD DELET -ED 111IL11 4 8303166 oc 8E35026305-2 CCZ NG7 DELETED RECCRC KOT CN FILE 111111t 4 8303166 00 8E35020305-2 cci RECORD DELETED 1111111 4 8303166 00 BE3!0203CS-2 OCS NOT DELETED RECCFO NOT CN FILE 1111111 4 8303166 00 8E3!0203C5-2 OC47 RECORD DELETED 1111111 4 830?166 cc 88350203OS-2 CC4 NCT DELETEC RECCRD NOT CN FILE 1111111 4 8303166 oc 8E35020305-2 CC5 PECOPO DELETED lillill 4 8303166 00 8(35020305-2 005 NOT DELETED RECCRC NOT CN FILE 1111111 4 8303166 00 8E3,'020305-2 CC6 RECORD DELETED 1111111 4 8303166 00 8f3!C203C5-2 co6 NOT DELETED PECCAD NOT ON FILE IiIlIll 4 83C3166 00 6 8 3 50 20 30 5-2 CC7 RECORr DELETED 1111111 4 83C3166 cc BE35020305-2 cce RECCRC DELETED iiiiiii 4 8303166 cc 8E35020305-2 C09 PECO@D DELETEC iiiiiii 4 8303166 00 8E350203C5-2 010 RECCRD DELETED iiiiiii 4 8303166 00 BE350203C5-2 Cil RECORD DELETED iiiiiii 4 8303166 00 8f3!O203C5-2 C12 RECORD DELETED 1111111 4 83C3166 oc 8E35020305-2 C13 PECCRD DELETED 1111111 4 9303t66 oc BE35020305-2 C14 RECCRO DELETED iiiiiii 3 8303643 00 8741050500-0 RECORD DELETED 3 8303643 00 0741050504-0 RECORD ADDED 00001999999ccoelrlt;cls9qccccIS999990 3 8301643 oc 8F50020501-0 RECORD DELETED 3 8303643 cc BE50030501-C RECORD ADDEO 000140060.?000140C(C.3CCCC!CO2C.90 2 F14CCC04 cc RECOPC ADEEC 999599999999090 I 84CCCO5 RECGPC CHtNGED 433E40106 0005C?0000 hig 2EeCS530090 1 8400019 RECCRO ADDEO 434E402Ct OOOSC40000 N19 28802453COOO 2 .8400019 00 RECCRC ADDED 999S999S9999clo 3 840C')I9 00 8e3!020102-0 RECORD ADDED 000010015.4000010CI!.4CCCCICCIS.44 N4 100 RI KCRIH CARCLINA DIVISICK CF FAFINE FISHERIES PAGE 177 UPCATE ACTIVITY REPORT DATE C4/26/84 REC. SEC. REP. !PECIES. LINE UPDATE ERROR TYPE NOR. NBR. CODE NOR. PESSAGE YESSAGE DATA FRCM TRANSACTICN 1 8499999 NOT CHANGED RECCRC NOT CN FILE 999841010 0123212321 000 I 849S999 NOT CHANGED RECIRD NOT CN FILE 999841U10 0123212321 000 I 84SS999 NOT CHINGEC RECERD NOT CN FILE 999841OLO 0123212321 000 4 84SS999 CC 6F35440401-0 001 NCT CH@NGEO RECORD NOT CN FILE 001 676,361 MASTER FILE RECERCS BEFORE LPDATE 4,337 RECCPDS ADDED 80 RECCROS CHANGED 278 PECCRCS CELETED 61 TOTIL TRANSACTICNS REJECTED 680,420 MASTER FILE RECCROS AFTER UPDATE 1110 N" 100 RZ NORTH CAROLINA DIVISICN CF PARINE FISHERIES., PAGE I EDIT ERROR NARNING REPCRT DATE 04126/84 PEC, SEC. REP. SPECIES LINE ERROR TYPE NRP. NBR. CODE KBR. MESSAGE 3 7804666 01 6177C10102@0 SPECIES CODE 6177010102 NOT FCUND IN VFSPP 3 7904667 Cl 6177ClCIC2-C SPECIES CODE 6177010102 NOT FOUND IN PFSPP 3 7903338 01 6177CICIC2-C SPECIES CCDE 6177010102 NOT FCUND IN MFSPP 2 7903450 00 NUM.SPECIES RECCRDS(Ill NOT - REP.SPEC.OF 12 2 ECC2S97 Oc NUM.SPECIES RECCROS(OB) NOT - REP.SPEC.CF 09 2 Ecc2c97 cS NUM.SPECIES RECCRDS(01) NOT - REP.SPEC.CF OC 3 8101730 01 6177010103-0 SPECIES CODE 6177010103 NOT FCUND IN #OFSPP .2 e 10 186 5' 01 NUIJ.SPECIES RECCRDS(15) NOT - 'REP.SPEC.OF 16 2 E101529 00 NUM.SPECIFS RECCRDS(06) NOT - REP.SPEC.CF 07 2 E101529 05 NUM.SPECIES RECCROS(01) NOT - REP.SPEC.OF 00 2 E101935 00 NUM.SPECIES RECORDS(05) NOT - REP.SPFC.OF 06 2 810lq35 05 IYUPO.SPECIES RFCCRDS(021 NOT - REP.SPEC.CF 00 3 8303129 01 6177C2CICI-0 SPECIES CCDE 6177020101 NOT FOUND IN MFSPP I 840OC19 GEAR TYPE 245 IS INVLO FOR PROGRAM NUMBER 414 1 8400020 CEAR TYPE 245 IS INVLD FOR PROGRAM NUMBER 4?4 3 81-OCC22 01 8835250101-3 NUM. IND lV.REC(00094 ) NE SPEC SUOSAM. OF OOOq3 I EIOCC26 GEAR TYPE 245 IS INVLO FOR PROGRAM NUMEER 434 1 8400027 GEAR TYPE 245 IS INVLD FOR PRCGPAM NUM13ER 434 3 040C02e) Oc 6177C101012-0 SPECIES CCOE 61T7.010102 NOTIFOUND IN FFSPP 3 840CC29 01 e83544CICA-2 NUM.INDIV.REC1000801 NE SPEC SUPSAM. OF 00086 3 84,00C31 00 883544C701-C NUM.INDIV.REC(000131 NE SPEC SUbSAM, OF 00009 2 E40CC31 oc NUM.SPECIES RECORDS(03) NOT - REP.SPEC.0F 04 1 6400032 NUF).REPLIC.RECORDS NOT. - ENVIR.REPLICS OF 10 4 84JOC34 03 883544C7CI-C 001 THIS RECORD TYPE INVALIC.PUR SPECIES FORMAT 0 4 840OC34 03 883544C7CI-C 002 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 I 840OC34 N.UP.REPLIC.FECORDS'NOT - ENVIR.REPLICS OF Oe 3 040CC40 00 6177CIO102-C SPECIES CODE 61TIOI0102 NOT FOUND IN MFSPP NM 100 R2 NORTh CARCLIhA DIVISICN CF MARINE FIS@-ERIES RAGS 2 ECIT ERROR WARNING REPCRT DATE 04/26/84 REC SEQ. REP. SPECIES LINE ERROR TYPE NBR. KBR. CODE NBR. MESSAGE 4 840OC40 00 883544C701-C ccl THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 840OC40 00 RR3 54407C I- C 002 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 8400040 cc e83544C7CI-C 003 T14LS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 F400040 00 883544C7Cl-C 004 THIS RECORD TYPE INVALID FOR SPECIES FCRMAT 0 4 8400040 00 883544C7CI-C 005 THIS RECORD TYPE INVALID r-OR.SPECIES FORMAT 0 040CC40 00 e835440701-C 006 THIS RECCRC TYPE INVALIC FOR SPECIES FORMAT 0 4 840OC40 00 883544C7Cl-C C07 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 8400040 00 883544C701-C CC8 THIS RECORC TYPE INVALID FOR SPECIES FORMAT 0 4 8400040 Oc 883544C7CI-0 009 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 8400040 oc 883544C7CI-C 010 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 840OC40 00 883544C701-C oil THIS RECCRD TYPE INVALIC FOR SPECIES FORMAT 0 4 8400040 00 883544C7CI-C C12 THIS RECORD TYFE INVALID FOR SPECIES FORMAT 0 4 e40CC40 oc 8835440701-C C13 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 E40CC40 Oc 883544C?01-C 014 THIS RECORD TYPE INVALID FOR SPECIES FORMAT 0 4 8400040 Oc 883544C7CI-C 015 THIS RECORC TYPE INVALID FOR SPECIES FORMAT 0 2 8400154 03 hUtI.SPECIES RECCROS(OI) NOT REP.SPEC.OF 02 N4 100 R3 NORTH CARCLTNA DIVISTCN EF MARINE FISI-*ERIES PAGE I MASTER FILE STRUCTURAA' ERPCR REPCRT DATE 04/26/84 SEQUENCE REPLICATE SPECIES L I NIE po I SS I NG 10 1 SSI NG IIISSING OUP NON SEC NON !EQ MISSING NUMBER NUMBER CCOE N LM, e ER ENVIR REPLIC SPECIES TAG TAG INDIV I NO Iv CATA DATA DATA RECAPT RECAPT RECCPD RECORD 7300524 Ol 6E35280901 0 CC2 x x 8101756 01 80S440301 2 C02 x x 8303166 00 8E35020305 2 01! x x 8303166 00 8E35C20305 2 016 x 8 303166 00 8F3@02030 2 C17 x 8303166 Do 8f!!OZ0305 2 Cie x 00 8F35020305 2 cis x 6303166 00 605020305 2 020 x 5 7 A T I S T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAV9 APRIL 269 1984 %ARNING THIS VERSION UF SAS IS NCT SUPPORTED. COKTACT YOUR LCCAL CCPIPLITING FEPRESENTATIVE TC OeTAIN THE SUPPORTED VERSICh OF SAS. LISTING OF LPCAiES FOR'MARINE FISHERIES SPECIES DATA SYSTEM I ---- --------- 5---------6 --------- 7--------- 8 ---- --------- O--@ ------I--------- 2--------- 3 C*1#77#013q5* *lCO*7?12C5*3@ OC214ccoloo* 5*538*OO1C*O.75*O.25*I*!*-; *3.10 *Cq3*Cq2* *019*CI9* 0, *CIO *3*T3*0O524*CI*CARANX HIFP(]S*O* *OCOC2*SS9999*00002*cSg99;*00002*999999*2* *6*73*0f.'524OCl*CAPANX HIrPCS*O*CCIO 1# ICCO I* 9C* 0 0, 0: 0, D*3*73*OC524*CI*TRACHI CAFOLI*O* *9999@*sss@rg*ggggg*gqgggg*ggggg*()ggggg*o* 0, D*6*T3*O0524*Cl*TRACHI CAFCLIOO*OCI*Ill*llll* 0 D*3*74*CC498*CI*ENNEAC CHAETO*O* *ssss@sstqqqg*9c)999*999999*99.;qg*gggggg*o* L)*6*j4*CC498*Cl*EP.NEAC CHIEIC*0*001*111011110 0 4 0 *3*74*0049B*CI*LEPOMI MACRCC*O* *OCOCI*SS9S99*00001*9@9999*00001*999999*2* 0, *6*74#0C498#Cl*LEP0Ml PIACRCC*O*CC1* 1# 6e* 0, .C*3*78*046664CI*PENAEL' CUCRAR*O* *00OC7*CC.CC2*00OC7*00.002*00007*00.002*1* C*3-?8t0466?*CI*PEfAEU DUCRIR*O* *OCC14*CC.CC?*00014*OC.OC7*00014*OC.007*1* D$3*7A#O4715#CI*CENTRO STFIAT*O* *9@l;is*s@9199*99qqs*999999*99999or7c7q999*0* D*6*78#04715IC1*CENTRC SIFIAT*0*001*111*11110 0 0 0 0 0 0, *3*78*04715*01*ORTHOP CHPYSO*O* *ooool*9s9999*OOCCI*4;59999000001*999999*10 *6*78*04715*CI*ORTHOP CHFYSO*O*CCI* 10 450 0 0' 0 0, *3*?8*C4749*CI*TFtINEC MACULA*O* *00013*SSSSI;9*CCC13*999999*00013*999999*to 06#T8#O4?49*CI*TRINEC MACULA*O*CCIO 12# 5!* 1* 450 0 0 STATISTICAL ALNALYSIS SYSTEM G 23 THURSDAY, APRIL 26, 1984 2 WARNING: THIS VERSION OF SAS IS NOT SUPPORTED. CONTACT YOUR LOCAL COMPUTING REPRESENTATIVE TO DETAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM 1 2 3 4 5 6 7 8 9 0 1 2 3 D 3 78 04749 C1 SYMPHU PLAGIU 0 99995 999999 99999 999999 99999 999999 0 D 6 78 04749 C1 SYMPHU PLAGIU 0 001 111 1111 111 1111 D 3 78 04848 C1 CENTRC STRIAT 0 99999 999999 99999 999999 99999 999999 0 D 6 78 04848 C1 CENTRO STRIAT 0 001 111 1111 111 1111 3 78 C4R48 C1 ORTHOP CHRYSO 0 00002 999999 00002 9999999 00002 9999999 L 6 78 C4848 C1 ORTHOP CHRYSO 0 001 1 155 1 205 C 4 79 03230 C0 PARALI LETHCS 0 001 001 28 0004 3 1 C 3 79 03338 C1 PENAEU DUCRAR 0 00008 00 007 00008 00 007 00008 00 007 1 C 1 79 03448 433 791203 00060000000 N 19 553 0100 01 5 2 3 18 C6 2 79 03448 00 999999 999999 07 0 3 79 03448 00 CENTRO STRIAT 0 99999 999999 99999 999999 99999 999999 0 3 79 03448 00 POMATO SALTAT 0 99999 999999 99999 999999 99999 999999 0 3 79 03448 00 CYNDSC RECALI 0 99999 999999 99999 999999 99999 999999 0 3 79 03448 00 LEIOST XANTHU 0 99999 999999 99999 999999 99999 999999 0 3 79 03448 00 MENTICIRRPUS 0 99999 999999 99999 999999 99999 999999 0 3 79 03448 00 MICROP UNCULA 0 99999 999999 99999 999999 99999 999999 0 N4 100 Rl NCR IH CARCLINA CIVISICh Cf: @AVINE FISHERIES PAGE 20 uPEATE ACTIVITY REPORT DATE 04/26/84 REC. SEC. RE p !PECIES LIKE UPCATE ERROR TYPE NFR. NSR. CCDE NOR. PESSAGE FESSAGE OATA FRCM TRANSACTICN 4 8400019 oo 8E35020102-0 C'O I RECORC ADDED 0 0 1'10 8 6 155.42 31 2 84CCO19 01 RtCORC AUCED [email protected] 3 84CCO19 01 8 E 3 5 0 20 10 2- 5 WECOR C ADCED 0'00010015.4CCO010015.40COClCCIS.44 4 8400019 ol 8 E 3 5 0 20.10 2- 5 cci RECCRC ACCED 001108@ 2 1 8400026 RECCRC ADDED 43qe402Cl CC05C40OCC N19 2880245480CO 2 840OQ20 00 RECCRO ADDED 9q91;999s99qqoIo 3 840COZO 00 8e35020IC2-0 WE CO .RC ACOED 000030065.200003OC6!.ZCCCC3CC65.24 3 4 84CO020 00 BFI!020102-0 CCI RECORC ACCEU 0011192 20.62 1. 4 840CO20 00 8 E 3 50 ;0 102- 0 CC 2 PECORC ACCEC OCLIZ50 25.82 31 4 8400020 CC 8 E 3 5 0 20 10 2- 0 003 RECORD ADDED 0011130 18.82 31 2 8400020 ol PECCRD ADDED 006!.20C65.2010 3 R400020 Ol BE 3 50 ;0 102-5 RECCRC ADDED 000030065.20CO0300tt.2CCCC3CC65.24 4 840CO20 01 8E35020'C2-5 OC1 RECORC AOCED 0011192 2 4 94CCO20 01 88?!020102-5 tC2 RECORC AOCED 0011250 2 4 84CCO20 01 8e35020102-5 003 RECCRC ACCEC 0011130 2 1 8400022 RECORD AOCEC 434e40201 OOO5C3OOCC NI9 3C2400900L 2 94CO022 00 RECCAD ADDED 99qs999s99qqolo 3 8400022 00 U354401C4-0 RECORC ADDED 00004999999COO0.4SSS599CCCC4S999994 4 84CCO22 00 HE 35440104-0 Col RECORC ADCED 00IC671 3.35 31 4 94CO022 00 BE 3 @440 IC4-C CC2 RFCORt ADCED 0010670 2.7t 31 4 8400022 CC BE35440.104-0 CC3 RECORD ADCEO 00IC680 2.58 31 4 8400022 CC BE3!440104-0 004 RECCRO ADDED 00IC731 3.6e' 31 2 8400022 01 RFCCRC ADDED 0907.20068.CC16 3 640CO27 01 SE35250101-3 RECORD ADDED 0124009CT.ZC(093OC6(.OCCCq3CO68.O2 4 640CO22 01 Be3!2501CI-3 Ccl RE C()R C AOCED 0010320 4 84CCO22 Ol BE 3 !2!0 101-3 CC2 RECORC ACCED 00IC346 4 84CCC22 Cl 8E3525010 1- 3 C03 RECORC ACCED 0010348 STATISTICAL ANALYSIS SYSTEM C 23 THURSDAY, APRIL 26, 1984 3 WARNING THIS VERSION OF SAS IS NOT SUPPORTED. CONTACT YOUR LOCAL CONFPUTING REPRESENTATICE TO DETAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM 1 2 3 4 5 6 7 8 9 0 1 2 3 3 79 C3448 00 PEPRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 C 2 79 03448 C5 001334 001334 00 0 D 3 79 03448 C5 CENTRC STRIAT 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03448 C5 POMATO SLTAT 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03448 C5 CYNOSC REGALI 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03448 05 LEIOST XANTHU 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03448 C5 MENTICIRRFUS 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03448 C5 MICROP UNIULA 0 99999 999999 99999 999999 99999 999999 0 D 3 79 02448 05 PEPRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 C 1 79 03449 433 79210 0006020000 N 19 553 01 5 1 3 18 5 06 2 79 03449 00 999999 999999 10 0 3 79 03449 00 MOLLUS CEPHAL 0 99999 999999 99999 999999 99999 999999 0 3 79 03449 00 ACIPEN OXYRHY 0 99999 999999 99999 999999 99999 999999 0 3 79 03449 00 CENTRO STRIAT 0 99999 999999 99999 999999 99999 999999 0 3 79 03449 00 POMATO SALTAT 0 99999 999999 99999 999999 99999 999999 0 3 79 03449 00 CYNOSC REGALI 0 99999 999999 99999 999999 99999 999999 0 STATISTICAL ANALYSIS SYSTEM D 23 THURSDAY, APRIL 26, 1984 4 WARNING THIS VERSION OF SAS IS NOT SUPPORTED. CONTACT YOUR LOCAL COMPUTING REPRESENTATIVE TO OBTAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM 1 2 3 4 5 6 7 8 9 0 1 2 3 3 79 C3449 00 LEIDST XAPTHU 0 99999 999999 99999 999999 99999 999999 0 3 79 C3449 00 MENTICIRR US 0 99999 999999 99999 999999 99999 999999 0 3 79 C3449 00 MICROP UNCULA 0 99999 999999 99999 999999 99999 999999 0 3 79 C3449 00 PERRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 3 79 03449 00 PARALI DENTAT 2 99999 999999 00010 999999 00010 999999 2 6 79 03449 00 PARALI CENTAT 2 001 1 5290 71 302 1 270 1 265 1 278 1 305 1 264 1 255 1 283 1 258 C 2 79 03449 C5 001212 001212 00 0 D 3 79 03449 05 MOLLUS CEPHAL 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 ACIPEN OXYRHY 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 CENTRO STRIAT 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 POMATO SALTAT 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 OYNOSC REDALI 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 LETOST XANTHU 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 MENTICIRRFUS 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 MICROP UNCULA 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 PEPRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 D 3 79 03449 05 PARALI DENTAT 2 99999 999999 99999 999999 99999 999999 2 STATISTICAL ANALYSIS SYSTEM 23 THURSDAY, APRIL 26,1984 WARNING THIS VERSION OF SAS SI NET SUPPORTED. CONTACT YOUR LOCAL COMPLTING REPRESENTATIVE TO OBTAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM -----+----1----+----2----+----3----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3 0*6*79*03449*(5*PAPALI STATISTICAL ANALYSIS SYSTEM C 23 THURSDAY, APRIL 26, 1984 6 WARNING THIS VERSION OF SAS IS NOT SUPPORTED. CONTACT YOUR LOCAL COMPUTING REPRESENTATIVE TO OBTAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM -----*----1----*----2----*----3----*----4----*----5----*----6----*----7----*----8----*----9----*----0----*----1----*----2----*----3 C*2*79*03450*C6* * * *CC3141*CC3141*00*C* * D*3*79*03450*C6*BUSYCON *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*D6*MOLLUS CEFMAL *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*OCTOPUS *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*ACIPEN OXYR+Y *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*CENTRC STFI AT *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*POMATO SALTAT *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*CYNOSC RECALI *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*LEIOST XAMTFU *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*MENTICIRRFUS *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*MICROP UNCULA *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*PERPRIL TRIACA *0* *99999*999999*999999*99999*99999*999999*0* * * * * D*3*79*03450*C6*SPHOER MACULA *0* *99999*999999*999999*99999*99999*999999*0* * * * * *3*80*02854*C1*MORONE SAYATA *0* *00001*999999*00001*999999*00001*999999*7* * * * * *4*80*02854*C1*MORONE SAYATA *0*001*001* 225* * * * * * * * * *3* * * * * * D*3*80*02854*01*MICROP SALMCI *0* *99999*999999*99999*999999*99999*999999*0* * * * * STATISTICAL ANALYSIS SYSTEM 0 23 THURSDAY, APRIL 26, 1984 7 WARNING THIS VERSION OF SAS IS NOT SUPPORTED. CONTACT YOUR LOCAL COMPUTING REPRESENTATIVE TO OBTAIN THE SUPPORTED VERSION OF SAS. LISTINGS OF UPDATES FCP MARINE FISHERIES SPECIES DATA SYSTEM ----*----1----*----2----*----3----*----4----*----5----*----6----*----7----*----8----*----9----*----0----*----1----*----2----*-----3 D*6*80*02854*C1*MICROF SALMCI*0*001*111*1111* * * * * * * * * * * * * * * * * * D*3*80*02872*01*ETHEDS FUSIFO*0* *99999*999999*99999*999999*99999*999999*0* * * * * * D*6*80*02872*01*ETHEDS FUSIFO*0*001*111*1111* * * * * * * * * * * * * * * * * * * * * * *3*80**02872*C1*CHAETC FAFER *0* *00001*999999*00001*999999*00001*999999*1* * * * * *6*80*02872*C1*CHATEC FARER *0*001* 1* 55* * * * * * * * D 3 80 02890 C1 CENTRAC STF1AT 0 99999 999999 99999 999999 99999 999999 0 D 6 80 02880 C1 CENTRC STF1AT 0 001 111 1111 D 3 80 02880 C1 ETHEDS FUSIFO 0 99999 999999 99999 999999 99999 999999 0 D 6 80 C2880 C1 ETHDS FUSIFO 0 001 111 1111 3 80 02880 C1 ORTHOP CHFYSO 0 00006 999999 00006 999999 00006 999999 1 6 80 02880 C1 ORTHOP CHFYSO 0 001 6 105 3 80 02880 C1 CHAETO FABER 0 00002 999999 00002 999999 00002 999999 1 6 80 02880 C1 CHAETC FABER 0 001 2 65 C 1 80 02995 A 433 801125 0006000000 N 19 2 80 02995 00 999999 999999 C6 0 3 80 02995 00 MOLLUS CEFVL 0 99999 999999 99999 999999 99999 999999 0 3 80 02995 00 CYNOSC NEBULO 0 99999 999999 99999 999999 99999 999999 0 STATISTICAL ANALYSIS SYSTEM 0 23 THURSDAY, APRIL 26, 1984 8 WARNING THIS VERSION OF SAS IS NOT SUPPORTED. CONATACT YOUR LOCAL COMPUTING REPRESENTATIVE TO OBTAIN THE SUPPORTED VERSION OF SAS. LISTING OF UPDATES FOR MARINE FISHERIES SPECIES DATA SYSTEM 1----*----2-----*----3----*----4----*----5----*----6----*----7----*----8----*----9----*----0----1----*----2----*----3 3 80 02995 00 CYNCSC REGALT 0 99999 999999 99999 999999 99999 999999 0 3 80 02995 00 MENTICIRRFUS 0 99999 999999 99999 999999 99999 999999 0 3 80 02995 00 PEPRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 3 80 02995 00 PARALI DENTVT 2 99999 999999 00020 999999 00010 999999 2 6 80 02995 00 PARALI DENTAT 2 001 1 222 1 204 1 280 1 269 1 251 1 290 1 261 1 178 1 284 1 255 0 2 80 02995 05 510B 0 510B 0 00 0 0 3 80 02995 05 MOLLUS CEFHAL 0 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 CYNDSO NEBULO 0 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 CYNDSO RECALI 0 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 MENTICIRRHUS 0 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 PEPRIL TRIACA 0 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 PARALI DENTAT 2 99999 999999 99999 999999 99999 999999 0 0 3 80 02995 05 PARALI DENTAT 2 99999 999999 99999 999999 99999 999999 0 0 6 80 02995 05 PARALI DENTAT 2 001 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 0 6 80 02995 05 PARALI DENTAT 2 001 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 111 1111 0 1 80 02997 433 801204 0006000000 N 19 553 0002 1 3 5 06 S Y A i i T -1 CA 'L A N A @L Y S I 'S S Y S@ T E M C 23 THLPS DA'ft APRIL 269 1984 9 %ARNING THIS VERSION OF SAS IS NCT SUPPORT.ED. COKTACT LCCAL C@-@FLJ I.,NG FE.PR,ESENT4TIVE TC CeTAIN THE SUPPCRTED VERSICN CF SAS. LISTING OF LPCAlEE FQR PARINE F ISHERT ES SFECI,ES CATA SYSTEM 6 7------ *---8----4! 9--------- 2---- *2080*C299710(Ct *4sgssq*icsqs4*cs*c* *3*80*02997*CO*MCLLUS CEFHAL*O* *9'999@*s4gg4giqggss*q(;g994*99999*999999*6* 03*80002997*CO*ACIPEN OXYRHY*C*, *Isc;s@*s@ggit)499,999*999994*99999*gsggggtc* *3*80*C2997*CC*CENTRO STFIAT*O* *99()99*4;sgst;gfgg,rss*ggggggoggqgg*gggggq*6*'* i *3*80*02997*(C*PC?JATC SALiAT*O* *4S99S*Si@919@@99SSS*SS9999099999*999999*0* *3*130002997*00*CYNOSC RECALI*O* *3*8C*C2997*CO*MICROP UNrULA*04, *is-;S@*@@,ssg,gi@sggss*gggggg,*99949*99gggg*b* *3*80*02q9710(C*SCCMBE CAVALL*6*, *49qci*s9,9s9,9*,,s9,qss*q-;q999*99999*9q9999*o* *3*8O*O2997*CO*PEPRIL TRIACA*O* *qs,,s,-ss@gs�g*sggsg*gggggs*ggggg*gsgg,99*0* O*3*f)09C2997*CO*PEPR IL TRIACA*O* *;SSS5*ssg.;Igig()qs.;*9999q9*99999*qs9994;*o* *3*80OC2997*CO*PARALI CENTAT*2* *qsggg*slgsqgtcoclc*g99999000010*99999�*2@'*, *6*90*02997*CO*PAPALI DENTPT*2*001* I* 29C* li 2000 1* 264* 1* 3106 lik 184* 1* 21?* 2* 292* 1* 2S5* 1* 303* C*2*30*C2997*C5* *1585oe*1585.8*OO*C* D*3*qO*C2997*C5*MOLLUE CEPHAL*O* *gSgSS*SSqSggfSgSSS*gggqqg*ggqggogggggg*0* 0*3*80*02997*05*ACIPEN CXYRHY*O* *959SS*SS9999*999ss*gSS999*99999*959999*00 0 D*3*s)0*O2q97*C5*CENTRC STFIAT*O* *9@S9@$SSSS99*999SS*999999*99999*qs9999*0*1* S T A I I S T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAV, APRIL 26, IS84 10 VARNING THIS VERSI@N CF SAS IS NCT SUPPORTEO. rOKTACT YCUR LCCAL CUIPUTING REPRESENTATIVE TC OBTAIN THE SUPPORTEC VERSION OF SAS. LISTING OF UPDAT'S FCF PARINE FISI-ERIES SPECTESOATA SYSTEM 2--------- 3--------- 4 --------- 5--------- 6 --------- 7---------8 --------- 9--------- 0--------- 1--------- 2 --------- 3 D*3*80*C2'?97*C5*PC'lvATC SALTAT*O* 4 D*3*80*C299T*C5*CYNOSC PECALI*0'* *gS@c,4;4@S-ss,99*s9999*999999*99999*9q9999*o* O*3*90*C2q97*C5*MICROF UNCULA*0* *9.;qss*sgg,sgg*.@gsst;*9;9999*99999*999999*o* D*3*80*0299?*C5*SCCMBE CAVALL*O* *9@gs5iss@999@*,�glgg*gggggg*ggqgg*g59999*0* D*3*80*CZ997*C5*PARALI DENTAT*2* *s@s@s4@s@sc;g*�9959*999999@iggggg*gs�ggs*o* D*6*80*C2'997*C5*PARALI CENTAT*2*001*111*1111illl*iiiiofii*tiii*iii*iiil*iii*iiii*iii*iiiitiii*iiii*iii*iiii*iii*iiii* 0 C*1*80*03000* i413*@C1217*` *COC6CfC0d.0* N*19# *553* *CI.5*1*3* 4* *06* 42*30*C30000CO* *3*804rO3C00*CC*MCLLUS CEPHAL*O* *99999*9s9s9s*s99@S*9s9999*99999*999999*0* *3*80*O3000*C0*ACTPEN CXYRHY*O* *qsggs*rls9@99*9991;9*qsg9g9*99999*9s9999*00,* .*3*30*03000*CC*POMATO SALTAT*O* *3*80*C3C00#C0*CYh0SC RECALI*O* *9,ggg-.*Ssssqs*pggss*ggqgg9@99999*999999*C,* * *3*80*03000*CO*MICROF UNCULA*C* *9.sgss*sggggo*gg()5s*(;Sr,(;99*99999*94;9999*0* * 03#90003000*CC*EUTHY?@ ALLETT*00 *SSS99#@;gqqgg*ggqqg*999999*99gqq*gSqqgg*op *3*80003COO*CC*PEPRIL TRIACA*O* *9.isss*ss,99990159SSS*9999991*99999*999999*0s p *3*80003000*CC*PAPALI DENTAT*20 *SC,999*SS9999*00OC4*999999!PO0004*999999*2!0 *6*80* 03000*CO*PARALI OUTA7*2*CCI* 1* 2230 1*,232* 1*. 196* 1* 214* S T. A I I C A L A N A L Y S 'I S S Y S T E M 0 23 THURSDAY9 APRIL 269 1984 IL UARNING THIS VERSIGN OF SAS IS NOT SUPPORTED. COKTACT YOUR LCCAL CCMPLTING REPRESENTATIVE TC OBTAIN THE SUPPORTED VERSION OF SAS. LISTING CF UPDATES FCR RAPINE FISHERIES SPECIES DATA SYSTEM --------- 3--------- 4--------- 5 ---- 6-7--+-7--7---,-+-7--8----+7 --- 57 -------- 0--------- 1--------- 2--------- 3 -f3C C*2*80*03000*C5* *8 0*3*90*0000*C@*MOLLUS CEPHAL*C* *S@@@@*IS9999#SgSSS*999995*99999*99999'900'* C*3*80*03COC*C5*ACIPEN CXI+RIY*C* *94;gss*qsilqggo,@gsss*955999*99999*959999*01* 003*80#03000*05*PCMATC SAtTfT*0* *qSgcS*SS'9Sg9*99999*99999S*99999*999999*6* D*3*800O3000*C5*CVNOSC RECALI*O* *4'srcs*ssqqg�v"g9199#9999991pggggg*g,;9999*6,* T)#3wl9*03C0C*C5*4lCROP UNCULA*00 *9999q*gc),gsgg*l,;ggls*gsqggqogqggg*gqggqg*o@* 0*3*90*03000*05*EUTHYN ALLE7T*00 *gsssg*gqgggg*,99,,gqg*gscggssgggqg*gsgg99*0* O*3*80*03000*C5*PEPAIL TRIACA*O* D*3*80*03COO*C5*PAPALI, CENTAT*2* *999s(;*ssssss*lsqsss*999999*99999*999999#0* D*&*80*0?000*C5*PAPALI r)ENTAT*2*001*111*11 11*111*1111*111*1111*111*11110111*1111* D*3*8I*Cl598*Cl*ETRU.4E TEPES *6* *SS99cl*scl9t;99*.9999s*q99999*99999*9s9g99*o* D*6*81*Cl598*CI*ETRUME TERES *0*001*111*1111* *3*81*01598*CI*GCBIOS EOSCI *0* *OCOOI*999999*00001*SSC,999*00001*999999*2* *6*8I*Cl598*Cl*GO8IOS BOSCI *O*CCI*. 1* 36* 0*3*81*01599$01*ETPUME TEPES-*O* *9s99q*sssss9*C,99q;S*999999*99999*999999*0* D*6*81*0159q*CI*ETRUAE TEFES i 1 '4i i S T I C 'A L' A N' A L Y S* I -S S Y S T E M 0 23 THURSDAY# APRIL 269 1984 12 %Ah@i@@NG THIS VERSION OF SAS IS'NOT SUPPORTED. COKTACT,V0UR LCCAL,C.CM.PpTING REPRESENTATIVE TC OBTAIN THE SUPPORTED VERSION OF SAS. LIST.ING CF UPDITF@ FCR MA 'PIKE FISHERIES SPECIES DATA SYSTEM 1 ---- ------- @---5 --------- 6@ --------7 ---------8--------- 9--------- --------- 2--------- 3 *3*81*01599*CI*Gcelbs Bo!c.l *0* *Ococg*s@g;s;g*oocc@*gssqgg.ococg*,Sqgggq*2* *6*8I*0j599*0I*GO2rOS BOSCI *0*001* 1* 26* 1* 40* 1* 24* 1* 40* 1* 32* 1* 31* 1* 34* 1* 28* 1* 29* O*3*8I*CI756*CI@*8AIROI CHRVSC*I* *9ss@@*SSS,5195*1;95194;*999999#99999*91;9999*0* 0*3*81*01758*CI*BATRDI CHRYSO*2* *9@,;ss@s@9199*sgqgg*gggqgg*gqqgg*ss,;999*0* T)*6*5I*Oj758*Cl*BAIROI CH;tYSO*2*O0I*1II*liII's@ *3*81401758*CI*LEZOST XAKTHU@l* VOC33409�19@S9*00334*995999*00030*999999*2* *6*8l*OlT58*CI*LETOST )(0THU*I*0bI* 50' 4C*- 5* 39* 6i 38* 1* 520 10 35* 1* 43* 2* 36* 2* 42* 1* 33* Z* 37* 4* 41* *3*81*01758*CI*LEIOST XANTHU*2* *OCCC2*SS9;S9000OC2*9r,9999*00002*gS9999*2* *6*81*01758*CI*LEIOS7 XAKTI-U*2*001* 1* 1?2* 1* 12ts C*3*91*OITOO*CI*PENAEU SETIFE.*O* *CCCC1*CC.,CIO*OOOCI*00.010*00001*00.010*1* * 0*3*81*01821*CI*CFNTPC STRIAT*O* *OOOC.I*S.SS.SI;9*00OC1*999999*00001*999999*2* * 0*6*81*01821*CI*CENTRC STFIAT*0*001*111*11I,l*@; A *3*81*01621*CI*UPTHOP CHPYSC*C* *CCCCI*5,5999,9*00001*999999*00001*9'99999*2* *6*81*01821*C1*0RTFOP CHFYSD*0*001* C*4*81*01832*Cl*ANCHDA MITCI-I*OOCIO*OCI* (2*. 13 5 1 A T I S T I C A L A N A L Y S I S SY S T E M C 23 THUFSOAYv APRIL 269 1984 %ARNING THIS VEPSICN OF SAS IS NOT SUPPORTED. CO@TACT YCUR'LCChL ftM0UflNG REPRESENTATIVE TC OBTAIN 71H ESUPPORTEC VERSION OF SAS. E@S LISTING Cr- bPCil FCR MARINE FISHERIES SFECIES DATA 'SYSTtM 2--------- 3--------- 4--------- 5--------- 6--------- 7--------- 8 ---------c---------- I--------- 2--------- 3 D*31,81*0Ie44*CI*ETHEOS FUfIFO*O* 0*6481*016444CI*ET@EGS FUSIFO*O*Col*lll*lli"l**iif*liii* *3*Rl*01844*Cl*CFAETC FACER *0* iccc,e2*SS9999000002*9q9999*00002*9S9999*2* *6*81*01844*(l*CHAETC FACER *0*00li 1*1 2'3* 10 '274 4 0*3*9j#01647*CI*ET@-EOS FUSIFO*O* 0*6*91*01847*Cl*ETFEOS FUEIFO*O*OOI*tll*llli@iii*liii*tli*iiii*ili*iill* *3*8j*0j84?*Cl*CHAETC FACER *0* *OCOCf*SSe@rl;9*COCCt*9SS999*00006*999999#20 0 *6*8I*01847*Cl*r-HAET'C FAeER *0*001* i* 3 3*1 1* ?1* 1* 37* Z* 38* *3*eI4Cl665*CI*ETPEOS FUSIFC*O* *CCCC6*SS9999*OOOCO*999999*00006*gggS99*2* V*3*8I*OI665*CI*ETHEO! FUSIFO*O* *999ss*@@SS99499sss*qqggqq*99999*q99999*0* *6*01*01865*010ET@-E0,S FU!,lF0*o,*001* 20 ,71* rl* 746 i* 400 1* 64* 1* 50* D*6*81*CI865*CI*ETI-EOS FUS C*4*31*018b8*(I*SYl4PHL PLIGIU*0*001*001* @?E* C*4*3I*OI884*CI*LEI0ST XANTHU*0*003*OCI* 122*,*, 003*81*01905*CI*PALAEM INTERM*C* D*6*81*01905*CI*PALAEM 1,14TERM*0*001*111*11,11*111@1*1111*111*1111*111*11l1*111tilll* *3*81*01905*01*PALAEPI PUCIC *00 -;*ococs@"ssggggsoooct*95999c,*00605*999999*20 7 A@ T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAY, APRIL 26t 1984 14 P NI@NG THIS @,ERSION OF SA.S IS NCT SUPPORTED. CO@TACT YCUR LCCAL CCFPUTING REPRESENTATIVE TC CeTAIN THE SUPPORTEC VERSICN CF SAS. LISTING CF UPDtIES FCF MARINE FISHERIES SPECIES OOTA SYSTEM I--------- --------- --------- 6 --------- 7--------- 8--------- 9--------- 0- --------- 2 --------- 3 *6*8I*CI',05*tI*PALAEll PUCIC *0*C01# 1* ;4* 1* 2S* 1* '31* 1* 334 30* 0 10 C*1*81*01929* *433*81i"2C8*'@ -COO!030CCC* N-194 4 *553* *1*3* leo *06# *2*81*C19294COs *3*81*0I92q*CC*MCLLU5 CEPHAL*O* *9599S*9"99,99�oggss@*gs(;g�9*99999*9@9999*0* 4 *3*81*CI929*C0*POMAT0 SALTAT*O* *gslqs*,@sgsgi*ggggg*ggqggq*qqggg*gcgggg*o* *3*8I*Cl92(;*C0*CYNOSC NEEULO*O* *3*81*01929*CC*CYNOSC RECALI*O* *954sq*rl@59,99,@*sggss*csggqg*ggggg*999999:*O* *3*8I*0029*CC*'LEI0ST XANTHU*O* *gs@gs*4,;4@'@9*@gggg*g@g,;,is*qqggg*gg�ggg*o,* 0*3*81*01929*CO*LEIQST XANTHU*C* *sssl;s*,,sl;14i,9*9994;S*999999*99999*9,;9,Gc,@*O:t *3*11*CI929*CO*PEPRiL TRIACA*O* *qqggg*rsqqqq*sggss*gqqgqgs99999*999999*0* *3*81*01929*C0*PARALI DENTAT*2* *99qgs*sgg@949*00012*SSSS9S*00012*999999*2* *6*9I*CI929*C0*PARALI DENTAT*2*CCI* 2* 275*. -14 285* 1* 254* 1* 2@5* 1* 226* 1* 195* 1* ;70* 1* 2t8* 1* 283* 1* 224* 1* 2670 C*2*8L*CI929*C5t *0CI,ES7;*CCI&-,7*CC*C* 0*3*[JI*OI929*C5*MCLLUS CEFHAL*O* sgcl.9sg;*Isr,9,99.9*s94;@;5*,;sq999*9999909"999*0* D*3081*01929OC5*POMATO SAL7AT*C* 1*95r$s@*lsl;g,5990999.SS*"9999*99999*SC,9999*C* D*3*61*0I929*C5*CYNOSC NEFULO*O$. .*999S9*.9c,999,9@S99@19 *qqggqg*ggqggsggc)qgg*0* S 7" A' 7 '1 'S T I 'C A 'L A N A L Y S V S' S Y S T E M C 23 THLRSDA%t APRIL 269 1984 15 OF SAS IS NCT SUPPORTED. @.@APNiNG ITHIS V CONTACT YOUR LCCAL CCPFUTING SEPRESENTATIVE TC OeTAIN THE SUPPCRTED VERSICN OF SAS. 't LISTING CF LPCA YES FCR 11ARINE FISHERIES SFECZES CATA SYSTEM 0--------- I--------- D*3*8I*Cl929*C5*CYNOSC RECALI*O* O*3*;J1*O1929fC5*PEPRIL TRIACA*O* *,gsqqq*,;,@99,gq*ggs@@*gsqqic,*qgggg*gggggg*o* * 0*3*81*01929*05*PARALI f)ENTNT*2* wgsg@s*lcggg�*gqgsg*gggqqg*gqggg*gqgggg*o* * 0*6*81*01929*C5*PARALt DEKTAT@2*001* I I I* I I I'l* iif*t I 11*111*1111*111*1111*111*1111*111*1111*111 *1111*111*1111* 111* 1 Il I* Il In 111 #111*1111* C*1*81*01935* 4433*8 112 1 f*' ' *CO05C20000* N*19* 0 *553* *CI.S* *3* 180 *06* *2*31*01935*CO* *qs99ss*9,99999*06*C* *3*81*CI935*CC*MOLLUS CEFHAL*O'* *.;ss5s*ggggsg*sgss5*9@994s*99999*999999 .*o* *3*81*01935*CC*AClPE'N OXNRt4Y*6* *3*11*01935*CO*PCIIATC SALTAT*O* *9s9ss*ss9s99*99999*99999s*ggggg*gs9999*0* * *3*81*01935*CO*CYNOSC RECALI*O* *SSSSS*Sq9S99*999cyg*9(39999*99999*959999*0* * *3*81*CI935*CC*MENTICIRR@US *0* *99999*.C;991;q9oqggis*gc)9999*99999*999999*0* * *3*81*01935*00*MICROP UNCULA*0* *9595S*4;gg@s9@4*9995s*q,;s,;,91*99999*gsggg9*0* * D*3*51*CI935*CO*MICROP UNCULA*O* *9s9ss*,;sgssq*999S,9*999999*99999*gs9clqq*o* C*2*81*C1935*C5@ *0000(2.*CCCC62*CC*C* D*3081001935OC5*MCLLUS CEPHAL*O* *999sq0@-,99,99.9*999ss*qsgqgs*qgggg*gggggg*oo 0 D*3*81*01935*05*ACIPEN CXYRHY*O* *S@qqs*,sg9s9q*99999*999999*99999*9s9999*0* S T A T I S T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAYt APRIL 26P IS84 16 WNING Tf-IS VFASICN CF SAS IS NCT SUPPORTED. CONTACT YCUR LCCAL CCf'PUTI'NG PEPRESENTATIVE T.C CBTAlh THE SUPPORTEC VERSION OF SAS. LISTING [F UPDAYES FCF VAFINE FIS@4ERTES SPECIES DATA SYSTEM 2--------- 3--------- 4--------- 5---------6--------- --------- --------- 2--------- 3 C*3*9I*0I935*C5*PCyATC SALTAT*O* *GSS95*(;Sq(;99*9995s*gs,;qqc,*gggqq*qsgggg*c* 0*3*81001935*C5*CYNOSC RECALI*O* *SSSSS*Ssqsgg*1;9999*999999*999g9*9s9g99*0* C*3*91*CI@,35*C5*MENTICIRRF'US *0* *9s99q*,;c;9.;,,9*,,qsss*999999*99999*999999*0* *4*82*00447*00*LEIOST XA?CTHU*O*CC8*OCJ*'152* *1*1*01* *4tR2*C0447*C0*LEIOST XAKTkU*OOCCS*CCI* IS7* *1*1*02* *4*82*CC447*CO*LEIOS7 XAKT@-U*OfOlO*O0I* 1@'2* *1*1*01* n*3*42*00893*CI*ETRUKE TEFES *0* *gsgqso@"sg(;99*ggg@s*cs.;gqqoggggg*gqggg9*0* D*6*12#00883*CI*ETRUME TEFES *O*CCI*111*111'1* *3-32*CC8334CI*fCelOS BO!CI *Oi *ococi*s'sssgg,*Oooologgggigoooool*gggqgg*2* *6*8Z*CO883*Cl*GOEIO5 BO!CI *O*COI* 1* 22* C*4*82*C2876*(I*PUIIATC SALTAT*2*C2C*0C3# 3C3* C*4*87002878*C4*PARALI CENTAT*5*011*OC2* 4;es C*2*82*02810*IC* *0?1?.5i.C317i5*O1*C* C*3*82#02904*04*MICROO UNCULA*O* *17587*CC2638.*00148*0022.200OL48*0022.2*20 C*4*83*CCI57*CI#.41CROP UNCULA*0*008*001* 3Z@* C*1*6300CB14* * *120*83052!*AI3 *C52e4COOOO* * *1345f 5*556*002C*0.75*0.25*I*3* * * * *236*226* *0560061* *01* C*1*83*01069* * *12C*83C603*JIO *0537C4CICC* * 0 41730* I*556*10.5*0,.25*.I2S*1*3* * * * 0271*270* S TA I I S T I C A L A N A L Y S I S SY S T E M 0 23 THURSDAYP APRIL 269 1984 17 WNING THIS @ERSION OF SAS IS NCT SUPPORTED. COPTACT YGUR LCCAL CCtJPUTTNG REPRESENTATIVE TC COTAIN THE SUPPORTEG VERSICh CF SAS. LISTING CF UP011ES Fcr ?OAPINF FTS@-ERIES SFECIES DATA SYSTEM - --------- I--------- --------- 5---------6--------- 7--------- ---------- 0--------- I--------- 2--------- 3 *141*141* *Cl* *3*83002644*C6*MYCTER MICRCL*Q* *OCCCI*CCO!,@4*COCCI*CCC5.4*00001#0005.4*0* 003#93*02644OC6*MYCTER BONACI*C* C*3*83*C2653*CC*GALECC CUVIER*O* *00001*sl;9sgg*ccccl*9ss999*00001*999999*0* C*4*83*02655*C7*Rt4CM8C AUFCPU*3*Clg*OCI* 52C* C*3t83*02656*IC*CENTRO STPIAT*4* tqsggs*cccc.g*gqg9g*o000.9*99999*OCOC.9*0* C*3*63*C2661*CC*CARETI CAFEIT*O* *00001*CISSssqloocccl*999999:00001*999999*0* C*3*83*02661*CC*CAFCHARHINICA*00 *ococl*9s9999*OCOCI*SSS999*00001*999999*0* C*4*J33*0Z663*Cl*MYCTER PlfENAX*C*CC2*CCI* 5eC* 0*3*83#02666*C2*MYCTER MICRCL*O* *9sgqs*ssssq9*s99s@1*999999*99999*999999*0* *3*93*02666*C2*MYCTER PHENAX*O* *CC041*CIIC,;7*00041*011C.7*00041*0110.7*0* C*4*83*02730*CI*MORONE AMFRIC*2*CCI*CC2* 23C* C*b*83*C2730*Cl*moro,4E AMER 1@*2*007* I* If5* 1* 153* 1* 144* 2* 142* 1* 145* 1* 167* 1* 143* 0*6*13*02730*CI*MORONE AMrRIC*2*014*111*1111* C*4*03*02737*CI*ALOSA AESTIV *I*CC3$011* 55* C*6*a3*0273T*Cl*tLOSA AESTIV 01*007* 2* !60. -3*@ 58* 1* 52* V*6*83*02737*CI*ALCSA AESTIV *1*010*111*1111* 5 T@' I S T I C A' I. A N A L Y S I S S Y S T E M 0 23 THURSDAV, APRIL 269 1984 18 A I NG THI S RS104 OF SAS IS' NCT SUPPORTED. CO@TACT YCUR LC,CAL CCF -f PUTING PEPRESENTATIVE TC OqTAIN. THE SUPPORTED VERSICN OF SAS. LISTING CF U.POPIES *FCP POAPINE FISHERIES $FECIES DATA SYSTEM 6 --------- 7- ------- 8--------- --------- --------- 2 --------- 3 C*1*83*02926* *438*8?II07*09C254C0C4CCCCC0* 0 0 *4 240 *OCC4* 4co *07* C*4*83*02993*CI*CALLIN SAFICU40*CCI*CC1* 16* *2* 4 0 C*'-*83*C'2993*CI*CALLIN SAFICU*0*0C24CCI@ 1114 *2* 0 D*3*P3*0305q*tl*LUIJANUS @*o* gs9g..-,* s%q v;q* 59,; S*gssggs*gg"g *9'49999* 0 *3*i33*03059*CI*LUTJAh SYKAGR*0V *ccccl*cs9999#00001*99999@voooool*999999*0* C*3*83*03073*CI*MYCTER PHENAX*O*', *OCC33*CCi?2.1*00033*CO92.1*00033*009-2.1*0*-* *3*93*C?074*j5*[PlflEP NICRIT*O*' *0 CO'( 3* C 215 4. C 0 CO C C 3 * 02 54. 0 #00 00 3*0 25 4. 0* 4* *4*83*0?014*15*EPINEP NICRI'T*O*CCI*OCIWI/;bC* *@88.S* * :10 0 *4*83*03074*154,EP114EP NICRITOO*CC2*CCI*14,CC* 0, 51.70 * *4*83*C30T4*15*EPlNEP NICRIT*0*003*001*111C,* *113.40 0 0*3*B3*03074*j5*PAPANl FUFCIF*O* *91;9,s.; ;Sggggg*gggss*gsg"gq099999*999999*00 0 0*6*8j*03074#15*PARANT F UFCIF* O*CCI* 11 L,,@ 1111#1 C*2*83*C?129*Cl* *3*83*Q?I29*Cl*PERACA MY!ICA*O* *9S9S-?5,SgSc,9*999S5*9S9999*99995*999999*0* *3*83*03129*CI*ACETES AMERIC*O* C*4*83*03133*CI*CALLIN SAPIDU*0*005*001# 14,e* 02*3* 0 S T A T I S T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAY# APRIL 2t* lq84 19 WNING THIS VERSICh CF SAS IS NOT SUPPORTED. CONTACT YOUR LECAL CiPFUT'ING REPRESENTATIVE TO DETAIN THE SUPPORTEC VERSION OF SAS. LISTING OF LPOAtES'FOR IIARINE:FISHERIES SPECIES@CATA SYSTEM 1-- 4-- 2--------- 3--------- 4-------- 75 --------- 6--------- 7--------- --------- 0--------- 1--------- 2 ---- 3 C*4t,83*03157*CI*MICROP UNCULA*0*0C2*tCI* 2@$ C*3*83*C3I64*C0*CENTRC STFIAT*3* *000CJ*9�9.gtq4coccl*g,;qggq*00001*999999*0* *3*83*03164*CO*SEFZICL@OUrERI*O* *gssss*stgg@9#999ss*gsssgstggg�g*gsqggg*o* D*3*83*03I64*CO*SPf-YRA BARRAC*C* *g@gss*s@gs,@9,*99999*9999,;.9*99949*gqqggg*,O* *3*83*03I66$C0tCENTRC STFIAT*2* *@q9g@*S@';S'@945�';Sg*99999@*00020*0003.4*24 *f,*83*O?I66*(C*CENTRC STFIAT*2*CCI* 1* 206* @1@ 1900 1* 200* 1* 2000 14 20 5* 1* 210* 1* 24C* 1* 210V 1* 210* 1* 2000 * 1* 210* '* 2050 It 20C* It 225* *b*83$03166*CC*CEhTR( STFIAT*20CI5*' I* @1@* '1"* 2000 1* 205* 1* 215*' 1* 215* 1* 205* D*3*83*03I66#CC*CtNlRC PHILAD*2* *,g@s@,S*Skgs�gocgsss*geq99@*qgggg*gqggggvo*-** O*')*33*03I664CC#CENTRC PHIL AD*2*001*1 11* 1111* lil* 1111*11 1411i 1*111*1111,111*1 ll 1*1116111 1*111@1 111*111*11 11,;l lI*'l 111- 111-1 Ili* D*f,*83*C3166*C0*C[KTRC PHILAD*2*CCI*111*1111*111*1111*111*11110111*1111#111*1111*111*1111* 0 0 D*3*33003643$C0* ST4105C500*0* *9ssss*sssss9vs9sss*999999*99999*9999,99*0* *3*83*03643*CC*MUPAEh ROFUST*O? .;*OOOCI*1;999,99@00001*SSgq99*00001*999999*0*-* 0*3-83*O3643*CO* 8fl5OC2C5Cl0O*, *cS@)S9@c,9999q@9q999*999999099gq9*94;9999*00 * *3*93*03643*CC*SCOMB@ CAVALL*01@ *00014*C@6C.,31,COC14*0060.3*00005*0020*1 9*()* * *2*84*CCC04*CC* *9sqqqqs5sssss*oq*c* C*1*94*00005* *4?3*84CIC6f *CO050309,00* N*19* P.28800553*OOqO* *1.25* 0 le* 0 *210 *1*84*00019* *4!4*E4C;Cl* ,*CO05040000* N*19* *2880*245*300C*ODC5* 15*- S 7 A. T I T I C A L A N A L Y S I S S Y S T E M 0 23 THURSDAY, APRIL 2e* 11;84 20 ARN ING THIS VERS.ICN OF SIS 15 NOT SUPPORTED. CDKTACT YCUR LCCAL CCMPUTING REPRESENTATIVE TC CeTAIN THE SUPPORTEC VERSION OF SAS. L tSl ING OF UPDAIESiFCR FAFINE FISHERIES SPECIES DATA SYSTEM I - - - - 2 --------- 3--------- 4 --------- 5--------- 6@-w -------- 7--------- --------- C--------- I--------- 2 --------- 3 *02* 42*P4*OC019*CO* .4 *'X*84lbCCCj9*CC*MORONE SAYATA*O* *OCCCI*CC154.4*COCCI*OC15.4*00001*0015.4*fi* *4*94*CC019*CC*,wCF0NE SAYATA*O*OCI*0C1*1M* 15. 4*2* *3*1* *2*84*CC019*Cl* A *CCI5.4*CC15.4*OI*C* *3(1j4*CC0I9*CI*MORONE SAYATA*5* *QOOCI*CCIS.44COOCL*0015.4*00001*0015.4*4* *49'8'.*0C019*Cj*MCPONE SAXATA*5*001*OCI*IOE6* *2* *1.*84*00020* *4?4*e4C2CIt @ *CO05040000* N*190 *28804245*4800*0005* 150 * *020 *2*64*CCC20*CO* *gsg 5,5@*s'ss,09*01 *C* *3*84*0O020*C0*MCPC)NE SAXATA*O* *OC003*CC65.2*COOC2*0065.2400003*0065.2*4* *4*84*0C020*CO*MClR0NE SAXATA*O*cOI*ocl*Il@2* 20.6*2* *3*1* *4*84*0C020*CO*MOP0NE SAYATA*0*002*001*12!0* 1 25.8*2* *301* *4*84*00020*CO*MORONE SAXATA*0*003*001*11?6* 0 1.8.e*2* *3@1* *2*84*00020*Cl* *OC65.2 *0C6S.2-*0 1*0* *3*84*OC020*Cl*MORONE SAYATA*5* .*QC003*CCt5.2*,COOC3*[email protected]*00003*0065.2*4* *76134*000200t1*40RONE SAYAlA*5@M* @11192;.r 025C2 0 111302 *1*84*00022* 104@?4f84CM*@. *00050300004 N*lq* 30*240*0900*1.75* jeo *04* APPENDIX C-2a: LAYOUT OF ENVIRONMENTAL PRE-LOAD TABLE Positions ..Field Name Table Key 1-3 PROGRAM 4-13 STARTING LOCATION 14-18 Data-to be Stored 19-22 DURATION OR AREA 23-25 GEAR 26-29 GEAR PARM #1 30-33 GEAR PARM #2 34-37 GEAR PARM #3 .38 RIG 39 TYPE OF TOW 40 SEDIMENT SIZE 41 BOTTOM COMPOSITION 42 BOTTOM PROFILE 43-45 DEPTH 46 ALTERATION STATE 47-80 Filler APPENDIX C-2b: JCL TO COMPI ILE` _, A REVISED ENVIRONMENTAL PRE-LOAD TABLE T S 4. 9 P Ali C J 0 B P,6. 0 C 2 N MO 99 0 0 0 2 @ E-- F" P E-- IR' L Y') 'T"IM E iM 9 G* CLA gf= 2, NOTIFY=TSi 9r'60, PRT Y = 9 _W_ I AI 'E i EL 0 A D T B L. E THIS IS THE D.M.F. ENVJ*r`Of%.,'M. r A, 1*.*., I:r A f-- *f 1':* k .- H _ - ' 'IT SHOULD SUBMITTED TO I*.,!':- -,OPIED TO 17, EACH UPDATE. ENTRIES MUST 1,17- IN SE(:.*,-UEi\ICE:*. B)` THE' TABLE KEY COLUMNS 01 - Is . T H E F 0 R M A 'T I A.17 F 0 L L 0 W IS' r'. A t.1 Y 1:-, E - - - - - - - - -- - - COL. 0 1 03 PROG .04 08 STARTING LOCA.1ION, LATITUDE THIS IS THE 09 131 ST A RT I N' L 0' C At T 10 N , LONGITUDE TABLE KEY. 14 iG ':.'Tf),r NUMBER 19 22 DURATION 23 25 GEAR TYPE 26 29 GEAI'-.' PARAMETER i 30 - 33 GEAR PARAMETER 2 34 37 GEAR PARAMETER 3 38 RIG TYPE OF TOW 40 SEDIt-JENT SIZE 41 BOTTOM COMPOSITION 42 BOTTOM PROFILE 43 45 DEPTH 46 ALTERATION STATE 47 80, LEAVE BLANK //UNICAT EXEC PGM=IEFDki4 DD DSN=NEI-%.NM.NM099-i,UNIT=DISK,DISP=(MOD,DELETE), SPACE=(TRK11) .11STI EXEC PGM=CARDFILE //STEPLIB DD DSN=ADMi.LINKLIB,DISP=SHR //INPUT DD PRELOAD TABLE DATA IS INSERTED AFTER THIS RECORD 120150000000000000111122'-'333344445555678890001 ;128150000000000000,'j66,'j77730GO999900(JOi.'@-13345556 !//OUTPUT DD DSN=NER.NM.NM099-i,UNIT=TAPE,DISP=(,CATLG,DELETE), DCB=(RECFM=FB,LRECI-=OO,BLKSIZE=i6OOG),LABEL=EXF*DT=99001 //PRINT DD SYSOUT=A PROGRAM VALID GEAR CODES 118 410 412 420 424 450 500 570 460 150 530 550 554.570 470 '110 111 574 575 740 500, 510, 150 310 311 500 536 538 550 556 558 559 560 530 540 531 556 558 550 111 531 556 558 610 754 830 615 805 618 754 620 746 630 766 650 758 660 754 766 811 830 670 680 754 766 @690 713 810 700 515 531 534 552 560 705 531 552 710 554 560 713 715 715 560 720 118 119 120 411 412 413 420 421 422 423 424 440 531 552 554 560 720 911 926 950 725 531 552 730 119 531 552 735 531 552 740 911 925 926 745 515 750 720 755 552 760 531 552 560 715 720 765 531 552 560 770 500 775 552 '000' and-'999' valid GEAR codes for any program APPENDIX C-3 ALLOWABLE ENTRIES FOR G-EAR.IN EACH PROGRAM PROGRAM VALID GEAR CODES 050 .200 911 651 200.531 420 911 940 055 200 213 300 500 550 556 060 200.213 300 911 100 130'^212'311 530 531 535 538 556 911 105 645 110 531 559 115 130 245 531 605 120 210 211 240 245 311 330 538 55C 557 558 559 125 556 126 556 130 212 556 150 130.200 212 220 230 245 247 350 380 420 531 961 160 600 605 645 170, 180 130"200 220 240 245 250 351 352 353 532 550 @552 570 574 835 911 920 925 926 950 175 115 300 130 220 230 245 250 320 420 531 940 320 550 330 130 220 245 250 420 531 550 556 340 531 350 1'30-, 311 352 353 530. 556 570 400 130 200 220 222 230 232 240 242 245 247 250 320 340 352 400 420 421 422 500 410 .130 200 220 230 245 247 250 320 340 352 380 420 421 422 500 420 130 200 220 222 232 352 420 500 421, 422 200 430, 440 117 130 200 415 431, 441 130 432, 442 130 433, 443 500 510 530 532 534 538 550 552 553 554 570 572 .434, 444 200 220 222 240 242 @45 250 435, 445 320 340 436, 446 574 437, 447 320 352 353 APPENDIX C-4. COBOL update program TS02P05X J763 A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A A START JOB 763 TS02P05X 0002 0001 JES2 0002.FENNER ROOM TS0 11.40.02 AM 03 APR 84 PRINTER3 SYS 168A START A J E S 2 J 0 8 L 0 G S Y S T E M 1 6 8 A N 0 0 E J E S 2 -3.03 WARNING MESSAGE(S) FOR JOB TS02PO5X 10.4 JOB 763 tEF6771 ISSUED 10.43.03 Jnll TS3 SHASP173 T',02"05X STARTED TNIT 27 - CLASS A SYS 168A -11).43.@1)3-J'31@---763----fEF4031--TS02PO5X-- -STARTED - TIMF=10.43.03:-- --- ----- - 10.43.11 JOB 763 - -@-TIMINGS (MINS.)-- -PAGING COUNTS- 10.43.11 JCR 76S -JOBNA'-!F STFPNAMF PRCCSTEP RC EXCP CPU SR8 CLOCK SERV PG PAGE SWAP VIO SWAPS 10.43. 1 i--jn-,;--76-A ---TS02P05X-PGLCCL--- --Li;.3R---- 266 .01 - .00 --- -. 1 4596- 0--0 0 0 10.44.06 JOB 763 -TS02PO5X PGLCCL COB 04 1950 .13 ..Do @g 37796 1 7 t65 0 1 10 to.44.17 JOR, 763 $VIASP375 TS02PO5X ESTIMATED LINES EXCEEDED 11 15992- 1- 10 0 ---0-- - 0 [email protected])?PO5X PGLCCL------PGISO- - -00 - 1130 .04-- -.DO-- -2 10.44.26 JOB 763 -TS02PO5X P(,LCCL LKEO 00 254 ;.00 .00 .1 2751 1 0 0 0 0 10.44.26 JOB 763 IFF4041 TSO?PO5X - ENDED - TIME=10.44.2-6 -1B.44o.26--JOq- 763 --TS-,)?P05X FNI)FD.- NAMF-0002.FENNFR---- TOTAL CPU TIME= - 19-- TOTAL -@ELAPSED- T E - 3 2; II I m 1= 17 10.44.76 JOB 761 VIASP395 T',02PO5X ENDEO ----JFS2--JOB-- STATISTICS-------------- ---- - -- ------ CARDS -RE-AD 123 ---Fl #-421--S YS OUT-- PR I NT--PECORDS------------- 26 35 --"YSOUT--Pt)NCH -RECORDS -39--MINUTF-S-.-FXCCUTlt)N-.T-IME------- [3. 47 37, 40! 41 42, 171 52 63 52 _01 54' 1 7- @2 I 11TS02POSX JC8 (IP05.C2',TSrl,,NMIOO),0002.FEN.4F.R,TIME=I.PRTY=g, Jr)B 763 li MSGCLASS=2,NGTfFY=TS02P05 ADMT',O. TEAM02.')-ATAPO5jNMI00SU3? Cnl.IPTLF f LINK COrML SOURrF (WIn DLI READ) FROM L18RAPIAPI P".1. LCCt --,-y7c Prl@CCL '-I R=SYSI l)F.PT=NER I M9R=NMlCOX 3 X x p?,n(. L!O=,OEPT=,;-lBR= 00000107 4 XXL19R FYFC ITA,@ 4 RJ S' 00000200 - - ---- --- X'X S T E P L I It DD C, S ll.'= 3 Y S 1 . L I Fl 1) 1 S P = S! I R 00 00 LV 3 0 0 6 X S T E R DO 00000403 7 XXSYSPRINT 9D llYl;0UT=tz,DC9@f'!.KSIZF=I 13 00 00 0500 X X L T D D @ Y @ f) t IT i I C B I- K S ! 7 TF = 113 00000600 0 D kikj. I T=- )ISK,DISP=(.PASS),DCB=SLKS&ZE=4560@ 0 10 R- 00000706 IPA I C E :=(4560,(200,!00),RLSE) 00000900 D 11) S y S OU'l = s M8=BI.KSYZe=8O, 00000900 11 XKSYSAF02 D 1) 1) N I T = D 111 1@ , 1; F A C F = I C 1. L , I I I I 1 0 r) 0') 10 0 6 12 M-Inp-sys"'N On * 13 X X Cl 9 - C X r C P G11= I K F C B 1- 0 0, P ft. 14= 1 OM A 9, C 1. 1 S T. X EF,SUP*-f DO 00 1100 xx CnNq)=t5,LT,LlqR) o") o) 12 0 o 14 YX,TEPLIB DO DSl4=SYS..CQ30L.DISP=SHR 00001300 15 ------ X X SY S 0 R I N I D F) M14=&@PIR !@IT ON IT=r)ISK, SPACE =(CYL ( 3, 31 RL S F 0*,) DO 1400 Y x OC 5= , R--(,F'4=F FIA 'LRFCL= 121 ItLwSJ ZF=6 111 0 Sy Sl.l')',1!4P--Dr,) ' 3 Y SOUT =2 , DC B- BLK ' I ZE = 133 00 (11) 1700 17 xx SY SLIT i rj 0 P S N- &@ SY S (IT I , U 111 T =D I SK , 5 A C E I TR K, ( 50 10)) 00001906 is XX SY S UT 2 OD DcN=&F.SYSUT2 UNIT=D1 SK , SPACE =( TR.K, (50t 10)) (Y) 00 1906 .-19- -XX SY SU T I - DD DSN - F t. S Y SUT 3 LIN I r- Of SK , S @' ACE I TO K. ( 50, 10)) 00002006 10 XX@Y,UT4 DO) r.)SN=E@SYSLJT,%, Ulll T=01 SK, SPACE=( IRK, (50,101) 00002106 00 00 7 n6 FM 2z YXSYSL IN OD D S N A MF r F %, L OA n S ET ,) I ' P = U"-M D. P A S S, v LIN I T = D I SK t S P ACI-= 13 12,), 00. 100 j , Rt. S F r, C ?,L K 5 1 Z E=3 120 - - 91002300 - 22 YX SY S I N 0 D 09002400 23 XXPS150 EXEC PGM=PGIIO,PAR,4='OPTI!OPT2,0!>T3', 0000,2500 COND@ 4 5 L T, L @ Bo DO DO 2 605 14 X y S T E r L 18 0 0 0 " N = PE 1) 1 L I N K L 13 , D 111 P = SH R 01300@700 27, X X t. 15 T I N' G OD S Y S 0,Jl 03 01129-Do OCB= (PECF"-FA,LRE-,CL-131, BLKS17E=13 31- 26 XXLTST2 DO SYSO(3T=*, 00003100 xx ',)C,3@(RECF?A=FA,LRECL=133,13LKSIZE-133) 00003200 --P 7 XX LIN U S E D P r OD S y @ n I j T - Go OG i3oo xx, ;")',P,=(REC"FM=Pt,,LPFCL-t3,,BLKSTZE=*.33) 0 10, 13 4 G 0 '5),RLSE) '500 ?s XYWO R K F I L E OD T=l ISK , S P ACE= I CYL , ( 5, DO 00 -----xx - -- ---- - 0,30-03600 00 00, @3700 29 XXCOAL UST DO DSN=CFPRINT,DISP=(CL0,DELFTE,DELEIE) 1121 110 xx sYl,,jo(jmp T) r) Sy,,nlJT=-.Drt3=lLKSTlC=133 0 13 0 0 -3 p rl 5 --31 ----YXLKED -- --EXEC PG'4=IEWL,PARM='LIST,X;@r-r,LET,RFUS'v 00003900 x x Crt4O=((5,LT,LlFiR),(?,LTOCOB)J,TIME=(,45) 00004000 32 XXSYSL IN P r) D,' NAME=& UnADS ET, 0 1 SP= (01-D. DELFTE) 0000410.0 r)DNAME=SYSI N ---00004200 34 XXSYSt Is DD DSI,,A'AE=SYSI.COBLIS.C)ISP=S@IR 00004300 35 XXSYSUT! Or) f'SN=CFSYSUT1,UNII=t)!SK,SPACE=(TRK,(50,10)I 01004406 3 X '; SY S P R I MT 0 r,, SySnLjTm*,OCB-BLKSI?,.:=121,n(JTLIM=02500 00004500 37 XX SY SL Mr@O DO DSN=C[)EPT..LINKLIB(EMBR),f)[SP=SHR 00004602 152 'T NO. MESSAGE 6------IFF651I--StJBSTITUTIf)N -JCL---DS,4--SYSI.501JRCF,DISP-SHR-- 37 IcF653I SI)QSTIT!JTIO'4 JCL - DSN=NFRI.LTNKLYS(NMIUOXI,DISP-SHR It T IEF6,961 DrINAME REFERRED TO ON DONAME KEYWORD IN PlIOP, STEP WAS NOT RESOLVED d3 3' FOP PGLCrL tFF2371 120 ;LLOCATFD TO STEPLIB 0 JEF2371 520 ALLOCATED TO MASTER 7 -_I F Fl@ 37 1 JFS2 -ALL -0 CATEO TO, SYSPRINT TEF737T JFS? ALI, 13CATE TO LIST IFF?37[ J51) ALLOCATED TO OSJOB --IEF7371 J@S2 ALJOCATiPtl TO SY50UNCH----------------- 1 -7371 TO 'AF02 F r- 140 ALI OCAT@D SY@ IEF?371 JFS2 ALLOrATFO TO SYSI!I iFF-14?T-TS02P0511 LIFR PGLCCI. --STFP--WAS-EXFCUTED -CONG CODE IF F2,45 I SYS! .!- I RR KEPT IF F235 I VOL SFR N'IS- FCCO06- -KEPT I F r 2 8 11 1 VOL SFR NOS= SCCD20. 22 IFF1951 JFS2.J0(30n763.500I(',2 SYSOUT 1.11 IF JO900763 SYSOUT--- 2.1 IF F? f"51 SYSR 4194. T104?03 qAOOO.TS02PO5X.ROOOOOO 1 PASSED IER YEF?851 VOL I rlrlS= SCCI50. IEF?9351 --Jr-S2,J9RO-')763.SO0I04 SYSOUT ')4.TlO4lr)3.RA@)()O.TS02PO5X.RO000002 DEi.ETFD IEF?851 SY 58 41, I E." A 51 VOL Sc;),- NOS= SCC140. T----JES2.JO000763.STOIOI SYS IN IFF289 JEF-473T STED /LIfflP / STAPT 84094.1043 frF3741.FTEP /LIRP f STr)P 84094.1043 CPU OmrN 0I.OOSEC SR8 OMIN 00.08SEC VIRT 96K SYS 240K EXT OK SYS 8840K lf. F2361- AttflC. FOR -T'0@P)5X COB PG!-CCI- 31 TFF2371 330 ALtPCATrD r STFPLIEk JEF7371 634 ALLOCATFO To SYSPRINT TFF2371 JrS2 ALL OC.P@TEn rO - ------ IF f- -1 i7l 636 ALL rC ATFrl To SYS11TI IEF?371 140 A LL OCATC@D TO SYSUT2 I F, F 3 7 1 1.40- - ALLOCjjT9r) TO SYSI,;T3 ---- -- - TEF7371 636 ALLOCATrr, TO SYSUT4 IrF2371 140 ALLOCATED TO SYSL IN TEF2371-jr(I AtLOCATFD TO IFF1471 TS07P,.)5X Con PGLCCL - STEP WAS EXECUTED COND CODE 0004 JEF?351 SYS I Cog nl_ KEPT !FF7P5l---VnL SIR NO@ti SCCB30.- IFr7B5Y SYS94104.TI04303.RAOOO.TS02PO5X.IIRINT PASSED IEF28ST Vol SER N)S= PlIB002 TrF?A51 i r S 2 . j OF3 (It.) 76 3 . S 0 110 5 S YS OUT 571 430 3 . P A000. T S 0 2P 05 X. SY SLIT 1 DELETED IF F 7 Ft 1, 1 SYS 8 4114 . 11, TFF?8111 VOL @FR PIJPO(')I., -----SYSP4194.TI043,,13.RAI)01).TSOZP05',(.SYSU(? - LET IEF?Rri! ED IFF?89) I VOL SER NOS= SCCI.ItO. 4-J IEF?85T SYS840'14.T!04303.R400n.TS02POIX.SYSUT3 DELETED IFF29r,!-- VVIL Sr:t NnS= SC, 140. - IEF@851 SY S8 419 4 . I I n 4 303 . P AO 0 0. T SO 2 P 0 5 X. SY SU T4 DELETED I F F 2 A 1; 1 VnL SrQ Nns= Pugoot. PASSED- IFF71,951 ,YS941)94.TI04303.RAOOO.TSO?Po5X.LOAD,SET IFF285T VOL SrRl NOS= SCC140. JEF?91;1 SYS8400/t.TI043-,)3.RAOOO.TS02PO5X.ROOOOOOI DELETED IFF2851---- VOL -SFR -NOS- SCr_ 1 JEF3711 STEP /C3-3 START 84094.1043 ISE4741 STEP /COB STOP F34094.1044 CPU OMINI 07.88SEC SR8 OMIN 00.61SEC VIRT 248K SYS 252K EXT OK SYS 8340K Z 31, I-At:tOlr;-.@-rOR-TS-l 2Pf)9 X--Pf, 1 5D- PlrtCCt [EF?371 62E ALLOCATED TO STEPILIS JEF2371 757 ALL,)CATFD TO SYS00075 IFF?371 JES2 ALLOCATED TO LISTING T 9: 1=717 T j "LL 01: AI Ell III LIS112 j C @D To UN US E TEF2371 ES ALLO AT ORF IEF2371 150 ALLOCATED TO WORKFILE IFF?371 614 ALLOCATED TO cnf3L IS T IFF2371 JES2 ALLOr ' ATED TO SYSUDUMP PC,150-PGLCCL- --STEP WAS--EXECUTED -COND- CODE --0000-: IFF2851 P F D I . L I tJ K L T 8 KEPT IEF2851 VOL SFR NOS= SCC62E. 31 .1 ?Ff2R5T---SYSCTL(,;VSYSTEM-- 51 TFF2851 VOL SER N!!S= SYSTEM. i HF2851 JES2.JO5007A3.SOG106 SYSOUT 61 IrF7851--- ----SYSOUT IFF2$151 jFS2,.jnR00763.SO0108 SYSOUT to IFF?951 SYSP,4)94.TI043r)I.P,8000.TS02PO5X.FZOOOOO03 DELETED Sr-R NnS= SCC150.* IFF-2851 SYS94094.TI04303.RAOOO.TS02PO5X.PRINT DELETED IEF79111 VfIL SFQ NOS= PUR002. Ihj@@- IFF2851@@JES2.JnB00763.S00109- ---SYSOUT !I,: IFF3731 STEP /PG150 START 84094.1044 5 TEF.1741 STEP /P@',190, STOP 84094.1044 CPU OMIN 02.48SEC 'SP. B OMIN 00.20SEC VIRT 104K SYS 392K EXT OK SYS 8840K IrF2367--At.t.0'Ca FnR-TS02PO5X lei l 7 TE67471 140 ALLOCATEO TO SYSLIN Iz IEF217T OMY - ALLOCATED TO -IEF?171'---330---ALt_f_)CATFD TO-SYSLIS- JEF2371 150 ALLOCATED TO SYSUTI 'e HF?371 JFS2.ALtOCATEtn TO SYSPRINT F @-----IFF2371- 62 F ---ALLOCA T@: r) JO -SYSL MOD IFF2371 757 ALLOCATED TO SYS00077 -i IFF1421 TSOZP05)r IKED PGLCCL - STEP WAS EXECUTED CCND CODE 0000 I F F285 I --SY 584194. T 104303 R AOOO. TSO 2P05 XpL-OAnSET----- DELETED 1EF2891 VIL SF@ SC(',140. IFF?851 SYSI.CORLIB KEPT S!:R NOS= SCC830;---- t TEF2851 SYS940(14.TlO4303.PAOOO.TS02PO5X.SYSUTI DELETED IEF185,1 VOL SER NOS= SCf.150. JE S2 -JOR00 76 3. 5 00 110 - SYS OUT TPF2851 NFRI.LINKLIB KEPT IFF2851 VOL SEP, NOS= SCC62F. SYSCTLG.VSvSTFM .4t IfF7851 vnL SEP, NOS= SYSTEM. [EF3731. STEP, /LKED / START 84094.1044 @7,---TEF3741--STFP /LKFD -- / STOP- 84094.1044 C-PU------OMfN-00.27SEC SRI,---OMIN 00.08SEC YtRT--- 264K SYS---248K- EXT---OK- SYS 8840K--- IEF3751. J03 ITSO?Pf)5X/ START 84094.1043 TEF1761 JOB /TS0?P05Y/ STOP 84094.1044 CPU O'AIN 11.63SEC SRS OMIN 00.97SEC @4' 411 ea e ,4 72 5z 7 13 1 56; 74 - ------------- - -- DAT@,A04/01/84 TIME=1043 UPDATE RECORD PAGE 1 L -A i("___om_,@_s_T__F_R _F1_L_E_;_EFA_ULTS FOR 'SYSI.SnUPCE' ARE PJO- ARC-HIVING-ALLnWCD--- NOBYPP CPO SEP-------- PR NOVAR 57 EXEC NOLIST .1 NnPu*,4cH BKUPINT=NONE. BVS1 NOT SPECIFIED BVS2 NOT SPECIFIED .1 TA PE4KU? -SPEC[ FI-FD------CO`4PRESS-FULL-- RESEQ SEQ=/1.6,10sl0f SECURITY INVOKED NO I/P EXIT REQUIRED NO O/P EXIT REQUIRED tit 7 23 2 131 35 22 31 3 40 4 431 4t 7, 41 41 13 THE LIBRARIAN SOURCE MANAGEMENT SYSTEM IS LEASED FROM :c3l DATA RFSE@RCH, -INC. FOR THE EXCLUSIVE USE OF-- 5' STATE OF NORTH CAROLINA Ga ALL RIGHTS ARE RESERVED. USE OF THIS SOFTWARE PRODUCT 5, "I AY-001AUTHOR 17 ED- PERSONS IS PROHIBITED. VERSION - 3.2 RELEASE DATE - 01/13/83 @-FOR--CUS-TOMER-SUPPORT-- DUAL TEL EX - 4754201-------- - RUN NO. 58065 DATF=04/03/84 TIME=1043 UPDATE RECORD SYS1.SOURCE PAGE 2 21 -SEL NMI OnX, VVML 3 i - MOOULE--NM, 100 Y,--- -SUCCFS SVULLY- P ROCFSS ED 7; 114 15: 71 '241 21: Z7, 123! 27;1 12 27. 321 .2; 41J A3; 441 46 41F .61 7t! RUN' NO. 58065 OATF=04103/84 TIME=1043 SUMMARY OF ACTIVITY SYSI-SOUqCE PAGE -SEL FOR MCOULE 9NMIOOX WAS SUCCESSFUL. MODULE IS TO BE COMPILED. 117 2t 127@ 14 5: e.1 i FL 12 7: PP 5740-C91 RELEASE 2.3 JULY 24t 1978 Tom US/VS COBOL 10.43.12 DATE APR 3*1984 ----A PR-3#1984,-- -7-()Orj0l-- 000r] 10--l DENT IF -00010000-*----------------------- 00002 000020 ppnGRAM-ID. 00020000 00003 000030 kimloo. 0003 0300 ----00004 -000049 -AUTHOR 00040000 I 0r)005 000050 DIANNE NICHOLAS* BRUCE GARNER, LARRY LETS, & TEAM C. 00050000 r)0006 000069 DATE WPITTEN. 00060000 f)O(,If)7--- 000070---- 00070000 00008 000081) DATE-CO'IPTLFD. APR 3,1984. 00090000 00009 000090 INSTALLATION. 00090000 ---00010---000100 00tooooo 71 1 000111 REMARKS FILE CREATE AND UPDATE PROC;RAM ooiloooo .11 .00 2 000120 RE S TR NS AND PROCFSSES AGAINST OLD MASTER CREATING A NEW 00120000 ;D A 0 1 00013-0001 30*----MASTFR, - A L IST OF UPDATES TO THE MASTER - AND REJ ECTED 00014 000140* TRANSACTIONS, A LIST OF EDIT WARNING MESSAGES AND 00140000 00019 000150* A LIST OF STRUCTURAL ERROPS. 00150000 0, 6-0130 1 b.") 00 1 f, 00 00 00017 000170* CHANCF-0 04/82 TO ADD FNVIR-PRFLOAf) ROUTINES 00170000 21; 0 0 18 1100t so CHANGED 02/83 TO ADD MFSPP SPECIES VERIFICATION ROUTINE Goicloooo 00020 ono2oo* NMIOOX VVML 00200000 00 0? 1 000210************** on n2 2-- -00 02 ?G --E NV I PON M ENT D TV 15 1 ON. n0023 00 0 2 30 fONF!(,U1ZATTON SECTION. 00230000 000?4 000240 SOURCF-COMPUTER. IB4-370. 00240000 000;6 400026') IN"PUT-OUTPUT SECTION. 00260000 (10027 000?70 FI(E-CONTROL. 00270000 000280 SELECT- ENVIR-PRELOAD-FTLE --- ASSIGN -TO UT-S-NMOq9ll..-------- 00280000 3i 00 0:)9 000290 SFL@CT OLO-MAST ASSIGN TO UT-S-NM10011. 00290000 00030 00030-1 SELECT TRANS-FILE ASSIGN TO UT-S-NM100,11. 00390000 -(30031-0003 ELECT SO RT -F I L E A S S IG N To UT-S-SnRTWKOIo-- 341 3@i 00032 000320 SFLECT N E W- PIA S T A S S I G.N TO UT-S-NM10010. 00320000 00033 000330 SELECT UPDATE-RPT ASSIGN TO UT-S-PqINTERI. 00330000 00034- Or)O-;40----- SrLFCT- ERPOR-RPT -----ASS IGN TO UT-S-PRINTER2 00340000-------------------- 00015 000353 SFLE@T STRUC-EllR-RPT ASSIGN TO UT-S-PRINTER3. 00350000 00016 000160 SELECT LATIN-FILE A'@SIGN TO UT-S-LATIN. 00360000 00039 000380 DATA DIVISION. 00390000 0003q 000390 FILE SECTION. 00390000. 44 -00041-000410--fD---ENVI R-PRELOAD-F ----00410000 ONM-6-34?--OCB=01------- 00042 000420 LAlEL RECORDS ARE STANDARD 00420000 @al 00043 000430 RECOPDING MnDE IS F 00430000 00 041,----000440 ---- BLOCK CONTAINS 0 RECORDS 00440000 ---- 00045 000450 RECORD CONTAINS 80 CHARACTERS. 00450000 00046 000460 01 ENVIR-PRELOAD-REC PIC X(80). 00460000 ONM-6-379 BL-1 000 0001 OS 80C ---------- 2 N41n0 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION LLJ -00480000--'.DNM-6-406---DC8-02 -7<1 00049 000490 LAB%7L RECORDS. ARE STANDARD 00490000 1 Z I 00050 000500 RECORDING monE IS F 00500000 -000' 10 ------ -BLOCK CONTAINS O-RECORDS--- 00510000--- 00052 000520 RECOPD CONTAINS 150 CHARACTERS. 00520000 00053 000530 01 OLOMST-REC PIC X(1501. 00530000 ONM-6-428 BL-2 000 0001 os 150C 00f)55--000550-FD---TRANS-FIL-E--------- -00550000--DNM-6-448--DCB-03 0005,6 000560 LABFL RECORDS ARE STANDARD 00560000 141 00057 000570 RECOPOINC, MODE IS F 00570000 CONTAINS 0 R E CO R D S 0058 0000 00059 ooo5qo RECOP-r) CONTAINS 128 CHARACTERS. 00590000 00060 000600 11 TRANS@REC PIC X(t28). 00600000 DNM-6-472 BL-3 000 0001 DS 128C 00620000---DNM-7-000--DCB-04- 110063 000,130 LABEL RECORDS All STANDAR 00630000 D 00064 000640 REcnRDING MODE IS F 00640000 ---1)0065- 0006 50 ---- BLOCK CONTA INS-0 RECORD S--- 00650000-- - 23' 00066, 000660 RECORD CONTAINS 150 CHARACTERS. 00660000 00067 000670 01 NEWIST-REC PIC X(150). 00670000 DNM-T-022 BL-4 000 0001 OS 150C 12@ 2,* 12 7' vi,@----00069---00^690-FD--UPf)ATE-RPT--- 00690000-- DRM-7-042-DCB-05 00070 000700 LABEL RECORDS ARE OMITTED 00700000 0.0071 000710 RECORDING MODE IS F 00TIO000 ----00072-000720---BLr)CK CONTA INS -0-RECOROS -----------00720000--- 00073 , OOOTIO RECORD CONTAINS 133 CHARACTERS. 00730000 13; 00074 000740 01 UPn-PQT-LINE PIC K(1331. OOT40000 ONP-7-066 BE-5 000 0001 DS 133C ----000760 00076 -F-D- ERRfIR-RPT ------ -00760000-- DNM-7-088---DCB-06 00077 000770 LAREL ;Z'CORDS ARE OMITTED 00771000 00078 000781) PFCORDING mnoE IS F 00780000 E--00079-000790-13LOrK CONTAINS- 0--RECORDS--- 0079 0000 I WORD 000800 RECO90 CONTAINS 133 CHARACTERS. 00800000 00081 000810 01 FRR-PRT-L INE PIC X(031. 00810000 ONM-7-111 BL-6 000 0001 DS 133C 00830000 0084 000840 LABEL RECORDS ARE OMITTED 00840000 j '00015 000850 RECORDING MODE IS F 00850000 "@q----00086 --00086D-----RLnCK CONTAINS-0 RECORDS -------- - 00%360000 00OS7 000870 PF:cnPD C@'INTAINS 133 CHARACTERS. 00170000 00098 OOOq8O 01 STRtJC-PRT-LINF PIC X(133). 00880000 ONM-7-166 BL-7 000 .0001 DS 133C 3 NM100 10.43.12 APR 3t1984 INT NAME BASE DISP RL01 DEFINITION 00900000-- 2 00091 000010 RFCOPDING MnDE IS F 00910000 31 00097 00,0920 Rr-rf)RD CONTAINS 12P CHARACTERS. 0092 0000 013--- DO 09 30 01-- S9R T@R F C - 00930000 ONM=7-214 BU-3 -0 00 - 000 1- DS OCL 112 8 1'.: r'0094 000940 03 SORT-AC CT I ON PIC X. 00940000 ONM=7-235 BLL=3 000 0001 DS 11 00095 0019s) 03 SOQT-TY@'E PIC X. 00950000 ONM=T-259 OLL-3 001 01302 DS !C 0000115--000960 -----03 - SORT-KEY--------- PIC X123)w--- 009610 00 ONM=7-278 BLL=3 002 0003 DS 23C -- 00097 00 09 70 03 FULER PIC X(103). OOq7OOOO DNMn7-296 BLL=3 019 0026 DS 103C 141 00099 0010q90 F0 LATTN-FILE 00990000 DMIM-7-307 OCO-08 --00100')-tABFL RFCOROS--ARE STANDARD- 01000000 r-f) 100 171 i 00101 001010 RECORDING MODE IS F 01010000 is. ooi02 001020 3LOCK CONTAINS 0 RECORDS 010?0000 '30000-- 00 103 001031- ----RECrRD CONTAINS- 80 CHA1,RAC7ERS.--- 010 00104 00104D 01, LATIN-RECORD PIC X(80). 01040000 DNM-7-331 BL-8 000 0001 DS BBC Zc, 3li 44 eo, IV 71 L 4 NMI'OO 10-43-12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION @,_()O 1-06--001060-WORK I NG-STO RAGE- SE(:T-ION----- 01060000 001,37 001070 77 TURN-ON PIC X VALUE '1'. 0!070000 ONM-T-353 BL-9 000 0001 US 1C 00 108 Or) 10 Al ?7 TUR N-OF F PIC x VALUE 001. 01080000 01 '0=7-3TO 'BL=9 001 0002 US 1C @i-O') I OQ -00 10 40 -77---A6END-A------------ ------PIC X VALUF SPACE. 01090000-- ONM.-7-388 BL=9 002 0003---DS IC 00HO 0,) 1109 77 CJAUSF-A7FND REDEFINES AD!-:N,)-A PIC 9- oilooooo DNM=7-408 BL@9 002 0003 US IC 01 00111 001110 T7 RI-PACE-CNT, PIC 913) COIAP-3 VALUE ZEROS. 01110000 DNM,=7-429 BL=9 003 0004 OS ZP 71 001120 77- Rl-LTNF-CNT PIC 9(3) COMP-3 VALUE ZERf)S--- 01120000- DNM=7-450- BL=9 005 0006 US 2P 00 111 On!130 T7 P2-PArE-CNT PIC 913) COMP-3 VALUE ZEROS. 01130000 ONNM=7-471 BL=q 007 0008 DS 2P 00114 001140 77 P2-LI'4F-CNT PIC 9(3) '-04P-3 VALUE ZEROS. 01140000 DNM=8-000 BL=9 009 0010 US 2P oL ONM=8-021 -9 OOB 0012 DS ZP-- 00115---flnII50 -77 --R3-PAGF-CNT--- --PIC-91 1) @nMP-3 VALUE ZEROS.- 01150000 BL 00116 001160 77 P3-LINE-CNT PIC 9(3) CO M P- 3 VALUE ZEROS. 01160000 ONM=8-045 BL=9 OOD 0014 US 2P 00117 001170 77 CHK. PIC @ VALUE #Xf. 01170000 GNM-8-069 BL=9 OOF 0016 DS IC ----00 1, 18 - -001! PO-77 --DASH X VALUE 01180000 ONM=87082 BL-9 010 -0017 US I C 00119 OOil9O 77 W K- S I JB PIC q999 COMP SYNC. 01190000 DN.M=8-096 SL=9 012 0019 US IH I Oo 1 17 0 001200 77 WK-SUB-2 PIC 9999 COMP -SYNC. 01200000 DNM.=8-112 BL=9 014 0021 US IH -.00121 10- 77 -Wf IRK-LOC.AT104-- PIC 9(10) CnMP-3. 01210000 DNIA=8-133 SL=9 016 0023 DS 6P @71 00122 001220 77 WORK-CNT -PIC 9(5) COMP-3. 0,220000 ONM=8-156 BL-9 01C 0029 US 3P 00123 001230 77 LATI N-SUBSCR PIC S59q9t COMPt VALUE ZEROS. 01230000 DNM=8-177 BL=9 01F 0032 US 2C 124--001240 77-- --T A(',-Sljr,3SCR IC S9999, COMP VALUE ZEROS.- 01240000 DNM=8-202 -- BL-9 021 - 0034 US 2C- 00125 001250 77 T AX,-NU'@BR-CNTR PIC sgyqg, Comp': VALUF ZEROS. 012 5 0000 DNmr8-222 BL=9 023 0036 US 2C 00126 00112 60 77 LATIN-TnTAL PIC Sl;999, COMP, VALUE ZEROS. 01260000 DNM=8-246 8L=9 025 0038 US 2C ,221 1@7----0012 70 9999 VALUE ZEROS. 01270000 TINM-8-267 BL-9 -027 0040 US 4C---- Orli?8 001280 77 DATE-PROGRAM PIC X(8) VALUE SPACES. 01280000 ONM=8-285 BL=4 02B 0044 DS 8C Z3@ 25i 21 z3 42 13. 31, 4oi le 4V fl 5 KIM I Oo 10.43.12 APR 391984 INT NAME BASE 01SP RL01 OEFINITION 00131 no!310 01 SW TTCH-F I NDER PIC X(1q) 01310000 ONM-8-307 BL-9 038 0001 DS 19C 00132 001i?o VALUE ISWITCHES START HERE*. 01320000 --- ---- 013 3 0000--' DNM@8-330 BL-9 0 50 --- 0001 - DS OCL20-- 00 113 0 0 13 3 0- -0 17-- ' Slef I T C f f E S -.@ - - - - - ---- -- - ___ -1. 1 01340000 DNM=8-351#. BL-9 050 0001 VS I C 00 114 001141, 03 RF4r@-NISTR-SW PIC X VALUE SPACE. 00 1 _3 001350 Sq READ-MSTR VALUE 111. 01350000 136 -001360 -----03 f1EAD-7RAAN4--SW------ PIC X VALUE SPACE.- 01360000 DNM=8-399----8L-9 OOOZ DS IC- 00137 001370 8@ READ - TRAN VALUE "1". 01370000 011) 1 'A p 00!3pc) 03 WR ITE-RE)TI-SW PIC X VALUE SPACE. 0!330000 DNM=8-444 BL-9 052 0003 DS IC 00 13 9 ---- 0013 90-- - - PH VALUE '11. 01390000 00140 001400 03 WR I T E- NEW4 S TR - S W PIC.X VALUE SPACE. 01400000 ON14-9-000 BL-9 053 0004 DS IC 00141 0011,10 83 WRITE-NEWMSTR VALUE 119. 01410000 Of)142-----01)1420---o3-nt,,mmy-l@r)-Sw PIC X VALUE -SPACE- 01420000- DNM-9-053-- --- BL-9 054- 0005 DS IC 00143 00 14 31 88 OUMMY-RD-ON VALUE '1". 01430000 110144 00!4411 IQ WkVIY-RD-111-1: VALU@ '0'* 01440000 00 14 5 --- 0 01 4 51 -03 FD1T-FRQ0R-SW-------- PIC-4 VALUE SPACE.---- 1,1450000- --BLw9 055 -0006 DS IC-.-- 00146 001460 88 EDIT-ERROR VALUE all. 01460000 00147 001470 PS NO-EDIT-ERRORS VALHE '01. 01470000 09 148---- 0014 80 ----03-Fr)IT-REJFCT-ERPOR.-SW--------PIC X VALUE SPACE.---- -01480000 - DNN-9-200--BL-9 -056--0007---OS IC or) 14 c@ 00 14 90 89 E0IT-PEJr-CT-FRtkOR VALUF ?Is. 01490000 00 i oo Go 03 STRUC-ERR-SW P I -, X VAL UF SPACE. 01500000 DNM-9-261 BL-Q 057 C008 DS IC 00 152 -- 0015 11 -- - Pq STRUC-ERR VALUE 114. 01510000 00152 001520 03 DETAIL-LINIE-WRITTEN-SW PIC X VALUE SPACE. C1520!300 ONM=9-306 BL-9 058 0009 DS 1C 121 00153 001530 88 DETAIL-LINE-WRITTEN VALUE '11. 01530000 130154---001540------03-COCIF4-DATA-FOUND-SW-- PIC X V6LUE-SPACE. 01540000 DNM-9-371----BL-9 -059- 0010- DS IC______ 00155 00 15 5f) 88 NO-CODE4-DATA-FOUND VALUE 01550000 -SW '0'. -433 BL=9 05A 0011 VS IC 2. 00156 0L)150 03 DEr.REASE PIC X VALUE 01560000 DNM.=9 NO-I)ECREASE VALUP '14. 0157 00 00 1 00158 001580 03 INVALID-GFAR-SW PIC K VALUE SPACE. 01580000 ONM-9-479 BL-9 058 0012 DS IC 00159 0 , 0 15 90 89 INVALID-GEAR VALUF ' 11. 01590000 .--;----00160--001600-----03-INVALID-STATICIN-SW - -----PIC X VALUE SPACE.--------- --01600000 ONM-10-023.- SL-9 --05C--0013 CS IC- I @, 1 00 1610 8q INVALID-STATION VALUEE 111. 01610000 00162 00167a 03 STATION-Fnu:qt-Sw PIC X VALUE SPACE.- 01620000 rjNM=tO-083 BL-9 05D C014 DS IC S TAT ION-1JOT-FOUNO-- VALUE *01. 00164 001640 88 STAT(nN-FOUND VALUE "1". 01640000 00165 001-55r) 03 FND-OF-LIST-SW PIC X VALUE SPACE. 01650000 ONM-10-164 BL-9 05E 0015 DS I 00 11 f- DO 16,10 - --- ---- P3 E NO- rf- -L I S T V A LU F ot6soojo 7 0-1) IF 1@) 11) 3 %1 AS ER - A C I 10 N, - IS w E. - 2 1 ch 00, .1 Pit x VN k); Ac 0167000D DNM=10 BLA9 05F 0016 DS 1C ooi6e Ooi6so PR MASTER-ACTION VALUE fit. 01660000 -00169---COISOC)-----03-MISSINr,-f)TSTAt-,CE-SW -----PIC X VALUE SPACE. ONM-10-272--BL-9 - 060--0017 05 1C 14 00170 001700 851 MISS 1Nt-,-DI STANCE VALUEVAf1f. 01700000 P 00171 0117 10 03 EOF-LAT N-Sld 1C x L UE SPAC E. 01710000 ONM-10-331 BL-9 061 0018 DS IC 00 1.72 - - 00 17 20 --- - 89 EOF -L ATT N VALUF -11. Ot720000-- O@'173 001730 03 TAG-'AATCPED-SW PIC X VALUE SPACE. 01730000 ONM-10-379 BL-9 062 0019 OS IC 00 74 001740 88 TAG-MATCHED VALUE "1". 01740000 --00175 -OIJ1750*----- 0175 00 00 00176 Ot75OOOO 00177 001770* AOD!TIONAL SWITCH TO CORRECT EDIT ERROR PROBLEM FOR TAG 01750000 00178-.-- 00 17 80*- RECAPURE -RECORnS . BY - EFF 03/21184 01750000 - 00179 ()01790* 01750000 _I T1 711N C 00!qo 001-00 03 SPECIES-FnUND-SW PIC X VALUE SPACE. 01730000 ONM-10-428 BL=9 063 0020 DS IC @-=--00 19 1 - -00IR19-- -- 89 - SPEC I ES-FVu.,iD VALUE 1 01740000 00182 001820* 01750000 00183 001830* END OF ADDITION BY EFF 017SO000 L 6 NM100 10.43.12 APR 3,1984 INT NAME. BASE DISP RLOI DEFINITION ---00 184-00 1143 01750000- - ---------- LIOIP5 001850* OiT50000 2 0018f, 001860 01 TrT-COUNTFRS. 01760000 DNIM=10-481 OL-9 068 0001 DS OCL20 00 1 R 7--- 00 18 71 -01 REC-REJECT-TOT PIC 915) COMP-3 VALUE ZEROS: ---- 01770000 ON'M=11-000 BL:9 068- 0001 US 3P nnP8 00 i p go ()3 NBR-RECS-ADDED PIC 9(5 ) COMP-3 VALUE ZEROS 01780000 DNM=11-024 8L 9 063 0004 OS 3P 00189 00,1890 03 NPR-RFCS-CfiG PIC 9(5) COMP-3 VA'UE ZEROS. 01790000 DNM=111@051 BL=9 06E 0007 DS IP 7i 90 19 0 190) N BR-R ECS-D PIC 945i COMP-3 VALUE ZERROS. 01800000 ONM=11-073 BL-9 - 071 - 0010 DS ;P -e I i 00191 001910, 03 N (IR-BEFORE-UPDAT E PIC 9(7) COMP-3 VALUE ZEROS. 01810000 01%M=11-095 BL=9 074 C013 I' S 4P 00192 001920 03 N ?,P - AF TE R-U PID A T E PIC 9(7) COMP-3 VALVE ZEROS. 0 182 00 00 ONM=11-122 BL=9 078 0017 OS 4P 01830000 OOIq4 001940 01 SAVE-FIELOS. 01940000 DNM=11-151 BL-9 080 0001 DS OCLlt6O 00195 001950 03 SAVE-NUM-REPS PIC 9(2) VALUE ZEROS. 01850000 DNM=11-175 BL-9 080 0001 US 2C _P-RECS PIC 9(2) VALUE ZEROS- 01860000 ONM=11-198 BL@9 0 8 2 0003 DS 2C mm 00 106 ----001960 -----Ol NU "R - R F 14 0OIq7 01) 19 71) C) I S A V F - N! YA - S P E C I E S PIC 9(2) VALUE ZEROS. .01970000 DNM=11-221 8L=9 084 0005 DS 2 C it! on I I? S 0019SO 03 N, Ul m P - s P F C - p E C S PIC 9(2) VALUE ZEROS. 01380000 ONM=11-247 BL=9 086 0007 lJS 2r_ la@ ------- 00 199 00 19 90 -------03 SAVF-SPEC-COOE PIC X VALUE SPACE. 01890000 DNM-11-271 BL=9 088 0009 US 1C 171 00200 002000 98 SPECTES-CODE-n VALUE '0#. 01900000 00201 002.010 88 @PECIFS-COOE-I-nR-2 VALUE 'to 820. 019i0000 ------ 00202 0020?() Pq SPEC IFS-CODE-3 VALUE 1 So 01920000 71 -1) 7 r.3 ?C.. 30 88 S?EC IES-CODE-4-C-R-7 VALUE '4' '7'. OI1)3OQOO 00201. 00;@.049 P, 3 SPECIES-CODE-5 VALUE '5'. Okq40000 002 05, 002050 P-9 SPECIES-COCF-6 VALVE *6'. 0 195 00 00 1221 - - - 00706 002060 03 SAVE-NW4- SUBS A 4PLES PIC 9(5) VALUE ZEROS. oigboooo DNM=11-471 BL-9 089 0010 0S 5C A@ 00207 002170 03 SAVE-INDIV-LTH PIC 9(41 VALUE ZEROS. 01970000 DN.4=12-000 BL-9 08E C015 DS 4C 31 00 71FI ___ , ---. - -- .1 -----03 OCCURRENCE-CnDE-3- PIC 999 VALUE ZERO. 01980000 DNM=12-027- BL=9 -092 0019 DS 3C )()208n 00209 002000 03 OCCURRENCE-CODE-6 PIC q99 VALUE ZERO- 01990000 ONM@12-054 BL-9 Oq5 0022 DS 3C 10210 ()"i 01) 03 NU'Aq-IN0TV-RECS PIC 9(5) VALUE ZEROS. 02600,)00 DNM=12-081 BL-9 098 0025 DS 5C 00211 --OO?l 10 -----()3 SAVE--TAG-4O---- 9(6) VALUE ZEROS. 020100*00 DNM=12-109- BL-9 09D 0030 05 6C On212 002120 03 COMP-L EN PIC 913) VALUE ZEROS. 02020000 ONM=12-110 BL-9 OA3 0036 DS 3C 3 00213 00213) 03 WK-DIF PIC 9(3) VALUE ZFPOS. 02030000 DNM=12-151. RL=9 OA6 00 3:9 DS 3C SDN-RECAPT-DATC ---- -- PIC q(7) VALUE ZEROS. -.02 04 00 00 DNH.=12--@167-- BL=9 049 0042 V S 7C 01 SON-ENIV I R-DAt E PIC 9(7) VALUF ZEROS. 02050000 DNM=12-192 BL=9 OBO 0049 DS 7C 00215 002!5) 00216 Of@2 160 13 Snl-DATE-DIFF PIC 9(7) VALUE ZEROS. 01060000 DN.M=12-216 SL=9 OB7 0056 DS 7C 43 00 217--00?171---03 MINUS-1 S9 VALUE --I. ___O@070000 DN,'A= 12-242 BL-9 08S 0063 US IC 00218 002190 03 LINE-NUMBER-CNTR PIC 999. 02080000 DNM=12-259 BL=9 OBF 0064 DS 3C 4J 00219 00@190 Ol SAVE-INDIV-AGE-STATUS PIC X VALUE SPACE. 02090000 ONMI?-298 BL-9 OC2 0167 US I C q PIC x . -----03 SAVE-TAr,-R.F.CAPT-TAGI----- 0? 100000 DNV-!2--319 BL--9 OC3 0068 US lC G 36 00221 0(12210 03 SAVE-TAG-0FCAPT-TAG1-',NTR, PIC q(5). 02110000 DNM=12-349 BL=9 0C4 0069 0 S 5C 00222 00 22 03 S AV;@ -TAG--, FCA P T-TA G 2 PIC X. 02120000 0 NM= 12- 3a4 r5 L = 9 OC9 0074 DS IC Of)? 23-- 002? 30 03 SAVE.-TAG-RECAPT-TAG2-CNTR PIC 9(5).- 02130000 Dht4=12-414 8L=9- OCA 0075 US 5C 00224 002240 03 SAVE-ENVIR VALUE SPACES. 02140000 DNM=12-449 BL=9 OCF 0080 DS OCL 150 00225 002250 05 FILLFR PIC X(001). 02150000 DNM=12-472 BL=9 OCF 0080 US IC 42 002?6 00 27 60 05 SAVE-ENVIR-KFY PIC X1007). 02160000 GNM=12-486 BL=9 000 0081 US 711, 00227 nO2270 05 F ILLFR PIC X(19). 02170000 ONM=13-000 BL=9 007 0088 US 19C 00229 or,2?80 05 SAVE-ENVIR-DATF. 02180000 DNM-13-014 BL=9 0;:A 0107 DS OCL6 2 2 9 002290 07 SAVE-ElJV IR-YY PIC X. 02190000 ONM=13-042'- SL=9 OEA 0107 DS 2(; 00230 002300 07 SAVE-FNVIR-NIM PIC XX. 07200000 UNM=13-065 BL=9 DEC 0109 DS 2C 7.1 00 231 00 ?3 10 07 SAVE-ENVIR-OD PIC XX. 02210000 DNM=13-688 3L=9 OEE 0111 US 2C .3, 00 2 32 0023 20 -05 SAVE-ENVIR-DATE-iq REOErINES SAVE-ENVIR-DATE. 02220000 DNM=13-111 8L=9 CEA 0107 US OCL6 (10133 00`2 3 '113 07 @4 "I -FNV PIC 02230000 DNM=13-141 SL=9 OEA 0107 CS 2C 101 00?34 Ol 2 It 4f) 07 SAVE-ENVIR-M'A-P . PIC 99. 07240000 ONM=13-166 RL-9 OEC OL09 US 2C 07 @., I t 0 0 ? 3 5 0 0 2 3 11 -1 - 07 SAVE-ENVfP-D()-R---- PIC 99. 022.50060 WA=13- 19t BL=9 OEE 0111 DS ZC ,2 00236 00?360 05 FILLER PIC X(117). 02260000 0 KM-= 13- 216 BL=9 OFO 0113 US 117C 00?370 -REPLIC VALUE SPACES. 02 2 7 (.1r) 00 ONM=13-230 3L=9 165 0?30 DS OCLI50 00237 01 SAVE -41 7 Nl@loo 10.43.12 APR 3,1984 INT NAME BASE 011SP RLOI DEFINITION ----0221oooo--- vNM-13-254-- OL-9 1)07-139 0023 90 05 SAVE-REPLIC-KEY PIC X(009'). 02290000 DNM-13-268 BL-9 166 0231 US 9C 00240 002403 05 FILLER PIC X(140). 02300000 DNM=13-293* BL@g 16F C240 US 140C @3; '10241--- Of%? SAVE-SPE-CIES SPACES.- 022310000@ DNM=13-3O7---8L=9 1FB-- 0380 - US OCLI50------, -410 00242 00242-1 05 FILLER pzC Y(001). 02320000 DNM=13-332 SL-9 IFB 0380 US IC 00?43 0024T) 05 SAVr-SPECIES-KEY PIC X(020). 32330000 DNM=13-346 BL=9 IFC 0381 US 20C 7 SAVl--SPFCfES-KEY-R REDEFINES SAVE-SPECIES-KE-Y.- 0234 0000 DNM@I@-372 BL@9 IFC 0331 US OCL2C 00?45 00?450 07 ',AVF*'-SPE-SEQ-NMBR PIC X(T). 02350000 DNM=13-403 BL=9 lFC 0381 US 7C 00746 002460 07, FILLER PIC X(13). 02360000 DNM=13-433 BL=9 203 0388 US 13C 007479----05 - PIC X(371. 02370000 ONM=13-447 BL=9 210 0401 US 37C - 01147--- ji,l 00?49 00248() 05 SAVE-SPE-TAGI PIC X. 02380000 ONM=!S-461 BL=9 235 0438 US I C 00249 0074QO 05 S A V E- S P F - @ 1 U M B R - T A G G E 0 1 PIC X(5). 02390000 ONM=14-000 BL=9 236 0439 US 5 C 'GEOI R P F 1 N c%AVE-SPE-NUM5R-TAG - EDE ES 02400000 ONM=14-032 BL=9 236 0439 US 5C 00251 0 0 75 110 SAVF-SPE-NUMf3R-TAGGECl PIC 9(5). 02410000 0@252 002520 05 SAVE-SPE-TAG2 PIC X. 024?0000 C)NM=14-069 BL=I? 238 0444 US 1C 00 2 li3 SAVE-SFIE-NUM9R-TAGGEDZ PIC X(5). 02430000 DNM=14-092 BL=9 23C 0441 C) S 5C 00254 00 2 5 40 05 SAVE-SPE-NUMBR-TA(3GE02--R REDEFINES 02440000 ONM=14-124 BL=9 23C 044; DS 5C J 00255 'OOZ5 50 SAVE-SPE-NUMBR-TAGGEC2 PIC 9(5). 02450000 03256 FILLFR PIC X180).- 02460000 DNM=14-158 BL=9 241 0450 US 80C 09257 0111 ? 5 7 ri 03 SAVE-INDIV. 02470000 ONM=14-172 BL=9 291 0530 US OCLI52 00258 0025 81 05 FILLEP Pill X. 02490000 ON'M=14-198 SL=9 291 0530 US IC fn, 0 0;'5 9)-- --- 0 5 - SA VF- I NDI V-K EY- PIC X(20).i-- 02490000 0 NM= 14- 212 BL=9 292 0531 ri S 2Or.- 00260 Of, 26 00 05 SAVE-INDTV-LINE PIC X(3). 02500000 D@M=14-236 5L=9 2A6 0551 OS 3C 00 26 1 002610 05 SAVE-TNDIV-LINF-R REDEFINES SAVE-INDIV-LINE PIC 999. 02510000 DNM=14-264 BL=9 2A6 0551 US 3C 00 21,2 0026 2r)-- -----05 --FILLER P I C X (40) ONM-14-29t- BL=9 2A9 0554 US 40c- 00263 00?630 05 SAVE-INDIV-AGE PIC Xx. 02530000 ONM=14-305 BL=9 201 0594 US 2C 0)764 Or)?6 41 05 SAVE-1Nr.)IV-AGE-R REDEFINES SAVE-INDIV-AGE PIC .99. 02540000 ONIM= 14- 329 BL=9 201 0594 US 2C tll----00265 00?6 05--- SAVE- INDTV-S PAWN-MARK PIC XX. --02550000 D.NM=14-355 BL--9 2!) 3 0596 US 2C 6 002660 05 SAVE-INDIV-SPAWN-MARK-R REDEFINES 02560000 ONM=14-386 BL=9 203 0596 US 2C 00267 00?670 SAVE- INDIV-SPAWN-MARK PIC 99. 02570000 00 @- 6,9 On 2 6 80 --- 0 5 -- F I L L F r' P I C Y ( .9 4 1 02590000 DNM=14-422 BL-9 205 0598 US 84C 122 00269 (1026 90 03 SAVE-ANNULUS 02590000 ONM=14-436 BL=q 329 0682 US QCL150 131 00270 002700 05 FILLER PIC X. 02600000 D-%M=14-464 BL=9 329 0682 US IC 2 71--00 2 7 1 05-- SAVE-AN'4L-KEY----------- -PIC -Xi 20Y. 02610000 ONM=14-478 BL-9 32A 0663 US 20C 31 00272 002720 05 SAVE-ANNL-LINE PIC XXX. @02620000 ONM=15-000 BL=9 33E UT03 US 3C 00273 002730 05 rILLER PIC X(98). 02630000 ONM=15-027 BL-9 341 0706 US 98C 00?74--- 00? 7 40 0 5 S A VF - A N NL - S P Aw N- MA RK P I C Xx -096400UO OkM=15-041 BL-q 30 0804 D S 2 C 00275 002750 05 FILLER PIC X (26). 02651000 N M = 15 - 0 7 1 SL-9 3A5 0806 D 5 26C 01276 007760 03 SAVE-T AC,-P ECAPT 02660000 D.-NM=15- 065 BL=9 33F 0832 US OCLI50 -CO?770---- 05- -F I LLER--- P IC- -X . 02670000 ONP4=15-113 9L-9 3BF -0832 US IC 00777 00278 002780 05 SAVE-TAG-RECA"T-KEY PIC X(20). 02680000 ONM=15-127 BL-9 3CO 0833 US 20C 00279 002790- EFF ADDEO VALUE SPACES 00 2 9 0 --- SAVF-TAG-RECAPT-LINE PIC X(3) VALUE SPACES: 02690000 DNM-15-tS6 Bl.-9 304 0853 US 3C 44@ 00291 f)r)?8 10 05 SAV-P-TAG-RECAPT-LINE-TI REDEFINES 02700300 DN.4=15-186 BL-9 304 0853 US 3C 00292 002920 SAVE-TAG-RFCAPT-LINE PIC 999. 02710000 -00283---0021330---05--SAVE-TAG-RECAPT-TAGN13R .---PIC X(6). 02720000 DNM-15-216--BL-9 3D7 0856 US 6C 00234 00-7840 05 FILLER PIC Xtizo). 02730000 DNM=15-253 BL-9 300 0862 US 120C. 0 0 2 9 5 002351) 03 ROLLOUT-APEA PIC X(150). 02740000 ONM=15-767 BL=9 455 0982 US 150C 00 2 @ JS ----Or)2F60----O3 WS-CURR-KEY - ------ ----- - 02750000 ONM=15-289 BL=9 4F8 i132 US OCL23 00?97 002P70 05 WS-CURR-SPECIES-KEY. 02760000 DNM=15-313 SL=9 4EB 1132 US OCL20 00788 00?880 07 WS-CURR-PFPLIC-KEY. 02770000 DN'4=15-345 BL-9 4EB 1132 US OCL9 (0), [@@---OO 2 P 9 - 09 WS-CURR-FNVIR-KEY PIC X(07). 02780000 DNM=15-376 5L-9 4EB 1132 US 7C 00290 002900 09 FILLER PIC X(02). 02790000 ONM=15-403 BL=9 4FZ 1139 US 2C 00291 On 217 10 07 FILLER PIC X(Ill. 02@00000 DNM=15-41T BL=9 4F4 1141 05 11C -- ----- --------- N4 V) 0 10.43.12 APR 3. V984 INT NAME BASE DISP RLDI DEFINITION 05-F I LLER- ---- -PIC-X!03). -02810000 ONM-15-431--'8L-9 4FF.-11'52 DS - 3C-- 03 DFC-CNT PIC S99 COMP-3. 02820000 DNM-15-445 BL=9 502 1155 DS 2P 00293; )021)30 00294 002940 03 DEC-CHECK-FLO. 02830000 DNM-15-462 BL-9 504 1157 DS OCL4 002950 ------O5--OFC-CK-1-- ------PIC X 02840000-- DNM-15-491 SL-9 504 1157 DS IC - 00296 002963 05 DEC-CK-2 PIC X. 02850000 DNM=i6-ObO BL-9 505 1158 OS 1 00297 00@970 05 OEC-CK-3 PIC X. 02860000 -0 KIM- 16-021 BL=9 506 1159 DS I C PIC X. 02870000-- ONM=16-042 BL=9 507 1160 DS IC 7 Oo?qQ 00?1490* 02980000 1:! 00300 003001 01 OUP-PECORD-DESC. 02@90000 DNM=16-060 BL=9 508 0001 OS OCI. 103 -DI.IP-1fIDIV-REC;6-Er4TRIES4-. 02900000-- DNM=16-088 BL=9 508 0001 - DS OCL103-- 00302 003020 05 OUP-INDIV-ENTRY6 OCCURS 14 TIMES. 02910000 ONM=16-123 BL=9 509 0001 OS OCL7 00303 00303D 07 DUP-INDIV-CNT6 PIC X13). 02920000 DNM-16-152 BL-9 508 0001 DS 3C C C T-3i---003O4--OO3040---. 07 DUP-INDIV-1 TH6 - --PI )(f4).---- - ----- 02930000 ONM=16-179 BL-9 SOB-- 0004 DS 4 14 00305 003050 05 FILLER PIC x(5). 02940000 ONM=16-209 BL=9 56A 0099 DS 5C 00306 003061 03 DUP-INDIV-REC7--:ENTRIES REDEFINES DUP-INDIV-REC6-ENTRIES. 02950000 ONM=16-223 BL=9 508 0001 OS OCL103 DUP-141)IV-ENTRY7 CCCURS 11 TIMES. 02 96 0000 DNM=16-258 BL-9 508 0001 DS OCL9 o0308 003080 07 DUP-INDIV-CNT7 PIC X13). 02970000 DNM-16-287 BL=9 508 0001 DS 3 C 00309 07 DUP-INDIV-LTH7 PIC X(4). 02980100 DNM=16-314 BL=9 508 0004 DS AIC 0UP-INDTV-SEX7-- PIC ------ 02990000 DN'M=16-341 BL=9 50F 0008 DS 1C M! 00311 0031 10 07 DUP-INDIV-MAT7 PIC X(l). 03000000 DNM=16-371 BL=9 510 0009 DS 1C* 00312 003120 05 FILLER PIC X(4). 03OtOOOO ONM=16-401@ BL=9 56B 0100 DS 4C ;i7_00 313-003130*-- --030?0000 144 45. 002Q2_ 9 tim 100 10.43.12 APR 3t I q134 INT NAME PASE MP RLOI DEFINITim 03 40000--- 0 0 3 1 6 003160* UPDATE REPORT DFSCRIPTION 03050COO 00317 003170* V * * * * 03060000 03,170000 t !3'! f@r) 719 003193 01 REPORT-LINFS. 03080000 DNM=16-415 BL-9 570 0001 DS OCL1477 00320 003POO 03 PFPCRTI-HFADI. 03090000 DNM=16-443 BL-9 570 0001 US OCLI33 7 1 00 3 2 t -----0 032 10 ---- 05 PIC X-----VALUE SPACE.@ 03100000 ONM=16-469- BL=9 570 0001 OS IC-- 00327 0032?o 05 C-11,LFR PIC Xt9) VALUE INM 100 R11. 03110000 ONM-16-483 SL-9 571 0002 US 9C 00 323 003230 05 FILLER PIC X(34) VALUE SPACES. 037,20000 DNM=16-497 BL-9 57A 0011 US 34C 00 3 2 4 -- 003741 05 F I LL E R PIC X(43) VALUE 03130000 DNM--17-000- BL-9 59C -0045 - US 43C- @')n, 3 7 5 0 3? 5) INORTH CAROLINA DIVISION nF MARINE FISHERIES'. 03140000 00 326 003760 05 FILLER PIC X,(301 VALUE SPACES. 03150000 DNM:t17-OI4 BL-9 5C7 0088 US 30C 00 3 2 7 - - 0 1.) 3 2 71 05 FILLER PIC X(51 VALUE 'PAGE 03160000 ONM=17-028 8L=9 5E5 0118 DS 5C 003?8 0032PO 05 RI-PAGE-NO PIC 7 z z 9 . 03170000 DNM-17-042 BL=9 5EA 0123 US 4C 00379 003@90 05 F I LL F R PIC X(7) VtLUESPACES. 03180000 DNM=17-072 BL-9 5EF OIZ7 US TC 0319 0000 171 00331 003310 03 REPORTI-HFAD2. 03200000 DKM=17-086 SL-9 5F5 0134 US OCLI33 00332 60332) 05 FILLER PIC X(531 VALUE SPACES. 03210000 DNM=lT-115 BL-9 5F5 0134 US 53C -003330----------05 -PIC X(22) VALUE 03220000 01\M=17-129 BL-9 62A 0187 US 2ZC, - 0 11 3 4 Of)374) t uPO ATr ACTI VI TY REPORT 03@30000 05 P I LL ER PIC X(5)- VALUE IDATE 4 . 03 25 00 00 ONM=117-157 BL=9 66A 0251 - US 5c OnA 3 5 00 315) Or. FILLER PIC X(42) VALUE SPACES. 0324()Q0O [)NM=17-143 BL=9 640 0209 05 42C '0337 003370 05 RI-RUN-L)ATE PIC X(e). 03260000 DNM=17-171 BL=9 66F 0256 US 8c 24' 00 311 0033 Al 05 F 1 LL ER PIC X(3) VALUE SPACES. 03270000 DKM=17-192 BL-9 677 0264 US 3C 09339 - - 03210000- - 002 4 0 001400 03 REPORTI-COL-HEADI. 03290000 DNM=17-206 BL-9 67A 026T US OCLI33 01 r) 3 4 1 00341) 05 FILLER PIC X(OI) VALUE SPACES. 03300000 DNM-.17-239 BL-q 67A 0267 US Ic - 01)342--0034?1)-------05 -F I L L E R PIC X(2t) 03310000 ONM=17-253 BL-9 678 - 0268 US 2IC-- 00343 003430 VALUE IREC. SEQ. REP.'. 03320000 0,3 3 44 003440 05 FILLER PIC X(5) VALUE SPACES. 03330000 ONM=17-267 BL=9 6qO 0239 US 5C 0034 51 .-----05 PIC X(1.8) 03340000 DNM=17-281 - BL=9 695 - 0294 US 18C 00346 003460 VALUE ISPFCIES L I N F 03350000 00347 0014 70 05 r ILLER PIC X(8) VALUE SPACES. 03350000 DNM=17-295 BL=9 6A7 0312 US 8C 3@ O0348--O0348)-------O5--F PI C X(6) VALUE 8UPDATE1. 03370000 DNM=17-309- BL.9 6AF - 0320 US 6C - 3, 1 00349 0 014 90 f)5 FILLER PIC X(12) VALUE SPACES. 03380000 D@M=17-323 BL-9 6B5 0326 US 12C or) 3 50 003503 05 FILLER PIC X(5) VALUE IERRORI. 33390000 ONM=17-337 BL-? 6CI 033,3 US 5C 00 3 51 0 0 1, 5 11 - 05 F I L L C R PIC X(57)-- VALUE SPACES.------- 0140 00 00 ONM=17-351 - BL=9 6C6 0343 CS 57C 137 00 57. ()0 3' ?',) 0,34 L03 00 0035-4 00 @5 30 03 RFP0qTl-C,7,L-HEAD2. 03420000 D N?4:-l T- 365 BL=9 6FF 0400 US OCLI13 394-003549---------n5 - F I L L E R-- P I C x(Ol) -VALUE SPACES. 03430000-- ONM=17-398 - BL=9 6FF-- 0400 US 1C 00355 003550 05 F ILLER PIC X(21) 0344000.0 DNM=17-412 BL=9 700 0401 US 21C 03450000 00356 0039,61 VALUE 'TYPE NBR. NBR. L-00157 00357-')---------05- FILLFR------ PIC X(6) - VALUE SPACES. 03460000 DNM-17-426 BL-9 715 0422 US 6C 013 9) 8 001581) 05 F ILLEck PIC Xil7l VALUE 03470000 E)NM=17-440 BL-9 71B 042*8 US 17C 00359 001590 'CODE NBR.l. 03410000 GO 3 6 0 05 FILLER------- -PIC X(81 VALUE SPACES. 03490000 ONM-17-454 BL-9 72C 0445 DS.8C 00361 003610 05 FILLER PIC X(7) VALUE 'MESSAGE'. 03500000 DNM-17-468 BL=9 734 0453 r, S 7C 00362 003620 05 FILLER PIC X(11) VALUE SPACES. 03510000 ONM=17-482 bL=9 73B 0460 US 11C 00 3 63 --0031,30 05 -F IL LE R- PIC W) VALUE Im-ESSAGE'. 03520000 ONM=17-496 BL-9 746 0471 05 7C 00364 003643 05 FILLCR PIC X(10) VALUE SPACES. 03530000 ONM=18-000 BL=9 74D 0478 US IOC 00365 0013650 05 FILLFR PIC X(45) 03540000 DNM=18-014 BL=9 757 0488 US 45C VALUE -NOATA FROM@TRANSACT ION@ . 0 355 00 00 - - - --00366- "3660 - ----- 00367 ()03670* 03560000 RFPORT1-DETAIL-LINE. -028 00368 O036AO 03 03570000 DN.K=18 BL=9 784 0533 US OCLI33 10 N4100 10.43.12 APR 3,IS84 INT NAME BASE DISP RL01 DEFINITION LLJ 05-FILLER VALUE SPACES. 03580000 - ONIM-18-063--- BL-9 -784 --0533 US 2C 1 00370 003701 05 RPTI-REC-TYPE PIC Y. I. 03590000 DNM=18-077 BL-9 T86 0535 US IC 003711 003719 05 FILLER PIC X(4) VALUE SPACES. 03600000 ONM=18-100 BL=9 787 0536 US 4C l 4. 00372-0^3720---------05 --RPT1-SEQ-NBR PIC X (7). 03610000 DNM-18@114 BL-9 -788 0540 US 7C 00173 00373r, 05 FILLER PIC X(5) VALUE SPACES. 03620000 ONM-18-136 BL=9 792 054T US 5C ei 00374 003741 0 5 P, PT 1 - R E P-N 8 R PIC X(2). 03630000 DNM=18-150 BL-9 797 0592 US 2C v,,,---n037`5---- 001750 ----05 F YLLER PIC X(S) VALUE SPACES. 03640000- ONM=18-172 BL=9 799 -0554 US 5C @,i 05 RPT1-SPECIES-CODE PIC X(10). 03650000 DNM=18-186 BL=9 79E 0559 US IOC i 00376 001761.) 00377 0 017 7() 05 RPTI-DASH PIC X VALUE SPACES. 03660000 D N M= 18- 213 BL-9 7AS 0569 US I C 05 -RPTI-SPECIES-STATUS PIC X. 036TOOOO- DNM=il8-232 BL@9 7A9 0570 US IC 00379 003790 05 FILLER PIC X(3) VALUE SPACES. 03690000 DNM=18-261 BL=9 TAA 0571 US 3C 00380 ' 003`101 05 RPT1-LINE-NBR PIC X(3). 03690000 DNM-18-275 BL-9 ?AD 0574 US 3C 3 P 1--- 003`113---- 05--- FILLER -----PIC X(S) SPACES. 03700000 - DNM=18-298 BL-9 -7BO, 0577 US 5C 1 13 VALUE 00382 003,920 05 RPTI-MESSAGE PIC X(14) 03710000 DNM=18-312 BL=9 7135 0582 US 14C 00383 003830 05 FILLER PIC X(5) VALUE SPACES. 03720000 ONM=18-337 BL=9 7C3 0596 US 5C 05-- RPTI-ERRr)R-------- PIC X(tq). 03730000 DNM=18-351 BL-9 7C8 0601 US 19C io, 17 -371 00395 003850 05 F ILLER PIC X(Olf VALUE SPACES. 03740000 ONM=18 BL=9 708 0620 US Ic 00 749 6 '003360 05 RPT1-DATA PIC X(451. 03750000 DNM=18-385 BL=g TOC 0621 US 45C 00397-- 03760000 0666 US 0 00-183 ool,3,90 03 REPORTI-TOTAL-LINEI. 03770000 DNM=18-404 BL=9 809 CL136 001 pr? 003q9o 05 F ILLFR- PIC Xti) VALUE SPACES. 03780000 DNM=18-436 BL=9 809 0666 -OS 1C -00190- 003900 --- 05- RPT-N-BR-BEFORE-UPD--PIC Z 777 9Z Z9 VALUE ZERO. 03796000 DNM=18-450 BL=9 -BOA 0667 US 9C 00391 003910 05 F ILLER PIC X(35) VALUE 03800000 DNM=18-496 BL=9 813 0676 US 35C 00392 003921 MASTER FILE RECORDS 6EFCPE UPDATE'. 03810000 311 PIC X(91) VALUE SPACES.-------- 038?0000-- DNM-19-000--BL-9 -636 -0711- US 91C 00394 00394) 03 REPORTI-TOTAL-LINE2. 03830000 DNM=19-014 BL=9 891 0802 US OCLI35 00395 003950 05 F ILLER PIC Xt4) VALUE SPACES. 03840000 DNM=19-046 BL=9 891 OBOZ US 4C, 05 -- RPT-IIBR-RECS-ADDED PIC 77,ZZ9 VALUE ZERO. 03850000 DNM-19-060 -BL=9 895 0806 US 6C 141 DO 39 7 003970 05 F ILLER PIC X ( 30 1 VALUE 03860000 ONM-19-099 BL=9 898 0812 US 30C 10 00398 003981 RECORDS ADDED 03870000 00 3 0 9 0 03 9 90 FILLER ---- -PIC--XI95) VALUE SPACES. 03580000 - ONM=19-113--BL-9 -889 0842 US 95C 01400 004000 03 RE P OR T I - T G T A L - L I N E 3 . 03890009 DNM=19-127 BL=9 918 0937 US OCLI35 00401 004010 05 FILLER PIC X(4) VALUE SPACES. 03C)OO000 DNM=19-162 BL-9 918 0937 US 4 C AI 00 4 0 2 0 04 () ?0 0 5 R PT - N B R - R F C S- C H G PIC ZZ#719 VALUE ZERO. 03910000-- DNM-19-176 -BL-9 91C 0941 US 6 C , 4 00403 004030 05 F ILLER PIC X(30) VALUE 03920000 ONM=19-216 BL-9 922 0947 US 30C 130@ 00404 004040 RECOkDS CHANGED 03930000 00 40 5 0040 931 05 FILLER -----PIC-X(95) VALUE SPACES. 63940000 ONM=19-230 -- 8L=9 940 0977 05 95C -TnTAL-LINE4. -244 99F 1072 US OCL135 00406 0040.60 03 REPOP TI 03950000 DhM=19 BL-9 00407 0 0 4,r) 7.1 05 FILLER PIC X(4) VALUE SPACES. 03960000 ONM=19-276 BL=9 99F 1072 US 4C 05-RPT-NBR-R`ECS-OEL-----PIC ZZ,ZZ`9 VALUE ZERO. 03910000 ONM-19--290 -BL-9 9A3 - 1076 US 6C 00409 004090 05 FILLER PIC X(301 VALUE 03930000 DNM-19-327 BL-9 9A9 1082 US 30C -3 A, 4TI 00410 004100 RECORDS DELETED 03990000 0041 1 -- 004110---- 05-- FILLER ----PIC X(95)-VALUE SPACES. 04000000 DNM-19-341-- BL=9 9C7 1112 US 95C 004120 03 35 00412 PCPORTI-TOTAL-L INE5 . 04011000 DNM=119-355 BL-9 AZ6 1207 US OCL1 ,,51 00413 004130 05 FILLER PIC X(4) VALUE SPACES. 04020000 DNM=19-387 BL-9 A26 1207 US 4C RPT-RFJ'--CT-TOT-- --PIC ZZtZ79 VALUE ZERO. 04030000 - DNIM-19-401 -BL-9 A2A 1211 US 6C- 09415 004150 05 FILLER PIC X ( 30 ) VALUE 04040000 DNM=L9-439 BL-9 A30 1217 US 30C t 00416 0041,60 TOTAL TRANSACTIONS REJECTED 04050000 7 -004170 ------05 --FILLER --- --- _-- -PIC -X(95) VALUE SPACES. 04060000 - ONM=19-453 -- BL-9 A4E 1247 US 95C 0041,9 004180 03 PEPORTI-TnTAL-LINE6. 04070000 nNM=19-467 BL-9 A AD 1342 US OCL136 00419 '1041`10 05 FILLER PIC X(I) VALUE SPACES. 04030000 ONM=20-000 BL-9 AAD 1342 US 1C 11@N 00420___004?OC) 05 RPT-NBR-AFTER-UPD--- PIC Z*ZZZ#ZZ9 VALUE ZERO. 04090000 DNM-20-014 BL=9 AAE 1343 US 9C 004210 05 FILLER PIC X(35) VALUE 04100000 ON14-20-059 BL-9 ABI 1352 US 35C 00422 004220 MASTER FILE RECORDS AFTER UPDATE 04110000 i L SP RL01 DEFINI__@ 11 NMIOO 10.43.12 APR 3,1984 INT NAME BASE 01 TION ___00423----004230 ----05 ----PIC Y(91) VALUE SPACESii---- 04120000--DNM-20-073--BL-9----ADA---t-387--DS-91C____ 113 -71 17 74 2 t 27 In 41 44 12 N%1 100 10.43.12 APR 3,1984 INT NAME BASE OtSP Rt01 DEFINITION ,____O0425---OO42 50*- -04140000 1 00476 004?60* FRRnR REPORT DFSCRIPTION 04150000 00427 0 -9 4 7 71 * 04160000 0114 2,1 1110) 4 180 * 04170000 co4?9 004@<)O 01 REPORT-tINFS?. 041110000 ONM-20-087 DL:9 838 0001 DS OCL797 00430 004@00 03 RFPr)RT?-HEAOt. 04190000 ON14=20-116 BL q 838 0001 DS OCLI33 7 04 00000 ONM=20-145 5L 9 B38 0001 DS IC 00432 004121 rR E;0 RZ-. 04 2 10000 ONM=20-159 OL 9 839 0002 OS 9C 00411 004,310 05- F I LL F P. PIC -X ----VALUE SPAC 05 FILL PIC X(9) VALUE I NNI 1 2 00433 0043 30 Or, FILLER PIC X(24) VALUE SPACES. 04220000 ON.M=20-173 BL-9 842 0011 DS 24C -004340 -05--f X(431 VALUE 04230000 DINM=20-IS7 UL-9 85A 0035 CS 43C 00435 004350 'NORTH CAROLINA DIVISION OF PARINE FISHERIESs. 04240000 004315 n n 4-4 61 05 FILLER PIr X(401 VALUE SPACES. 04250000 ONM=20-201 BL-q 1385 0076 DS 40C ;,___.004"l 7-- 0-043 70 ------05 FILLER---- PIC X(5) VALUE 'PAGE 04260100 DNM=20-215 BL@9 BAD 0118 DS 5C n1l 411 004380 05 R2-PAGI-NO PIC zzzq. 04270000 ONM.=20-229 BL=9 BB2 0123 DS 4C 0043) OO1t3qO 05 FILLER PIC X(7) VALUE SPACES. 04240000 DNM=20-259 BL-9 EB6 0127 DS 7 C -- 04290000- 00441 004410 03 REPORT2-HFAD2. 04310000 ONM=20-273 BL:9 OBD 0134 DS OCLI33 00442 00 44 2 @') 05 FILLER PIC X(43) VALUE SPACES. 043i 0000 DNM=20-299 Bt 9 BOD Ot34 DS 43C 00443 .___05 FILLER -313 ;T. OfW- 30 X(2S)-VALUF 04320000 - DNM=20 BL-9 BE8 0177 OS 251 1 , 00444 0,')4440 'EDYT ERROR, WARNING REPORT'. 04330000 0,1445 004-451 05 F I LL ER PIC X (49) VALUE SPACES. 04340000 DNM=20-327 BL=9 COI 0202 DS 49C DS 5C 00446---004460- -PIC X(5) - VALUE 'DATE 04350000 ONM=20-341--BL-9 C32 12@@ 00447 004470 05 R2-qUN-DATE PIC X(8). 04360000 DNM=20-S55 BL-9 C3T 0256 DS 8C 00448 ('044 81 05 1= I LL ER PIC X(3) VALUE SPACES. 04370000 W4=20-379 BL-9 C3F 0264 DS .3C 34 OOff4G,---0O44'?O*---- 04 -18 00 00 0.) 4 5 0 0045 0') 03 REPORT2-COL-HEADI. 04390000 D NMI=20- 393 BL=Q C42 0267 DS. OCLI32 0045 1 004510 05 FILLER PIC X1101 VALUE SPACES. 04400DOO DNM=20-423 BL-9 C42 0267 DS IOC 27 29 05 FILLER-*'--- PIC X'12)- 00492 --04410000 ON14=20-437- BL=9 C4d 0277 OS 12C 00453 004530 VALUF: 'REC SEQ.1. 04420000 00454 004540 05 FILLPR PIC X(5) VALUE SPACES. 04430000 DNM=20-451 BL=9 C58 0289 DS 5C 00455-----004550---05-- FILLER------ ----PIC X(16) 04440000 ONM=20-465 -- BL=9 C5D 0294 DS 16C 00456 004560 VALUE 'REP. SPECTFS". 04450000 004t5 7 0045 ?') 05 F ILLER PIC X(7) VALUE SPACES. 04460000 DN'M=20-479 BL=9 C6D 0310 DS 7C 's C 0045 8 -')n49 80 F ILLER P I C X(13) --04470000 DNM-20-493 BL-9 -C'14 0317 - OS 13 35. 00459 004590 VALUE 'LINE w. 0400000 @il 00460 004601 05 FILLER PIC X114) VALUE SPACES. 04490000 ON'11=21-000 F3L-9 r8l 0330 DS 14C @3, R 4 @ 0 ()01)00 00461 0') It 6 10 0 5 -r-ILLER X(6) VALUE oFR OR 45 DNM-11-014 BL-9 r8F 0344 05 6C 004620 05 FILLER DINA - 0046Z PIC X(4q) VALUE SPACES. 04510000 21-028 BL=9 C95 0350 U S 49C j 00463 0 r) 46 3 0 vi` 0452-0100 04530000. DNM:21-042 13L=9 CC6 0399 DS O@LI33 ')')464 004640-----)3-RFPORT2-COL-H;:AD2@------ 00465 0046 50 05 FILLER PIC XfIO) VALUE SPACES. 04540000 ONM 21-075 BL-9 CC6 0399 DS IOC 4 00466 004660 05 FILLER PIC X(121 04550000 DNtl-21-089 BL=9 COO 0409 DS 12C 751 00 4 6 7 0046 70 -- VALUE -1 TYPE -----NBR. 04540000 00468 00, 6 SO 05 FILLER P I C X(5) VALUE SPACES. 04570000 ONM-2t-103 BL=9 CDC 0421 CS 5C 00469 0046 90 05 F ILLER PIC X(161 045800CO DNM=2 I- I 17 BL=9 CE! 0426 DS 16C ---VALUE- 'NBR4--CODE ---- -- 04590000- 00471 001710 05 FILLER PIC X(7) VALUE SPACES. 04600000 DNM=21-131 BL=9 CF1 0442 DS 7 C, 4E 00472 004720 05 F ILLER PIC X(13) 04610000 DNM=21- 145. BL-9 CFO 0449 DS 13C 473 ----004730 -- -VALUE 'NSR. 04620100 00474 004740 05 F ILLER PIC X(14) VALUE SPACES. 04610000 ONM=21-159 BL=9 005 0462 DS 14C 00475 004750 05 FILLER PIC X(8) VALUE 'MESSAGF'. 04640000 DNM=21-173 8L=9 013 0476 DS SC F !LLEP----- PIC X(48) VALUE SPACES. --04650000 ON14=21-187 BL-9 DIB 0484 DS 48C 1@2 00477 004770* 3 04660000 0 -73 004780 REPORT2-DETAIL-LINE. -201 -9 0/ 04670000 DNM 2 1 BL D413 0532 DS OCLI33 13 NMIOO 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION _004-79-004790 ILL ER I C-Xf I L) VALUF_SPACES. 04680000-- ON M=21-236-- OL-9--04B -0532 --OS JIC 004FtO 004903 05 RPT2-REC-TYPE PIC X. 04690000 DNI4=21-250 BL=9 D56 0543 DS 1C 0 0 419 1 004810 05 FILLER PIC X(4) VALUE SPACES. 04700000 ON@=21-273 BL-9 057 0544 DS 4C ---P PT 2 P I C X (7).;-- 047100 00 DNM=21@287 BL-9 05B 0548 DS 7C 004-2-0048?)-------05 - SEQ-NSR 004@3 004830 05 FILLER PIC X(5) VALUE SPACES. 04720000 DNM=21-309 BL-9 D62 0555 CS 5C .140 REP-NOR PIC X 2). 04730000 DNM=21-323 BL=9 067 0560 DS 2C 00484 0041 05 RPT2 - 00 4 R 5 ----- 1304950 -- F ILLER PIC Y( 5) VALUE SPACES. 04740000 DNM=21-348- BL-9 D69 0562 DS 5C 00416 004S60 05 R,"T?-SPECIES-CODE P I C x ( 10) 04750000 DKM=21-362 BL=9 06E 0567 DS 10C 00487 004870 05 RPT2-DIASH PIC X VALUE SPACE. 047&0000 DNM=21-392 BL=9 D78 0577 DS IC 0041131 -------05 RPT2-SPECIES-STATUS PIC X. ----04770000 DKM@21-411 OL-9 D79 0578 DS IC 004P9 004P 9() 05 FILLER PIC X(3) VALUE SPACES. 04780000 DNM=21-440 BL=9 07A 0579 DS 3C 12' 0049() 00490') 05 R PT ?-L I N E- NSR PIC x(l). 04790000 DNM=21-454 BL=9 D7D 0582 DS 3C 'X(7) VALUE SPACES. 04,900000 - ONM=21-480 BL-9 DSO 0595 DS 7C 00402 004Q21 05 PPT7-ERR-MSG PIC X(45). 04810000 DNM=22-000 BL=9 087 0592 DS 45C -025 00493 0041)30 05 FILLER PIC X(28) VALUE SPACES. 04820000 ONM=22 BL-9 094 0637 DS 28C 04830000-- 0041)5 004950. 03 RPT2-DETAIL-LINE2. 04840000 DNM=22-039 BL-9 000 0665 DS OCLI33 .21 i 00496 004960 05 FILLER PIC X(60) VALUE SPACES. 04950000 ONM=22-072 BL-9 DDO 0665 DS 60C 0049 7 0040 70 t INE 2-ERR-MSG P I C X(45). ------ 04860000 DNM-22-086 BL-9 EOC 0725 DS 45C 211 00498 004180 05 FILLER PIC X(28) VALUE SPACES. 04970300 DNM=22-112 BL=9 E39 0770 DS 28C 4@ 21 i3 171 12@ .o 0 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION _OO"O__OO5OOO*_* *_*_ *@ * * -*-* --- - - - -- - -- - -- -- -- -048qO600 00501 005010* STRUC-FRR RPT DESCRIPTION 04900000 Or 04910000 005102 )5r) 2 049?00,00 04930000 L8 00 -10 4 005940 11. RFPORT-LINES3. I)NM=22-126 UL-9 E58 0001 OS OC 00 00505 005050 03 RFPORTI-H@-AOI. 04940000 DNM=22-152 BL=9 E58 0001 DS OCL133 DNIA=22-181 BL- 9 E58 0001 US IC 001,061---- --- 05 FILLrlt- PIC -X-- VALUE SPACE. 04950000 00907 009070 05 FILLER PIC X(91 VALUE *NM 100 R3*. 04960000 ONM=22-195 BL=9 E59 0002 US 9C 0')908 oo-,oso 05 FILLER PIC X(24) VALUE SPACES. 04970000 DNM-22-209 BL=9 E62 0011 DS 24C 00 5.)9 0 0 50 91 - ------ - 05 F 1 LL ER---- PIC )((431 VALUE 04990000 DhM=22-223 BL=9 E7A 0035 03 43C --- 00510 005tOO 'NORTH CAROLINA DIVISION OF MARINE FISHERIES'. 04990000 6o5ii 005110 05 FILLER PIC X(401 VALUE SPACES. 05000000 ONM=22-237 BL-9 EA5 0078 US 40C 00512 05010000 D?YM-22-251-- BL-9 ECD OtIB DS 5C )n5l 20 -----05 FILLcR------ -------PIC -X ( 5.) VALUE 'PAGE -265 14' 0,9513 005130 '05 R3-PAGE-NO PIC 7ZZ9. 05020000 DNM=22 BL@9 EDZ 0123 US 4C 1.! 00514 005140 05 FILLEfR PIC X(7j VALUE SPACES. 05030000 ONM=22-292 BL=9 ED6 0127 CS 7C 05,040000 ,@--00515 1! 7' W)516 005161 o3 REPnRT3-HFAD2. 05050000 ONM=22-306 BL:9 EDO 0134 DS OCL_33 00517 005170 05 FILLER PIC X(38) VALUE SPACES. 05060000 DNM=22-332 BL 9 EDO 0134 DS 38C FILLER----- - PIC X(351 VALUE 05070000 ONPI-22-346 BL-9 F03 - Ot72 -OS 35C E 5 19 00 ,1 ql.) IMPSTER FILE STRUCTURAL _RROR R[PORTO. 05080000 VALLIE SPACES. 05090000 OWA=22-360 6L=9 F26 0207 21 00520 005700 05 FILLER PIC X(44) US 414C 01)'l21---OO521D------05-FfLLFR PIC X(9) VALUE #DATE 05100000 DNM=22-374 9L=9 F52 0251 D S 5C - 00522 005220 05 R3-RUN-DATE PIC X(B). 05110000 DNM=22-388 BL-9 F57 0256 DS 8C 12.3. (Y) 523 00523-1 05 FILLER PIC X(3) VALUE SPACES. 05120000 DNM=22-409 BL-9 FSF C264 DS 3C 05130000 00525 005250 03 REPORT3-COL iz.; -HEADI. 05140000 ONM=22-423 BL=9 F621 0267 DS OCLI33 rY,) 5 16 009760 05 FILLER PIC X(05) VALUE SPACES. 05150000 ONM-_-22@453 BL=9 F62 0267 1' S S C 05160000 DNM=22-467 BL=q F67 0272 OS 22C 11.7 00 5? 7 005?70---- 05-- FILLER-'----- PIC X(221 00528 0()5239 VALUE 'SEQUENCE REPLICATE 05170000 00529 001)?90 05 FILLER PIC X(19) 05180000 DNM=22-481 BL-9. F7D 0244 DS 19C 00 5 3 0 - -'SPECIES--- LINE',--- 00531 001,310 05 FILLER PIC X(7) VALUE SPACES. 05200000 ON14=22-495 BL-9 F90 0313 GS 7C Or) 532 005320 05 FILLER PIC X(37) 05210000 DNM=23-000 BL=9 F97 0320 DS 37C -00533--005330 VALUE- 'MISSING---MISSING MISSING DUP 052? 0000 00534 005340 05 FILLER PIC X(23) 05230000 DNM-23-014 PL.q FBC 0357 DS 23C 00 53 S 00 53 50 V AL UE NCN SEO NnN SEO 0 5 2 4 (JO 0 0 00536---00536()------05 - FILLER ------ X(20) 05250000 - DNM-23-028---6L=9 F03 0350 - DS 20C L", 00517 005370 VALUE 'MISSING 05260000 00538 00 5)3 RO 05270000 00 5 39-00 51 qO----03-REPORT 3-CnL -HE An2.;-- 05280000 ONM=23-042 -BL=9 - FE7 0400 DS OCL134 00540 005400 0 5 F I L L E R PIC X(05) VALUE SPACES. 05290000 ONM=23-072 BL=9 FE7 0400 DS SC 00541 009410 05 FILLER PIC X(221 05300000 ONM-23-086 BL=9 FEC 0405 DS 22C 0054? -- 005420 -- VALUE NIJMBFR--- NUMBER 05310000 00543 005433 05 FILLER PIC X(?I) 053?0000 DKM=23-106 BL=10 002 0427 DS 21C 00544 005440 VALIJr- CODE NUMBER '. 05330000 .-i -00545-005459--- 05- FILLER--- PIC X(5) VALUE SPACES. 0 534 0000 -- ONM-23-114---BL-10 OtT .-0448 DS 5C -11 00546 005460 05 FILLER PIC X(40) 05350000 DNM=23-128 BL=10 01C 0453 DS 40C @8! 00547 005470 VALUE ENVTR REPLIC SPECIES TAG 05360000 00548-- 00548') ------05 F I L L F R PIC X(27) 05370000 ONM-23-142 BL=10 044- 0493 DS 27 0054c) 0'0 54 C'O VALUE TAG INDIV INDIV 05380000 00 5c; 0 0 1) Sll 05 F ILLER P I C X(14) 05390000 ONM=23-156 BL=10 05F 0520 DS 14" -f)f)591- 0055 --VALUE--'--------. 05400000 00552 005520* 05410000 05420000 ONM=23-170 BL-10 06D 0534 DS OCL134 00553 0055 30 03 REPORT 3-COL-HE AD3. 15 NM100 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION --O')55tt---OO5540--------O5 --FILLER PIC -X153) VALUE SPACES. 05430000- ONM-23-200-- BL=10--060 - 0534 -DS 53C 00555 005550 05 FILLER PIC X(40) 05440000 DNM=23-214 BL=10 OA2 0587 DS 40C z f)O 556 009560 VALUE DATA DATA DATA RECAPT 05450000 0 0 5 5 7 " 5 9 70 -05 F ILI_7R PIC X(27) 05460000 ONM-23-228---$L=10-OCA--0627---DS 27C DO 55 5 0 0055,8D VALUE IRECAPT RECORD RECORD D54TOO00 00 5 5c) 0055qo 05 FILLER PIC X(14) VALUE SPACES. 05490000 DNM-23-242 BL-10 OE5 0654 DS 14C 7 (109,SO,)*-- --- - -- - ---- --- --- - -- --- -- - -, --- --- 05490000 e; On 561 005610 01 RFPORT3-DETAIL-LINE. 055000010 D&M=23-256 BL-10 OF3 0668 DS (JCL133 On562 009,623 . 05 FILLER PIC X(05) VALUE SPACES. 055t00OO ONM=23-288- BL=10 OF3 0668 DS 5C 00 561 0096,39 --05 - R P T -1 - S E Q - N R R PIC X(7). 05520000 01\M=23-302 BL-10 OF8 0673 DS 7 C 00564 005640 05 FILLER PIC X(6) VALUE SPACES. 05530000 ONM=23-324 BL=10 OFF 0680 OS @C I ). 00565 005650 05 R PT 3 - R E P - NJ B R PIC X 2 05540000 ONM=23-338 BL-10 t 05 0686 OS 2C 00 566 00 5660 05 F ILL F R PIC-X(6) VALUE SPACES. 05550000 DNM-23-363 BL-10 107 0688 DS 6CC 00567 005670 05 RPT3-SPECIFS-CODE PIC X(10). 05,560000 DKM=23-377 BL=10 1.00 0694 DS tO 00568 005689 n 5 RPT3-r)ASH PIC X VALUE SPACE. 05570000 ONM=23-407 BL-10 111 0704 DS IC 05 5 9 00 00 - ONM=23-429 -BL=10 118 - 0705 DS IC 00 569 05--RPT3-SPECIES-STATUS PIC X. 00570 009703 05 FILLER PIC X(4) VALUE SPACES. 05590000 ONM=23-461 OL-10 119 0706 DS 4C 74 00571 005710 05 RPT3-LINE-NBR PIC X(3). 05600000 ONM=23-475 BL=10 110 0710 OS 3 C 00 5 7 0 5 7 21 05 FILLFR- N_ IC X(10) VALUE-SPACES. 056tOOOO- ONM-24-000 BL-10 120 0713 DS IOC 00573 f,)0 57 30 05 HISSING-E V R PIC X. 05620000 DNM=24-014 BL-10 1 2A 0723 DS IC 00574 005740 05 F ILLFR PIC X(09) VALUE SPACES. 05630300 DNM=24-040 BL=10 12B 0724 DS 9C 00579 005750 MISSING-REPLIC PIC X. 05640000 DK'M=24-054 BL-10 134- 0733 DS iC A 00576 005760 05 FILLER PIC X(09) VALUE SPACES. 05650000 ONM=24-078 BL-10 135 0734 DS 9C 3t 00577 005770 05 MISSING-SPECIES PIC X. 05660000 ONM=24-092 BL=10 13E 0743 DS IC -------PIC X(09)-VALUE SPACES. 05670000 - DNM-24-117 BL=10 13F 0744 DS 9C 00579 0 05 7 90 05 DUP-TAG-RECAPT PIC X. 05690000 ONM=24-131 BL=10 148 0753 DS IC 00580 009100 05 FILLER PIC X(09) VALUE SPACES- 05690000 0,NM=24-155 BL-10 149 0754 DS 9C NO'!-SEQ-TAG-RECAPT-.-PIC X. ONM=24-169 BL=10 152 --0763- DS IC 17 00';q2 009820 09 FILLER PIC X(09) VALUE SPACES. 05TtOO00 DNM=24-200 BL-10 153 0764 DS 9C -SEQ-INDIV-REC PIC X. -214 00583 005830 05 NON 05720000 DNM=24 BL=10 15C 07'3 DS IC L._--no 584 ---- 005940 -----05- - F I L L E R - - PIC X(q) VALUE SPACES. 05730000- DNM=24-241 BL=10 15D 0774 DS 9C - I N 0 1 V - R EC PIC X. DNM=24-255 BL=10 166 OT83 DS I C 00595 005850 05 MISSING 05740000 005R6 005860 05 FILLER PIC X(17) VALUE SPACES- 05750000 DKM=24-285 BL=10 167 0784 0 17C 13371 a i2 63 z to z2; 7@ W100 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI CEFINITION -0058RO-01 --- TPANS-RFC-FDR PIC---XI16) VALUE' --TRANS REC HERE$.-- 05770000, --DNM-Z4-299- BL-10 178---0001---DS 16C----- 005890* t, * * * * * * * * * * * * * 00599 05780000 010500 n059,11* TRANIS@CTTON RECORD LaynUT 05790000 3 Of) 5c) 1 -005910* 05800000----- - ------ 0.) 502 005920* 05810000 00 593 **0000 io 7@- 00594 -- NM10OREC- -- --- In! 5 9 1) PGDC Ici ()013C)6 000 --of)59T--000')5O -01 DNM=24-322---BL-1O 188---0001 --0S OCLI28--- 00598 0 0 00 6 (') 03 ACTION-CODE PIC X. ONM=24-343 BL-10 188 0001 US IC 005Q9 000170 89 FND-OF-TRAPJS VALUE HIGH-VALUES- TR-ADr' VALUE #A$.- M601 0000910 81 TR-CHANGE VALUF 'C'. 00 60 2 0001 00 88 TR-DELETE VALUE 'D'. 00603 0001 10 88 -VALID-CHANGE-CODE--- VALUE "Cl- 'D. 00604 000120 03 RECORD-TYPE PIC X. DNM=24-481 BL-10 189 0002 US 1C z 00605 010133 98 ENVIR-RECORn V AL U F 119. 0 'r -- - VAL UP 60-1, 0001 40 81 RFPLI C-P. PCOR 0 ijrje,1)7 0001 r1r) 8 S SPECIES-RECOM) VAL UE 131. 0 0 r@ () 8 n I f") 813 lf!DTV-J FC9RD VALUE 141. 1)060 9 I)OI)l 70 ;3 8 All',JUL US-RECORD VALUE -5-- 006 10 000!80 Sq DUP-TNDIV-REr0RD6 VALUE 161. 00611 0001 C)o -98 OIJP-INr)IV-RECORD7 VALUE v7l. 0061 OOn2 89 TAG-REC A PTURE-RECOR D VALUE s 91 00677A 000210 03 TP-CONTROL. ONM-25-Zlq BL-10 18A 0003 US OCL23 00614 000220 05 RECORD-KEY. DNM=25-245 BL-10 16A 0003 US OCL --- 07 SEQUENCE-NUMBER. 0NM-Z5-271--BL=1O 18A 0003 --US OCL7 00 616 000?40 09 sPo_YR PIC XX. ONM-25-302 BL=10 18A 0003 DS 2C 0016t7 0 1) 022 5 r.) 09 SEO-FILLER PIC X15). DNPI,=25-321 BL-10 18C 0005 US 5C l),0619 000@70 07 SPEC I E S-GR OUP, ONM=25-373 BL-10 193 0012 DS OCL11 -41 271, RFPLICATF-NUMBER-- PIC X1 2) Dt.,,m=25-344--8L=IO 191 0010 US 2C 1--; 00620 0007po 09 SPECIES-CODE PIC X110). ONM@25-402 BL-10 193 0012 US 10C 0022 US IC SPECIES-STATUS PIC X. ONM=25-427 BL-10 19D 1,-) 6 7 000301) 07 LINE-NITABER PIC X1 3) . DNM=25-454 BL-10 19E 0023 US 3C 00623 000110 05 RECORD-KEY-R REDEFINES RECfJRr,-KEY. DNM=25-475 BL=10 ISA 0003 OS OCL23 OXM=26-000 BL=10 18A 0003 US 20C 00 6?/t 07 SEQ-14OP-THRU-SPFC-GRP PIC X120). 00625 009330 07 rILLEP PIC X(3). DNM=26-034 BL=10 19E 0023 DS ?C - TR-OATA 0') 1', 2 6 0 -1) 3 40 03 PIC X(103?. ONw,=26-048 51.= 10 IAL 0026 US 103C ATA REDEFINES TP-f)ATA. ONM=26-065 BL-10 I.Al 0026 US OCL103- 011627 0 0 ()1 NV IR-STA-D 00628 000360 05 PROGRAM-TYPE PIC xf3l. DNIJ.=26-098 BL=10 lAl 0026 US 3C OR6?9 00037il 05 FNVIR-DATE PIC X(6). DNM=26-120 BL=10 IA4 OOZ9 OS 6C 00630 0001 SO 05 @-NVIR-STAT-NUMRFR PIC X(5). DNM=26-140 - BL-10 IAA 0035 DS 5C 05 ENVIR-START ONv.=26- 167 BL-10 1AF 0040 1) S OC oo 6-A 1 000,93 -LOC - L 10@ 00(,"@2 00 04 03 07 ENVIR-LATITUTE Pic x(5). ONM=26-198 BL=10 1AF 0040 DS 5C -222 BL=10 IB4 - ENVIR-LONGITUDE PIC X(5). ONM=26 0045 CS 5C C 0040 DS 10 121 ,-1 00614 OnO420 05 FNVIR-START-LOC-R REDEFINES ENVIR-START-LOC ONM-26-250 8L-10 lAF I PIC 9(101. 00635 000430 i4@1 4 4,,; 00636 --- 000440---05 ENVrR-CRIG. DtM=26-280 BL=10 189 0090 US OCL 16 i)a ; a 8-- 00617 0001,50 07 ENVIR-14UMER-GRIO Pic: X(2). DN?A=26- 306 BL=10 IB9 0350 OS 2C D ONM=26-332 BL=10 IBB 0052 US 2C 00633 000460 07 EAIVIR-ALPHA-GRI. PIC X(2). -Of) 6Aq -f)()D/- 70 05-- ENV I R-QUA D PIC X. ONM=26-358 BL-10 IBD 0054 US IC 00640 000480 05 @NVIR-END-TIIME PIC X(4). DKM=26-381 BL=10 IBE 0055 DS 4C, 0059 US 4C k,%; 00641 000490 (15 ENVIR-DURATI(IN-OR-AREA PIC X(4). DNM=26-400 BL@10 lC2 77 N4 110 10.4 3.12 APR 3, 11;84 INT NAME BASE DISP RLOI DEFINITION ------ Of)642---0013500---'05--ENVIR-GEAR-TYPE PIC X1 3) ()Nmz@26-440 BL- 10 -IC6- 0063---DS- 3C_ -GEAR-PARMI PIC X(4). DNM=26-468 BL=10 IC9 0066 US 4C 21 00643 000510 05 ENVIR D5 -GEAR-PARM2 PIC X(4). ONM=27-000 BL=10 ICD 0070 US 4C 00644 oor)@; 70 FNVIR 05 30 05 ENVTR-GFAR-PAPf-!3--- PIC X(4). ONM=27-029 BL=10 101 0074 -DS 4C--_ 00646 000543 05 E@IV I R-R IG PIC X. DNM=27-053 BL=10 ID5 0078 US IC 6.1 00 6 47 000550 05 ENV I R-TY P E - 0F- TOW PIC X. DNM=27-077 9L=10 11.) 6 0079 DS I C 7 0 DNM=27-104 BL=10 107 0080 US 2 C 003649- 05 -ENVIR-FnTTr)M--TYPE--- PIC X(2). 0 0 6 4 0 000570 05 FNVIR-F,0TTnM-PRCFlLE PIC X. DNM=27-134 BL=10 ID9 0082 DS 1 C 00690 0005SO 05 ENVIR-nFPTH P!C X(3). DNM=27-167 BL=10 IDA 0083 US 3C_ 00 6 5 1- 0 0 09 C@l - 05 ENVIR-AIR-TEMP PIC X(3). ONM=27-191 BL-10 IDD C086 US 3C 00652 000600 05 ENVIR-SURFACE-TEMP PIC X(3). DNM=27-2?,5 BL=10 lEO 0089 US 3C 00653 000,610 05 E N V I R - B 0 T T 0 M - T E M P PIC X(3). DNM=27-246 BL=10 IE3 0092 US X 00654 -0 ()nf) 20 05 ENVIR-SURFArE-SALIN PIC X(3).--- DKM=27-276 BL-10 IE6 0095 US 3Ct.-_ 01655 000630 05 ENVIR-BOTTOM@SALIN PIC X(3) DKM=27-3C5 BL=10 IE9 0099 US 3C 00656 01064r) 05 ENVIP:-CONDUCT PIC 'K(4). 1) N,'.l = 2 7-- 3 3 4 BL=10 1EC 010i US 4C @ul 0.) 65 7 00 f, 6 5 0 0 5 ENVIR-SUFACF-00----- PIC X(3). f)NM=27-362 BL=10 IFO 0105 05 3C 1:71 a'06@8 000660 05 ENVIR-POTTOM-00 PIC X(31 DNM=27-390 PL-10 IF3 0108 US 3C 006;9 000670 05 ENVIR-PH PIC X(2). DNM-27-418 BL=10 IF6 0111 US 2C US IC 00 6h@ 0 0006 80 05 ENVIR-WEATHER PIC X. DNM=27-439 BL=10 IFS 0113 Of) 66 1 0006 05 cNVI R-8 AR Ov[ TE R P!C X(4). DNM=27-462 BL=10 IF9 0114 US 4C 00 66 2 (1001700 05 EN V I R-W I ND- D I R FC T PIC x . ONM-2S-000 BL=10 IFD 0118 US zz C16f,3 CY) 07 TO--- 05 FINVIP-WIND-SPEE0 PIC X(2). - -- ---- DNPI=29-030 13L-10 IFE 0119 US 2C 1.3 00664 000720 05 ENVIR-CURRENT-DIRECT PIC X. ONM=28-059 BIL-10 200 0121 US IC 00665 01)()730 05 FNVIR-CURRFNT-SPF.ED PIC X(21. ONM=28-092 BL=10 201 0122 US 2C @_.00666- ---000740-- 05 rNVIR-WATFP-LEVC-L-- PIC X DKM@--28-124 BL-10 203 0124 US IC '00667 00n750 05 ENVIR-StATr-ALTER PIC X. DNM=28-t5l* BL=10 204 0125 US IC 05 E 0 Niv-2 8- 18 1 BL=10 205 0126 US 1C 271 0066@ 000760 NVIR-ALtOWED-ACT PIC X. ON M 28-211 - BL=10 206 0127 US 2C- 0 () 6 6 9 0 0 0 7 7 0 --- -05 ENVIR-NUMSER-REPLIC PIC X(21. 00610 000780 03 TR-RFPLICATF-DATA REDFfINFS TR-r)ATA. DNM=28-240 BL=10 JAI 0026 US OCL 03 -,r, 671 L 000790 05 RP-COLLECT-S TEE PIC X(6). DNM=28-270 BL=10 IAL 0026 US 6C oo 6 7 2 05 RP-CnL.LFCT-S 17 F-R -REDEF'I NES RP-COLLECT-SIZE PIC 946). ONM=28-295 BL=10 JAI 0026 US 6C- 00673 01)OR 10 05 RP-SA'-IPLF- S I ZZE PIC X(6). ONM=28-325 BL=10 IA7 0032 US 6C -SA@IPI 1-5 1 ZE-R -SAMPLE-SI ZE -352 00675----0109 3)------05 RP-NUMBER- SPEC IES- PIC X(2). DKN=28-381 13L=10 IAD 0036 DS 21- 0067& 000840 05 RP-OUALITY PIC X. DKM=28-411 BL=10 IAF 0040 US 1 00674 000820 05 P. P RErIFINFS RP PIC 9(6). DNM=28 BL=10 1A7 0032 US 6C 00677 000850 05 FILLER P FC X( 88 riNM=28-431 BL=10 150 0041 US 88C REDEFINES TP-DATA. DNM=28-445 - BL=10 JAI 0026 US OCL103- 00679 oo()@70 05 SP.E-T(3T&1_-CNT o1c X(s). ONM=28-473 BL=10 1.41 0026 US 5c -Tr RKDEFINES SPE-TOTAL-CNT PIC 9(5) ONM=21?-000 BL=10 JAI 0026 US 5C oo (, a o 05 SPE ITAI,-CNT-R __00681 00()8<)O---05 SPF-T0TAL-WGT------- PIC X(6). DNM=29-028- OL-10 IA6 0031 OS 6C 00687 00I)qoo 05 SPE-TOTAL-WGT-R REDEFINES SPE-TOTAL-WGT PIC 9(6) ON,",=29-051 BL-10 IA6 0031 US 6C 006n3' 000910 05 SP E- S A MPL E-CNT PIC X(5). DNM=29-076 BL=10 JAC 0037 DS 5C 6 84 - 0009 2-1-- 0j SPE-SAMPLE-CNT-R REDEFINES SPE-SAMPLE-CNT-- ON.N=29-103 BL-10 JAC 0037 US 5C - 006R5 000930 PIC 9(5). 00686 000941 05 SPE-SAMPLE-WGT PIC X(61. DKM=29-132 BL=10 181 0042 6S CC 4@. 4;r-00 6 8 7 SPE-SAMPLE-WGT-R -REDEFINES SPE-SAMPLE-WGT- DNM=29-156- BL-10 181 0042 - US 6C 00698 0009130 PIC 9(6). lei 006R9 0001, 70 05 SPE-SUBSAMPLE-CNT PIC X(5). DNM=29-182 BL=10 IBT 0048 US 5C j;-,-00 69 0 00 00 SPE-SU,3SAMPLE-CNT-R -REDFF INES SPE-SUBSAMPLE-CNT----- ONM=29-209- BL=10 IB7- 0048 US 5C-- i 006ql 0009911) PIC 9(5). 006r42 00 1 n 011) 05 SPE-SUBSAMPLF-WGT PIC X(6). DNII,=29-238 BL-10 IBC 0053 US 6C 00 6 9 3 00 10 10 05- SPE-SUBSAMPLE-WCT-R REDEFINES SPE-SuBSAMPLE-WrT ONM=29-265-- OL-10 13C 0053 DS 6C 00694 ooln?.o PIC 9(6). 15 00605 001030 05 SPE--INDIV-FORMAT-CODE PIC X. DNM=29-297 BL-10 LCZ 0059 US IC ,4 1:6 NM 100 10.43.12 APR 3,1984 INT NAME BASE DISP RL 01 DEFINITION PTE DkM=29-328---BL=I0 I.C3 -0060-- US IC 011697 001050 05 SPE-.@JBR-TAGGEDI PIC X(5). ONM=29-354 BL=10 IC4 0061 US 5C 0 ')61)8 OO1n60 05 SPF-TAC-TYPF2 P C X. DNM-?9-379 BL=10 IC9 0066 US IC C SpE-N'8R-TAGrE02--- PIC X(51o- ON'M::29-402 8L=10 1CA 0067 US 5C bo7l)o ooi@n 05 FILLPR PIC x(57). DNM=29-430 BL-10 ICF 0072 CS 57C 00 7 n 1 001090 03 TP-INDIVIDUAL-DATA REDEFINES TR-DATA. DNM=29-444 BL-10 141 0026 US OCLI03 -00702----OO11Or1-----------O5 INr)1V-CNT--- PIC X(3). DNM=29-478 BL-10 141 0026 US K (7) 7 n 3 001110 01; 1 N 0 1 V - t. TH PIC X(4) DKM=30-000 BL=10 IA4 0029 US 4C 00704 CIO 11 ?3 0 5 fND1V-LTH-R REOFFINES INDIV_ LTH ;IC 9(41. DNIM=30-019 BL=10 IA4 0029 05 4 C 0 0 7 0 5 -0 0 1 3) 0 5 1 N T) I V - D F. T A I L S.; DNM=30-043 BL=10 1AS 0033 US OCL38--- 00706 001140 07 TEMP-FILLER PIC X. DNM=30-069. BL=10 1A8 0033 US IC 00707 001150 07 INDIV-WGT PIC X(5). DNM@30-090 BL=10 JA9 0034 US 5C i@ --On 708-001161) 0 7 1 ND I V- SE X PIC X.- - DNM=30-109 BL=10 IAE 0039 US I C 007,19 0 01 1170 07 INDIV-PATURE PIC X. DNM=30-131 BL=10 IAF 0040 US I C Or.) 71 0 00lipo 07 jN!)IV-VARM1 PIC XI 4) . DN?1=30- 156 '-'L=10 IBO 0041 US 4C _00711 07-INOIV-PARM2------ PIC X(4) ON'M=30-180 BL=10 IB4 0045 US 4C 00712 001?00 07 1 N D I V - P A R M 3 PIC X(4). ONM=30-201 BL=10 IBS 0049 US 4C 00-713 001?lr) 07 IN .9 1 V -- E G G - C N T PIC X(4). DNM=30-222 SL=10 I PC 0053 US 4C 00714--- Orfl ??0 07 IND 1 V-EGG- STAGE PIC, Y. ONM,=30-248 BL=10 1CO' 0057 US IC 00715 (101?13 07 IlinIV-STATUS PIC Y. ONM=30-273 BL=10 1,11 0058 CS IC 00716 (10 12 07 114D I V - T A G- N B" PIC X(6). D N,4.-.3 0- 2135 BL=10 1C2 U 0 5 1; DS 6C 7 Ol 717----- 01312 50 07 IN@,jV-TAG-N9P-R REDEFINES INDIV-TAG-NBR PIC 9(6).-- DNM=30-321 BL=10 IC2 0059 US 6 C .I Oij 71 A 001260 07 1 N-D I V - AG @- S T ATU S PIC X. DNM=30-346 BL-10 IC8 0065 US IC Ztl 00719 001270 07 INOIV-AGE-STRUCTURE PIC X. DNIM=30-375 BL=10 I.C9 0066 US IC n07?O 12 80 0 7 1 NF) I V - Ar, PIC CNM=30-404 BL=10 ICA 0067 US 2C Or)721 OOi290 07 INDIV-AGE-R PrDEFINES INOIV-AGE PIC 99, DN'14=30-423 51.=10 1CA 0067 US 2C 01722 ooi@00 07 !ND1V-SPAWN-MAPK-CNT PIC X(2) DNM=30-447 3L=IO ICC 0069 US 2 NES --00723-001@10--------07--1,4r)IV-SPAWN-MARK-r-@IT-R RE',)EFf DNM@30-47? BL=LO 1CC 0069 US 2C. 3 00724 001320 INDtV-SPAWN-MARK-CNT 00775 0OX3311 PIC 99. PIC X(58).-- ONM=31-000 - 8L=1O-1CE---0071 US 58C F I LL S R-- - - 00727 nO1353 03 TR-ANIJ'JtUS-DATA REOEFINES TR-DATA. DNM=31-014 BL=10 I.At 0026 US OCL 03 431 00728 OnI360 05 ANL-AGE PIC X(2). DXM@31-042 SL=10 1AI 0026 US 2C 001170 -----05---A%1L-AGF-R REDEFINES -ANL-AGE PIC 99.- DNM-31-062 BL-10 1A1 0026 US 2C 00730 001383 0 -5 ANL-LTH-TO-EDGE PIC X(3). DNM=31-081 BL=10 1A3 0028 US 3C 00711 00 13 90 05 ANL@LTH-TO-EDGF-R REDEFINES A N L - L T H- TO- E DG EPIC 9(3). 0 IN M= 3 1 - 10 9 BL=10 IA3 0028 US 3C 'V) 7 3 ? --( --@)5 AML-MARGINI-INCR PIC X(3). ONM=31-139 BL=10 IA6 0031 US 3C - )',) I /_ 03 --- 00731 001410 05 A.NL-mARGIN-INCR-R REDEFINES ANL-MARGIN-INCR PIC 9(3). DNM=31-167 BL-10 IA6 0031 US 3C 0,1)7-,4 001429 05 ANL-DiSTAIJCFS. I)NM=31-197 BL.=10 !A9 0034 US OCL90 on736 001440 07 ANL-DISTANCE2 PIC X(3) ONM=31-252 BL-10 1AC 0037 US 3C 00735- 001431) 07 t@NL-DISTANCEI - -- DNM-31-226 BL-10 IA9 0034 US 3C PIC X13). 00)737 00 t450 07 ANL-DISTANCE3 PIC X(3) DtM=31-278 BL= 10 IAF 0040 US 3C 00738 -- 0014 60 07 ANL - r) I S T ANC E 4 PIC X(3). ONM=31-301 BL=10 1B2 0043 US X 0 1) 719 01) 1 it 70 07 ANL-DI.STANCE5 PIC Y(3) ONM=31-32.7 BL=10 185 0046 US 3C 74 0 OnI480 07 ANL -0 1 S T ANC E 6 PIC, X(3) DNt4=31-350 BL=10 188 10049 US 3C ONM=31-376 -BL-10 168 0052 US 3C 741---0011+ 90- 07 ANL-DISTANCE7- PIC X(31. 00742 001503 07 ANL-OISTANCES P I C x(" DNM=31-399 BL=10 IBE 0055 US 3C 00743 001510 07 ANL-D STANCEq PIC X,3): DNM=31-425 BL=10 1C1 0058 US 3C 631 ONM=31-451 OL-10 IC4 0061 US 3C ----O0744---()()1S?0 -------07 A11L-r)I STANCEID PIC X(3).- 00745 001530 07 ANL-DISTA14CFII PIC X(3) ONM=31-475 BL=10 I.C7 0064 US 3C C.') 74h r) r) 1 1; 4.) 07 AN L - D I S T A -; C F 12 PIC X(3) DNM=32-000 BL=10 ICA 0067 US 3C Of) 7 4 7- 001550 07 A l'! L - D I S T A N' C E 13 PIC X ( 3) DNM-32-027 BL-10 1CD 0070 US 3c 00748 001569 07 ANL-P! STANCE14 PIC X43) DNM=32-054 RL=10 100 0073 US 3C 7c 711 00749 00 11) 70 07 ANL-r)ISTANC115. PIC X(3) ONM=32-081 BL=10 ID3 0076 US 3C 19 NMI.00 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION 7_007'50--- 001580-----07-- AN L-D I STANCE 16 --py c --0NM-32-105--8L=I0-I96---0079 --OS -3C 00751 001590 07 ANL-DISTANCE17 PIC X(3). DNM=32-132 BL=10 109 0082 OS 3C 131 00752 00 16 1) 07 ANL-01 STANCE Iq PIC X(3). ONM=32-159 BL-10 10C 0085 DS 3C PIC X(.3) DNM=32-186-- BL=10 1DF 0088 - DS 3C 00754 001620 07 ANIL-DISTANCE20 PIC X(3). DNM=32-213 BL=10 IE2 0091 DS 3C 00755 001630 07 ANL@-DISTANCE21 PIC X(3). DNM=32-237 BL=10 IE5 C094 DS 3C 01756 ------07 ANL-()[ STANCF22 -PIC-X(31. DNM=32-261 - BL=10 IE8 0097 DS 3C @l 00757 001650 07 ANL-r)ISTANCF23 PIC X(3) DNM=32-285 BL=10 IEB 0100 CS 3C ck CE24 P I C X(3) --32-309 BL=10 1EE 0103 DS 3C 0') 71 001660 07 ANL DI STAN DNM 0016 70-------07 ANL-f)ISTANCE?5--- --PIC X(3) - --- ---- --DNM=32-333 BL=10 IF1 0106 ()S 3C 00760 001680 07 ANL-DISTANCE26 PIC X13) . ONM=32-360 BL=10 IF4 0109 DS 3C 00761 001690 07 ANL-DISTANCE27 PIC X(3). DNM=32-384 BL=10 1F7 0112 DS 3C 12 11 N1, - 1111 T 11 N C 12 8 --PIC X13), I)PIM=32-41111 11L@10 IFA IDI 15 "DI 3C, 00 7 1 ? -19 0 17 01 1) 7 00763 001710 07 ANL@r)l STANCE29 PIC X(3). DNM=32-435 BL=10 IFD 0118 DS 3C 00764 001720 07 ANL-OISTANCE30 PIC X(3) . DNM=32-462 BL=10 200 0121 DS 3C .___---00765 -- 001730 ----05-ANL-DTST-R PEnEFINFS ANL-DISTANCES. DNM=33-000 BL=10 IA9 0034 DS C lCL90 00766 001.740 n7 ANL-OIST OCCURS 30 TllqFS PIC 913). DNM=33-026 BL=10 IA9 0034 DS 3C :7@1 00767 001750 05 NUkl-OF-SPAWN-MARKS PIC Xy. DNM=33-047 BL=10 203 0124 CS 2C 1-30768 FILLER pit xxx. DNM=33-078 BL-10 205 0126 DS 3r_ 01769 001770 03 TR-TAG-RECAPTlJR5-f.)ATA REDEFINES TR-DATA. DNM=33-092 BL=10 IAl 0026 DS OCL103 00770 0017PO 05 TV;-NUMPER PIC X(6). ONM=33-129 BL=10 lAl 0026 DS 6C 1@@-f)0771-001790------ -05---TAG-TYPC PIC X. ONM=33-149 BL=10 1A7 0032 DS IC 00772 00! Pt 01 05 RECAPTURE-DATE PIC X(6). DNM=33-170 BL=10 1AB 0033 DS 6C 00773 001810 05 R EC A P T UR E - L nC PIC X(10). DNM=33-197- BL=10 IAE 0039 OS 10C P.ECAPT9RE-GFAR-------- P IC X(3). DNtA=33-223 - BL=10 198 0049 DS 31C 00775 0 1.) i 1130 05 DAYS-nUT PIC X(4). ONM=33-247 BL=10 1B3 0052 DS 4C 00776 00184D 05 DIST-TRAVEI-10 PIC X(4). DNM=33-265 BL=10 1BF 00 56 DS 4C 00777--00j150------05--- RECAPTURE-LENGTH-- PIC X(4). ONM=33-288 BL=10 1C3 0060 DS 4C r n(3778 001W) 05 RKAPTURE-WEIGHT PIC X(51. DNM-33-314 BL=10 IC7 0064 DS 5C 0077q 001870 05 MATURITY PIC X(l ONM=33-340 BL-10 ICC 0069 DS IC 3s PIC X 15 91 . DNM-33- i, 11 361 @BL-10 1CD 0070 DS 59C 32! 00781 42 1 @3Z 42i .4dil 7o 20 Nm 100 10.43.12 APR 3,IS84 INT NAME BASE DISP RL01 DEFINITION Xil.61-YALUE -MASTER REC HERE% --05840000 6C DNM-33-375--SL-10-208 -0001-- Ds I 00784, 005960* 05850000 00785 009970* OLD MASTER RECORD k-AYOUT 05,960000 1 3 L_j ___I)o r, ,6 )o 05870000 007P7 o(Iliqql)* 05890000 00798 21* 0,1789 --- NMIJOREC -- -- -- 00700 HOLK 007()l -00792 -00oojO 0 1-- NM I I OR EC. ONM=33-400-BL-10-218-- 0001--- DS OCLI50 00793 000061) 03 RECORD-TYPE PIC X. ONM-33-424 EIL-10 218 0001 DS 1C 141 00794 000070 88 MSTR-ENVIR-RECORD VALUE 11'. 1,, 00008.0) -- --- - PS 4STR-RFPLIC-RECORr) VALUE 121. 57 ECIES-RECORD VALUE '3t. @O Q oooo,?o 88 MSTR-SP' 007q7 000100 IIA 11STR-IN,)IV-RECcRr) VALUE '41. Il R9 klSTR-ANNULUS-REC0RD----- ----VtkLUE 5 00799 000120 88 MSTR-TAG-RECAPTURE-RFCORD VALUE $91. ONM-34-133 BL=10 219 0002 DS OCL23 00 9 (.) 0 000130 03 141TR-CO14TROL* 23 -- 00 0 141 8 q 7-nF-MAS YALUE HIGH-VALUES.- OOP-01 E'll STER 00802 00'1150 05 RF-CORD-KEY. ONM=34-187 OL-10 219 0002 DS OCL23 '71 00803 000 161) 07 SFQUENCF-NU,4BFR, ONM=34-213 f3L= 10 219 0002 DS OCL? 00 @ 1) 4 ()0 01 7) SEQ-YR PIC XX. DNM=34-244 - BL-10 219 0002 DS 2C lz3i 00 el) 5 0 0 P. I IQ 0 Oq SEO-FILLFR PIC X15). 0,%M=34-263 BL=10 21B 0004 DS 5C 07 REPLI 31 00806 00019D lC4TE-NlJMBFR PIC X(2). ONM=34-286 BL-0 220 0009 DS 2C 3L SPEC IES-GPOUP. DNM=34-315--BL@10 2 22 -0011 OS OCL11- oos'@s DO,)? 11 09 SPFCTES-CnOE PIC X(10). DNM=34-A44 BL-10 222 0011 DS 10C Or) 8 0 Q oon?20 09 SPECIFS-STATUS PIC X. DNM=34-369 BL-10 ZZC 0021 DS I 27 --- 00 F3 10 PIC X(3). DNM=34-396- BIL-10 22D 0022 DS 3 C 20 00811 000?40 89 LINF1 VALUE 1001'. 00812 0010250 89 LIN@2 VALUE 0002'. 00 131, 3 0? 60 07 - L I KIF - N I I li SE R-P, R EDE F 114 E S L I NE-NUMS E R P I C -999. - - DNM-34-465 --BL-10 220 0022 05 3C 0 'Sl 14 -07'70 -KEY-R REDEFINES -KEY. ONM=35-000 BL=10 219 0002 DS OC 0 r 05 RECORD PECORn L23 0 0 8 15 000?80 07 RECORD-KEY-ALPHA PIC X(2D). ONM=35-028 BL-10 2 19 0002 DS 20C 43 47--00816-00029f) ------- 07-- RECORf)-KEY-BETA PIC XXX. ONM=35-054 -BL=10 22D 0022 DS 3C 00817 000300 03 DATA-BY-RECORD-TYPE PIC X(126) DNM=35-082 BL:10 230 0025 OS 126C 00818 000311 03 ENVIR-STA-DATA REDEFINES DATA- BY-A EC OR;_ TYPE . DNM-35-111 BL 10 230 0025 DS OCL126 171 PPer,RA4-TYPE -Pic X(3). ONMI-35-141 BL-10- 230 0325 OS 3C 13,; 00820 31) 05 PROGRAM-TYPE-P, REDEFINES PPOGIRAM-TYPE PIC q(31. DN@@-35-166 SLzIO 230 0025 US SC q nr)0340 I -PROG 700 THRU 799. OQ71 193 'RID VALUE 00 8 2 2---- 0003 51 - -- 88 PR 0 GR A 4-00 1 - TO-999 VALUE 001 THRU 999. 10: 008?3 00036) 88 PPOGRAM-000-TO-699 VALUE 000 THRU 699. 'A 008?4 000370 88 PROCR44-400-TO-499 VALUE 400 THRU 499. 00 8? 5 --- 0001,80 88 PROCDAM-600-TO-699 VALUE 600 THRU 699. A08?6 000390 8.1 PROGRAM-700-TO-799 VALUE 700 THRU 799. 88 PROCRAA-799-TO-899 VALUE 799 THRU 899. 14,, 008?7 ')()F)4 00 H? 3 -0004 10 89 PROGRAM-800-TO-999 VALUE 800 THRU 999. a, 00829 OC0420 88 PROGRA'4-050 VALUF 050. 00 621 no Ft? 0 0 0 04 30 88 PROGRAM-051 VALUE 05t. 00 @3, ul P43 13 1 0 0 04 40 8 8 IPOGPA%4-055 VALUE 055. 00 00,312 00045n 89 pRnrRAlAl-060 VALUE 060. 00 00 R 3 3 0001-61) 88 PROGRAI-100 VALUE 100. 00 71 ON 0OR34 0004 70 8 PROGPA-li-105 VALUE 105. _____oo_ 641 008", 000481 88 PROGRAM-110 VALUE 110. 00 _0 00-936 000490 88 PROGRAM-115 VALUE 115. 00 711 'A Nm 100 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION PIC X..-,--- 0NM=49-36I---- BL-10 23C -0037 US IC-- 01108 003?1.3 07 INDIV-MATURE PIC X. ONM=49-383 BL=10 230 0038 US IC 01109 00322.0 07 IND TV-P ARM I PIC X(4) . ONM=49-408 BL=10 23E 0039 US 4C 01110- 00 3 2 30 0 7 INDIV-PAPM2 PIC- X(4) . DNN1=49-4.32 BL=10 242 0043 US 4C 01111 003240 07 INDIV-PARM3 PIC X14). ONM=49-456 BL=10 246 0047 US 4C 01112 001250 07 INDIV@EGG-CNT PIC X(4). ONM-49-480 BL=10 24A 0051 US 4C 0 1113 - 0 () 3 1.60 OT-INT.)IV-::G(,-STAGE PIC X.. ONM=50-000 BL=10 24E 0055 CS IC Ott',4 0 1) 3 2 71 07 INDIV-STATUS PIC X. DNM=50-028 BL= tO 24F 0056 LIS IC 01115 003? SO 07 IN,')IV-TAG-NRR PIC X(6). ONM=50-053 BL=10 250 005T CS 6C BL=10 250 0057 US 6C- REDEFINES INDIV-TAG-NBR PIC DNM=50-079 01117 003103 07 IN0fV-TAG-NMPR-R REDEFINFS INOrV-TAG-NBR. ONM=50-107 BL=10 250 0057 US GCL6 01119 00331-0 09 1 N") TV-TAG-NMBR-ALPH.AB PIC X. DNM=50-136 BL=10 250 0057 US ic 119 JNf)IV-TAG-NMBR-ALPHAN - PIC DNM=50-170-- BL=10 251 0058 US IC 011?0 003330 09 INDIV-TAG-NM9R-DICIT PIC 9999. ONM=50-204 BL=10 252 0059, US 4C 01121 001,340 07 INDIV-AGF-STATUS PIC X. ONM=50-234 BL=10 256 0063 05 IC VALUE *70. 0 11 3 '00-33 60 07 INDIV-A(7F-STPUCTURE PIC X. ONM=50-292 BL=10 257 0064 US IC 01124 003170 07 1 NO IV- ACE PIC -)((2). ONM=50-324 BL=10 258 0065 US 2C I14nIV-AG@:-R PEOEFINFS fN0tV-4GGE PIC 90. --------.DNM=50-346- OL-10 258 0065 US 2C- 011,26 noi390 07 INDIV-SPAWN-PAPK-CNT PIC X(2). ON'M=50-370 BL=10 25A 0067 US 2C 'PAWN REDEFINES 31127 0 -4 4 01.) 07 INDIV-S -?'A R K -CN T - R ONM=50-403 BL=10 25A 0067 US 2C -0 t 12 3 --- 00 3 4 1 ) - - -- - --- ---- -- ---- - ---- - INDIV-SPAWN-MARK-CNIT 0112Q (703420 PIC 99. 01130 003430 05 FILLER PIC X(74). DNM=50-438 -BL=10 25C 0069 US 74C -- 01 131 ----O,13440----05-0ATE-MODIF IFD PIC xt 8) . ONM=50-452 -BL=10 2A6 0143 US BC 00il-50 03 ANNULUS-nAT4 REDEFINES DATA-BY-RFCORD-TYPE. DNM=50-478 BL=10 230 0025 US OCL 1 26 01137 -AC -000 -10 01 133 0.0,34 6) 05 ANL F PIC X(2). DNM=51 BL 230 0025 05 2C 0025 US 2 01134 00 14 70 05 ANL-AGE-R-REDEFINES ANL-AGE PIC 99. ONM=51-020 BL=10 230 01115 00@4 PO 05 ANL-LTH-TO-Er)GE PIC X(31. DNM=51-042 BL=10 232 0027 US 3C 01136 0 0 3 4 90 05 ANL-LTH-T13-E0GE-R REDEFINES ANL-LT@@TO-EDGE PIC 9(3). DN'4=51-070 BL=10 232 0027 US 3C 01 13 7 35 00 05 ANL-MARG N-INICR PIC X(3). ON',M=51-100 - SL=10 235 0030 US 3C I 011319 7,9 11 05 ANL-,vARGIN- I NCR-R REDEFINES ANL-MARGIN-INCR PIC 9113). DNM=51-128 BL=10 235 0030 US 3C z 01139 00152) 05 ANL-DISTANCES. ONM=51-158 BL=10 238 0033 US OCL90 23a 0033 US 3C 0 114 0 00 3 5 3,) 0 7 - WIL -0 1 S T A 14 C E I PIC X(31. DNM-51-197 BL-10 01141 -51-213 J 00i9ftill 07 AN L - D I S T A @J' C E 2 PIC X(31. DNM BL=10 23B 0036 US 3C (11,42 0011,50 07 A KIL - 1) 1 @ T AN C F 3 PIC X(3). DN'M=51-239 BL=10 23E 0039 US 3C Pal 0042 US 3C ------- Of 07 ANL-DI STANCE4--.---- PIC X13). ONM=51-265 B@L= 10 241 30 01144 0 0 73 1, 70 07 ANL-rl! STANCE9 PIC X13). DNM=51-29t BL=10 244 0045 05 3C 01145 Or) 115 BI 07 ANL-I)l STA,"'CE6 PIC X(3). DNM=51-317 BL= Ill) 247 0048 F) S 3C 01146 ____Of)35 90 ----07 ANL-DISTANCE7----- PIC X13). DNM-51-343 BL=10 24A 0051 US 3C 01147 003601) 07 ANt-OISTA@JCEB PIC X(3). DNM=51-369 BL=10 24D 0054 US 3C 01149 003610 07 ANL-OISTANCE9 PIC X(3) . DNM=51-395 BL=10 250 C057 US 3C .2 @,-----01149-- Or)3620--- -----07 ANL-O I ST ANCF 10 P I C X( 3) DNM=51-421 BL=10 253 0060 US 3C 01 1,;,) 00 36 10 07 fP4j-f)I STANCE 11 PIC X(31 DNM@51-448 BL=10 256 0063 US 3C 003640 07 ANL-01@TANCE12 PIC X ( 3) y DNIJ=51-475 BL=10 259 0066 05 3C 01152-0036 AIJL-D I ST ANCE 13 PIC X(3). DNM=52-000 BL=10 25C 0069 05 3C 01153 00@@6613 07 ANL-DISTANCE14 PIC X(3). 0 K",=52- 027 BL=10 Z5F 0072 US' 3C 01154 001670 07 ANL-DISTANCE15 PIC X(3). ONM=52-054 BL=10 262 0075 05 3C -01155--- 0036 83 -------07 ANL-r)ISTANCF'16 PIC X13) ONM=52-081 -BL=10 265 0078 DS 3C Lf 2,6 J, 0111,6 no-690 07 ANL-0 I STANCE 17 PIC X(3). ON'".=52-108 BL=10 268 0081 US 3 C Oil-,7 00 3- 0') 07 AN L - F) I S I A N, C E 18 PIC X(3). ONw,=52-135 BL:cI0 26B 0084 US 3 C 27-- 01 V 1) 9 0 0 3 7 10 0 7 ANL-O I STANCE 19---- -PIC X(3? . - DNM=52-162 BL=10 26E 0087 OS 3 C P, 01159 003720 07 ANL-0 I STANCE 20 PIC X(3). DNM=52-189 BL=10 271 0090 US 3C 01160 0,13730 07 ANL-DISTANCE21 PIC X(3). DNM=52-216 BL=10 274 C093 US 3C BASE DISP RL01 DEFIN T 0 27 NM Il 0 APR 3,1-,84 INT NAME I I N 116 1 - 0 0 3 7 4 0 0 7 AML-DI STANCE22 -X( 3) 0096 DS-3Cr 011,52 003750 07 ANL-DI STArl',F23 PIC X13). ONM=52-2TO 5L=tO 2TA C099 US 3C 01163 003760 07 ANL-DI STANCF24 PIC X(31- 0*1=52-297 BL=10 27D 0102 US 3C 01 164----003, 7.0 AML-01 STANCF25 PIC X(3). qL=10 280 0105 US 3C 01165 (@017 80 0 7 ANL-I)l STfNC126 PIC X13). I)NM=52-351 BL=10 283 0108 US 3C 11 01166 003790 07 AllL-DI STANCE27 P I c X(3). UNM=52- 378 BL=10 286 01. US 3C -01167--- ')0 -1 P, 01 - 0 7 ANL-0ISTA4CP?9 -PIC X(3)- ONM=52-405 BL=10 289 0114 US 3C. 011168 003810 07 VIL-DISTANCE29 PIC X(3). W011=52-432 BL=10 28C 0117 OS 3C, 0 , 69 0')3 .0 07 A N L - r) 1 S T A Nr E 30 PIC X(3). r)NM=52-459 BL=10 28F 0120 US 3C 01 17 0 ---() 0 3S 10 5 AN L- D I S T - R R F OF 1: 1 N E S- AN L- D I S T AINC E DNM=53-,000 BL=10 238 0033 US OC L 90 01171 OO3P4O 07 ANL-DIST nrcURS 30 TIMES PIC 913). DNM=53-026 BL=10 238 0033 US X 01172 0()IR50 05 NUm-nF-SPAWN-mARKS PIC XX. DNM=53-047 BL=10 292 0123 US 2C. @01173--- 003F@AO ----05 NWA-0F-SPAWN-'lARKS-R REDEFINES DNM=53-OT8 -BL=10 292 0123 US 2C 0!174 00-1870 NUM-CF-SPAWN-MAPKS PIC 99. 01175 rn -5 lk 8n 05 FILLER PIC X(181. D N4= 5 3- 111 BL=10 294 0125 US 18C 1 -OATEF-YODI F I ED - ---- -- PIC: X(8)o- ONtl=53-125 -8t_-IO 2,16 0114. 3 -US CC 01177 00 3 9 O'l 03 TAG-PECAPTI)RE-1.)ATA REDEFINES OATA-BY-RECORl)-TYPE. DNM=53-151 BL=10 230 0025 US OCL126 01178 003910 05 T AG - N U 113 E Q PIC X(6). ONM=53-185 BL=10 230 0025 US 6C 21 0 1 17 9 - 00 3 9 2 1) TAr,-KIUMBER-P, REnEFTNES TAG4UmRER. BL=10 230 0025 US OCL6 n I I ,@ o 0,6,o rl. 7 T A r, - N U.M. R F R - A L P I I AB PIC X. DNM=53-23f) BL-10 230 0025 US I C oil@; or)@9, 07 TAG-Nlj'@HR-4LPHAN PIC X. DNM=53-263 BL=10 231 0026 US IC Ol I S2 -no 0 7 - TAC- NUMBE R-DI G I T - P I C -999. I)NM=53-290 BL=10 232 0027 US 4C "1 193 0 r@ 39 6r) 05 TAC-TYPE PIC X. DNM=53-319 @BL=10 236 C031 OS 1 c 1@4 01IR4 003970 05 RECAPTURE-OATE DNM=53-340 BL=10 237 0032 DS CCL6 PF(-,APT-YY PIC XX. ONM=.53-370 -BL=10 237 0032 US 2C rilIA6 0039140 07 RECAPT-fl.M DN@=53-392 IL=10 239 0034 DS 2C PIC XX. It 2.7' 011,17 nC,@4000 07 PIC XX. DNVi=53-414 BL=10 23B 0036 U S 2C 0 1 1 P 8 - -00 4f@ !*)--05- RECAPTUR.E-,DfzTF--R-RED'@FINF.S RF-CAPTURE-DATE. 0 N M = 5 3- 4 3 6 -BL=10 237 0032 US OCL6---- 01189 004020 07' RFCAPT-YY-R PIC 99. OKM=53-468 BL=10 237 0032 US 2C. 0 1 1 q 1---- 00 404() 7 - R E C A P T- DD-R--.---P I C 99. DNM=' 54-024 -BL=10 23B 0036 US 2C 01190 004030 07 RECAR.T-M@4-R PIC 99. DNM=54-000 BL=10 239 0034 US 2C, O!lq2 Or) 4 0 50 05 RFCAPTURE-LOC PIC X(IO). DNM=54-048 BL=10 230 0038 0S lc@ OIlQ-3 004060 05 P ECAPTUR E-GEAR PIC X(31. DNM=54-074 BL=10 247 0048 US 3c 1 91@004070-------05- DAYS-OUr IC X ( 4 ) . __DNM-54- 10 1---BL- 10 24A 10051 --US 4C 01195 0 0 4 () 8 -) 05 DAYS-OUT-R REDEFINES DAYS-OUT PIC 999q. DNM=54-121 BL=10 24A 0051 DS 4C 01196 Or)4OqD 05 DIST-TP.AVFLrD PIC X(4). DNM=54-1,45 BL=10 24F 0055 US 4C -1 DNM=54@171 BL=10 252 0059 US I 0 11 q 11041 GO---- 05 RKAPTURF-LENGTH PIC X(4). ic 01 118 01)41 10 05 PECAPTURC-WEIGHT PIC X(5). DNM=54-200 BL= 10 256 0063 US 5C 0iinq 004120 05 MATURITY PIC X.11). DN,11=54-229 Bl.m 10 258 0068 US 1C r--*--f)'- 200--0041 F ILL ER PIC X(74) ONM=54-250- BL=10 25C 0069- US 74C 01201 004140 05 DATE-MODIFIED PIC X(s). DNM=54-264 BL=10 2A6 0143 0% SC 01202 F@l 28 "Aioo 10.43.12 APR 3t 1984 INT NAME BASE DISP RLOI DEFINITIC[q 01205-00602') --1 I-DAT E CNVRT-SUBR P IC X 116) - VAL UE -ICNVRT - SUBR HERE- e---.0591 0000 DNM=54-290---BL- 10- 2 BO COOI - DS 16C- 01206 006030* 05920000 01207 006140* DATE CnNVERSION SUBROUTINR FIELDS 05930000 01209 006060 0595000.1 Ito '21 27 k eg z 171 29 NmI)o 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION 01?12 Ono030* INIITIAL17E ALL UNUSED FIELr'S TC ZERnES EACH TImE. 01?13 000040* PROCESSING PRIORITY IS SDN, JULIAN-5, JULIAN-7, MDY-6, YMD-13. A 01215 .0,10060 * THE FIRST MON-ZERiD. DATE IS CT).NV7RTED TO SDN. ALL OTHER DATES 01216 OOC,.')70* ARE THEN DEVELnPED FROM THE SON. 01?lp 000103 31 r)ATF(-.ALC-LINKAGE. DKM=54-318 BL=10 2CO 0001 US OCLI78 01221 000120 02 OATECALC-SET-A. DNM=54-350 BL@10 2CO 0001 US CCLST 01727 000130 03 CNVT-SD.N PIC 9(7). ONM-54-380 BL-10 2CO 0001 US TC 01223 -- OOOl 40 -- : 9,9 CNVT-SON- I S-Z ER 0 V ALUE 0 01724 CIO 01 5D 03 CNVT-.JLJLIAN5 PIC 9(9). ONM=54-433 BL=10 2C7 0008 US 5C 01225 000160 R8 CNVT-JULIAN5-IS-ZERO VALUE 0. ii-,----01726---000170---(13-FILLFR- R EDE F INES - C NVT-JUL I AN5 DNM=55-000 BL=10-2C7--0008 --- US OCL5 01227 nOO180 04 CNVT-JLJLIAP45-YEAR PIC 9(2). DNM=55-017 BL=10 2C7 0008 US 2C 012?8 0001no 04 CNVT-JULIAN5-DAY PIC 9(3). DNM=55-047 BL=10 2C9 0010 US 3C lit 01230 0002 YC 03 CNVT-JtJLTA'47 PIC 9(7). ONM=55-076 BL=10 21,C 0013 US 7C GI 231 r,00220 8,q rNVT-,lUt_IAN7-TS-ZERO VALUE 0. 232-- 000? 3)----03 -FILLER REDEFINES CNVT-JULIA?47. DfM=55-140 - BL=10 ZCC----0013 US 01233 000240 04 CfjVT-J'JLIAN7-YEAR PIC 9(4). DNM=55-10 BL=10 2CC 0013 US 4C 01234 On @12 50 04 CNVT-JULIAN7-DAY PIC 9(3). ONM=55-187 -BL= 10 200 C017 US X -213 01236 000270 03 CNVT-!4r)Y6 PIC 9(6). DNM.=55 BL=10 2D3 0020 US 6C 0, 11 2,; 7 Ono?80 88 CNVT-mDY6-IS-ZrRO VALUE 0. 239--00')?90-----03 FILLER REDEFINES CN'VT-MDY6. ONX-55-271 - BL-10 2D3 0020 - US GCL6---- 01239 01) 03 00 04 CNVT-%!DY6-MO'4TH PIC 9(2). DNM=55-288 BL=10 2D3 0020 US 2C 01240 000310 04 CNVT-'lr)Y6-DAY PIC 9(2). DNM=55-316 BL=10 2D5 0022 US 2C --01241 CNVT-MDY6-YEAP- -----PIC- 9( 2? ON'M=55-339 BL-10 2D7 ---C024 - US 2C 01?43 t) 0 0 3 41.1 03 rNVT-k,DYB PIC X(5). ONM=55-366 BL=10 2D9 0026 US 8C 89 CNVT-M0Y8-fS-ZERO----- -- VALUE --Z EROE Sz-- 1 01245 oonwo 03 FILLER RFDEFINES C,%IVT-I/DYS. UNM=55-418 SL=10 2D9 0026 US OCLS 01246 01) Ol 70 04 CNVT-mDY8- mnNTH PIC 9(2). D%M=55-435 BL=10 2D9 0026 US 2C 00013fil --- 04 FILLER PIC X ( I ONM-55-463 BL=10 20R --0026 US 1C 0 1 2 f. 8 0 0 0 1 q 04 CNVT-MI)YR-DAY PIC 9(21. r)N.M=55-477 BL=10 20C 0629 DS 2C 01249 00 i"14 cc 04 FILLER PIC X(l). D%'M-5b-00O BL=10 20E 0031 US 1C C'lVf-MDY6-YEAlR---- PIC --BL-10 2OF- 0032 US 2C 53 :4 01252 000430 03 CNVT-YMD6 PIC 9(6). DNM-56-038 BL=10 2EI 0034 US 6C CNVT-YMD6-IS-ZEPO---- --- - VALUE 01254 00045,1) 03 FILLER REOEFINES CNVT-YMr)6. DNM=56-093 BL=10 ZEI 0034 US OCL6 01255 00 14 61) 04 C@1VT-YM06-YEAR PIC 9(2). DNM=56-I'LO BL=10 2EI, 0034 US 2C [email protected]__Ol 2 56-0004 73 -----04- CNIVT-YMD6-- MONTH---- P I C 9(2) ONM-56-137- OL-10 2E3- .0036 US 2C 7 01257 000480 04 CNVT@YMD6-r)AY PIC 9(2): DNM=56-165 BL=10 2E5 0038 US 2C .2 3 CNVT-YmD8 PIC X ONM=56-191 -BL=10 2E7 0040 US 8C 43 @65 01260 11005 Ir) 39 CNVT-Ym0R-IS-ZERn V L; A U ZEROES. 01261 00 0 03 FILLER REDEFINES CNVT-YMr)S. DhIJ=56-243 BL- 10 2E7 0040 US 0CL8 00f)531---04 CNVT-Yvl08-YEAR- ---PIC 9 (2), ON14=56-260, BL=lo 2E7 0040 -DS 2C 01263 000540 04 FILLER PIC ONM=56-287 BL=10 2E9 0042 US IC pj X(" 01264 000550 04 C VT-YMOS-MOINTH PIC 9m: DNM=56-301 BL=10 2EA 0043 US 2C 71 R 3tIS84 INT NAME BASE DISP RLOI DEFI 30 Nmloo 10.43.12 AIR NITION 265 00056)-----04 -FILLER -X( I DNM=56-326-13L@10-2EC -0045 US 1C 01266 0005 70 04 CNVT-YMDB-DAY PIC 912). DNM=56-340 SL=10 2ED 0046 US 2C 3 26 8--- -Q0 -;@ 90 -03 C NVT-ALPHA-A 95RV-,t--- D NM=56- 36/7 BL-10 2EF 0048 US OCL 13 P1269 n00600 04 CNVT-Ae8RV-MCNTH PIC X(3). ONM=56-398 SL=10 2EF 0048 US 3C 01270 00cf, 111) Of- CNVT-AB3RV-rFRTn' PIC x(?). DNM=56-427 BL=10 2F2 0051 US 2C 7 v=- 112 71 -00 06,21 ---04 CNVT-A 21,13R, V-DAY-Y EAR. DNM=56-457 BL=10 2F4 0053 OS 0CLq 012?2 00 05 icl 05 CNvT-A95RV-DAY PIC 9(2). D.,\M-57-000 BL=10 2F4 0053 05 2C 01273 00064) 05 CNVT-ARBRV-(-.OMMA PIC X(2). DINM=57-027 BL=10 2F6 0055 05 2C 31274 --- 0005 53--- 05- CNI.IT- ABBRV-YEA R ---- P I C 9 ( 4 DhM=57-056- 8L=10 ZF8 0-057 US 4C ----- 01275 00',1661 04 FILLER REDEFINES CNVT-ABBRV-DAY-YEAR. DW-1=57-084 BL=10 2F4 0053 US OCLe 41 01276 COf670 05 CIJVT-ABBcZV-OAYR OCCURS q TIMES PIC X(I). DN4=57-101 BL=10 2F4 0053 OS IC 01?78 con690 03 CNVT-At.PHA-DATF PIC X(18). DNM-57--129 SL=10 2FC 006L US 18C 012 79 0 r) 07 0 0 03 FILLER- REDEFINES CNVT--ALPHA-CATE. DNM=57-157 BL=10 2FC 0061 US OCLIS :G I ' 11, f' ---04-CNVT-DAYR OCCURS IS TIMES PIC Xi BL-10 2FC 0061 CS 1C 117' 01292 000730 03 CNVT-DAY-OF-THE-WEEK PIC X(q). ONi4=57-196 BL-10 30E C079 US 9C 01294 0 Z2 @--00077.'Y-----D2--DATECALC-SET-B.--- DN-4=57-229- BL=10-317 --0086 US OCL-87 0 03 CVT-IDN 0007111 PIC 9(7). DNM=57-259 BL=IO 317 0088 US 7C 01288 oo 0790 93 C VT-SDN-IS-ZERO VALUE 0. 012nG GO(li 10 03 CVT-J)J', I AN5 PIC 9[511 DNM=57-310. SL=10 31E 0095. DS 5C zli D1291 or) 09 20 88 CVT-JULTAN5-!S-ZERC VALUE 0. - -- - 012<)2---OOOS2.0-----03--FTtLEP,- REDEFINES CVT-JULI&N5. ----------DNM=57-3T2 'BL-10 31E -0095 US OCL 01293 00 09 43 04 CVT-JJL1hN5-YEAR PIC 9(2). DN;4=57-389 BL=10 31E 0095 US 2C 00OR50 04 CVT-JULIAN5-rAY PIC 9(3). ()NM=57-415 BL=10 320 0097 US 3 012q4 C 32 a,. 01796 OOOR 70 03 CVT-jULIA,147 PIC 9(71. D%M@_57-443 BL=10 323 0100 US 7C 01207 000,18) 8.9 CVT-JULIAN7-IS-ZERO VALUE 0. -FILtER REDEFINES-CVT-JULIAN7. --0NM=58-0G0- BL=10 323 0100 US OCL7-:,l 0129Q OOOQO) 04 CVT-JULIAN7-YEAR Pic 9(4). DNM=58-017 BL=10 323 0100 US 4C 01300 011)01)1") 04 CVT-JIJLIAN7-DAY PIC 9t3). DNM=58-046 BL=10 327 0104 US 3C 0130? 0 0 9 :11.) 03 CVT-M)Y6 PIC 9(6). DN.M=58-074 BL=10 32A 0107 CS 6C 01 303 DO r. 9 4) 88 CVT-MlY6-IS-ZFRO VALUE 0. 01304 0(',Oq5-,)----03 FILLER RFOEFINES CVT-MDY6.- DNH@58- 130---8L=LG 32A -0107 US 0CL6-----___zzl 01305 00090 04 CVT-llOY6-M0NTH PIC 9(2). ONM=58-147 BL=10 32A 0107 US 2C 01306 0 0 70 04 CVT-MDY6-DAY PIC 9(2). UN,4=58-IT4 EL=10 32C 0109 03 2C CVT--DY6-YEAR - - P I C 9 ( ? DN.74=58-199 - BL=10 32E -0111 US 2C 01309 00 1003 03 CVT-MDYB ... .... 0 KIM=58-222 BL=10 330 OL13 US 8C CVT-MDY8-IS-7FRO- VILU; lER.ES- 03 FILLER REDFF INES CVT-MDYB. DNM=58-275 BL-10 330 0113 US 0 471 01311 001020 CL -1 01312 00 1030 04 CVT-MDYB-MnNTH PIC 9(2). DNM=58-292 BL-10 330 0113 US 2C 001 041 ER ONM=58-319 BL=10 332 0115 US IC 01313 ------P4 FILL, x1l). 01314 001051 04 CVT-MDY3-DAY PIC 9(2). DNM=58-333 BL=10 333 0116 US 2C 013t5 001061 04 FILL@R PIC X(l). ON14=58-355 BL=10 335 01t8 US Ir @._Ot3i6--- 001070----04 CVT-MOYR-YEAR-------- PIC 9(2). BL-10 336 0119 US 2 71 01318 001091 03 CVT-Ymn6 PIC 9(6).. ONM=58-395 PL=10 338 0121 US 6C 21 N4110 10.43.12 APR 3, 1984 INT NAME BASE DISP RL01 DEFINITION -00937--000501 VALUE- 120o 00838 000510 88 PROGRAM-125 VALUE 125. 00 00 P, 3 9 00052r@ 88 PROGRAM-tZ6 VALUE 126. 00 00 P40-0 0 05 3.1 8 8 PRn@,RAM-130- VALUE 130. 00841 000541 88 Ppnr,,PA'4- 150 VALUE 150. 00 1 00@42 000550 88 PROGRAM-160 VALUE 160. 00 'R A,11- I 70-GR-I 80 VALUE !70 1806--- 00 0OR43 0009 6-a 88 PR OG 0OP44 0') 0 5 T) 8.9 PR 0,',R AM- 17 VALUE 175. 00 00845 r) 0 0 5 IF, 11) 88 PQ ' I G R A M- 3 0 0 VALUE 300. 00 nr) A 4 b f) f.) 0 5 91 88 PROGRAI-320 VALUE 320. 00 00847 0001,00 38 PRn(;RAM-330 VALUE 330. 00 0OP48 00 0.6 1) 88 PROGRAM-340 VALUE 340. 00 oo--- 00349 001 06 20 A PR)@RAM-350- VALUE 350. on,850 0 0 1) 1 89 PROGRAA-400 VALUE 400. 00 00i5i 000,640 89 PRnRO-410 VALUE 410. 00 PR',IrRA*P-420 VALUE 420. 00 17 00853 Oonfl(,() 88 PRC)GR A!',- 42 I-OR-422 VALUE 421 422. 00 .11 00R54 '00('.6 70 88 PROCRAM-430-OR-440 VALUE 430 440. 00 on_ 99 5 0006 8-1- P PPOGRA14-431-OR-441 VALUE 431 44lo-- 00 cn856 00 06 911) 813 P00GRAM-432-00R-442 VALUE 432 442. 00 00857 or,0709 18 PRrGRAM@-433-CR-443 VALUE 433 443. 00 f)0017 10---' f)R0CRA4-434-(R-444 VALUE 434 444.-- 00 1-31 00R59 000720 88 OROGRANI-435-CR-445 VALUE 435 445. 00 : 1 00860 000730 88 PROGRAM-436-OR-446 VALUE 436 446. 00 12, @ 88 PP0GPAm-437-)R-44T VALUE 437 00 on P, (1 2 nn0751 88 PR CG R A 11 - 4 3 8 VALUE 43,1. 00 0081@3 0 0 0 -116 0 88 P R OC 14 AM- 45 0 VALUE 450. 00 0 0 9 6 4 88 PROGRAA-460 VALUE 460. ------ 00 0 9 tl 6 5 000,30 88 P Ck 11C R A M - 4 7 0 VALUE 470. 00 1 00166 000790 F1 8 PPOGRAM@500 VALUE 500. 00 86 7 - 0,1) 0 i 8 P, p R n r q A '1@ 5 10 VALUE 510.,- --oo 8)3 PROGRAM-530 530. 00868 0008 10 VALUE- 00 _0" 8613_0001 20 88 pRnrQ A H- 540 VALUE 540. 00 f) 1117113 000,33 88 PROGR A M-550 VALUE 550.--- 00 00871 OCOR4,I) 88 PROGRAM-610 VALUE 610. 00 'RAM-615 00877 000,150 88 PROG VALUE 615. 00 !-----OOP73 -- 0009 8 -PR"lC-RA,'A-618 VALUE 616- - ----- nO874 onO970 88 PRC-rPA'A-620 VALUE 620. 00 0.1 A7 5 81 PROGRA11-630 VALUE 630. 00 00P74 PROGRAM-650 VALUE 650. 130 OOe77 010003 88 PROGRAM-660 VALUE 660. 00 0@1973 000Q10 88 P P, Or, R A!A- 6 7 0 VALUE 670. 00 00.579-- OnO921 8Q PRr)(,RAII-6BO VALUE 6 q,) . oo-- ." 71 'RA'4-f)90 L )810 000Q30 88 P R Or, VALUE 690@. 00 4@i 00911 0n0940 88 PPOGRA'4-700 VALUE 700. 00 VALUE 705. PROGRAII-795- 4'7'1 00813 0009601 88 PROGUAM-710 VALUE 710. 00 00834 000971 88 [email protected] 5 VALUE 715. 00 r.0 I q 5 040 lq Al A8 P R' Or, R AM- 7 2 0 VALUE 720. ------ 00 OOPP6 000910 88 PDOCPAM-725 VALUE 725. rl 0 00 9 q 7 0n,")OD 89 PROr'), A M-730 VALUE 730. 00 00 88 8 011) 10 10- -8 a PROGRAM-735 VA L U E 735. --oo 53 00999 001020 88 PRrf'.RA4-740 VALUE 740. 00 00890 (101030 88 PROGRA'.1-745 VALUE 745. 00 2z NMOO 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 OEFINITION 00891--- PROGR A M-750------ --- V A LUE 750. --Do- 0-9892 001050 88 PROGRAM-755 VALUE 755. 00 00 8) 3 001060 98 PROGRAM-760 VALUE 760. 00 01) 139 4-0010 8PR OC R A -4- 76 5 -VALUU-765. Do--- -OoFt95 OolO8,j 83 PR11GRAM-770 VALUE 770. 00 00996 001090 88 PPOGrAM-775 VALUE 775. 00 00997 Or) I 1 8 8 PR Or, R A M-9 3 0 VALUE 930. 00 00898 001110 05 ENVIR-DATF. DNM=39-349 BL=lo 233 0028 US OCL6 00,999 OOiI2O 07 FNVIR-YY PIC Xx. ONM=39-375 BL=10 233 0028 US 2C PIC XX. -- - --- DNM=39-396----BL=I0 235-- 0030 US 2C 00901 001140 07 ENVIR-Dr) PIC Xx. ONM=39-417 BL=10 237 0032 -R REDEFINES ENVIR-DATe. DNM=39-438 BL-10 233 0028 US OCL,5 00902 001150 05 ENVIR-DATE US 2c 41 ENlVIR_YY_R-__---____. PIC 99.- DNM@39-466- BL=10 233 - 0028 - US 2C 4 00904 00 it 70 07 FlJVIR-Mm-R PIC 99o DNM=39-486 BL=10 235 0030 US 2C 00905 001180 07 ENVIR-DD-0, PIC 99. DNM=40-000 BL=10 237 0032 US 2C O5,_ ENV IR-STAT-NUMBER-- PIC x( 5) . ONM=40-023 BL=10 239 -0034 US 5C 00906 00907 Oot703 05 ENVIR-START-LOC. -053 BL=10 23E 0039 US OCLIO I)NM=40 00908 001210 88 START-LOC-26-TO-40 VALUE *2600000000- -THRU 140000000001. 110910 0 111 ?, 31) R8 START-LOC-O-TO-23 009!1 001240 VALUF 100000000001 THRU 123000000009. @-,--O()912------001250-------07--ENVIR-LATITUTE-- - - PIC X(51. DNM-40-145- BL-10 23E----0039- US SC 00q!3 001260 07 F!4VIR-LONGITUDE ONM-40-172 BL-10 243 0044 US 5C 00914 001270 05 R-START-LOC-R NES E V'@-START-LOC. -200 PIC "' ENVI REDEFT I I ONM=40 BL=IO 23E 0039 US IOC 009t5 PTC-9flo)o -00916 01)1291) 05 ENVIR-rRlr). DNM=40-230 BL=10 248 0049 US OCL4 00917 00130') 07 ENVIR-NUfIFR-rR.ID PIC XY. ONM=40-256 BL-10 248 0049 US 2C 91 89 VALID-NUMER-GRID VALUE 900' THRU 1991o- OD91-9 On 1-3 20 07 ENVIR-ALPHA-GRID PIC Xx. ONM=40-317 BL-10 24A 0051 US 2C 00920 001"D RS VALTO-ALPHA-GRID VALUE #AAl THRU 2ZZO. 9 2 1 00! 3 41--- -05-E.NVIR-QUAD ---- ---- -- PIC X. -- --- ----- 0 N M = 4 0- 3 7 8 8 L = t 0 - 2 4C 0053 -DS I C 001350 E NV I R - E N f) - T I 14E BL@jo 240 0054 DS 4 00922 05 PIC X(41. ON4-40-401 c 00973 00136.9 05 [-NlVIR-DURAT!CN-CR-AREA PIC X(4). ON'4=40-428 BL=10 251 0058 US 4C 00924 00 1 379 -05-FNVIR.-GEAR-TYPE PIC X(3). .----------DfqM-40-463 BL-10 255 - 0062- US 3C. ()Oq 2 5 00ii ec) '35 ENVIR-GE4R-TYPE-R REDEFINES ENVIR-GEAR-TYPE PIC 90). ONM-41-000 8L=IO 255 006Z US 3C, 00 13qr) 88 VALID-GEAP-OF-7ERO VALUE 000. 00 0092 7- 001400------ 1.18 VALID-GEAR-OF-999- VALUE 999. ---00--- 00928 00 14 10 89 VAL TD-GE AR-FnR-PGMO5O VALUE 911 200. 00 0092<) 001420 88 VALID-GFAR-FOR-PGM051 VALUE 200 531 940 420 00 911. 00031 001440 88 VAI..ID-GEAR-FOR-PGMOSS VALUE 556 550 200 213 00 w. 2@ OOq32 001450 300 500. .)0933-- (1,314 61 -----88 VALTD-fEAR.-FnR-PGY06O VALUE 911 200 300 213. --oo---- 00934 001470 8Pt VALID-CPAR-Ff)R-PGM1OO VAL UE 311 556 53L 530 00 00935 001480 538 212 130 535 911. -00 93,,@- 00 VAL 10-GEAR-FOP-PGM105 --VALUE 645. - - 00937 001900 88 VALID-GFAR-FOR-PGP41IO V AL UE 531 559. 00 :J 00938 001510 88 VALT-9-GEAR-FOR-PGM115 VALUE 245 531 130 605. 00 00 9A 9 -00 15 ?0 -VALID-GEAR-FOR-PGM120 ---V AL UE 556 559 538 330 --Do - 00940 001530 311 245 240 210 211 0,0941 001549 557 559. ;I ON 2 )a 13)(9 19012 Cl)Q42-Onj550----99 -VALID-GEAR-F0R-PGM1?5--- VALUE 556. 00- Fl- 00943 On 15 6-0 88 VALID-GEAR-FOP-PGM126 VALUE 556. 00 00944 001570 88 VALID-GEAR-FOR-PGM130 VALUE 556 212. 00 23 tv I f) 10.43.12 APR 3, lq84 TNT NAME BASE DISP RL01 DEFINITICN --0015PD-- --88- VAL 10-GEAR-FOR-PGMISO VALUE 245 230- 220 - 00--- OOq46 00 ! 5 90 250 960 212 0091 7 or'! 1100 130 380 420 331 00948 001610 24T. 00949 Ooi671 q9 VAL lD-GEA;Z-FnR-PGml60 VALUE 600 605 645. 00 ODq5O 001,630 58 VALID-GEAP-F0Q-VGM170-18O VALUE 351 352 13') 353 00 rO 9 5 1 00 16 4J 240 532 200 550 570 ------ -- 00 1? 1; 2 001651.) 574 245 220 ?50 552 00953 O@nI660 q26 95f) 925 911 920 835 00954 On 16 7,) - - --- ---- ------ 00955 0011110 88 VALTD-GFAP-FOR-PGMI75 VALUE 115. 00 00956 01) 16 90 88 VALID-GEAR-FOR-PCM300 VALUE 245 531 220 00 00957 -00 17 00 - ------ 2 30 940 250 32 0 0099-9 001710 130 420. OOq5q 0017 ?:) - IS VALTD-GEAR-FnR-PGM32O VALUE 550. 00 OO96O---Onl730-------88 -VAL ID-GEAR-FOR-PGM330 -----VALUE 220 532. 245 001740 550 130 420 556. 00962 001750 IS VALID-GFAR-F0R-PCM340 VALUE 531. 00 00 9 6 3 VAL f0-GFAR-F0P-PGm350 VALUE 130 311 352 3 53 00 9 6 4 0017TI 530 @556 570. 00 9 6 5 01)17,10 88 VALID-GEAR-FDR-PGM400 VALUE 200 220 400 222 00 230 250 232 240 420 00967 0 0 13 00 242 245 320 247 340 00 911) q Go i-9 19 130 421 422 500 152. O')969---OOla29--- VAL ID-GEAR-FOR-PGM41 G -------VAL UE 420 422 421 500 - OO___ 9 7 f) 001913 200 230 380 245 00971 r) 0 114 0 130 352 250 27 00 q 7 2 f) () 18 5 a- 247 ?20 340 320. 00973 00186) 81 VALID-GEAR-FOR-PGM420 VALUE 130 200 352 500 00 00974 001370 220 222 232 420. -00975 -- 001 9el.')-----88-VAL ID-GEAR-FOR-POM42 1-422- VALUE 200. - -- -- -- --Oo 00 97 6 0 0 18 9r) 89 VALID-GEAp.-FnR-PGm43O-44O VALUE 130 200 117 415. 00 0,0977 001900 88 VALID-GEAR-F.QR-PGM431-44I VALUE 130. 00 --0097 S-00 11) 11) 88 VAL T D- GEAR- FOR- PC M43 2-4 4 2 VALU E 130. -- OOn79 OOiq2o 89 VALID-GEAR-FOR-PGM433-4143 VALUE 500 510 530 532 00 OOqsO 0011") 534 538 550 552 553 00 9 S 1 0 0 19 4D -- -- 554 572 570. - I)OaaR 00 1"? 51 SS VAL!D-CFAP-F0P-PCI`1434-444 VALUE 200 220 2'2 240 00 00993 001.960 242 250. 00 9 84 0019 -88 -VAL I l)-G EA R-FOR-PGM43 5-445 VALUE 320 3404 00 ji OOq95 001980 9.9 VALID-GEAP.-FOR-PGM436-446 VALUE 574. 00 i-i 00986 0()lq9o 88 VALID-GEAR-FGR-PGM43T-447 VALUE 353 320 357. Go VAL I D-GEAR-F0R-PGM438 VALUE 420 424 410 412 OO__ 0098A 002019 118. 00 00981) 007023 81 VAL Ir)-GEAP.-F0R-PGM45O VALUE 500 570. 00 -0()91)0 f@1320'A,)----------88-VALID-GEAR-FOR@-PrM460 VALUE 150 530 55-1 554---- 00 00991 002r)4() 570. 00 99 2 00?0 511) 89 VALID-GEAR-FOR-Pri,%1470 VALUE 110 111 574 5T5 00 00903 00206,) ---- 740. 00994 00?1)7rl 98 VALID-GEAR-FOR-PC;M5OO VtLUE 556 559 550 500 00 00995 0020,q@, 560 150 3-10 311 53.1) 53 8 55 8. - - - noqq-! no2loo 88 VALIO-GEAR-FOR-PGM510 VALUE 556 559 550 500 00 oo9qq Ocl ?I io 558 560 150 310 311 24 NMI3O 10.43.12 APR 3v 1984 INT NAME BASE DISP RL01 DEFINI TION 536 538. 1 01000 00213) 38 VALID-GEAR-FOR-PGM53O VALUE 111. 00 01001 002141 88 VAL16-GEAR-FOP-PGM540 VALUE 531 556 558. 00 -01012--002151-- 88 VALID-GEAR-FOR-PGM550-- --VALUE 531 556 558 111. 00 01003 002160 8a VALID-GEAR-FOR-PGM610 VALUE 754 830. 00 01004 DO 2; 170 9A VAt I0-GF_AR-r-'0R-P(,'Y6I 5 VALUE 805. 00 --Ol OD5 ---()O?l @3 89 VAL I D-GEAR-FOR-PGM51 8 ---- VAL UE 754 --- 00 01006 On'> 1 90 88 VAL I n-GF_AP,-Fn_R-PGM62G VALUE 746: 00 ()1007 01127 00 88 VALID-GEAI,-FOR-PGM630 V At U E 766. 00 -00 _01 " P-00 22 1,)- 9 8 -V A L I D-G F A R-FOR- PGfA65 0 V At UE 758. --- 13 01009 002220 88 VALID-GFAR-FOR-PGiM660 VAL UE 830 754 766 811. 00 01010 007230 88 VALID-GFAR-FOR-PGM67O VALUE 754. 00 01011- -002?40----. ng VAL I 0-GFAR-FOQ-PGlM69O VAL UE 754 766. -- 112 .98 V@Lfr)-6EAR-@OR-PG,116qO VALUE 713 810. 01 r, Or) ?? 51 00 nIO13 On,? 610 88 VALID-GEAR-FOR-PG'4700 VALUE 560 231 552 00 0 10 14 --- 002? 70 ---- 531 534 515. - --- j;7@ .0 10 i 5 00?280 88 VALID-GEAR-FnR-PGM705 VALUE 552 531. 00 01016 'Of) 2? 90 88 VALID-GEAR-FOP-PGM710 VALUE 560 715 713 554. 00 0 10 17 --- ')0 ? 3 0')--- 99-VALID-GEAR-FOR-PG14715 V A L U E-- 5 6 0 . - -- - - --- -------00 Ol 018 002,410 88 VAl_ID-CEAR-FOR-PGm72O VALUE 552 560 554 720 00 01011) 00-170 531 424 118 lt9 0 10 7 0--- 0023 30- 120 411 412 413 420 01021 002340 421 422 440 423 926 01022 nD7350 911 S50. 0102 3 0023 60 -VAL ID-GEAP-POR-PGM72 5- - VALUE 552 531. -- ___OG 010?4 007373 88 VALID-GEAP-f:()R-PGM73O VAL UE 552 531 119. 00 t, 01025 002380 98 VALID-GEAR-FOR-PGM735 VALUE 531 552. 00 01026----002390 88 VALID-GEAR-FOR-PGM?4O VAL UF 911 925 926. 00 20i 01027 ',)0?401 88 VALID-GEAR-FOR-PGm745 VAL UE 515. 00 01028 002410 88 VALID-GEAR-FOR-PG'1750 VALUE 720. 00 --Ol VAL I D-G FA R-FOP- PGM75 5 VAL UP 552. -- -- - OO__ ------- 01030 00@430 8@ VALID-GEAR-FOR-PGM760 VALUE 531 552 560 715 00 n1,031 720. 00?440 88 VAL Tl)-GFAR-FOR-PGM765 V 4L UE 531 552- 560. 01033 002460 88 VALID-GEAP,-FOR-PGM770 VALUE 500. 00 138 VALID-CEAR-FeR-PGM775 01014 0')24 70 VALUE 552. 00 015---- 00?480@--05- ENVIR-CEAR-PARMI-,-- -- -PIC X!4). ONM-46-000---BL-10 -258-0065- - DS 4C 01036 On24q3 05 ENvIR-GEAR-PARM2 PIC X(41. UNM=46-OZ9 BL=10 25C 0069 CS 4C 01037 1) 1) ? 9) 09 05 E-,,VI R-GEAR-P AQ m3 PIC X(4). DNM,=46- 05 8 BL=10 260 0073 DS 4C 01038 0 2 10 - - ---- 0 5 ENV PIC X. DNM-46-087 -BL-10 264 0077 DS 1C_ I P'-P' I r' 0 10 3 9 0025,73 05 ENVIR-TYDE-OF-TOW PIC X. DNIM=46-109 BL=10 265 0078 DS I C 01040 00253D 05 ENVIR-BOTTOq-TYPE PIC X(2). ONM-46-139 BL=10 266 0079 OS 2C 01041 (Y)2543--05 FNVIR-ROTTO@A-PROFILE PIC X. ON'M=46-169 -BL-10 268 0081 DS IC J 01042 002553 05 ENVIP-DEPTIA PIC X(3). ONM=46-202 BL=10 269 0082 DS 3C 01043 oo?@60 05 ENVIR-AIR-TEMP PIC X(3). DNM=46-226 BL-10 26C 0085 CS 3C 570-----05 ENVIR-SURF ArF-TE?AP----- PIC X(3). DNM=46-253 BL=10 26F- 0088 DS 3 C 01044-002 01045 002580 05 ENVIR-BOTTOH-TEMP PIC X(3). OKM=46-284 BL=10 272 C091 DS 3C 01046 002590 05 ENVIR-SURFACF-SALIN PIC X13). DNM=46-314 BL-IO 275 0094 DS 3C -01047 --O026Oul------O5 ENV!R-8OTTnM-SALIN-- P I C X(3) I)NM=46-346 BL=10 278 C-097 DS 3C 01048 Or" 2f, 10 05 ENVIR-CONDUCT PIC X(4). DNM=46-377 BL= 10 27B Q 00 DS 4C -ACE-DO DNM=46-403 SL=10 27F 0104 DS 3C -1-1114 .01 049___nW'@ 05 C-NVIR-S'JF PIC X((3). F _01050 002630 05 ENV IR-BOT IOM-00 PIC X 3 1 ONM=46-431 BL=10 282 0107 DS aC z 01051 002649 05 ENVIR-PH PIC X(2). DNM=46-459 BL-10 285 0110 DS 2C 01052 002650 05 ENVIq-WEATHER PIC X. DNM=46-480 OL-10 287 0112 DS IC 25 N`4 10 0 10.43.12 APR 3,1984 INT NAME BASE DtSP RLOI DEFINITION 05 R-@ ARG METER P ()NM=47-000--BL-10 288--0113- US 01054 00?670 05 ENVIR-WIND-DIRECT PIC X. ONM=47-028 BL=10 28C 0117 US 1C 2 01055 002680 05 ENVIR-WIND-SPEED PIC X(2). DNM=47-058 BL-10 280 0118 US 2C 3 1 10 -, PIC X.--- DNM=47-087 BL=lo 28F 0120 -DS IC , 56 FNVI P-CUR R ENT-DT RECT ()I Or, 7 007701 05 ENVIR-CURRENT-SPEED PIC X(21. DNM=47-120 BL-10 290 0121 US ZC 1,5 01058 002710 05 ENVI R-WAT ER- LEVEL PIC X. DNV,=47-152 BL-10 292 0123 US IC 01099 05 -rNIVIP.-STATE-ALTER.- PIC X. ------ -- DNM-47-i8Z BL-LO 293 0124 US IC 01060 002730 05 @-.IAVJ R-ALL OWED- ACT PIC X. DNM=47-212 BL=10 294 0125 US I.C Oi 061 002740 05 ENVIR-NUMBER-REPLIC PIC X(Z). DNM=47-242 BL=lo 295 0126 US 2C, -01062 FILLER PIC- X ( t5 I . DNM=47-274 BL=10 297 0128 US 15C 01063 002760 05 DA TF-liOD I F I ED PIC X18). DNM=47-208 BL-10 2A6 0143 US 8C 01064 002770 03 PEPLICATF-DATA REDEFINES DATA-BY-RECORD-TYPE. ONM=47-314 BL=10 230 0025 US OCLI26 ()t 06 5 -0077 80 RP-rF)LL EC T-S I Z E - PIC X(6). DNM=47-344 BL-10 230 9025 US 6C 1: 34 01066 002790 05 R0-Cl)l.t.ECT-SI7E-R REDEFINES RP-COLLECT-SIZE PIC 9(6). ONm=47-372 BL=10 230 0025 DS 6c 01067 002@00 05 7P-SA'.IPLE-SIZE PIC X(6). ONM=47-402 BL=10 236 0031 CS 6C RP-SAMPLP-S17E-P-REDEFINcS RP-SAMPLE-SIZE--PIC 9(6).------ DNM=47-429 BL=10 236 0031 DS 6C 17! 0106q 002q2O 05 RP-NUMBER- SPEC I E S PIC x(2). ONv,=47-458 BL=10 23C 0037 US 2C !,n 01070 002,330 05 RP-QUALITY PIC X. DNM=47-488 BL=10 23E 0039 US IC FILLER PIC X(103). DNM=48-000 BL-10 23F 0040 V S 103C 0!(172 GO 2 A 50 05 DATE-mnDIFIED PIC X(o). DNki=48-014 6L=tO 2A6 0143 US 8C 01 07-A 012 A A-0 03 SPECIES-DATA REDEFINES OA TA-BY-RFCORO-TYPE. DNM=46-040 BL=10 230 0025 US OCLI26 -- -------- ONm=48-068 BL=10 230 0025 US 5C 0 10 14 - 0 0 ? 9 70 0 5 S P E - T 9 T A L - C N T - - --PIC X(s). 011)75 DO 28 8) 05 SPP-Tr)TAL-rNT-R REDEFINES SPE-TI)TAL-CNT PIC 9(5). ONM=48-094 BL=10 230 0025 C S 5C 0 1 05 SP c-TOT AL- WGT DNM=48-122 BL=10 235 0030 US f)C 1076 002n9i PIC X(6). SP -TOTAL-W(,T-R-PEDFFINFS SPE--TOTAL-WGT PIC 9(61. ONM=48-148 BL-10 235 0030 US 6C 01077 E (31078 Or', 2Q 1.1 05 SPE-SAMPLE-C NT Pic X15). DNM=48-176 BL=10 238 0036 US 5C 01079 002920 05 SPE-SAMPLE-CNT-R REDEFINES SPE-SAMPLE-CNT ONM=48-203 BL=lo 238 C036 US SC 01 I)ql)-01)29 13 9 PIC 01081 002940 05 SPE-SAMPLE-WGT PIC X(6). ONM=48-232 BL=10 240 0041 US 6C ot 002 00295) 05 SPE-SAmPLE-WGT-R REDEFINES SPE-SAMPLE-WGT DNM=48-@259 BL=IO 240 0041 US 6C PIC 9(6).- 01014 on?"n 05 SPE-SUP.SAMPI.F-CNT DIC X(5). ONM=48-288 BL=10 246 0047 US 5C OIOR5 oo:?I)po 05 SPE-SUBSAMPLE-CNT-R REDEFINES SPE-SIJBSAMPLE-CNT DNM=48-318 BL=10 246 0047 US SC 01086 0 r) 2,190 - PIC 9(5). 121, 01087 003001 05 SPE-SU,9SAMPLE-WGT PIC X(6). DNM=48-350 BL=10 24B 0052 US 6C 01098 001010 05 SPE-SUBSAf4PLE-WGT-R REDEFINES SPE-SUBSAMPLE-WGT DNM=48-380 BL=10 248 C052 US 6C ()10 9 9 - 003 ')?0 -- PIC (; (6) Oi 013 1 003031) og @P E- IND IV-FORMAT-CODE PIC X. DNM=48-412 BL-10 251 0058 US IC, Oto9i 003040 05 SPE-TAG-TYDEI Pic X. ONM=48-446 BL=10 252 0059 US IC SPc_-N9R-TAGCE0l PIC X(5). ONM=48-472 -BL=10 253 0060- US SC 01003 00,3060 05 SPE-NRR-TAGGEDI-A REDEFINES SPE-NBR-TAGGEDI PIC 9(5). ONM=49-000 RL-10 253 0060 US @5C s. Wi 01094 Of) 3 0 70 05 SPE-TAG-TYPE2 Pic ONM=49-030 BL=10 258 0065 US IC, --01095-- SPE-MRR-TArGED? PIC X(5). 0 NM=49-056 BL-10 259 C066 US 5C 0101)6 0030Q') 01, SPE-4PR-T.%GGEOZ-R REDEFINES SPF-NBR-TAG.GEOZ PIC 915). ONM=49-084 BL=10 259 0066 US , 5C 01097 00310) 05 FILLER PIC X(72). DNM=49-111 BL=10 25E 0071 US 72C 0109 9 -- OO3IIO---O5-OATE-mOf)IFIFD--- PIC X(9). ONM=49- 125 OL-10 2A6 0143 US 8C -- - - 47 01099 0.13120 03 INDIVIDUAL-DATA REDEFINES DATA-P.Y-RECORD-TYPE. DNM=49-151 BL=10 230 0025 US OCLI26 01100 00'3130 o5 INDIV-CNT PIC X(3). ONM=49-182 9L=lO 230 0025 US 3C, 0 11 f) I -- -00 114.) (15 !N,')IV-ClJT-P REDEFINES INOTV-CP4T PIC 9(3). ON'M=49-204 BL=10 230 0025 US 3C OtIO2 Or)1150 j,39 @PEciFs-cnr)E3-6-CNT VALUE 001. 01103 00@160 o5 T*!DlV-t_T.H PIC X(4). ONM=49-261t BL=10 233 0028 US 4C 01104-903171---05 -It-.r)TV-LTH-R REDEFINES INnIV-LTH PIC 9(4).-- ONM=49-286 BL=10 233 0028 US 4C, 01105 0031 SO 05 INDIV-DETAILS. r)NM=49-310 BL=lo 237 0032 US OCL37 01106 00319) 07 INDIV-WGT PIC X(5). DNt4=49-339 BL=10 237 0032 US 5C APR 3,1984 INT NAME BASE DtSP RL01 DEFINITION 31 NMIOO 10.43.12 CVT-YMD6-IS-ZER0-------- -VALUE @__Ol 3?0 00111) o3 FILtER REOFFINES CVT-YMD6. DNM=58-451 BL=10 338 0121 US OCL6 01321 001,120 04 CVT-YM06-YEAR PIC ()(2). ONM=58-468 BL=10 338 OL21 US 2C CVT_ YllD6-M0NTH-------- PIC ON'M=59-000 BL=10-33A --0123 OS-2C- -YMD6-r)AY PIC 9t2). DNM=59-024 BL=10 33C 0125 US 2C 01323 001140 o4 CVT 77@- - - O13225---Orll6')-------O3 CVT-YM-L)l PIC DNM=59-O49---BL=IO 33E 0127 US 8C 01326 001170 88 CVT-YM')P,-IS-ZERG VALUE ZEROES. 01327 001183 03 FILLER REDEFINES CVT-YMD9. ONM=59-099 BL=10 33E 0127 US OCLB 21 CVT-YMDB-YEAR PIC-9( DNM=59-116 8L=10 33E 0127 US 2C 01329 001200 04 FILLER PIC X(I). DNM=59-142 BL=10 340 0129 US IC OA 01330 001?10 04 CVT-Y'!D%3-Mnr!TH PIC 9(2). DNM=,9-156 13L-10 341 0130 05 2C FILLER- PIC X( I DNM=59- 180 -- BL=10 343 - 0132 -DS IC 01332 001?30 04 CVT-YMOB-DAY PIC 9(2). DNM=59-194 BL=10 344 0133 US ?C CVT-ALPHA-AB3RV.;------------- ----J)NM=59-216 -6L=10 346 -0135 US OCL 13--21 1171 01335 001260 04 CVT-A'l8RV-M0NTH PIC X(3). DNM=59-247 BL-10 346 0135 US 3C 013?6 001?70 04 CVT-Aq@RV-PEPICO PIC X(2). ONM=59-275 BL=10 349 0138 05 2C 2J - i -CVT-AB8RV-f,)AY-YEAR-.-------- ONM=59-304 BL=10 343 0140 13 3 7 0 0 1 ? 2) - 0 4 05 0 C L 8 Fc 01333@ 00129.') 05 CVT-A'flBPV-rAY PIC Q(2). DN@1@59-338 BL=10 34B 0140 CS 2C 01 33<) 1) 0 13 05 CVT-AB8RV-COmMA PIC X(2). DN'74=59- 364 BL=10 34D 0142 CS 2C 4 0013 10 --- 05 CVT-AB3RV-YF4R------ PIC BL=10 34F-- 0144 05 4C 11341 110 13 21 04 FILLER RFI)EIIIIEI CVT-A@ 5RV-DAY-Y EAR* DNIM=59-419 BL=10 348 0140 US OCL8 lc@ 01342 CVT 1. 1 001)3D 05 -ABBRV-DAYR OCCURS 8 TIMES PIC X(I'). DNM=59-436 13L=10 34B 0140 US 1C n1344 Of) 13 51 03 CVT-ALPlf4-DATE Pic X(16). DN8=59-463 BL=10 353 0148. US 18C 01 345 (30 1163 01 Fli.LFR RFDFFINr-,S CVT-ALPHA-DATE. DNM=59-487 SL=10 353 0 8 05 O@LlB -01346-001370---04 CVT-oAYR nCCURS--18 -TIMES PIC- DNM=6O'OOO - 8L=10 353 0148 US IG - 01347 001381) 03 CVT-DAY-OF-THE-WEEK PIC X(q). DNM=60-021 BL=10 365 0166 US 9C nl 3 4 0 0 14 00-0 2 D AT E C A LC -D I FF P I C S9( 7)- Cf)MP-3.--- --DNM- 60-053- BL-10 36E 0175- US 4F 01351 1,w 12; I TUN L 76.' 23! 4E, 32 N%111)0 10.43.12 APR 3, t984 TNT NAME BASE DISP RL01 DEF I NI III ON -01 353---006@'9)-31----SEARCH-PRF.LOAD-KEY--------- VALUE- SPACES.- 05980000--- DNM-60-079 -BL=10 378 0001 DS OCL 18 01354 006' 03 03 SEARCH-ENVIR-PROGRAM-TYPE PIC X(03). 05990000 ONM=60-113 BL=10 378 0001 US 3C ')1 3'55 01)61 13 03 Sr-_-ARCH-ENVIR-START-LOC, PIC Y(10). 06000000 IINM=60-14P BL=10 3'q 0004 US 10C DIC Y, (0 1 06010000 ONM=60-163 - BL@10 335 CCJ14 US 5C )1357 06020000 01358 006140 01 V4Y-ENV I R- PRELOAD-REC. 06030000 DNPA=60- 2 17 BL=10 390 0001 CS OCL46 01359 ---- 001,@! 5) --13 -W',(-E4V TR-P RELOA D-K EY P I C X 1 18 06040000 DNM=60-253- BL=10 390- 0001 US ISC -VALUES. @01 360 006160 F! END-OF-ENVIR-PRELOAD VALUE HIGH 06050000 013161 006170 03 WK-ENVIR-PRCLOAO-DATA. 06060000 D4M=60-322 BL=10 342 0019 DS OCL28 --()13 6 ?-,- 6 1 WK-E-r@URAT ICN P TC -X 114) 06070000 DNM=60-356-- BL=10 3A2 0019 DS 4C, 01363 006,90 05 WK-E-GFAR-TYPE PIC X(031 06060000 DNM=60-382 BL=10 3A6 C323 US 3C 01364 Oc 6? 01) 05 WK-F-GEAR7PARMI PIC X(04). 06090000 DNM=60-409 BL=.0 349 0026 DS 4C X (r)4? 06100000-- OKM=60-437 -BL-10 3AD 0030 US 4C 01 365- PO' , 2 05 WK-E-GEAQ-PARM2 ----- -- PIC 01366 0067 23 0 ', WK-E-GEAR-PARM3 PIC X(04). 06110000 ONM=60-465 BL=10 3DI 0034 CS 4C ()I 3A7 00623) 05 WK-F-PIG PIC X(01). 061?0000 ONM=61-000 BL=10 385 0038 US IC, 013 6 R --OC 62 05 WK-E-TYPE-OF-TOW- P I C- -06130000-- ONM=61-021 -BL=10 386 0039 US IC - 01369 Or)6251 05 WK-F-80TTOM-TYPE PIC X(02). 06140000 ONM=61-050 BL=10 3B7 0040 OS_2C 01370 00 6:) 411 05 WK-E-BOTT OPA- PROF PIC X(01). 06150000 ONM=61-076 BL=10 389 0042 US 1C f)l 371 -- f) 0, 67' _7') 0 5 4'(-F-DE?T 4 P 1 C X 10 1 06160000 - DNM=61-105 BL=10 '3 @3 A 0043 DS 3C, Oli?2 0067111) Oq WK-E-STATE-ALTER PIC X(01). 06 1700CO DNM=61-128 BL=10 380 0046 DS ic 013,73 Ofl 6'@ 01 06130000 01374-00630@) 01--@ISR-OCC'JRS-FNVIR-PRC-LCAD---- PTf'.- S9999 CWIP VALUE 06190000 - DNM=61-157- tlL=10 3CO 0001 DS 2C 01375 0063 13 t' 06200000 01376 006320 01 TABLE-ENVIR-PRELOAD. 06210000 ONM=61-194 BL=10 3C8 0001 US OCL23000 01377 -0063 33--03 -ToNF3-ENVI R-PRFLnAD- ENTRY -OCCURS 500 TIMES---------- "220000- DNM=61-242--BL-10 3C8 0001 US OCL46-- 140 ASCENDING KEY TAB-ENVIR-PRELOAD-KEY 06230000 01379 016 -IX. 06240000 f)1379 0 f) f,i 5.) INDEXED By EPL 0 13 R 0---- -0 0 6'@ 6 0 0 5 T A B- E k V I R - P R F I -LOAO-KEY PIC X(18). 06290000--- DhM=61-281-- BL=10 3CS 0001 DS 13C 01 -ENV IR-PRELOAD-DATA 06260000 DNM=61-315 )19 -.81 00617') 05 TAI PIC X(28). BL=10 30A 0( US 28C 01 382 00,63po* 06270000 0 13 P 3- 00 61 1? 06280000 01394 006400 01 CnN'/ERT-DECIMAL-AREA. 06290000 DNM=61-353 BL=15 DAO 0001 DS (ICL 39 01385 006410 03 CONVERT-FIELD PIC X(61. 06300000 DNM=61-389 BL=15 DAO 0001 DS 6C, 4) 12IL-01 386-0f)6421_)-- 03--- TE ST-FT EL PIC X(6). 06310000-- DNM=(., 1-412-- - CL= 15 DA6 -0007 US 6C ---- 01387 00643.') 03 CrINVERTED-DECIMAL-12 PIC 1999999V999999. 06320000 DNM=61-435 OL-15 DAC 0013 U S t2c 01381 0,1, 1. 4 ') 03 Hot @,-cn*ivF!@s I ON PIC '9(6)V9(6). 06330000 ONM=51-465 BL= 15 0 f38 0025 US 12C 01 3@9 --0064 50 TARGFT-AP EA R ET)FF INES- HOLD-CONVE1 ST ON. 06340-300 - Df,,14=62-000 BL= 15 DB8 0025 US OCL12 ol -190 ')06460 05 1 TS PIC X(6) jUST RIGHT. 06350000 ONM=62-027 9t.- 15 DB8 0025 CS 6C 0 130 1 ('0 64 70 0 5 "U'AfIE R-DEC I MAL PIC X(6). 06360000 ONM@62-052 BL=15 DBE 003L DS 6C 0131)2 --- n064 1,11 - COUNT-UNITS 06370000 ONM=62-079 -BL-15 OC4 0037 (IS LC PIC Q . 013q3 00649') 03 CnUNT - Dr-C I M66 L PIC 9. 063BOO00 ONM=62-103 BL=15 DC5 0038 DS IC AA 0139 5 (1065 ir) 06400000 oo65;,o ol cntiVERTED 0-AREA. 01394 006500 03 NUMBER-OF-F I ELDS PIC 9. 06190000 ONM=62-129 BL=15 DC6 0039 DS IC (11.396 -DFC1MAL-HCL 06410000 DNM=62-155 BL=15 DC8 0001 CS CCL60 01197 0,16530 03 P S A '! P L E - S I Z C N V R T PIC f799999V99"99. 06420000 ONM=62-198 BL=15 OC8 0001 US lZC 13 9;1 1) 1) 5 4) ------ 03 - P P - C. P L L I- r T - S 17 r - C 11 V R T P TC 'gq9999V999999. 06430000 DNM=62-231 BL=15 0 Ol 4 0013 CS 12 C 013Q9 006550 03 SPE-SAPlPLE-WGT-CNVRT PIC 4999999V999999. 06440000 DNM=62-265 BL=15 DEO 0025 05 12C 1410 0061) 61 -13 SP--SU3SAYPLE-WGT-CNVRT PIC 999999v999999. 06450000 ONM=62--298 BL=15 DEC 0037 (IS 12C 03 01401---006571) ----r)3 - SPE-T(ITAL-WGT-CNVRT--- P IC, c99999V9909139. 06460000 ON'M-62-334 8L=15 DF8 0049 US 12C 01402 06470000 0140-3 0,069-0 11 LATIN-TAqLE-FfiTRlr.S. 06480000 DNM=62-366 BL=15 E08 0001 DS OCL31171 01404--0061,00--03---LATIN-NA.4E-TABLE OCCURS-427- TIPFES 06490000 DN.M=62--422 BL=15 E08- 0001 DS OCL73 0140 5 036610 ASCENDING KEY IS SPEC[ES-NUMSER 06500000 01406 @106620 JNU@XFCj BY LATIN-INnEX. 06510000 0 10.43.12 APR 3, t 9 84 INT NAME BASE DISP RLOI DEFINITION - PIC X(226). 06520000 ONM=52-454 -BL@15 E08 0001 OS 26C----- 01408 006640 0'; S PEC I c S-NUMSFR PIC X(10). 06530000 D101=63-000 BL=15 E22 0027 OSJOC 01409 Onbb53 0 5 S P E U I E S - NUM cl E R-,R REDEFINES 06540000 ONM=63-030 BL-15 E22 0027 CS IOC 3 -(,'1410 SPEC IES-NUM9FR P I C 9 ( 10) 06550000 0141i 006673 0 r. L AT I N -NA M, F PIC X(37). 06560000 DNM=63-062 BL=15 E2C 0037 US 37C 01412 0.066SO 01 ARRAN(',-'_-flCL0-AFZEA PIC K(90). 06570000 DNM=63-088 RL=23 700 0001 DS BOC 7 01413 f)r)6691 0 1- ARRAN'@C-RLOCK 06560000 ONM=63-118 BL=23 820 0001 05 0CL8 rlI 411 111,70,-, 103 ARR@NGF-S'31 PIC 59(4) COMP SYNC. 06990000 DNIM=63-14T BL=23 820 0001 US 1H 01415 0067 if) 03 ARRAWIF-ss? PIC S9(4) COMP SYNC. 06600000 ONM=63-171 BL=2-3 822 0003 US 1H 416- 00A-7 03 ARRANGE-L I MIT-'--- PIC 59(4) COMP SYNC. -06610000- DNM=63-195- -BL=23 824 0005 US IN 0141T 006731 03 APRANGE-LAST PIC S9(41 CCMP SYNC. 066?0000 ()NM=63-221 SL=23 826 0007 US IN 01418 00674)* 06630000 01419-- -006750 01---TA(,-RECAPT-TAGNBR-@------- 06640000 ONM=63-246- BL=23 828 0001 US OCL18000 .1147() 011676) 03 TA(,-R;:CAPT-TAG-NUMf3P OCCURS 3C.00 TIMES 06650000 DNM=63-2qg 5'-=23 828 0061 D S OCL 6 01471 006770 INDEXED BY TAG-- I NO EX. 06660000 0142 2 0067 PC) 05 - --T AG-R ECAP T-TAG-W M8 ER PIC X(6).c- 06670000 DNM=63-331 - BL-23 826 0001 --DS 6C r)1423 nn67 q3 -, 06630000 01474 006900 Di ADJ UST- ZERO-D ATE 06690000 ONM,=63-368 BL=2T E78 0001 CS 'OCL6 0670 ;)o DNM=63-400-- BL=27 E78 0001 DS 2C 01425 On6P 7F!PO-YY Pic 99- 0 0 -I- Ml PIC 99. 01426 W@66,70 03 ZCR, 0 6 7 i () 0 00 DhM=63-420 BL=27 E7A 0003 US 2C 014?7 00@,R,Ao 03 Z @ R 0- Ol PIC 99. 0 6 1) or) 00 [)NM=63-440 8L=27 E IC 0005 DS 2C 06730000 122' 01429 011) 159 50 0 6 74 00 00 01430 006860 01 ACTION-MESSAGES. 06750000 DNM=63-457 BL-27 E80 0001 OS OCL33 014 3 0 -4 %'('T- 49 D- P I C- X I I --V AL U E-- NOT ADDED-- 06760000 DNM=65-488--BL=27 E80 0001 US 11C C 0 BL=27 E86 0012 US 11C 01432 ot-) 6 S p 03 NOT-CHG PIC X(11) VAL11E *NOT CHANGED'- 06770000 ONM=64-0 01433 0()(11t 91 03 NOt-DEL PIC X(11) VALUE 'NOT DELETED'. 06750000 DNM=64-020 8,=27 EgS 0023 DS lIC ----Ol 434 -0069 03 -06790000 2 01435 006910 01 UPr)ATE-M=. SSAGES. 06800000 DNM=64-040 BL-27 EA8 oool DS OCL4 1 01436 006923 03 REC-AP0 PIC X(14) VALUE 'RECORD ADDED 06810000 C)NM=64-068 OL-27 EA8 0001 05 14C ------01437 PIC-X(14) VALUE- 'RECORD CHANGED' . 0692 00 00 - DNM=(jt-088 BL-27 EB6 0015 US 14r 1-2 01433 00 69 40 01 REC-DEL PIC X(14) VALUE 'RECORD DEILETED' . 06830000 DN.14=64- 108 GL=27 FC4 0029 OS 14C 01439 0 t@ 69 5') 06840000 0144 0-00 696) 1--UPDATE-E PR9R--,ME-SS-AGES-.---- 06650000-- DNIJ,=64-128 B L =.27 E05 0001 OS CCCL5 n14-1 01-6170 03 INVAL-CHG-CODE PIC X(19) VALUE 'INVALID CHANGE COOE'.06860000 ONM=64-165 BL=27 ED8 0001 US 19C *RECORD l)T '.06870000 DKM@64- 192 BL=27 E Ell 0020 OS 19C 01442 0')69 83 03 Nr@-REC PIC X(1'9) VALI,'E .4c ON FILE J --)1443--41069'),0 -03- RFC- AL PIC- X( 19) -VALUE 'RECORD ON FILE 1.068,30000 DNM=647211 BL=27 EFE 0039 CS 19C 06990000 01444 001003* 01445 n.)7011 01 ERROR-MESSAGES. 06900000 DNM=64-235 BL@27 F,@a Cool US OCL2565 1 4 4 6-0 0 7() 21 - Ol - F Lf)- Nn T- NU 4 F R I C- ER R . 06910000 DNM=64-262- BL=27 F18 - 0001 DS OCL45 01447 007031 05 FLD-NfA%lE-IJN-ERR PIC X(IS). 06920000 DKM=64-297 BL=27 F18 0001 US 18C 01449 007010 05 FILLER PIC X(27) 06930000 DNM=64-325 BL-27 F2A ooig US 27C T1 01449 - 007050 - VAL;JE '-DATA IN FIELD NOT NUMERIC 06940000-- 01450 0070 63 01 REPS-nONT-MATCH PIC X(451 (36950000 O.NM=64-339 SL=27 F45 0046 US 45C 01451 0070711 VALUE 'NWA.REPLIC.RECORDS NOT = FNVIR'.REPLICS OF XX 06960000 --()t45"--007r)8)-133-REPS-f)OINIT-k'ftTCH-R-PEOEFItIES PEPS-nONT-MATCH. 06970000 DP(M=64-367 --BL=27 F45 0046 US OCL45 0145@ 0,') 7 0 93 05 FILLER PIC X(42). 06990000 DNM=64-400 RL=27 F45 0046 US 42C 01454 007103 (35 ERP-4SG-REPS PIC XX. 06990000 DNM=64-414 BL=27 F6F COSS US 2C "i 01455-0071 05 Pir 0 7 r) 0 09 0 0 D rN, M = 6 4 - 4 3 9 BL-27 F 71 0090 US IC FILLER X. 01456 007120 03 SAMPLF-EXCEEDS-COLLECTION PIC X(45) 07010000 DNM=64-453 BL=27 F7? 0091 US 45C 011457 Q071 3') VALUE 'S.A"Pi. S17(123.456) GT COLLECTION SIZ( 123.456)1. 07020000 014',B------Of)71/,O----r)3-SAMPLE-FXCEeDS-CPLLECTICN-R REDEFINES --07030000 DNM=65-000- BL=27 F72- 0091 05 OCL45-- 459 0071 53 SAMPLE-EXCEEDS-COLLEClInN, 07040000 01460 0.0 7160 05 F I LL ER PIC x(Ill).. 07050000 DN,'1=65-043 BL-27 F72 0091 US 10C 34 NIMIDO 10.43-12 APR 3,1984 1 NT NAME, BASE DISP RL01 DEFINITION DN'M-65-057--BL-27 F7C 0101 OS 7C Ot462 007180 05 FILLFR PIC X(2C). 07070000 D@M=65-089 BL=27 F83 0108 C S ZOC 01 4f,3 71 19') 05 COLLFCT-SIZ pill 9qq.999 07030000 ONM=65-103 BL=27 F97 0128 D S 7C PIC X(I). ---- - ----- 07090000-- ONM-65-136 - BL-27 F9E 0135 CS 1C 1 1, 1, 4-- 0 --0 5 -- F I LL E R - - 07' 03 GRID-NnT-CORMATTED 01465 00 72 1 PIC X(45) 07100000 DN4=65-150 BL=27 F 9F O@36 DS 45C 01466 0072?0 VA1_UE 'GRID NOT CORRECTLY r-nRMATTED - XXXX OT110000 01467---007?3-3------03-CRtD-Nf)T-FOR-4ATTED-R- R@DEFINFS G;Zlf)-NOT-FORMATTED.------')7120000 --DN1M-65-1B1-BL=27 F91F 0136 GS OCL45---o 0! 4 6 9 00 7) 41 05 FILLER PIC X(31). 07130000 ONM=65-?17 BL=27 F9F 0136 DS 31C ;;-i 014',9 00 7@ 5f) 05 EPR-MSG-GRID PIC XXXX. 07140000 DNM@65-231 BL=27 FBE 0167 DS 4C Ol 471) 72 60 05 FILLER------ PIC DNM-65-253 - BL-27 FC2 0171 OS IOC 01471 00 72 70 03 SPECIES-OONT-MATCti Pit: X1451 07160000 ONM=65-Z67 BL=2T FCC 0181 CS. 4k,, 0 () 7? R 0 01472 VALUE Wl'I.SPECIES PFCCRDS(12) NCT = REP.SPEC.OF XX 07170000 -@---01473-----007201----03--SPcC!ES-t'),)NT-MATCH-R--REDEFI@4ES SPEC[ ES-DONT-MATCH.---- 07180000 r)NM=65-296 - BL=27 FCC t181 DS OCL45-- 1,' 61471 007100 05, FILLER. PIC X(20). 07190090 DNM=65-334 BL=27 FCC 0181 OS Z,OC. al (111,75 10 7 3 11 rvi N1W@_SPFC_R7c PIC 99. OT210000 ONM=65-348 BL=Z7 FEO 0201 OS 2C, 476--00732)----- 0-3 - FILLER----------- P I C -X 120) 07210000 DNM=65-373 -- BL=27 FEZ 0203 DS 20C 01477 007333 05 FRR-MSG-SPECS PIC Xx. 07220000 DNM=65-387 BL-27 FF6 0223 DS 2C 01478 00734) 05 FILLER PIC X(I). 07230000 DNM=65-4t3 BL=27 FFS 0225 DS 1C 01479 - 007' 50----03 - SUB- S I If-EXCEEDS-S AMPLE- PIC 07 24W.)(30 ON'A@65-427- BL=27 FF9 -0226- DS j 0@19 7161 VALUE SAMPL NMIIR(12345)'. 07250000 0 '1 4,10 '@,PEC 1)tj9SA1jP NMRP(123451 (,T 01 1-, P 1 007-170 03 S[II-ST"F-FXCEEz'?Fr,-SAtAPLE-R REDEFINES 07260000 DNM=65-463 BL=27 FF9 0226 DS OCL45 -StJ,-SIZE-EXCEFDS-SAMPLE 01483 007390 05 F I LLER PIC X(181. 072800OG ONtJ=66-000 BL=27 FF9 0226 CS 18C 01484 007403 05 S P E,' - S U B S A M P -N M' R R X PIC 9(5). 07290000 DNM=66-014 BL-28 OOB 0244. DS 5 C FILLER --------PIC DPWM-66-045 BL-2a 010 c249 a S 16 C -NAF 07310000 DNM@66-059 BL=28 020 0265 DS 5C v 0114,96 0071-23 05 SPEC-SAMPL BRX PIC 9(5). 01497 0,) 7 4 3 3 015 FIItER PIC x 07320000 DN'M=66-085 BL=28 02.5 0270 US IC 0 t 8 f) 0 7 4 40 ----03-SA14PLE-517E-EXC-COLLECTinN PIC ONM@66-099 - BL@_28 026 0271- DS 45C----- .371 1 Ol 499 0074 50 VALUE 'SPEC SAvPL,- %'MBR(12345) GT TOTAL NMBR(12345) 07340000 3@1 'T 0140 0 007460 03 SAMPLE-ST7F-G -CnLLErT-SIZE REDEFINES 07350000 DNM 66-138 BL=28 026 0271 DS OCL45 01401 SAMPLE-SIZE-EXC-C(ILLECTICN 05 FILLER 014Q2 00 74 80 PIC X(17). 07370000 DNY..=66-181 BL=28 0?6 0271 DS 17C 014<?3 007493 05 SPE-SAMPLE-NvBRX PIC 9(5). 07330000 Dl%',4=66- 195 BL=28 037 0288 DS 5C C 01494-----0()75 0----05-- F I LLER --------- - P I C X 116) 0 739 0000 DNM=66-224--BL=28 03C 0293 DS 16 01495 007510 05 SPE-TOTAL-N'AIBRX PIC 9(51. 074DO000 DNM@66-238 BL=28 04C 0.309 DS 5C 01496 007920 05 F I LL ER P I C. XX. 07410000 ONM@66-266 SL=28 051 0'314 DS ZC 17 0 149 7__ 007530 PIC X(45) 07420000 DNM-66-280 - BL=23 053 0316 OS 4SC-- 38i 014919 00754) VAI_U@ ISPE SUBSAMP WCT(1?3.456) GT SAMP WGT(123.456)#. 07430000 01 @-49 0(175 50 0 3 S1JP-WG@',T-GT-SAf1P-WGHT RFDFFINES SIJF)-WGT-EXCEEDS-SAMPLE. 0-141,0000 DNY,=66-315 SL=28 053 0316 DS OCL45 -f:IlLrR PIC X(16), 07450000 DNM@66-15? BL@211 053 0316 DI 16C .11 01501 007570 05 SPF-SUB-WGHTX PIC 9q9.999 07460000 DKM@66-366 BL=28 063 0332 CS 7C 54 53 .21 01502 007581 05 FILLER OTC X(14). 07470000 DNM@66-401 BL@28 06A 0339 DS 14C 01503 -- 0 () 7 590 0 5 S P F - S A M P - W G H T X PIC qc;9.999 0748OOO0----DNM=66-415 BL=28 078 0353 DS 7C ------ 01904 00 7 1) 0') 05 FILLFR PIC X. 07490000 ONM=66-451 BL=28 07F 0360 D S 1 C _-o 1:.: 015n9 007610 03 SAMPLE-W@T-FXCEFDS-TCTAL PIC X(45) 07500000 ONM=66-465 BL=28 080 0361 DS 45C T@ -0 5706--0076@)---VALUF ISPFC SAMPL-WGT(I23.456) GT TOTAL WGT(123.456)-t----O7510O.10 -IT 0 507 007630 03 SAKP-V.SHT-GT-TOTAL REOEFINPS SAMPLE-WGT-EXCEEDS-TOTAL. 07520000 DNM=67-000 BL=28 080 0361 DS OCL45 :zil i 00761-0 09) F ILLFR PIC X115). 07530000 DN,4=67-034 BL=28 080 0361 DS 15C 01508 015n9-007650 ----05 SPF-SAMPLE-WGHTX PIC Qrq.999 ----07540000 D@M=67-048 BL=28 08F 0376 CS 7C 01510 n07660 05 F ILLFR PIC X(151. 07590000 DNM=67-086 BL=28 096 0363 DS 15C 01511 007670 0 5 S PE-T 0 TL - Wr, 11 T X PIC gs9.999 07560000 DKM=67-100 BL=28 045 0398 CS 7C 671 C x - --- --- ----- 07570000 --DNM@67-136 BL-23 OAC 0405 - DS IC 01513 007690 03 TNVALTD@REC-FOR-CnOE PIC X(451 07536000 OKM=67-150 BL=28 OAD 0406 DS 45C 01514 007700 VALUE IT1115 RECORD TYPE INVALID FOR SPECIES FORMAT Xv. 07590000 71 NMIOO 10.43.12 APR 3,1584 INT NAME BASE DISP RLOI DEFINI 35 0 1515 -0077 11-03-1 NV AL I D-RE C -F UR-COGE-R- RED E F I N F S--I NVAtI O-REC-@-FOR-COO E.--- 0760 0000 NM=67 I83----6L=28-OAD. 0406 US 91,L 015 16 007720 05 FILLER PIC X(44). 07&10000 ONM=67-221 BL=28 OAD 0406 DS 01517 007730 05 FP.R-'1,SG-CODr PIC X. 07620000 ONM=57-235 BL=28 009 0450 ID S IC 3 015153 01717741)- 11-3-!NVALID-InDIV-FORMAT ------- PIC X(45) --------0763OOOO---DNM=6?-263 - BL=28 ODA- 0451 DS -45C 01519 0077SO VALUF %SPECIES CODE I OR 7 HAS DATA AFTER INDIV.LTH.4. 07640000 01520 O'D 7 7 6.1 03 IUPLICAT@_-I@,tr.)JV-RECS PIC Y(45) 07650000 DKM=67-293 BL=28 107 0496 DS 45C ---- THAN -OCCUR.OF-AN INDIV.RECORD KEY-CODEI.----- 07660000--- 17- -IAUqE 2 01522 O0777,93t 03 Iik0tV-LTH-DISCRF.P PIC X(45) 07670000 DXM=67-326 BL=28 134 0541 US 45C 015@)3 00779) VALUE 41-TH OF PID IND.PEC.LPSS THAN LTH.OF IST(XXXX)N. 07680000 --0 15 ? 4- 00780a--03 INDIV-t-TH-DISCREP-P. -REDEFINES INDIV-LTH-DISCREP.@---------07690000 ONM=67-356 -BL=28- 134 0541 --OS OCL45-------_:j 015255 OQ 79 10 05 FILLER PIC X(4C). 07700000 DKM@67-391 BL=2S 134 0541 DS 40C 01526 007820 05 ERR-MSG-LTH PIC Xxxxe 07710000 DhM=67-405 BL=28 15C 0581 US 14 C -DI 5? 7 --0070 30 05 F[tLFR--- PIC X'. DNM=67-429 .-Bt.=28-160- 0585 C S IC 01529 007640 03 Y EA 0 0 r S N T - M NT C 4 PIC X(451 0 7 7 3 00 0 0 DNM=677443 BL=28 161 05S6 CS 45C 117529 7 9 5 j) VALUE ISEQ. NBR. YEAR DOES NOT MATCH ENVIR.DATE YEAR#. 07740000 ____01 530 Xt45) ---DNM=67-4@3---BL=28-18E---0631 US 45C 01531 007670 VALUE INUM.INDIV.REC112345) NE SPEC SUBSAM. OF XXXXXI. 07760000 117, 03 SUBSAMPLES-DONT-MATCH-R REDEFINES 11532 0 1) 7 9 -,W.) SUBSAMPLES-DONT-MATCH. 07770000 DNM=68-000 BL=28 IBE 0631 OS 0(,L45 Ot 513----- F Itt ER P Ic x 1 14) ------0773 0000 0 NM=68-1339 BL-28 ISE- 0631 OS 14C@ ------- - -IRR- IN -R -CX 139999. -053 -3C ,1534 O.')7q,)Q 05 N Ut DIV , E PIC 077,10000 ONM=68 BL=23 1 0545 05 5C 01515 DO 7Q 13 05 F I L L F R PIC Xt2l). 0 713 0 00 010 DNM=68-032 BL=2@ IAt 06501 DS 21C 0153 6 00794n----------05 ERR-MSG-SUBSAM----__ PIC ONM=68-096 - BL=28 186 -0671 - OS 5C 01,537 00792.1 03 ANIL-DIST-FRROR PIC X(45) 07820000 DNM=68-t23 BL=28 IBB 0676 OS 45C 01538 007940 VALUE IDIS.TO ANL-OOES NOT INCR.AS AGE IS APPROACHED'. 07830000 -N13R-LFSS-- PIC XI 45) - ONM-68-t5 BL=28 1 E8 0721 US 45C 01540 007"@60 VALUE tTAG ON 2NQ INDIV. REC LESS THAN IST OF XXXXXXI. 07850000 131541 00 7q 70 03 TAG-NRR-LFSS-R REDEFINES -TAG-NBR-LESS. 07850000 ONM=68-175 BL=28 IE8 0721 OS OCL.45 7 1@y--01 542 X(39). 07137 DODO DNM=68-2021 BL=28-IE8 0721--- DS 39C 01543 0079qD 05 ERR-MSG-TAG PIC XW. .07980300 DNN1=68-216 BIL-28 2 0760 DS 6C 01544 OOR001) 03 TAG-lifIR-DISCREP PIC X(45) 07390000 '-ONM=68-240 BL=28 11 15,_ 0766 DS 45C 01545 00 90 10 ??Jr) TAG ---- I ST- JAGG NOT - NBR.SUBSAM.- -Or-- XXXX-1 1-.-- 07900000 - - 01546 0'19)23 03 TAr,-N71Q-rTSCREP-R REDEFINFS TAG-NBR-PISCREP. 07910(100 ONM=68-266 BL=28 215 0766 DS OCL45 01171.7 001")1D 05 FILLER Pic X(39). 07920000 W1=68-301, BL=23 215 0766 US 39C 54 3 PIC X(-@). DNM=68-315, CL-26 2 3C. 0805 - US 4C 01549 0 0 9153 05 FILLER PIC X(21- 07940000 DNM=68-339 BL=28 240 0809 DS 2C 01550 006060 03 IN,')IV-C,'!0NT-ERR PIC X(451 07950000 DNM=65-353 BL-28 242 0811 DS 45C I FOR TYPE - 3 OT960000 G1552 0 3 i@ 0 R 1 03 INDIV-1-INC-ERR PIC X(451 0 11 9 11 1110 00 W%M=68-381 BL=ZS 26F 0!556 US 45C 01553 0011090 VAL0= "INLIIV.LfNC P49R.NnT = I OR 2FOR TYPE 3 VORMATI. 07990000 3 It L;1-01 554-- -1 0':@ 10 3 --- ---- 33 MISSING-111DIV-DATA -----PIC X(45) - 07990000 L)NM=68-408 BL=28 29C 0901 -DS 45C------ -31955 00811 to VALUE- NO rNnIv.nATA(EXCP.LTH) FOR TYP.4 OR 7 FORMAT't. 08060000 01 556 0013123 03 N;3R-AN1L-DIST-GT-AGE PIC X(45) 08010000 DNM=68-436 BL=28 2C9 0946 US 45C VALUE INUMBFR DISTANCES TO ANL.GREATER THAN -ANL.-AGF'---O8O2OOOO 01558 0 0 8140 03 ANt_-t_TH-TO-Ef,GE-FRR PIC X145) 08030000 DNM=68-468 BL=28- 2F6 0991 DS 45C 01559 00131 50 VALUE 4ANL.LTH.T0 EDGE NOT = MARG.INCR.+DIST.'rO ANL.1. 0801+0000 08050000 Df;M=69-000--BL-28 323 --1036- US --03-AG=-LT-SPAWN-MAPK PIC X(45) @-015bl 0 0,11169 01561 009170 VALIJE 1It1DIV.AGF IS LESS THAN INOIV.SPAWN MARKS CNT.1. 08060000 01562 OORIP19 03 MISS ING,-ANNULUS PIC X(45) 08070000 DNM-69-030 OL-28 350 1.081 OS 45C 015.6 3-- -- 00119-9 VALUE I I ND I V. AGE STATUS = 2 BUT NO A4L.REC.FOLLOWqO 05030000-- 01 964 Q F3 2 00 111 1 ND- A r f- - S T A T - F R R PIC X 14 5 03')9 ().")DO DNM=69-058 BL=28 37D 1126 US 45C .01 565 009210 VALUE 4ANI40LUS DATA BUT INDIV. AGE STATUS NOT 2 0 8 111 r, 0 .3 0 Ito _01 5b6-"f32?3----03 -INVtLIr)-GEAP-MSG PIC X!451 - - OatIO3,)O D%11'4@69-087 BL-28 3AA -1171 05 45C da 01567 008?30 VALUE IGEAR TY0E 123 IS INVLD FOR PROGRAM 123". 09120300 7CO 0156.9 008240 03 INVALI0-GEAR-41SGX REDEFINES INVALID-GEAR-,MSG. 08130000 DNN=69- 116 13L-28 3AA 1171 US OCL45 36 NM 100 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION _008? 53 IL LER ----P IC X 110 1 08 14 0000 ONM=69-146-- BL-28-3AA -1171- US I OC 01569 ONM=69-160 BL=28 3B4 1181 US 3C 01570 0OP?6O 05 GE.AR-TYPFX PIC 99q. 03150000 01571 00 S? 70 05 f: TLLE R PIC X(29). 08160000 DNM=69-183 BL=28 387 1184 US 29C P I C- 9')9 . 081700-00 ----- ONM=69-t9T - Ct.=28 3D4 1213 CS 3C )157?---t 'c28O PROG-flUmrqR.( 01573 oop2no 01 INVALID-STA-11SG PIC X(451 08180000 DNM=69-221 BL=28 307 1216 US 45C 01574 oop"Ac) VALUE ISTAT19N NBR IZ345 INVALID FOR LOC 1234567890 08190000 REDEFINES IP4VALID-STA-MSG. 082GOO00 @OXM=69-249 BL=28 3D7 1216 US CCL45 115,76 0 1 @ 3 70 0 5 F I LL F R PIC X(12). 08210000 D,M=69-282 BLe2B 3D7 1216 US I2C 015TT 00@3 31 05 ST AT-N&T 9R X PIC X(5). 08220000 DNM=69-296 8L=28 3F3 1228 DS 5C 0 78---- 00 Hi 4a- ---0 5- F I LL rR PIC X ( 17) . 0 8 2 3 00 00 ONM=69-319 BL-28 3EB 1233 VS 17C 01579 00 P 151 05 START-LOCX PIC X(IO). 08240000 DNM=69-333 SL=28 3F9 1250 US IOC 14 015go OOS,36D 05 F I LL E k PIC X. 08250000 DNMr-69-356 BL=28 403 1260 US IC .15 I 5fQ 1 93 7O-----O3-STA R T- LOCI- E RR Or- P I C - X ( 4 5) 08260000 DNM-69-370 - OL-28 404 1261 US 45C 91 597 On R3 PO VALUE ISTART LnCAT. 15 INVALID FOR THIS PROGRAM NBR.9. 08270000 01583 orls?,Q) 03 TAG- TYPE R PIC X(45) 09230000 DNi4=69-398 BL=28 431 1306 US 45(; VALUE 15?r-CIES TAG--T'YPE AND NBiR.-TAGD. I NCON 51 STENT-- 08 29 00 00 - - - 1351 US 45C 01585 009410 03 NBR-TAGr,--D-E,R PIC X(45) 0830000C OhM=69-427 BL=28 45E 01586 0OR42a VALUE 'COLLECTION CNT- LESS THAN TOT. NBR. TAGGED 08310000 '24 00. 04 7@D ----03-- 1 N) I V-AGE- I NCnNS I S- ---- P [C X (4 51 08320000 -DNM=69-454 --BL=28-488 - 1396 - -CS 45 AGE TNCONSISTENCY AMONG VARS. "A 8 102 4 43 V A L UE 0 9 3 3 ' D 0 0 0159q 1) 0 F 11 51:) 03 IND I V- A' S r- S T A T - E R R 2 PIC X(45) 06*11-0000 DNM=70-000 BL=28 458 1441 US 45C !iy 0 1 59f) 0 0, R 4 6-7) - - 'VALUE 'AGE STATUS Nn AGE RECORDED 08350000 01591, n 4 03 1 N 0 1 V- A G F - S T A T - F R R 3 PIC X(45) 09360000 DhM=70-032 BL-28 4E5 1486 US 45C 01592 0084nD VALUE fA5F STATUS = 2 BUT NO AGE RECORDED 08370000 ----03-IN,,')IV-A@,E--STAT-ERR4------ PIC X(45) 08 3100 00 ONli-70-064--BL-28 512 1531--DS 45C-- 015q4 001 F15 00 VALUE 'AGE ST4TUS = 3 BUT AGE OR SPAWN MARK NOT BLNK 08390000 1576 US 45C 01595 or) 35 10 03 SPEC 11 S-GR OUP-1407 -FOUN P PIC X(45) 08400000 DNM-70-096 BL=28 53F 1521) 'SP@:CTES CODE- 1234567390 NOT FOUND - 1 N MFSPP- 084100 00 01596-- ") rl f -----VAL UF 4 01597 00 R5 30 03 SPFCIFS-rR-nUP-?40T-FrUND-R REDEFINES 08420000 DNM=70-132 BL=26 53F 1576 US OCL 5 01508 00154) SPEr[ES-GROUP-NnT-FOUND. 08430000 FILLER PIC X(14).-------O8440000 - DNM=70-173--BL-28 53F---1576 - US 14C 1016-01) 00@t@,63 05 spFc-COOE PIC Wo). 08450000 ONm=70-187 BL-28 540 1590 US 10C 0 1 & 0 1 00@570 05 FILL;:R PIC X(21;. 08460000 ONM=70-209 BL=28 557 1600 CS 21C b 0 ? -)0 9 5 8:) 0 3 lNVALID-SPECIES-CaDE-6- PIC X145) 064 T0000--ONM=70-223 BL=28 56C -1621 0) S 45C ')1603 009590 VALTIE 'INVALID SPECIES lNnlV FORMAT CODE OF 6 FOUND 08430000 0160, 00 P6 03 03 NONE Q!) AL -L TH- ANTI- MARG I N PIC X(45) 08490000 DNM=70-258 BL-28 599 1666 US 45C Ol /)o 5 00 __VAj ANNL -!4ARG 114-1- 08510000 ;;5 _k)E IWIT,11 ANNL-AGE = 0, A.14NL-LCTH-NE n 1 ,, or) - ' -AN -ft4r" IS -294 - i2z' no qfl ?0 03 LNGTH LAST N L (,NSI PIC X(45) 035!000() D N10, = 7 0 BL=28 5C6 1711 US 45C ; 01617 0.196 30 VALUE 'LTIA.T!@.@OGE LESS THAN LAST ANNJLUS MEASURF14NT1. 06520000 j- 08530000 ONM-10-331 BL-28 5F3 1756 0 S 45C ------ 01601 008_@4o -03 -ENV I R-LOC-NOT-FOUND PIC X(45) 01609 00 86 5) VALUE 'LOCATION 1234567830 NOT IN TABLE, CODES INVLDt. OS540000 01610 noF1660 03 ENV I R-LOC-NOT-FOUND-R REIDEFINES 08550000 DNM=70-360 BL=29 5F3 1756 CS OCL45 01611 --00 .16 ENVI P-LnC-NOT-FOUND. 08560000 01612 oov@go 05 F I Lt ER PIC X(9). 08570000 DNM=70-394 OL-28 5F3 1756 US 9- ,1 01613 0 0 81) 170 05 LnCATION-CODE PIC X110). 081,80000 DNM=70-408 BL=28 5FC 1765 US lOr 016 t 4-- 00 P,70')----05 PIC X(26).-------- 08590000 ONM=70-434-8L-26 606 1775- US 26C 01615 008710 03 NON-NUMERIC-CEAR PIC X(451 OF3600000 DNM=70-448 OL-26 620 1001 US 45C 01616, ol@i?21) VALU- lGEAiR-COPE XXX NOT NUMFRIC, REPLACED BY ZEROS 0861,0000 01617 REOEF INE S 0862 0000--- DNMz70-477 BLm28-620- 1801 OS OCL 45 4 0161P 00 @l 7 4 f) N rj N - N U i'l E R I C - G C AA 086300.00 :0, D00 01619 of) *17 50 05 FILLER PIC xilo). OV,64L 0 0 NM =7 1 - 000 BL=28 620 1801 US 10C 0 16 2 0-00 q7 60 05- INV-GF:AR-C0r)E---- PIC Xi 3 1. ---------oS65O0O0 DNM=71-014- BL=28 *62A 1811 US 3C 01621 008770 0 5 FILLER PIC X(32). 08660000 DNM=71-037 BL=21,1 62D 1814 DS 32C (451 08670000 D N M 7 1- 0 51 SL=28 64D 1846 US 45C 016?2 0011811) 03 '115 S I NG-CODE3-N!-lBR 2 PIC X 37 NMI 0 0 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION FOR -CODE-3-SPECIES- RECORD---*-.-- 01624 orl R8 00 03 ArF-CnNFLIrT PIC X(45) 08690000 D)NM=71-083 BL=28 67A 1891 DS 45C 2 Z! 01625 00 RA if) VALUE 'AGF 'CONFLICT BETWEEN INDIV ANNULUS RECORDS 1. 08700000 0 () R'-' -C)7!-!ATr-.-P.FCI-REC9-FPPrR PIC X(45) - -- -- 087!0000 DINM-71-1108-81.=20 6AT-- 1936 DS 4 5r_ 01627 00 RS 10 VALUE IENVR DATE(YYMMDO) 123456 GT RECPT DATE 1234561. O8T20100 q@ ECI-REC9-ERP2 REDEFINES r)ATl`-RECI-RFC9@ERR0R 08730000 DN14=71- 141 BL=20 6A7 1936 DS Of: 01628 f) 0 13 4 0 ol !?ATF L45 Ol 62.9 (19 8 98 50 05 F I L!_ E R -PIC WS). 0 8 74 00 00 BL-28 6A7- 1936 OS 18C 71 016-10 OORR60 n 5 ERR-FNVIR-DATE PIC 9(6). 08750000 W11=71-190 BL=28 689 Iq54 OS 6C 01631 OOPq7D 05 FILLER PIC X(15). 08760000 DNIM=-71-217 BL=28 68F 1960 DS 15C 01672-0088 PO- ----05 ERR-RECAPT-DATE PIC 9(6).- 03 77 0000 ON14=71-231 - BL=28 6CE 1975 OS 6C 01633 008191 03 RFCAPT-DAYS-OUT-ERR PIC x(411S 0"7800" DNIA=71-259 BL=28 604 1991 OS 45C 1141 0167,4 f)O 89 00 VALUE 'DAYS QUT(1234) NE CALCO GIFF BTWN DATE (1234)-. 08790000 f -01615 -- .10991-1 03 RECAPT-DAYS-OUT-ERR-R REDEFINES--RECAPT-DAYS-C-UT-ERR.------ 08900000- - Dt%M=71-291 -- BL=28 6D4 1981 DS 0 C L.4 5 01636 0 8);' 0 .05 F I L L E R PIC x ( 9 09810000 DINM=71-328 BL=28 6D4 1981 DS 9 C i 01617 on @q 31) n9 FRR-DAYS-00T PIC 1)1)99@ 08120000 DhM =7 1- 34 2 BL=28 6DD IP90 DS 4C 6 3 9 -001Q 4r)-----05 FILLER---- PIC ON'M=71-367 -3'1=28 6EI 1994 DS 27r, 7 -DAYS-DIFF DNM=71-381 BL=28 6FC 2021 OS 4C 1 01639 009951) 05 ERR PIC 9999. 03840000 01640 00-3960 05 FILLPP PIC X. 08850000 DINIM=71-404 81.=28 700 2025 DS IC ----03 ---TAG- NUMq R-E RR OR PIC X 14 5; 08860000 DNH=71-418- B L 2 Lq 7 0 1 2026 0 S 1,5 'C 01641 008970 2 -1 2. 0 (1 P (177,4561 IS NOT V&LID 089TOO00 @e, li VALUF ITA' NWAPER 6 4 1 -.10 119 1) 0 03 T AG , - N! VA3 R -c R P - R REDEFINES TAC@-NUMBR-ERROR. 0 .13 ii q 0 u) 0 11) DNM=71-1,43 RL-2b 7:)l 2026 OS OCL45 Ol 644 F ILLcR-- P fC x ( t2). 08-990000 DNM=71-471 BL-28 70i 2026 'DS IZC 01645 009010 05 TAG-NBP-ERROR PIC X(6). 08990000 F)NM=71--435 BL=28 70D 2038 DS 6C t24 01646 001021 05 FILLER PIC X(27). 08910000 D.NM=72-000 BL=28 713 2044 DS 27C 0 16 4 7 - -00 " 31) 3 - E NV I R - Q UP A T 10 N - F R R 0 Q PIC X(451 089 7 00 60 QNM=72-014 BL=28 T2F 2071 CS 45C 'WIT, r N tj E 08930000 0164R 00 90 40 V A L U H EAr,=O, DURATIn, BLANK, I.F.(12341 01 649 00905) 03 FNVIQ-0J2.ATION-ERR-R REDEFINES ENV IR-DUR AT I ON- ERROR. 03940000 DNM=T2-04T BL=28 72E 2071 DS 0CL45 -PIC X(37).----------O895()OOO DNM@7270,' 3 BL= 28 72E 2@)71 DS 3 1 C' 01651 (1,09070 09 FNVIR-DURAT-ERR PIC X(4). 08960000 DNM=72-097 SL=28 753 2108 DS 4C Of 657 001)080 05 FILLER PIC X(.4 08970000 ONM=72-125 BL=28 757 2112 DS 4C 3 ENV I q-NO-N-7ERO-GEAR- PIC X(45) 08990000 ONM=72-139 BL=28 75B 2116 -CS 45C 0 1 6 54 r) 9 i 0) VALUE 'WITH RrPLTC=O, GEAR NE 0, I.E.(1231 08990000 :4,t 01655 0091 ID 03 FNVIR-NON-ZERO--GEAR-R REDEFINES ENVIR-NON-ZERO-GEAR. 09000000 DNM=72-168 BL=28 758 2115 DS OCL45 2(@--- 05 FILLER- ------- PIC X(31Y. -----09010000--- 01NM-72-205 -BL-28 758 2116 DS 3 1 C 1 01657 00913) 05 ;_NVIR-NO-GEAR PIC XXX. 09020000 DNM=72-219 BL=28 77A 2147 DS X 01658 0()')l 40 05 F I tL F. R P I C X1111). 09030000 DNM=12-245 BL=23 77D 2150 DS 11C 011 -'@ 5 q - - 0 0 @1, 5,0 ------- 03 SPAWN-CO@WLICT PIC X(45) 09040000 - ONY-72-259 - BL@28 788 2161 0 S Ol 660 ocl3i 6) VALLIE 'INDIV SPAWN CNT(I.2) NE ANNL SPAWN CNT(12) 09050000 01661 0 9 1 7 0 0 SPAWlNl-CnNF-(_ICT-R RE)'-'FNES SPAWN-CONFLICT. 09060000 DNM=72-2R6 SL=28 768 2161 OS OCL45 FILLER------- PIC X116) DNN@=72-3i8-13L=28 i88 2161 IDS 16C - 01663 00ql'41 05 1 N 0 1 V- S P WN PIC xy. 09090000 DNNI=72-332 BL=28 798 2177 US 2(: -355 01664 or,),?? 0) 05 F I LL FR PIC X(20), 09090000 DNM=72 BL=28 7qA 2179 DS 20C 0 16 (15 00 9 ? 10 5 A N NL - S P W N - PIC XX. 0 9 10 0 r) 0 0 - ONJI'=72-369 BL=28 7AE 2199 DS 2 C t ;71 01666 00W 20 05 FILLER PIC X(5). 09tIODOO DNM= 72- 3P8 BL=28 780 2201 DS 5C r)l 667 r, Q 97 -3) 03 TAG- N11 tA3 ER-RE PE ATE D PIC X(451 09120000 DNM=72-402 BL-28 755 2206 [%S 41;C 'TAG 4.'4,3R(123456)-REPE@'TED-ACRIISS LINE NUMBERS'.-09130000-- 0166() 00911,50 03 TAG- NUMB FR -REP EATE D-R REDEFINES TAG-NUMBER-REPEATED. 09140000 DNM=72-431 BL:t2B 7B5 2206 OS' OrL45 01670 00 9? 60 05 FILLER PIC X(9). 09150000 DNM=72-468 BL=28 7B5 2206 DS 9C ----PIC X(6) 09160000 DNM=72-482 BL=28 78E 2215 DS 6C 0167? 00 9? 83 05 F I LLFR PIC xf@o). 09170000 DhM=73-000 BL-28 7C4 2221 DS 30C C16711 009791) 0 3 TAG-TYPE-ERROP PIC X(45) OqIqOOOO DNM=73-014 BL=28 7EZ 2251 CS 45C f) 16 7 4 0093 00 -_ ---VALUE 'THIRD TAG- TYPEI 1) FOUND W!THIN SPECIES GROUP--- 09190000 01675 W) ,, 3 10 03 TAG-TYPE-ERROR-R REDEFINES TAG-TYPE-ERROR. 09200000 ONM=73-038 BL=28 7E2 2251 D S OCL45 70 17_@ 01676 000320 05 F I LL F R PIC x15) 09210000 NM 7 3- 0 7 0 BL=28 7E2 2251 D S 15C @@10_4@3_12 APR 3, V984 INT NAME R BASE DISP RL01 CEFINITION7 167 7 Or)q3-30- -DNM=73-O84 BL-28 7FI -2?66 DS- Ic 01678 00133 40 05 FILLER PIC X(29). 09230000 DNM=73-109 BL=28 7F2 2267 DS 29C 01679 OOq351 03 TAC-.AND-SPE-CNT-ERROR PIC X(45) 09240000 DNM=73-123 BL-28 8OF 2296 CS 45C __01 6 P. 0 -0091 6a--- VAL U E--4N.UM TAG -RCPTt 12345)- GT- SPEC -RCC( 12345 ) TAG(X,"-o----- 09250000------ 01681 OOq37O 03 TAG-AND-SPE-C'JT-ERROR-R REDEFINES TAG-AND-SPE-CNT-ERROR. 09260000 DNM=73-157 BL=28 SOF. 2296 CS OCL45 0168? 00 93 SO 05 F I LL F R P!C X(13). 09270000 DNM=73-196 BL=28 SOF 2296 DS 13C 7 r) 16 13 ---(Ir)93 9,:) -ERR-TAG-CNTR----------- PIC X(5). 09280,900 ONM=73-210 BL=28 81C 2309 DS 5C 01694 0014f, " 0 53 F!LLFR PIC Xf14). O92qOO00 DNM=73-235 BL=2B 821 2314 DS 14C 016 P 5 (), o -, 1, 1') 05 EPR-SPE-CPITR PIC X(5). 09300000 ONIM= 73- 249 BL=28 82F 2328 OS 5C 0 1 6t 6 00 94 20 05 - FILLER- PIC X(6). DNM=73-274 BL=28 834 2333 OS 6C 01617 OOq439 05 ERR-TAG-TYPX PIC X. 0932.0000 ONM=73-288 BL=28 83A 2339 DS I C 01638 009440 05 FILLER PIC x 09330000 D N m = 7 3 -3 13 BL=28 8 3B 2340 DS 1C QI 6Sq ---009450--03 --TAG-OR-SPE-ZE *Ro-FI ELD----- PIC 09140000 I)NM=73-327 BL-28 63C 2341 OS 45C n1690 01?9461) VALU E ' 7 ER 0 1 N DATE FL D-ENV IR 1123456 RECPT ( 123456) 0935 00'60 0169 1 00 91, 70 03 TAG-OR-SPP-ZERO-FIELD-R REDEFINES TAG-ng-SPE-ZERO-FIELD. 093050000 DKM=73-361 BL=28 83C 2341 DS OCL45 01 69 2 -01194 80 --05---F I LL ER P I C X(23). 09370000 OKM=73-397 BL=28 83C 2341 DS 23C 17 01693 0()q490 05 7-ENV! R-DATE PIC X(6). Oq380000 DF%M=73-411 BL=28 853 2364 DS 6C 01694 0095011) 05 F ILLER PIC X(9). 09390000 DISM=73-436 BL=28 859 2370 DS 9C :21 6C DI 695 7-9,ECAPT-DATE--- ---------------------PlC X(6). 094DOODO DNM=73-450 BL=28 862 - 2379 DS nI 696 00'@! 20 05 F 111 ER PIC x 0'?41 QO 00 D.Nlj=73-473 BL-28 868 2385 05 1C 0161)7 DO 9 5 31 03 TAG-RFC@PTJ-DATE-CONFLICT PIC X(45) 09420000 ONM=74-000 BL=28 869 2386 OS 45C 01699----OO954O----VALUF '?.ERO-IN DATE--fIELO,-DAYS OUT NON5LANK(I234)----*o----- 09430000 23 016Q9 OOq951 03 TAr-RECAPT-DATE-CONFLICT-R REDEFINES 09440000 ONM=74-037 BL=28 869 2386 DS OCL45 01700 On956,1) TAG-RECAPT-DATE-CONFL[tT. 09450000 01 701 --0095 70 -0 5 -- F I LL E R P I C -09460000 DNM=74-079 OL-28 869 2386 - DS '38C bl -7(,'? n1*95 pl) 05 DAY-nUT-@ONFLICT 09470010 DNM=74-093 BL=28 88F 2424 DS 4C PIC XXXX. 1 01703 0099 99 05 FILLFP PIC XXX. 09480000 DKM=74-122 BL=28 893 2428 DS 3C MESSAGES-ADDED 2184-BY EFF .01705 001)610 03 DIST-TRAVELEO@-FRR PIC X(45) 09420000. ONM=T4-136 BL-28 896 2431 CS 45C 01706 001621 VALUE IST TRAVELED = 1234, BUT RECAPT LOC IS BLANK'. 09430000 0170 7 0096,30 _____Oz-gIST-TRAVFL E D-ERR-R- REDEFINES 0944 00 00 - ONM=74-166--8L=28 896 -2431 DS OCL45 01708 009640 DIST-TRAVELED-ERR 09450000 Of7n9 0001,51 05 FILLEP, pl@ X(16). 09460000 ONM=74-201 BL=28 896 2431 05 16C 4' 01710 OOq66O 05 ERR-f) STANCE-TRAVELED- I PIC X(4).- 09470000 ONM=74-215 BL=28 846 2447 DS 4C 01711 ()r) 96 70 05 FILLER PIC X(251. 09480000 ONM=74-249 BL=28 8AA 2451 DS 25C 017!2 009683 03 STATUS-NBR-ERR PIC X(45) 09420000 DNM@_74-263 BL=26 8C3 2476 DS 45C 0 1713-- 00 q6 VALUE-POR NON78LANK TAG NMRR,--STATUS MUST BE 172,3,1-.------09430000 01-714 00970D D3 FrRM-TlF-RFCORO-TYPF-lV-ERR PIC X(45) 09420000 DNM=74-290 BL=28 8F0 2521 OS 45C -o 1.: 01715 00971-1) VALUE IFOPM OF REEC TYPE IV 5 AND REPLICATE NOT= 001. 09430000 0171 6-O0972f)*--END,-OF- ADDI T ION- EFF- 4 --------- - 144, 14! eo as 47 j70j 7@1 39 'Nrl 13 0 Ir) .43 . 12 APR 3p 1964 TNT NAME BASE DISP RLOI DEFINITION __Ol 718---- 009740 D I- -LAS T-CONTROL.-- 09500000 DNM=74-329-- OL-28 920-- 0001 DS OCL24-- -357 BL=28 920 0001 CS IC 01719 009750 03 LAST-PEC-TYPE PIC X. 09510000 DNM=74 11720 009760 88 LAST-TYPE-FNVIR V A L 11 E '1'. 09520000 i@--017?1- -nO9770 qF L,@ST-TYPE-REPLIC----VALUF '2'. 09530000 D 1722 0 017 8') P .3 LAST-TYPF-SPECIES VALUE 131. 09540000 01723 Of")790 08 L A ' T - T Y P F- I N D I V VALUE 141. 09550000 17 2 4 1)0-901) P.9 LAST, TYP--A-,Nll)lJLUS- -- VA L UE '5'. 09560000 01775 Oc9R 11) R 8 1- A ST -T Y I> E - T A G- R F C A PT VALUE 19'. 09570000 01726 009120 03 LAST-PECORD-KEY. 09580000 ONM=75-065 BL=28 921 0002 OS OCL23 -0 t 7 ? T 0OnB3O---------O5 LAST-SEQ-NBR---------PIf --09590000 D,%'M=T5-096 BL=28 921 0007 - I) S X 0172c@ 00 9R 40 05 LAST-REP-NIR PIC X(2). 09600000 DNM=75-121 BL=28 9?8 0009 DS 2C -146 BL=28 92A 0011 CIS OCL11 01729 00 1? 150 05 LAST-SPECIES-GROUP. 09610100 DNM=75 01730--- 00'?;6.0 - 07 LAST-SPECIES-CODE PIC 09620GOO ON14=75-180 BL=28 92A 0011 OS IOC n!7?', OOQ@@70 07 LAST-SPECIES-STATUS PIC X. 09630000 DNM=75-210,@ BL=28 Q34 0021 DS IC 01732 mlq9 80 05 L A ST-L I NE - N9 R PIC X(3). 09640000 UNM=75-242' BL=28 935 (;0 ? ? DS 3C GI 733 00'?;t 9, 05 LAST-LINE-N?,R-R REDEFINES LAST-LINE-NBR PIC 999. -09650000 ONM=75-265 BL=28 S35 0022 OS 3C 01734 00990)* 0966.0000 01735 Ol 73 5 00",2)*--- -INC NIM133TAFA. PASS@;ORD IS ZPJn---- 017',7 OCIC1030* -------------- - ---------------- ------ 01 73;1 1.) ) rl 4. THESE THRE.E TABLES ARE DIV@DED AS FOLLOPS ----O173"--O0O05D*------- TABLE-, I- CIONTA 114S THE FIRST 3 ENTRIES FOR A WATER BODY-- n1740 0000161) TABLE-2 CONTAINS ENTQIES 04 THRU 42 FOR A WATER BODY -,4 01741 000070* TARLE-3 CONTAINS ENTRIES 43 THRU 138 FOR A WATER BODY 01742 01743 EACH TABLE MUST BE IN SEQUENCE BY LOCATICN NUMBER. 000103* 01744 -01745--- 0001 10* ---A'4 ENTRY-OCCURS IN TABLES ONLY If THEY HAVE ENTRIES 01746 000121)* TO BE ENTERED. 01747 --Ol 7 ft R 00AI 43 ---- -------- ------------- - --- -------------- - ---------- - --- -Q 749 000' 50 01 STATInN-TABLE-1. ONM=75-293 BL=28 938 COOT US OCLI8039 01750 000l'63 03 FILLER PIC, 9( 10) COMP-3 VALUE 0004060000. DNM=75-324 BL=28 938 0001 DS 6P 0 17 5 1 Oil -11 7,@) -- -- 01, F ILL ER -- P I C X ( 15) -VALUE 'CF!29 C630 ON!4=75-338- BL=28' 93E --C007 DS 15C 01752 00 0 181) 03 FILLER PIC 9( 10) COMP-3 VALUE 0100010000. DNM=75-352 BL=28 94D 0022 DS 6P 01753 0001 90 03 FILLER PIC X( 15) VALUF 1124 301 302 t. DNM=75-366 BL=28 953 0028 DS ISC (31754 n:)r@,? FJ@LER- PIC ?( I,-) ) C 0 MP -3 VA L ! IF 0 100 0200 00. DNM=75-380 BL=28 962 0043 - OS 6P- n1755 000121f) 03 FTLLFQ PIC X( 15) VALIJ@ 1306 3118 2-E_ ONM=75-394 BL=26 968 0049 DS 15C 01756 () () 0 2 2 ) (?l Ftl@L@P P!C, r, ( 10) COMP-3 V A! OF Oli@00310000. DNIM=75-408 11L=28 977 0064 O'S 6P 757--f,100? 30 FILL ER - PIC X( i5)--- - VALUE "I'OS 311 -312 ONM=75-422-- BL-28 97D 0070 DS 15C 01758 00024r) 03 FILLER PIC 9( 10 ) C,-,MP-3 VA@,UF 0100040000. DNM=75-436 BL=28 98C 0085 OS 6P 41 !4p 01759 A00250 03 FILLER PIC X( 15) VA I U Eu. ICS32 t. DNM=75-450 BL=28 992 0091 CS 15C Of)0263--- 03 -F-!LLER---PIC 10) CD@P-3 VALUE 0100050000. 01761 000270 03 DNM-75-464 -BL=28 SAT 0106 VS 6P FILLER PIC X 15)) VALUU 13160OCS41OCS47 4. DNM=75-478 BL=28 9AT C112 OS 15C 01762 000@80 07! FILLER PIC 9( 10 CnMP-3 VALUE 010 6000 DNM=75-492 BL=28 936 0127 DS 6P --l-01763 - F I L L ER -PIC-Xi 15) VALUE 1111S 112S 123- DNM=76-OOO -13 L = 2 8 90C 0133 0 S 15C 01764 000100 03 FILLER , PIC 9( 10) COMP-3 VALUE 0100080000. DNM=76-014 BL=28 9CB 0148 DS 6P 01765 00031) 0 3 FILLER PIC'X( 15) VALUE 1307 7. DN4=76-028 BL=29 901 0154 OS 15C n1766 03 rItLf-R PIC 10) COMP-3 VALUF C100090000. ONM=76-042 -BL@28 9FO 0169 DS 6P 01767 1),-) 0 -@ -3 03 FIL@EP PIC xt i5) VALUF tCS20 CS21 4. DNM=76-056 BL=28 9E6 0175 DS 15C DNM=76-070 BL=28 01765 0') Ol 4) F I L L E R PIC 94 10 ) COMP-3 VALUE 0101000000. 9F5 0190 DS 6P -01769--- ni)o'A5D--- -03 FILLER--PIC X( 15) - VALUE 1300 C517 ONM=76-084 BL=78 9 FB 0196 DS 15C c_ 01770 000369 03 FILLER PIC 9( 10) COMP-3 VALUE 0104000000. ()NM1=76-098 BL=28 ADA 0211 DS 6P 01771 Or) 03 70 Ol FILLER PIC X( 15) VALUE ICS22 s. ONM=76-112 BL=28 AID 0217 DS 15C J 40 NM 100 10.43. 12 APR 3,IS84 INT NAME BASE DISP RL01 DEFINITION BL=28 AIF US 6P ,)1-772--0001 03 F ILLER-- PI C-9 ( 10 1--C(;MP-3 VALUE -0108000000. DhM-76-126 01773 0003 93 03 FILLER P IC, X(15) VAL UF '313 ONM=76-140 BL=28 A25 0233 US 15C r!l T74 n.1. 114 01 03 F I L L E 1z PIC 9( 10 1 CCMP-3 VALUE 0111*000000. ONM=76-154 BL=28 A34 0253 US 6P !-Z-,--01775---- 00,0410 ------Ol FILLER PIC X( 15) VAL UE t314 3E 3ME- I.- ON14=76-168 - BL=28 A3A 0259 US t5C 01716 000420 03 FILLER PIC 9( 10) COMP-3 VAL-UE 0113000000. DNM=76-182 SL=28 A49 0274 US 6P 01777 00043C@ 03 FILLER P VALUE. -3 315 CS30 DNM=76-196 BL=28 A4F 0280 US I X' 15' IC I' ( ) .,,COMR-3 VAL UE 0114 000 00 DNM=76-210 8L=28 A5E 0295 C S 6P 0177R 0-10440 01 FILLER P C 9, 10 BL=28 A64 0301 0 S 15 0177Q 0 0 -14 51 03 rILtER PIC X(15) VALUE 1117S 318 319S 1. ONM=76-224 C 017q 0004 61 133 F ILL ;:R PIC 9( 10) COMP-3 VALUE 0114 0 200 00 ONM=76-238 BL=28 A73 0316 US 6P -0 C --017P 0006 71)-----03 FILLER PIC Y( 15)-- VALUE 1320 CS51 DNMm!76-252 BL-28 A79 0322 US 15 017R2 000480 n3 FILLER PIC 9( 10) COMP-3 VALUE 0114020100. DhM=76-266 BL=28 A88 0337 US 6P 1.) 17 8 3 00041Y) 03 FILLER PIC X( 15) VALUE 11 4 5 ON'4=76-280 BL=28 ABE 0343 05 ISC @-3 - 'FILLER PIC Q( 10) COMP-3 VALUE 0114 0202 01- DNM=T6-294 BL=26 Ago 0358-. US 6P 01785 r)r)()r 11 03 rILLE"Q P I C y (.15) VALUE '2 DNM=76-303 BL=28 AA3 0364- US 15C )is 01786 000@2D 03 FILLER PIC 9( 10) COMP-3 VALUE C200010000. DKM=76-322 BL=28 AB2 0379 DS 6P 787 -000531--03 'F ILL EP. PIC -X ( 15 VALUE -'49 T3 CRZ-- DNM=76-336 BL=28 A89 03135 - US i5c .7 01788 0005@1 03 rILLER PIC 9( in) COMP-3 VALUE 0200020000. DI\M=76-350 BL=28 AC7 0400 US 6P 4 01789 000550 03 FILLER PIC X( 151 VALUP !139 Sl 52 DNM=76-364 BL=28 ACD 0406 DS 15C 0 ----03 -- Plr-9f,10) -3 -378 BL=28 ADC 0421 US 6P I I 71;r) 0,0 95.0 F I )_ L CR COMP VALUE C200030000. DNM=76 i2D 01791 00,')Li 7) 03 FILLER PIC Xt 15) VALUE '153 S7 ss DINM=76-392 BL=28 AE2 0427 US 15C 11792 01)n5 81 03 r 11.1- FO PIC 9( 10 ) COMP-3 VA L LIE 0200040000. DNM=76-406 BL--:28 AF! O@42 DS 6P --ql 79 3 6009 , 9) ----1)3 FILLFR--PIC-)(( 15) VALUE 1140 152 129- 1 ONM=76-420 BL=28 AF7 0448 US 115C 01794 0 0 06 01 03 ':ILLER PIC 9( 10) COMP-3 VALUE 0200050000. Df%.M=76-434 BL=28 P06 04637 DS 6P 1138 -448 BL=28 BOC 0469 US 15C 01795 0005 11 03 FILLER PIC X( 15) VALUE 141 149 DNM=76 01 796 (10 06 ?0 ------03 F ILL ER -- PI C, 9( 10) COMP-3 VALUE 0200060000. DNM=76-462 BL=28 BIB 0484 US 6P 01797 01) 06 30 03 F I LL EP PIG X( 15) VALUE 1151 AS25 WI DNM=76-476 BL=28 B21 0490 US 15C n1798 000640 03 FILLER PIC 9( 101 COMP-3 VALUE 0200070000. DNM=76-490 BL=28 B30 0505 CS 6P )27 01 51 FILLER P I C X( 15) 0511 US I'c VALUE I127S 136 137 D NM= 7 7@ 000 BL=28 B36 5 371 110_1 -01900 000661 03 FILLER PIC 9( 10) COMP-3 VALUE 0200080000. DNM=77-014 BL=28 B45 0526 CS 6P 0180i 000670 03 rILLER PIC X(15) VALUE 1130S 142 150 1. DNM=T7-028 BL=28 B43 0532 OS 15C m 0547 01 [email protected] -03 F ILLEP- - PIC..9( 10) COMP-3 VALUE -02000q0000. - - -- 0. =77-042-- BL=28 B5A US 6P 01803 co C.5 90 03 PILLER PIC X( 15) VALUE 1126S Ell E12 1. ONM=77-056 BL=28 860 0553 US 15C :"J FILLER PIC 9( 10) COMP-3 VALUE 0200100000. ONM=77-070 BL=28 B6F 0568 0@ 6P .3 01804 n 0 1, 7 00 03 1 44 805----000710 ------03- ;::ILLIR- PIC X (151 -VALUE 18 AS26 A10 DN-M=77-084 BL=28 875 0574 DS 15C 0')()720 03 FILLER PIC 9( 10) COMP-3 VALUE 0200110000. DNIM=77-098 BL=28 B34 0539 CS 6P 01806. 01807 000731 03 rTLLER PIC Xf 15) VALUE I 27S 135 AS16 ONM=77-112 BL=28 L18A C595 0 S 15C '31 RO E4 00 0740 -0 3 F I L L ED PIC 9( 10) C00JP-3 V A LU E OP00120000. I)NM=77-126 13L=28 B99 0610 OS 6P 001)71V) 0 3 F I L I E R PIC X( 15) VA t@ UE 1144 144S AS33 1. ONM=77-14 OIA09 0 BLz28 2.9F 0616 05 15C 01810 000763 03 FILLER PIC 9( 10) COMP-3 V A L UE 0200130000. Dh V. = 7 T- 154 BL=28 BAE 0631 OS ;)P ---03-f:TLLr-R-- PIC-Y( 15) ---- --VALUE 1134 AS7 o. ONM=TT-168 BL=28 884 0637 US 15 1,1 01512 0@11 n7 80 03 FILLER PIC 9( 10) COMP-3 VALUE 0?00140000. DW4=77-182 BL=28 BC3 0652 US 6P 01813 0 0 07 90 03 F I 11. @ R PIC X( 15) VALUE 1145 145S 5 ONM=77-196 BL=28 BC9 0658 DS 15C 0I8I4--000B00----0`5-rILLER -PIC 91 10) COMP-3 VALUE 0 2 00 1600 00. ONM=77-210 BL=28 8 D13 0673 US 6P 01915 0000 to 03 FILLFQ PIC X(15) VALUE 131S 4 25 ON'M=77-224 BL::::?3 BOE 06?9 LIS 15C 01816 OOIR20 03 FILLER PIC 9( 10) GO MP-3 VALUE 0200170000. DN'4=77-238 BL=28 B E D 0694 US 6P 0181 7-- 001)A30 -03- FILLFR--PIC -X( 15) VALUr 125 125S 13 E)NM=77-?52 BL=28 BF3 0700 US 15C 01,118 000110 03 FILLER P 'I C 9(( 101) COMP-3 VALUE 0200180000. DNP,=77-266 BL=ZS COZ 0115 DS 6P e.i 17 _0 18 19 000,350 03 F I LLER P C X15 VALUE 146 1475 26 ONM=77-280 BL=28 C08 0721 US 15C 'R -3 VALUE 0201000000.- -- 01 13 2 0 -00f)" 60 3FILL, - PIC 9( 101 COMP DNM=77-294 qL=28 C17 0736 D S 6P f 01821 OOOQ70 03 F I L t- E R PIC X( 15) VA L UE IS 2S 4 D NM= 77- 30 8 BL=28 CID 0742 US 15C 018?2 0008so 01 FILLER PIC 9t 10) COMP-3 VALUE 0201020000. ONM=77-322 B L = 2 8 C2C 0757 US 6P Ef 40 111-7 131 P, 2 3-001P 03 F LLEP- PIC X( 15) VALUE 16 6 NIR I OXM=77-336 BL=26 C32 0763 US 15C OIR24 0,00901 03 FILLER PIC 9( 10) COMP@3 VALUE C201030000. DWA=77-350 BL=28 C41 0778 DS .6P 7C! 01825 or)r),)i) 03 FILtEP PIC X(15) VALUE 18 0 16 D NM=77- 364 BL=26 C47 0784 US 15C --- ------- F IN 41 N1 100 10.43.12 APR 3,1984 TNT NAME BASE OTSP RLOI CE 11 T ION ILLER- - PIC- 9( 10) CCMP-3 VALUE - 0201040000. ONIM= 77-3TS BL= 23 C56 @- 0799 -DS, 6P __j 01977 000030 03 FILL ER PIC X( 15) VALUE '15 012 41. DNM=TT-392 BL=28 C5C 0805 US 15C 01828 00091.0 03 FILLER PIC 9( 10) COMP-3 VALUE 0201050000. DNM@7T-406 BL=28 C6B 0920 US 6P FILLER-- PIC-X( 15@- VALUE #8 9 ONM=77-420 -'RL=28 C T1 0826 US 15C 01830 000960 03 FILLEP PIC 9( 10) COMP-3 VALUE 0201060000. DkM-77-'434 BL=28 C80 0541 US 6P 01631 Or) r19 70 13 FILLER PIC X(15) vil L U 0- '17 D,114=77-448 BL=28 C86 0847 US 15C 7 0 NM=77 OIP3? 03 FILLER PIC 9i 10) COMP-3 VALUE 0?0108000 D' -462 BL=28 Cq5 0862 US 6P 01833 0009IQ 03 FILt ER PIC X( 15) VAL UE 'S 19 nNY,=77-476 BL=28 C9B 0868 US 15C 01834 00 ion) 03 r II-L ER PIC 9( 1,)) f0mP-3 VALUE 0?01090000. DN4=77-490 BL=28 CAA 0883 US 6P U 5 --0 183 5 -001011 ----03 rILLER--P!C -XI 15) VALUE 49 10 24 0 . - W1=78-000 BL=28 CBO 06,39 S I C 01836 00 10 ?0 03 FILLER PIC 9( 10) COMP-3 VALUE 0201100000. ONM='T8-014 BL=28 COF 0904 US 6P 01937 001033 03FILLER PIC X( 15) VALUE 111 7 20 0 I)NM=78-028 BL@_-28 CC5 0910 US 15C .,,j 01833 -- 00 11) 40 FILLER PIC -9( 10) COmP-3 VALUF 0201120000. DNM=78-042 BL=28 CD4 0925 US 6P 01839 0 0 10 5) 01 FILLER PIC Y 1 15) VALUE '3 NR9 NRIO DNM=78-056 BL=28 CDA 0931 US 15C 01840 001060 03 FILLER PIC 9( 10) COMP-3 VALUE 02011?0100. ONM=78-070 BL=28 CE9 0946 US 6P _01 P41 -0010 71 ---- 03 7: TLLER --- PT C- Xf 15) VALU@ 12 - - - DNI@=78-084 BL=28 CEF 0952 OS 15C .01842 0010[u) 03 FJLLFP, PIC 9( 10) COMP-3 VALUE 0201120200. ON'M=78-098 BL=28 CFE 0967 US 6P 01843 0,1, 1, ') 9 3 03 FILLER PIC Xt 15) VALUE 1 17 !)NM=78-tIZ BL=28 D04 0973 US 15C 01844 0011 Of) 03 FILLER PIC 9( 10) COYP-3 VALUE -0201130000. DNM=78-126 BL=.28 D13 0998 US 6P 123 01,845 00 i i ill 03 FILLER P!C X( 15) VALUE 19 DNIM=78-140 BL=8 D19 0994 US 15C 01 8 4 6 00 1 03 F ILL ER PIC 9( 10) COMP-3 VALUE 0201130100. DNM=78-154 R,=29 C, 2 8 1009 OS 6P 013147- Of)! 1 '39 -03 F 11A.FR -PIC Xf 15) - VALUE 04 -- - DNM=78-168 BL=28 02E - 1015- US ISC 01 .9453 00 114.) 13 FILLER PIC 9( 10) COMP-3 VAL UE 0201140000. DNM=78-182 BL=28 D30 1030 US 6P 01 849 001151) 03 FILLER P I C, X( 15) VALUE 13 ONM=78-196 -BL=29 D43 1036 US 15C 1: -.LLER---PIC 9( 10) C0.11P-3 VALUE 0201150000. DNM=78-210 BL=28 D52 1051 US 6P 01851 001170 O'A FILLFR PIC X( 15) VALUE 11 ONM=78-224 BL=28 D 58 1057 US 15C OIA52 0 0 11 R -03 FILLER PIC 9( 10) COMP-3 VALUE 0201160000. ON11=78-238 BL=28 D67 1072 6P 0 1 P, 5 -3- _002 19) 03 FILI EP,-- PIC X4 I VALUE 06 - ONM=78-252 BL=23 D6D 1078 US 15@ 01@54 001?00 03 F ILL ER PIC 9( 10) COMP-3 VALUE 0201170000. ONM-?8-266 BL=28 07C 101)3 US 6P PIC X( 15) *11 -280 1099 US 15 01855 0011.10 03 FILLFR VALUE ONM=78 BL=28 082 C ---OIA56 -00'229 03 FILLFR--PIC 9( 101 COMP-3 VALUE OK!v=78-294 BL=28 D91 1114 US 6P 15 to 1. -309 BL=28 D97 1120 US 01897 00 12 30 13 FILLER PIC X( 15) VALUE D.N"M = 7 8 Isc 01859 OC. 12 41 03 FILLER PIC 9( 10) COMP-3 VAL UE 0201190000. ONM= 78- 32 2 BL=28 DA6 1135 CS 6P 0' R 19 001'50 -03 FILLER- PIC X( 15)-- VALUE 114 06 01\'M=7S-336 BL=28 DAC -1141 US 15C 01 RAO 001260 03 FILLER PIC 9( 10) COMP-3 VALUE 0201200000. ONM=78-350 BL=28 D3B 1156 US 6P 13" 01861 00 12 T) 01 FILLER PIC XtI5) VALUE '13 D5 DNM=78-364 BL=28 DC1 1162 US 15C -)136 2 D 0 12 F, ONN=78-378 BL=28 000 1177 US 6 P I . --r 0- 03 FILLER --- PIC 9( 10) COMP-3 VALUE 0202000000. nIP6.1 0 90 0 3 FILLER PIC X( 151 V f%L IJE 114S 15S 16S 1. DNV.=79-392 BL=28 DD6 1193 US 15C on PIC 9( 10) C OMP-3 VALUE 0202 0 100 00 0I Fi(,4 00 1 93 F I L L F.R OKM=78-406 3L=28 DE5 11`38 Q S 6P 812 B15-- I. -_ - -_ 01 A65 0 13 10-03 -FILLER---PIC- X 1 15) VALUE 113 ------- ON.4=78-420 BL=28 D E8 1204 US 15C 01866 001320 03 FILLER PIC 9(10) CCMP-3 VALUE 0202020000. ONM=73-434 BL=28 UFA 1219 US 6P 01867 001311 03 FILLER PIC X( 15) VALUE 118 6. DNM=78-448 BL=28 E10 1225 US 15C I 13-,q --n01340--- -03 FILLER PIC 9( 10) COMP-3 VALUE 0202030000. DNM=78-462 BL=28 EOF 1240 US 6P 01 86p 001351 133 FILLER PIC X( 15) VALUE 117 21 B6 0. DNM=78-476 BL=28 E15 1246 US 15C 01 J370 00 13 6.) 03 FILLER PIC 9( 10) CO PJP-3 VALUE r202O4OOOO. f)','M=78-490 BL=28 E24 1261 US 6P 018 71----0013 73 ------ 03 FILLFR--PIC-Xf 15) VALUE 15 CI DNM=79-00O -BL=28 E2A 1267 US I 5C 01872 001381 03 FILLER PIC 9( 10) COMP-3 VALUE 0?02050000. ONM=79-014 BL=28 E39 1282 US 6P OIP73 001399 03 FILLER PIC X( 15) VALUE 112 LF1 LF2 DNM=79-028 BL=28 E3F 1288 US 15C -01874--00 FILLER PIC 9( 10 )- COMP-3 VALUE 0202060000.. DNM=79-042 BL=28 ELIE 1303 US 6P n1875 Or', 14 1 03 FILLER PIC X( 151 VALUE '19 1 16 c D N M = 7 9 - 0 5 6 BL=28 E 54' 1309 r, s 15 01976 00 14 710 03 FILLER PIC Q( 101 CCMr-3 VALUE 0?02070000. 0 N M- 79- CHO BL=28 E63 1324 US 6P 01 P ---')0'4 3) 03 FILLER PIC Y( 15) - -- VALIJF 121 DN4=79-064 BL=28 E69 1330 US 15C, .77 01878 00 14 40 G3 FILLER. PIC 9(10) COMP-3 VALUE 0202080000. ONt'.=79-098 SL=28 E78 1345 CS 6P nI97q 001450 03 FILLER PIC X( 15) VALUE 12 4 29 1. DNM=79-112 BL-28 E7E 1351 US i5c 42 NMIOO 10.43.12 APR 3PI984 INT NAME BASE DISP RL01 DEFINT710N L O188G____O')I46,9---G3- FILLER---PIC-9( 10) DNM=7q-126-- BL-28 E8D 1366-- US 6P '30 DNM=79-140 BL=23 E93 1372 US. 15 C 01881 001470 03 F ILLER, PIC X( 15) VALUE 01,9'2 00 14 80 03 FILLER PIC 9( 10) COMP-3 VALOE 0202100000. DNM=79-154 BL=28 E42 1387 US 6P ---- - -- 03 FILLER PIC- Xf 15 )---- -- VALUE '10 ONM=79-168- BL-28 FA 8 1393 US 15C ------ ')I @.?4 00 Ill 0") 03 FILLER PIC 9( 10) COMP-3 VALUE 0202110000. DNM=79-182 BL-28 E87 1408 US 6P 01.9gs r,015 1.,) 03 r YLLCR PIC X( 15) V A L till Is DNM=79-196 BL-28 EBD 1414 US 15C 0 18 R 6 --0 0 15 2 0 F 11. L E R - PIC 9( 10)-COMP-3 VALUE 0 2 0 2 12 0 0 0 0. ON M = 7 9 - 2 10 BL=28 ECC 1429 US 6P OIPR7 Q 0 1 5, 31 D3 FILLER PIC X( 15) VALUE '9 CNM=79-224 BL=28 ED2 1435 US 15C 01 A P, A -001540 03 FILLER PIC 9( 10) CUMP-3 VALUE 0202140000. DNM=79-238 BL=28 EE1 1450 CS 6 P 0 1 PC 9-00 15 5'3---()3 FILLER-- PIC -X( 15) VALUE 16- C6 2 4-- DNM=79-252 6L=28 EET 1456 US 15 C - 01 RQO 001560 03 FILLER PIC 9( 10) COMP-3 VALUE 0202150000. ONM=79-266 BL=28 EF6 1471 US 6P 14 12! 01801 001570 03 FILLER PIC X( 15) VALUF '19 20 DNM=79-280 BL=28 'E FC 1477 D S ISC 111 99 2 ---- Of@ 15 8) 03 F 11. L F P. PIC 9( 10) COMP-3 V AL UF 0 203 0000 OO._- 0,',M=79-294 BL=28 FOS 1492 US 6P OIP'-3 or) i5 qo 03 F 11. L F 0, VIC Xt 15) VA L UE '?6 25 BF2 DNM=79-308 BL=28 F11 1498 US 15C 01-994 001601) 03 FILLER P I.C 9( 10) COMP-3 VALUE 0203010000. DNM=79-322 BL=28 F20 1513 US 6 P 1-.--01895 ----0016 10----03-FILLFR PIC X 1 15)- VALUE -'14 CINP-79-336 BL=28 F26 1519 US 15C OIP96 001b2) 03 FILLER PIC 9( 10) COMP-3 VALUE 0203020000. DKM=79-350 BL=28 F35 1534 US 6P OI8q7 00163) 03 FILLER PIC X( 15) VALUE '15 DNM=79-364 BL=28 F36 1540 US 15C 000 ------ -Cr 0204000 - ------- DKI",=79-378 --BL=28 F44 - 1555 US 6P OI8QS 40 )3 FILLER PIC 9( 10) ,MP-3 VALUE O)Pqq 00 If, 5) r) 3 FILLER PIC X ( 15) VALUE 127S 29 32S 1. ONM=79-392 BL=28 IF 50 1561, US 15C 211 01900 oo 1,0 0, 3 FILLER PIC 9( 10) C C. M P -3 VALUE 0204010000. DNM=79-406 BL=28 F5F 1576 US 6P 4-@ 01901-- 0 1116 T) -03 P I L L E R PIC-X( 15) VALUE 131 .-2 30 --1. ON*M=79-420 BL=28 F65 1552 US 15C -3 02040200CO. DNM=79-434 01902 001680 03 FILLER PIC Q( 10) COMP VALUE BL=28 F74 1597 US 6 P O1q03 001691) 03 rILLER PIC X( 15) VALUE 95 Al DNM=79-448 BL=28 F7A 11S03 US 15C ONM1=79-462 BL=28 F89 1618 US 6P -01994 -- 00 1700 ----03 FILLER - PIC 9( 10) COMP-3 VALUE- 020403-0000. OIL 905 ooi7l) 03 lit LER PIC X( 15) VALUE 14 A4 A6 ONM=79-476 BL=28 F $3F 1624 PS 15C 01 9(16 001720 03 FILLER PIC 91 10) COMP-3 VALIJE 0205000000. r)NM=79-490 eL=28 F9E 1639 US 6P 11_1=__Ot1?O7----OOI73)-- ----O3-v-ILLFR -PIC-,Xl 15) VALUE 133S 35 - --I DNM=80-000 BL=28 F A 4 1645 D S 34S 15C 019(18 00 1740 03 FILLER PIC 9(10) COMP-3 VALUE C205010000. ONM=80-014 BL=26 FB3 1660 US 6P 01909 001750 113 FILLER PIC X( 15) VALUE 112 DNM=80-028 BL=28 FB9 1666 US 15 C 01911)-- 0017 60 03 F ILLER - PIC -91 10) CCMP-3 VALUE- ONM,=80-042 RL=28 F C8 1681 US 6P -056 BL=2B FCE 1687 US 15C 01911 001770 03 FILLER Pic X( 15) VALUE 12 16 18 ONNI=80 '12,1 01912 OOt78O 03 FILLER PIC 9( 10) COMP-3 VALUE 0205040000. DNM=DO-O7O BL=23 FOD 1-,02 CS 6P 43 .1 i 03 FILLER-- PIC -Y jr,)-- - VALUE 04 7 9 DNM=80-084 BL=23 FE3 1708 US 15C I P 0 0000 OIqI4 ooi9no 03 FILLER PIC 9(1 10 CUM -3 VALUE 0205 5 ONM=80-098 BL=ZB FF2 1723 US 6P 01915 001810 n3 F I L L E 0, PIC X(15) VALUF 11 6 @3 9. ONM=80-112 BL=28 FFS 1729 US 15C :471 019 16 0 0 1 F3 2 9 ----0 3 - r I L L E 0 PIC 9('10) COMP-3 VA I. U F. 0 2 0 5 0 6 0 0 0 0. -- -- DNM=80-1?6 PIL=29 007 1744 US 6P -@J 01917 OPIR31 03 FILLER. PIC X(15) VALLIF 410 it Il f. DN@=80-140 8L=29 000 1750 US 15C 0!913 ()')1-140 n1 F I I 'L P ? PIC 9f 1 ()) COMP-3 VAL UE 0205070000. 0NM=,'.s0- 154 BL=29 0 IC 1765 US 6P FILLER- PIC X ( 15 VALUE 121 DNIM1=80-169 BL--29 022 1771 US 15C_ 01920 on 1861) 03 FILLER PIC q( 10) COMP-3 VALUE 0205080000. DNM=80-182 BL=29 031 1786 US 6P ()Iq?I 001870 03 FILL@R PIC X( 15) VALUE 122 DNM=SG-196 BL=29 037 1792 US 15C 019?2 f.) 0 18 1,'.) E R PIC Q( If) ) COMP-3 VALUE- 0206000,100.------- DNM=80-210 RL=21) 046 1807 US 6P FILL 01923 001@93 03 FILLER PIC W ( 15) VALUE 139S 41 40 1., ON.4=80-224 , BL=29 04C 1613 US 15C 01924 OOi9OO 03 FILLER PIC 9( 16) COMP-3 VALUE 0206010000. ONM=80-238 BL=29 05B 1828 CS 6P lot FILLER - P I C --X 1 15) VALUE 14 - 45 44 --t DN14=80- 252 'o 01975 Of) 19 I)--f'3 -BL=29 061 1834 US 15C 1.111 1 ") I 9;,o 03 FILLER PIC 9( 10) COMP-3 VALUE 0206020000. ONM=80--266 BL=2� 070 1849 US 6P 01927 001933 03 FILLER PIC X( 15) VALUE 12 6 8 ONP.=80-280 BL=29 076 1855 DS 15C @Z- 01 1? 7 cl -00 1 P 41) 03 F!,,.LPR --PIC- 9f 10) -CO.MP-3 V@LUE 0?06030000. DNM=80-294 BL=29 085 1870 US tP 01,Q29 00i 950 01 F I LL ER PIC X(15) VALUE 13 5 7 DNM=80-3,)R BL=29 088 1876 US 15C 01930 0') 19 AID 03 FILL ER PIC 0( 10) COMP-3 V AL UE 0206040300. ONM=80-322 BL=29 09A 181@1 US 6P 42 L '31890 oj_@j OOJQ70- 0'3 FILLER-- PIC X( 15) -- V A L UE 11 42 11-L ONM=80-336 BL=29 OAO 1897 US 15r 00198) OAF 1912 CS 6P 01932 01 FILLER PIC 9(10) COMP-3 VALUE 0207000000. ONM=80-350 BL=29 01933 001990 03 FILLEP PIC X( 15) VALUE 149 50 29 1 . ONM=80-364 BL=29 OB5 1918 US 15C 43 NM 10 0 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION 934' 1 t L ER -P I C - 10)- COMP-3- VALLI E 02070l0000o----.------ 0 NM-80-37 8 - OL-29 OC4 - 1933 US 6P z 01935 002010 03 F I LL F R PIC X( 15) VALUE 1 4 5 OKM=80-392 BL=29 OCA 1939 US 15C 01, 93411 002070 03 F I L I r P. PIC SIC 10) CCMP-3 VALUE 0207020000. DNM=80-406 BL=29 OD9 1954 US 6P Ol 93 7- 001,203f) ----03 r ILL ER - PIC-Xtt5)------ - -VAL.LJE--%2 ----3 - DNM=60-420- -BL=29 0 OF -1960 IS 15 olq38 oo2n,-a 03 FILLER PIC 9( 10) COMP-3 V A L t J E 0207030000. DNM=eO-434 BL=29 OEE 1975 US 6P 01939 0020 51) 03 rILL.FR PIC XI 5 VALU7: 7 DN,4n8O .448 BL=29 OF4 1081 US 15C C194f)---- 002060 03 F CR-- PIC 9( 10) COMP-3 00 DNV=80-462 BL-29 103 1996 PS 6P VAL;) 01941 O'Y>070 03 F -LER PTIC X15 E 146S 54 2 It. ILL ( ) E- 02080001 DNIJ=80-476 8 L= 29 109 2002 US 15C It, V4LU @10 .01942 0020AI 03 F I (.I. ER PIC 9( 10) CCMP-3 VALUr 02080,00200. 0 N'%' = SO- 49 0 BL=29 118 2017 US 6P !11 0 194 1-- F I L L "P -P I C- X( 15) VALUE '47S 07 0 3 INA 04 DWA-81-000 BL=29 IIE 2023 US 011)44 002103 03 FILLER PIC 9( 10) COMP-3 VALUE 0208000300. ONM=81-014 BL=29 120 2038 US 6P 01945 00211) 03 FILLER PIC X( 15) VALUE 119 56 57 f. ONNI=81-028 BL=29 133 2044 US 15C 01. 946--- 00212-1 ------03 - F I LLER-- PI C- 9( 10) -CG@T-3 VALUE - 0208 000400. -- D NM= 6 1- 04 2 BL=29 142 2059 US 6P 01947 00 ? 1 31 03 FILLER PIC X1 15) VA L UE "2 CRI8 CRI9 DNM=81-056 BL=29 148 2065 05 15C 01948 01) 214) 03 FILLER PIC 9( 10) COMP-3 VALUE 0203000500. DNM=81-070 BL=29 157 2080 US 6P VALUE 01940 0071 53 ------03 FILL"R-- PIC X( 15) '4QS 66 NA36 -I DNM=81-084 BL=2@-' 15D 2086 US 15C -098 01950 002160 03 FILLER PIC 9( 10) COMP-3 VALUE 02080006CO. DNM=81 BL=29 16C 2101 US 6P 01951 002170 03 FILLER PIC X( 15) VALUE 170 CR25 CR-26 1. DN".=81-112 BL=29 172 2107 US 15C FILLER -140 01952 002 180-----03 FILLER PIC 9(( 10)) COMP-3 VALUE DNM=81-126 BL=29 181 2t22 US 61, 01011 002,90 03 P 17 Xt5 VALUE 1 16 Dt,14=81 BL=29 187 2128 US 15C 01954 00 2 2 00 03 F I L L E P PIC 9( 101 rOPP-3 VALUF 0208020000. ONm=81-154 BL=29 196 2143 US 6P 0195 5 r)()?2 I) - -03 F I L L ER P I C V A L UE- 2 OK!1=91-166 BL=29 19C 2149 US l' 5c 19 11 6 002220 03 FILLER PIC 9( 10) CCMP-3 VALUE 0208040000. DN.M=81-18Z BL=29 LAB 2164 US 6P 01957 002231 03 FILLER PIC X 115) VALUE '13 3 wi DNM=31-196 BL=29 191 2170 DS 15C 01059 007740 01 FILLER- PIC-9( 101 COMP-3 VALUE 0208040100. DNM=81-210 BL=29 ICO 2165 6S 6P '8 TI 0.1 a 5 9 002251 03 FILLER PIC X( 15) VALUE DNM=91-?24 FL=29 IC6 2191 US 15C 011160 11 ? 1111) 113 FILLER P I C 9 '10) CCf'P-3 VALUE C208050000. ONM=81-238 BL=29 105 2206 0 ' 6P C X( 15) V A L UE '5 9 4 ONIJ=81-252 BL=29 lDb 2212 US I 01961 00227,)------ 03 -F ILLFR- PI 01 <If) 2 002?PD 03 FILIER PIC 910 CO 4P-3 VALUE 0208060000. DNM=81-266 BL=29 IEA 2227 US 61 01963 00 ?? 99 03 FILLER PIC X(15) VALUE '22 53 61 DNM=81-280 BL=29 IFO 2233 US t5C F I LL ER - - PIC 9( 10)- COMP-3 VAL UF - 0208060100. --- 01964- - --0027 0.)--- 03 ONM=81-294 BL=29 IFF 2248 US 6P - 01969 002311 03 FILLEO PIC X(15) VALUE 17 1. DN,11=91-308 BL=29 205 2254 US 15C 01 OA6 0023 70 03 FILLER PIC 9( 10) CO@P-3 VALLIF 0708060200. DNtA=8l-?22 BL=29 214 2269 US 6P 01967- 0')733)-----f)3 -F ILLFR--- PI C- X( 15 VALUE- Ill - --- ONM=81-336 BL=29 21A 2275 US I 5C - Olq6R 00?340 03 FILLER PIC 9( 10) COMP-3 VALUE 0208080000. DNM=81-350 BL=29 229 2290 US 6P ol <)69 002391 0 3 F ILL FR PIC X( 15) VALUF 173 MI 1. DNIA=81-364 BL=29 22F 2296 US 15C :471 I q 7 r,-- 00?360-03 T:ILLER -P I C 9f 10)-COMP-3 V A L U F 0 2 08 10 0 0 OG.- -- ONM=31-378 BL=29 23F 2311 US 6P t'I1971, 00 2 3 7,r) 01 FILLER PIC X( !5? VALUE #24 DNM=81-392 BL=29 244 2317 US 15C )1972 nt)?-It Pr) 03 FTt LER PIC 9( 10) COMP-3 VALUE 0208100100. ONM=81-406 BL=29 253 2332 US 6P jZF----0l973---O')2.39D-----03 FILLER P I C; X( 15) VALUr! -12 - - DNM=91-420 BL-29 259 2338 US 15C OIQ74 0024 010 03 FILLER PIC 9(10) COMP-3 VALUE 0203120000. ON11=81-434 BL= 29 268 2353 US 6P 01975 002411 03 FTLLE'Q PIC X(15) VALUE INI N2 N3 9. DNM=81-448 BL=29 26E 2359 US 15C 010 76 ----0024 03 FILLER D IC 9( 10) COMP-3 VAL UE -- 0208 140000. - ONM=61-462 BL=29 27D 2374 US 6P f.111 01977 nQ 2ft 3) 03 FILLER PIC X( 15) VALUE '9 20 62 1. ONM=81-476 BL=29 283 2380 US 15c- 01978 ()()2440 03 F ILLER. PIC 9( 10) COMP-3 VALUE 0208140100. DNM=81-490 BL=29 292 2395 US 6P 979-- F ILLER- PIC -X( 15)-- VAL UE *6 - 17- 64-1. ---ONM-82-000 BL-29 298, 2401 US 1 5c 01979 01980 002 /' 60 0-1 FILLER PIC 9(( 10)) CGIOP-1 VALUE 0208140200. DNM=82-014 BL=21; 2AT 2416 US 6P 01991 0 1.) 7 4 71 0 3 FILLER PIC X15 VALUE It 18 DNM=82-028 BL=29 2AD 2422 US 15C 0 19 A 2 00 14 80 n -1 F I L L F P -PIC- 9( 10)-COMP-3 VALUE 0208 190,300. -OKM=@2-042 BL=29 28C 2437, US 6P olqR3 n) ? 4 Q' 1 03 FILLER PIC X( 15) VALlJF 168S 68 3 DNW-82@056 BL=29 2C2 2443 US 15C ()19 Pt 4 00?1, 0) 0 1 F I LL r R PIC 9( 10) COMP-3 V A L U E 02CB1901CO. DNP/=82-070 BL=29 2.91 2458 US 6P 00 2510 03 r I LLER PIC- X( 15) 11 It 13 ----1 f)NM=82-084 BL=29 @07 2464 US 15r- 019R5 VALUE 01996 00?520 03 F ILLER PIC 9( 10) COMP-3 VALUE 6208190101. DNM=82-098 BL=29 2E6 2479 US 6P olqq7 002533 03 FILLER PIC X(15) VALUE 12 DNM=92-112 BL=29 2EC 2485 US 1 !5c APR 3,1984 INT NAME BASE DISP RL01 DEFINITION 14 NM 100 10.43.12 01989 @--001540-0@- FIL.LER--PIC- 9( 101--COMP-3 VALUf:---0208190I02---------- ON'M=82-126 --BL-29 2FB 2500 DS 6P 00 25 51 0A FILLER PIC X(15) VALUE 14 DNM=82-140 BL=29 301 2506 DS 15C ) COMP_3 1) Q 0 C-02967, ')3 VILLER PIC 010 VALUE 0?09190103. DNM=82-154 BL=29 310 2521 DS 6P FILL@:R--PIC -X I i 5 VALUE 15 - --- -------- ONM=82-168-- BL=29 316 2527 OS 15C 0 11) 00?5e,0 01 FILLER Pic 9(lo) comp-3 VALUE 0208190200. DNM=82-18@ BL=,19 325 2542 DS 6P ()199 3 q) 03 rILLER PIC VALUE 7 DNM=82-196 OL = 29 32S 2548 OS 15C XI 151 UF. '6 1 a v GNM=82-210 e ILLER PIC 91 I0)-.CrMP-3 VAL,. -0208 902GI. 13L=29 3 3A 2563 US 6P BL=29 340 2569 DS 15C oi Q115 w) if, l) 03 F I LLV-R PIC X( 15) VALUE 110 DNM=82-224 CC, ol 096 0026 21 03 FILLER PIC 9( 10) COM.P-3 VALUE 0208190300. ONV-82-236 BL=29 34F 2584 OS 6P ---0101)7 00?630 03 1 11. L E R- PIC X(19) -- --- -- -- V A L U F 12 DNM-82@ 252 BL=Z9 355 2590 DS ISC ()19q8 0') 16 4.) ol FILLER PIC 9( 10) COYP-3 VALUE 0208200000. DtM=82--266 BL=29 364 2605 DS 6P 01 9C)9 0 0 26 50 03 FILLER PIC X( 15) VALUE 15 52 53 4. 0 Nm= 82- 280 BL=29 316A 2611 DS 15C 02 0011@---00?66!) 03 rlLl,@P - PIC 9( 10) COMP-3 VALUE : 0209 2001 ONM=82-294 BL=29 379 2626 DS 6P 07001 ()0?67) 03 FILLED PIC X(15) VALUE 114 001=82-308 6L=29 37F 2632 DS 15C 0200? 00')681) 03 F-11-t-rR PIC 9( 101 CCMP-3 VALUE 0201200200. r)lqM=82-3'2Z BL=29 38E 2547 0 S 6P 0? 1,103 -0026 431-1-- 03 F IL L ER--- PIC ONM=82-336 BL=29 394 2653 DS 15C xf 151 VALUE- 015 --- 0?-004 0',' ? 7 00 03 FILLER PIC 9 110)) COMP-3 VALUE '0208210000. DNM=82-350 BL=29 3A3 2668 OS 6P :21 02005 06?711 03 FILLER PIC xt 15 VALUE 10 D,\M=82-364 8!.=29 3A9 2674 .0S 15C 231 c"I f, 0 0? 7 20 -01 F ! L L EQ. -PIC 9( 101 CeMP-3 VALUE 0209220000.---- 0Nm.=82-378 B L = 2 9. 3BB 2689 r, S 6P 02CO7 00 2 7 Y) 03 F I L!, E R PIC X ( 15) VAL 'J@ 121 ONIM-82-392 BL=29 38E 2695 01 5 15C 02 09 8 002 74.) 0 3 r ILLcR P I C c; I 10@ CQVIP-3 VALUE 020.3230000. 0NM=82-406 9L=29 31:0 ?710 DS 6P 0201) 9 OD?? 5.0 -- 0-1 F I I. L E-R- PIC-X( 15)--- ---- VALUE 'el 02 05-- 0 NM= 82-420 Bl.-@9 30'.., 271f- DS 15C C12 0 10 002760 03 FILLER PIC Q( 10) COMP-3 VALUE 0208240000@ 0%4M=82-434 BL=29 3EZ 2731 CS 6P 02011 002Y70 03 FILLER PIC X(151 VALUE 'PI P2 P3 DNM=62-448 BL=29 3E8 2-37 CS 15C 020 12 00?78-1 ---()1 F ILL ER - PIC 9(10) Cr,"P-3 VALUE 020R250000. ONM=82-462 RL=29 3F7 2752 D, 6P 02013 00-1790 03 F"it-t-EP, PIC X( i5) VALUE .19 DNM=82-476 BL=29 3r-D 2758 DS 15C 02-014 002A0) 0 3 11. L E R PIC 9( 10) CGVP-3 VALUE 0209000000. ONM=82-4130 BL=29 40C 2773 OS 6P 02()! 5-- -1)02911 03 FILLf P - - P I C- X ( 151 VALUE 11285 AS21 BL=29 412 2779 05 15C 0209010000. DNM=83-014 BL=29 421 DS 6P 02016 002A20 03 F!LLPR PIC 9( 10) COPAP-3 VALUE 2794 02017 007R,19 03 FILLER PIC X( 15) VALUE 172 74 4 DN?4.=93-C28 BL=29 427 2800 DS 1.5 C 02n] 8- 002140 ---r)3-Fl LLER - PIC 9(10)- CC,'-!,P-3 VALUE--- 0209010100. ONM=83-042 BL=29 436- 2815 DS 6P 07011 002,150 113 FrLLIR PIC x(151 VALUE ICCI 0,N'M=83-056 SL=29 43C 2821 DS 15C 23 FTIL DNM=83-070 BL=29 448 .1336 DS 6P -20 002R61) 03 FR , PIC 9( 10) CC@@P-3 VALUE 02C9011200. 02 '1 02()?l 00? q 71) -----03 FILLER ... PIC X 1 15) - VALUE *9Cl BC2 BC3 --nNM=93-084 BL=29 451 284i DS 15C - 02022 00?980 03 FILLER PIC Q( 10) COMP-3 VALUE 0209010300. ONM=83-0198 BL=29 460 2657 DS 6P @cl 01,023 11 1 Q17 0 3 FILLER PIC x(151 V4 LUF IGI G2 c? 3 ONM=83-112 BL=29 466 2863 DS 15C 02 074 "t0-,900----03 F I LL EIZ PIC 9( 10) COMP-3 VALUE- 0209010400. ON,4=13-126 R 1. 9 475 2878 DS 6P o? 5 01 7 1? Il 03 F-TtLER PIC X( 15) VALUI@ '11 1 A DNM=83--140 BL=29 47B 2884 D, 15C P 02 0? 6 002070 O@ FILLER I I C 9( 10) CCMP-3 VALUE 0209010500. DNH=83-11,4 8L=29 4PA 2899 CS 6P O?Q2 7--- oo;?1?3)--03 -F IL LE.R-- PIC X( 15) - VALUE 93 3A -- ONM=83--168 - LIL=29 4qG 29CS DS 15 02028 007940 03 FILLER PIC 9t 10) COMP-3 VALUE 0209010600. DiO=83-182 BL=29 4 9F 2920 OS 6P 02.029 00 7q C51 03 FILLER PIC X( 15) VALUE 15 13 DINM = 8 3- 19 6 BL=29 4A5 2926 DS 15C .03 FILLER- PIC 9( 10) COMP-3 VALUE G2C9o107G0,------ DNPI=83-210 BL=29 494 2341 03 6P o2n3l nf);11) 10 03 FTLL-R PIC xf15 I VA L @JE 16 DNM=83-224 BL=29 48A 2()47 DS 15C 0? 1.) -A 7. or) @19 -11) 03 FILLER PIC c? ( t,) ) COMP-3 VAL j F 0209010800. 8 3- 2 3 8 BL=29 4C9 2962 DS 6P 0? 0 3 3 0 0 ? 9 01 0 3 FILLER PIC xf 15) VALUE 18 DN!1=83-252 BL-29 4CF 2968 DS 15C 02034 0 0 3 0 10 03 FILLER PIC q( 10) COMP-3 VALUE .0209010900. ONM=83-266 BL=29 40E 2983 DS 6P 0201,5 0030 V) 03 FILLER PIC X115) V AL OF 17 DNM=83-290 BL=29 4E4 2989 DS 15C 0?016 n-13 -308 BL=29 4F9 3010 DS 15C 020'37 003130 03 FILLER PIC X( 15) VALU@ 477 MR 2 DNtA.=83 0 213 17TLLER PIC q( to)- CC] JP-3 VALUE DNM=83-294 - BL=29 4F3 3004 CS 6P j, 0203q 03 rILLE!l PIC 9( 10) COPP-3 VALUE 0209030000. ONM@83-322 BL=29 508 3025 CS 6P C7 02 03 9-- 51---03 PILLER--PIC Xf 15) VALUE 'Fi - -BL=29 50E 3031 05 15C 02040 001060 01 F I L L F R PIC 9( 10) COMP-3 VALUE 0-710000100. ON,",=83-350 BL=29 51D 3046 CS 6P 02C-41 0031)7.3 (3-3 FTLLER PIC XI 15) VALUE 176 78 RRI ONM=33-364 BL=29 523 3052 DS 15r- 7,1 N4 100 10.43.12 APR 3,1984 TNT NAME BASE DISP RLOI DEFINITION FILLER- P C 91 10) -COMP-3 VALUE----0210000200 - ONM=83-378 BL=29 532 -3067 US 6P- 02043 003090 03 FILLER PIC X t15 VALUE 179 81 -392 ;2 DNM=83 BL=29 533 3073 US 15C 0 2 0 4 4 0031 0) 03 P I L L E R P!C qi 101 COMP-3 V .4 L U P 0210000300. DN(4=83-406 BL=2.9 547 3038 US 6 P 11 FILLFR--?IC -X( 15 VALIJ@: 181 40 -- RR23-- ON'M=33-@-20 --BL=29 54D- -3094 US - IlC -31 21 O@ VILLFR PIC 9( 10) COMP-3 VALUE 0210000400. 07 64 6 00 DNM=83-434 BL=29 55t -31 Q q US 6P 02047 0031 31 03 FILLER PIC X( 15) VALUE 'RR27 RR78 QR29 ONM=83-448 BL=29 562 31115 US 15C 7 _6 07049---.f@01,141--03 FILLER--PIC-9( 10)-COMP-3 VALUE -0210000500. ONM=83-462 BL=29 571 3130 US 6P 02049 C03153 03 FILLER PIC X( 15) VALUE 'RR20 RR18 RRjq D,%M=83-476 5L=2c) 57? 3136 US 15C rl, ? 0 5 0 003161) 03 FILLER PIC 9(10) COMP-3 VALUE 0210010000. DNM=83-490 BL=29 586 3151 05 61D j@, 02 0 51 0031 7@) ----03 -FILLER-- PIC- Yl 15) VALUE 176 CC1 CC2 ---- - - ONM=34-000 BL--?9 58C 3157 US 15C 0?05? ()(11180 03 FILLER PIC 9( 10) COMP-3 VALUE 0210020000. DNP=84-014 BL=29 598 3172 US 6P 02053 003110 03 FILLER PIC X( 15) VALUE 11 31 33 1. DNM=34-026 BL=29 5AI 3178 US 15C 2 Ol ....... 02()54 003, -----03 FTtLER -PIC 9( 10) COMP-3 VALUE 0210030000. DNIJ=14-042 BL=29 590 3193 US 6P 02 0 5 5 c 0 11 1 1 03 FILLER PIC X( 151 VALUE 12 34 6 W1=84-056 BL=29 556 3199 0 S 15C a 02 15 6 0 0 37 20 03 FILLER PIC.9( 10) COMP-3 VA L UE 0210040000. Df,,,M=84-070 BL=29 5C5 3214 US 6P - ------ 02057-- 003133) -03 FILLER -PIC-X( 15) VALUE 127 - ONM=94-084 -BL=29 5CB 3?20 US 15C- ali 02058 003'240 03 FILLER PIC 9( 10) C 0 ?JP-3 VALUE 0210050,000. ONv=34-09S BL=29 50A 3235 OS 6P 07059 ()1)12 50 03 FILLER PIC X(15) VALUE 'QR5 RR6 RR7 DNM=84-112 B L= 2 9 5EO 3241 US 15C - - 60 -03 FT( LER PIC 10) CCP!P-3 .... ... 0','M=34- 126 BL=29 5EF 3256 US 6P 0201.0 01)3, VALUE 021009,0100. PIZ 0 DNfl=34-140 BL=2" 5 F5 3'62 01 S 15C 0? 0 @, 1 001? 03 1 L 1, E R P I r Xf I L ?a 0.5 2 ri c fl, 0 03 1 L L E R PIC @; I I Q J COVIP - 3 VALUE 07100-10000. ON-11=84-15,4 BL=29 604 3277 US 6P 01,063--- 00?? 9') ----f)3 FILLER P TC - X 1 15)---- -- -VA L UE .76 - 1 2 ONM=84- 168 BL=29 t)OA 3283 DS 15C 02 Of, 4 0033on 03 F 11 LL E R PIC 9( 10)) COvP-3 VALUE C210080000. ONM=84-182 BL=29 619 3 ?'9 8 US 6P 07065 00'33 10 03 F LLEP PIC X (15 VALUF ,RR12 RR13 RR11 WA=84-196 BL=29 61F 3304 US 15C '2 0 2 0 f, 6 --0033?3---- 03 FILLER, PIC 9(.10) COMP-3 VALUE 0210.080100. DN4=34-210 BL=29 62P 3.319 OS 6P 0@067 339 03 FILLER PIC X(15) VALUE 17 ON't-1=84-224 BL=29 634 3325 U S 15C 1.17. 012 0 f, 8 00334'j 03 FILLrR PIC q( to) COMP-3 VALUE 0210100000. DIN-14=84- 23 S. 3L=2q 643 3340 OS 6P 003 @ 53 03 V I L L E R - - P I C XI t5) VALUE 13 .50 DINM=34-252 BL=29 649 3346 US 15C 02070 003360 03 FILLER PIC 9( 10) COMP-3 VALUE 0210110100. DN.4=34-266 BL=29 659 3361 US 6P 02071 0033 70 03 v- I LL ER PIC Y( 15) VALUE 132 1 0. DN-M=84-280 9L=29 65E 3367 US 15C 03 -F ILL F, -- P! C.. 9 ( 10 1 COMP-3 VAL UE 02 101102 0-1. DNM=84-294 13L=29 66D -3382 US 6P 02073 0031,911) 03 FILLER PIC X( 15) VALUE 122 9. DN!4=84-308 BL=29 673 1388 US 15C 02074 0113401) 03 PILL FR PIC 9( 10) COMP-3 VALUE 0?10120000. ONIA=84@322 BL=29 682 3403 OS 6F' 02015 r I LLFR----PIC. - X ( 15)--- -- - VALUE '21 44 45-1 DNM=84-336 BL-29 688 3409 DS 15 C - 02076 003420 0 3 FILLER PIC 9f 10) COMP-3 VALUE 02101150000. ONM=84-350 BL.=29 697 1424 DS 6P all, n,077 00343@) 03 F I L t F R PIC X ( 15) V A L UE 129 11 ONM-84-364 BL=29 6 9) 3430 US 15C 0? 07 8 0-1344@)-- -.--03 ITLLER - PIC 9( 10 ) C0 t,! P - ? '0. L UE 0210160000. ')N!4=84-378 BL=29 64C 3.1,45 CS 69 3@) f)NM@84- 392 9L=29 662 3451 US 15C 0?1)70 0036 51 n3 F ILL ED PIC X(15) VALUE a, 020po 0034 63 03 FILIER PIC 9i 10) C,'jMP-3- VALUE 0210170000. D N M --- 8 4 - 4t 0 6 BL=29 6 C- 1 3466 US 6P 02 0) 8 1-- 0014 71) 03 - FILLER--PIC VALUE 19 nNM=84-420 BL=29 6C7 3472 DS 15C 13 02082 0034S) 03 FILLER PIC 91 10) CCMP-3 VAL UE 0710180000. DNM=84-434 BL=29 606 3487 US 6P '54 02OA3 003490 03 FILLER PIC X( 15) VALUE 110* DNM=84-4ft8 BL=29 60C 3493 DS 15C 0? OP4-0135 0,3----0- F I LL ER - PTC 9( 10) COMP-3 V A L U E 0210190000.------ Dr%M-84-462 BL=29 6 E13 3508 US 6P 020,19 00351D 03 FILLER PIC X( 15) VALUE 112 1. DNM=84-476 SL=29 6FI 3514 US 15C 0? 0 16 0 11,320 13 FILLER PIC 9( 10) COMP-3 VALUE 0210200000. DN4=64-490 BL=29 700 3529 DS 6P 07097--- 00393.3 3 FTLLED-PIC X( 15)- VALUE -114 - - -- ONM=85-000- BL=29 706 3535 US I sc 02088 003540 03 FILLER PIC 9( 10) COMP-3 VALUE 0210210000. DNM=85-014 BL=29 715 3550 DS 6P 62 02099 003535) 03 EILLER PIC X(15) VALUE 115 DNM=85-028 BL=29 718 3556 US 15C 0? 0015 60------ 03 ':TLLER - PIC 9( 10) COMP-3 VALUE- 02 10220000.---- ONM=85-042 BL=2q 72A 3571 OS 6P 0?09i 0 035 T) 11 F 1 L L E P. PIC X( 19) VALUE 116 ONM=85-056 BL=29 730 3577 US 15C 020')P 00735 SO 03 FILLER PIC 9( 10? COMP-3 VALUE 021OZ30000. ON-14=85-070 3L=29 73F 3592 D S 6P ----02 09 3 0015 1) --f%l FILLED P I C X(15) VALUE 117 - BL=29 745 3598 05 15C - 02094 0036 Ol 03 F I L L F' P. PIC 9( 10) CO.YP-3 VALUE 0210240000. DNIM=65-098 13L= 29 754 3613 US 6P 7@1 02095 C 01 1 rl 03 FILLER PIC X( 15) VALUE IIS 0 N 1w El 5 - 112 BL=29 75A 3619 US 15C 71, '771 7-i 75. 46 NMI 0 0 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION 02Gq6-0G3620-----03- FILLER-- P C_ 9( 10) COMP-3-VALUE-- --BL-29-769 -3634 DS 6 P I I i 02097 003630 03 FILLER PIC X 15) VALUE 119 DNM=85-140 BL=29 76F 3640 OS 15C 020-8 003640 03 FILLER PIC 9(10) COMP-3 VALUE 0210260000. O@M=95-154 BL=29 77E 3655 DS 6P r -FILLER-- PIC--XI 15) VALUE 8------ - - - , 5-168-- -PL=29 784 -3661 DS 15 02100 003660 03 FILLER PiC 9( 10) CnMP-3 VALUE 0210270000. DNM=85-162 BL=29 793 3676 DS 6P 07iol or) _56 70 03 FTLLEQ PIC X(15) VALUE 13 DNM=85-196 Bl-=29-799 3682 DS 15C .7 FILLER----PIC 9f 10) -COMP-3 VALUE BL=29 7A8 -3697 DS bp ------- --- 07 Ill 3 0 3 b 91 03 FILLER PIC X( 15) VALUE '?J4 5D2 5D3 ONM=85-224 BL=29 7AE 3703 DS 15C 02104 003700 03 FILLER PIC 9( 10) COMP-3 VALUE 0212010000. DNM=85-238 BL=29 7BD 3718 DS 6P _02105-0017 tl--03-P ILL @R - PIC X( 15) ---- --------VALIJE- I ml ONM=85-252- BL=29 7C3 3724 DS 15C 07106 00'A720 03 FILLER PIC 9(10) COMP-3 VALUE 0212020000. DNM=85-266 BL=29 702 3739 OS 6P 02107' 003733 03 FILLER PIC X( 15) VALUE t M3 DNM=85-280 BL=29 7D8 3745 DS 15C 0? 10 8 - 0 03 7 40---- 0 3 F It L E R- - PIC Q 110) Cn_MP-3 VALUE 0 2 12 0 3 0 0 0 0 . D N M = 8 5- 213 4 -BL=29 7E7 3760 DS 6P o? !()0 00375) C 3 FTLtER PIC X( 15) VALUE 2 501 25 ONM=85-3018 BL=29 TED 3766 DS 15C DNM=.35-322 BL=29 7FC 3781 DS 6 P 02110 n-13760 03 FILLER PIC 9( 10) COMP-3 VALUE 0213000000. 02111-- -1003770 --- --- 03 FILLED, p I c- x ( 15)- VALUE 185S 10 J4 DNM=85-336 BL-29 802 3787 DS 15C, 117: 02112 00"710 03 FILLER PIC 91 10) COMP-3 VAL UE 0213010000, ONM=85-350 BL=29 811 31.102 DS 6P 02113 * 003790 03 FILLER PIC X( 15) VALUE 1,94 86 87 0. DNM=85-364 BL=29 817 3808 DS 15C ------ PIC 9( 10) COMP-3 VALUE 0213010300. DNM=85-378 826 CS 6P 02114 SL=29 3823 1,18 i 1 01 FILLFP, PIC X( 15) '2 406 0. 07115 or, - V A L U E DNM=85-392 BL=29 82C 3829 OS 15C 02116 003,320 0 3 FTI,LFR PIC 9,( 10) COMP-3 VALUE 0213010,400. D t\A.= 8 5- 4,06 BL=29 838 3844. DS 6P VALUE '11 02 1 17 --- 0 0 3.9 3) -------03 FILLER -PIC-X( 15) 23 - 4D2 DNM=85-420 BL=29 841 3850 DS 15C PIC -3 VALUE -434 02118 003940 03 FILLER 9(10) CCMP 0213010500. 0 ',!'= 8 5 BL=29 850 3365 DS 6P 02119 003P.50 03 FILLER PIC X(15) VALUE 17 17 DNM=85-44a BL=29 856 387t DS t5C 0?1:?0- - 003960--03 FILLER-- PIC 9( 10) CCMP-3 VALUE - 0213010502. DhM=85-462 BL=29 865 3866 CS 6P 021,21 or) 3 8 7.) 03 FILLER PIC Xt 15) VALUE '6 3t 34 DNM=95-476 3L=29 E6B 3892 DS 15C or)-48pl) 03 FILLER PIC 9( -3 VALUE C213010503. DNM=85--490 BL=29 87A 3907 OS 6P 02122 10) COMP -000 BL=29 8 15C 1?3---003.llq) 03- F I LL Erz PIC X (153) VALUE '37 ONM=86 80 3913 DS DNM=86-014 BL=29 8,8F 3926 DS 6P 02124 03 FILLER PIC Q( 10) COMP-3 VALUE 0213010504. '@.095 02125 0 073 9 1,) 03 FILLFR PIC X(15) VALUE '6501 6502 7601 DNM=86-028 BL=129 3934 DS 15C 3949 CS 6P )2 126 03 FILLER PIC -91 10)-COMP-3 VALUE 0 2 13 0 10 6 0 0 . ---- --- DNM.=86@042 BL=i9@3A4 0?1?7 003933 03 FILLER PIC X( 15) VALUE '33 DNM=86-056 BL=217 8AA 3955 DS 15C 0?128 0(1194;) 03 FILLER PIC 9( 10) CONP-3 VALUE 0213010700. DNM=86-070 BL=29 889 3970 CS 6P a3@ ()? 1 ?9 Or)395)---()3- FILLER-- PIC X( 15 -VAL UE 14D7 DNM=86-084 -BL=29 SBF 3976 CS 15C 02130 0 03 9 60 03 FILLER PIC 9( 10) COMP@3 VALUE 0213010800. DNM=86-098 BL=29 8CE 3991 DS 6P !17 02131 0 07 1? TO 03 F!LLFR P I r X( 15) VALUE '32 DNM=86-112 BL=29 8D4 3997 DS ISC 0,113? 0019 80 F Il , L E R P I C 9110) COmP-3 VALUE- 0 2 13 0 10 9 0 0. ONM=86-126 BL=29 8E3 .4012 CS 6P 92133 0019911 03 F I L L E P PIC X( 15) VALUE 18 36 q DNM=86-140 BL=29 SE9 4018 DS 15C 2 '1 34 0040,10 03 FILLER PIC 9( 10) COMP-3 VALUE 0713011000. 0 8 6- 15 4 BL=29 6F8 4033 CS 6P 07135--- n 0 4) 11 0 3 FILLER PIC Xf 15) VALUE '22 DNM=86-168 BL=29 8FE 4039 DS ()? 136 004021 03 FILLER PIC 1) 110) COMP-3 VALUE 0213011100. DNM=86-182 BL=29 90D 4054 DS 6P @21 0?137 0 0 40 3D 03 FILLER PIC X(15) VALUE '12 DNM=86-196 BL=29 913 4060 DS 15C 02 !A 8 - 004040- 03 FILLER-- PIC c? (10) 4COMP-3 V AL UF - 02 13 0112 WM=86- 2 10 - BL-29 922 4075 DS 6P 9 02139 004n5O 03 FILLER PIC Xt 15) V A L U E '3 4D5 DNM=86-224 BL=29 928. 4081 05 15C 43@ n? 140 004063 03 FILLER PIC 9( 10) CCMP-3 VALOE 0213030000. DNM=86--238 BL=29 93T 4096 DS 6P If-1-- 0040711) -03 FILLER- PIC X( 15) VALUE-129 J5 Dr,14-86-Z52 BL-29 93D 4102-- DS 15C---@,, 47 02142 004080 03 FILLER PIC 9( 10) COMP-3 VALUE 0213030100. DKM=86-266 BL=29 94C 4117 DS 6P 02143 004090 03 FILLER PIC X15 VALUE ?8 DNM=36-280 BL=29 952 4123 05 15C 0214,4 -00410) --- 03 FILL ER -PIC 9( 10) COPP-3 VALUE - 0 2 14000100.----- ONM=86-294 -BL-29 961 4138 DS 6P 0?149 00411) 01 FILLER P, C X( 15) VALUF 13 AR5 AR 8 D Nt4 = 86- 3 08 BL=29 967 4144 OS, 15C 0?146 004120 03 FILLER PIC 9(10) CCMP-3 VALUE C214000200. W1=86-322, BC=29 976 4159 DS 6P I 5C 02 147---I)r)41 3)-- 03 FILtER--PIC Y( 15) VALUE *92 2 A R 14 - DNM-86-336 BL-29 97C 4165 DS I I I I 1 0 00 -350 rl" 02 148 004 40 03 F LLER P C 9tO COMR-3 VALUE 0214 003 . DKM=86 BL=29 90B 4180 CS 6P 02149 004150 03 F I L L E R PIC X( 15) VALUE '94 H7 AR17 D.NM=86-364 BL=29 19 9 1 4186 DS 15C ----------- ---- .7 71 4' N11 100 10.43.12 APR 3,1954 INT NAME BASE DISP RLOL DEFINITION 150-- 004160-03-F I LLER PIC-9i 10)- COPP-3 VALUE -- 02 14000400.-- 6P 0?151 004170 03 FILLER PIC )(( 15) VALVE 195 AR19 ONM=86-392 BL=29 9A6 4207 US 15C 0?152 004183 O@ FILLER PIC 9(10) COPIP-3 VALUE 0214000500. D10=86-406 BL=29 9F15 4222 CS 6P f) ? I 'i 3 00419)-93 , F MLEP PIC Xf 15) --VALtl-, '97 AR13 3E5--w---------------- DNM=86-420 --BL=29 985 4228 US 15 C ----- -- 02194 004?00 0!3 FILLER PIC 9( 10) COMP-3 VALUE 0214000600. DNM=86-434 BL=29 9CA 4243 US 6P 02155 0 () 42 1) 03, FILLF-R P C x 15) VALUE IARII AR12 D-NM=86-446 BL=29 900 4249 US t5C 021c;6 004220 03 FILLER PIC 9( 10 VALUE 0?14 '1 00700. DNM=86-462 BL=29 90F 4264 US 6P 02197 0047',) 03 FILLER PIC X( 15) VAL U@ 199 LOO 3E6 I. BL=29 9E5 4270 US 15C i 0? 1 C;Ft 004?41 03 FILLER PIC 9( 10) COMP-3 VALUE 0214000800. DW.11=36-490 BL=29 9F4 4Z85 US 6P -102 1 5q-- 004?5) 03 FILLER--- PIC Xf 151 VALUE Ill. 12 - 13-- a BL=29 9FA 4291 US 15C 02 1 flo 004260 O'A FILLER PIC 9( 10) COMP-3 VALUE 0214000900. ON'M=87-014 BL-29 A09 4306 OS, 6P 0?161 004270 0 1 FILLER PIC X( 15) VALUE 114 15 16 1. DKM=87-028 BL=29 Aor 4312 US I@C 02162- 0042 PO -----03 FILLER PIC 9( 10) COMP-3 VALUE 021400000. DNM=87-042 BL=29 AlE 4327 US 6P@ 4F.I @71 02163 0 r) 4? 9 03 FILLER PIC X( 15) VALUE DNM.=87-056 BL=29 A24 4333 US 15C 1@1 .97 16 4 004301, 03 FILLFR PIC 9( 101 COMP-3 VALUE 0214010000. DNM=87-070 BL=29 A33 4348 US 6P 02 165 004'@ 1-0 ---- ---- 03 F I LL ER PIC X( 151 - VALUE 189 DNM=87-084 BL=29 A39 4354 OS 15C 1 90 -TtLER -3 0214020000. -098 0,2166 004320 03 v . PIC 9110) COMP VALUE DNM=87 BL=29 A48 4369 US 6P 02167 03 FILLER PIC X(15) 91 ARI DNM=87-112 BL=29 A4E 4375 US 15C Or) 43 3) VALUE. '5 02168 03 FIL( P I C 9 ( 10) COMP-3 VALUE 02 14030000. ONM=87-126 BL=29 A50, 4390 US 6P _ER 02 169 00435.) -@3 FILLER PIC X( 15) VALU@- W) DW-1=87-140 BL=29 A63 439b US 15C 02170 n04!6') 03 F!!-[ EP PIC 9( 10) COMP-3 VALUE 0214030100. CN'M=87- 154 BL=29 A72 4411 DS 6P -----r)2j7I--On4170------O3 -F?tt.ER- PTr Xt 15) VALUE- 16 - 141 H2 0,M@87- 168 f3L=29 A78 4417 US 15C 02172 004180 3 %: I L L F R PIC 9( 10) CONP-3 V A L U E 021401,0000. DN',11=87- 182 BL=29 A8'7 4432 0S 6P 124; 02'173 004397) 03 FILLEP PIC X( 15) VALUE '4 93 AR15 DN,11=87- 196 BL=29 ABD 4438 US 15C 1)2 17 4 -0041, 01 FILLER- PIC 9( 10) COVP-3 VALUE .0214050900. DNM=87@210 BL-29 A9C 4453 CS 6P 02 175 00/14 10 03 FILLER PIC X( 15) VALUC #3 101 El WJ1=87-224 BL=29 AA2 4459 US 15C IZ7 0?176 0044 2) 03 FILLER PIC 9( 10) COMP-3 VALUE 0214050100. D-NM=87-238 3L=29 ABI 4414 US 6P 15C--- 7 7 0044. 11 F ILL E-P-- PIC Xt 15) VAL Ue IE2 - - DN*M=87-252 BL=?9 A87 4480- US 07178 004440 03 FILLER PIC 9( 10) COMP-3 VAL UE 0214050200. DNM=87-266 BL=29 AC6 4495 US 6P 02179 0. 0 4 4 53 0 1 FILLER PIC X 15) VALUE E4 ON14=87-280 BL=29 ACC 4501 US 15C i F10 0041- 69---- 0 3 F I LL FR -- PIC 11 10) COMP-3 V A L U E 0214050300. -ONM-87-2�4 BL-29 AOB 4516 - US 6P. .37 O?IP11 09 4 @ 71 0 3 FILLFR PIC X( 15) VALUE 1103 206 16 DN@M=87-308 BL-29 AE1 4522 US 15C F, n2 t82 004490 03 FILLER PIC 9( 10) COIMP-3 VALUE 02140504CO. ONM=87-322 BL=29 AFO 4537 US 6P ___02 IP3-00449f)--03 FILLER -PIC -X(15) VALUE- 1 205 DNM=87-336 OL-29 A. F6 4543 CIS 15C 02114 1104500 r3 3 FILLER PIC 9( 10) COMP-3 VALUE 0214050500. D.NM=87-350 BL=29 805 4556 US 6P ;:Z 02185 004510 03 FILLER PIC X(15) VALUE '?2 DNY=87-364 BL=29 BOB 4564 US t5C 02 13 6--- 00 4; 21) 3 F I L L E R - P I C: 9( 10) COMP-3 VAL11E 0214050600.- DNIM=87-378 BL=29 BIA 4579 US 6P -- ---- 02197 Of)453,) DI FILLER PIC i( 15) VALUE 1102 0,Nm=87-39? BL=29 B20 4585 US 15C. 021P.R C04940 03 @TLLFR PIC 9( 10) CC4P-3 VALUE 0214060000. DNM=87-406 51-=29 B2F 4600 US bP X( 15) VALUE *2 -- 2A - ONIM=87-420- BL=29 835 4606 US 15C 02 1 q 9--- 0 n 4 5 59 0 3 -FILL EP PIC 411 0?190 004560 03 FILLER PIC 9( 10) COMP-3 VALOF C214070000. ONM=87-434 BL=29 B44 4621 US 6P .21 02191 0045 7,) 01 FILLER r1l C X( 15) VALUE '7 98 2171 DNM=87-448 BL=29 B4A 4627 US 15C Q 2 19 00145 0 3 ONM=87-1,62 BL=29 B59 4642 US 6P FILLER-- PIC 91 10) CnMP-3 VALVE -- C21408000O.-- --- 021193 004590 93 FILLER PIC X.( 15) VALUE '8. 3E4 3E3 DNM=87-476 BL=29 B5F 4648 DS 15C :3 02104 004600 33 FILLER -PIC 9( 10) COMP-3 VALUE 0214090000. D.NM=87-490 BL-29 B6E 4663 US 6P 02 ILL EP,-PIC---x ( 15 VALV@:- I 11 -- -- - ONM=88-000 - BL-29 B74-- 4669 US 150 02 1'46 004620 01 FILLFR PIC 9( 1(.)) COMP-3 VALUF 0214110000. Dl,M=88-014 BL=29 B83 4634 US 6P 02197 004633 03 FILLER PIC X( 15) VALUE 14E2 DNM=88-028 BL=29 B69 4690 US 15C FILLEP-PIC-9; 10) CO!OP-3 VALUE -0714110100. ')N.4=88- 042 - BL=29 B98 4705 CS 6P 02 1 1? q (14 6 5 0 03 FItLER PIC Xf 151 VALUE 14E3 DKM=88-056 BL=29 B9E 4711 US 15C 02 200 On466). -13 PILLER PIC 9( 10) COMP-3 VALUE 0214130000. DSM=88-070 BL=29 BAD 4726 US 6 P 0 2 2 0 1 0 (If S 70 - 0 3 F I L L F R P I r -X 1 15)-- VALVE *96 20 DI"M=88-084 BL=29 BB3 4732 US 15C 02202 004680 03 FILLER PIC 9( 10) COMP-3 VALUE 0214140000. DNM=88-098 BL=29 BC2 4747 D S 6P 70 02203 0 04 6 93 03 FILLER PIC x( 15) VALUE 13[7 NAI NA4 I. DN'M=88-112 BL=29 BC8 4753 US 15C 7;, 49 10.43.12 APR 3t 1984 INT NAME BASE DISP RL01 DEFINITION Lj D t, P i -02 704----001 F ILL ER---P IC-9 ( 10 F-CCIMP-.3 VALUE 02 141401 (loo--- ONIM=68-126 - BL=29 507 -4768 OS 6 21 02205 004710 03 FILLER PIC X( 15) VALU@ 99 DNM=88-140 BL=29 BOD 4774 DS 15C r; @' 2 fj',)',720 03 @ILLER rl I C 9f 10) COMP-3 VALUE 0214140200. 0 N.M= 88- 154 BL=29 BEC 4739 CS 6P 02 20, 7 004@ -F I LL ER-- PIC X 1.15 VALUE INA2 NA3 3E8-*.-------- --------------ONM=88-168 BL=29 8F2 4795 DS 15C 02208 004749 03 r-11 LER PIC .9( 101 COMP-3 VALUE 0214150000. DNM=98-182 BL=29 COI 4810 DS 6P 02209 004750 03 FILLER PIC X( 15) VALUE, tIO ONM=88-196 BL-29 C07 4316 OS 15C 0 1)2 2I0---01)476f)-------03 -r ILLEP --- P I C 91 1 CC MP-3 VALUE 0214 160000.----- - DNM-88-210 BL=29 C16 4831 DS 6P -2Z4 BL=29 ClC 4837 DS I c 07211 004770 03 F!LLER PIC X( 15) VALUF -14 DNM=38 5 0? ? 1 2 004780 03 FILLER, PIC q(101 COMP-3 VALUE 0214170000. ONM=88- 23.9 6L=29 C2B 4852 OS 6P 7 13 (Jn4 791 -13 F ILL ER --Pf C -X( 15) VALt)E "312 15 - - QNF=88-252 BL=29 C31 4858 OS 15C i"i n?214 (),04SOO 0 'A FILLER PIC 9( 10) COMP-3 VALUE 0214180000. DNm=P,8-266 BL=29 C40 4873 05 6P '14 q. -280 RL=29 C46 4879 DS 15C 02215 0048 1 f) 03 FILLER PIC X( 15) VALUE - 2)4 DNM=88 16, f ? 1 6-004"t 23 F It L ER-- PIC 10) COMP-3 VALUE ONM=88-294 BL=29 C55 4894 DS 6P 7 02?17 004113) 03 FILLER PIC X( 15) VALUE IKHBI KHB2 ONM=88-3.'g BL=29 C5B 4906 CS 15C r)?218 0',14040 03 FILLER PIC 9( 10) COMP-3 VALUE 0,716000000. DNM=8�-322 BL=29 C6A 4915 DS 6P C. ()2211) --- 0 04115') ------03 FILLER - PIC X(15) VALUE 'El F 2 E5 ONM=88-336 aLz29 C.70 4921 US 15 2:1i 20 PIC 9( 10 It COMP-3 VALUE 0300000000, P 02?, . (104961) 03 FILLER DNM=88-350 BL=29 C7F 4936 DS 6 a2l I 027?1 004870 03 FILLER PIC X( 15) VALUE 1109S 114 CR13 DNM=88-364 BL=29 C85 4942 OS 15C 02 ?22-- n94P PC@--G? FILLER-- P I C Of !0) COMP-3 VAL UF 0301000000. DKM=88-378 BL-29 C94 4957 OS 6p P 02 2 2 -3 0 f) 4 5 0 3 03 V I L L R 'I C X( 15) VAL UF OCR22 01,M=F)8-3,2 8L=29 CQ& 4q63 OS ISC 0?21'4 004900 01 F I L L E,@ P I C. 9( 10) COMP-3 VALUE 0302000000. DNv=89-406 BL=29 C49 4978 OS 6P )22?5 -- 0@149 1) 3F I L L E R - - - P I C X ( 15) VAL13E 1CP 10 CR 11 CR23 CIN01=38-420 BL@29 CAF 4984 DS 15C 02216 004920 03 FILLER PIC 9f 10) COMP-3 VALUE 0306000000. OKM=98-434 BL=29 CBE 4999 DS 6P 0?7?7 00493.) 03 F It L Elz PIC K( 15) VALUE 9 t 14 OAM=88-448 BL=?9 CC4 5005 OS 15C r) 2 2 2 8 ----1)04940 0 3 v- I L L E R -- P I C q( 1,01 C 0 M P -3 VAL UF 0307000000. DNM=88-46c BL-29 CD3 5020 DS 6P 3; 022-:19 0.')4)50 03 FILLPR PIC X( i5) VALUE 'R16 DNM=88-476 BL=29 CD9 5026 DS 15C u, 022100 ')04q6O IF I L t F R PIC 9( 10) C0 MP-3 VALUE 0309000000. ONki=88-490 BL=29 C E F 5041 CS 6P 0? 7 3 1 0041@ 7r) -0 3 FILLER, -PIC -X ( 15) VALUE 1107S - BL=29 CEE 5047 OS 15C 07232 P 001198) (13 FILLER PIC 9( 10) CC ?,'P-3 VALUE 0400000000. DKM,=89-014 SL=29 rFD 5062 OS 6 022,33 004993 03 FILLEP PIC X( 15) VALUE 1109S lIOS i20 1. DNM=59-028 BL=29 003 5068 OS. 15C 02 234- 03- ;7 TLt --R- -PIC 9( 10) C 0 -Y-P -3 VALUE D-NM=89-042 BL=29 D12 5083 OS 6P 02235 10 -13 rILLER PIC X( 15) VALUE '812 DhM=89-056 BL-29 D18 5059 OS L5C F 02236 005020 03 VILLER PIC 91 10) COMP-3 VALUF 0400040000. DNM=89-070 SL=29 027 5104 OS 6P [a, ---')2237-- -Ot@9031 -03 FILLER PIC -Y( 1 VALUE- 191t - - - ---I DNM=89-084 BL=29 02D 5110 DS 15C 02238 005040 03 FILLER PIC 9( 10) COMP-3 VALUE 0400050000. DNM=89-098 BL=29 03C 5125 OS 6P 1)05'%50 03 FILLER PIC X( 15) IB13 -112 -S 02239 VALUE DN*M=gg BL=29 D42 5131 V 15C 02 ?40 1-005060 --()3 F I LLFR PIC 9( 10) COMP-3 VAL UF - C-401 DNM=89-126 BL=29 051 5146 DS 6P ()2241 005)7.) 03 FILLER PIC X( 15) VALUE v121 122 Rt V. Clkv@=89-140 9L=29 057 5152 OS 15, :;1 0-242 00,10 PG 03 FILLER PIC q( 10) COMP-3 VALUE 0401010000. DIM=89-154 BL=29 066 5167 0 5 6P 02 243-- 005099-03 -F ILL ER PIC Xf VALUE -RI10 DNM=89-168 RL=29 D6C 5173 OS 15c- 02244 005100 C13 FILLER PIC Of 10) COMP-3 VALUE 0401020000. DNM=89-182 B L --- 2 9 DIS 5188 DS 6P 02245 005111 03 FILLER PIC X( 15) VALUE 'Ril DNM=89-196 BL=29 081 5194 DS 15C P ------- 02 246 -005121-03 r ILj.FR -PIC- 9( 10) COMP-3- VAL UE 04030000CO.---- ONM=89-210 - BL=29 D90 5209 CS 6 C@ 02247 005130 03 FILLER PIC x( 15) VALUE IR19 R14 ON.'A=89-224 B L- 29 D96 5215 CS 15C 02?49 00 5149 03 FILLER PIC 9( 10) COMP-3 VALUE 0404000000. ONM=89- 2313 BL=29 D45 5230 CS 6P 0? 249 -00515) ----03 F LLER - PTC-X( 15) VALUE IR15 R7 R6---' ONM=89-252 BL-29 DAB 5236 DS l5c__@cl 02250 W5 1 (10 03 F, PIC 9( 101 COMP-3 'J ILL@R VALUE 0500000000. ONM=89-266 BL=29 OBA 5251 6S 6P 0?251 005171) 03 FILLER PIC Xt 15) VALUE - P t P6 PS ONM=89-280 BL=29 DCO 5257 DS 15C 02 2 52---- 0051 80 F ILL ER PIC 9( 101 COMP-3 VALUE 05000400 00. ONM=89-294 BL= 29. DCF 5272 DS 6P 02251 01 5i 19D oll FTI.LEP PIC X( 15) VALUE -S)Bt5P4 f) NIM = 8 9 - 3 0 8 BL=29 D05 5278 DS Isc 02254 0()9?03 03 FILLER PIC 9( 10) CCMP-3 VALUE 0500160000. 0NM=89-322 BL=29 CE4 5293 CS 6P 0 2 2 5 5 -- 0 0 5 2 10 --103 FILLER- PIC X( 15) ---- VALUE IM-7 - ON14=89-336 BL-29 DEA 5299 OS I 5c 03 PILLER -3 ONM=89-350 BL=29 DF9 5314 DS 6P 027"!, 52 20 PIC 9( 10) CnMP VALUE 0500180000. 02257 on 57 30 01 F I L L 1@ R PIC X 15) VALUE IWB13 r)NM=89-364 BL=29 OFF 5320 DS 15C 49 Illm I 10 10.43.12 APR 3, 1 @84 INT NAME BASE DISP RL01 OEFINITICN T____ 02258-----005;.14D------03-FILLER PIC 9f LOY COMP-3-VALUE-- OL-29 -EOE - 5335 --I)S cl? 259 Ol 5? 50 03 FILLER PIC X 15) VALUE *PIl DNM=89-392 BL-29 E14 5341 DS 1'5 C 0? 260 0, 0 5 2 6 0 03 F I L L E R PIC 10) CCIAP-3 VALUE 0500300100. DNM=89-406 BL=29 E23 5356 '1' S 6P 47 1---- 0052 79 P 3 r' I LJL F P -- P I C X( 15)- VALUF -'H.IIS H17S -13L=29 E429 5362 DS 15C -3 V AL U F DW.1=89-434 81_@29 E38 5377 DS 6P 02262 0052 F.0 0-3 FILLER PIC 9( 10) COMP 0500300101. 02?63 005? 90 03 FILLEP PIC X( 15) VALUE 'Hilos ONM=89-448 BL=29 E3E 5383 DS 15C IJ? 764 -- (-@530'Y 01 F ILE ER - PIC 9( 10) COMP-3 VALUE 0500300103.-- DIVM=89-462 tjL=29 E41) 5398 DS 6P 02265 005310 03 FILLER PIC X( 15) VALUE IHI13 ONM-89-476 BL=29 E53 5434 DS 15C 02?66 11151211 03 r ILL ER PIC 9(10) COMP-3 VALUE C500300104. ONM=89-490 BL=29 E62 5419 DS 6P 57- 00 5131 03 F I L L F R PIC Xf 15) VALUE 10R I I - - - DNM=90-000- BL=29 E68 5425 US 15 0? 268 005340 03 FILLER PIC 10) COMP-3 VAL LIE 0500300105. 0 N 4=90- 014 BL=29 E77 5440 DS 6P t -4=90-028 'S 07 @ 69 001,15) 03 FILLER PIC X( 15) VAL LIE I H, 12 OR13 DW BL=29 E 7D 5446 L 15C 02 ?70 0053 60 -03 FILLER PIC c? ( Ir) CoMP-3 VALUE 0500300107. DNti=90-042 BL=29 E8C 5461 CS 61 022711 005370 03 7ILL.FR PIC X( 15) VALUE IH14S DNM=90-0@6 BL=29 E92 5467 US 15C 0?272 005380 03 FILLER PIC 9( 10) COMP-3 VALUE 0500300109. DNM=90-07C BL=29 EAL 5482 OS 6P ____O2 ?73 O'A--F ILL FR -PIC X( 15) VALUE 4H120 - - gNtl=90-084 SL=29 EA7 5488 US 15C is zi 02274 0054'01 03 FILLrR PIC 1) ( 10) COMP-3 VALUE 0500300110. DKM=90-098 BL=29 EB6 5503 US 6P 02?75 0054 10 03 FILLER PIC X( 15) VALUE lHT6S DNI.M=90- 112 BL=29 E8C 5509 US 15C, 0094 20----- PIC qf 10) -3 VALUE 05003001 r)Nw,=9t)- 126 BL=29 ECB 5524 CS 6 P 0?27, 01 FILLER COMP 0227-1 0 0, 5 1, T1 0' F, LLER PIC X( 15) VALU@: IH13 W31=90--140 --, L= 29 ': .91 55130 CS 15,_- 271 02273 )0 @,441 01 3 F I LL ER PIC 9flC) CO-11AP-3 VA L LIE 0500300116. DNm=l;O- 154 BL=29 EEO 5545 US 6P -Of) 54 50 --- -03 FILLER PT C- -x ( 15) VALUE IH15S ON11=90-168 11L=29 EE6 1,551 US 15C 03 8 005460 FILLER PIC 9(10) CCMP-3 VAIUE 0530300117. DNM=90-132 BL=29 EF5 5566 DS 6P lz@ 02 2q I Of, 54 70 03 FILLER PIC X( 15) VALUE lHIll DN,'4=90- 196 BL=29 EFB 5572 DS 15C 2F. Onr4 SC) 03 FILLER -3 05,"3002 00. ONM=90- 2 10 BL=29 F OA 5567 CS 61P PIC 9( 10) COPAP VALUE 0-729-3 nO 54 Q) 03 FILLER PIC X 1 15) VALUE 10111S 015 016 lr. DNM=90-224 BL=29 FLO 55'93 US 15C 022F Z36 BL=29 FIF '360et US 6P .4 0055 Or) 03 FILLER PIC 9( 10) CO"P-3 VALUE 0500300201. DNM=90@ !jNq=90- 252 BL=29 F 25 5614 05 15C 02 2fl 5-0059 1 T- 0? F I L L FR P I C X ( 15) --- -----VALUE 1012 013 - 022P6 005520 03 10) COMP-3 VAL ur- 0500300204. DNM=90-266 3L=29 F34 5629 CS 6 P FILLER PIC 02 2 p 7 00 5; 3 3 03 FILLER PIC X( 15) VALUE IOT45 f)NM=90-280 BL=29 F3A 5635 US 15C 0 ? " 9 9 0 0 5 5 4 -1 0 'A F I L L E R- PIC- 9( LOY COMP-3 VALUF- 0500 3003 00.---- DNM=90-294 Ek L - 2 9 F49' 56 50 DS 6P 02299 005950 03 FILLER PIC X( 15) VALUE 'I'll P12 P13 DNV,='0-308 BL-29 F 4F 5,1356 0 S 15C 02 29 f) 0.') 55 60 03 FILLER PIC 9110) COMP-3 VALUE 05OO3OO3G3. DNM@_;O-322 SL=29 F5E 5671 US 6P DN.M=90-336 BL=29 F64 5677 05 lc,, --()? 201 001,35 70 03 FILLER PIC- X( 15) VALUE qP14 P15- 's. O22q2 005580 03 FILLER PIC 9( 10) CCMP-3 VALUE 0500300304. DN,4=90-350 3L=29 F73 5692 US 6@ OZ?q3 005591) 03 rILLEP. PIC -X 1 15) VALUE wPT6 OW4=90-364 BL=29 F79 5698 US 15C 02 2!;4 0051-10-- 03 F I LL ER DIC 9@ 10 C 0 I1,P-3 VALUE: DNP,=90-379 61,= 29 F88 5713 DS 6P !)2295 er)r)@ 11) 3 f- _t F-R DIC X(15 VALUE P5 DNM=90-392 BL=29 FRE 5719 DS 15C 02?96 on5623 03 FILL F.R PIC 9( 10) COMP-3 V A@_ UE 0500330000. DNM=90-40,6 BL=29 F9D 5734 US 6P @TLLEr -PIC X( 15) VALUE IP7 DNM=90-420 BL-29 F43 5740 05 15C 02298 005640 03 FILLER PIC 9( 10) COMP-3 VALUE 0501000000. DINM=90-434 BL=29 FB2 5755 DS 6P .4 VALUE 'SP31 SPB2 SPB3 DN.M=90-448 BL=29 FIS 5761 DS 15C ;4 02299 005650 03 FILLER PIC X( 15) O?3OO-----005fx6O----- 03- FILLER -- PIC- q( 10) COMP-1. VALUE - 0502000000. DN'Ar9O-462-- BL=29 FC7 5776 DS 6P 02301 005670 03 FILLER PIC K( 15) VALUE vPC81 PCI31A DN'4=90-476 3L=29 FCO 5782 05 15C e-' ')? 30 2 Of) 56 Al 03 FILLER DIC 9( 10) C 0 Po 2 3 VALUE 0503000000. D,14M=90-490 BL=29 FOC 5797 DS 6 P 0 2 3 0 3 -- 0 0 5 6 QO 0 3 F I L L, E R - - P I C K( 15)-, - VALUP 'LSR2 LSR6 LSR101;. BL=29 FE2 5803 DS 15C 1 07-304 00570) 03 FILLER PIC 9( Irl) CC'jP-3 VALUE C903010000. DNM=91-014 81.=29 FFI 5818 DS 6P 02305 005710 03 FILLEP PIC X( 15) VALUE #LSR4 LSR5 D-NM=91-028 BL=Z9 FFT 5824 US I'C FILLER - PIC 10)- COMP-3 VALUF -0503020000. ON-111=91-042 BL=30 006 2353 DS 6P 02 30 7 C(157A) 03 FILLER PIC Xt 15) VALUE 'LSPI ONM=91-056 BL=30 OOC 2347 DS 15C i 02301 005740 03 FILLER PIC 9( 101 COMP-3 VALUE 0503030000. ONM=91-070 BL=30 OIB 2332 05 6@ 1 7CN LINM=91-084 BL=30 021 2326 US 15C 912 3'@<? -0057 50-03 FILLEP--PIC--X( 15) VALUE ' L SP, 3 L SR 7 L S R9 ONN!=91-098 BL=30 030 231t OS 6P 02310 005760 03 rlLtER PIC 9( 10) C C fAP -3 VALUE 0 5010 500 00. 02311 005770 03 FILLER PIC X(15! VALUE "I.SR8 r),NM=ql- I LZ 9L=30 036 2305 US 15C 50 m 10 0 10.43.12 APR It 11;84 INT NAME BASE DISP RL01 DEFINITION PIC 9( 10)-CrMP-3 VALUE- - 0504000000.,------------ DN'M=91-126 BL-30 045 2290 DS 6P (11 02313 00 5790 03 FILL ER PIC X 15) VALUE 'L-,RlILSR12 DNM=91-140 BL=30 048 2284 OS 15C i 07114 On5qO3 03 FILLED PIC 9(10) COMP-3 VALUE 0506000000. ONM=91-154 BL=30 05A 2269 CS 6P 15) VALUE IFC1 FC2 BL-30 060 2Z63 05 15 C '02 316 005920 03 FILLER PIC 9( 10) COMP-3 VALUE 05C6010000. DNM=91-182 BL=30 06F 2248 DS 6P 09-317 019830 03 FILLER PIC X( 15) VALUE 'Fr5 ONM=91-196 BL=30 075 2242 DS 15C 02 3 t q 0 0 5R 40 - 03 rfLLFP --PIC 91 10) COMP-3 VALUE 0506020000. riNM=91-210 BL-30 084 2221 DS 6P 03 FIlL7R PIC X( 15) VALUE IFC7 DINM@91-224 BL=39 094 2221 DS 15C 02319 0051,50 02320 Of) 5 Q 6'.) 01 FILLER PIC 9( tO) COMP-3 VALUE 0506030000. DNM.=91-238 BL=30 099 2206 D S 6P r%?32 1- 70 0 3 rTt Ll_P - PIC-X( 151 VALUE IFC6 DNM-91-252 8Lm30 09F 2200 DS 15C 023?7 1) 0 5 It 8 .1) 03 FILLER PIC 9( 10) COMP-3 VALUE 0509000000. !)NM=91-266 BL=30 OAE 2185 DS 6P '41 005890 03 FILLER PIC X(15) VALUE IFC4 FCIO 5 02323 ONM-91-280 BL=36 084 2179 DS 15C ___02 324 FILL ER PIC 94 10) COMP-3 VALUE 0 5 0 9 0 10 0 0 0. D N M = 9 1- 2 9 4 BL-30 OC3 2164 DS 6 F 171 DNIA=91-308 BL=30 OC9 2158 DS 15 02325 C. 0 5 q 10 03 F I L L F R PIC X( 15) VALUE 'FC3 3F5 C 0?326 0 0';'? 21 03 FILLER @IC 9( 10) COMP-3 VALUE 0513000000. r)NM=91-322 BL=30 008 2143 DS 6P 02 3? 7 --On503D -------- 03 -FILLER PIC-X( 15) VALUE 'FC5A DNM-91-336 BL=30 ODE 2137 DS 15C 21 117 02329 005941 03 F!LLER PIC 9( 10) COMP-3 VALUE 0514000000. ONM=91-350 BL=30 OED 2122 OS 6P -)5950 03 FILLER PIC X( 15) VALUE 'ViBl W132 WB5 0,14M=9t-364 BL=30 OF3 2116 DS 15C 02329 Of I -- () ')----03 FILLER PIC 9( 10) COMP-3 VALUE 0514010000.- DNM=91-376 BL=30 102 2101 OS 6P, 02310 -15W 02 31 1 0 0 rl 70 03 r I L t E R P I C X( 15) VALUE 'WR4 ONt4=91-392 BL=30 L08 2095 DS 15C 02337 cl 0 " 9 8 0 03 FILLER PIC 9( 10) COMP-3 VALUE 0514020000. DNM=91--406 0,L= 30 117 20 8 0 DS 6P 0 13 3 3 0 0 59 9@) ------ -- 03 F ILL FR----PT C D,M=91-420 BL=30 11D 2074 DS 15C X( 15 VALUE 03F4 02334 006001 0 'A FILLER PIC 9 ( 10) COMP-3 V ALUE 0514030000. ONM_@91-434 BL=30 12C 2059 DS 6P' jcj 0?335 006010 03 FILLER PIC X( 15) VALUE 'WR3 WB6 W83A 448 BL=30 132 2053 DS 15C 5:1 ONM=9"7 02 316 00 60 20 -03 FILLER PIC 9( 10) COMP-3 VALUE C514040000. DNM=91-462 BL=30 14i 2038 DS 6P -- -17 on (,r) 10 VALUE I @,fl If,) D N,14=91-476; BL= 30 147 5C 3? 3 01 FILLER PIC X( 15) 2032 CS I 02331 00604^, 03 FTLtER PIC 9( 10) C01JP-3 VALUE 0514050000. DNM=91-490 BL=30 156 2017 DS 6P 02 339 006051 ----03-FILLE?, -PIC-Xf 15) VALUE '@%911 W94A ONM=92--000 BL=30 t5C 2011 DS 15C - Z If 0?3ftO 0 0 60", 03 FILLER PIC 9( 10 ) COMP-3 VALUF 0514050100. ONM=92-014 BL=30 16B 1996 DS 6P rl?341 000070 01 FILLER PIC X( 15) VALUE 'WRq DNM=92-023 BL-30 171 1990 DS 15C @07 142 0OA0,q0 -------03 F ![ 1 ER PIC 9( 10) COMP-3 VALUE 0514060000. f)NM=92-042 BL=30 180 1975 DS 6P 'WR8 -056 02343 0 r) 6190 03 FILLER PIC X( 15) VALUE DNM=92 BL=30 186 1969 DS 15C t 02344 006100 03 F I L L ER PIC 9( 10) COMP-3 VALUF 0516000000. ON.M=92-070 BL=30 195 1954 DS 6P c 0? 3 45- -0106110 03 FILLED PIC X( 15) VALUE ICC2 3FI 3F2 ---I i ONM = 9 2 - 0 8 4 BL=30 193 1948 05 15 '4 31! 02346 0 n 6 17 0 03 FILLER PIC 9( 10) COMP-3 VALUE 0516010200. ONM=92-098 BL=30 IAA 1933 DS 6p I I I a . !471 0?347 006130 03 FILLER PIC Xf 15 VALUE 3E! D N.M = 9 2 - 112 8L=30 1BO 1927 DS 15C 4S 02349 --- 0061 4r) ------03 F I LLFR - PIS 9 10) COMP-3 VALUP 05 16 010 3 DNM,=92- 126 BL=30 15F lqI2 GS 6P __ '91 1 1 VALUE ?El DKM=92-140 BL@30 lC5 1906 DS 15C 0231-9 on6 50 03 FILLER P C X 15 07390 006160 03 r- I L L ER PIC 101 r CYP - 3 VALUE 0516010500. ONM=92-154 BL=30 104 1891 DS 6P D -168- BL=30 IDA 1885 DS I W 351- 0061 70 F IL L. ER PIC X( 15,' VALUE MI 8 MIIO NM=92 ;C 0235? 006i SO 03 FILLER PIC 9( 10) COMP-3 VALUE C518000000. 0,%M=92-182 BL=30 IE9 1870 05 6P 142; 02353 006190 03 FILLER PIC X( 15) VALUE VCC4 ONM=92-196 BL=30 IEF 1864 DS 15C O?3c34 00.69 ()1 ---- 0 1 F11-1-FR -PIC 9( 10) COMP-3 VALUE C518010000-- OKM=92-210 BL=30 1FE 1849 0 S 6, F .4 02355 00(11@1 13 03 F I LLFR PIC X( 151 VALUE 'OCI DPM=92-224 BL=30 204 1843 DS 15C I' @ 313 BL=30 2i3 182.8 OS 6P 02316 110 6 " 2 0 03 FILLER PIC 91 101 fllt'P-3 VALUE 051q D 0 0 0 0 0 D f, M = 9 2 - 2, -02 3 5 7- 006'39--03- rILt.ER--PIC--X( 15)----- -- VALUE 'CC3 - - DNM=92-252 BL-30 219 1822 DS 15C 17 02358 00674,1 03 FILLFR PIC 9( 10) COMP-3 VALUE 0520000000. DNM=92-266 BL=30 228 1807 DS 6P .02 02359 006750 03 FILLER PIC X( 15) VALUE 'JR4 DNM=92-280 BL=30 22E 1801 DS 15C 02'360 -- 00 Q 6-1 (13 FILLER -PIC Q( 10 )-COMP-3 VALUE 05 210000 00. ONM=92-294 BL=M 231) 1786 DS 6P '12 3 1) 1 006171 ',) 1 F I L L E P, PIC Xt 15) V A L Ll E 'J92 J85 JB7 DNM=92-308 BL=30 243 1780 DS 15- 0? 76 2 006' 50 03 FTLL'P PIC 9( 10) CCMP-3 VALUE C521010000. 01,M=92-322 BL=30 252 1765 05 6P 0 -3-006 ?93 03 CILLER -PIC- X 1 15) VALUE 4JR8 ONM=92-336 BL=30 258 1759 DS 15 C 73( 03 FILLER P I C 9( 10) CCVP-3 VALU -350 02364 006300 E 0521020000, ONM=92 BL=30 267 1744 DS 6P 02365 00631) 03 FILLER PIC X( 15) VALUE J B 6. DNM=92-364 BL=30 26D 1738 DS 15C - --------- 51 N4100 10.43.12 APR 391984, INT NAME BASE DISP RL01 DEFINITION P I C-9f Iol- COMP-3--VALUE----0521040000@-------------------@--DNM-92-378--BL-30-2-7C-1-723, -OS--6P-- 0236T 006130 03 FILLER PIC X115) VALUE @JBI ONM-92-392 BL-30 282 1717 US ISC P2168 n06340 03.FTLLER PIC q(jol COMP-3 VALUE 0521060000. DNM-92-406 OL-30 291 1702 US 6P 3 --4--02 369-----0063 50--- 03- Mt. ER -- PIC-- X 1-15)- ------VALUE IJ83 --- DNM-92-420--BL-30 29? 1696--DS - 15C 4 02370 006360 03 FILLER PIC 9( 10) COMP-3 VALUE 0521060100. ONM-92-434 BL-30 2A6 1681 DS 6P 02371, 006370 03 FILLER PIC X(151 VALUE 44FIO DNM=92-448 BL-30 2AC t675 OS 15C 372-0063 ILL ER- --PIC- 91 101--COMP-3 VALUE--0522000000. ONM=92-462 --6L=30 2138 1660 US 6P 02373 00639) 03 FILLER PIC X( 15) VALUE fSOB2 S086 SOBS DNM=92-476 BL=30 2CI 1654 US 15C 02374 006400 03 FILLER PIC 9( 101 COMP-3 VALUE C522010000. ONM-92-490 BL=30 200 1639 US 6P 02375-00641@-t33 FILLER- PIC-X(15)- VALUE 0 SOBI tSQO DNM=93-000 - BL-30 206- -1633 - US 15C*- ' 2376 006420 03 FILLER PIC 9(10) COMP-3 VALUE 0522010100. DKM-93@014 BL=30 2E5 1618 US 6P. 02377 006430 03 FILLER PIC XI 15) VALUE *SQ819 DKM-93-028 BL=30 2EB t612 US ISC 02376---- On6440 ----03 FILLER PIC 9110) COMP-3 VALUE 0522020000. ONM-93-042 BL-30 2FA 1597 US 6P 02379 006450 03 F,TLLER PIC W(15) VALUE OSOB3 SQB7 S08140. ONM=93-056 BL=30 300 1591 US 15C 41 0?380 006463 03 FILLER PIC 91 10) COMP-3 VALUE 0522040000. ONM=93-070 BL=30 30F 1576 US 6P -023fl t-----0064 70,----03 F ILL EP--- P I C X(15) VALUE IS081 SQB5- e - ONM=93-084 -OL-30 3L5 1570 -US 15C 02382 006480 03 FILLER PIC 9(101 COMP-3 VALUE 0522050000. DNM-93-098 BLz30 324 1555 US 6P is, 02383 006493 03 FILLER PIC X( t5l VALUE OSOB18 DNM=93-It2 OL-30 32A 1549 US 15C Z4 @i--02394---006';00----03-FIL(FR PIC 9( 101 COMP-3 VALOE 05M60000o DNM-93-126 -OL-30 339 1534 DS 6P Z. 70 02195 006513 03 FILLER PIC X1 15) VALUE SS084 DNM=93-140 BL-30 33F 1528 CS ISC 2. i 02186 006520 03 FILLER PIC 9(101 COMP-3 VALUE 0522070100. DNM-93-154 BL-30 34E 1513 US 6P 22! 38 0065 30 --03 F ILL ER PIC--X(15)- --- -VALUE OSOBI? ONM=93-168 BL-30 354 1507 DS 15C 231 02388 00654n 03 FILLER PIC 9(101 COMP-3 VALUE 0522080000. ONM=93-182 BL-30 363 1492 US 6P' 023139 006553 03 FILLER PIC XIISI . VALUE @SQB16 ONM=93-196 BL-30 369 1486 US 15C 31 02390 -006560--- 03 FILLER--PIC 94t0) COMP-3 VALUE -0523000000. DNM-93-210 BL-30 3,78- 1471 US 6P ------- 32 33 023ql 006571 03 FILLER PIC X(15) VALUE IR921 RB22 DNM=93-224 OL-30 37E 1465 US 15C OL 02392 006980 03 FILLER PIC 9( to) COMP-3 VALUE C523010100. DNM@93-238 -30 380 1450 US 6P 35 FfLLER-- PIC 'X ( 151 VALUE 'RA20 ONM=93-252 OL-30 393.- 1444 US 1SC 02394 006600 n3 FILLER Pic q(io) caMP-3 VALUE 0524000000. ONM-93-266 BL-30 3AZ t429 US 6P 30 023q5 006610 03 FILLER PIC X(151 VALUE #RB19 ORM-93-280 BL-30 3AS 1423 US 15C 02 396-- 00662D------03-F ILL ER -PIC 9( to)- COMP-3 -VALUE 0526000000*---- ONM-93-294 - OL-30 307 t406 US 6P 1 02397 006630 03 FILLER PIC XI 15) VALUE 14F6 R62 ROB P. DNM=93-308 BL-30 3BD 1402 US 15C 32i 02398 006640 03 FILLER PIC 9(10) COMP-3 VALUE 0526J10000. DKMz:93- 32Z BL=30 3CC 13B7 DS 6P .3 33A31 02399--006650-03-fiLLER---PIC-XI15)---------- --- VALUE IR816 R619 DNM-93-336 BL-30 302 1381- -US 15C----4@5 351 02400 006660 03 FILLER PIC 91 10) COMP-3 VALUE 0526010300. DN.M=93-350 OL-30 M 1366 DS 6P 02401 00 66 7!) 03 rILLER PIC X( t5l VALUE ORB17 ONM-93-364 OL-30 3F7 1360 US ISC 07 4 0 2---- 00 66 80 - ---- 0 3 F I L I F R ----p I C g(lo) COMP-3 VALUE- 0526 013000.---- DNM-9.3-3T8 BL-30 3F6 1345 US 6P 49 02403 006693 03 FILLER PIC X(15) VALUE 8RAt7 ONM=93-392 BL=30 3FC 1339 US 15C 02404 00670-3 n3 FILLER PIC 91 10) COMP-3 VALUE 0526020000. DNM=93-406 OL-30 40B 1324 US 6P 3 Z-02405-006710--03-FILLER -PIC -X 115) -------VALUE -IRBII - - -- ONM=93-420- BL=30 4H 1318 DS 15C 41 024n6 006720 03 FILLER Pic 9(101 COMP-3 VALUE 0526030000. DNM-93-434 BL-30 420 1303 US 6P .2 02407 006730 03 FILLER PIC X( 15) VALUE 'RB4 RB5 RB6 DNM=93-448 BL-30 426 1297 US 15C 0 2 4 0 8-0 0 6 7 40 03 - F I L L E R P I C -- 9 ( 10 1 COMP-3 VAL UF --- 05 26 030 100. DNM-93-462 BL-30 43S 1282 US 6P 0?409 006751 03 FILLER PIC X1 15) VALUE 94F8 ONM=93-476 BL-30 it 38 1276 US 15C 45 02410 006760 03 FILLER PIC 9(10) COMP-3 VALUE 0526050000. DNM-93-490 BL=30 44A 1261 US 6P r --FILLER-PIC--Xi IS) ----------VALUE IR03 RB9 - R02L ONM-94-000- OL-30 4SO --- 125S US 15C -10?41 1-00677a----03 :7 02412 006780 03 FILLER PIC 9(101 COMP-3 VALUE 0526050100. DhM-94-014 OL-30 45F 1240 US 6P .62 02413 on6799 03 CILLER PIC X115) VALUE %RB2U R92M RB2L DNM-94-028 OL-30 465 1234 US L5C @63 -Z,'----02414--006A0n-- 03 FILLER---PIC 9 ( 10) - COMP-3 VALUE -. 0526060000. OhM-94-042 - OL-30 474--- 12 ig US 6P 1 07415 006, 10 01 FIILFR PIC X115) VALUE IRBIZ DNM=94-056 BL-30 47A 1213 US ISC 66 IT' C @3 T 02416 n(M-420 03 FILLER PIC 9(tol COMP-3 VALUE 0526070000. ONM-94-OTO BL-30 489 1198 US 6P ti do ;.r--02417---1D061130-----03- f:[LLER---PIC X(151 VALUE IR81 ONM=94-084 --- BL-30 48F tI92 US ISC -i-i 02418 006A40 03 FILLER PIC q(101 COMP-3 VALUE 0526080000. ONM=94-098 BL-30 49E 1177 CS 6P 70 0209 006850 03 FILLER PIC X(151 VALUE IRRT ONM-94-112 OL-30 4A4 1171 US ISC 71 2 72 52 N4100 10.43.12 APR 3,1984 INT NAME BASE DISP R1.0t, DEFINITICN if 94 10)- COMP-3, VALUE - 0527000000._ Ob-4094-126-OL-30-4B3@-tt56---DS -6P 02471. 006871 03 FILLER Pic X(151 VALUE OS89 SBIL S8121. ONM-94-t4O BL-30 4119 IISO OS 15C 02422 OW80 03 FILLER PIC 9(10) COMP-3 VALUE 0527010000. ONM-94-154 OL-30 4C8 1135 DS 6P 0242-3-006A90 -03 FILL ER-- PIC X-f VALUE IS93 - OPYM-94-168-- BL-30 4CE 1129 - OS I SC 02424 006903 03 FILLER PIC 9110) COMP-3 VALUE 0527020000. DNM-94-182 BL-30 400 1 t.14 OS 6P 02425 006913 03 FILLER PIC X(151 VALUE GSRI S82 S66 1. DNM-94@196 BL=30 4E3 1108 DS 15C -4,)069?*)----1)3- FILLER- PIC 94101 COMP-3 VALUE C527020100.--- - ONM=94-210 BL=30 4F2 1093 CS 6P 02427 006ql() 03 FILLER PIC X I t 5 1 VALUE ISB14 GBIL DKM=94-224 BL-30 4F8 1087 DS 15C, 02428 0OAc)40 03 FILLER PIC 9(101 CnMP-3 VALUE 0527020200. DNM=94-238 BL=30 507 1072 DS 6P 07429--O()6q5,3 --0 3 F I L L E R-- P I C- - X 115 1 VALUE 6SB8 ONM-94-252 BL=30 50D 1066 DS ISC---- 02430 006963 03 FILLER PIC 9110) COMP-3 VALUE 0527020300. ONM-94-266 BL-30 51C 1051 DS 6P :2! 02431 006973 03 FILLER PIC X(15) VALUE S84 4F3 ONM-94-280 BL-30 522 1045 DS IIC -02437 OO6q80----O3 FILLER - PIC 9110) COMP-3 VALUE 0527020400.--- - OhM-94-294- BL-30 531 1030 DS 6P I @71 4 02433 on69911) 113 V ILLER PIC X(151 VALUE 'S%5 ONM=94-308 BL=30 537 1024 DS ISC 02414 Of)7()00 n3 FILLER PIC q(IO) COMP-3 VALUE 0527030000. DAM=94-322 BL-30 546 1009 OS 6P 02415 F ILL ER -- PIC X(15) VALUE IS810 : OL-30 54C 1003 DS 15C iij 02436 007070 ONM=94-3SO, BL-30 55B C988 DS 6P Z2 :7 03 FILLER Pic g(lo) cnMP-3 VALUE 0527040000., 02437 007033 03 FILLER PIC X(151 VALUE ISB15 DNM=94-364 BL-30 561 0982 DS tSC 23 02439-- 007140----413- FILLER ---PIC 9(10) CCIMP-3 VALUE 0527050000.- ONM-94-378 BL-30 570 0967 OS 6P 02439 007050 03 FILLER PIC X(15) VALUE IS916 DNM=94-392 BL=30 576 0961 DS ISC 0244n 007063 03 FILLER PIC q(101 COMP-3 VALUE C528.000100. DKM=94-406 BL-30 585 0946 DS 6P 22' 0?441 -- 007O7f)------O3- FILLER PIC-X(15) VALUE OPAR15PAR17MI-- 4. ON'M-94-420 BL=30 58B C940 CS 15C 23' 02442 007080 03 FILLER PIC q( 10) COMP-3 VALUE 0528000200. ONM=94-434 BL=30 59A 0925 DS 6P 02443 001093 03 FILLER PIC X( 15) VALUE 0126 t27S 129 9. ONM-94-448 BL-30 SAO 0919 6S 15C 02444 --007100------03- FILLER- -PIC q(101 COMP-3 VALUE 0528 0003 00. ---- -- DNM-q4-462 BL-30 5AF 0904 DS 613, 10 n?445 007113 03 FILLER PIC X( 15) VALUE 9110 t t I It2 ONM=q4-476 BL=30 SB5 0898 OS I! 2,i 62446 007 1 2n 03 FILLER PIC 9 110 ) COMP-3 VALUE C 528030000. DNM=94-490 BL-30 5C4 0883 DS 6P 3 2a -() 2 44 7 -0071 T) ----03 FILL ER----PIC-Xf 15)-- VALUE OAF12 A86 5F21 s. DNP-95-000 BL-30 SCA 0877 DS 15C 02448 . 007143 03 FILLER PIC 9(10) COMP-3 VALUE 0528030100. ONM=95-014 BL-30 509 0862 DS 6P 02 449 007153 03 FILLER PIC X115) VALUE IARS DNM=95-028 BL-30 5DF 0856 DS 15C iT-02490-- 007t6-3 ----03 FILLER--PIC 9(tO) COPIP-3 VALUE 0528030201*,----- DNM=95-042 BL-30 SEE 0941 OS 61, 0245t 001170 03 FILLER PIC Xf 1. 5 1 VALUE IA84 A87 0. DNM=95-056 OL-30 SF4 0835 DS 15C 4 21 02452 n07180 03 FILLER PIC 9( 10) COMP-3 VALUE 0528030300. DNM=95-070 BL=30 603 08ZO DS 6P ONM-95-084 BL=30 609 0814 DS 15C 112453--007190-03--FILLER-- PIC X(15),:-,--- - VALUE 'ABI AB3 55 02454 007200 03 FILLER PIC q(101 COMP-3 VALUE 0528050000. DNM=95-09S BL-30 618 C799 CIS 6P 3a 4 007213 03 F ILL ER PIC Xf 151 VALUF I PlJR3 0 DNM=95-112 BL-30 61E 0793 DS t5C 17 i@ --- 7 4 56 -- 00 72 ?() 03 FILLER -- PIC 9(10) COMP-3 VALUE 05 29060001. ONM-195-126 BL-30 620 0778 DS 61! j 3. 0?457 Or) 72 30 03 FILLER PIC X( 15) VALUE 02'AIS 234 SF20 I. DNM=95-140 BL-30 633 0772 DS 15C 39 02459 007240 03 FILLER PIC 91 tO) COMP-3 VALUE 0528060002. DNM=95-154 BL-30 642 07ST DS 6P 40 -02459-007251-03 FILLER- -PIC X( 151 VALUE 1221S 222 SE14 I- ------ DNM-q5-I68-. BL-30 648 0751 I)S ISC, 02460 Of)7?69 03 FILLER PIC 9( 10) COMP-3 VALUE C529060003. DNM=95-182 BL-30 657 C736 DS 6P 02461 007270 03 FILLER PIC X(15) VALUE 1200 201 202 0. ONM-95-196 BL-30 65D 0730 DS 15C 53 ;-il___02462____ 007?80-03- FILLER ---PIC -94 10) COMP-3 VALUE--- C528060004. ONM=95-210 OL-30 66C 0715 DS 61, @51 - 02463 007,190 03 FILLER VALUE 15E5 BP6 P2 9. DNM=95-224 BL-30 672 0709 DS 15C 0073ng PIC X( 15; COMP-3 VALUE 0528060100. 02464 n3 FILLER PIC 9110 DNM-q5-238 BL-30 681 0694 DS 6P ill-LO? 465-0073111-- -03--F ILL ER--- PI C-- X 115) - ------VALUE IPUR23PUR4 PUR22@o------ ONM-95-2S2 - BL-30 687 0688 OS 1SC 02466 007320 03 FILLER Pic 91 10) COMP-3 VALUF 052806010t. DNM-95-266 BL-30 696 0673 OS 6P 171 02467 007133 03 FILLER PIC X( 15) VALUE 'PURt7 ONM-95-286 BL-30 69C 066-1 DS 15C 63 __ 0? 46 8 ---4)n73 40 F I ( L ER --P I C 9( 10) COMP-3 VALIJF 05 28 0601 OS. - - DNM=95-294 BL-30 6AB-. 0652 W DS 6P 02469 no7l 5) 01 F!LLFR PIC X 1 151 VALOE OPUR19 DNM=95-308 BL=30 681 0646 DS 15C n2470 007160 03 FI LLER PIC 9( 101 COMP-1 VALUE 0528060107. Dhm,=95-322 BL-30 6CO 0631 DS 6P @l T I @11N iC @O? 47 1- 00 13 71) ----03 FILLER --- PIC-XIIS) VALUE 'PURS 229 ---- a ONM-95-336 OL-30 6C6 0625 DS 15C 02477. 007380 03 FILLER PIC 9(10) COMP-3 VALUE 0528060109. ONM=.95-350 OL-30 605 06tO DS 6P 02473 007390 03 FILLER PIC X1151 VALUE IPURIS DNM=95-364 BL-30 6DB 0604 DS 15C J 53 N4100 10.43.12 APR 3,t984 tNT NAME BASE D'ISP RLOI DEFINITION --02474---Oo,T4-00----03-fiLL-ER-----PIC-q(-10+--CCf4P-3--VALUE --0520060200*- ONM-95-3?8-SL-30--6EA--0569---DS--6P-- 02475 007410 03 FILLER PIC X(151 @ VALUE 'PUR6 225 227 .8. ONH-95-392 GLz30 6FO 0583 DS 1.5C 02476 007420 03 FILLER PIC 010) COMP-3 VALUE 0528060201. ONM-95-406 OL-30 6FF 0566 DS 6P IA 02477 0074-33--03--F ILLER ----PIC--% IPUR20- --ONM-95-420 --BL-30-705 -0562 --OS 02478 , 0n7443 03 FILLER PIC 9(101 COMP-3 VALUE 0528060208. OhM-95-434 BL-30 ?14 0547 DS 6P n?479 007450 03 FILLER PIC Xf 151 VALUE IPUR21 DNM=95-448 BL-30 71A 0541 US ISC 07440-057461-03 FILLER---PIC-9( 10Y -COMP-3 VALUE 0528060209.@--- DhM=95-462 - BL-30 729 -0526 US 6 02411 007470 03 FILLER PIC X(151 VALUE GPUR7 226 DNM-95-476 BL=30 72F 0520 DS 15C 40 0?492 007480 03 FILLrR PIC 9( 10) COMP-3 VALUE 0528060300. f)NM=95-490 BL=30 73E 0505 DS 6P XII5)---------VALtJE-'220 ONM=96-000 --BL=30 744 0499 DS 15C- 02484 007500 03 FILLER PIC 9( 10) COMP-3 VA01E 05,28060400. DNM=96-014 OL-30 753 0484 DS 6P 02495 ' 007510 03 FILLER PIC XI 15) VALUE 14F2 DNM=96-028 OL-30 759 0478 US 15C 02486---00752D------03.FfLtFR --PIC 91 101 COMP-3 VALOF 052806()600.-- ---DKM-96-042 - BL-30 768 0463 US 6P 02 49 7 007533 n3 FILLER PIC X 1 151 VALUE 'PURI2205 41`1 DNM-96-056 BL=30 76E 0451 US 15C 024119 007540 03 FILLER PIC 9( 10) COMP-3 VALUE 0528061200. nNM=96-070 BL=30 770 0442 CS 6P 48q---- C., 0075 53 ---03 FILLER PIC Xt 151 VALUE 04F3 ONM=9b-084 BL=30 783 0436 US 15 07490 007560 03 FILLER PIC 9( tOl COMP-3 VALUE 0528061202. DP%M=96-098 BL-30 792 0421 DS 6P 0415 DS 15C 123 0249t 007570 03 FILLER PIC X( 151 VALUE 14E4 DNM=96-112 BL-30 798 '2A 0? 4q 2 On75 RD -- - ---- 03 FILLER PIC 1) 10) COMP-3 VALUE 05280616004--'-- 0KM=96-t26 - OL-30 7A7 0400 CS 6P -96-140 BL=30 7AD 0394 CS 15C 20 0?4n3 co 75 90 03 FILLER PIC Xf 15) VALUE 'CMC2 2!; 02494 007600 03 FILLER PIC qf tOl COMP-3 V AL OF 052806t6Ot. ChM=96-t`54 BL-30 78C 0379 US 6P - ---074c)5--- 0076 13-03 F ILLEP-"-PIC -X ( 15) ------------ VALUE- 'C4 ONM-96- t68 BL-30 7C2 0373 DS 02496 007671) 03 FILLER PIC 9(10) COMP-3 VAI UE 0528062600. DNM=96-IR2 BL-30 701 0358 US 6P I I ) L I 02 4q 8 ---- 007640---03 FILLER PIC -9(10) C(IMP-3 -VALUE 0528062700.--- DNM-96-210 OL-30 -lE6 0337 DS 6P a 0?4q7 007631 03 F LLER PIC X 15 VA UE 8. ONM=96-196 BL=30 70? 0352 OS 25 02499 0,07650 03 FILLER PIC X(151 VALUE 'PUR11206 5EI3 1. DNM=96-224 BL=30 7EC 0331 DS 15C 02500 007660 03 FILLER PIC 9( 10) COMP-3 VALUE 0528062900. DNM=96-238 BL=30 7FB 0316 DS 6P 133 0 N M 36 -FILLF ----PIC-XI 5EI2 - - -252-- OL-30-801. 0310 US 15C 0295 DS 6P 07 50? 02 501---00 76 70 03 :R E a -96 DNM=96-266 OL-30 810 007680 03 FILLER PIC 91 10) COMP-3 VALUE 0528063200. 02 l5n 3 007690 0 -3 FILLER PIC Xf t 5 ) VALUE 0209 2tt SE3 0. ONM-96-280 BL-30 816 0289 DS t5C n? 50 4 --- 00 77 (Y)-- 0 3 FILLER- PIC 9(101 COMP-3 VALUE 0528063201&-- D h M- 96- 294 OL-30 825 -0274-- DS 6P 321 02505 007710 03 FILLER PIC Xf 151 VALUE 15F9 ONM=96-308 BL=30 82B 0268 DS 15C 33 02506 007720 03 FILLER PIC 9( 101 COMP-3 VALUE n528063204. DNM=96-32.2 BL-30 83A 0253 DS 6P i, -02 507-007730--03-F ILLER --PIC- X 1 VALUE 1212 210 -0NM=96-336--8L-30 840- 0247 US 15C U 02508 007740 03 FILLER PIC 9( 10) COMP-3 VALUE 0528063208. f)NM=96-350 BL=30 84F 0232 DS 6P 02509 007750 01 FILLER PIC X(151 VALUE 15F4 DNM=96-364 BL-30 855 0226 US 15C 36 02.1;10 ___ 007760 -03 F ILLFR - -PIC- 9 ( 101 COMP-3 VALUE 0528063300.- ---- DNM=96-378 BL-30 864 02 11 OS 6P 0@. 1511 007771 03 FILLER PIC X(t5l VALIJE 9216 218S 219 4. OKM=96-392 BL-30 86A 0205 DS 15C 3 uo 02512 007780 03 FILLER PIC 9( 101 COMP-3 VALUE 0528063305. ONm=96-406 BL-30 879 CtgO DS 6P _0251-3-007791Y-03 F It L ER ---PI C X f 15 1 VALUE 'PUR9 215- SF14-9 DNM=96-420 BL-30 87F Ot84 DS I SC -3 VALUE 0528063306. -434 -30 BBE 0169 US 6P 41 02514 007800 03 FILLER PIC 9( 101 COMP DNM=96 BL 02515 007810 03 FILLER PIC x( 151 VALUE 1217 DNM-96-448 BL=30 894 0163 DS 15C - -DNM=96-462- OL-30 8A3 0148 US 6P 43 ___025I6----0078?0---03- FILLER PIC 9 ( 10 ) -CO MP-3 - V AL IJE - c 5 28 063 5 GO.------ 02517 0071130 03 FILLER PIC X( 15) VALUE 1223 5FI7 DNM=96-476 BL-30 849 0142 US 15C :-a 4. 02518 007841 03 FILLER PIC 9( 101 COMP-3 VALUE 0528063SO3. DNM=96-490 BL=30 BBB 0127 US 6P @39 GO 519---007850 -03--+ ILL ER--PI C- X 1 ---VALUE-$ 224 --- ONM-97-000 OL-30 8BE- 0121-- DS ISC-- 4 025?0 11071169 113 FILLER iP I,C 9( 101 COMP-3 VALUE 115210637110* DNM=97-014 BL=30 BCD 0106 DS 6P 02521 007870 03 FILLER PIC X( 1,51 VALUE ISF18 232 PURI&I. DNM=97-028 BL=30 8D3 0100 OS 15C 4 02 5 ? 2-00 79 FV)- n 3 r- I LL FR-- PIC 91 10 )- C(IMP-3 -VALUE -- C528063701.- -ONM=97-042 BL=30 8E2 0085 US 6P C 50 02573 0071ql 03 FILLER PIC XI 15) VALUE *PtJR14 OKM=97-056 BL-.30 BE8 0079 DS IS @4 0?524 0 0 79 00 03 FILLER PIC 9( 101 COMP-3 VALUE 0528o6.3702. DfwM=97-070 BL=30 BF7 0064 DS 6P -02 5 7 5-0079 19-0 3 - F ILLEP ----PIC- XI 151 VALUE- OPURIS - -- ONM-97-084 BL-30 BFO 0058 DS LSC- so 02526 007920 03 FILLER PIC 9(10) COMP-3 VALUE 0528063800. DKM=97-098 BL-30 90C 0043 US 6p 70 02527 007930 03 FILLER PIC Xt 15) VALUE 05FI9 PUR2 PUR3ts. DNM-97-112 BL-30 912 0037 DS 15C 172t. 17A is 31 7 54 N4100 10.43.12 APR 391984 INT NAME BASE OISP RL01 DEFINITION f)2.528-007q4O-----03-F-ILLER---PIC--9(-101--COMP-3 VALUE 0528063802o-- ONM*97-t26- BLm30 92t---0022 DS- 6P- O?S29 007951) 03 FILLER PIC XIISJ VALUE PURI 3 ONM-97-140 BL*30 927 0016 DS t5C 02530 007960 n3 FILLER PIC q(IO) COMP-3 VALUE 0528063803. DNM-97-154 BL-30 936 0001 DS 6P 531- GPUR3 233 ------ 0. 0005 DS tSC 03- F I LL F-W-' P I C X(IS) -VALUE a K M = 9 7- 16 a - OL-30 93C 02532 007980 03 FILLER PIC 9( tf)l COMP-3 VALUE OS28064000. ONM=97-182 BL-30 945. 0020 DS 6P 02533 007990 03 FILLER PIC X( 15) VALUE 1 5. ONM-97-t96 BL*30 951 0026 DS t5C 025@4 1) 0 R il 00 0 3 - F I I L E R - - P I C 91 101 COMP-3 VALUE 0 5 2 8 06 4# 100 DNM-97-210-- OL-30 960 0041 DS 6P 02535 00BOll 03 FILLER PIC X( 15) VALUE 15F6 SE7 5 DNM=97-224 BL=30 966 0047 DS 15C 02536 008020 03 FILLER PIC 9( 101 COMP-3 VALUE 0528064101. ONM=97-238 BL-30 97S 0062 OS 6P ,.t---0253-7-0O80T)----'--03 -FILLER---PIC- XI IS I--- --- -VALUE -9 tO It - ----- - I)NM-97-252 OL-30 97B 0068 OS 15C 02538 008040 03 FILLER PIC 91101 COMP-3 VAL UF 0528064104. DNM=97-266 BL-30.98A 0083 DS 6P 0253q 0 (M 0 51 03 FILLER PIC Xf 15) VALUE 114 ONM=97-280 BL-30 990 0089 DS 15C 02 540 03 FILLER - PIC q 1 10) COMP-3 V A L I IF 0528064105,- DNM=97-294-- BL-30 99F -0104 DS 6P 02541 009070 03 FILLER PIC X( IS) VALUE 12 3 15 DNM=9T-308 BL=30 9AS 0110 OS ISC 02542 0080F10 03 FILLER PIC 9( 10) CnMP-3 VALUE 0528064106. ONM=97-322 BL-30 904 012S DS 6P DNM=97-336 BL-30 98A 0131 OS 15c- 02543 -FILLFR--PIC X( 15) VALUE '1-- 4 02S44 On8lOO 03 1- 1 L L E R PIC 9( 10) COMP-3 VALUE 052806007. DNM=97-350 BL-30 9C9 0146 DS 6P 02545 009111 03 FILLER PIC X( IS) VALUE '16 ONM-97-364 BL-30 9CF 0152 DS t5C 02 54 6 0 0 n 129 -03 FILLFR -PIC 9( 10) COMP-3 VALUE -0528064tO8.---- DNM=97-378 BL-30 9DE Ot67 DS 6P------- if 20! 02547 008133 03 FiLLER PIC X( 15) V AL UE 18 ONM=97-392 BL-30 9E4 0173 OS 15C 02548 008140 03 FILLER PIC 9( 10) COMP-3 V A L U E 0528064109, ONM=97-406 BL-30 9F3 0188 DS 6P 2, 0? 5 49 00 8150----- -0 3 FILLEP---PIC Xf IS)--- --- VALUE 812 - ONM=97-420- OL-30 9F9 0194 DS 15C 02590 00916n 03 FILLER PIC 9( 101 CCMP-3 VALUE 0528064200. DKM=97-434 BL-30 A08 0209 DS 6P 2 31 0255'1 009170 03 FILLER PIC X( 15) VALUE IBP4 BPS CBS DNM=97-448 BL-30 AOE 0215 DS 15C 211 0? 5 52 -009180----013 FILLFR--PIC 91 101 COMP-3 VALUE- 0528 070600. ONM-97-462 BLw30 AID 0230 OS 6P - ------ b2 5 53 008191 03 FILLER PIC X( 15) VALUE IPARI8157 PAR28I.. DNM-97-476 BL-30 A23 0236 DS t5C 02554 0OF1201 03 F I LLER PIC 9( 101 COMP-3 VALUE 0528070100. DNM=97-490 BL-30 A32 0251 DS 6P n? 555 OnR2 10 - 03 FILLER-- PfC--Wf 15) VALUE 'PAR21 nNM=98-000 80:30 A38 0257 DS 15C bNM=98-014 BL-30 A47 0272 DS 6P r)2 5 56 0OR220 03 FILLER PIC 91 101 COMP-3 VALUE 0528070200. n2557 008231 03 FILLER PIC X( 15) VALUE IPARIOI58 PAR206. DNM=98-628 BL-30 A4D 0278 DS ISC 5 5 8--- 008240 ----03-F ILL FR- -PIC--9( 10) Cn MP-3- V A L UF - 0 5 2 8 0 702 0 1. DI%M=98-042 8L-30,A5C 0293 DS 6P 31 31 02 559 008751) 03 FILLER PIC XI 151 VALUE 'PNCt ONM=98-056 BL=30 A62 0299 DS 15C 02560 OOs2flO 03 FILLER PIC 9( 101 COMP-3 VALUE 0529010202. ONM-qa-070 BL-30 A71 0314 DS 6P 134-02561----0081 03- FILLER-- PIC Xf IS)- VALUE 'PAR29 - - ----- ONM=98-084 BL-30 A77 -0320 DS ISC 3@ 02S62 008280 03 FILLER PIC 9( 10) COMP-3 VALUE 0528070400. DNM=98-098 BL-30 A86 0335 DS 6P 02563 0087qj 03 FILLER PIC X( 151 VALUE IPAR19 17 ONM-98-tt2 OL-30 A 8C 0341 DS 15C 371 07 564 ----00 83 00---03 - F IL L ER P I C- 9 1 10)-COMP-3 VALUE 05280705 00.- DNM=98-126 BL-30 A9B.- 0356 DS 6P 3a; O?SAS 008111 03 FILLER. PIC X( 15) VALUE 'PAR22 DNM=98-140 BL-30 AAt 0362 DS 15C 02 5fi& 008-120 03 FILLER PIC 9( 101 COMP-3 VALUE 0528080000. ONM=98-154 BL-30 A30 03T? DS 6P 56 001,33.30 -------03 FfLLER--PIC-- X( t5 I VALUE 0154 PStj ONM=98-t68-- OL-30 A86 0383 DS 15C- 40 .11 02568 008340 03 FILLER PIC 9( 10) COMP-3 VALUE 0528090006. ONM=96-182 BL=30 AC5 0398 DS 6P 41 421 02569 008,453 n3 FILLER PIC X( 151 VALUE OPAR35 DNM=98-196 BL-30 AC8 0404 DS 15C .55 0? 570 ---009160--03 FILLER--PIC- q(10) COMP-3 VALUE 0528tOOOOO. ONM-98-210- BL-30 ADA 0419 DS 6P- - - ON14=98-224 OL-30 AEO 0425 OS 15C 02571 0OR370 03 FILtER PIC K( 1,51 VA t IJE PPAR9 07577 008380 03 FILLER PIC 91 10) COMP-3 VALUE 0528120000. ONM=98-238 BL-30 AEF 0440 OS 6P c .G@--02 57 3-006340--03 -F I LL ER--P I C --X I t 5 1--- - VA LUE 'PAR8 134 ONM=98-252-- BL-30 AFS 0446 DS IS 1 07574 008400 13 FILLER PIC 94 101 COMP - 3VALUE 0528120300. 'DKM=98-266 BL 30 B04 0461 OS 6P 2 02575 0OR419 03 FILLER PIC XI 15) VALUE ,PBC4 DNM=98-280 BL:30 BOA 0467 DS 15C 4a @_,_02576--00A420---- n3--FILLER -- PTC-91 10.1-COMP-3 VAL UF - OS28t2O4OO. ONM=98-294 8L=30 819 -0482 DS 6P 49 -308 BL-30 BIF 0488 DS I 02577 000431 03 FILLER PIC X( 151 V A L U E 1POC3 DNM=98 5C 501 -3 02578 008440 03 FILLER PIC 9( 101 COMP-3 VALUE 0528120500. DNM=98-322 OL-30 B2E 0503 DS 6P '54 B2 52B 0, S 29 -f)?579---OO,945f)--O3 -FILLER --PIC- Xf 15) VALUE 'PRC2 DNM-98-336 BL-30 B14 -0509 - DS ISC 02580 008460 o3 FILLER PIC q(101 COMP-3 VALUE 0528120600. DNM-98-350 OL-30 843 0524 DS 6P 91 02581 008470 03 FILLER PIC X( 151 VALUE IPRCI ONM=98-364 BL-30 B49 0530 DS 15C -2 571 .7 55 U4100 10.43.12 APR 30984 TNT NAME- BASE DISP RLOI, DEFINITION 255R2 0O84-fl0------15-FlttfR --PI C 94 1,01- COMP-3-VAL:UF----OS28I-3OOO*-. ONM-98-376 --8L-30--858-O545-- 05- 6P C 2 02583. 0084qO 03 FILLER PIC X(t5I VALUE 4PDCt ONM=98-392 BL-30 OSE 0551 US 15 025A4 OORSOO 03 FILLER PIC 9110) COMP-3 VALUE 0528150000. DN,4=98-406 OL-30 860 OS66 US 6P ---0NM-98-42O--BL-3O 873---0572 - US t 5C----"@ .1 02586 009,20 03 FILLER PIC 9( 101 COMP-3 VALUE 0528160000. DNM-98-434 BL-30 B82 0587 US 6P 02587 no8530 03 FILLER PIC X(151 VALUF IPAR3 125 124 0. DNM=98-448 BL-30 888 0593 US ISC --PIC -91 tOl-COMP-3 VALUE 05 28 1 70000i DNM=98- 462 -- BL-30 897 0608 US 6P- 02599 008550 .03 FILLER PIC X( 151 VALUE IPAR2 118 IT? 0. ONM=98-476 BL-30 B9D 0614 US 15C 0251)0 003560 03 FILLER PIC 91 101 COMP-3 VALUE 0528180000, DNM=98-490 BL-30 BAC 0629 US 6P 02 5ql-----O095 7D n3 F IL L ER----P I C X 1 15) -'- V A L UE SPRCt - f)NM=99-000 BL=30 B82 0635 US tSC 02592 008580 03 FILLER PIC 9( 101 COMP-3 VALUE 0528200000. ONM=99-014 BL=30 BC1 0650 US 6P t4 02 9ql OOR593 03 FILLER PIC X( 151 VALUE '100 102 103 0. ONM=99-028 BL=30 BC7 0656 US t5c 13@ -07 594----0096 00 --03 FILLER--PIC 9( 101-COMP-3 VALUE- -0520200?00. DNM-99-042- BL-30 BD6 - 0671 US 6P 1 02595 00 96 to 03 FILLER PIC X( 151 VALUE 9107 108 TTC1 1. DNIM=99--056 BL=30 60C 0677 US ISC 02596 008620 01 FILLER PIC 9( 10) COMP-3 VALUE 0528200201. DNM=99-070 BL-30 BEB 0692 US 6P Ile 02 597 A630 --03- FILLER --PIC X(151 VALUE 4TTC6 - - ---- --BL=30 BFL 0698 05 t5C 7 075q8 009643 03 FILLER PIC 91 101 CUMP-3 VALUE 0528200204. DNM=99-098 BL=30 COO 0713 US 6P 22 02 599 008650 03 FILLER PIC X( 151 VALUE OTTC7 TTCO DNM=99-lt2 BL-30 C06 0719 US 15C 02600 00 03 FILLER -PIC 91 10) COMP-3 VALUE 0528 200207.-__ ONM-99-126 OL-30 CtS - 0734 US 6P 01601 008570 03 FILLER PIC X(151 VALUE ITTC2 I .- DNM=99-140 BL=30 CIO 0740 US 15C 02602 noA680 03 FILLER PIC 9(101 COMP-3 VALUE 0528200300. OKM=99-154 BL-30 C2A 0755 US 6P 0096'@G----03-FILLER --PIC--XI TGC2 TGC-3--';, --DNM-99-168 - BL=30 C30 -0761 US 0?604 008700 03 FILLER PIC q( 10) COMP-3 VALUE 0528200600. DKM=99-182 BL=30 C 3F 0776 US &P 3 24 02605 003 7 to 01 FILLER PIC XI 15) VALUE ITCOI TC02 .1. DNM=99-196 BL=30 C45 0782 US ISC 0?606------008720----03 FILLER--PIC 9( 10) COMP-3 VALUE- 0528 200800. DNM=99-210 -BL=30 C54 - 0797 US 6P ITFCI TFC2 TFC3 0. -224 2:: 0?607 008730 03 FILLER PIC X( 151 VALUE ONM=99 BL=30 C5A 0803 US ISC 02608 008740 03 FI1LER PIC 9( 101 COMP-3 VALUE 0528200801. DNM=99-238 BL-30 C69 0818 US 6P 23 02609----O0q75O--f)3- FILLER --PIC-X( 15 ITFC6 DN4=99-252 BL-30 C6F 0824- US 15C 341 02610 008760 03 FILLER. PIC 9( tO) COMP-3 VALUE 0528200900. DNM=99-266 BL=30 CIE 0839 US 6P, 13a 301 176 1 1 008770 03 FILLER PIC X( 151 VALUE OTRS1 ONM=99-280 BL=30 C84 084:5 US t5C 'u @,[----026t 2 -- 009 T8()----03 FILLER -PIC 94 10)-COMP-3 VALUE 05 28 201000.---- - DNM=99-294 BL-30 C93 0860 US 6P 32 07613 008790 03 FILLER PIC Xf 15) VALIJE ITTNI TTN2 TTN3 0. ONM=99-308 BL-30 C99 0866 US 15C 33 n2614 008800 03 FILLER PIC 9( 10) COMP-3 VAL UE 0528201001. ONM-99-322 BL=30 CA8 0381 US 6P 7,-02615---OOqql9 3 -FILLER--- PIC Xf 15 ) - -- - ---- VALUE OTTN6 --DNM-99-336 - OL-10 CAE - 0887 US t5C- A4 3. 02616 008820 03 FILLER PIC 9(101 COMP-3 VALUE 0528201100. ONM-99-350 BL-30 C80 0902 US 6P 02617 00AR30 03 FILLER PIC X( t5I V A L U E ATnCj DNM=99-364 BL-30 CC3 0908 US 15C 61 F3 ---- Of)994O------O3- f ILL FR -PIC qf 10) -COMP-3 VALUE--0528201101. DKM-99-378 BL-30 C 02 C923 US 6P 02619 008850 03FILLER PIC Xf 151 VALUE 'TnC2 DNM=99-392 BL=30 C08 0929 US ISC as 02620 008ck6o 03 FILLER PIC 9( 10) COMP-3 VALUE 09528201200. DNM=99-406 BL-30 CE7 0944 US 6P 3@1 C 1.2 70-026?1-003870-03 -FILLFR--PIC X( VALUE--STTYI TTY2 0NM-99-42O--BL-3O CEO -0950 US L5 IV 02622 OORF180 03 FILLER PIC 9( 10) COMP-3 VALUE 0528201600. ONM-99-434 BL-30 CFC 0965 US 6P 54 02623 00SR93 FILLER PIC X( 151 VALUE OTHCI ONM=99-448 BL-30 D02 0971 US 15C ISO 02624 - 008901-03 FILLER--PIC 91 101 COMP-3 VALUE-- 0528201700 ON.4=99-462- OL-30 DII 0986 US 6P 0625 009910 01 FILLER PIC X ( t 5 1 VALUE #104 TCCI CC2 0NN=99-476 BL-30 017 0992 US 15C 02626 nosg2o 03 FILLER PIC q( 10) COMP-3 VAL UE 0529201800. ONM=99-490. BL-30 D26 1007 US 6P 100 -00--- BL-30 DZC -1013 - US 15 02 6 7 7-008931-03--F IL L ER -P I C--X 1 15) VAL UE TBC I -- a DNM-100 C__ a, 02628 008940 03 FILLER PIC 91 101 CCMP-3 VALUE 0528201900. DKM=100701 BL-30 03B 1028 US 6P !a 02629 008950 03 FILLER PIC Xf t5) VALUE ITCSI DNM=tOO-02 OL-30 641 1034 US t5c 02630-- 0() q9 60-03-- F I L L E R --- P I C-- 9 ( 10)--COMP-3 VALUE --0')28202000.-- --DNM-IOO-W BL-30 050 1049 US 6 ;a, Z 02611 008973 03 FILLER PIC Xf 15) VALUE @TSCI TSC2 TSC3 ONM=106-05 BL-30 056 1055 US 15C .4 I PIC 9( 101 COMP-3 VALUE A,., i 02612 108980 03 FILLER 0528202100. DKM=100-07 BL-30 D65 1070 US 6P 02633-- 00,9990- I-r[LLFR---PIC-X( 15 VALUE -OTBOI T082-----a. ONM-100-08- BL-30 D6B 1076 US l5c- 2634 009001 03 FILLER PIC 91 101 COMP-3 VALUE 0528202200. DNM-100-09 OL-30 DIA 1091 D S 6P 02635 009010 03 FILLER PIC X(151 VALUE 'TCM1 DNM-100-11 BL-30 DOO 1097 US 15C 17, 7 56 W4100 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION ?636 9020--03,-F-[Lt7E-R--PIC-If-iO)--COMP-3 VALUE-- 05282025004-- ONM-100-12-OL-30-OBF----tII2--DS 6P 02637 009030 03 FILLER PIC X(151 VALUE 4THMt DNM-100-1.4 BL-30 095 1116 US t5C 02638 009041 03 FILLER PIC 9(10) COMP-3 VALUE 0528202600. ONM-tOO-I@ @ BL-30 D44 1133 US 6P 02639--00905D--03-FILLFR,--PIC--X VALUE -4-TCL.1 - @DNM-100-16-- OL-30 OAA 1139 US I SC, 02640 009060 03 FILLER PIC 9(101 COMP-3 VALUE 0528220000. DhMaI00-18 BL-30 D89 1154 DS,6P 02641 OOqO7O 03 FILLER PIC X(151 VALUE 'PROL DNM=100-19 BL=30 OBF 1160 DS 15C 02 642---0090 80---03--F ILL f!R----P FC 9( tO)-COMP-3- VALUE --0526230000*- DNM-100-21 --BL=30 OCE 1175 DS 6P----- 02643 009093 03 FILLER PIC X(151 VALUE 1113 114 ONM=100-22 BL=30 DD4 ILBI US I SC 02644 00,1103 03 FILLER PIC q( tO) COMP-3 VALIJE 0528230400. DNM-100-23 BL-30 DE3 1196 US 6P -02645-0091 11--03--F ILL ER----PIC X 1151 VALUE -@ PCC1 - - -- -- DNM@100-25 -OL-30 DE9 L202 US 15C to. 13 02646 0()ql20 03 FILLER PIC 94 101 COMP-3 VALUE 0528270000. DNM=100-26 BL=30 DF8 1217 US 6P 02647 00913r) 03 FILLER PIC X( 15) VALUE 'PHCI DNM-100-28 BL-30 OFE 1223 D S 15C .0528290000. --02648--00Qt40---03-.-F ILL ER PIC 91 10)-COMP-3 VALUE DNM-100-29 OL-30 EOD 1233 US 6P t, 07649 ooqt 51 03 r-ILLER PIC X(15) VALUE 1119 120 123 1. ONM=100-30 BL=30 E13 1244 US 15C 1@! 02650 009160 03 FILLER PIC 9( 101 COMP-3 VALUE 05282qOlOO. DKM=100-32 BL=30 E22 1259 US 6P @-,@--02651-009173-----03- FILLER--- PIC -VALUE IPAR4 121 -tZZ- DKM-00-33 BL=30 E28 1265 US 15C 7 02652 009IFtO 03 FILLER PIC 9(10) COMP-3 VALUE 0528290104. ONM-100-35 BL-30 E37 1280 US 6P 014M=100-36 BL-30 E3D 1286 US 15C 02653 - nog 19-3 n3 FILLER PIC X415) VALUE ?PnB2 DNM=100 02654- DOWnn A3 FJtI_FR--- PIC 9110)-Cf)MP-3 VALUE 0528290105 - ------ -37 BLF30 E4C 1301 US 6P 02655 ()09?1() 03 FILLFR PIC X(151 VALUF IPBB3 DNM=100-39 BL= 30 E52 1307 US 15C 02656 009?20 03 FILLER PIC 9( 101 COMP-3 VALUE 0528290106. DNM=100-40 BL-30 E61 1322 US 6P 2 02 6 57 ----0092 3) ------()3-+ItLER - PIC X(15) VALUF &PRB4 - DNM-t00-4Z -OL-30 E61 1328 US 15C 02658 OOq240 03 FILLER PIC 9( 101 COMP-3 VALUE 0528300300. OhM=100-43 BL=30 E76 t343 US 6P 02659 OOQ25,) 03 FILLER PIC XIS VALUE 128 PNVI DNM=100-44 -BL-30 EX 1349 US 15C 0266-3---0()q?60 ---- n3 FILLER- P I C- 91 10) COMP-3 VALUE OS2830010O..---- DKM-100-46 BL-30 E 88 1364 US 6P 02661 00`12 71 01 F IL I. ER PIC X(15) VALUE PNV2 DNM=00-47 BL=30 E91 1370 US 15C 02662 001)? 80 03 F LLFR P C 910 CCMP-3 VALUE 0528350000. DNM=100-49 BL=30 EAU 1385 US 6P -qr---02 663 -- 009290----03 FILLER --PIC---X( IS I VALUE-IPAR6 L3? -140 av ()NM=101-00 BL=30 EA6 t391 US 15C n2664 OOq3OO 03 FILLER PIC 9 10 COMP-3 VALUE 0528350300. DNM=101-OL BL-30 E05 1406 US 6P n2665 009310 03 FILLER PIC X(15) VALUE IPDM2 ONM=101-02 OL-30 EBB 1412 US 15C 07 666 0 0 q 3 20 -- 03 F I L L F RP I C 9( 10) COMP-3 V A L U E- 0 5 2 9 3 504 00. ONPO-101-04 ---13L-30 ECA 1427 US 6P 02667 009333 03 FILLER PIC Xt 151 VALUE IPAR7 139 DKM=lol-05 BL=30 EDO 1433 US 15C 42 00q34) 03 FILLER PIC 91 1.01 COMP-3 VALUE 0529370000. DNM=101-07 BL=30 EDF 1448 US 6P 02668 @-3L--02669--OOq35!)----03- -FILLER---- PIC- X( 151- VALUE- 'PARI 1152 - DNM=101-00 -BL-30 EE5 1454 - US l5c 02670 009361 03 FILLER PIC 9.( 10) COMP-3 VALUE 052a370100. ONM=101-09 BL-30 EF4 t469 US 6P 02671 00q'i 70 03 FILLER PIC XI VALUE OPAR27 DNM=101-11 BL-30 EFA 1475 US 15C 02672 ___ 009380 03 FILLER PIC 9(115011-COMP-3 VALUE _0528 370200.---- DKM-101-12 OL-30 F09 - 1490 US 6P 30 02673 000390 03 FILLER PIC X( 151 VALUE 'PAR31 DKIA=tOt-14 BL-30 FOF 1496 US 15C I 02674 0094 00 03 F LLER PIC 9(10) COMP-3 VALUE 0528370201. DKM=101-15 BL=30 FIE 1511 US 6P 02 675-00`14 1!) F I LL ER-- PIC X(151 VALUE 'PAR32 - DUM-101-16 BL-30 F24 151? US ISC 53 02676 00`1420 03 FILLER PIC 94 101 COMP-3 VALUE 0528370300. DNM=101-18 BL-30 F33 1532 US 6P 1 02677 009433 03 FILLER PIC Xf t5l VALUE IPAR30 UNM=101-0 BL-30 F39 1538 US 15C 4. @@,j- 02678 --- 009440 -----03 FILLER -PIC q( 10) COMP-3 VALUF 0528371100. OKM=101-21 BL-30 F48 1553 US 6P 02679 009453 03 F ILL ER PIC Xf [51 VALUE IPAR26 ONM=101-22 BL@,30 F4E 1559 US 15C 009460 03 FILLFR PIC 9( 10) COMP-3 VALUE 052837t2CO. ONM-101-23 BL-30 F 50 1574 CS 6P 0268 -02681 - ONM-101-2S-- BL-30 F63 1580 US 1! __0094-70-03 -FILLER PIC-- X 115)----- - VALUE 'PAR1414? ic :7 US 6F 02682 0094 Al 03 FILLER PIC qI 101 COMP-3 VALUE 0528371201. ONM=101-26 BL=30 F72 1595 02683 0094 93 03 FILLER PIC X(IS) VALUE #PAR24 DNM-101-28 BL-30 FTS 1.601 US ISC -----03- FILLER PIC- 9( 101 COMP-3 VALUE 0528171202.--- nNM=101-29 BL=30 F87 1616 US 6P ,q 07685 0091,13 03 FILLER PIC xf 151 VALUE 'PAR23 DNM=101-30 OL-30 FSD 1622 US 15C 02696 009520 03 FILLER PIC q( 10) COMP-3 VALUF 0528371203. DNM=101-32 BL=30 F9C t637 US 6P 56 ION 9E 763-6- @f -02687-00q531-03 FILLER--- PIC XI 15) VALUE 4PAR13148 DNM-101-33 BL-30 FA2 1643 US 15C 026138 0()q540 03 FILLER PIC 9( 10) COMP-3 VALUE 0528390100. OKM=101-35 BL=30 FBI 1658 US 6P :3 02689 009';53 03 FILLER PIC X( 15) VALUE IPAR25 DNM=101-36 BL=30 FB? 1664 US 15C 57 N1,4100, 10.43.12 APR 391984 INT NAME BASE DISP RL61 DEFINITION I I OY -C-OMP-3--V.AL-UE-- 052 a 39010 Ila--- ---DNM*IO1-37--BL-3O-FC6-- 1679-- VS--6P 2 026ql 009570 03 FILLER PIC X(15) VALUE IPAR16 ONM*101-39 BL-30 FCC 1685 DS 15C 3 02692 009580 03 FILLER PIC 9(10) COMP-3 VALUE 0528400000. ONH-101-40 BL-30 FOB 1700 os 6p "3 _W1591--009590-03- FILLER--- PIC--x 1-151 VALUE All- ONM-101-42 -SL=30- FEI---1706--,DS -15C 9 02694 009600 03 FILLER PIC 94101 COMP-3 VALUE 0528400200. DNM=101-43 BL-30 FFO 1721 OS 6P 6 02695 009613 03 FILLER PIC x(15) VALUE IAI ONM-101-44 BL-30 FF6 1727 OS 15C 7 07 696-----OO9620----O3-F ILL ER ---PIC 9110) COMP-3 VALUE 0528400201ir- ---DKM=lOI-46 -- BL-31 005-- 1742- CS 6P 02697 00Q6 30 03 FILLER PIC X(151 VALUE IA2 S86 DNM=101-47 BL-31 008 1748 DS 15C 10 026q8 OOQ640 03 FILLER PIC 9(101 COMP-3 VALUE 0528400300. DNM=101-49 BL-31 CIA 1763 DS 6P 02 699 ----n0Q653--'03 IF I LL ER PI C A ( 15) ---- VAL UE 'A3 - --- ___DNM=I02-OO-- OL-31 020 1769 DS 15C 12 07700 00()660 03 FILLER PIC 9(10) COMP-3 VALUE 0528400400. OKM-tO2-Ot SL=31 02F 1784 DS 6P il,3 4 12 02701 0096 71 03 FILLER PIC X(15) VALUE OA4 A5 ONM=102-02 BL-31 035 1790 bS 15C i-jt----O2702----00q680-----O3 FILLER-- PIC-()(10)-COMP-3 VALUE - 05284005OOe---- ____DhM=l02-O4 BL-31 044 1.805 DS 6P 14 07703 Ooq690 03 FILLER PIC X1151 VALUE 9 A6 AS ONM=102-05 BL-31 04A 1811 DS I SC'" 02704 009700 03 FILLER eIC 9( 10) COMP-3 VALUE 0528400502. ONK-102-07 BL-31 059 1826 OS 6P jig 02 70 5 -0097 10 03 -FILLER- --PIC- X ( t 5 1 VALUE 'AT - - -01him-102-08---BL-31. 05F 1832 -OS ISC- 4LO .6 02706 009720 03 FILLER PIC 9( 10) COMP-3 VALUE 0528400600. DNM-t02-09 BL-31 06E 1847 OS 6P 02707 00973) 03 FILLER PIC Xl 151 VALUE IA16 ONM-102-11 OL-31 074 1853 DS ISC 123 02 70 8-- 009740------ 03 FILLER----PIC 91110) COMP-3 VALUE 05 28 4007004--- -DNM=102-12 BL-31 093 1668 OS 6P ---2' 19f @25 20i 0? 709 009750 03 FILLER PIC X1 151 VALUE 'AI0 Alt SST ONM=102-14 SL-3L 089 1874 OS 15C 26 1 02710 009760 03 FILLER PIC 91110) COMP-3 VALUE 0928400702. DNM=102-15 BL-31 098 IBS9 DS 6P @17 21i I ---- --6 -La 221 f)271 1: -- 009770-----03 FILLER--PIC -X ( 15)- VALUE-GA12- - ONM=102-16 - BL=31 09E 1895 DS- I5C____ 23 02712 009780 03 FILLER PIC 91101 COMP-3 VALUE 0528400800. DhMkIO2-18 BL-31 CAD 1910 DS 6P. 4 02713 009790 03 FILLER PIC X115) VALUE 'A14 ONM=102-19 BL=31 033 19t6 DS 15C ----O?7I4---0O91t00--03- FILLFR@---PIC 9(101 COMP-3.-VALUE - 0528410000i,-- ____DhM=t02-2l --BL-3t OC2 L931 DS 6P @33 '02715 009q 13 03 FILLER PIC X(15) VALUE $Ai52@ 2 ONM--102-22 0 .L-31 OC8 1937 . OS t5C 02716 009120 03 FILLER PIC 9(101 COMP-3 VALUE 052 841 0100. DKM=102-23 OL-31 COT 1952 DS 6P 17 T.--02 71 7---noge 111-03 FILLER--PIC X(15) VALUF IA50 ASI --- S90-4 ONM=102 -31 ODD 1958 DS 15C -25- St. 02718 009340 1`113. F It L ER PIC 9(10) COMP-3 VALUE 0528410 1101. DNM=102-26 BLm31 OEC 1973 DS 6P 39 30 02719 009350 03 FILLER PIC X(15) VALUE IA53 DNM-102-28 BL-31 OF2 1979 OS ISC iT,-02 72 0 009969--03 -T ILL FR-----P IC q4IOl COMP-3 VALUE---0528410200.- -DNM-102-29 BL-31 101 -1994- CS 6P 07 72 t 00q8T0 03 FILLER PIC X( 151 VALUE RA54 A55 S91. 1. ONM-IOZ-30 BL-31 107 2000 OS ISC !42 02722 009q80 03 FILLER PIC 9(10) CCMP-3 VALUE 0528410300. DKM=102-32 BL-31 116 2015 DS 6P 143 33 1., -@J- 02 7 2 3 00989D---03-FILLER-- PIC -X( t5)----------VALUE-.A58 A59 S93-. ONM=102-33 OL-31 tIC 2021- OS l5c__ 02724 ()nqqoo 03 FILLER PIC 91110) COMP-3 VALUE 05284tO4OO. OSM-102-3S BL=31 125 2036 OS 6P 02725 009910 03 FILLER PIC X(151 VALUE sA56 A57 S92 1. DKM-102-36 BL-31. 131 2042 DS ISC 0? 7? 6-430q9 20 03 -F ILUFR-- PIC 9(10)-COMP-3-VALUE- 0529000000.----- --:DNM-102-37 BL-31 140 2057 OS 6P 30 0?727 OGq933 03 FItLER PIC X1151 VALUE 1813 S97 E)NM=102-39 BL=31 146 2063 CIS 15C 02728 009941 03 FILLER PIC q I to) COMP-3 VALUE 0529010000. Dhm=t02-40 BL-31. 155 2078 DS 6P 3.@ 152 . .. 07 7 79- 009950-03 F I L L ER----P I C X 115 1 V AL Of '810 -ONM-102-42 BL-31 15B 2084 OS 15C --- 5_'3 02730 n09960 03 FILLER PIC 91 10) COMP-3 VALUE C929040000. Dhm=i02-43 BL-31 16A 2099 DS 6P 027111 009970 03 FILLER PIC X I t 5 1 VALUE 2811 B12 S96 1. DNM-tO2-44 OL-31 170 2105 D S 15C I..., __ S@a i3 02 732----Oe9980--- 03 F Itt ER-- PIC 911101 COMP-3 VALUE- 0529060000. DNM=102-46 OL-31 17F 2120 DS 6P .4 02733 009999 03 FILLER PIC X115) VALUE 1019 S99 ON4=102-4.7 BL=31 185 2126 DS 15C 02734 01 nool.) n3 FILLER PIC 911 101 COMP-3 VALUE 0531000000. DNM=102-49 BL-31 194 2141 DS 6P ISO .5-02735-010019-03--FYLL-ER---PIC--Xf VALUE $822 S98 ----m '-DNM-I03-00---8L,g31 19A 2147- OS 15C__ .7 02736 010021) 03 FILLER PIC 9( 10) COMP-3 VALUE 05310tOOOO. DKM=103-01 BL-31 IA9 2162 DS 6P 02737 OtOO33 03 FILLER PIC X(15) VALUE 1820 B21 S95 9. ONNI-103-02 BL-31 IAF 2168 DS 15L, T.--02738-01(11040-03 FILLER--- PIC-9(10)--COMP-3 VAL(JE--0532000000. DNM-103-04 OL-31 ISE 2t83 DS 61;) 1 - ---IS! 50 02739 01005.3 03 FILLER PIC X(15) VALUE IB33 S85 S94 4. ONM=103-05 BL=31 IC4 2189 DS 15C 02740 010060 03 FILLER PIC q( 10) COMP-3 VALUE 0532010000. ONM=03-07 BL=31 ID3 2204 DS 6P 4 3 41 2i 51 02-74t--01(3079--03-FiLt.ER-Pir7 XI 15 VALUE -1830 S84 - -- v ---DNM=103-08 BL-31 109 22LO- DS ISC @69 02742 010080 03 FILLER PIC 91101 COMP-3 VALUE 0532020000. ONK=103-09 SL-3t tE8 2225 DS 6P 17 02743 olonqo 03 FILLER PIC X1 15) VALUE 183t @DNM-103-11 BL-31 IEE 2231 OS 15C 7,1 '7 iT 74 7V 58 N4 100 10.43.12 . APR 3#1984 INT NAN E BAtE OISP RLOI OEFINITION VALUE-.-0532030000* DNM-103-12-BL=31-1FD ---2246-- OS-6P------.1 07745 010111) 03 FILLER PIC X1 IS) VALUE 9832 ONM-tO3-14 BL-3t 203 2252 US ISC !2 3 @02746 010120 03 FILLER PIC 9(10) COMP-3 VALUE 0532040000. DNM-103-15 OL-31 M 2267 US 6P 274-7---01101-3*,)---01--FILL-ER-PIC--X I IS )-----VALUE 9 039 --- - DNM=103-16-BL-31-218- 2273---DS tSC-- 5 02748 010143 03 FILLER PIC 9( 101 COMP-3 VALUE 0533000000. ONM=103-18 OL-31 227 2288 US 6P 02749 01()150 03 FILLER PIC Xf 15) VALUE 1841 842 846 0. DNM=103-t9 BL=31 221) 2244 US 15C 7 PIC 94 W-COMP-3-VALUE - 0533010000.----- _____ONM=I03-2t- -BL=31 23C 2309 US 6P --- - .@ a 02751 010170 01 FILLER PIC X( 151 VALUE 0849 va ONM-103-22 BL-31 242 23t5 US 15C 0?752 010100 03 FILLER PIC 9( to) COMP-3 VALUE 0533020000. DNM=103-23 BL=31 251 2330 US 6P C 12 "---03 -FILLER----PIC XIIS)--- -------VALUE -*JBS- - - --DNM-103-25 BL-31 257 2336 US 15 02754 010200 03 FILLER PIC 91 10) COMP-3 VALUE 0533030000. DNM=103-26 BL-31 266 2351 US 6P 12 62755 01021) 03 FILLER PIC X( 151 VALUE 1045 ONM=103-20 BL=31 26C 23ST US 15C 7, --1?79&---OI()22'J--03 FILLER----PTC 94 lot- COMP-3 VALUE----05330400OOa--- --DNM-103-29 -OL-31 278 2372 US 6P . VALUE IB43 B44 S81 1. ONM=103-30 BL-31 281 2378 US 15C f4j 02757 010239 03 rILLFR PIC Xf 15) is w 15, 02758 010240 03 FILLER PIC 91 10) COMP-3 VALUE 0933050000. DNM=t03-32 BL-31 290 2393 US 6P It@ _,i[--02759--O10250---03- FILLER---PIC XI -0840 S82 --a- zo -ONM=103-33 BL=31 296 -2399 US ISC--- at n2760 010761) 03 FILLER PIC q(tO1 COMP-3 VALUE 0534000000. ONM= 103-15 BL-31 2A5 2414 US 6P all 0?761 010?70 03 FILLER PIC X1151 VALUE 143 M20 M5 9. ONM=103-36 BL-31 2AR 2420 US 15C 02762 0111? 91----03 F ILLER -Pir- 9110t C(IMP-3 YW3E Dh%-103-37 BL-31 2BA 2435 US 6P, o2763 010291) 03 FILLER PIC X ( 151 VALUE #CNT a . DNM=103-39 8L-31 2CO 2441 US ISC 21 02764 010300 03 FILLER PIC 91101 COMP-3 VALUE 0534020000. DKM=103-40 BL-31 2CF 2456 US 6P 27 22 02 76 5 Of 13 19---- 03 FILLER--PIC- Xf 151 VALUE 4 C?q6 ONM-103-42 BL-31 205 2462 US I SC_. 23 02766 010320 03 F It. L Elk PIC 9( 101 COMP-3 VALUE 0534030000. ONM=103-43 BL=31 2E4 2477 US 6P 31 02767 010333 03 FILLER PIC X( 151 VALUE 0 CN8 S79 DNM=103-44 BL-31 2EA 2483 US 15C 02 760 0103 40----03 FILLER- PIC 91101 COMP-3 VALUE -0534030400.,-- ONM-103-46 BL-3t 2F9 2498 US 6P 20 02769 010350 03 FILLER PIC X( 151 VALUE ICN5 S80 ONM-103-47 BL-31. 2FF 2504 US 15C 0 2770 010360 03 FILLER PIC 9( 101 COMP-3 VALUE 0534050000. DNM=103-49 OL-31 30E 2519 US 6P "r-02 77 1: 0103 70 r ILL ER---P I C -X i 15 1 VALUE -OCN4 CN2 ---- -.,DNM-104-00- BL-31 314 2525 US 15C, 02772 010380 03 FILLER PIC 9( tol COMP-3 VALUI! 0534050100. ONM-104-01 OL-31 323 2540 US 6P 1300 02773 01039D 03 FILLER PIC X( 151 VALUE ICN3 4. DNM=104-02 OL-31 329 2546 US t5C j7j - 02 774 F ILL ER ---PIC -91 101 COMP-3 VALI.JF--- 0534060000- ----DhM=I04-04 BL-31 338 2561 US 6P 02775 01041D 03 FILLER PIC X( IS) VALUE #a DNM-104-05 OL-31 33E 2567 US 15C !4 33 02776 010420 03 FILLER PIC 9(101 COMP-3 VALUE C534060100. DKM=104-07 BL-31 34D 2582 US 6P @--O??77---OtO43')--f)3- FILLER--- PIC X( 15) VALUE OCNIO - -4 W- - ---- DNM-104-08 -OL-31 353 2588 US. 15C 3% 02778 010440 03 FILLER PIC 9(10) COMP-3 VALUE OS34100000. ONM-104-09 OL-31 362 2603 US 6P 02779 OtO453 03 FILLER PIC X( 151 VALUE OCNII CNIZ A01 6. ONM-104-11 BL-31 368 2609 US 15C 14 -02 7 90--- (110460 -03 F ILL EQ-- PIC q(lo) COMP-3 VALUE -- 05,14100100. - ONM=104-12 -OL-31 377 26i4 US 6P I VALUE 4001C 002C 003C DNM=104-14 BL-31 37D 2630 US ISC 0;711 010470 03 FILLER PIC Xf 15) T", 0104qD 03 FILLER PIC 9( 10) COMP-3 VALUE 0534100200. OKM=104-15 BL=31 38C 264S US 6P ---0?783--- 010490-----03 FILLER--PIC-X( 15 1 - VALUE-90tOC DIIC D120-11. ONM-104-16 -BL-31 392- 26SI US 15 40 ;c 02784 010501 03 FILLER PIC 91 to) COMP-3 VALUE 0534110000. DKM-104-18 OL-31 3At 2666 US 6P OA 02785 0105 10 03 FILLER PIC X(151 VALUE ICNI ONM=104-19 BL-31. 3AT 2672 US 15C ;tij---02 7R6--- Ot 05 23----03 FILLER-.-PIC 9( lot- COMP-3 VALOE- 0534110100- ONM-104-21-- BL-3t 386 2687 US 6P, 02797 010533 03 F ILL ER PIC W( 15) VALUE 4ST2 ONM-104-22 BL-31 3BC 2693 US 15C,_ .5 02798 010541 03 FILLER PIC 9( 10) CMAP-3 VALUE C534130000. OhM=104-23 BL-31 3C8 2708 US 6P 789-010551-03 F ILLER-- P I C -X I 15 -VALUE ICN14 ONM-104-25 -BL-31 301. 2714 US 15 c .a 02790 010560 03 FILLER PIC 9( 10) COMP-3 VA1.UE 0534130100. DNM=104-26 BL-31 3EO 2729 US 6P 027111 0105 70 03 F I L t. E R P I C' X( 15) VALUE 101 41. DNM-t04-26 BL-31 3E6 2735 US 15C ",-02 792-0105 80--03--r ILL EF. -P I C- 91 10) -COMP-3- VALUE-- 0534150000.L-- DKM=104@29 OL-31 3F5 -2750 US 6 P i 027()3 010593 (YA FILLER PIC XI 151 VALOJE IrSI2 CS14 NBR2 6. DNM=104-30 BL=31 3FO 2756 US ISC 1 58 ,7021744- 74 027Q4 010601 03 FILLER PIC 9( to) COMP-3 VALUE 0534150100. ONM=LO4-32 BL-31 40A 2771 US 6P :0 ii@--02795 FiLt ER---PIC--X 115 VALUE -ICStt - - -_ -----a, --DNM-104-33 --BL-31 410 - 2777 US ISC_ lag 027q6 010620 03 FILLER PIC 9( to) COMP-3 VALUE OS34t6OOOO. ONM-tO4-3S BL*31 41F 2792 US 6P OvO 010631 0@ FILI-eq PIC Xf1q? VALUO #CSIQ Ohm-m 104-" OLE31 420 2708 Ds I 1- 2 71 54 N4100 10.43.12 APR 3,1984 INT NAME BASE 01 SP RLOI DEFINITION. ---02-749@-,Ol O6,4)----O3-FILLfR---PIC-qf 101--COMP-3 -VALUE -053070000w- 2613-OS -6P 02799 010650 03 -1LLER PIC X4151 VALUE OCS13 DNM-104-39 OL-31 43A 2819 US 15C 3 02800 010660 03 FILLER PIC 9(101 COMP-3 VALUE 0534190000. ON14*10440 BL-31 449 2834 US 6P 3 __O?8O1___-nIfW7T VA L f)f 0 C S I ONM-104-42--'- BL-31 44F 2840 US ISC- 02AO2 01 Of, SO 03 FILLER PIC 94 1,01 COMP-3 VALUE 0534200000. DNM-104-43 OL-31 4SE 2855 US 6P 02RO3 010693 03 FILLER PIC X(151 VALUE ICS3 CS5 8. DNM=t04-44 BL=lt 464 286t US tSC PIC 94 tOl-COMP-3 VALUE-- DNM=104-46 -BL-31 4?3 28?6 US 6P 02805 010713 03 FILLER PIC Xf 15) VALUE ICS2 DNM.=104-47 BL-31 479 2882 US tSC 02806 OtO729 03 FILLER PIC 9( 101 COMP-3 VALUE 0534200300. DNM-104-49 BL=3t 488 2897 US 6P -.02807-- 0107 30- -03 FILLER---PIC-- XI 151 VALUE *CS4 S73 S?4-6-._-___@___ DNM-105-00--SL=31 48E 2903 US 15C------ 02808 010740 03 F I LLFR PIC 9( 10) COMP-3 VALUE , 05 34 210000. DNM=105-Ot BL=3t 49D 2918 US 6P 02809 010750 03 FILLER PIC X( 15) VALUE $09 DI 9. DNM=105-02 BL-31. 40 2924 US ISC 02 810 ---- 010769 -- 03 FILt ER--- PIC 9(101 COMP-3 VALUE @()534210102.-- OL-31 482 2939 US 6P 9. DNM=t05-05 BL=3t 4B8 2945 US 15C 1.! 0?811 010770 03 FILLER PIC X( 151 VALUE 102 15@ 02812 010780 03 FILLER PIC 10) COMP-3 VALUE 05342tO2OO. ON14=105-07 BL=3t 4C7 2960 US 6P 04 010 4 q, DNM=105-08 -BL=31 4CD 2966 US I 7,' 02 Rt3 ----Ol 0793 03 FILtER- PIC--XI 151 -VALUE '03 5C - '77 -3 VALUE -09 -31 40C 2981 US 6P z2 02814 010800 03 FILLER PIC 9(10) COMP 0534210204. DKM=105 BL "31 02815 010911) 03 rILLFR PIC X(151 VALUE 'D5 S75 6. DNM-tO5-11 OL-31 4E2 2987 US 15C .23 -- 111 03 F ILL ER- -3 YALIJE - -105-12 -31 24 2 PIC 9110) COMP 0534210300. DAN OL 4FI 3002 US 6P I 02817 01OR33 03 F ILL EP PIC X(t5l VALUE I r)6 07 S76 DNM=105-14 BL-31 4F7 3008 US L5C 2. zo@ i 21, 02 F1 I A 010840 03 FILLER PIC 9( 10) COMP-3 VALUE 0534?10302. DNM-105-L5 OL-31 506 3023 US 6P 27 E2'1 ____O? 8 Ol 08 SO ----03 F 11.1. ER P 10- X(15) -- - - -VALUE 408 - S77 Go ONM-105-L6 BL-31 50C - 3029 US 15C 23, 010860 03 FILLER PIC 9( 10) COMP-3 VALUE 0534250000. OKM=105-18 BL-31 SIB 3044 US 6P 02871 010870 03 FILLER PIC X115) VALUE INBR4 ONM=105-19* BL-31 521 3050 US L5C 31 02822---- 0108 80 --- -03 FILLER- PIC 9( 101 COMP-13 VALUE 0534260000- DKM=105-21 BL-31 530 3065 US 6P .- 010890 03 FILLER PIC X( 151 VALUE INRR3 DNM=105-22 BL-31 536 3071. US L5C @ 11 02824 0! 0901) 03 FILLER PIC 9( 101 CCIAP-3 VALUE 0535000100. DKM=105-23 BL-3t 545 3086 DS 6P 35 171 28? --01 I'll FILLER-- PIC -X( 151 VALUE 'F23 M6 M?--- DNM=105-25 BL-3L 548 3092 US ISC 1-6 0 . 5 .37 0@026 0109?0 03 FILLER PIC 94 101 COMP-3 VALUE 0535000200. DKM-105-26 BL-31 55A 3107 DS 6P so n2827 010933 03 FILLER PIC X( 15) VALUE 14t7S 418S 420 8. DNM-105-28 BL-31 560 3113 US ISC 3 02 81 0 1 n94f) ----03 F I L L F R PIC 9( 101 COMP-3 VALUE 0 5 35 0 003 00. - --- 0 h M - 10 5-2 9 BL-31 56F 31.28 US 6P 0282Q 010951 03 FILLER PIC X( 15) VAL (IF f400 401 402S 0. ONM=105-30 BL=31 575 3134 US ISC 07930 01096) 03 FILLER PIC 9(101 COMP-3 VALUE 0535020000. DNM=105-32 BL-31. 584 3t49 US 6P 831-0109 70 -03 F I LL ER PIC -- VALUF OF2 El - E3--0.----------- DNM=105-33 -BL-31 58A 31,55 US IS C 35 07,812 010980 03 FILLER PIC 9(10) COMP-3 VALUE 0535030000. DNM-105-35 BL-31 599 31.70 US 6P 02833 010990 03 FILLER PIC xf 15) VALUE 'E14 EIZ NBC1 so ONM-105-36 BL-31 59F 3L76 US 15C P 02834----Ol 1001 ----()3 FILLER--- PIC 1) 110)-COMP-3 VALUE 05 35 030300. OhM=105-37 BL-31 SAE 3191 US 6 n2835 011010 03 FILLER PIC W(15) VAL UE 9E13 S64 DNM-105-39 BL-31 504 3197 US 15C 3.1 02836 011020 03 FILLER PIC 9( 10) CCMP-3 VALUE (535030600. OKM=105-40 BL-31 5C3 3212 US 6P @--02 83 7 ----Ol tOY) -03 FItLFR--PIC- X( IS) --- --- VALUE gEIO BCII o-i ONM@105-42 OL-31. 5C9 3218 US ISC-- 07838 0111040 03 FILLER PIC 9 110: COMP-3 VALUE 0535030601. so DNM-105-43 BL=31 508 3233 US 6P 8 02839 0 1053 03 FILLER PIC X, 15 VALUE 18Ct DNM=105-44 L-31 SUE 3239 US tSC ii--07940 - - - 01 10160---03 FILLER PIC 91 101 -COMP-3 VALUE 0535030700*---,- W01*105-46 BL,31 5ED 3254 US 6P a 02841 011070 13 FTLLEP PIC X( IS) VALUF 'Ell NBC2 ONM=105-47 SL@31 5F3 3260 US 15C 1 0?842 01 V) R1 03 FILLER PIC 9( 10) COMP-3 VALUE 0535031000. DNM=105-49 BL=31 602 3275 US 6P _ 11 _ _ I DNM-106-00--BL-3t 608 3281 US 15C 02843 0 0 91 03 F LtER--PIC-Xi 151 VALUE- 6E16 -- p 02844 01110-1) 03 FILLER PIC 91 101 COMP-3 VALUE 0535031100. DKM=106-01 BL-31 617 3296 US 6P 62 02845 011110 03 FILLER PIC Xf 15) VALUE IE15 BC3 8C14 1. DNM=106-02 BL-31 610 3302 US 15C 63 40i___O? 846 0 1 11-21) --n 3 FILLER- --PIC 9( 101 CO PAP-3 VALUF -- 05 35 0500 00. --- ONM=106-04 BL-3t 62C 3317 US 6P J 02847 011131 03 FILLER PIC X( 15) VALUE OF5 F2 At 1. DNM=106-05. BL=31 6@2 3323 US ISC ..6 51 02848 011140 03 FILLER PIC 9( tO) COMP-3 VALUE 0535050100. ONM=106-07 BL=31 641 3338 US 6 P .67 -02 A49--ilt I t-5-3 -03--f- ILL ER---PIC - X I VALUE`S60 --- -- --- DNM- 106-08 BL- 31- 647--- 3344 --DS I Sc ------Z 1 69 .3 02850 @011160 03 FILLER PIC 9( 10) COPP-3 VALUE 0535050200. DKM=106-09 BL=3t 656 3359 US 6P 70 02-951 011tio 01 FILLER Pit Yi Lsi VALUE 'F1 01 09 $4 01414-t06-tt BLm3t 65C 336S US 15C 11 so 17. 60 N4100 10.43.12 APR 391984 INT NAME BASE DISP RL01 DEFINITION _0? 03 52 0t-I-I-fl9-03-fIL-f:ER--PfC-9f 10 1--C-ORP-3 VALUE-- 05350600004-- ONM-IO6-12----6Lw3I---66B --3380-- US 6 02853 011190 03 FILLER PIC X(15) VALUE IF3D F3N ONM-106-14 BL=31 671 3386 US Ip5c 02954 0112no 03 FILLER PIC 9( 1,01 COMP-3 VALUE 0535070000. DNM=106-15 BL-31 680 3401 US 6P VALUE--I F4-- S58 OS- 15C--- 4 02856 011220 03 FILLER PIC 9( 101 COMP-3 VALUE 0535n8OOOO. DNM=106-18 BL=31 695 3422 US 6P 02857 01123) 03 FILLER PIC X( 15) VALUE sF13 F14 NGCl 8. DNM=106-19 OL-31, 698 3428 US 15C ----02 P58-01 I?40Y---03--FILLFR - PIC-- 9( 10)-COMP-3 VALUE----0535080200.- DKM=106-21 BL=31 6AA- 3443 US 6P lo a 02859 011290 03 FILLER. PIC Xt 15) VALUE vFI0 FIl NGC2 ONM-106-22 BL=31 680 3449 US 15C 9 0?860 01120 03 FILLER PIC 9( 10) COMP-3 VALUE 0535080300. ONM=106-23 BL=31 68F 3464 US 6P It I__0286t----0I 1271----03 -FILLER----PIC X115)--- - -- VALUE -4F12 . NGC3 ---- BL-31 6CS-- 3470-- US 15c--.--- _-12 11 02862 011283 03 FILLER PIC q( tO) COMP-3 VALUE (3535080500. ONM=106-26 BL=31 604 3485 US 6P 113 12 02R63 011293 03 FILLER PIC X(15) VALUE 'Ft5 DNM=106-28 BL=31 60A 3491 US 15C T3; 02 864-011300--03- FILLER--- PIC- 9(10) COMP-3 VALUE - 05 35 090000.-, DNM- t06-29 BL-31 6E9 3506 US 60- 14i 02865 011310 03 FILLER PIC X(15) VALUE IF21 F22 NDCl 4. DNM=106-30 BL=31 6EF 31512 US 15C 02866 011321) 03 FILLER. PIC q( 10) COMP-3 VALUE 0535090100. ONM=106-32 8L=31 6FE 3527 US 6P in _L--0?867-0II33q----03- FILLER--PIC-Xf 151------ VALUE--IF20 - - -BL-31 704--3533- US 15C -7il ia ,,1 02868 011340 03 FILLFR PIC 9( 10) COMP-3 VALUE 0535090200. 02969 011353 03 FILLER PIC X( 15) VALUE *NnC2 to DKM=106-35 BL=31 T13 3548 US 6P w ONM=106-36 BL=31 7t9 3554 US 15C 23 __,_.___DNM=I06-37 -BL=31 728 3569 US 6P 02 8 7 0 0113 60 - 0 3 F I L L F R -- PIC 9( 10)--COMP-3 VALUE 0535100000.-- ()2871 01t371 03 FILLER PIC X( 151 VALUE "428 429S NRSS DNM=106-39 BL=3t 72E 3575 US 15C O2R72 0 1 13 80 03 FILLER PIC 91101 COMP-3 VALUE 0535110000 DNM=106-40 BL=31 730 3590 US 6P FILLER--PIC X( 15 VALUE $426 427 4R6 0 NM= 106-42 BL=31 743 3596 US 15C-- 221 4P 131 n2874 011400 03 FILLER PIC 9(101 COMP-3 VALUE 0535120000. ONM-106-43 BL=31 752 3611 US 02975 011410 DNM-106-44 BL=3t 758 3617 US 15C '31 2A 03 FILLER PIC XI 151 VALUE $424 425 L4 13. 0?876- 011423- 03 FILLER- PIC 9( 10) COMP-3 VALUE .0535130000o ONM-106-46 -BL-31, 767 3632 US 6P ' 2R77 011433 03 FILLER PIC X(15) VALUE 1423 L5 NNCI.f. DNM=106-47 SL=31 760 363-8 US 15C 13A 02878 011440 03 FILLER PIC q( LO) COMP-3 VALUE 0535140000. ONM=106-44 BL=31 77C 3653 US 6P iir-n2,379-011451--03- FILLER--- PIC- 'If 1-5) VALIJE-'.19 NR2 NDKt BL-31 782 3659 US 37 r a 02ABO 01146D 03 FILLER PIC 9( 101 COMP-3 VALUE 0535150000. DNM=107-01 BL_@31 791 3674 US 6P Im I d 0289t 0114 7f) 63 FILLER PIC X( 15) VALUE 6411 433 K4 4. ON4=107-02 BL=31 79T 3680 US 15C 39 8 8 2--- 0114 81 F ILI ER- - P I C 94101 -3 VALUE 05351SO10O.- -- ---- DNM=107-04 BL-31-7A6- 3695 US 6P COMP 6P 02F83 011493 03 FILLER PIC X( 15) VALUF INRLO so DN4=107-05 BL=31 TAC 3701 US 15C 33 028?4 01 19 00 03 FILLER PIC 9( 10) COMP-3 VALUE 0535150200. DNM-107-07 BL=31 78B 3716 US 6P FILLER--PIC Xf t5) VALUE-1432 NSCt ---- BL=31 ?Ct 3722 US 15C 028q6 011520 03 FILLER PIC 9f 10) COMP-3 VALUE 0535150300. DNM-107-09 BL-31 700 3737 US 6P 02887 011533 03 FILLER PIC X( 151 VALUE *NSC2 ONM=107-11 BL-31 TD6 3743 US t5C 47 02 8 813 ----Ol 15 40 -03 FILLER -PIC 9( 10) COMP-3 VALUE -- 0535150400.------ DNM-107-1 2 - BL-31 7ES 3758 US 6P---- 3a I 1 3 (13 FILLER PIC X1151 VALUE 'NSCI so ONM@107-14 11L, 31 TEB 3764 US 15C 39 n2A9O 011563 03 FILLER PIC 9( 101 COMP-3 VALUE 0535160000. ONM=107-15 BL-31 ?FA 3779 US 6P - @11. -01 15 70---03- F I LLER --PIC- X 1 151 VALUE 8435 436 NRII ONM=107-16 -- BL-31, 800 3?85 US 15c-- 4o 153 .1 02892 n11580 03 FILLER PIC 9(10) COMP-3 VALUE 0535160300. DKM.-107-18 BL=31 8OF 3800 US 6P j@ 02Aq3 011593 03 FILLER PIC X( t5) VALUE INHC2 DNM-107-19 BL-31. 815 3806 US Isc 55 ,@j W3--0?8q4--01I600-- 03 FILLER PIC 91 101 COMP-3 VALUE 0535170000- ----DhM=I07-21 -BL-31 824 3821 US 6P---- Isc '581 .@,02 A 95 01 IS 13 03 FILLER PIC X( 151 VALUE IH2 H3 H5 DN4=107-22 BL=31 82A 3827, US 011620 03 FILLER -3 VALUE -23 BL=3t 839 3842 US 6P 07SQ6 PIC q( 10) COMP 0535170100. DNM=10,7 15.11 ONM-107-25 - OL-31 8 3F 3848 US a, n2 897--f)t 16 F I LL ER---- P I C- X( t 5 1 VALUE *Hl - I5C___ -3 VALUE 0535110200. -107-26 BL=31 84E 3863 US P 02898 011640 03 FILLER PIC 9(101 COMP ONM 6 62 02899 011650 03 FILLER PIC Xf 15) VALUE IS3 r)NM=,107-28 BL-3t 854 3869 US 15C o ii. -02900-011661--03 FILLFq -PIC 9( 10) COMP-3 VALUE 0535170300.---------------- DKM-107-29 -OL-3t 863 3884 US 6P - - --- - 4_1 1 07901 011670 n3 FILLEP PIC Xf 15) VALUE #H4 so DNM-107-30 BL=31 869 3B90 DS t5C. sol "1 02902 011680 03 FTLLER PIC q( 10) COMP-3 VALUE 0535170400. 1)%M=107-32 BL=31 878 3905 US 6P 9 0 3-4) 116 90 -,-03 F I L L ER---P I C- X 1 15 1 VALUE *NCC1 -- - DNM-107-33 BL-31 87E 3911 US 15C--- :3 02904 011700 03 FILLER PIC 941 1011 COMP-3 VALUE '0535200000 DNM=107-35 BL=31 88D 3926 US 6P Q ()2gn5 03 FILLER PIC X 15 VALUE G21 G22 so DNM-107-36 BL-31. 893 3932 US 15C 11 0117 If) i22 74, 61 N4100 tO.43.12 APR 3tI984 INT NAME BASE DISP RLOI DEFINITION 40 )--CO14P-3-VALUF---0535-200100i:-- 3947-DS--6P--- 02907. 011730 03 FILLER PIC X(151 VALUE @S24 DNM-107-39 BL-31 8AS 3953 DS 15C 02908 011740 03 FILLER PIC 91101 COMP-3 VALUE 0535200500. DNM-107-40 BL-31. BBT 3968 DS 6P @-02 9011----01-17 50--03-- F I L t ER--- PIC-XtISI--------VALIJE-,4S22--- --BL=3I--85D-3974----DS 15C 07910 011760 03 FILLER PIC 9(10) COMP-3 VALUE 0535200600. OKM-107-43 BL-31 8CC 3989 DS 6P 02qll 011770 03 FILLER PIC X(15) VALUE OG70 121 1. DNM-107-44 BL-31 802 3995 OS tSC 7j[__ 0291 2_01 1781)____--03- F I LLFR PIC-9(101-COMP-3 VALUE- -- 053520070t. DSM-10-46 -BL-3t 8EI -4010 DS 6P 02913 011M) 03 FILLER PIC X(151 VALUE 'GI9 S26 DNIM-107-47 BL-31 8E? 4016 DS 15C 'o ()2914 011900 03 F ILL ER PIC 9(10) COMP-3 VALUE 0535220000. DNM=107-49 BL=31 8F6 4031 DS 6P 02915-0118 tO FILLER--PIC-XI VALUE- ONSRI Gt3 - ONM-108-00 -BL= 3t 8FC 4037 DS tSC :0; 07916 011920 03 FILLER PIC 9( 10) COMP-3 VALUE 0535220100. ONM=108-01 BL=31 908 4052 DS 6P 14 - i .15 02911 011833 03 FILLER PIC WI 15) VALUE OG15 ONM=108-02 BL=31 911 4058 DS t5C -3 VALUE -- 0535220200. DNM-108-04 BL-31 920 4073 DS 6P 02 q 18 0 11 e 40 -0 1 FILLER-- PIC 9( 1.0) COMP @7 02ql9, 0IlS5() 03 FILLER PIC X115) VALUE StIl G16 DNM-tO8-OS BL=31 926 4079 DS 15C 't 02Q20 (111860 03 FILL ER PIC 9( 1 (3) COMP-3 VALUE 0535220300. DNM=108-07 BL-31 935 4094 DS 6P iv i @c 20 02921----Ol IfITO@-03- FILLER---- PIC --X ( 151 'GII 0NM-I08-08,--BL=3I 938 4100 DS 15 as '71 02922 otinao 03 FILLER PIC 91 101 COMP-3 VALUE 0535220400. ONM-108-09 OL-31 94A 4115 DS 6P 22 ia, 02q73 01189() 03 FILLER PIC Xf 15) VALUE @GlZ DNM=108-lt BL=31 950 41.21 DS 15C Z3 '24 r-11-LER --PIC 9(1.0) COMP-3 VALUE 0535220500. DNM-108-12 BL- 31 95F 4136 DS 6P a, n2925 01191r) 03 F[LtFR PIC XI 1.5) VALUE '113 GIO DKM=108-14 BL=31 965 4142 OS 15C 21 02926 01 le)21 03 FILLER PIC 9( 1 r) ICOMP-3 VALUE 0535220600. DKM=109-15 OL-31 974 4157 DS 6P 02927--Ol t931 -03 F ILLFR----PIC XIISI --- -- - - VALUE 4G14 S27 ONM=108-16 BL=31 97A 41.63 DS ISC 02928 0IIq40 03 FILLER PIC 9(10) COMP-3 VkLUE 0535240000. ONM=108-18 OL-31 989 4178 DS 6P -F 02929 oltq53 03 FILLER PIC X( 15) VALUE IG4 Gt S39 0. DNM=108-t9 BL-31 98F 41.84 DS t5C 02 910- --ol 1960----01 FILLER -PIC 9( 1.0) COMP-3 VALUE ---- 0535240400. DNM-108-21 OL-31 99E 4199 bS @Pc 2 P2911 0Ilq7G 03 FILLER PIC X( 15) VALUE IG2 OtM=108-22 BL=3L 9A4 4205 DS 15 92q32 (31 19RO 03 F YLLER, PIC 9(10) COMP-3 VALUE 0535240500. DNM-108-23 BL=31. 9B3 4220 DS 6P 11 FILLER--- PIC X(151 ----VALUE OS38 - ONM-WS-25- BL=31 989 4226 DS t5C--- 291 02934 012003 03 FILLFR PIC 91 101 COMP-3 VALUE 0535240600. DKM-108-26 BL-31 9CS 4241 DS 6P .3a 39 3.1 02q15 012013 03 FILLER PIC X(151 VALUE IG3 S28 ONM*108-28 OL-31 9CE 4247 OS 15C PIC 9(101 COMP@3 VALUE 0535240700*-------- DNM-108-29 BL-3t 9 00 4262 DS 6P 02937 012031 03 FILLER PIC Xf 151 VALUE 0 MM=108-30 BL-31 9E3 4268 DS 15C .2 43 02938 012149 03 FILLER PIC 9(101 COMP-3 VALUE 0535250000. DNM-108-32 BL=31 91`2 4283 DS 6P hL C 3.1 02939--f)t 2050-03 FTLLER-- PIC-- X I VALUE 4 412 NSW I NSW2 - --DNM-108-33 OL-31 9F8 4289 DS 15 351 02940 012061) 03 FILLER PIC q(101 COMP-3 VALUE 0535250100. DNMvI08-35 BL-31 AOT 4304 DS 6P 02941 012071 03 FILLER PIC X(15) VALUE QNSW6 NSW7 NSW8 1. DNM-108-36 Ell.- 31 AOD 4310 DS 15C .47 _02942----0I208')-----03 FILLER- PIC 9110) COMP-3 VALUE - OS3S260000. DNM-108-37 SL-3t A IC--- 4325 DS 6P 02943 ()17090 03 FILLER PIC X115) VA L UE 1405S NPKI NPK2 I# DNMztO8-39 BL=31 A22 4331. DS 15C 0?944 012100 03 FILLER PIC 9( 10) COMP-3 VALUE 0535270000. ONM=108-40 BL=31 A31 4346 DS 6P Z-1-02 94 5 -0121 I)-03--F I t L ER -- P I C X 1 15 VALUE -ONTOI NT02 HY03 ONM-109-42 --- BL-31- A 37 4352 DS 15C- 3 02946 012121 03 FILLER PIC q( 101 COMP-3 VALUE .0535280000. DNM=108-43 BL-31 A46 436? DS 6P :Al 42 02q47 01213.1 03 VILLFR PIC X(ISI VAL LIE INTA]. DNM=108-44 BL=31 A4C 4373 DS 15C DNM-108-46-- BL=31 ASB 4388 DS 6P T 02949 012 1. 43---- - 03 r-ILLER--PIC 91t0l COMP-3 VALUE - 0535290000.----- -- @7 07949 01215) 03 FILLER PIC Xf 15) VALUE INBAI NBA2 NBA3 0. ONM=108-4T BL-31 A61 4394 DS 15C .a 43 07950 012160 03 FILLER PIC 9( 10) C01AP-3 VALUE C535300000. DNM-108-49 BL=31 A70 4409 DS 6P 029St-0I2t-T0-----A3 -fILLER----PIC-Xf --- VALUE-'500 501 502 ONM-109-00 -OL-31 A76 -4415 OS 15C 47 02952 0121po 03 FILLER PIC 94 tO) COMP-3 VALUE 053530OLOO. DNM-109-01 BL-31 ABS 4430 DS 6P .0 02 9 53 012193 03 FILLER PI-C XI 15) VALUE '513 514 TBRI. DNM=109-02 BL-31 A 88 4436 DS 15C 02 454--- 1012201 ----03 FILLER -- PIC 9(10) COMP-3 VALUE -0535300300.--- () h M - t 0 9 @V --BL=31 A9A 445t DS 6P VALUE ITREI n2 9 n 122 Il 03 FILLER PIC X(IS) DNM-tO9-05 BL=31 AAO 445T DS ISC n2q56 012221 03 F I LLER PIC 9( 101 COMP-3 VALUF 0535300800. DKM-109-07 BL=31 AAF 4472 DS 6P .'L ep 02 9 57---01-22 3)-f)3 r- ILL ER----P I C - X ( IS VALUE -TISI TIS2 DlIM-109-08--ft-H -ABS - 4478 - DS I 5C -1" :2 31 02058 012241 03 FILLER PIC 91 101 COMP-3 VALUE 0535301400. ONM-109-09 BL-31 AC4 4493 DS 6P 02959 012251 03 FILLER PIC X(151 VALUE *TMIl TM12 DNM=109-11 BL-3t ACA 4499 DS 15C - - - -------- ----- - . ........ . 62 NMIOo 10.43.12 APR 3sI984 INT NAME BASE DISP RLGI CEFINITION 02960---oVni-60 ------- O@-+ItL-fR--PIC--9(-10+--COMP-3--VALUE--15-35301,6001- DNMm 109-1-2-5Lm31--Ad9--45I* DS- 2 0296t 012270 03 FILLER PIC XIM VALUE OTLHi ONM-tO9-14 BL-31 ADF 4520 US ISC 0535301700. DNM-109-i5 BL-31 AEE 4535 DS 6P 3 O?q67 01278() 03 FILLER PIC 9(10) COMP-3 VALUE -;-02963---012?93 --03-FILLER--PIC----X-I IS VALUE -OTMR I ONM-109-t6 ---BL-3t- AF4 US -1 SC----4i;- 02964 012303 ()3 FILLER PIC,9(101 CCMP@3 VALUE 0535301900. DKM-109-18 OL-31 803 4556 US 6P 02q6r) 012310 03 FILLER PIC X(151 VALUE, 9TS01 ONMA109-19 BL=31-009 4562 US 15C ---O?c)66-012320-03-FILLFR---PIC -9( 10)--COMP-3 VALUE----0535302000. --..DNM-109-21 - BL=31 818 4577 US 6P 71 02967 01?333 03 FILLER PIC X1151 VALUE 17JUl a. ONM-109-22 Bt.--z3l BIE 4583 US 15C 02968 12141 03 FILLER PIC 9(10) COMP-3 VALOE 0535302200. DNM =109-23 BL-3t B2D 4598 US 6P DNA=109-25 - BL-31 B33 4601, US 15C 10 -FILLER---PIC-X1 VALUE 4TCR2 --- -- 113 11 02970 012360 03 FILLER PIC 9(10) COMP-3 VALUE 0535302300. DNM-Ioq-26 BL-31 842 4619 US 6P 41 '2@ 02q71 012370 03 FILLER PIC X(15) VALUE OTMU1 DNM=109-28 BL-31 848 4625 US 15C -02q72-01 23 80---03 rILLFR----PIC -9f to) COMP-3 VALUE -DNM-109-29 OL-31 B57 4640 US 6P, 3i 02 Q73 012391 03 F11-LER PIC X115) VALUE ITBEI ONM=109-30 OL-31 B50 4646 OS 15C 07974 (112400 03 FILLFR PIC 94 10) COMP-3 VALUE 0535303200. ONM=109-32 BL=31 B6C 4661 US 6P _O2975----OI-24t'J-O3- FILLER--PIC--X( 151 ----VALUE -ITCYI ONM=109-33 BL=3t B72 4667 US 1 21 02976 012421 03 FILLER PIC 9( 101 COMP-3 VALUE 0535303300. DKM=109-35 BL=31 B81 4682 US 6p; 02977 ' 012433 03 FILLER PIC X(15) VALUE. ITTUL TTU2 DNM=109-36 BL=3t BOT 4688 US ISC ,@-li@-n2978---012440--03--FfLt-ER--- PfC-9( 101 COMP-3 VALUE- 05 35 340000.---- DNM-109-37 BL=31 B96 4703 US 6P f 02979 01 A 50 01 FILLER PIC X( 151 VALUE INPT1 ONM=tO9-39 BL=31 89C 4709 US 15C @26 02 9 P() 01?460 03 FILLER PIC 9( 101 COMP-3 VALUE 0535350000. ONM=109-40 BL-31 BAB 4724 US 6 P 27 11 02 98 t -0124 70----03,- F I L L ER----P I C X(15) - --------VALUE 'NC01 NC02 NC03--O. ONM=109-42 OL-31 BBI 4730 US ISC-----, 22 07.982 012480 03 FILLER PIC 91 101 COMP-3 VALUE 0535360000. DNM-109-43 OL-31 BCD 474S US 6P 131 1 , 24 n?983 012491 03 FILLER PIC Xf IS) VALUE INKII DNM=109-44: BL=31 BC6 4751 US 15C 02984 -012500---03- FILLER- PIC 91 to) COMP-3 VALUE 05353701001-- DKM=109-46 BL=31 BUS 4766 US 6P 02985 01251) 03 FILLER PIC X(151 VALOE INVII ONM-109-47 BL=31 BDB 4772 US 15C 24 029R6 012520 03 FILLER PIC 91 10) COMP-3 VALUE 0535380000. OKM=109-49 BL=31 BEA 4787 US 6P 02 "17 0125 3:)--- 03 FILI-FP.---PIC-Wf 15 1 VALUE -INHAI - DNM= 110-00- BL-31 BFO 4793 'DS ISC 02 9 8 R 012540 03 FILLER PIC 91 10) COMP-3 VALUE 0535390000. ONM=110-01 OL-31 BFF 4808 US 6P n2qgg Ot25SO 03 FILLER PIC X(151 VALUE ONGRI NGR2' DNM=110-02 BL-3t COS 4814 US ISC 31 j,----o2qqo--n12560---O3 -FILLER -PIC-91 to)- COMP-3 VALUE--0535400000.---- DKM-110-04 BL-31 C14 - 4829 US 6P 4 32 029ql 0125711 03 FILLER PIC X( 151 VALUE 'NCNOINCN02NCN03'o ONM=110-05 BL=3t CIA 4835 US ISC 02q92 012580 03 FILLER PIC 9( 101 COMP-3 VALUE 0535400tOO. DNM=110-07 BL=3L C29 4850 US 6P 33 i44 T,--02993-O125c?O--O3 -FILLER-- PfC--Xf IS)- ------------VALUE 'NCNO8NCNO9NCN10*. -ON14=110-08 --BL=3t C2F -4856 US I5C--- 02q94 012600 03 FILLER PIC q( to) COMP-3 VALUE 0535400101. DhM-tIO-O9 OL-31 C3E 4871 US 6P 02995 0176 11 03 FILLER PIC X(151 VALUE INCN11 4. ONM=110-11 OL-31 C44 4877 US 15C 0535420000. - ---- 0 N M - 110 - 12 - BL-31 C53 4892- US 6P i,-----O?996-OI2620 -03 -FILLER -- PIC q(10)-COMP-3- VALUE- 3; 02997 01263) 03 FILLER PIC Y1151 VALUE INSTI NST2 0. DNM=tlO-14 BL-31 C59 4898 CS 15C .9 02990 012640 03 FILLER PIC 9(10) COMP-3 VALUE 0535430000. ONM=110-15 BL=31 C68 4913 US 6P 02 9q 9 0126 01 F I L L ER-- PIC-X(151 VALUE ONS131 @ONM=tIO-16-13L=31 C6E 49L9 US 15C- .33 03000 012660 03 FILLER PIC 9(10) COMP-3 VALUE 0535440000. DKIM=110-18 BL-31 C70 4934 US 6P A2 03001 012673 03 FILLER PIC X(15) VALUE INFAI NFAZ ONM-110-tq BL-31 C83 4940 DS t5c FILLER--- PIC --9( tO)-COMP-3 VALUE 0535470000.- DKM -110-21-- OL-31 C92 495S US 6P 03003 012hgO 03 FILLER PIC X( 15) VALUE INBEI .4 ONM=110-22 BL-31. C98 4961 US ISC 03004 012700 03 FILLFR PIC 91 10) C00-3 VALUE 0535480000., OKM=110-23 BL-31 CAT 4976 US 6P log 45 a, 03 005--Ol 2710-03- F I Lt ER-- PI C---X 1 151 VALUE INWAI - __ON14-110-25 BL-31 CAD 4982 -US t5c_ .6 16, 03006 012723 03 FILLER -PIC 9( to) COMP-31 VALOE 0535540000. DNM=tlO-26 OL-31 CBC 4997 US 6P M2 11 63007 012730 03 FILLER PIC X( 15) VALUE 'NLI1 NLIZ NL13 DNM-110-20 BL-31 CC2 5003 US 1SC I. ___ --n12740 -03 FILLEP -.-DNM=110-29 P 49. 03()ng -PIC 9( 10) CnMP-3 VALUE 05355SOOOO. BL=3t Cot 5018 US 6 03009 017,750 n3 FILLER PIC X1151 VALOE tN90I ONM=110-30 BL-31 COT 5024 US 15C 03010 012760 03 FILLER PIC 9(10) COMP-3 VALUE 0535580000. DNM=110-32 BL-31 CE6 5039 DS 6P -5 1' 03 n I 1--- 0 1 ? 7 70-- 93 F ILLER ---PIC X(15) VALUE INF-St 4-w----DNM-IIO-33 BL-31 CEC- 5045 US ISC 5 05 6 I:i 03012 012760 011 FILLER PIC 9(10) COMP-3 VALUr 0535600000o ONM=110-35 BL-31 CFB 5060 P 54i 03013 012791) 0i r ILA" 0!@ Wt! VAkl!U INMII 04 NMI? N14.13 1. ONMt'110-36 ftell 00 1) () 6 6 04 63 N4100 10.43.12 APR 3PI984 INT NAME BASE DISIP RLOI DEFINITION 0301-4 ------ 01-"O@@iUER PIC---91 tO-)--C,0MP-3--VAL-UE-O5-356O01 -ONM-tlO-311-OL-31--010-5081-OS--6P 03015 012RIO 03 FILLER PIC X1151 VALUE ONMIS .1* ON.4=110-39 BL-31 016 5087 DS ISIC 3 03016 012829 03 FILLER PIC 9(tO) COPOP-3 VALUE 0535640000. DNM-110-40 OL-31 D25 5102 DS 6P 13. -@--0301T-nI2830-13- FILLER---PIC--X(-tS)-----------VALUE-*NBLI -- -ONM-110-42 - BL=3.1 020 --5108-- DS 1 5C- 03018 012840 03 FILLER PIC 9(tO) COMP-3 VALUE 0535660000. DNM=110-43 OL-31 03A 5123 DS 6P 03019 1112853 03 FILLER PIC X(t5) VALUE 'NMDI 0. ONM=tlO-44 BL-31 D40 5129 DS 15C 03 0?0 --01-29 6)-03-. f ILL ER-- - P I C - 9 110) -COMP-3 VALUE--0535660100. -ONM=II0-46---8L=31 04F 5144 DS 6P 03021 012879 n3 FILLER PIC X(151 VALI)E INNIO? 0. ONM=110-47 BL=31 D55 51.50 DS 15C. n3022 0128AO 03 FILLER PIC 9110) COMP-3 VALUE 0537000000. DKM=110-49 BL=31 064 5165 DS 6P C-X( VALUE DNM=I1I-OO----BL=31 D6A 5171 DS t5C-- 3 03024 012900 03 FILLER PIC .9 110 1 COMP-3 VALUE 0537071010700. ONM=Ilt-01 BL=01 079 5186 DS 6P 12! 03025 012910 03 FILLER PIC X(15) VALUE 1 0. ONM=111-02 BL=31 D71F 5192 DS 15C 03026 -- 01 2q2r) -03 F IL L ER p I C q(101 COMP-3 VALUE -0537030000 . . ..... 0 N M - I 11 -04 BL-31 OBE 5207 DS osp i 1:7 03027 012930 03 FILLER PIC X(151 VALUE IJI J3 S29 1. ON14=111-05 BL=31 B94 5213 DS 15C 0307R 017.940 03, FILLER PIC qI 101 COMP-3 VALUE 0537030100. ONM=111-07 BL=31 DA3 5228 DS 6P 03 0 2 9 -0 12 9 51) ---0 3 FILLER PIC X(15) VALUE 1.12 - - -- ON101-111-08 BL-31 DA9 5234 DS ISC---il 17 03 010 012960 03 FILLER PIC 9( 101 COMP-3 VALUE 0537030200. DKM=Ilt-0c) BL-31 DB8 5249 DS 6P 22 03031 017973 03 FILLER PIC X 1 151 VALUE ICC9 S30 1. ONM=Itl-tt BL-31 DBE 5255 DS ISC 23 03 0 3 2 012 9 80---- 0 3- F I L L E R PIC--q(IOI-COMP-3 VALUE 0537040000*---- D N M - I 11 - 1. 2 BL-31 OCO 5270 DS 6P----- 2. 2, 2.1 03033 012991 03 FILLER PIC X 1 15) V A L U E 'JIl J12 S36 ONM=Itt-14 BL=31, P03 5276 DS ISC 26 I a 21, 03034 1113000 03 FILLER PIC 9( 101 COMP-3 VALUE 05370401GO. ONM=111-15 BL=31 DE2 5291 DS 6P 03035---- 013111----03 F ILLFP,-- Pic X 115 VALUE 9JIO DNM=ILI-16 ---BL=31 DEB 5291 DS 15C--- 23 03036 013020 03 FILLER PIC 9(101 COMP-3 VALUE 053TO40100. DNM=111-18 BL-31 OFT 5312 DS 6P 2d 03037 013033 03 FILLER PIC X( 15) VALUE %JIO S33 ONM=Itl-l,9 OL-31 DFO 5318 DS 15C t:-1 - ----- 03036--- 013049-- 03 FILLER PIC 911n) COMP-3 VALUE '.0537.050000* ONM- 111-21 6L-31 %EOC 5333 DS 45P 2 03039 013050 03 FILLER PIC X( 15) VALUE $J13 DNM=Ilt-22 BL=31 E12 5339 DS 15C 0 3n6O 03 FILLER PIC 9( tO) COMP-3 VALUE DN-M=111-23 OL-31 EZI 5354 DS 6P 27 03040 0537060000. -03041 Of 3079----Ol. FILLER---PIC-%( 1.5 VALUE- OJ21 J20 - - ---4. @DNM=111-25 BL=31 E27 5360 DS 15C 37 0304? Ot3O8O 0,3 FILLFR Pic gi to) cnM.P-3 VALUE 0600000000. ONM=111-26 HL:31- E36 5375 DS 6P VALUE I S? 30 03043 01 30Q,) 03 FILLER PIC X( 15) ONM=111-28 BIL 31 EX 5381 DS 15C ---O3044---O131(Y.)--O3 F ILLFR--- -PIC 9(101-COMP-3 VALUE 0600.0 80-00- -ONM-111-29 - BL-31 E48 5396 -DS 6P 42 32 113045 013113 03 FILLER PIC X115) VALUE 174 ON 'A=111-30 BL=31 E51 5402 DS 15C I- 33 03046 013120 03 FILLER PIC 9( 10) COMP-3 VALUE 0600090000. ON141=111-32 BL=31 E60 5417 DS 6P A 9304 Of 31 33--03--FILLEfk --PI C-- X I t5l ---VALUE 83 - 84 __DNM-1 11-33 BL-31 E66 5423 DS ISC - 03048 013140 03 FILLER PIC 91 101 COMP-3 VALUE 06OtOOOOOO. ONM=111-35 BL-31 E75 5438 VS 6P 3': 0-4049 013150 03 FILLER PIC X( IS) VALUE IS50 S48 9. DNM-Itt-36 BL-31 E 78 5444 DS 15C .7 030so--- ol 11 60-03--F ILL ER---P I C @ 91 10) COMP-3 VALUE--060tOl0OOO. - 11-3? OL-31 EPA -5459 DS 45P -----4!-. IAD 3:1 03051 013170 113 FILLER PIC X( 15) VALUE '91 94 cco 1. ONM=Itl-39 OL-31 E 190 S465 DS ISC 1-0 1 03 0 52 01-3180 03 FILLER PIC 9( tOll COMP-3 VALUE O6OtOIOIOO. DNM=111-40 BL-31 E9F 5480 DS 6P 51 - ONM=111-42 BL-31 EA5 - 5486 DS 15C -12 03053-013190 03 -FTLLER--PIC--X It5l----- -----VALUE--@- 3054 013?r)o 03 FILLER PIC 91 10 1 COMP-3 VALUE. 060IOtOlOl. ONM=tlt-43 BL=31. E84 5501 CS 6P 03055 013?10 03 FILLER PIC X(15) VALUE 692 4. ONM=tll-44 BL-31 EBA 5507 DS 15C Ise 5P 6 i3__03O56----Ol 3220-----03 -FILLER- - PIC 94101 COMP-3 VALUE --0601020000. BL-31 EC9 S522 OS 1 !,3 AA 03057 01323) 03 FILLER PIC XI t 5 1 VALUE IS49 DNM=111@47 BL=31 ECF 5528 DS t5C ea 45 03059 0 13? 40 03 FILLER PIC ql 10) COMP-3 VALUE 06.01020100. DN14=111-49 OL-31 EDE 5543 DS 6P :59 059-0132 50 3-FILCER-PIC- X 115 VA L UE-- I CC I I - - DNM-I 12-00--- BL-31 EE4- 5S49 DS t5C 1 1. 03060 013760 03 FILLER PIC 9(101 CaMP-3 VALUE 0601040000. DNM=112-01 BL-31 EF3 5564 DS 6P at I A. 03061 0132 73 03 FILLER PIC XI 151 VALUE OS45 S46 S47 8. DNM=112-02 BL=31 EF9 5570 DS Isc @03 -03062----nI3781-03 - F ILLER ----PIC - 91 10) -CrJMP-3 VALUE 06OtO4OtOO. DNM=tl2-04 BL-31 FOS 5585 DS 15P e:@ 03063 ()1329.9 03 FILLER PIC X( I VALUE I S42 S43 4. ONM=112-OS BL-31 FOE 5591 DS 15C 511 03064 013300 03 FILLER PIC 9( 101 COMP-3 VALUE 0601040200. DNM=L12-07 OL-31 FID 5606 DS 6P 52 0615 013319-- 03 F ILLER---PIC X(15) --- VALIJE-ICCIO S44 - DN?4=112-08- BL-31 F23 5612 DS ISC 03066 01332n 03 FILLER PIC 9(10) COMP-3 VALUE 0601080000. DNMz112-09 BL=31 F32 5627 DS 6P 70 03067 013330 03 FILLER PIC X( IS) VAL UE 481 S19 r)NM=112-11 OL-31 F38 5633 OS 15C 12 64 fmIoo 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION 011068 01 40 03,-FItL-E-R-PIC--:94-101-C-OMP-3--VALUr---e6Ol-OSo3oo6 03069 013350 03 FILLER PIC X(151 VALUE 9SI? ONM-112-14 BL=31 F4D 5654 DS 15c 93070 013360 03 FILLER PIC 9110)COMP-31 VALUE 0601080400. ONM-112-15 OL-31 F 5C 5669 DS 6P 0133-70- 03-FILLER---PIC-Xf IS) ------VALUE -OCC8 ------- - -'b --ONM- I t2-t6 BL-31 F62---5675- DS t5lc----- 03 FILLER PIC 91101 COMP-3 VALUE 0601110000. 03072 013380 ONM=112-18 BL-31. F71 5690 DS 6P 6 03073 013390 03 FILLER PIC X(151 VALUE ICC7 S15 ONM-112-19 BL-31 F7? 5696 DS 15C --03074- 01 340-1--n3 --F I LL ER-- P IC- 91 101-C-OMP-3 VALUE--- 0601130000. -,DNMz1I2-2I---BL-31 F86 --5TI1 DS 6P 03075 013410 03 FILLER PIC X(tS) VALUE 'CC19 72 CC14 ONM=112-22 BL=31 F6C 5717 DS 15C 03n76 013420 03 FILLER PIC 9(10) COMP-3 VALUE 060tI30100. DNM=112-23 BL-31 Fga 5732 DS 6P -03 0??-0I343D---f)3-- 1: ILL ER --PIC -X I VALUE-ICC6 - - --DNM-t12-25 OL-31 FAt 5738 DS I C 03078 013440 03 FILLER PIC 9(101 COMP-3 VALUE 0601140000. DKM=112-26 8L-3t FSO 5753 DS ioP 03079 013451 03 FILLER PIC X( 151 VALUE IT3 DNM-11.2-28 BL-3t F86 5759 DS 15C -03080-0113460----03- F ILL FR-- PIC 9(tO)-COMP-3-VALUE--0601160000.- ONM-11.2-29 BL-31 FCS 57?4 DS 6P 03081 013470 . 03 FILLER PIC X115) VALUE 053 St 0. DNM=112-30 BL-31 FC8 5780 DS 15C !is 15 03082 013480 03 FILLER PIC 9(101 COMP-31 VALUE 0601t60100. DNM=112-32 OL-31 FDA 5T95 DS 60 lei 03 OR3 -0134 90- 03--FTLL ER -- PIC - X 115)- --VALUE 157 - - ---DNM= 112-33 BL-31 FEO 5801 DS 15C 03084 013,500 03 FILLER PIC 9(10) COMP-3 VALUE 0601160300. ONM-112-35 BL=3t FEE 5816 DS 6P is 03095 013510 03 FILLER PIC X(151 VALUE 154 ONM=112-36 BL=31 FF5 S822 DS 15C 013520----03 FILLER-- plr--q( tol COMP-3 VALUE 0601.160400*---- _.D@M=112-37 BL-32 004 2355 OS 6P - as 1 03 08 7 013530 03 FILLER PIC X( 151 VALUE DNM-112-39 OL-32 OOA 2349 @DS ISC Au 126. 03088 013543 03 F IL LER PIC q( 101 COMP-3 VALUE 060IL60600. OSM-112-40 6L- 32 019 2334 DS 6P 03 n 9 9 013 5 913 F I L L E R- --- P I C X(151 VALUE-*51 - - ONM-112-42 -BL-32 OIF 2328 DS I SC 22 03090 013560 03 FILLER PIC 91 10) COMP-3 VALUE 0602000000., ONM=112-43 BL*32 02E 2313@ OS 6P" n4 01091 013570 03 FILLER PIC Xf 15) VALUE 9CB1 CB2 C83 4. ONM-112-44 BL-32 034 2307 DS 15C :;1----03097--01358#3---03 -FILLER-- PIC- -91 tO) COMP-3 VALUE- C602010000is ---DNM-112-46 OL-32 043 2292 DS AP 2. . 03091 0115qr) 03 FILLER PIC Xft5) VALUE QCB7 0KM_-t12-47 BL=32 049 2286 DS ISC 27. 03094 013600 03 FILLER PIC 911 tO) COMP-3 VALUE 0602020000. DKM-112-49 BL-32 05,8 2271 DS 6P "- 03Oq5-----013610-----03- FILLER ---PIC- X 1 151 019 C89 - CBtO---O. DNM=113-00 BL=32 05E 2265 DS 15C- AD 03096 0136?0 03 FILLER PIC 91101 COMP-3 VALUE 06020.30000. DNM=113-Ot BL-32 06D 2250 DS 6P O3Oq7 013630 03 FILLER PIC X(15) VALUE ONM-113-02 OL-32 073 2244 DS 15C 3640---03-F ILLER--- PIC- 91 tO I- COMP-1 VALUE 060205 DNA-L13@-04 L=32 082 2229 DS 6P i4l 0000- i 03099 011650 03 FILLER PIC X 11 t5l VALUE IS CB12 C813 DNM-113-05 BL-32 088 2223 DS ISC j421 03100 Gi3660 n3 FILLER PIC 9(101 COMP-31 VALUE 0602060000. DNM-113-07 BL-32 097 2208 DS 6P ;it---03If,)t--013670--03 FILLER-PIC x ( t 5 1 ----- -------- VALUE 0kMz:It3-08 --BL-32 090 -2202 DS 1SC-- 03102 0136"o 03 FILLFR PIC 0(10) COMP-3 VALUE 0602070000. Ohme,113-09 9Lm32 OAC 216? OS 6P 03103 013593 03 FILLER PIC X1t5I VALUE IC820 DNMmt13-I1 OL-32 082 2181 DS 15C :7 @03 104 ---- 0 1. 3 7 00 -0 3 FILLER- PIC- 91101 COMP-3 VALUE---0602090000.- DKM-113-12-- OL-32 OCI 2t66 DS 6 -a 49 38 03105 013710 03 FILLER PIC X115) VALUE IC826 9. DNM=113-14 BL-32 OC7 2160 DS 15C -0 30 03106 013120 03 FILLER PIC 9110) COMP-3 VALUE 0602110000. D@M=113-15 BL-32 006 2145 DS 6P 31 -----03 107----- 013 730 -03 -F ILL ER --PIC- K(151 VALUE 064 C..-, ---DNM=113-16 OL-32 00C 2139 DS 15 41 03108 013740 03 FILLER PIC 9( 10) COMP-3 VALUE 0602120000. DKM=113-18 BL-32 OES 2124 DS 6P GAI 03109 013753 03 FILLER PIC X( 151 VALUE 962 15 DNM=113-19 BL-32 0F1 2118 DS I C. as 03 110-- -f) 117 60 ------ 03--FILLER -PIC -q(10)-CCMP-3-VALUE - 0602130000. --DNM=113-21 BL=32 100 2103 DS 6 03111 013770 03 FILLER PIC Xt 1.51 VALUE 184 BL=32 106 2097 DS I c as 03112 013780 03 FILLER PIC 9( 101 COMP-3 VALUE 0602140000. DNM=113-23 BL=32 115 2082 CS 6P 591. 45 GO ;i -03 1 t 3- 013 190 ----03 FILLER--PIC-Xi 151 VALUE -ICBIT- . . . . . ............. . . __DNM-I13-25---BL-32 11B 2076 DS 15C 41 03114 011900 03 FILLER PIC 9110) CCMP-3 VALUE 0602140100. ONM=113-26 BL-32 12A 2061 DS 6P 48 03115 013813 03 FILLER PIC X(151 VALUE IC818 I. ONM-113-28 BL=3@ 130 2055 @DS 15C 163 'e4 i7,---03II6----0I39?0---03 FILLER---PIC 0101-COMP-3 VALUE 06021500006- OL-32 13F 2040 DS 6P 01 03117 01IR31 03 FILLER PIC X( 15) VALUE 'C811 ONM=113-30 BL-32 145 2034 DS t5C as @2 491 03118 013R40 03 F I L L E R PIC 9( 101 COMP-3 VALUE 0602160000. DNM=113732 BL=32 154 2019 DS 6P ;_2@_--03 11 q-0 t-3 8 50 - 03 + I L L FR --- PIC -X ( 15 1 VALUE ICH22 -- - - - --DNM-113-33- -BL-32 15A 2013 DS 15C Go ae 113 0312f) 013960 03 FILLER PIC 9(101 COMP-3 VALUE 0602170000. DKM-113-35 BL-32 169. 1998 DS 6P 03121 013873 03 FILLER PIC X(151 VALUE IC824 C825 DNM-113-36 BL=32 16F 1992 DS 15C 14 65 N4 too 10.43.12 APR 391984 INT NAME BASE DtSP RLOI. DEFINITION 03142@ 01-38 80-0" 1 LtfR--P I C--9f-10 I --CC MP-3 -VAL UE-- 0700000000,v,_____ ONH-1 t-3-37'-BL-32--+'?E---I977- DS 6P 03123 013890 03 FILLER PIC X(t5l VALUE 163 '13 14 1. DNM-113-39 OL-32 184 1971 DS t5C 2 03t24 013900 03 FILLER PIC 9110) COMP-3 VALUE 07000,20000. ONH-113-46 BL=32 193 1956 US 6P 3 I C -X (15 )------VAL UE -*6t-- - - - ONM-113-42--OL-32 199--- 1950--DS ISC 4 5 i 03126 013920 03 FILLER PIC q(10) COMP-3 VALUE 0702000000. DKM=ll3-43 BL-32 IAB 1935 DS 6P ;G i . 1 0. @ 7 03t2T 013930 03 FILLER PIC X(151 VALUE OSIO DNM-113-44 BL-32 IAE t929 DS 15C '@--03 128--013940--03 -1- 1 LLER ---- PIC 9(t0l-CCMP-3 VALUE-'-0702000200.;--- ONM-113-46 BL-32 IBD 1914 US LP a r)312q 013950 03 FILLER PIC X( 151 VALUE 'CC5 DNM=113-47 BL-32 IC3 1908 DS 15C si 03130 013960 03 FILLER PIC 9( 10) COMP-3 VALUE 0702000300. DNM=lt3-49 BL=32 ID2 1893 US 6P -;T-031l1--0I3970----03 FILLER-PIC -X 1151 ----------VALUE- *46 S9 DNM-_114-00.-BL-32 100 1887 CS 15C 10 ;z f)3 132 011980 03 FILLER PIC 9(t0l COMP-3 VALUE 0702000400. DNM=lt4-01 BL=32 IE7 1872 DS 6P 14 03133 : 013991) 01 FILLER PIC X( 151 VALUE *48 DKM-114-02 BL=32 1ED 1866 US L5C @_--03134-- 0140(Y) - --- 03 FILLER -PIC 91 101 COMP-3 VALUE- 0702000SOO. DNO-114-04 BL-32 IFC 1851 US 6P 03135 0140F) 03 FILLER PIC X( 151 VALUE 012 ONM-114-05 BL=32 202 1845 US 15C 03136 014020 03 FILLER PIC 9( .10) COMP-3 VALUE 6702030000. ONM=114-07 BL-32 211 1830 DS 6P @G@-03 t37---01403')----03 -FILLUR--PIC X1151 VALUE -#47-1--- -- ------ - ONM=114-08 BL-32 217 1824 DS 15C 17 .0313,9 014040 03 FILLER PIC 9( 10) COMP-3 VALUE 0801000000. DKM-114-09 OL-32 226 1809 DS 6P 2. 03139 '014050 03 FILLER PIC X(151 VALUE VS4, DNM=114-11 OL-32 22C 1803 DS 15C Z3 t40--- -01406r.) 03 FILLER---PIC 9(tO) COMP-3 V 2@ ALUE DNN-114-12 OLP32 23B 1788 -US 6P 03141 01 4.')'7n 03 FILLER PIC Xf IS I VALIJF 143 DNM-114-14 BL-32 241 1182 US L5C 01142 014080 03 F ILL E R PIC 9( 10) COMP-3 VALUE O8OtOOO3OO. DKM=114-15 BL=32 250 1761 US 6P OCC3 SS -- -03 143---- 0140qo-- -03 FILLEP' PIC -X 115 1--- -------'VALlJE DNM=114@16- BL=32 256 -- IT61 DS 231 03144 014tOO 03 FILLER PIC 9( 101 COMP-3 VALUE 0801001200. DNM-lt4-18 OL-32 265 1746 US 6P 2 1 03145 Ot 0 11 03 FILLER PIC X( IS) VALUE 441 DNM-114- - BL=32 268 1740 US 15C 31 , 19 DhM 1725 DS 6P 03 146 - --- 014123 -03 FILLER--PIC 9(10)-COMP-3 VALUE - 08010013 00. -114-21 OL-32 27A - 03147 014130 03 FILLER PIC XI t 5 1 VALUE ICC4 44 0. ONM=114-22 BL-32 260 1719 US 15C 03148 014140 03 FILLER PIC 91 101 COMP-3 VALUE 0801030000. D@M=114-23 BL-32 28F 1704 US 6P ;iF-03 149-014153 --- 03 F I LL ER--- -P I C -X 1 1 r. ) ------ VALUE ICC13-- ONM-114-25 BL=32 295 169,8 US ISC @7 031qo 014160 03 FILLER PIC 91 101 COMP-3 VALUE 0801030100. DNM-114-26 BL-32 2A4 1683 DS 6P 3 03151 014tlO 01 FILLER PIC X(151 VALUE *CCt2 ONM-114-26 OL-32 2AA 1677 US 15C .19 152- --01418f)-------03 -FILLER--- PIC 91101 COMP-3-VALUF 08010302006--- DKM-114-29 BL-32 289 1662 US 6P 03153 014190 03 FILLER PIC X( t5l VALUE '41A CC15 DNM-lt4-30 BL-32 2BF 1656 US t5C 33 03154 Ot4200 03 FILLER PIC 91 101 COMP-3 VALUE 0801090000. ONM-114-32 BL-32 2CE 1641 US 6P 43 3:1 03 1 '55-01 4710-03--F ILL ER ---PIC - X I 15Y -------VALUE 442' ONM=114-33 -BL-32 2D4 1635- DS ISC 3 031956 014223 03 FILLER PIC 91 10) COMP-3 VALIJE 0900000000. DNM-114-35 BL-32 2E3 1620 DS 6P 361 03157 014231 03 FILLER PIC X(151 I VALUE 18 1. DNM=114-36 OL-32 2E9 1614 US 15C 47 - -03 158 --- 0 14 ? 4)-- 03 FILLER-- -PIC-94 101 COMP-3 VALUE - -(39000100004- - -. ....... DNM=114-37 -BL=32 2F8 -1599 US 6P 3 03159 014753 03 F: IL1,ER PIC X( 15) VALUE '22 4 4. DNM=tl4-39 BL-32 2FE 1593 DS L5C 03160 014?60 03 FILLER PIC 9(in) COMP-3 VALUE 0900020000. ONM=114-40 BL-32 30D 1578 DS 6P -Z-03 16t-014? 70-03 --F ILL Ek---PIC--X I li)-- -- ---VALUE a 24 - -- - 5 -- DNM= 114-42 BL-32 3t3 --IS72 US 15C .1 03162 014280 03 FILLER PIC 9(101 COMP-3 VALUE 0900030000. -3 DNM-114-43 BL-32 322 1557 US 6P - A2 03163 0142qO 03 FILLER PIC Xf 151 VALUE 125 9 ONM=114-44 OL-32 328 t551 DS t5C -i --03164--0I43(Y,)-----0l FILLER--PIC 9f 10) COMP-3 VALUE---0900040000. OKM-114-46- BL-32 337 1536 US 6P 03165 014311 03 FILLER PIC X( t5) VALUE 127 to 6 0. DNM=tt4-4? BL-32 330 1530 US 15C 451 03166 014320 03 FILLER PIC 9( tO) COMP-3 VALUE OqOO050000. DNM=114-49 BL=32 34C ISIS US 6P i T.@--03 16 ?- 0143-33--03 -FILLER--PIC X( 15)-- VALUE '33 It ONM-LIS-00 BL- 32 352 1509 US tSC .71 03168 014340 03 FILLER PIC 9( 10) CUMP-3 VALUE 0901000000. DNM=lt5-01 BL-32 361 1494 US 6P 62 4al 0-4169 014350 03 FILLER PIC X(15) VALUE '34 9. ONM=115-02 BL-32 367 1488 DS ISC e3 T..---03 170-- -0143 0-04 F I LL ER -- P I C 94 t0)-CCVP-3 VALUE 0902000000.--- ONM=115-04 OL-32 376 DS 6P 1473 50i ()3171 014370 03 FILLER PIC X( 15) VALUE '32 ONM=ll -5-05 BL-32 37C 1467 DS 15C 03172 014380 03 FILLER PIC q(t0l COMP-3 VALUE (1904000000. 51i Dhm=115-07 BL=32 388 t452 US 6P -03173 014190 -03 F I L L F R- P I C- X I t5t- ---- VALUE '31 ONM-115-08 OL-32 391 1446 US t5C 03174 014400 03 FILLER PIC 9( 101 COMP-3 VALUE 0906003000. DNM=115-09 BL-32 3AO 1431 US 6P 70 03 1 75 0 1 4413 03 FILLER PIC X 115 1 VALUE ,26 ONM=LI5-11 BL-32 3A& 1425 DS 15C 71 ----------_- INT NAME, BASE DISP RLOI DEFINITION 66 NMI30 10.43.12 APR 3*1984 -03-1-76-0-14420---03--FiLL-Ek--P I C --- 91-101-COMP-3 VALUE--- 090B000000----------- ONM-115-1-2--BL-32- 3BS --1.410-0S 6P 03177 0144 30 03 FILLER PIC X(151 VALUE @17 7 4. DNM=115-14 BLu32 368 1404 US 15C 3 03t78 014440 03 FILLER PIC 91101 COMP-3 VALUE 0909000000. DNM-115-15 BL-32 3CA t389 DS 6P 31 -03 1-79 -0 1,44 50 -F I LL ER P I C-- x 115 1 VA L UE 128 -- ONM=115-16-- OL-32 -300 1383-- DS 15C 03 180 014460 03 FILLER PIC 91101 COMP-3 VALUE 0910000000. DNM=115-18 BL=32 10F 1368 DS 6P 011RI 014470 03 FILLER PIC XI 151 VAL UF 923 DNM=115-19 BL=32 3ES 13&2 DS i5C -1,--03 10 2 __ 014460----- 03--F ILL Fq---P I C -91 10) COMP-3 VALUE -ONM-115-21- BL-32 3F4 1347 US 6P ONM-ItS-22 BL=32.3FA 1341 US 15 10 03193 014493 01 FILLER PIC X(15) VALUE @21 3 Id. C 031P4 014500 n3 FILLER PIC 91 10) COMP-3 VALUE 1001000100. DNM=115-23 HL=32 409 1326 DS 6P:, 0145 10---n3-FILLER --- PIC X 1 151 VALUE 4 CC t 12 --- 11-8 . DNM=115-25 SL=32 4OF 026 DS t SC 031136 014520 03 FILLER PIC 9(101 COMP-3 VALUE IM000200. @13 Dhm=115-26 BL-32 41E 1305 US 6P 14 03187 014533 03 FILLER PIC Xf 151 VALUE ICC2 DNM=tl5-28 OL-32 424 t299 US 15C .15 -03 03--FItLER- PIC 94101 COMP-3-YALUE ONM-ItS-29 BL=32 433 -1284 US 6P 03IA9 014951 03 FILLER PIC X( 15) VALUE 114 ONM=115-30 BL-32 439 1278 DS IS 14 C 15i 03190 014561 n3 FILLER PIC 9( 10) COMP-3 VALUE 1001030100. ONM=115-32 BL=32 448 1263 OS 6P 0319t -10145 70 03 FILLER-PIC--X( 15) VALUE 113 - ------- DKM=II5-33--BL=3Z 44E 1257 US 15L 03192 014580 03 FILLER PIC 9( 10) COMP-3 VALUE 1001030200. ONM-115-35 BL-32 45D 1242 DS 6P 21 031q,4 0145()3 03 FILLER PIC X 1 151 VALLIF wn2 ONM-tl5-36 BL-32 463 t236 DS 15c 13 -014600 ----n3 -- P IC -37 -SL '0119 4 FIL(_ER q ( 10 1 C-GMP-3 VALUE 1001080000. O%M-115 -32 412 1221 US 6P BL=32 478 1215 US 15 nltq5 014613 03 FILLER PIC X(151 VALUE Wil I ONM=tl5-3q C U_j 196 Ot4620 03 FIL[ER PIC 9(101 COMP-3 VALUE 1101000000. OKM=115-40 BL=32 487 1200 DS 6P 2 - --n3 19 7--- -0146 30 ----03 - F I LLER -- PT C--X I 15 --VALUE 2011 012 813- 1 DNM-115-42 BL=32 480 1194 DS 15C ------- 22i 23 03 tq8 014640 03 FILLER PIC 9( 101 CCMP-3 V A L 1) E 1101010000. ONM=115-43 BL-32 49C 1179 DS 6P 031qg 014659 03 FILLER PIC X(151 VALUE $FBI FB2 DNM=115-44 OL-37 4A2 1173 DS 15C i;,---.-03 200 - - M4660-03-FltLER --PIC q( tOl-COMP-3 VALUE M1020000.; DKM=115-46 BL=32 401 -1156 US 6P 03201 014670 03 FILLER PIC X(151 VALUE 'QCl QC2 QC3 ON.M=115-47 BL=32 4B? 1152 DS t 5 26 032n2 014680 03 FILLER PIC 9( 101 CC MP-3 VALUE 1101030000. DNM=LI5-49 BL=32 4C6 1137 US 6P 03 21)3 -0146 99 -03 F I L i E R- P I C X I 1W VALUE IRCI BC2 BC3- I . ON14-116-00 OL-32 4CC 1131 US 15C @13 03204 014700 03 FILLER PIC 9(101 COMP-3 VAL UE 1102000000. DKM=tl6-01 BL=32 408 1116 DS 6P f 03705 014710 03 F I LL ER PIC X(15) VALUE 0501 B02 803 0. ONM=116-02 BL-32 4EI 1110 DS 15C ONM-116-04 -OL-32 4FO- 1095 DS 6P 03 206----0147?0----03 - FILL ER- -PI C -9( 10) COMP-3 VALUF -1102010000.---- - -_ _-A n3207 014730 03 FILLER PIC X( 151 VALUE VHBI H92 HB3 4. ONM=116-05 OL-37 4F6 1089 US 15 012,08 014740 03 FILLER PIC 9( 10) COMP-3 VALUE 1103000000. DKM=116-07 BL=32 505 1074 US 6P 03 2n9 -01475f) ----03--F I LLER - PI C.- X( 15) VALUE OIWWI IWW2 IWW3 9.- ONM-116-08 OL-32 508 1068 DS 15C 03210 014760 03 FILLER PIC 9( 10) COMP-3 VALUE 120t010000. DKM-116-09 BL-32 51A 1053 US 6P 47 03211 014779 03 FILLER PIC X( 151 VALUE NR 9 NRIl NR14 DNM=116-11 BL-32 520 1047 DS M COMP-3 VALUE 1201010100. ONM-116-12 OL-32 52F -t032 US 6P j 03 ?. 12----0147 PG 03 F ILL ER PIC -9( 101 36, 03213 014791 03 1: 1 L L ER PIC X( IS) VALUE NR 11 ONM=116-14 BL-32 535 1026 OS 15C 50 301 03214 014BOU 03 FILLER PIC 94 10) COMP-3 VALUE Mloto2oo. DNM=116-15 BL=32 544 1011 US 6P .0--03215--0I4RI0---- -03 FILLER---PIC X( 15) VALUE ONR48 ONM-116-16 OL-32 54A 1005 DS 15C 3 411 ()3216 014420 03 FILLER PIC 91 M CnIJP-3 VALUE 1201010300. DNM-tl6-18 BL=32 559 0990 DS 6P 54 42i 03217 014813 03 FILLER PIC X( 151 VALUE INR49 ONM-116-t9 BL-32 55F 0984 DS ISC 55 0 3 2 18 - -- 0141340 03 FILLER PIC 9( 10) COMP-3 VALUE -1201020100. DNM=tt6-21 BL=32 56E 0969 US 6P ONM=116-22 BL=32 574 C963 DS LSC .41 03219 014F150 01 FILLER PIC W( 151 VALUE INRB NR12 NR32 0. 03220 014860 03 FILLER PIC 9( 10) COMP-3 VALUE 1201020101. ONM=116-23 BL-32 583 0948 DS 6P C .t'_-0322I--0I4870-----0l -FILLER-PIC-- X I IS)-- VALUE INR35 DNM=116-25 BL- 32 589 C942 DS 15 03222 014880 03 FILLER PIC 9(101 CCMP-3 VALUE 1201020102. DhM=116-26 BL-32 598 0927 US 6P e2 :'s 03223 014893 03 FILLER PIC X( IS) VALUE INR36 DNM=116-28 BL-32 59E C921 DS ISC 53 n 3 2 2 4 _'0 14 9 ril 0 3 FILLER PIC 91 1. 0 1 COMP-3 VALUE 1201020103.--- ------ 0NM=t16-29 BL-37 5AD C906 US 6 P -i 03225. 01491D 03 FILLER PIC X115) VALUE 9NR37 ONM=116-30 BL=32 533 0900 DS Isc ce ION a 7 03?26 0 14 9,11 03 FILLER PIC 91 10) COMP-3 VALUE 1201020104. ONM=tl6-32 BL-32 SC2 0885 DS 6P 171 --03227-014939----03 -FILLER ----PIC VALUE NNP13 - - ONM-116-33 BL-32 5C8 0879 DS ISC :2@1 03728 014940 03 FILLER PIC 9( 10) COPOP-3 VALUE 1201020200. DNM=116-35 BL-12 507 0864 DS 6P 5.1 03779 014950 03 FILLER PIC X( 15) VALUE NRI NR24 NR25 DNM=116-36 OL-32 500 0858 DS 15C '7 3 INT NAME BASE DISP RL01 DEFINITION 67 N4100 10.41.12 APR 391964 'D __03_230__ol4'9"- 0 5--F I Lt S R- p I C- -9110 C-OMP-3-V AL UF -12010202 01 6 N M - 116-3 ?--b L - 3 2-5 EC- 09 43 1 03231 014970 03 FILLER PIC X:151 VALUE INR28 ohm-tt6-39 OL-32 SF2 0837 US 15C ) CCMP_3, OhM=116-40 81.-32 601 0822 US 6P 03232 n14980 03 FILLER PIC 9 tO VAL UE 1701020202. 03 2 03 F ILL P I C'-)(I 15 1 VALUE- 1HR6 t4R29' --- --DNM=II6-42-BL-32-607 - 08t6 --QS 15C-- p 03234 015000 03 FILLER PIC 9( 10f COMP-3 VALUE t701620203. DNM-tl6-43 BL-32 616 0801 DS 6 03235 015010 03 FILLER PIC X(15) VALUE NR 30 DNM-116-44 BL=32 61C 0795 DS ISC 17 03 2 3 fj ------ 015121---11 F ILLER- PIC gilOl C01AP-3 YAtAlrE 1201020204,- ONM-116-46 OL-32 620 - 0780- CS 6P 015030 03 rILLER PIC X(t5l VALUE INR31 DNM=116-47 BL-32 631 0774 US 15C 03237 PIC 9( 10) COMP-3 VALUE 1201020300. DN.M=116-49 BL=32 640 0759 DS 6P 03238 015040 03 FILLER FILLER PIC-X( 151 --- VALUE INR22 NR23 NR65 ONM=117-00 BL=32 646 0753 US I SC - - 03240 015061 03 F I L L E R PIC 9( In) COMP-3 VALUE 1201020301. ONM=117-01 BL-32 655 0738 DS 6P it4 03241 015073 03 FILLER PIC X( 15) VALUE 9NR20 NR21 DNM=lt7-02 BL=32 658 0732 US L5C 3 02 DS 6P 113 24? 015080 ----03 FItLER--PIC 9(10) COMP-3 VALUE t201020 ONM-117-04 BL-32 66A 0717 13243 0190no li FILLER PIC X( 151 VALUE INR19 DNM=tl7-05 BL-32 670 0711 US ISC 03?44 015100 n3 FILLEP PIC 9( 10) CrMP-3 VALUE 12010?0400. DKM=117-07 BL-32 6 IF, 0696 DS 6P __03 745----- 03 FILLER- 'PIC X( t5l VALUE -NR50 NR51 NRS2 UNM=117-08 BL=32 685 0690 US ISC-- 03246 015120 03 FILLER PIC 9( t0l CUMP-3 VALUE 1701020401 DhM=tt7-09 BL=32 694 0675 DS i50 IF 03247 015130 03 FILLER PIC X( 15) VALUE, INPS4 NR55 - ONM=117-11 RL=32 69A 0669 US 15C 23 FILLER- -PIC qj In I COMP-3 VALUE 120020402. ONM-117-12 BL-32 6A9 0654 DS 6P DNM=117-14 BL=32 6AF 0648 DS 15C 03 24-4 015150 n3 FILLER PIC X( 15) VAL UF INR56 NP57 03250 0 1 St 61 03 FILLFR PIC 9110) COMP-3 VAL UE 1201020403. DKM=117-15 BL=32 68E C633 DS 6P 03251 n I li 171---- - --f)3 F ILLER, -PIC X(151 - --- - - VALUE @NR58 NR59 DNM=117-16 BL=32 6C4 0621 US 15C 03252 015180 03 FILLER PIC 9(101 COMP-3 VALIJE 1201030100. DNM=tl7-18 BL=32 6D3 0612 US 6P ;30 1 1 3, 1 . 2. 032,53 015191 n3 F LLER PIC X( t 5 VALUE ONR1 NR2 NR3 0. DNM=I17-L9 BL=32 6D9. 0606 DS ISC 03 ?' , 4 0 15 2 00 03 FILLER--PIC 9( 10) COMP-3 VALUE 1201030200.------ DNM-117-21-- BL-32 6E8' 0591 DS 6P 26 03255 olr,213 03 FILLER PIC X( 151 VALUE 0 NR 5 NR18 DNM=117-22 OL-32 6EE 0585 OS 15C' 27 0325.6 015220 n3 FILLER PIC 9( tO) COMP-3 V A L 1) E 1201030300. DNM=tt7-23 BL=32 6FD 0570 DS 6P _n 3 2 5 ?_- ol 52 3)-- 03 F ILL ER-- PIC X( 15) -- - -- ---- VALUE ONR4 NRt6 NR17 0-4 0 NM = 117 - 2 5 8 L- 3 2 7 03 0564 US 15c--- 03258 015,243 03 FILLER PIC 94 101 CUMP-3 VALUE t20103030t. I)NM=Ll7-26 BL-32 712 0549 DS ( 03 259 015250 03 FILLER PIC X(151 VALUE INR15 ONM=ttT-28 BL-32 718 0543 DS 15C 03 26 4 --015 2 61 -- (.) 3 F I L L E R -- PIC 9( tOl -COMP-3 VALUE t30l0lG000.---- ONM-117-29 BL-32 727 0528 OS 6P 3,1 01761 019770 @03 FILLER PIC X115) VALUE 'SSII SS14 SS15 ONM=117-30 BL=32 72D 0522 US 15C 42 J3 03?62 015?80 03 FILLER PIC 9(101 COMP-3 VALUE 1301020000. ONM=117-32 BL-32 -1 3C 0507 DS 6P 43 i;-03 263-015290-03 F ILLER-- PIC - X ( 15 VALUE-*SS16 SSI? ONM-117-33 BL-32 742 0501 US 15C 35 03264 0153no 03 FILLER PIC 9110) COMP-3 VALUE 1301030000. ONM=117-35 BL=32 751 0486 US 6P 36 03265 015311 03 FILLER PIC Xf t 5 1 VALUE #SSI8 DN@.=117-36 BL=32 757 0480 [)S ISC 47 37 03266----Ol 5320------03 -F ILL ER---P IC -9( 10)-COMP-3-VALUE- 1301040000.------- DNM=117-37 -BL=32 766- 0465 DS 6P 30 03?67 01 533f) 03 FILLER PIC X(15) VALUE SSS12 SS13 DNM=IlT-39 BL-32 76C 0459 DS 15C 39 n326$3 015340 03 FILLER PIC () 1 10) COMP-3 VALUE 1301050000. DNM=117-40 BL-32 778 0444 DS 6P 03 269 --- Ot 535D-------03 F ILL ER PT C- Xf 15) VALUE ISS19 ORM-117-42 BL-32 781 0438 US L5C-- 53 1-03270 015163 03 FILLER PIC 9110) COMP-3 VALUE 1301060000. DNM-IL7-43 BL=32 790 04.23 DS 6P 34 03271 015370 03 FILLER PIC X(151 VALUE qSSlI0SSlllSSII2@. DNM=117-44 BL-32 796 0417 US ISC 55 n3272-01 53Pr)------03 FILLER-- PIC 9(10) COMP-3 VALUE 130?0t0000- OKM-117-46 BL-32 TAS 0402 US 6P -56 01271 015390 n3 FILLEER PIC 'Atl5l v lItkil- ISS07 slsi)a f)NM=117-47 BL_@32 7AS 0396 DS 15C sa 45' 03274 0 154 01 03 FILLER PIC 9( in$ COMP-3 VALUE 1302020000. DNM=117-49 BL=32 78A 0381 DS 6P 5, 03?7S____0154j1)-n3 Fft.LER---PIC-X(15) VALUE 'SSOI SS(16. BL-32 7CO 0375 US ISC- PIC qjjGj COMP-3 VALUE 1302030010. ONM=118-01 OL-32 7CF 0360 DS 6P :1 03?76 01 5.4 20 03 F ILL ER 03277 015433 03 FILLER PIC X ( t 5 1 VALUE ISS02 SS03 SS04 0. ONM=118-02 BL-32 ?05 03S4 DS 15C 63 03 2713--Ol 5440,---03 F ILL FR-- -P I C 9( t0l -COMP-3 VALUE- 1333000300- DNM=118-04 - BL=32 7E4 0339 DS 6P -!! 0327q 0 15491 0 3 FILLER PIC x( 151 VALUE #IWW4 tWW5 IWW6 " nNM=118-05 BL=32 TEA 0333 OS 15C 66 03?RO 015461 03 F ILL ER PIC 9( 101 COMP-3 VALUE 140t000000. DNfl=118-07 BL=32 7F9 0318 OS 6P 07 -03 ?A 1-01 54 In n3 F ILL ER P I C-- X(151 VALUE I[ T 2 T13 a ONM=116-08 BL-32 ?FF 0312 0 1 1 US 15C 0324? 015481 03 FILLER PIC 9(t0l COMP-3 VALUE t401010000. ONM-118-09 BL-32 80E 0297 OS 6P 70 03283 0194qO 03 F ILLER PIC X(151 V A L UE InHI RH2 SH3 so ONM-118-11 BL-32 814 0291 OS 15C 68 N4100 10.43.12 APR 39 1984 INT NAME BASE DISP RLDI DEFINITION LL_ PIC-91 t0) --COMP-3 -02?6- US 6P- 03285 015510 03 FILLER PIC X4151 VALUE IVCt VC2 VC3 ONM-It8-14 BL=32 829 0270 US 15C 03286 015520 03 FILLER PIC 9(10) COMP-3 VALUE 1401030000. DNM-118-15 BL=32 838 0255 US 6P -FILtE*-PIC--%( 15) VALUE, -*MBl MB2 MB3 DNM=l 18-16-- OL-32-83E- 0249 -DS 15C-- 03288 015540 63 FILLER PIC 91 10) COMP-3 VALUE 1401040000. ONM=119-18 BL-32 840 0234 US 6P 03289 015550 03 FILLER PIC X115) VALUE 40TC1 OTC2 n7C3 0. OKM=118-19 BL=32 853 0228 US 15C -03290--01556()--03-FTLLER----PIC 91 10)- COMP-3 VALUF--14020t0000.-- BL-32 862 - 0213 US 6P 03291 015570 03 FILLER PIC X( 151 VALUE 10CI OC2 OC3 0. DNM=118-22 BL=32 868 0207 US 15C 03292 0159811 03 FILLER PIC 9( 101 COMP-3 VALIJE 1402020000- DNM=118-23 OL-32 877 0192 US 6P 29 3- 015 9 90 ---- --- 03 FILLER-PIC -X 1 15) VALUE-ITSI TS2 TS3 aL.32 870 OL86 - US 15C-- n3294 () 156 (Y) 03 FILLER PIC 91 tO) CGOIP-3 VALUE 1402030000. DNM=118-26 BL=32 88C 0171 US 6P 03295 015610 03 FILLER PIC X( 151 VALUE 68CI BC2 RC3 0. DNM-118-28 BLul32 892 0165 US 15C -'3'-03?96---0I56?a----03 -FILLER- PIC 9(10) COMP-3 VALUE -- 1403000000. - DNM-118-29 BL-32 841 0150 US 6P 07i 03 29 7 0 156 31 03 FILLER PIC X(15) VALUE IIWW141WWISIWW161. ONM=118-30 BL-32 8A7 0144 05 15C @08 I 13 03208 015640 03 FILLER PIC 9(101 COMP-3 VALUE 1501000000 DKM=118-32 BL-32 BB6 6129 US 6P !lei 1. FILLER*-PIC' X(15) ------ @ - -- - VALUF OMSI MS2 AS3 - ------ DNM=118-33 BL .-32 BBC 0123 US I5C____ 17 03100 015660 03 FILLER PIC 9( 10) COMP-3 VALUE 1501010000. ONM=118-35 BL=3Z 8CS 0108 US 6P 1 03301 01 56 70 03 FILLER PIC X( t5l VALUE #MCI MC2 MC3 4. DNM=118-36 BL=32 801 0102 US 15C FILLER--- PIC 91 10) CnMP-3 VALUE 1501020000- - --------- - DNM= I t8-37 -BL-32 8EO OC87 US 6P - -- - - ---- 031n3 015690 01 FILO@R PIC X115) VALUE IFC1 FC2 FC3 9. DNM=118-39 BL=32 8E6 0081. US ISC .20 033n4 (115701) 03 FILLER PIC 9( 10) COMP-3 VAL UE 1501030000. DNM=118-40 BL-32'BFS 0066 US 6P .1, zii-_----03-A05---0157l0-----()3 -FILLFR----PIC X(15) VALUE IPC1 PC2 PC3 BL-32 8FB 0060 US t5C___ Z3 03306 ot5770 03 FILLER PIC 9( tO) COMP-3 VALUE 15020t0000. ' ONM=118-43 BL-32 90A 0045 US 6P 1@ 241 03307 015730 03 FILLER PIC X( 151 VALUE IRH Rt2 R13 4. DNM=118-44 BL=32 910 0039 US 15C 139 9110)-COMP-3 VALUE 15020N)000. ONM-118-46- BL-32 91F 0024 US 6P 26 . 03309 01575r) 03 FILLER PIC X( 15) VALUE 'FEl FF2 FE3 1. DNM=118-m47 BL-32 925 001.8 US 15C, 03310 015760 03 FILLER PIC 91110) COMP-3 VALUE 1502030000. DNm-118-49 BL-32 934 0003 US 6P !35 27 i,-03 3II------0I577n----03 FILLER---PTC-XI15) VALUE 'MAI MA2 MA3 0. --DNM-119-00 BL-32 93A 0003 US ISC PIC q110) 033t2 015780 (13 FILLER COMP-3 VALUE @1503000000. DNM=119-01 OL-32 949 0018 US 6P 03313 015790 03 FILLER PIC X(t5l VALUE RIWW2tlWW221WW231. ONMzlILq_0Z BL=32 q4F 0024 US tSC, i-@---03314-015800-03- FILLER --PIC- 9(101- COMP-3-VALUE--- 1601000000- DNM=119-04- BL=32 95E 0039 US 6P 4 03315 0158 if) 03 FILLER PIC XI 151 VALUE 'Wit W12 W13 4. DNm=tl9-05 BL=32 964 0045 US 15C 33 03316 015820 03 FILLER PIC 9( 10) COMP-3 VALUE 160t010000. ONM=tL9-0? BL=32 q73 006() US 6P t43 17-0158 03 F ILL FR --- P I C---X I L51 VALUE 1HCl HC2 HC3 0. .-DNM- 119-08 OL-32 979 0066- US 15C--- 35 03318 015849 03 FILLER PIC 9( 10) ICOMP-3 VALUE 1601020000. ONM-119-09 BL-32 988 0081. US 6P 35 03119 ot5850 03 FILLER PIC X(15) VALUE ISR1 BR2 RP3 9. OKM-119-11 BL=32 98E 0087 US 15C 1:7 5 - 03320-01SR60-03 FILLER PIC 9(10) C01AP-3 VAL LIE - 1602010000.- ONM=119-12- RL=32 990 0102 US 6P 3 .03 FILLER PIC XH51 VALUE OWMI WM2 WM3 t. =119-14 BL=32 9A3 0108 US 15C 50 03321 0! 58 71) -3 VALUE ohm -tS -32 9B2 0123 US 6P. 51 03322 0158po 03 F ILLER PIC 9(101 COMP 1602020000. DNM=119 BL 033 ?3----0159 91----f)3 FILLER---PIC--XfI5)----- --- VALUE 1wHI W82 W83 ONM-119-16 BL-32 988 0129 US 15C--- 03324 015900 .03 FILLER PIC 9(10) CI)MP-3 VALUE 1603000000. DKM=119-18 BL-32 9C? 0144 US 6P j34 03375 olqql@) 03 FILLER PIC X 1151 VALUE @IWW291WW301WW314. ONM=119-19 BL=32 9CD 0150 US ISC 43i__03326 ___ 01r.920 __ 03 FILLER PIC _91 10 )COMP-3 VALUE 1701000000- DKM= 119-21 BL=32 9DC 0165 US 6P 44 03327 01 9r)39 03 FILLER PIC Xf 15) VALUE IMCt MC2 MC3 4. ONM=119-22 BL=32 9E2 0171 US 15C .5 03329 015943 03 FILLER PIC 9( tOl COMP-3 VALUE 170t010000. ONM=119-23 BL=32 9F1 0186 DS 6P --03 3 29--015951-03- F ILLER PIC--X VALUE-4HF1 KE2 HE3 a ON'M-119-25 -BL-32 9FT 0192 US I 5c 03330 01,596.9 03 FILLER PIC 91 10) COMP-3 VALUE 1701020000. 0NM=Ll9-26 BL-32 A06 0207 US 6P 4a 0-4 33 1 , 015970 03 FILLER PIC X( 15) VALUE 1WCl WC2 WC3 4. DNM=119-28 BL=32 AOC 0213 US 15 C 5`490-03 FILLER PIC 9(f t0) COPIP-3 VALUE -1702010000. DNM-I t9-29 - BL-32 Ala 0228 US 6P _85 03333 01 qqqr) 03 FILLER PIC X15) VALUE IMMI MM2 MM3 9. ONM=119-30 BL=32 A21 0234 US ISC 03334 016000 03 FILLER PIC 9( 101 COMP-3 VALUE 1703090000. DNM=119-32 BL=32 A30 0249 US 6P 671 `n3335-01600--03 FILLER - PIC X( 151 ---- - VALUE $IWW36IWW37IWW3B%4.____ DNM=Ilq-33- OL-32 A36 0255 US ISC--- --6689 : 23 03336 016020 03 FILLER PIC 9( 101 COMP-3 VALUE 1801010000. DNM=119-35 BL=32 A4S 0270 US 6P j70 03337 016030 03 FILLER PIC X( 151 VALUE 01411 M12 M13 4. DNM-119-36 BIL-17 A48 0276 US L5C 7. '7 APR 391984 INT NAME BASE DISP RL01 DEFINITION 6q N4100 10.43.12 -DS 6P 03 33 8---01:6043 ---fW3- F fttfR---PfC- --qf 10 1 CiONP-3--VALUE ONN-1 19-37 -80- 32-A5A-- 0291 03339 016050 03 FILLER PIC Xf15) VALUE IM01 MOZ M03 DNM-119-39 OL-32 A60 0297 DS ISC 3 03340 01060 03 FILLER PIC 9(101 COMP-3 VALUE 1803000000. DNM-t19-4O BL-32 A6F 0312 DS 6P 3 03 341--- 01-61) 70---03--f- 1 LtER--P I C-1145 VALUE -S IWW401 WW41 I WW42ow DNM= 119-42- OL= 32 A75- -0318 -DS 15C 03342 016080 03 FILLER PIC 91 101 COMP-3 VALUE 1.804000000. DNM-119-43 OL-32 A84 0333 OS 6P 7 03343 016093 03 FILLER PIC X( 151 VALUE 'CBYt CBY2 CSY3 DNM=119-44 BL-32 A8A 0339 DS 15C 03 3 44--- 0161 OD----03-F I L L ER- PIC-9110) COMP-3 VALUE 19010 10100. DNM=It9-46 OL-32 A99- 0354 DS 6P 01345 016110 03 FILLER PIC X( 151 VALUE ICFR39CFR39CFR406. DNM=119-47 BL-32 A9F 0360 DS ISC lof 03346 016120 03 FILLER PIC 91 10) COMP-3 VALUE 1901010101. DNM=119-49 BL-32 AAE 0375 DS 6P il 03 3 4 7 - n 16131 3 FILLER---PIC-X( 15) VALUE OCFR41CFR42 ONM=120-00 BL=32 A84- 0381 DS 15C 03348 016t4O 03 FILLER Pic gi int COMP-3 VALUE 1901010200. DNM=120-01 OL-32 AC3 0396 DS 6P 14 03349 016150 03 FILLER PIC X(15) VALUE OCFR43CFR44CFR451. DNM-120-02 BL-32 AC9 0402 DS 15C TiT-03150-016163-03 FILLER PIC 9110) COMP-3 VALUE -1901010300. DNM=120-04 -BL=32 ADS - 04t7 OS 6P 17 ICFR46CFR47 0. -05 0335t 016170 03 FILLER PIC X( 151 VALUE DNM=120 BL=32 ADE 0423 DS 15C 03352 0161 81 03 FILLER PIC 9( 101 COMP-3 VALUE 1901010400. ONM=120-07 BL=32 AEO 0438 DS 6P C 03 3 53 -01 OSI qn 03 F I L t E R- -P 10- X 1 151 VALUE #CFR31CFR32CFR330i--------------------- ONM=120-08 -BL=32 AF3 0444 DS 15 21 03354 n16700 03 FILLER PIC 9( 101 COMP-3 VALUE 1901010500.@ DNM=120-09 BL-32 802 0459 DS 6P ;22 to, 0331,5 Ot6210 03 F I LLFR PIC X(15) VALUE ICFR28 DNM=120-11 BL=32 808 0465 DS L5C 2 19' 03356 016220 03 FILLER _PIC 9 1If) COMP-3 VALUE 1901010600. ---- ONM=120-12 -BL-32 B17 0480 DS 6P zo@ 03357 011,733 03 FILLER PIC X(15) VALUE OCFR25CFR27 DNM-120-14 OL-32 81D 0406 DS 15C 21 03358 n1674f) 03 FILLER PIC 91 101 COMP-3 VALUE jqojojn7o0. ONM=120-15 BL=32 O?C 050t DS 6P sc -03359 01625)----- -03 FILLER- PIC X( t5) VA L UE 0 CF R 2 2CFR 23C FR24' DNM-120-16 SL=32 B32 6507 DS I 23 03360 016260 03 FILLER PIC 9( 10) COMP-3 VALUE 190t010800. DNM-120-18 BL-32 B41 OS22 DS 6P ;30 241 03361 016?70 03 FILLER PIC X1151 VALUE OCFRt9CFR20CFR211. DNM=120-19 BL-32 647 0528 DS 15C .31 P I C 91 101 COMP -_ - _32 362---- 016289 ---- -03 FILLER -3 VALUE IqOI 010900,i DkM-120-21 OL-32 856 -.0543 DS 6P 3@ 2a 03163 0162qO 03 FILLER PIC X(151 VALUE ICFR15CFR16CFRI72. ONM=120-22 BL-32 B5C OS49 DS 15C m 1 03364 0163 01 03 FILLER PIC 9(10) COMP-3 VALUE Iq0IOII00O. DNM=t20-23 BL-32 868 0564 DS 6P 35 27, ..36 - -03 365----Ol 63 tf)*-- 03* F I LL ER-- PIC--XI 151 VALUE ICFR14CFRIS ONM=120-25-- OL-32 B71 0570-- DS I5C______ za= 1 37 03366 016320 03 FILLER PIC 9 (10) COMP-3 VALUE 1901011tOO. DNM=120-26 BL-32 880 0585 DS 6P '38 03367 016'330 03 FILLER PIC X, 15 VALUE ICFR34CFR35CFR361. ONH=120-28 BL-32 B86 CS91 OS 15C 3a ---03369 016340 03 F tLER PIC 9110) COMP-3 VALUE --1901020100.----- DNM-120-29 BL-32 895 0606 DS 6P 4; 32i 03369 016350 03 FILLER PIC X( 15) VA@UF -CFR13CFR49 DNM=120-30 OL-32 89B 0612 DS 15C 4 i 03370 016360 03 FILLER PIC 9( 10) COMP-3 VALUE 1`901020101. ONM=120-32 BL-32 BAA 0627 DS 6P 43 13, 34-@--(1337L-016371-074 FILLER----PIC--X( 15 Y- VALUE 'CrR48 -DNM=120-33-- BL-12 BOO 0633 OS ni 03372 016380 03 FILLER PIC 91 10) COMP-3 VALUE 1901020200. DNM-120-35 OL*32 BSF 0648 OS 6P 361 03373 016390 03 FILLER PIC X( 151 VALUE OCFR50CFR5tCFR529. ONM-120-36 OL-32 8C5 0654 OS ISC 03374----0164,"-----03- rILLER---PIC- 9( tO) COMP-3- VALUE 1901020300.-- DKIM-t20-37 -OL-32 004 0669 OS 6P 03375 016419 03 FILLER PIC X( 151 VALUE ICFR53CFR54CFR550. ONM=120-39 BL-32 BOA 0675 OS 15C '50 1.17 -03376 0 164 21 03 FILLER PIC 91 101 COMP-3 V A L U E IqOI020400. DKM-120-40 OL-32 BE9 0690 DS 6P 51 3W __03 377---Ot 64-30--03 FILLER- PIC--Xf 15) -VALUE I CFR5 6CFR 57CFR580 ONM=120-42 -BL-32 BEF 0696 DS 15 C 53 03378 016440 n3 FILLER PIC 9(tr)) COMP-3 VALUE 1901020500. ONM=120-43 OL-32 BFE 0711 DS 6P r)-3 -3 7 q 016450 03 F 11. L F It PIC X( 151 VALUE -CFR59CFR60CFR61-. DNM-120-44 BL-32 C04 0717 DS ISC 0732 OS 6P 033PO 016460 03 F I L L EP -- PIC 94 101 COMP-3 VALUE I9OtO2O6OO. ONM-120-46 OL-32 C13 .4 03381 016470 03 FiLtER PIC Xf 15) VALUE 49 r) I DNM=120-47 BL-32 C19 0730 DS 15C 03 39? 016480 03 FILLER PIC 9( 10) COMP-3 VALUE 1901030100. ONM2120-49 BL=32 C28 0753 DS 6P 59 46 _03383 16490 -03-fILLER -PIC--Xf 15)- VALUE-'CFRfi [email protected] ONM-121-00 OL-32 C2E 0759 - DS I, sc ----a 1 47 03384 016500 03 FILLER PIC q( 10) COMP-3 V A L U E 1901030200. ONM-121-01 BL-32 C3D 0774 DS 6P '62 48 03385 0 165 1) 03 FILLER PIC X( 15) VALUE ICFR4 CFR5 CFR?10. DNM=121-02 BL=32 C43 0780 DS ISC :03 03 3 9 6-- 0 1 &S, ?0 0 3 FILLER PIC 9( 101 COMP-3 V A L UE - 1901000 00.. - - DNM=121-04 BL=32 C52 0795 DS 6P .0. 03'397 016533 03 FILIER PIC X4 151 VALUE 1CFR3 CFR6 CFR7 0. DNM=111-05 BL-32 C58 0801 DS tSC 15 1 03388 016543 03 FILLER PIC 91 10) COMP-3 VALUE 190 1050100.- DKM=121-07 BL=32 C67 0816 DS 6P 67 03 3 89--01-655') -03 F I LL E_q_____pj C X ( 151 V A L U E -ICFR88 ONM=121-08-- OL-32 C6D 0822 DS ISC-- 1901050200. ONM=121-09 BL-32 C7C 0837 DS 6P 70 5:1 03390 016960 03 FILLER PIC 9f 10)1 COMP-3 VALUE 03391 0165 70 03 FILLER P I C X 115 VALUE CFR89CFRqO ONM=121-11 OL-32 C82 0843 DS 15C 72 17A 70 NMIO() 10.43.12 APR 3,1984 INT NAME BASE DISP RL01 DEFINITION -102 01-65-80@---43--FtLL-E-R--PIC--94-101--C-OMP-3--VALUE---1901050300.-- 6P 0 3 .03 FILLER PIC X(151 VALUE ICFR91CFR92 1. 393 01659f) DKM=121-14 BL*32 C97 0864 DS ISC 03394 016601 03 FILLER PIC 9(10) COMP-3 VAL(JE t9OtO5O4OO. 01%M-121-15 BL-32 CA6 08T9 DS 6P DNM-L21-16- BL-32 CAC 0885--CS -03395---OL6610---03-FTLLER-PIC--X(-15t---------- VALUE ICFR93 - -- -- isc 033q6 016620 03 FILLER PIC 91101 COMP-3 VALUE 001050500. OhM=121-18 BL=32 CBS 0900 DS 6P 03397 016630 03 FILLER PIC X(15) VALUE ICFR94 DNM-12L-19 BL-32 CC1 0906 DS 15C ()3398---()16441)----()3-FILLEP@ PIC- 91 tOl-COMP-3-VALUE -- Iq0200000G.----------- ONM-121-21 BL=32 Coo 0921 -DS 6P 0319q 016650 03 FILLER PIC Xf M VALUE ICFRI DNM=121-22 BL-32 C06 0927 DS 15C 03400 016660 03 FILLER PIC 9( 10) COMP-3 VALUE 002020000. ONM=121-23 BL=32 CES 0942 DS 6P 03401 16673-----03-FILLFR-PIC--X(I51- ---- - -VALUE [email protected]?`4-- DNM-t21-2S BL-32 CEB- 0946 DS I SC 03402 016680 03 FILLER PIC 91 101 COMP-3 VALUE 1902030100. ONM=121-26 BL*32 CFA 0963 DS 6P. ICFR2 NEI NE2 9. -28 DS 15C 03403 0166qU 03 F LLER PIC Xt 15) VALUE ONM=121 BL=32 000 0969 __03404-016700--03 r-11,LER- PIC- 9( 10) COMP-3 VALUE 002030200. DNM=121-29 BL=32 DOF 0984 DS 6P 03405 016710 03,FILLER PIC X(15) VALUE tNF21 NE22 NE23 1. ONM=121-30 BL=32 015 0990 DS 15C t 51 03406 016720 03 FILLER PIC 9(101 COMP-3 VALUE Iq02030300. DhM=t2I-12 BL=32 024 1005 DS 6P 15) VALUF INF-31 NE32 NEW fir ONM=12t-33 BL=32 D2A loll- DS ISC ' I 03408 016140 0-4 FILLER PIC 9( 10) COMP-3 VALUE 2001000ooO. DN.M=Izt-35 OL-32 D39 L026 DS 6P 03409 016750 03 FILLER PIC X( 151 VALLIF ILFRI LFR2 LFR3 6. I)NM=i2l-36 OL-32 1) 3F 1032 OS 15C 03 41 ()16760 -03 FILLEP -- PIC -91 to)- COMP-3 VALIJE 2002000000. ONM-121-3? BL-32 D4E- 104? DS 6P 01411 0161.71 i)l F11-ISR PIC X1151 v A I-sif IDC1 Dt2 DC3 1. DtiM-121-39 BL*= 32 D54 1053 DS 15C 03412 01678n 03 F Itt. ER PIC 9( 101 COMP-3 VALUE 2n03OOOOOO. ONM=121-40 BL=32 D63 1068 DS 6P 03 413 ----016790 -------03 FILLER---PIC-Xi 151 VALUE I IWW4 7IWW4F1 IWW491 i- ONM=121-42 BL=32 069 1074 DS 15C 03414 016800 03 FILLER PIC 91101 COMP-3 VALUE 210t000000. ONM=121-43 OL-32 078 10819 DS 6P 03415 016810 03 FILLER PIC X1151 VALUE ISRI SR2 SR3 0. r)NM=121-44 BL-32 OTE 1095 DS 15C ---034t6 -016921----03 FILLER-- PIC 1110 DS 69 @-q(101 COMP-3. VALOE - 2101010000. DNMzI2l-46-- BL-32 DOD 03417 016831 03 FILLER PIC Xf 151 VALUE IGCI GC2 GC3 4. ONM7t2l-47 BL=32 D93 1116 DS ISC 271 034 19 01 6A41,1 03 F I LLER PIC 911 101) COMP-3 VALUE 2102000000. DNM=121-49 BL-32 DAZ 1131 DS 6P 03419 n16950 __03 F I L I. E R__ __P I C- X 15 ----VALUE If.' I I B12 813- -- - -------- DNM=122-00 OL-32 DAB 113Y DS BC Ta 3 91 03420 016961 03 FILLER PIC 9( 101 COMP-3 VALUE 2103000000. DKM-122-01 BL-32 DOT 1152 DS 6P 03.471 (116070 03 FILLER PIC X4151 I VALUE ISCI SCZ SC3 to DNM-122-02 BL-32 DOD 1158 DS ISC 39 -01 016AW-03 FILLER--P11,--QI 101-CnMP-3 VALIJF 2104000000. ONM-122-04--BL-32 OCC 1173 DS 6P -422 IIWW531WW541ww5Sl. ONM=122-05 BL-32 DD2 1179 DS t5C, 03423 0,16Aqn- 03 FILLER PIC X(M VALUE 03424 0 6Q00 03 FILLER PIC 9( 101 COMP-3 VALUE 2201000000o DNM=t22-07 BL-32 DEL 1194 DS 6P .3 @;t-03425-- -016qll -------03 r ILL ER ---PIC Xf 151 VALUE -GTUI TU2 TU3- --DNM=122-08 BL-32 DET -1200 DS L5C .4 01426 016970 03 FILLER PIC 9( 101 COMP-3 VALUE 2201010000. 6NM=122-09 BL-32 OF6 1215 OS 6P 0342,7 016,133 03 F ILL FR PIC X.( 15) VALUE IFCt EC2 FC3 s. DNM-122-11 BLm32 DFC 1221 DS ISC 01428 6940 ---n3 FILL ER -- PIC 9(101 COMP-3 VALUE 2201010100. ONK-122-1.2 BL-32 E08 1236 DS 6P 03429 VALUE C 016950 03 FILLER PIC W( 15) OSCI SC2 ONM=122-14 BL=32 Ell 1242 DS 1.5 03 4-3 n ni 6,)6o 03 FILLER PIC 9( to) CnMP-3 VALUE 2202010000. DNM=122-15 BL-32 E20 1257 DS 6P 03431----- 016970-03- F ILLER--- -PIC-- Xf 15) VALUE ISBI S87 - DNM-122-16 BL-32 E26 1263 - DS 15C 03432 016980 03 FILLER PIC 9( 10) COMP-3 VALUE 2202020000. ONM=122-18 BL=32 E35 1278 DS 6P 03433 016990 03 FILLER PIC X(151 VALUE IS94 S812 4. ONM=122-19 OL-32 E38 1284 DS 15C 55 D.-03434--01 7001)-03 FILLER PIC- 91 to) COMP-3 VALUF 2202030000. ONM=122-21 BL-32 E4A 1299 DS 6P 5i A 4 ii 03415 017010 03 FILLER PIC X( 151 VALUE ISB5 S813 SB14 1. ONM=122-22 BL=32 E50 1305 DS 15C .5. 03436 017020 03 FILLER PIC 9( 101 COMP-3 VALUE 2202040000. DNM-122-23 BL=32 E5F 1320 DS 6P .-@--03437-01 7030--- 03--F I LL ER ---PI C Xf 15) VALUE 2SB2 C.__ 6 S B S S89- ONM-122-25 OL-32 E65 - 1326 DS 15 3438 017040 03 FILLER PIC 94 101 COMP-3 VALUE 2202050000. DKM=122-26 BL-32 E74 1341 DS 6P C2 03439 017050 03 FILLER PIC X(15) VALUE ISB3 S810 SRIJ DNM=122-28 BL=32 ETA 1347 DS 15C :,51 0 1-03 440--017060 @w ----()3 FILLER -- PIC c) (lb)-COMP-3 VALUE 2202060000. UNM=122-29 OL-32 E89 L362 DS 6P C 03441 017070 03 FILLER PIC X( 15) VALUE ISB6 SB15 S816 0. DNM=122-30 BL=32 ESF 1368 DS 15 0344 2 0170RO 03 FILLER PIC 9( 10) COMP-3 VALUE 2203006000. ONM=122-32 BL-32 E9E 1383 DS 6P 70 1 T, I'll @O3 3-23 C -1.)1443--ol 7(390-----03 FILLER - PIC X115) VALUE 'LAI LR2 LR 3 ONH-122-33 BL-32 EA4 1389 DS I Sc 03444 017100 03 FILLER PIC 9( 10) COMP-3 VALUE 2203010000. ONM=122-35 BL=32 E33 1404 DS 6P 01445 017119 03 FILLER PIC X(151 VALUE ICRI CR2 CR3 I. ONM-122-36 BL=32 EB9 1410 DS 15C APR 3,1984 INT NAME BASE DISP RLOI DEFINITION 71 W4100 10.43.12 0344,6- IC--4i-10 1--COMP-3 --VAL UE--22G40OO0OOir-------D%M- 1. 22-31-- 6L*32--EC6---142S-DS: 21 03447 017130 03 FILLER PIC, X(15) VALUE @01_1 OL2 OL3 ONM-122-39 BL-32 ECE 1431 US t5C 3 03,448 017140 03 FILLER PIC 9(10) COMP-3 VALUE 2205000000. DNM-122-46 BL-32 EDO 1446 US 6P 03449-017U51--03-fILLER---PIC--Xt-151------ ---VALUE -IWW62IWW631WW64s.@------ -ONH-I22@4Z----BL-32-EE3 US t5C--- _@_03450 017160 03 FILLER PIC 9110) COMP-3.VALUE 2210101000. ONM=122-43 BL-32 EF2 146? US 6P 03451 n17170 03 FILLER PIC X(151 VALUE ISCI. SC2 ONM-122-44 BL=32 EEO 14?3 US t5c 7 7 FILLER--- PIC--9 (101- COMP-3 VALklE 9999999999. DNM=122-46---6L-32 ED?- 1488 US 61 17180 03453 017190 03 FILLER PIC X( 15) VALUE ONM=L22-47 BL-32 FOD 1494 US 1 03454 017200 03 FILLER PIC 9( 101 COMP-3 VALUE 999999q999. DNM=t22-49 BL-32 FIC 1509 US 6P 03455-@017210---03--FTLL-ER---PIC--XI,151---- --VALUE--- --- - - DNM-'123-00 --BL=32 F22 -151.5 --DS t5C- 03456 0 172 20 03 FILLER PIC 9 10) COMP-3 VALUE 9999999999. ONM=123-01 OLF-32 F31 1530 US 6P i4 03457 017?3:) 03.FILLER PIC X( 15) VALUE ONM-123-02 BL=32 F37 1536, US 15C 21, 03 456 ----Ol 7? 40 03 F IL L ER --- PIC-9(10)-COMP-3 VALU@ 99999q9999. ONA-t23-04 BL-32 F46- 1551 US 6P I., - 131 03 49 q 017753 03 FILLER PIC X( 15) VALUE ONM-123-05 BL=32 F4C 1557 US L5C 14 a 03460 017?60 03 FILLER PIC 9( 10) COMP-3 VALUE 9999999999. DNM-123-07 BL=32 F 58 1572 US 6P .0 -03 461- -017?70-01 -FILLER----PIC @X( 15) VALUE- ONM=123-08-- SL=32 F6t-- 1578 US t5C, .0346? 017280 03 FILLER PIC 9( 10) COMP-3 VALUE 9999999999. ONM-123-09 BL-32 F70 IS93 US 6P 03463 '017290 03 FILLER PIC Xf 151 VALUE ONM=123-11 BL-32 F16 1599 US 15C ----03 464 -- 0173 03 03--F ILLER ----PIC- 9f If)) COMP-3 VALUE --9999999999.--------------- DNM-123-12 - BL-32 F85 1614 US 6P 0. 03465 017310 n3 FILLER PIC X( 151 VALUE DNM=123-14 BL-32 F8B 1620 US lk 221 03466 0173?0 03 FILLER PIC 91 101 COMP-3 VALUE 999999999q. ONM=123-15 BL-32 FgA 1635 US 6P j@-r-_O 3 4 6 7 -73 30--- riLLER---PIC-X( -VALUE - 01 ONM=123-16--BL-32 FAD---- 1641 --US 15C. 231 03468 017340* I 0346q 017350* 21, 3 _'03470--01 7360* TABLE-NOW-CONTAI NS--857. ENTRY ES- xi 1 03471 017370* + 008 ALL-q ENTRIES 35 2, 03472 Ot7180* 1 5 -03 473- 1139,J-01--STATInN-TABLE-1-R'-REDEFINES-STATION-TABLE-I.- DNM-123-113 ---SL-28 -938 ---- OOOt- ---OS OCL Is- 6 03474 017400 03 LnC-wiTH-1-3-STATIONS OCCURS 865 TIMES ONH-123-23 BLu28 938 0001 US OCL21 oa 03475 017410 ASCENDING KEY LOCATION-1 _o 1 03 4 76-0174 IN oE XED BY 1OC- 1-1 X 32 03477 017430 05 LnCATION-1 PIC 9(10) COMP-3. ONM-123-27 OL-28 938 0001 US 6P 33 03478 017440 05 STATION-1 OCCURS 3 TIMES INDEXED BY STA-1-1 X ONN-123-31 BL-28 93E 0007 US SC 24 PIC X(51 -- - ---- 361 - ----- --------- 44 39 3.1 @.3 45 to 47 .2 C3 48 50ii aa &7 52 4? 71 jr4 72 N4 100 10.43. t 2 APR 391994 INT NAME BASE DISP RLOL DEFINtTION 03481---0174-714 2 03482 017480* 0174QO 01 STATION-TABLE-2. ONM-123-33 BL-33 030 0001 DS OCL49044 01463 93484-Ot-7509-03 -FILLER-PIC -9(-tOl--C0"P-3 VALUE---0I0OOIOOOO.T---- ---DNM=123-3&-BL=33 030--0001- OS 6P - 03485 017510 03 FILLER PIC X(1201 VALUE 1303 304S 305 CSI CS3 C ONM-123-38 BL -33 036 0007 OS 120C n3486 017521- IS5 CS6 31t 3t2 IE tMS IW CS? CSS CS9 CStl CS4 167 -CSI 5 C S A 6S------- 17540 n3 FILLER PIC X1751 VALUE SPACES. ONM=123-39 BL*33 OAE 0127 DS 75C 034'13 0 03 419q 0175511) 03 FILLER PIC 9110) COMP-3 VALUE 0100020000. DNM=123-40 BL-33 OF9 0202 DS 6P -@-03 490-017560 -- -0'1 -F fLL ER ---PIC- -X 1120 1--- VALUE- 12ME ZMW 2W - - C S2 4 CS 25 C - 0 NM= 12 3-42 - 8 L- 33 OFF- 0200 DS t20C- 03491 017570- IS26 CS28 CS29 03492 017580- 13 -03493-01 75Q0--03--fILLFR----PIC- X175)----- VALUE SPACE S.-- - --DNM-123-43---BL-33-I77--0328 DS -7 SC- 01494 0 176 00 03 FILLER PIC 9(10) COMP-3 VALUE 0100030000. ONM-123-45 BL=33 ICZ 0403 DS .6P 03495 017610 03 FILLER PIC X(120) VALUE 'CSt8 CS35 CS38 C539 ONM=123-46 BL=33 IC8 0409 OS 120C -2D 1201 i 03 496----0176 ---- 17 03497 017630- 03498 Ot 7640 03 FILLER PIC WS) VALUE SPACES. DNM=123-47 BL-33 240 0529 DS 75C 0349q--017650 ----03-FILLER PIC 9 ( 10) --COMP-3 VALUE-- OtOO060000. - BL-33 288 0604 -DS 6P OSM-123-49 - :, 03500 017660 03 FILLER PIC X(1201 VALUE IAS4 CS60S QNK=124-00 BL=33 Zql 0610 DS 120C 1261 2, 03501 01 7F@70- ;27 03503 01 76qO 03 FILLER PIC X(751 VALUE SPACES. DNM=124-Ot BL=33 309 0730 OS 75C 24 03504 017700 03 FILLER PIC 9(10) COMP-3 VALUE OlttOO0000. DNM=124-02 BL-33 354 0805 DS 6P In ii-- --03505-01 7710--03--FILLER-- - PIC X( 120@------ VALUE -ACS4,8 35A - 0811 DS 12OC- 03506 017770- 2, 03507 017730- __ 015OR--01,7740-- 03--FILtER---PIC--X(T5) ----VALUE-SPACES. ---- --- -DNM=124-05-- BL=33- 302 - 0931 -DS 7SC-- 03509 017750 01 FILLER PIC 91tOl COMP-3 VALUE 0114000000. ONM=124-07 OL-33 410 1006 DS 6P 29 30 01 S 10 01776n 03 FILLER PIC X11201 VALUE 1321 322 4E 4M 4W 3 DNM=t24-08 BL-33 423 1012 DS 120C 1361 37,---03 Sl t---Ol 77 70-----t M-----3W--- CS43 CS44--CS45 -C S46--C@SS3 CS54--CS54- CSSB------ 03512 0177AO- zz 33, 03513 017790 03 FILLER PIC X1751 VALUE SPACES. DNIM-124-09 BL-33 49B 1132 DS 75C 03514---017800-03-FILL-ER--PIC-9(101 COMP-3- ONM-t24-tl-- -BL-33--4E6-- 120T- DS 6P --- 4 145 35 01515 017810 03 FILLER PIC X41201 VALUE.46. I a CSl&9 ONM-124-12 BL-33 4EC. IZ13 DS 120C 1.6 36 03516 017820- 9 --03517 ---017H3()---- 9 30 03519 017840 03 FILLER PIC X(751 VALUE SPACES. ONM=124-'14 OL-33 564 1333 DS 75C 39 03519 017850 03 FILLER PIC 9(10) COMP-3 VALUE 0200010000. ONM=124-15 OL-33 5AF 1408 DS 6P -FILLER- -PIC--Xf t20)---- VALUE vCR3 - -ONM-124-16 -BL-33 585 1414 OS 12OC- 41 03521 017870- .2 03522 017881- f)3 5 2 3 -- 0178 90 -----03 T I LL E R - -P I C__ x ( 75 Y VALUE--SPACES. -- DNM-124-t8-8L-33 620 L534 DS- 75C--- 4 03524 01 @90') 03 FILLER PIC 9(101 COMP-3 VALUE 0200020000. ONM=L24-19 BL-33 678 1609 DS 6P w :1 03575 017qlJ 03 FILLER PIC Xlt20) VALUE OS3 S6 JIP S2P S3P S DNM=124-21 OL-33 67E 1615 DS 120C -01 7q2O------ -84P---Tl-- --T-2- 3--- 017930- 48 03529 017940 03 FILLER PIC X(751 VALUE SPACES. DNM-124-22 OL-33 6F6 1735 OS '175C -03529 ()3-FILLER--PIC 9itOl-COMP-3 VALUF---0200030OOG_--- t8lO-- OS 6 -01 7951@3- P $14 -124-25 OL-33 74? 18t6 DS 120C 03510 017961) 03 FILLER PI C X 1120) VALUE T8 ONM as 03531 017)70- a sq q77 03 4 82 as. 1 03513 0 179 93 03 FILLER PIC X:75: MPVALUE SPACES. ONM-124-26 BL-33 70F 1936 OS 75C ,1 03534 018000 03 FILLER PIC 9 10 0200040000. ONM-124-28 BL-33 80A 2011 DS 6P :3 cn -3 VALUE :71 -1 17*; 55 173 ,?A 'a @l 7@ 73 NRIOO tO.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION -AS19-ASZO-AS24-S4------S-------DN#4-124-214-BLw33 -Fjlo---2017-OS 120c----- 03516 0180?0- 65 S5P S6P S7P S8P TS T6 T7 8 '3 015-47 016013- 1 0. -r---03 574 8-0111040---103-F ILL ER- P 1 "-05 1------VAL UE -SPACE Si--- - 4 ONM=I24-3O---BL=33 -888--2147--os 75C ' 3539 018050 03 FILLER PIC 9(10) COMP-3 VALUE 0200050000. ONMet24-32 BLw33 8D3 2212 US 6P 03540 01 R060 03 FILLER PIC X(1201 VALUE."AS11 15 A2 W2 W4 DNM-124@33 BLw33 809 22tS US 120C --03541 -010170-- ----- -- ------ 03542 018080- Ic 03543 int so c)o 03 FILLER PIC X(75) VALUE SPACES. ONM-124-35 BL*33 951 2338 DS 75C 03 544 -01 Fill 00 - -03--FILLER--'PIC--9( 10)-COMP-3 -VALUE 0700060000o DNM-IZ4-36---6La33 99C_ 24 L3 US 6P- 01545 018113 03 FILLER PIC X(1201 VALUE 'W3 4 9 DNM-124-37 BLm33 9AZ 2419 US 120C 03546 019120- -'---03547 019140 03 FILLER PIC Y175) VALUE SPACES. ORM-124-39 BL-33 AIA 2539 DS 75C :4 1 01549 01R150 n3 FILLER PIC 9(InI COMP-3 VALUE 0200070000. ONM-124-40 OL-33 A65 2614 DS 6P -1 03 5 SO --Ot It 60 --03--f ILLER---P IC--X 11201- - --VALUE 1.43 AStZ--E ORM-124-42---BL- 33 A68 --OS- 1,20C 03551 018170- 93 A4 5 6 03552 018t8O- 01553 ----018190-- --03-F ILL ER-----PIC-X ( 751 VALUE- --SPACE S. ONM-124-43--BL-33 AE3 ---274G --US 75C 03554 ' 018200 03 FILLER PIC 9(10) COMP-3 VALUE 0200080000. ONM-124-44 OL-33 82E 2815 US 6P 2,j 03555 018710 03 FILLER PIC X(1201 VALUE OAS27 AS29 E2 F4 ONM-124-46 BL-33 834 282t DS 120C 019230- 2.1 03558 OtA240 03 FILLER PIC X175) VALUE SPACES. DNM-124-47 BL=33 BAC 2941 US 75C 03559 -01 8250---03--FILLER--- PIC 91 101 -COHP-3 VALUE --- 0200090000,-..--, ONM=I24-49---8L-33 OF?---3016 US 6P---------l' 3@ n3 960 018269 03 FILLER PIC W(t201 VALUE lASt4 OKM-t25-00 RL*33 OFO 3022 DS 12OC 03561 018270- 1 z 7, 03 562 ONM=125-01 BL-33 C75 3142. US 75C ZVI 03561 018290 03 FILLER PIC X175) VALUE SPACES. 301 03564 018300 03 FILLER PIC 91tO) COMP-3 VALUE 0200100000. DNM-125-02 BL-33 CCO 3217 US 6P 565 Ot 8110 --G3--F I LL ER--P I C--X 11201--- --- -VAL UE -1 Al I --- 0 NM-12 5-04 -OL-33 CC6--3223 -DS 120 32' 03566 018320- 9 331 0-3 5) f, 7 018330- @--IFYA 56 R---- 01 A3 40 1 L L CR--PI C-X 17 5)---,- ---- VALUE SPACE S.-- - ONM-125-05---BL-33 '0 X --3343- US Jl5C- 03569 018351 03 FILLER PIC 9(10) COMP-3 VALUE 0200140000. ONM-125-07 BL=33 089 3418 US 6P A 5 361 03570 018360 03 FILLER PIC X1120) VALUE OAS34 AS35 AS37 ONM-125-08 OL-33 OBF 3424 US 120C 571 -()18170--1 - ---- --- 03572 0 183 80- 9 03573 ojq3no 03 FILLER PIC X(751 VALUE SPACES. ONM=125-09 BL-33 E07 3544 US 75 C 03 574---0184 01) ILL ER-PI C -91 10) --lCO#4P-3 -VALUE- 02OOt6ODOo.----------,------- DNM-125-11-BL-33 E52 --3619---DS-6P OT 03575 0184tO 03 FILLER PIC X(120) VALUE 9AR6 ART ONM-125-12 BL-33 E58 3625 DS IZOC 03576 0184?0- 03 577 -- 031 03 578 01 F1443 03 FILLER PIC X175) VALUE SPACES. DNM=t25-14 BL-33 EDO 3745 US 75C 451 03579 018451 03 FILLER PIC 9110) COMP-3 VALUE 020OL70000. DNM=t2S-t5 . OL-33 FIB 3820 OS 6P 03 540---018460 -----03-F fLL-FR-PIC--Xf 1201------ VALUE- 1133 AS2 -AS3 ONM-05-16-6L-33 F21. --OS 120C 03581 0184 TO- 03582 018480- 015 9 3 84 99 --1) 3 F I L L- ER P I C- X 17 5 1 - VALUE SPACES. DNM-125-18-.-BL-33 F99--3946 75C 03594 0185()o 03 FILLER PIC 9110) Cr)MP-3 VALUE 0200180000. DNM-125-19 OL-33 FE4 4021 US 6P 03585 0181110 03 FILLER PIC X(120) VALUE vAS8A 147 ONM=125-21 BL-33 FEA 4027 DS t20C f?i 03587 018530- ONM=125-22 3. 03588 018540 03 ;tLLER ;1C X(751 VALUE SPACES. BL-34 062 4L47 US 75C 74 WOO 10.43. t 2 APR 3,1984 INT NAME BASE DISP RLOt DEFINITION 10"OMP-3 -VALi)E-0201000000-w----------------DNM-125-23-BL-34-OAD -4222-- OS--6P-- 03590 018560 03 FILLER PIC X(120) VALUE 402 D4 09 Dt3 DtS N ONM-125-25 OL-34 OB3 4228 US 120C 03591 016570- VRZ MR3 NRS NR7 NRB 23 24 7 21. 25 26 3 4 03 03593 OIA590 03 FILLER PIC X(75) VALUE SPACES. DNM-125-26 OL-34 I2B 4348 DS 75C 03594 018600 03 FILLER PIC 9(10) COMP-3 VALUE 0201100000. DNM=125-28 OL-34 176 4423 DS 6P i67 7 -03 5q r. ---Ot 86 ILL ER -P IC-- X 1 1201 VALUE -222 - ITC 4429 DS IZOC 03596 018620 D3 FILLER PIC X(751 VALUE SPACES. DNM=125-30 BL-34 IF4 4549 US 75C a 035q7 018630 03 FILLER PIC `41101 COMP-3 VALUE 0202000000. D@M=125-32 BL-34 23F 4624 DS 6 P 3598----019640--03-FILtER----PIC- Xf-120)- ---- VALUE a IS 3 - - -7- A16-1 ---D'NM-125-33 BL-34 -245 4630 US 120C 3 3599 Ot8650- 3S tS IT 22 23 20 21 22 B2 83 64 B5 3 60 0 186 60 - B8 81n 811 B13 814 A14 C2 4. 3601 0 156 7 0 -- 0 3 - F I L L E R - PIC X(75)----- --- VALUE -*C3-- -C4 -- C-5---C9----CIO--C-- ----DNM-I25-35---BLm34 -280 -4?SO US 15C- 14i n3602 018680- $11 S2 A6 AT A8 A9 AtO Alt A12 A13 03603 018690 03 FILLER PIC 9(tn) COMP-3 VALUE 0202060000 DNM=12S-36 BL:34 308 4825 US 6P -03 604-01 9700-03--f ILL ER-PIC -X 11201 VALUE At-----;3 ,61 920 ONM=125-37 OL 34 30E-- 4831-- US 120C 171 03605 018710 03 FILLER PIC X(75) VALUE SPACES. DNM=125-39 BL-34 386 4951 DS 75C 03606 018721 Iaj 03 FILLER PIC 9(10) COMP-3 VALUE 0202140000. DNM-125-40 BL-34 3Dt 5026 DS 6P 7,1-01607-018730-03 FILLER--- PIC -X 11201 VALUE IC7--25-- -ONM=125-42 -BL-34-307 533Z US. 120c 03609 01,9740 03 FILLER PIC X(TS) VALUE SPACES. DNM=125-43 BL-34 44F 5t52 US 75C 27 01609 Ot8750 03 FILLER PIC 9(10) COMP-3 VALUE 0203000000. ONM=125-44 OL-34 49A 5227 DS 6P 22 03610---- 018760 -03 -FILLER --PIC -X I t201 VALUE *28 ------ DNM-125-46 -OL-34 4AO 5233 DS t20C. 03611 018770 03 FILLER PIC X(75) VALUE SPACES. DNM=125-47 BL-34 518 5353 DS 15C 03612 018780 03 FILLER PIC 9(10) COMP-3 VALUE 0204000000;__ 0NM-t25-49 BL:34 563 5428 DS 6P 613-01 F1790--03--F ILLER- - PIC- X I 120) VALUE -6 1 ---- - 3- _31 DNM-126-00 BL 34 569 5434- DS I?0C 03614 018floo- $a B3 329 1 '1 B5 B4 83A B& 05S 86S 57S A2 A3 Bt 1@ 0-4615 018810- 13, 1 5554-- DS' 75C-- 28 03616--018820 -03 F ILLFR--PIC --I 175 1 VAL UE -SPACE S.---,- -DNM.t26-0t-- -BL-34- 5Et 13-1 03617 018930 03 FILLER PIC 9(10) COMP-3 VALUE 020400000. DNM-126-02 BL-34 62C 5629 US 6P 014610 Oln840 03 FILLEP PIC X(1201 VALUE 018 DNM-126-04 BL-34 632 5635 DS 120C 311--03619---- 01 8q50--03- FILL EP----PIC -X475) - ---- --- --- VALIIF,-SPACES. DN4-l26-0S--8L-34 6AA 57SS - DS 75C- - i 0362o m8960 03 FILLER PIC 9(10) COMP-3 VALUE 0205000000. DNM=126-07 BL-34 6F5 5830 DS 6P 32 ;4: 33 03671 018870 03 FILLER PIC Xf 1201 VALUE It 3 4 5 6 7 DNM=126-08 BL=34 6FB 5836 US 120C 19--20--- 38 16--- 17---At-- A3,---AS---A6--------- 3. 03623 OtRA90- AT A9 A12 At3 At4 A15 At6 0. 4c 03624 0191)00 03 FILLER PIC X175) VALUE 136 38S 24 25 26 2? DNM-126-09 BL*34 773 S956' DS 75C 4- ----6 A 12 - -A13---- At4 A15 A16 ----a 031,126 olAq23 03 FILLER PIC 9110) COMP-3 VALUE 0205030000. DNM=126-tt BL=34 7BE 6031 US 6P 03627 018930 03 FILLER PIC X(1201 VALUE 937 A18 ONM=126-t2 BL=34 ?C4 6037 US 120C 62 9940 -D3 -FILLER--- PIC -)( 1751 VALI)F SPACES.-- - DKM=126-14- -BL-34 83C 6157-- US 7SC- 03629 018950 03 FILLER PIC 9(10) COMP-3 VALUE 0205040000. DNM=126-15 BL-34 837 6232 US 6P 41 42 03610 018W) 03 FILLER PIC X(1201 VALUE '13 15 ONM=126-16 BL-34 88D 6238 US t20C --- 03 611 -018970 SPACES. DNM=t26-18 -- BL- 34" 90S 6358 DS 7SC-- ,;-3 03 FILLER -PIC X(751 VALUE 44 03632 018980 (33 F I L L ER PIC 9(101 COMP-3 VALUE 0205060000. DNM=126-19 6,=34 950 6433 US 6P ic- 03633 0189911) 03 FILLER PIC X(t20) VALUE 128 ONM=126-21 BL=34 956 6439 US 120C '@--03 6 3 4--- 0190 3 F ILL FR-- PIC-X(751--- -- VALUE SPACES. - ONM=126-22 -- OL-34 9CE 6S59 US 75C- :7 03635 01 qo 11 03 FILLER PIC 9(10) COMP-3 VALUE 0206000000. DNM=126-23 BL-34 A19 6634 DS 6P 03636 ()Iqozl) 03 FILLER PIC X(1201 VALUE IF4 10 QNM=12fb-ZS BL-34 AIF 6640 US I2QC 03 617-019011.3 -03 FILLER -PIC X( 751 VALUE SPACES. - -- -ONM-126-26 -BL-34 A97 6760 US 7SC- so 03639 0119040 03 FILLER PIC 9110) COMP-3 VALUE 0206010000. DKM=126-28 BL-34 AE2 6835 US 6P 03639 190 50 03 FILLER PIC X(t20) VALUE 'ES 9 DNM=126-29 BL-34 AE8 6841 US 120C 74 .j a at 'o 12 0 13. -0 !_,--0364()--f)I qo6f)--03 F It LER- -Pt C X(751 VALUE SPACES. -- ONM=126-30 OL-34 B60 6961 US 75C 53 03641 010070 03 FILLER PIC 9( t0I COMP-3 VALUE 0206020000. DNM-126-32 BL-34 BAB 7036 US 6P 54, 03642 019080 03 FILLER PIC XI t20) VALUE 143 a. DNM-126-33 OL-34 B81 7042 DS 120C __1 62. 71 75 N4100 10.43.12 APR 391984 INT WE 13ASE DISP RLOI DEFINITION -VALUE -SPACE So- -ONM*126-35--BL-34-C-29---7162--DS.-7SC--- 03644 019100 03 FILLER PIC 9(101 COMP-3 VALUE 0206030000. DNM*126-36 BL-34 C74 7237 DS 4P 03645 019113 03 FILLER PIC X(1201 VALUE RE3 DNM-126-37 BL-34 C7A 7243 DS 120C 3 --------VALUE SPACES.--'-- --OL-34-CF2@- 7363 DS -75C 03647 0 1 q 131 03 FILLER PIC 9(101 CClMP-3 VALUE 0207000000. ONM-126-40 BL=34 030 7438 OS 6P 03640 019140 03 FILLER PIC X(120) VALUE IE82 E83 EBS PJI PJ2 t2 DKM=126-42 OL-34 043 7444 OS 120C 7 03 6 4 9 -0 19150 ---- 03650 019160 03 FILLER PIC X1751 VALUE SPACES. DNM-126-43 OL-34 DBB 7564 OS 75C !,o 03651 01 C)l 10 03 FILLER PIC 9(101 COMP-3 VALUE 0207010000. ONM=126-44 BL-34 E06 7639 OS 6P 036;2--019 RO -13-FILLER-- PIC-- X I 120)-----VALUE 10 - - 2 - -- - --- DKM=126-46- 81.=34 EOC 7645 DS 120C-- 03653 019 q3 03 FILLER PIC X 7S) VALUE SPACES. DkM-126-47 BL=34 E84 7765 DS 75C 14 12! 03654 019201 01 FILLER PIC 9(101 Cf)MP-3 VALUE 0207020000. ONM-126-49 BL-14 ECF 7840 OS 6P i-,ia---03655--0Ic)219---O3 FILLFR-- PIC--Xf 120) VALUE 9 - I 1. --5 1---- C-86 13 DNM-127-00--BL-34 E05 - 7846 .-OS 120C- 036S6 019?20- 1 14 15 16 1. 03657 019230 03 F I L L ER PIC X(75) VALUE SPACES. OKM=127-01 BL=34 F4D 7966 CIS 75C 016 5 9 ---019? 40 ----03- FILLER -*--PIC--9( 10) COMP-3 VALUE 0209000100;.---- OhM=t2l-O2--8L=34 F98- 8041 -OS 6P 03659 019253 03 FILLER PIC X1120) VALUE OCRI CR5 CR8 CR13 CR14 EPO ONM-127-04 BL-34 F9E 8047 DS 120C It FP02 EP05 EP06 EP07 EP08 NAOI NAO2 NA03 NAIO NA25 NA26 03660 M92611 i-.-. 03 661 126 0366Z n 1 10 80 03 FILLER PIC X1751 VALUE SPACES. DNM-127-05 BL=35 016 0025 DS 75C 03663 n I r qo 03 FILLER PIC 9(10) COMP-3 VALUE 0209000200. ONM-127-07 BL-35 06t 0050 OS 6P -03 664--Ot 93 fLtER--PI C X (120 )---VALUE OCRIO CRII--NAO5-NAO6--II- ONM-1.27-08---BL-35 067- 0056 ---OS I20C-_ 23 03665 019310- 9 1. n36l%6 Olq370 03 FILLER PIC Xt7S) VALUE SPACES. DNM-127-09 BL-35 ODF 0176 OS 75C 3 03 667- -01 q333---03 F ILLER--- PI C -9 110 1 COMP-3 VALUE-0206000300. DNM-s 127-t I - BL-35 t 2A 0251 Ot 6P 25 03669 Olq340 03 FILLER PIC M201 VALUE 158 9 10 CkI2 CRI.5 070 DNM=127-12 BL=35 130 0257. OS 120C ,i 03669 0103 53- 141NAt3 EP03 EP04 NA07 NA14 NA22 NA23 NA28 CRIT'NA13 35 35 37 ONM-127-14 BL-35 IA8 0377 DS 75C 0367t 019370 03 FILLER PIC X(75) VALUE SPACES. 30; n3672 019180 03 FILLER PIC 9(101 COMP-3 VALUE 0208000400. DNM-127-15 BL-35 IF3 0452 OS 6P, _DS IZOC__.___ 40 i-,f--03 673----Gt 1)3190-03 FILLER -PIC -X 1120)- -----VALUE - 'CR20 NAlt-NA12--NAIS-NAL6 NA3--------DNM-I27-I6 -OL-35 IF9-0456 321 03674 019400- 90 34 42 9. 33; 03675 010413 03 FILLER PIC X(751 VALUF SPACES. DNM-127-18 OL-35 271 0578 OS 75C --t---03676--019420------03--FILLER---PIC--9110)--(:OMP-3-VALUF--0208000500.--- DNM-127-I9----6L-35- 20C 06S3 -OS 6P 03677 OIQ430 03 FILLER PIC X(120) VALUE ICR22 CR23 CR24 NA20 NA21 NA3 ONM=127-21 OL-35 2CZ 0659 DS 120C 361 03678 olq44n- 11 NA32 2q 36 38 9. 47 . I--- ---------- -- - - - - 03679---- 0 1 q4 50 Ol - F I L L FR -- -PIC- X 175 1 - - ------ VALUE SPACES. - OXM=I27-22-8L-35 33A - 0779 OS 75C 39 03690 019463 03 FILLER PIC 9(101 COMP-3 VALUE (1208000600. ONM=127-23 BL=35 385 08554 DS 6P 10 0 3 6 S 1 019470 03 FILLER PIC X(t20l VALUE ICR27 CR28 NAtO NAt9 NA24 14 DKM-127-25 OL-35 388 0860 DS 120C 51 -0368? - -- - -- - -- -. --- - - - - . _. . !@z 03683 019490 03 FILLER PIC X(TSI VALUE SPACES. ONM=L27-26 BL-35 403 ogao OS 75C 03694 019503 03 FILLER PIC 9(t0l COMP-3 VALUE 0208010000. DNM-127-28 8Lm35 44E 1055 DS 6P FILLER- PIC X(1201 VALUE IPI R2 - DKM-127-29- BL-35 4S4 1061 OS t20C 03616 0195?1 03 FILLER PIC W(751 VALUE SPACES. ONM=127-30 BL@35 4CC 118L OS 75C 03687 019930 03 FILLER PIC q110) COMP-3 VALUE 0209040000.4 DNM=127-32 BL=35 St? 1256 OS 6P C_ .6 _03 619-019540---03 -F YLLER - -PIC Xfl2O)'---- - VALUE W2 W3 -- --- ONM-127-33-- OL-35 510 1262 OS 120 .7 01689 019550 03 FILLER PIC X(75) VALUE SPACES ONM=L27-35 BL-35 595 1382 OS 75C 5313 .8 03690 019569 03 FILLER PIC 9(10) COMP-3 VALUE 02080;0000. DNM-127-36 BL-35 SEO 1457 DS 6P -:-03691--019570----03-FILLER----PIC X ( 120) -- -- VALUE '60 @59 --- BZ--- B4 Cll@M=127-37 -BL=35 5E6 --1463.-DS 120C--- 036)2 019590- 06 97 88 Bq OtO NA08 NA09 37 0. 60 0116q3 019590 03 F ILL rR PIC X1751 VALUE SPACES. OKM=127-39 BL=35 6SE 1583 DS 75C 67 03694 FI[LER- PIC 9(10) COMP-3 VALUE 0208060000.----- ONM=127-40 OL-35 6A9 -t6S8 DS 6P 03695 019610 03 FILLER PIC X1120) VALUE @M3 DNM=127-42 BL=35 6AF 1664 DS 120C 036q6 0146?0 O@ FILLER PIC X(?$) VALUE SPACES. ONM-127-43 OL-35 727 1784 DS ?5C, se 76 N4 100 10.43.12 APR 3,1984 INT NAME BASE DISP RLOI DEFINITION 03 691 01-%-30 03 Ffkt-FR P IC-- 9 ( -10 I-CO MP-3-V ALUE ----0 208 1 20000-.r----- I)NM.127-44--ft-35 772--I859--0S-6P---- 03698 tl 19640 03 FILLER PIC X1120) VALUE IN4 31 0. DNM-127-46 OL-35 778 1865 DS 120C 03699 019651 03 FILLER PIC X(751 VALUE SPACES. DNM-127-47 8L-35 7FO 1985 DS ?5C COMP-3- VALUE ------ 02O814OOOO.-------@-- D% M- 127-49 -' BL-35-838---2060 -DS 6P 03701 OIQ071 03 FILLER PIC X(1201 VALUE 963 65 KI K3 K4 L ON14-128-00 OL-35 841 2066 OS 120C 03702 DI q6 80- @1 L2 L3 L4 NA29 NA33 27 28 33 . 03 - I Q6 ILL ER P IC W 17 51 -- ---- -- -- VAL IJF-- SPACE S. DNM-128-01- BL-3S 889---2186 DS 75C 03704 019700 03 FILLER PIC 9(101 COMP-3 VALUE 0208140100. DNM=128-02 BL-35 904 2261 DS 6P it n37(15 019710 03 FILLER PIC X(1201 VALUE 'L6 LS ONM=128-64 SL=35 90A 2267 OS 120C 03-706-Otq72C)--03--FILLER--PIC- X 175) - VALUE--SPACES. ---- ONMi-128-05---BL-35 982 DS 75C 238? 03707 019730 03 FILLER PIC 9(tO) COMP-3 VALUE 0208190000. DNM=128-07 BL-35 9CO 2462 OS 6P 03703 , Olq741 03 FILLER PIC X(1201 VALUE -4 5 67 69 ml ONM-128-08 BL=35 903 2468 DS 120C - 23-- M5----M6----M7----M9----MIG-'-Mll--MI2 M13--Mt4--O7252NAl-----____ 03709--Of q750------ 0 97 NA27 NA34 17 18 19 20 21 037 1 01 q9776C) 1 1 70 03 FILLER PIC X(751 VALUE 122 23 24 25 26 2 DKM-128-09 OL-35 A48 2588 05 75C .03713 019790 03 FILLER PIC 9(101 COMP-3 VALUE 0208190100. OkM-128-11 BL-35 A96 2663 DS 6P 03714 - 019AW) 03 FILLER PIC X(120) VALUE 'PI P2 P3 P4 P5 P DNM=128-12 OL-35 A9C 2669 DS 120C 2111 03716 019820 03 ILLER PIC X(751 VALOE SPACES ONM=128-14 BL-35 B14 2769 DS 7SC 03TI7 0193-40 03 FILLER PIC 9(101 COMP-3 VALUE 02081;020o. DNM=128-L5 BL-35 B5F 2864 @DS 6P 2!@@--03718-019840------03 FILLER- PIC-XI 120) --- ---VALUE -49 ON14-128-16 OL-35 865 --2870- DS 12OC- 231 03TI9 019950 03 FILLER PIC X(751 VALUE SPACES. DNM-128-18 BL-35 BDO 2990 DS 75C 03770 Olq863 03 FILLER PIC 9(10) COMP-3 VALUE 0208200000. ONM-128-t9 _8L- 35 C28 3065 OS 6P 31 72 V --Ol 9870-----4)3- -r- ILL FR -P I C-x I 1201-- V ALUF --I S2 1 ---:-2 3 DNM-128-21-- BL- 35- C 2E 3071-- DS 03722 0 1 C)q Ro 03 FILLER PIC X(751 VALUE SPACES. DNM=128-22 OL-35 CA6 3191 DS 75C 3 03723 019890 03 FILLER PIC 9(10) CCMP-3 VALUE 0208230000. -23 3 DNM=128 BL=35 CFl 3266 DS 6P r--03724--01990'3 ----03-FlLLER-PIC--X( 1201 ---- VALUE '04- 05 --NA35-1@- 2- DNM=128-25 - OL-35 CF? - 3272 DS IZOC--- 03725 Olq910- 4 5 6 7 8 9 10 11 9. 3 3 03T26 01 C39 20 03 FILLER PIC X(751 VALUE SPACES. ONM-128-26 BL-35 06F 3342 DS 15C 03 72 7--- 0I9930---03-FILLER--PIC-9(I0I COMP-3 VALUF .0208 240000.------------------ DNM=128-28- BL-35 OBA--3467 DS 6P 41 03728 019940 03 FILLER PIC X(1201 VALUE IP4 P5 12 13 DNM=128-29 BL-35 DCO 3473 OS 120C I 03729 019950 03 FILLER PIC X( 75) VALUE SPACES. DNM=128-30 BL=35 E38 3593 OS 75C 43 --03730----Ol 9960---03--F ILLER---- PIC 9( 10) - COMP-3--VALUE 0209000000.--- -- DNM-128-32 ----BL-3S@ E83---3668 -OS 6P, - 03731 olqg7o 03 FILLER PIC Xf t201 VALUE 1081 BB2 AS23 EP09 7 ONM-128-33 BL-35 E89 3674 DS IZOC 35 03712 019980 :7i :@ 03 733 -019090 FILLER ---PIC- X 1751- -------VALUE -SPACES. DNM=128-35- OL-35 FOI -3794 DS 75C .1. 03734 020003 03 FILLER PIC 91101 COMP-3 VALUE 0209010000o ONM=128-36 BL-35 F4C 3869 DS 6P 03735 0200tO 03 FILLER PIC X( 1201 VALUE 92 ?IS 75 73 CR2 C DNM-128-37 BL=35 F52 3875 DS 120C 11----03T36---02(,)020---------OR3 - CR4---CR6-- CRT---CR9- CRIO CRII CR12 CR13-CRIS-CRI6 1.11 03737 020030- 11 12 14 Is 16 in ! 3 421 03738 020040 03 FILLER PIC X(751 VALUE SPACES. DNM-128-39 BL-35 FCA 3995 DS 75C 4i:@-----03739-----02005:)-O@-FILCER -PIC*91101 COMP-3 VALUE --02O9OtO2OO. DNM=128-40 ---BL=36 OtS -.4070 DS 6P 03740 0?0063 03 FILLER PIC X(120) VALUE 417 @7 A 4 03741 020070- ONM-128-42 BL-36 018 4076 DS 120C so 03743 0200911 03 FILLER PIC X(751 VALUE SPACES. DNM-128-43 BL-36 093 4196 DS 75c ea 03744 020103 03 FILLER PIC 9(101 COMP-3 VALUE 02100OOtOO. ONM-128-44 OL-36 ODE 4271 OS 6 'V - - 43 ONM-128-46 BL=36 OE4 4277 -DS I t-03745 -020110- -03- rILLER---PIC X11201 -VALUF IAR2 14 P2OC_ 501 03746 020123 03 FILLER PIC XMI VALUE SPACES. ONM=128-47 BL-36 ISC 4397 DS 75C i 03747 020133 03 FILLER PIC 9(10) COMP-3 VALUE 0210000200. DNM-128-49 BL-36 IAT 4472 DS 6P 61 _'6 03 69_:P_ , f193 6 '98 03 74 0 -02nt 41)---03--F I LL EP --P I C-- X 1 1201 - VAL UE .5 RP4 RRe-RR9 -RRIO-3--------- ONM-129-00 aL-36 IAD 4476 DS I OC.- 52 03749 02Ot5O- 7 RRIS RR16 RR 17 4 3 8 UFRR 3 03750 020160 03 FILLER PIC X(751 VAL SPACE;. OKM-129-01 BL-36 22S 4598 OS 75C 77 U4100 10.43.12 APR 30984 INT NAME BASE DISP RL01 DEFINITION 20180 3 FILLE PIC X 120) VALUE ORR2 RR25 RR26 1. ONM=129-04 OL-36 276 46-19 DS t2OC 03752 0 1 03753 020190 03 FILLER PIC X,751 VALUE SPACES. DNM=129-05 8L-36 ZEE 4799 DS 75C 3-7,S4---n20?0f)----03--F I LL[-R--P I IC---91 10)--COMP-3--VALUE- 02 10 0004 00. DNM=129-07----BL-3b-339--4874 DS 6P- "03755 0?0210 C 03 FILLEP PIC X(120) VALUE IRR30 RR31 RR21 24 42 ONM=129-08 OL-36 33F 4880 DS 120 ell 03756 020220- 6 -,t---03757---020?30-- 3-rILLFR PIC- X( 75)-------- VALUE SPACES. - ---- ONM-129-09--BL-36 307 - 5000- - DS 75C, i 03758 02 0? 43 03 FILLER PIC 9(tO) COMP-3 VALUE 0210000500. ONM=129-11 BL=36 402 5075 DS 6P 03 7-,q 0 ? 0? SO 03 FILLER PIC M201 VALUE IRR32 RR33 RR34 20 ONM=129-12 BL-36 408 5081 DS 120C 03761 020270 03 FILLER PIC X(751 VALUE SPACES. ONM=129-14 BL-36 480 5201 DS 75C 1@1 03762 0202,80 03 FILLER PIC 9(tOI COMP-3 VALUE O?tOO1OOOO. DNM=129-15 OL-34 4CO 5276 DS 6P 13 03 763--- 021? 91 -03 F ILL EP-- - PIC X 1 1201 VAL UE 435 - 36 ONM4129-16--BL-36 4DI S282 DS 120C 03764 02030-1 03 FILLER PIC X(751 VALUE SPACES. ONM=129-18 BL-36 549 5402 DS 75C 03765 020310 03 FILLER qTr q(loi caMP-3 VALUE 0210070000. DNM=129-t9 BL=36 594 5477 DS 6P It LER--PIC-X ( 1201-- ---VALUE--* 3 - 4 - ----5- ---- --- DNM=129-21 --13L-36 59A--- 5483 - DS t20C- 03 766 -02 03 20 03767 020330- 03 ;TLLER PIC X(75) VA U; SPACES. ONM-129-22 BL-36 6t2 5603 DS 75C 13 03769 020140 L FILLER-PIC-9(10) COMP-3 VALUE 6SO 56T8 -GS 6P- 03770 020360 03 FILLER PIC X(120) VALUF a 39 ONM=129-25 BL-36 663 5684 DS 120C 20 VALUE SPACES. 03771 020370 03 FILLER PIC X(751 ONM-129-26 BL-36 6DB 5804 DS 75C ---03772 02 -03---F ILL ER PIC- 9 1 10)--f-OmP-3- VALUE 02t2000000.-- ONM-129-28-- OL-36 726---5879 DS 6P n3773 02 0193 03 FILLER PIC W20) VALUE IM5 M? DNM=129-29 13 OL-36 72C 5885 DS 120C 03774 020400 03 FILLER PIC X(751 VALUE SPACES. DKM=129-30 BL-36 ?A4 6005 DS 75C ----()3775--1)2041D----03-r-ILtER --PIC '41101 MMP-3@ VALUE 0213000000*---- - DNM=129-32 BL=36 7EF 6080 DS 6P '03776 n?0420 03 FILLER PIC X(I?0) VALUE 111 6 DNM=129-33 8L-36 7FS 6086 DS 120C 03777 020430 03 FILLER PIC WS) VALUE SPACES. DNN=129-35 BL=36 86D 6206 DS 75C =129-36-- BL-36 OBO 628t - DS 6P - 03 ?-78-02,10440 - 03 F ILL F11--PIC 91 10 1- COMP-3- VALIJE 0213010000.; ONM 0377q 0?0450 03 FILLER PIC X(1201 VALUE 14 9 10 25 35 8 ONM=129-3T OL-36 88E 6287 DS 120C 03791) 02n4fO- le -5 'T J1 J6 USI US2 US3 US4 US5 USb 403 401. --01781-----02047()-------#-- 4D6-----4D9 -84S ---38-----39 32 03TP2 020490 03 FILLER PIC X(75) VALUE SPACES. ONM-129-39 BL-36 936 6407 DS 7SC 037R3 0204q) 03 FILLER PIC 9110) COMP-3 VALUE 0213010400. DNM=129-40 BL-36 981 6482 DS 6P 03784 0205001-03- FILLER---PIC--Xf 1201 ----VAtUE--440 - - - - ONM-129-42---BL-@-36 987 --6488-- OS 12OC--------" 03785 020510- 361 03786 020520 03 FILLER PIC X(751 VALUE SPACES. DNM=129-43 BL-36 9FF 6608 DS 75C 7 j,-j-03787--- 02053')-----03-+ILLER--PIC--94 10) --CO14P-3-VALUE 0213010502o DNM-129-44--BL-36 A4A -6683 -DS 6P 351 01788 070540 03 FILLER PIC X('1201 VALUE 140t 1. DKM=199-46 BL-36 A50 6689 U S 120C A 03789 020550 03 FILLER PIC X(751 VALUE SPACES DNM=129-47 BL-36 ACS 6809 DS TSC 51 01 790-070561-03-F ILL ER---P IC-94 10) COMP-3-VALUE O?t3O;oso4. ONM-1?9-49--BL-36 B13 6884-- DS 6P 03791 020570 03 FILLER PIC X(120) VALUE 47612 76NE'7801 7820 76SO T DNM=130-00 OL-36 B19 6890 DS 120C 54 03792 020580- '802 7803 7804 7805 7806 7807 7808 7809 7810 7811 ?812 781 43@ 03793---020590--------@3-7814-78tS 7816-7817-7818 7819 7602 03794 020600 03 FILLER PIC X1751 VALUE 97603 7604 7605 7606 7607 7 DNM-130-01 BL-36 B91 7010 DS 75C 03 7) 5 0?0610- 0608 1609 7610 7611 _r ---P I C 03796 020620-- _ILLER -9110) COMP-3 VALUE-- 0214000100. --- DNM-130-02---BL-36-80C -7085 -DS 6P 03797 070630 03 FILLER PIC X(1201 VALUE 92019 19 DNM-130-04 OL-36 BEZ 7091 DS 120C 0179 8 020640 03 FILLER PIC X(751 VALUE SPACES. ONM-130-05 BL=36 C5A 7211 DS 75C 13 lo. 03R 0 02 06 6f) 03 FILLER PIC X(I 0) VALUE 12D3 1. ONM=130 08 BL-36 CAB 7Z92 DS 120C 03801 0?0670 03 FILLER PIC X(751 VALUE SP AC E S . 13NM=130-09 BL=36 D23 7412 DS 75C @_ION C_ 03 90 2-- 02 06 AD 13- FILLER--PIC--9(10) COMP-3 VALUE 0214000300. ONM-130-11 BL-36 D6E -7487 DS 6P 5z1 01 0. -12 7493 DS 120C 03803 0206qD 03 FILLER PIC X11201 VALUE ONM=130 BL-36 D74 o-j8n4 020700 03 FILLER PIC X(75) VALUE SPACES. ONM-130-14 BL-36 DEC 76L3 DS 7SC 7R N4100 10.43.12 APR 391984 INT NAME BASE OISP.RLO1 DEFINITION 03805-02471-1---03-FILLER-PIC--9(tOI COMP-3 VALUE -0214000700. ONM-130-15- BL-36-E37--7688--DS 6P 03806 020770 03 FILLER PIC X(120) VALUE 021 0. ONM=130-16 OL-36 E30 7694 US 120C 03807 020730 03 FILLER PIC X(T51 VALUE SPACES. ONM=130-18 OL-36 EBS 7814 US 75C 3 VALUE 0214000800. Ohm-130-19--.-BL-36 FOO -7889- DS 6P ()3809 020751 03 FILLER PIC Xf 1201 VALUE 03E2 13 00 DNM= 130-2 1 BL=36 F06 7895 US 120C 03 A 10 02 n760 03 F.I(LER PIC X(75) VALUE SPACES. DNM=130-22 OL-36 F7E 8015 US 75C --PIC-- 9( 101--COMP-3 -VALUE ONM=130-23 BL=36 FC9 - 8090 US 6P- 03812 020780 03 FILLER PIC X11201 VALUE GLA2 LA3 LA4 LA6 LA7 305 DNM=130-@25 BL-36 FCF 8096 US 120C 03813 0?07qo- 304 17 t9 _---03At4 ---02O80')---.-O3-FILLER --PIC X (75)- VALUE SPACES. -- OKM-130-26- BL-37 047- 0024 US 75C 03815 n20819 03 FILLER PIC 9(10) CnMP-3 VALUE 0214020000. ONM-130-28 OL-37 092 0099 DS 6P 01916 020,320 03 FILLER PIC X1120) VALUE 'AR2 303 DNM=130-29 BL-37 098 OtO5 US 120C 7-020810----03 -FILLER-- -PIC X(75I--------VALUF SPACES.- nNM-130-30 OL-37 I t 0 0225 US 7SC 03819 02OP40 n3 FILLER PIC 9(10) COMP-3 VALUE 0?14030100. DNM=130-32 BL=37 15B 0300 US 6P 1 03819 0?0850 n3 FILLER PIC X(1201 VALUE IH3 H4 H5 301 23 9. DNM=130-33 BL-37 16t 0306 US 120C 03 8 7 0 -02 09 61 ------ 03 + I L L ER-- P I C- X 17 5) -VALUE SPACES. DNM-130-35 OL-37 109 -0426 DS 7SC-- 03871 020870 03 FILLER PIC 9110) COPOP-3 VALUE 0214040000. ONM=130-36 BL-37 224 0501 US 6P 17 0382? 02 09 Al 03 FILLER PIC X(120) VALUE '2r)2 201 AR16 DNM=130-37 BL-37 22A 0507 DS 120C ONM=130-39 BL=37 2A2 0627- DS 75C 1.1---038?3 --- 0209190-03 FILLER--PIC X(75)-- VALUE SPACES.- 03124. 0 7 0,') 01 03 FILIER PIC 9(10) COMP-3 VALUE C214050000. ONM=130-40 BL=3T 2ED 0702 US 6P 03925 020910 03 FILLER PIC X41201 VALUE IE7 207 to ONM=130-42 SL=37 2F3 070S US 120C 2-,--03826---O20Q?O- -03 FILLER---PIC X(?5)- VALUE SPACES. ONM-130-43--BL-37 368 0828 --DS 75C n3827 020930 03 FILLER PIC 9(10) COMP-3 VALUE 02t4O6OOOO. DNM=130-44 BL=37 3B6 0903 US 6P 03828 O?Oq4O 03 FILLER PIC X(120) VALUE 1104 t05 106 G2 G4 G ONM=130-46 BL-37 3BC 0909 US 120C Z, 03 82 9 -02 On 5---- -G6--- G8 -2010 -2D8 01830 020960 03 FILLER. PIC X(75) VALUE SPACES. [)NM-130-47 BL=37 434 1029 DS 75C 27: 03AII 020971 03 FILLER PIC 9110) COMP-3 VALUE 0214070000. DNM=130-49 BL-37 47F tt04 DS 6P 1-03 8 32--- 02 09 80 ------()3 F I I I ER P TC -x 1 120) - --- -VALUE '2E2 DNM-131-00-- BL-3? 485 1110 - DS IzoC___ J 7 03833 020990 03 FILLER PIC X1751 VALUE SPACES@000(). ONM-131-01 BL-37 4F6,. 1230 US ?5C I ICOMP_3 01834 2 10 00 03 FILLER PIC 910 VALUE 0214t ONM-131-02 SL*37 548 1305 DS 6P 03835, -021010-03--FILI ER--PIC Xf 1201 - VAL1JF- INA5 DNM-131-04 -- OL-37 54E- 1311 US t20C--- 03836 02t,120 03 FILLER PIC X( 751 VALIJE SPACES. ONM=t3l -05 BL=37 5C6 143t US 75C 03837 021030 03 FILLER PIC 9( 10) COMP-3 VALUE 0214140200. DNM=131-07 BL=37 611 ,506 US 6P 33 03838-021040-03-FILLER- PIC -Y 11201 VALUE '12 ONM=131-08 - OL-37 617 1512 US 120C 45 03939 021053 03 FILLER PIC X(75) VALUE SPACES. ONM-131-09 81@37 68F 1632 DS 75C 3,1 03840 021060 03 F I Lt. ER PIC 9(101 COMP-3 VALUE 02t6OOOOOO. ONM=t3t-11 BL-37 60A 1.707 US 6P i@-03 84 1-02 10 7-3----03 -F ILL ER -- P I C-- X 1 1201- VALUE '883 ONM-13t-12-- BL-37 6EO 1713 DS 1. 2 oc 311 03842 0?1080 03 FILLER PIC X(75) VALUE SPACES. DNM=131-14 BL=37 7S8 1833 DS 75C 21090 03 FILLER PIC 9(10) COMP-3 VALUE 0300000000. ONM=131-15 BL-37 7A3 tq08 US 6P 01843 0 -03 844---- f%2 It O'J------O3--F ILL ER----P I C- X I t 20) VALUE- 1113 )c 148 --27--CRI---CR3 ONPI-131-16 OL-37 IA9 1914 US 12C 03845 021110- IP4 CR6 CR7 CR9 CR20 CR21 .21 03846 021120 03 FILLER PIC Xf(75) VALUE SPACES ONM=131-18 BL:37 821. 2034 DS 75C 51 - - 03947 0?1130 03 FILLER __ PIC q tO I VALUE -04000 ONM=131-19 St. 37 86C 2109 US 6P COMP-3 ;0000. -21 -37 872 2115 DS 120C 4 03848 021140 03 FILLER PIC XI t20) VALUE 'E3 115 118 119 28 R9 ONM=131 SL 03H49 0?1150- PIO R12 R13 P14 R16 R17 P18 R19 R20 R21 R13 RS 53ASO-O?I16O-------'I -RS2 ---- -- 03 R-) 1 02 11 70 03 FILLER PIC X(751 VALUE SPACES. ONM-131-22 BL-37 SEA 2235 DS 75C 03852 021180 03 FILLER PIC 9(101 COMP-3 VALUE 0401000000. ONM-131-23 OL-37 935 2310 US 6P 631 j X I t20) VALUE IA2 R3 -RIZ- I- ONM=131-25 - BL-37 93B- 231.6 DS t2oC__ 90 -03 FILLER- PIC 021200 PIC X(75) VALUE SPACES. ONM=131-26 OL-37 9B3 2436 DS 75C 03854' 03 FILLFR 03 8", 0217ti 01 FILLER PIC 9110) COMP-3 VALIJE 0404000000. DNM-131-28 BL=37 9FE 2511 US 6P 12 20 ----Ol FILLER --- PIC- X(120) VALUE 2117 - ---- -- -131-29 BL-37 A04 2517 DS 120C ION .1 ti, 03856 116 Rill DNM 03857 0?1230 03 F I L L ER PIC X(751 VALUE SPACES. DNM=131-30 81=37 A7C 2637 US 75C 03858 021240 03 FILLER PIC 9(101 COMP-3 VALUE 0500300tOO. DNM=131-32 BL=37 AC7 2712 DS &P 34! 19 N4100 10.43.12 APA 3,1994 INT NAME BASE DISP RL01 DEFINITION 03--F4L-L-fR-- PfC-X-(L2O)---VALUF--NH19S-NI12SHit4 27I0--OS-I2OC-----, 03861) 0212613- 417 HIIFA "119 "121 14122 H123 Ht214 "125 %126 "127 M120 14129 a 03861 021270- H130 H131 M132 M130SHATI HAT2 HAT! 0. 3 -HATS HAT6 H14-4. 03863 021293 03 FILLER PIC 9(101 COMP-3 VALUE 0500300200. ONM-131-36 BL-37 890 2913 US 6P 03864 0213nO 03 FILLER P IC X (t20) VALUE 0017 018 019 ONM=131-37 BL-31 896 2919 US 120C G3R65---021311) -- ----- 03-FILLER--PIC-X(75) VALUE, SPACES. ONM-131-39-- BL-37 COE 3039--- US 75C-- 7 03P66 021320 03 FILLER PIC 9(101 COMP-3 VALUE 0500300300. ONM-131-40 BL-37 C59 3114 US 6P 10 03867 02 1131 03 FILLER PIC X(1201 VALUE IP14 PIS P16 ONM=131-42 OL-37 C5F 3120 DS t20C :11 2 @03 86R--02 1341----03 rILLER-- PIC-X(751 VALUE SPACES. OL-37 C07 --3240- US '5C-- 03969 021350 03 F TLLER PIC 9(101 COMP-3 VALUE 0501000000. ONkzt3t-44 BL=37 022 3315 US 16P 03970 071360 03 FILLER PIC X(120) VALUE ISPB4 SPB5 SP06 P12 SPST SP DNM=t3l-46 BL=37 028 3321 DS 120C 03 171---0213 70---- - '98 03872 021380 03 FILIER PIC X(75) VAL UF SPACES. DNM-131-47 BL=37 DAO 3441 CS 7SC I 01973 n? 3 go 03 FILLER PIC 9(101 COMP-3 VALUE 0503000000. ONM=131-49 BL-37 DEB 3516 US 6P -03 8 74-- 02 14 00 -03--F I L L ER---PI C- X1120) ------- VALUE ILSR13PIO- tSR14----*.----- ONM=132-00 BL-37 DFI--3522 DS 7 03875 021410 -03 FILIER PIC X(751 VALUE SPACES ONM=132-01. BL-37 E69 3642 CIS 75C 22 03976 1)? 14211 Ol FILLER PIC q (0 ) C0*MP-3 VALUE 115060;0000. DNM=132-62 BL=37 E84 3717 US 6P t23 24 FILtER---PIC X4120) ------ --- VALUE IFC9 P9---- F)NM-132-04 OL-37 EBA 3723 DS 120C--.- 2t 20 n3878 n?1441 03 FILLER PIC x(T5) VALUE SPACES. ONM-132-05 OL-37 F32 3843 US 75C 26 ZJ 0179 02145) n3 FILLER PIC 9(101 COMP-3 VALUE 0514000000. ONM=132-07 BL-37 FID 3918 DS 6P 27 i@___03 880- 0? t46()--03 FILLER PIC --X 1 120Y VALUE--$ 107 W012 3F3- ONM=132-08 -BL-37 F83 3924 -OS 12OC------- @25 .1 03881 021470 03 FILLER PIC X(751 VALUE SPACES. ONM-132-09 BL-37 FFB 4044 US 75C I 241 03SP2 071483 01 FILLER PIC 9(10) COMP-3 VALUE 0521000000. D@M=13Z-ll BL-38 046 4119 US 6P 3 VILLFR- PIC W, 1 120) ALUE IJBq ------ DNM-132-12' BL-38 04C 4125 US 120C- 03884 021500 03 FILLER PIC X(75) VALUE SPACES. DNM-132-14 OL-38 OC4 4245 US 75C. 3 17: 03895 071511 03 FILLER PIC 9(10) COMP-3 VALUE 0522000000. ONMzI32-15 OL-38 LOF 4320. US 6P 3896 02 15 20- 03- F ILLER---PIC- -X 1 1201 VALUE *SOB9 SOBIOP3- 4F9- DNM=132-16-- BL=38 tIS 4326 DS 12OC-- 8! 011887 021533 03 FILLER PIC Xf 75) VALUE SPACES. DNIM=t32-18 BL-38 180 4446 DS 75C 03,888 0?1540 Ol F I L L ER PIC 9(10) COMP-3 VALUE 0522010000. DNM=132-19 BL=38 108 4521 DS 6P @-@t---03 889 0? 11; 511 -----03 F ILL ER -- PIC--X I 1201 -- ------VALUE , SOB I L SOB IM DNM-132-21 -BL-38 IOE 4521 DS 12 OC--- 32@ 03 8c) 021560 03 FILLER PIC X(75) VALUE SPACES. DNM=132-22 BL=38 256 46.47 CS 75C 331 03SPI r)2 t5 70 03 FILLER PIC 9(tO) COMP-3 VALUE 0526000000. ONM=t32-23 BL=38 2AI 4722 US 6P 3. 03 897-07 15 Rfl-03 F ILLER---PIC- -X( 1201 -------VALUE - 4RBIO R813 R6t4 RBtS-RB23 R ON,4-132-25- BL-38 2A7 --4726- US t2GC-- 4t 31 03893 #32 15 90- 'B?4 R825 RB26 RB27 RB28 RB29 P2 36i Ol 8q4 0? 16 Ol 03 FILLER PIC X175) VALUE SPACES. DNM=132-26 BL-38 31F 4848 CIS 75C .47 03 80S -02 16 3 F I L L FR - PIC-4(10) -COMP-3- VALUE-- -BL-38 36A 4923 - US 6P 38 03896 021620 03 FILLER PIC X(120) VALUE 'PRIM RBIL 4FT ONM=132-29 OL-38 370 4929 CS 120C 3 03897 02 1 h3l) 03 FILLER PIC )(175) VALUE SPACES. DNM=132-30 BL-38 3E8 5049 US 75C. -03898--021640-----03 FILLER-- -PIC-- 9f 10) -COMP-3 VALUE ONM-t32-32 - BL-38 433 --5124- US 6P 03899 071650 03 FILLER PIC X(1201 VALUE *RB2U DNM-132-33 BL-38 439 5130 DS 120C .4 03900 071660 03 FILLER PIC X175) VALUE SPACES. ONM=132-35 RL-38 481 5250 US 75C .05 03901 02 16 70------ -03 F I LLER -- P C Q 10) COMP-3 VALUE 0527OOOOOO.-------______ ONM-132-36- BL-38 4FC S325 US 6P FILLER It I ISR13 9. 03902 02 16 SO 03 P C X 120 VALUE ONM=132-37 BL=38 502 533t US 120C 03903 0216qO 03 FILLER PIC X(751 VALUE SPACES. DNM=132-39 BL=38 57A 5451 DS 75C .EO3904 02 17 00---- 13 F ILLER----PIIC-9f IOOIJCOMP-3 VALUE ICS27020000.-- ONM-132-40 BL-38 5CS SS26 DS 6P 03905 021710 03 FILtER P C X 112 VAL jESBT ONM-132-42 BL=38 5CB 5532 DS 120C 62 03906 0?1720 03 FILLER, PIC X(751 VALUE SPACES., ONM=132-43 BL-38 643 5652 US 75C 43 .9 03 90 7 --- 02 17 10 -03 -FILLER- - PIC - 9( 10)- COMP-3 VALUE -- 0529000100.---- DNM=132-44 -OL-38 68F - 5727 DS 6P 039r)8 02 174.') 03 FILLER PIC X( 1201 VALUE 1138 143 144 145 153S I ONM-132-46 BL=38 694 5733 DS IZOC V@ 03909 f)2 I I SO- 155 159 160 161 162S 4F4 PAR33 9. 03 910-011760 ILL@R-P [C --X (7S VALUF SPACES. DNM=t32-47. BL-38 TOC 5853 US 75C 531 03911 021771 0-4 FILLER PIC 9(10) COMP-3 VALUE 0528000200. ONM=132-49 BL-38 757 S928 US 6P 03912 021780 03 F ILLER PIC X(1101 VALUE 1130 131S 132 136 141 P ONM-133-00 BLi-38 75D 5934 US 120C 7A J, so NMIOO 10.43.12 APR 3,1984 INT NAME BASE DISP RLOt DEFINITION 61014 G?IAOO 071 FILLER PIC X(75) VALUE SPACES. ONM-133-01 BLm38 705 6054 DS 75C 3 03qI5 021810 03 FILLER Pic g116) COMP-3 VALUE 05211000300. ONM-133-02 BL-38 820 6129 DS 6P !OC A _03916 n2I82O---03--FILL+R-- PIC xf -VALUE 41.15 116 ONN-133-04--BL-38 826-- 6135--OS Ii 03917 07lq3l 03 FILLER PIC WO VALUE SPACES.. DNM=133-OS BL-38 89E 6255 OS 75C 03ql8 021.140 03 FILLER PIC 9(Inl COMP-3 VALUE 0528060001. OfM-133-07 BL-38 SE9 6330 DS 6P -----03--FILLER-PIC X11201- VALUE IPUR25PUR26PURISPUR2?PUR28-- ONM=133-08 OL-38 SEF 6336 DS 120C 03q')0 0?1860- 'PUR296. 03q@j n2.18 70 03 FILLER PIC X(75) VALIIE SPACES. ONM=133-09 BL=38 967 6456 DS 75C tl@-0392 2 02 1 A 81 03 -FILL EQ- -P IC--91 lOY-COMP-3-VALUE - 052R(360003. -- ONM-133-11 BL-38 9112 6531 DS 6P --- ---- O-iq-3 n2l8qO 03 FILLER PIC X(120) VALUE 4?03S 204 208 4EL 4E2 ONM=133-12 OL-38 9B8 6537 DS 120C 03924 n219"_ 15F9 PUR IOBP I BP2 BP3 BP7 P3 P4 P7 PPRI '2L I ()3Q25----02 IqIO ------- 03- F I Ll ER -- P IC X (75) SPACES.- DNM-133-14 BL-38 A30@-6657 DS 75C 03926 07 lq2.l 03 rILLER PIC 9( tOl COMP-3 VALUE 0528060004. ONM=133-tS OL-38 A78 6732 DS 6P 03q)7 0211)30 03 FILLER PIC. X(1201 VALUE IPPRZ a. ONK=t33-16 BL-38 A81 6738 OS 120C 03999 ---0? 1940-03 FILLER - PIC wl 75) VALUE SPACES. ONM-133-18 BL-38 AF9 6858 DS 75C 03929 02lc353 03 FILLER PIC 9( 10) COMP-3 VALUE 0529060100. DNM=133-19 BL=38 844 6933 DS 6P 22 03910 02060 03 FILLER PIC X(1201 VALUE 1,PUR24228 230 5F22 6. DNM-133-21 BL-38 B4A 6939 DS 120C 23 -4n2l970-----O3--FILLER -PIC X1 75)-- VALUE SPACES ---- --- DN14-133-22 BL-38 BC2 7059 OS 75C 03 91 ?- 0219Sl Ohm-1:33-23 BL=313 COD 7134 GS 6P 03 FILLER PIC 9(101 COMP-3 VALUE 05H060200. 0393-3 021090 03 FILLER PIC Xf 1.201 VAL UE t 5F-23 ONM-133-25 BL=38 C13 7140 DS 120C 27 _____03934--- 02200()----- 03 --F ILLER PIC ---V/'LUE -SPACES. -- -- DNM-133-26-- BL-3d C8B -7260 DS 7 ! ic 231 03q35 0220tO 0"I FILLER PIC 91 10) COMP-3 VALUE 0528060600. ONM=133-28 BL-38 C06 7335 DS 6P 03936 02 ?-1 ?l 03 FILLEP PIC W( 120) VALUE IPPR4 [)NM-133-29 f3L-38 CDC 7341 OS 120C 039@7-----022')3,)---03-rlt.LE.R PIr X1751- VALUE- SPACES., DKM-t33-30 BL-38 D54 7461 DS 75C 2t o'"In 022040 (13 FILLER PIC 9( 101 COMP-3 VALUE 0528063200. ONM=133-32 BL-38 Off 7536 DS 6P 03939 0??050 03 FILI.ER PIC X(120) VALUE @5EIO ONM=133-33 BL-38 DA5 7542 DS 120C 03 9 4 0---- 072060--03-FILLER -PIC--Xf?5)-------- -VALUE SPACES.- - -- DNM=133-35, OL-38 FtD 7662 DS 75C 03q4l 02?07() 03 FILLER PIC 9( 101 COMP-3 VALUE 05280632016. ONM=133-36 BL=38 E68 7737 DS 6P 03q42 02 20 80 03 FILLER PIC X( 1201 VALUE I PP R 3 DNM=133-37 BL-38 E6E ?743 DS 120C FltLER PIC X(75) VALUE SPACES 0?%M-133-39-- BL=38 EE6 -7863 DS 75C 03944 0? 21 Of.) 03 PIC 9410) COMP-3 VALUE 05280;3300' ONM=133-40 BL=38 F31. 7938 DS 6P 03949 02?110 03 FILLER PIC X( 1.201 VALUE '214 213 ;UR8S6E3 SEI 5 ONM-133-42 OL-38 F37 7944 DS 120C 021946-02?120---- r I I 03()47 022130 03 FILLER PIC X1751 VALUE SPACES. DNM-133-43 BL=38 FAF 8064 DS 75C 03948 022140 03 FILLER PIC 9( 101 COMP-3 VALUE 0528064100. DNM=133-44 BL-38 FFA 8139 CS 6P 03q49----()221 5,7) -----03 FILLER--- PIC- -X ( 1.201 - ---------VALUE- t6' 7 __._ I DhM-133-46 OL-39 000--0047 DS 1@ 03990 022160 03 FILLER PIC X(75) VALUE SPACES. DNM-133-47 OL-39 078 0073 CS 75C o1951 022170 03 FILLER PIC 9tln) COMP-3 VALUE 0528064101. DNM=133-49 BL-39 OC3 0148 DS 6P xoC -FILLER - -PIC--Xf 1201 V AL LIE 113 DNM-134-00--BL-39 OC9 C1.54 DS 12 022190 Dhll=134@01 BL=39 141 0274' DS 75C O3q53 01 FILLER PIC X(75) VALUE SPACES. 03954 FILLER PIC 9(101 COMP-3 VALUE 0528070000. OS 02?2t)O 03 DNM-134-02 OL-39 18C 0349 6P ONM=134 8 L = 39 0395S---022210 03 F I L L E R - PIC X1120) VALUE IIS6 -04 192 0355 DS t2OC--- 4@ 03956 022?2f) 03 FILLER PIC X175) VALUE SPACES. DNP@=134-05 BL-39 20A 0475 DS 75C 01957 072730 03 FILLER PIC 9(101 COMP-3 VALUE 0528070200. DNM=134-07 3L=39 255 0550 E)S 6P 03959--02??49 03- FILLER-PIC--XI12O)------- --VALUE &156 ONM-t34-08 OL-39 258 0556 DS 1; 0 C j 03959 022250 03 FILLER PIC X1751 VALUE SPACES. DKM-134-09 BL=39 2D3 0676 DS 1]:'_03960 02?260 03 FILLER PIC 9(10) COMP-3 VALUE 0528120000. DNM-134-11 BL-39 3tE 0751 DS 6P &3 ----03, FILLER -PIC 0 C X(1201 VALUE 1135 163 DNM=134-12 BL=34 324 0757 - DS 12 03962 ' 02?:180 03 Pit LER PIC Yf 75) VALUE SPACES. ONM-134-14 BL-39 39C 0877 DS 75C 03963 022790 03 r-11 LER PIC 9( 101 CCMP-3 VAL UE 0528160000. ONM=134-15 BL=39 3ET Oq52 DS 6P 7ON J@-i@---03q04-07?303 -03 fILLEP--PIC '%1 1.201 VALUE fIZS PGCt- DNM=134-16 BL=39 3 E D C958 DS 120C 03965 022310 03 FILLER PIC X(751 VALUE SPACES. ONM=134-18 BL=39 46S 1078 DS 75C 03966 027123 03 FILL ER PIC 9( 10) COMP-3 VALUE 05281?0000. DNM-134-19 BL-39 4110 IIS3 DS 6P 41 al NMIOO 10.43.12 APR 3*1994 INT NAME BASE DISP RLOI DEFINITION I C-it-1201 j-,___.__..0NM-134-2I--sL*39 -486 -It S9-DS 12oc---- 03968 022340 03 FILLER PIC X(75) VALUE SPACES. DKM-134-22 BL-39 52E 1279 US 75 C 21 03969 027350 03 FILLER PIC 9( tO I COMP-3 VALUE 0528200000. ONM-t34-23 OL-39 579 1354 US 6P 0397n-022360-03- FILtER-PIC--Wl 1201 ---VALUE 0105: DNM-134-25---BL@39 5?F-1360--- US 120C----* 03971 022370- IR2 TR3 TR4 TR5 TR6 TRT TR8 TR9 03C)72 022380 03 FILLER PIC X(75) VALUE SPACES. DNM-134@26 BL-39 SFI 1480 US 75C 7 --02239D--03 FILLER--PIC 9( 101- COMP-3 VALUE 0524200ZOOv DNM-134-28 - BL-39 642 1555 US 6P 01974 027400 03 FILLER PIC X41201 VALUE GTTC2 TTC3 TTC4 TTCS ONM-134-29 BL-39 648 156t US 120C @03975 022410 03 FItLFR PIC X(751 VALUE SPACES. DNM-134-30 BL-39 6CO 1681 US 75C T@-03976- 022470---03-FILLER--PIC-9(10?-COMP-3 VALUE DhM=134-32- BL-39 ?08 -1756- US 6P 03q77 072430 D 3 FILLER PIC Xft?0) VALUE ITGC4 ONM-134-33 BL=39 711 1762 US 120C 12 03978 022440 03 FILLER PIC X175) VALUE SPACES. DNM-134-35 OL-39 789 1882 US 75C 031) 7 9 --- 02 ?4 50 -03 FILLER PIC -9( If)) -COMP-3 VALUE - 0528200800.- ONM-134-36 OL-39 704 - 1957 US 6P 03990 02@460 03 FILLER PIC X(1201 VALUE -TFC4 TFC5 ONM=134-37 BL-39 70A 1963 US t2OC 039RI 027470 03 FILLER PIC X(75) VALUE SPACES. ONM=134-39 BL-39 852 2083 US 75C 03 -FILLER-- PIC 91t0l COMP-3 VALUE 0528201000.i DhM-134-40 BL-39 890 2158 US 6P 71 039A3 022490 03 FILLER PIC X(1201 VALUE ITTN4 TTN5 DNM-134-42 BL-39 BA3 2164 US 120C 03994 0?75,00 01 FILLER P C X175) VALUE SPACES. DNM=134-43 BL-39 918 2284 US 75C ------- 03-FILtFR--PIC-q(10) COMP-3 VALUE - 0528201700.--------- ONM=134-44 BL-39 966 2359 US 6P -46 -39 96C 2365 US 120C 03') 9 6 02 75 2D 03 FILLER PIC X(120) VALUE ITCC3 DKM=134 8L 03947 022530 03 FILLER PIC X(751 VALUE SPACES. ONM=134-47 BL-39 9E4 2485 US 75C --0??540-----03 fILLER---PIC--91 10)-COMP-3 VALUE 05282020001 -- - ----- DNM=134-49 BL=319 A2F 2560 US 6P- 2 3F 039q9 022550 03 FILLER PIC X(1201 VALUE #TSC4 ONM=135-00 BL-39 A35 2566 US 120C 2'1 03990 0??560 03 F I LL ER PIC X175) VALUE SPACES. 0NM-t35-0t OL-39 AAD 2686 US 75C 17 03 q9I - - n2 ?5 70 ---- 03 FILL EP ---PIC 9( 101 COMP-3 VALUE -0528290100. 3 ONM-135-02.- 8L-39 AFS 2761 US 6P 0 039q2 022580 03 FILLER PIC X(120) VALUF 1PB81 ONM-135-04 BL-39 AFE 2767 05 12 C 03993 0?2590 03 FILLER PIC X( 751 VALOE SPACES. DNM=135-05 BL=39 876 2807 US 75C 2-----03qq4--f)?260D -03 FILLER-- PIC--9( 10Y COMP-3 VALUF 0528350060.i----------_'- OhM=135-07 OL-39 OCi 2962 US 6P- 03995 ,022610 03 F ILLER PIC X( t20) VALUE IPDMI PAR34 DKM=135-08 OL-39 BCI 2968 US 120C 03q96 022620 03 FILLER PIC X(751 . VALUE SPACES. ONM=L35-09 BL-39 C3F 3088 US ?SC -,-j,--0399?---022630----- 03-FILLER---PIC 94101 COMP-3 VALUE 0528370000.-------------:----- OKM-135-11 BL-39 C8A 3163 J)S 6P 321 03918 022640 03 FILLER PIC )(11201 VALUE "14C)S 146 150 151 PSCI DNM=135-12 BL-39 C90 3169 US 120C 03999 022650 03 FILLER PIC X(75) VALUE SPACES. ONM=t35-14 BL-39 008 3289 US 75C -3,@'-04000-022660 -03 -FILLER --PIC--9( 10) -COPP-3- VALUE-- 0528400000.i----------------I)NM-i35-l5--BL-39 053 33 64 -US 6P- 45 S88 S89 DNM-135-16 BL=39 D59 3370 US 120C .6 04001 022670 03 FILLER PIC X(120) VALUE 04002 02 26 80 n3 FILLER PIC X175) VALUE SPACES DNM=135-18 BL-19 DDI 3490 US 75C 36 T,--04003--02269) -----03--FILLER-----PIC 9(tO) -COMP-3 VALUE - 05330;oooo.--- DNM=135-19 BL=39 EtC-- 3565 US 6P 3. 04004 022700 03 FILLER PIC X(120) VALUE 'S83 JBII JOL2 J813 JB14 J DKM=135-21 BL=39 E22 3571 US 120C 04005 022710 SPACES. - - OhM=135-22- St-39 E9A --3691- US 75C 40 :21, 04007 022730 03 FILLER PIC 9(101 COMP-3 VALUE 0533040000. DNM-135-23 8L-39 EES 3766 US 6P 04008 072740 03 FILLER PIC X(120) VALUE 'JO13 DNM-135-25 BL-39 EEO 3772 US L20C @--040()9 ------ 02 2 750----- 03 FILLER--PIC X475) VALUE, SPACES. DNM-135-26 - OL-39 F63 3892 US 75C fJ40t() OZZ760 03 F I LLFR PIC 9(101 C-C"P-3 Y At % W 05@40000010. DI@M=135-28 BL=39 FAE 3q67 US 6P 4 5 040ti 022170 03 FILLFR PIC XI 1201 VALUE 'CN13 S70 S78 DNM=135-29 BL-39 F84 3973 US 120C ---040U2---022780--03 -FILLER----PIC--Xf 75)-- -------VALUE SPACES. ---- ONM-135-30-- BL-40 02C 4093 -US I -r 4168 US 6 47 04013 022790 03 FILLER PIC 9(t0l COMP-3 VALUE 0534040000. DNM-135-32 BL-40 or 04014 027800 03 FILLER PIC X(1201 VALUE 'JOL3 ONM=135-33 BL-40 07D 4174 DS L20C 4a -T.1-040 15 -0? 2A 10 -03 FILLER -PIC X(751- VALUF SPACES. - -- -- ONM-135-35 -BL-40 OF5 4294 US 75C 04016 02 2,120 03 FILLER PIC 9110) COMP-3 VALUE 0534100000. DhM=05-36 OL=40 t40 4369 US 6P 04017 02?833 03 FTLLFR PIC X(1201 VALUE IA02 A03 A04 A05 A06 A ONM=135-37 BL=40 146 4375 US 120C 51 -04 0 18 -0 2 ? 13 40 -- 107 - A08- A09- BOI -802 803- 804 805 806 -1107 -BOB-- B09---------- eg 04019 022850- 1 AOIC A02C A03C A04C BOIC B02C 803C 1. 04020 022860 03 FILLER PIC X(75) VALUE WA06S COIC C02C C03C C04C C DKM=135-39 BL-40 IBE 4495 US 75C N4 t3o 10.43.12 APR 3#1984 TNT NANE BASE DISP RLOI DEFINITION t)2.1----On8-70---6-05C--C--06C--C-O?C-COBC-- D09C--AOI 5--AG2S--A03S-- A04S--A4SS--&,i-------- 040?2 022q83 03 FILLER PIC 9(101 COMP-3 VALUE 0534100100 ONN-135-40 BLw40 209, 4570 DS 6P 04023 022890 03 FILLER PIC X(1201 VALUE 'n04C 005C D;6C 007C DOBC ONM*135-42 OL-40 2OF 4576 CS 120C SC 0401?4 2-2QOO---03 TILLER --P IC-X 115 )---------VALLlE SPACES. DNM-t35-43--8L-40 287---4696 --DS 7 04025 022911 03 FILLER PIC 9(10) COMP-3 VALUE 0534tOO2OO. ONM-135-44 'BL-40 2D2 4771 DS 6P 0402@ 022920 03 FILLER PIC X(1201 VALUE 0013C 1. O@M=135-46 BL-40 2D8 4777 DS 120C 04r);@ 7 -02 2qlO----03-F I LL ER--P I C X ( ?5) --- ---- - -VALUE SPACE S.--- DNM- 135-47 OL-40 350--4897 DS 75C 7- i 040?8 022940 03 F;LLER PIC 9:10,),)COMP-3 VALUE 0535000100 ONM=135-49 BL=40 398 4972 DS 6P 0402Q 022q50 03 F LLER PIC X 12 VALUE 0M8 M9 ;10 mit DNM=136-00 BL-40 3AI 4978 DS 120C .@_-04030-022960-03- FILLER - PIC- X 1 75V VALUE -SPACES. - -- ONM-[36-01 - BL-40 419 5098 OS 15C ''1 04031 02?q7O 03 FILLER PIC 9410) COMP-3 VALUE 0535000200. ONM=136-02 BL-40 464 5173 DS 6P 04032 022q80 03 FILLER PIC X11201 VALUE 1421 422S 434 437S NRIS N DNM-136-04 BL-40 46A 5t79 DS 120C @IR3S NR4- NRl2SNR13SM12 -Ml3--M14 MIS M16 3 04034 nl'3000 03 FILLER PIC x175) VALUt SPACES. DNM@136-05 BL-40 4E2 5299 DS 75C 04n15 023nI0 03 FILLFR PIC 9(10) COMP-3 VALUE 0535000300. DNM-136@--07 BL-40 520 S374 DS 6P 04016-02 3t)2()-----03-- FILL ER-- P IC- X ( i20)------- VALUE 6403 404 406--40?-- -408 -4-- DNM-136-08 -6L-40 533 --S380 DS L20c 04037 023030- 109 410S 411 413 4t4 415 416 NI N2 NNROtNNR02NNR 1 -04038 023040- 903@1'4RO4N@IR05NNR06NNR07NNR081'INRO9@INRlOt. 04 0 -4 9 FILLER -PIC X(75)- VAL(lF INNRILNNRt2NNR13NN$tt4NNRISN---------- DNM-06-09-- BL-40 5AS--.5500 DS 75C 04040 023060- INR16NNR17NNPt8NNR19NNR20NNR21NNR72NNR23NNR24.4NR250. 04041 023070 03 FILLER PIC 9(10) COMP-3 VALUE 0535020000. ONM=136-11 BL=40 5F6 5575 OS 6P 211 04042-023080---13 FILLER ---PIC- XI 1201 -VALUE IS68 S69 - ONM-136-t2 BL-40 SEC 5S81 DS 120C -14 BL-40 674 5701 DS 75 04043 0230qO 03 FILLER PIC X(75) VALUE SPACES. ONM=136 C 3C 04044 023103 03 FILLER PIC 9(101 COMP-3 VALUE 0535030000. DNM-136-15 BLm40 68F 5TT6 DS 6P 24 --04045 ---0231IG----03-FILLFR----PIC X(120)- -------VALUE- IBC5- DNM=136-16-8L=40 6CS -- 5782- DS t20C r)4n46 023t20- 161 S62 S63 S66 -18 27@ 04047 02113, 03 FILLER PIC X(75) VALUE SPACES. DKM-136 BL=40 73D 5902 OS ?SC - 04048 02314)-----03-- FILLER ---PIC -91101-COMP-3 VALUE-- DNM-136-19--BL-40 788 -597? DS 6P 04049 023150 03 FILLER PIC X(120) VALUE IS67 DNM-136-21 OL-40 78E 5963 DS 12bc '396, 04090 023160 03 FILLER PIC X(751 VALUE SPACES. ONM=136-22 OL-40 806 6103 DS 75C COMP-3 -VALUE 0535 050000. - ONM=136-23 - OL-40 851 6178 DS 6P 22.1 04052 023180 03 FILLER PIC X( 120) VALUE IA2 A3 A4 AS A6 A ONM=136-25 BL-40 857 6164 OS L20C 1 04053 023190- 7 AB B1 B2 B3 B4 B5 B6 37 Bo Cl C2 _3 04 0 5 4-02 3 2 nO - --C 3 - -C 4--- C 5 --- C 6--- C7--- CR 4 35 04n55 0232tD 03 FILLER PIC X(751 VALUE SPACES. ONM-136-26 OL-40 8CF 6304 DS 75C 04056 023220 03 FILLER PIC 9(10) COMP-3 VALUE 0535050200. DNM-136-28 BL040 91A 6379 DS 6P C 040 57---02 32 30--- 03--r- ILL FR. PIC- Xj -VALUE- -D3 - D4 , --0S 06--- 07 -.0-- - ONM=136-29 BL-40 920-.6385 OS 120 04058 023740- $ 9 1. 04059 023250 03 FILLER PIC X(75) VALUE SPACES. ONM=136-30 BL-40 998 6505 DS 75C 19i j 0 6 0 2 3 2 6q -- 0 3 - F I L L E R P I C -- 9 ( 10 1 -COMP-3 VALUE 053SO6 ONM-136-32-- 80-40 9E3 -6580 OS 6 P 0000. 04061 023270 03 FILLER PIC X(1201 VALUE @S5q ONM-136-33 OL-40 9E9 6586 DS 12 loc -t36-35 BL-40 A61 6706 DS 75C 04062 021290 03 FILLER PIC X(751 VALUF SPACES. ONM ;-,1-04063 -- 023290---03- FILLER --PIC 9( tOl -COMP-3 VALUE 0535090000. DNM=136-36 - W-40 AAC 6781 DS 6P -4 04064 02,4103 03 FILLER PIC X(120) VALUE ISS3 S54 S56 S57 S55 DNM=136-37 BL-40 A82 6787 DS 120C 04065 023310 03 FILLER PIC X175) VALUE SPACES. ONM=136-39 6 L -1@0 62A 6907 DS TSC 04 066--02 33 20 ---03---FILLER----PIC-9( 10)-COMP-3 VALUE 0535100000. ONM-136-40 OL-44D 87S 6982 DS 6P 04067 023330 03 F ILL ER PIC X(1201 VALUE INR7 Lt L2 NBOI 430. DNMz-136-42 BL-40 870 6988 DS 120 C 04068 023340- 04069--023350 -03 FILLER--PIC X(751- -VALUE SPACES. DNM-136-43 BLa40 BF3 7108 DS ?5C 04070 023163 03 FILLER PIC 9(10) COMP-3 VALUE 0535itOO00. ONM-136-44 BL=40 CH 7183 DS 6P 04071 021370 03 FILLER PIC X(1201 VALUE INR5 L3 NGSI NGS2 NGS3 DNM-136-46 BL-40 C44 7189 DS L20C 71ON F',040?21 .1 45' 7 04073 023390 03 FILLER PIC X(75) VALUE SPACES. OKM=136-4T BL=40 COC 7309 DS 75C. -3 VALUE 0535120000. -49 4' 040T4 023403 03 FILLER PIC 9(10) COMP ONM=136 OL-40 DO? 7384 DS 6P 83 NMIOO 10.43.12 APR 391984 INT NAME BASE DISP RLOI OEFINITION 23410----f)3--FILtER---PIC---X-it 201 ----VALUE--* NUBI- NUS2-NUfi3----$4- ONMwt37-OO-8L-4O--OOD--739O--OS 12OC-- 040 5-0 04076 023420 03 FILLER PIC X175) VALUE SPACES. DNM-137-01 BL-40 D85 7510 O.S 75C 04077 023430 03 FILLER PIC 9(10) COMP-3 VALUE 0535150000. ONM-137-02 OL-40 000 7585 US 6P 04018-0@3440-03- F ILLER---- PIC XI 1201 ------VALUE -OK3 ONM-I3T-04---8L=4O-DD6 -7591 -US 120C - 023450 03 FILLER PIC X415) VALUE SPACES. '04079 DNM-137-05 BL-40 E4E 7711 US 75C n4OeO 02346) 03 FILLEP Pic 9(io) cnMP-3 VALUE 0535160000. I)NM-137-07 BL-40 E99 7786 US 6P 7 04001 023470 -03 -FILLER --PIC- X 1 120) VALUE --@Kl K2 ONM-137-08 -BL=40 E9F 7792 US 12OC-- -s 0 04087 0?34FtD 03 FILLER PIC X(75) VALUE SPACES. DNM=137-09 BL=40 F17 7912 US 75C Q 04083 0734q9 03 FILLER PIC 9110) COMP-3 VALUE 0535200000. ONM=137-11 SL=40 F62 7987 US 6P To-, 04 0 9 4---- 02 3 5 00--03 F I L L E R -- P I C- X 112 01 - VALUE 8 S23 S25 --- ONM-137-12--BL-40 F68 7993---DS 120C-- @13 04095 023510 03 FILLER PIC X(75) VALUE SPACES. DNM=137-14 BL-40 FEO 8113 US 75C 14 :J n40S6 n23520 03 FILLER PIC 91 tO ICOMP-3 VALUE 0535240000. DKM-13?-15 BL=41 028 0004 US 6P G40q7---023530--03 F ILLER--- PIC X(120)--- -----VALUE -IS40 DNM=137-16- BL-41 031 0002 - US 120C-- 17 04088 023540 ()3 FILLER PIC X(75) VALUE SPACES. ONM=137-18 BL-41 OA9 0122 US 75C 04089 023550 03 FILLER PIC q(10) COMP-3 VALUE 0535250000. ONM=137-19 BL-41 OF4 0197 US 6P Ci 04090-023960 ------03 f: ILLER ---PIC- -X 1120) -- ---VALUE INSW3 NSW4-NS"5 ------- ONM=137-2t BL=41 UFA 0203--DS 120C --- ---- 04001 0?'.4570 03 FILLER PIC X(75) VALUE SPACES. ONM=137-22 BL=41 172 0323 DS 75C ;2 04092 023580 03 FILLER PIC 9(10) COMP-3 VALUE 0535290000. DNM=137-23 BL-4t LBO 03@8 US 6P 23 A21590 -- -03-FILLER--PIC X 1 120) VALUE INBA4 DKM-137-25- BL-41 IC3 0404 US OC __24 04093 12 11 z@l 04(3()4 0?3600 03 FILtER PIC X(75) VALUE SPACE S. DNM=137-26 BL=41 23B 0524 US 75C 2 a,! 0,4005 023610 03 FILLER PIC 9110) COMP-3 VALUE (1535300000. ONM-137-28 BL=41 286 0599 US 6P 27 04096-- 0? 36 20-- -03--F I LL Ek---PI C---X 11-20 VAL UE- 8503 504 ONM=t37-29 BL=41 28C 0605 US 04Oq7 023630- ITR8 510 512 N3 N4 511 TTRI TIR2 TTR3 T-TR4 TTR5 TTR 241 04098 023640- '6 1. @--04099-0?3650-03 FILLER---PIC X 175) ------VAL UE-- SPACES. ONM-137-30 --BL-41- 304 0725-- US 75C 2.@ 3.1 i @04100 073660 03 FILLER PIC 9 101 COMP-3 VALUE 0535300tOO ONM-137-32 SL:41 3 4F- 0800. US 6P 01 04101 023670 03 FILLER PIC X112 VALUE TRR2 TBR3 iBR4 ONM-137-33 OL 41 355 0806 US 120C 35 7 04If)2-O?3680---O3--FlLtFR-- Pit -XI 75 1- VALUE SPACES. ONM-1,37-35 BL-41 -3CO 0926 US 75C -@o 04103 023690 03 FILLER PIC 9(10) COMP-3 VALUE 053S400000. ONM=137-36 BL=41 418 1001 US 6P 3a 04104 023701 ()1 FILLER PIC X(120) VALUE 'NrN04NCNOSNCN06NCNO?t. ONM=t37-37 BL-4L 41E 1007 DS 120C --@-1_0410S-023710 ------- 03 FILLER --PIC Xf75) ------VALUE SPACE S, DNM-137-39 OL-41-496 -1127 US 75C 41 32! 04106 023720 03 FILLER PIC 9110) COMP-3 VALUE 0535540000. 6NM=t37-40 BL-41 4EI. 1202 US 6P At 04107 023731 n3 FTILER PIC X(120) VALUE 'NL14 DNM-131-42 BL=41 4EI 1208 US 120C @-3L--04109--0?3740-----03--f-It.t ER----PIC-XI VALUE SPACES. ---- DNM@137-43 BL-41 55F -1328 US ?5C n4lOq 023750 03 FILLER PIC 9(10) COMP-3 VALUE 0535600000. nNM-137-44 BL-41 5AA 1403 US 6P 36. 04110 023760 03 FILLER PIC X(1201 VALUE INM14 ONM=L37-46 BL-41 580 1409 US 120C -04 11 i--0?377f)---03- FILLER--PIC X(75) VALUE- SPACES. ---- ONM-137-47-. BL-41 628 -1529 US 75C,-- 04112 023780 03 FILLER PIC 9(10) COMP-3 VALUE 0537000000. DNM=137-49 BL-41 673 1604 US 6P 04113 023790 03 FILLER PIC X(1201 VALUE IM19 J31 S41 o. ONM=138-00 BL=41 679 1610 US 120C +1.9-04114 -(3?340')--03 F ILLER ----PIC--X I 7S)- VALUE SPACES. - - -- - - ----- ONM-138-01 - OL-41 6FI -1730 US 75C- 04115 023810 03 FILLER PIC 9(10) COMP-3 VALUE 0537030000. DNM-138-0@ BL-41 73C 1805 US 6P 42 04116 023q2O 03 FILLER PIC X(1201 VALUE -IS31 S32 S35 S37 ONM=138-04 OL-41 742 1811 US t20C 0-04 117 -02 3430 03 FILLER-- PIC Xf751 VALUE SPACES. ---- DKM-138-05 BL=41 78A 1931 US ?5C 441 04118 023840 03 FILLER PIC 9(10) COMP-3 VALUE 0537040000. DNM=138-0? BL=41 805 2006 US 6P 451 04119 02395() 03 FILLER PIC X0201 VALUE IS34 ONM=t38-O`S BL=41 808 2012 US 120C 04120--023860--03- Fit L ER--PIC--X 175)- -------VALUE -SPACES. --- ONM-138-09 --- OL-41 883 2132 US 75C _ec 04121 023870 03 FILLER PIC 9(101 COMP-3 VALUE 0601010000. DNM=138-tl BL-41 8CE 2207 US 6P 04122 023980 03 FILLER PIC X(120) VALUE *SSI S52 ONM-138-12 BL-41 804 2213 US 120C 43 FILLER-PIC X175) VALUE SPACES. - DNM=138-14 BL=41 94C 2333 US 75C 04124 02 39r)o 03 FILLER PIC 911'0) COMP-3 VALUE 0,SCtl30000. ONM=138-15 BL=41 gqT 2408 US 6P 04125 023911 03 F I L t F R PIC X(120) VAL UE 'Sl? S13 DNM=138-16 BL=41 99D 2414 US 120C e ------03 f`lLLER--PIC-X(75)-- VALUE SPACES. ONM-138-18 BL-41 AIS -2534 US 75C -"a 04127 023)30 03 FILLER PIC 9(10) CLIMP-3 VALUE 0602000000. DNM=138-19 BL=41 A60 2609 US 6P 11.9 041213 023940 03 FILLER PIC X(1201 VALUE IC84 CBS 'CB6 CBS CBt5 C DNM=138-21 BL=41 A66 2615 US 120C 84 NMIOO 10.41.12 APR 391984 INT NA49 BASE OISP ALOI [MOINITION 119 CB28SSl-1----Sl4 04110 O?3n6O- 16 C914 C019 04131 023970 03 FILLER PIC X(151 VALUE SPACES. ONM-138-22 BL-41 ADE 2735 US ?SC _4 04 11 Z--O -3@VALUE -1101020000. DNM-138-23---BL-41-629----2810--DS 6f:OC___l -FILL ER-PIC--9f 101 COMP 0 04133 073990 03 FILLER PIC X(1201 VALUE NOC4 QCS QC6 OCT QCS Q ONM*139-25 OL-41 82F 281.6 US 12 04134 0?4000- IC9 octo . I . 7 04115-O24-)I-'J--?)3-FTLL1R-- PIC Xf75I-------- VALUE SPACES. - DNM=138-26---SL-41---BA7---2936 US 75C--._@.. 04136 024021) n3 FILLER PIC 9110) COMP-3 VALUE 1101.030000 DNM:138-28 BL-41 BF2. 3011 US 6P 04137 024030 03 FILLER PIC X(1201 VALUE *BC4 BC5 ;C6 DKM 138-29 BL=4 BF8 3017 US 120C '2 -.04 138-02404f1-03-F ILLER--PIC--X I ----VALUE -SPACES. ONM-13R-30 --SL-41 C70 M37 -DS 75C 13 04119 014050 03 FILLER PIC 9(101 COMP-3 VALUE 1102000000. DNM=138-32 BL-41 CBS 3212 US 6P 14 04140 ' 024060 03 FILLER PIC X(1201 VALUE 1804 805 806 807 9. DNM=138-33 BL=41 CCI 32tS US t20C 5 04I4I-----O2407O--O3-FTLLER- --PIC Xf 75) -------------VALUE -SPACES.- - DNM=138-35-- BL-4L 039 3338 US 75C 04142 024080 03 FILLER PIC 0101 COMP-3 VALUE 1102010000. ONM=138-36 BL=4t D84 34t3 US 6P 04143 024090 03 FILLER PIC Xlt2OI VALUE ON84 HBS H86 2 DNM=t3g-37 BL=41 OBA 34L9 US 120C ic n4144-0241 0')---03 -Ff LLER --PIC-- X ( 751 - VALUE-SPACFS. ---- --- E02 3539 US 7! 04145 024113 03 FILLER PIC 9(101 COMP-3 VALUE 1201010000. DNM=138-40 BL=41 E40 3614 US 6P 04146 ' 024123 03 FILLER PIC Xft2OI VALUE 4NR39 NR39 NR40 NR41 NR42 N DNmzi38-42 BL-41 E53 3620 US 120C 04147--- 02413O----------'P43 MR44-NR45 NR46-NR47-1 04148 0 7 4 1'4,) 03 FILLER PIC X(751 VALUE SPACES. 0 N M = 13 8 -4 3 HL"_41 ECB 3740 US 75C 25.1 1 041411 (124151) 03 FILLER 111 C 111101 CIIMP-3 VALUE 11011120100, ONM=138-44 BL@41 F16 3815 05 6P 21 21@ - -04 150--024160-03- F I LLER --PIC X(I?O) ---------VALUE ONR33 NR34-NR60NR76- DNM-138-46--BL-41 FIC---3821 @DS 12OC-- :2@ n4t5t 074170 03 FILLER PIC X(751 VALUE SPACES. DNM=138-47 BL-41 F94 3941 US 75C 2'1 04152 024100 03 FILLER PIC 91101 CCMP-3 VALUE t201020200. nNM-138-49. OL-41 FDF 4016 US 6P 04 15 14---- 02 41 q-1-----4)3 --F ILL ER -- PIC -XI 120)------- VALUE INR26 NR2-7-NR61--NR62---NR63-N------- ONM-139-00 -BL-41 FES 4022 US 1;20c-. n4154 024700- OP64 04155 1)24?10 03 FILLER PIC X(7531 VALUE SPACES. DNM=139-01 SL=42 05D 4142 US 75C FILLER--PIC-9(-10)-CIUMP-3-VALIJF-- -1201020300. ONM=139-02- BL-42 OAS 4217 US 6P za 04157 024231 03 FILLER PIC X4120) VALUE ONR66 NR67 NR68 DNM-13q-04 BL=42 OAE 4223 US 12CIC 3 04158 024?40 03 FILLER PIC X 175) VALUE SPACES. DNM-139-05 BL-42 126 4343 US 75C 3-01 40 7 ---04159---0?4?50---,--03--FTLLER---PIC q(IO)-COMP-3-VALUE 12OtO2O4OO. DNM=t39-07 - BL-42 171 4418 US 6P , 04160 024760 03 fIltFR PIC X(1201 VALUE NR53 DNM-1319-Oe BL-42 177 4424 05 120C 42 04161 024270 01 FILLER PIC X(TSI VALUE SPACES. ONM=139-09 BL-42 IEF 4544 US 75C 13 --1--04162 -----024280----03 Ff LER---PIC 9110) COMP-3 VALUE 1701030100. ONM-t39-tt -BL-42 23A- 4619 US 6P "1 04163 024;IqO 03 FT I I I V INR69 NR70 NRII NRTZ 35. ILLER P C X 120 ALUE OhM=139-12 OL-42 240 4625 US 120C .0 3al Of# t6 4 0247303 03 FILLER PIC X(TS) VALUE SPACES. ONM-139-14 BL-42 2BB 4745 US 75C 47 -04 16 5---- 02 43 19 -03 FILLER--- PIC 9(tO) COMP-3 VALUE 1201030300. DKM-139-15- BL*42 303 4820 US 6 F: C-- -- --. - -.1 1 "166 0243?3 03 FILLER PIC X1120) VALUE *NR73 NR74 NR75 ONM=139-16 BL-42 309 4826 US 12 DNM-139-18 OL-42 4946 US 75C 04167 024330 r)3 FILLER PIC X(751 VALUE SPACES 381 04 16 8, 024'440 ___ 03 FILLER P IC 9 110 1COMP-3 VALUE 13010;0000. ONM-139-19 BL-42 3CC 5021 US 6P 0416q 024350 03 FILLER PIC X(1201 VALUE ISS113 ONM-139-2t BL-42 302 S027 US 120C 1 04170 024*469 03 FILLER PIC X(751 VALUE SPACES. DNM=139-22 OL-42 44A 5147 US 75C 04171 024370---- 03 FILLER PIC 9(101 COMP-3 VALUE 1102030000. ONM=139-23- BL-42 495 5222 US 6P 04172 02 43 8') 03 FILLER PIC Xf t201 VALUE ISSOlOSSOIlSS05 SS09 1. DNM=139-25 BL-4? 49B 5228 US 120C 04173 024390 n3 FILLER PIC X(7S) VALUE SPACES. DN14-139-26 BL-42 513 5348 US 75C 04174- 0244 00 @----03 F IL L ER-- PIC 91101 COMP-3- VALUE 1303000000. DN44-13q-28 - BL-42 SSE S423 - US 6P 04175 074410 03 FILLER PIC X(120) VALUE 'IWW7 IWW8 IWW9 IWWIOIWWIII ONM=139-29 BL-42 564 5429 US 120C .81 04176 0?4420- 2WW121WW13C 63 Z@--04177-----024433- 03-FILLER- PT _X 17;; VALUE- SPACES. - ONM=139-30 - BL-42 5DC 5549 US 7SC 1 04178 024440 03 FILLER PIC 9(10) COMP-3 VALUE 1401000000. DNM=139-32 BL-42 627 5624 US 6P 04 i 04179 024450 03 FILt FR PIC X(1201 VALUE @T14 T15 T16 TIT TIB T ONM-139-33 BL-42 6iD 5630 US 120C 04 19 0-02 44 60-- - - lIq T110 1 ---- --- 04181. 024470 03 FILLER PIC X(751 VALUE SPACES. DNM=139-35 BLa42 6A5 5750 US 75C 170 04 M 024480 03 FILLER PIC 9(tO) COMP-3 VALUE 1401020000. ONM-139-36 BL-42 6FO 5825 US 6P 7 72 11 j;l as N4 100 10.43.12 APR 3,1484 INT NAME BASE OISP RL01 CEFINITION O4t-83---O?449O--O3-T I LLER--P I C-114201 -VALUE-$ VC4---VCS- VC.6-VCV- VC-8 ----DNM-139-3:1--BL-42-6F6---SS31---f)S-12OC--- 04184 0?450f) 03 FILLER PIC X(751 VALUE SPACES. D 5c =&139-39 BL-42 76E 5951 DS ? 31 041RS 024510 03 FILLER PIC 9(tOl COMP-3 VALUE t40tO3OOOO. Z M-139-40 BL=42 ?B9 6026 DS 6P 41 FItLER---PIC--Xtt2O)------ VALUE-OM84 -DNN-139-41--BL-42-?BF---6O32 OS 12OC-- 04187 024530 03 FILLER PIC XITS) VALUE SPACESO OL-42 837 6152 DS 75C 04188 024540 o3 FILLER PIC 9(10) COMP-3 VALUE 1401040000. ONM=139-44 BL-42-882, 6227 DS 6P FILLER- PIC X ( 1.201 VALUE 40TC4 GTC5 QTC6--- ONM-139-46- BL-42 888, 6233 DS IZOC--- 04190 024560 03 FILLER PIC X(751 VALUE SPACES. DKM=139-47 BL=42 900 6353 DS 75C 04191 074571 03 FILLER PIC 9( 101 COMP-3 VALUE 1402010000. DNM-139-49 BL-42 940 6428 DS 6P !L__04Iq2--0?4580---03-ffLLER PIC- VALUE *CIC4 OC5-OC6'-OC7---9.;---- --DNA=140-00- BL-42 951 6434 DS 12 0 C-- ;"13 04193 0?45qO 03 FILLER PIC X175) VALUE SPACES. ONM-t4O-Ot BL-42 9C9 6554 OS 75C -3 VALIT t402020000. I)NM=140-02 BL-42 A14 6629 DS 04194 0240SO3 03 FILLER PIC 9( 10) COMP 6P ,.r---04 I<q)S- 0246 10 F ILLER PI C X 1120)------ -- VALUE 4TS4 TS5- TS6 DNM-140-04 BL=42 AlA 6635 DS 12OC_ 14! 04196 024629- IS9 T Sl r) 041-7 02 4 6 -3 0 03 FILLER PIC X( 75) VALUE SPACES. DNM-140-05 BL-42 A92 6755 CS 75C 04198 __-t)2 46 4)__03-- F I L L ER - -P I C- 9 ( 10) COMP73 VALUE - t 403 0000 00. - DNM=140-07 BL=42 ADD 6830 DS 6P 20 61 . 03 VALUE #IWW171WW181WW191WW20 2,1 7 04lq9 024650 FILLER PIC XI 1201 DNM=140-08 BL-42 AE3 6836 DS 120C - :., 04200 . 024660 03 FILLER PIC X(75) VALUE. SPACES. nNM=140-09 BL=42 858 6956 DS 75C T@f ---042()I--02467t)-----03-fiLLER -PIC- 9(10) COMP-3 -ONK-140-tt -6L-42 BA6 7011. DS 6P 20 n4202 024680 03 FILLER PIC X( 120) VALUE OMS4 MS5 NS6 ONM=140-12 OL.=42 BAC 7037 OS 120C 04203 1)?4690 n3 F I L L F R PIC yt 751 VALUE SPACES. DNM=140-14 BL=42 C24 7157 DS ?5C - 042n4---- 02 47 0')-- -0 3 F ILtER-- PIC- 9f 10 1 - CC MP-3 VALUE - 1501010000.1------ D NM - 14 0- 15 - - BL - 42 C 6F - ?23? DS 6P 04205 024710 03 FILLER PIC X( 1201 VALUE *MC4 ONM=140-16 BL=42 C75 7238 DS 120C 2.1 04206 024723 03 FILLER PIC X(751 VALUE SPACES. ONM=140-18, BL-42 CED 7358 DS 75C ; 2 i-,t---04207-- ()24730----03 FILLER- PIC 9flO) COMP-3 VALUE 15G1O2000O.-------- DNM=140-19-- BL=42 D38 7433 DS 6P . - -- - -1 E 04208 02474() 03 FILLER PIC Xf 1201 VALUE DFC4 ONM=140-21 BL=42 D3E 7439, DS 120C 04209 024750 03 FILLER PIC X( 75) VALUE SPACES. DNM-140-22 BL=42 086 7559 DS 75C 35 -04?1,0---024760--03-FILLFR-@--PIC- 9(101 -COMP-3 VALUE 1501030000.-- DNM=140-23 BL-42 E01 OS 6P,--- 04211 02477.9 03 FILLER PIC X( 1201 VALUE IPC4 PC5 PC6 PCT KS P DNM-140-25 BL-42 E07 7640 DS 120C 04212 024780- IC9 PCIO 9 . 042t 3--- 02479()--03 F ILLER-- PIC -X 1 751------ -----VALUE - SPACES, DKM=140-26 BL-42 E 7F 7760 DS 75C 321 n4214 024900 nl FILLER PIC 91101 C13MP-3 VhLUE IS02010000. DNM=140-28 BL=42 ECA 7835 DS 6P 3@1 04215 0241in 03 FILLER PIC X(1201 VALUE IR14 R15 R16 R17 R18 DNM-140-29 BL-42 EDO 7841 CS 120C 04217 024830 03 FILLER PIC X(15) VALUE SPACES ONM:140-30 :L-42 F48 ?961 OS TSC 36 04218 024R40 03 FILLER PIC 9(101 COMP-3 VALUE 15020;0000. BNM 140-32 L-42 Fq3 8036 DS 6P i-, ---- 011019---- 0241150 ----03 FILLER- -PIC-X(120)------ VALUE IFE4 F E 5 0hM:14O-33---BL=42 F99 8042- DS t2OC--- ..... .@p 04770 02446) 03 FILLER PIC X(75) VALOE SPACES. DNM 140-35 BL=43 Oll 0030 DS 75C 30 04221 024870 03 FILLER PIC 9(10) COMP-3 VALUE 1502030000. DNM=140-36 BL=43 05C 0045 CS 6P -.--0422Z--024R6r)----03 FILLER-- PIC -x I t 201 VALUE IMA4 - 2!2 0 ONM-140-37--BL-43 062- 0051 -OS 120C-- Z3 04223 024990 03 FILLER PIC X(75) VALUE SPACES. ONM=140-39 BL=43 ODA OtTl OS 75C 042?4 024900 03 FILLER PIC 9(101 COMP-3 VALUE 1503000000. DKM=140-40 BL=43 t2S 0246 DS 6P 04??5 0?4qlO------03 FILLER-PIC W(1201 -------VALUE--' IWW?41WW251WW261WW2?IWW28-- DNM=140-42---eL-43 12B 0252 DS 120C-- 042?6 024q2O- 1 1. 04227 024930 03 FILLER PIC X(751 VALUE SPACES. I)NM=140-43 BL=43 IA3 0372 DS 75C 04229---02494f) FILLER--PIC-9( 10) -COMP-3-VALUE- 1601000000.------------- f)NM- 140-44 -BL-43 I EE 0447 DS 6P 04?29 0?4951) 03 F ILL ER PIC Xf 1201 VALUE 1%14 W15 W16 DNM=140-46 OL-43 IF4 0453 DS 120C @52 04230 074960 n3 F ILL ER PIC X17S) VALUE SPACES ONM-t4O-47 BL-43 26C OS73 DS 75C 0423 1----0?49 70-- 03 FILLER-- PIC 91101 COMP-3 VALUE 14010;0000.--- ON4=140-49 8L=43 287 0648 DS 6P 04232 02 49 81 03 FILLER PIC XI 120) VALUE IBR4 BR5 ONM=141-00 BL=43 28D 0654 DS 120C 04?A3 024990 03 FILLER PIC X( 75) VALUF SPACES. OKM=141-01 BL=43 335 0774 DS 75C @7 .-04 234---02 5001-03 FILLEP--PIC-9f 101 CnMP-3 VALUE - 1602010000. DNM@141-02 BL=43 380 0849--DS 6P 04215 0?5010 03 FILLER PIC X(t20) VALUE '%M4 WM5 WM6 WM7 WM8 D.NM=141-04 BL-43 386 0855 DS 120C 70, 04236 025(120- 7 86 NMIOO tO.43.12 APR I.IqR4 INT NAME BASE DISP RLOI DEFINITION 042 -0 - 3-- L --PIC--X( 7 ---VALUF-SPACE ONM-141-05-OL-43-1FE-0975 --- US 04238 0?5040 03 FILLER PIC 9(101 COMP-3 VALUE 1602020000. DNM=t4l-OT OL-43 449 t05O .US 6P 04 23q 0?5050 03 FILLER PIC X(12011 VALUE IW84 W05 WB6 WBT WOB W ONM=141-08 BL-43 44F 1056 DS 120C 4 240---0?5060Y-------- 4 f)9,-WBIO- 11 04241 025070 03 FILLER PIC X115) VALUE SPACES. DNM=141-09 BL=43 4C7 1176 US T5C 04242 02 5f) 80 03 FILLER PIC 9(10) COMP-3 VALUE 1603000000. DNM=141-11 OL-43 512 1251 US 6P -0421;3--0?5()qO--03-F,ILLfq---PIC III 1201---IIALUI I IWW121WW33IWW14IWW35,- ONM,14 - 2 L-43 518,- 1257 -OS 12OC- 04?44 075100 03 FILLER PIC X(75) VALUE SPACES. ONM=141-14 BL=43 59o 1377 US 75C 04245 029110 03 FILLER PIC 9(10) COMP-3 VALUE t701000000. ONM=141-15 BL=43 508 1452 US 6P !111 _______.ONM-L41-I6- BL-43 5EI- 1458 - US 12OC-- 04246--02'3120------03--FILL-ER- PIC -Xj I20j------- VALUE MC4 MCS -18 04247 025130 03 FILLER PIC X(75) VALUE SPACES. DkM=141 BL=43 659 1578 US 75C I I CUMP_3 2 04248 025 41 03 FILLER PIC 9(10 VALUE t701010000. DNM=t4l-19 OL-43 6A4 1653 US 6P 1 04249---025IS9---------G3 -FILEFR---PIC Xf 12ni ---- VALUE 'H E 4 - H E S ONM=141-21 - 81-=43 6AA 1659 US 120C T3 04250 025160 03 FILLER PIC X1751 VALUE SPACES. DNM=141-22 BL=43 722 1779 US 75C -3 VALUE -23 04251 025170 03 FILLER PIC 9(10) COMP 1701020000. Of0=141 BL=43 76D 1854 US 6P ONM=141-25 BL=43 773 1860 US 120C- ---f)2'518G-----03-f-ILLER -PIC Xf 120V 2 5 2 -VALUE 4 WC4 WC 5 - 17 0425-3 025190 03 FILLER PIC X(75) VALUE SPACES. ONM=141-26 BL-43 7ER 1980 US 75C 04254 025700 n3 FILLER PIC 9(101 COPIP-3 VALUE 1702010000. DNM=141-28 BL-43 636 2055 US 6P 14255---- 025210 f 11 tER -PIC X1120) VALUE %NM4 MMS MM& MM7.---MMS-M DhM-141-29 BL=43 83C 2061 US 120C 04?56 0?')220- M9 21 0475? 029739 03 FILLER PIC X(751 VALUE SPACES. DNM=141-30 BL=43 8B4 2161 US 15C 04758--025240---03- FILLER---PIC-9( 101 -COMP-3 VALUE--1703000000.--- ONM-141-32 BL-43 OFF 22S6 US 6P ------- - Z3 04259 0252 50 03 FILLER PIC X(120) VALUE $IWW39 DKMzl4l-33 BL-43 905 2262 US 120C I S -35 2224 04260 025760 03 FILLER PIC X 751 VALUE PACES ONM=141 8L-43 970 2382 US 7SC i;'-- 04261 --- 0? S@ 71-03 FILLER -- -PI C 91 Il) - CUMP-3 VALUE --'lA0I 0I0000.--------- -DNM-141-36-- BL-43 9C8 2457 VS 45P 04262 025,180 03 FILLER PIC X(120) VALUE IM14 M15 M16 f4l? HIS M DNM=141-37 BL-43 9CE 2461 US 120C 04 263 025290- gig 26i 04 264--- 41753 FILLER- P I C- X f 751 VALUE SPACES. -- - ONM-141-39 BL-43-A46 2563 US 75C 04?65 025310 03 FILLER PIC 9(101 COMP-3 VALUE 1802010000. DNM=141-40 SL=43 A91 2658 US 6P 04266 n?532) 03 FILLER PIC X(1201 VALUE OM04 MOS M06 HOT M08 4 ONM-141-42 BL-43 A97 2664 US 120C PIC X(T5) VALUE SPACES. DN4=t41-43 BL=43 BOF 2704 US 1 4 04268 025340 03 FILLER r5c 331 04269 025350 03 FILLER PIC 9110) COMP-3 VALUE 1803000000. DKM=141--44 BL-43 55A 2859 US 6P 34 04270-----025'460-03 FILLER----PIC-XI 120)-----VALUE -*I WW43[WW441WW451WW464.-@@--------ONM-141-46 OL-43 B60 --206S US t20C- 35 04271 025370 03 FILLER PIC X(75) VALUE SPACES. ONM=14L-41 BL-43 BUB 2985 US 15C 1 04272 02 5-3 80 03 FILLER PIC @9(101 COMP-3 VALUE 1804000000. DNM-141-49 OL-43 C23 3060 CS 6P '47 38 -02 S3 90----03 F It L PI& Xf 1201 -------VALUE 4CRY4- _ 5 @i 04 2?3 ONM-1.42-00-81.-43 C29 -.3066 US IZOC-- a 38 04274 025400 03 FILCER PIC Y(751 VALUE SPACES. DKM=142-01 BL-43 CAI 3186 US 75C 501 04275 025411 03 FILLER PIC q110) COMP-3 VALUE 1901010200. ONM=142-02 BL=43 CEC 3261 US 6P 3; Z@-042-76--- 0254 20--03-F ILL ER- PIC X( VALUE ICFR29CFR30 --- 0-i- DNM=142-04- BL-43 CF2 3267 US 120C-- ----2 53 04277 025430 03 FILLER PIC X(751 VALUE SPACES. ONM-142-05 BL-43 D6A 3387 US 75C ul .2 04278 025440 03 FILLER PIC 9(tO) COMP-3 VALUE 1901011100. DKM=142-07 OL-43 DB5 3462 US 6P @ij---04779---- 025450 ---()3 FILLER--PIC X(120) VALUE ICFR37 -- DNM=142-08 BL=43 DOB 3468 US I @20c_ 042RO 02 5460 03 F ILL ER PIC X(75) VALUE SPACFS. DNM-142-69 BL-43 E33 3588 US 75C 0 4 2 8 1 025470 03 FILLER PIC 9(10 1 COMP-3 VALUE 1901020400. DNM=142-11 BL-43 E7E 3663 US 6 P 042R2 ()25480_ 03 FILLER PIC X(12 VALUE DNM-142-12 BL-43 E84 3669 US I ol .20C-- VALUE SPACES. DNM=t42-14 OL-43 EEC 3789 US 75C 04283 02 54 9) 03 FILLER PIC X(75) 48 04294 025,)no 03 FILLER PIC q(101 COMP-3 VALUE 1901020500. DNM=142-15 BL-43 F4? 3864 US 6 P '63 0 4 ? 8 5 0 ? 5 5 10 0 3 F ILL EER PIC X( i2O)-- VALUE CFR62 - ---- ONM-142-16 BL=43 F40 3870 US 12oc- - 65. ILI 04296 025520 03 f ILL FR PIC Y(75) VALUE SPACES. DNM=142-18 BL-43 FC5 3990 US 15C 661 I; 511 04787 02593.9 03 FILLER PIC 9(10) COMP-3 VALUE lqOI030100. ONM=142-19 BL=44 010 4065 US 6P b7l -04298 FILLER --PIC- X( VALUE OCFR12CFR63CFR64CFR65CFR66C--- ONM=142-21 OL-44 016- 4071 US 120C-- 04299 025551- IFP67rFR69CFR6qCFR70 2. 'o 541 04290 025560 03 FILLER PIC x(7151 VALUE SPACES. DNM-142-22 BL-44 08E 4191 DS 75C '711 72 X......... . 87 NMjOO 10.43.12 APR 3,1984 1 NT NAME BASE DISP RL01 DEFINITION OA-flLt_fR---PIC 91 to)- Eao.P-3- VALUE --19010302004---------- ----@----DNM-t42-23--BL-44-009--4266--DS-6P-7- 04292 025580 03 FILLER PIC X(1201 VALUE %CFR72CFR73CFR?4CFR75CFR76C ONMul42-25 BL-44 OOF 4272 DS 120C 3 04291 02559(1- OFR77CFR79CFR79CFR80 --04294--0;051%00----"--F,IttER---PIC--Y('751 VALUE- SPACES. --- - - t57-- 4392---OS 75C-- 04295 025613 03 FILLER PIC 9(10) COMP-3 VALUE 1901040000. DNM=142-28 OL-44 IA2 4467 DS 6P 02 56 29 03'FILLER PIC X(I?OI VALUE #CFR9 CFR8tCFR82CFR83CFR84C OKM=142-29 BL=44 IA8 4473 DS 120C -04297-----0256'iO----------IFR85CFR86CFRA7, 04?q8 025640 Ol FILLER PIC X175) VALUE SPACES. DKM=142-30 BL=44 220 4593 DS 75C !,Q 04299 02565o 03 FILLER PIC 9110) COMP-3 VALUE 1902020000. ONM-142-32 BL=44 26B 4668 OS 6P iL_@_04300-025661-03 -fILLER-- PIC X4 VALUE ICFR98EFR99 OK'M=t42-33 BL=44-271 4674 DS 12OC- :',i 643nj 029670 03 FILLER PIC X(751 VALUE SPACES. DNM=142-35 BL-44 2E9 4794 DS 75C 12i 04307 025680 03 FILLER PIC 9(10) COMP-3 VALUE 002030100. ONM-142-36 OL-44 334 4869 CS 6P 04'A n 3 ----0 2 5 6 90 3 FILLER --PfC-X(120)-------- VALUE--- - ONM=L42-37- BL-44 33A 4875 OS 120C.- 14 04304 025700 'NE3 NF5 NE7 NES NE9 NEtO NELI. NE12 NE13 NE14 043n5 025,710- '@IE15 NE16 NE17 NE18 NE20 5C 171 04307 02 5 7 Y) 03 FILLER PIC X(751 VALUE SPACES. ONM:142-39 BL:44 3B2 4995 DS 7 22 04-408 025740 03 FILLER PIC q(101 COMP-3 VALUE 1902030200. DNM 142-40 BL 44 3FO 5070 DS 6P 231 FILLER--PIC X(12n)---- VALUE ----- - - ONM-142-42-- BL-44 403----SO76--Ds 120C-- 20! 041110 025760 'NE24 NE25 NE26 NE27 NE28 NE29 NE30 21' 04311 n?5770- 23i 04113 n?5790 03 FILLER PIC Xl?5) VALUE SPACES. DNM-142-43 BL-44 478 5196 DS 75C_ 2A! 04314 0?5900 03 FILLER PIC 91101 COMP-3 VALUE 1902030300. ONM=142-44 BL=44 4C6 5271 DS 6P '---04315--025810 120) VALUE - - --- - --- DNM-t42-46---BL-44 4CC--S27'1--DS V20C- 04316 075820 @NE35 NE36 NE37 NE38 NE39 27 04317 025830- 04318 -025840----- DNM-142-47 BL-44 544 5347 DS 75C 04319 075850 03 FILLER PIC X(?5) VALUE SPACES. 043?0 025860 03 FILLER PIC 9(101 COMP-3 VALUE 200tOOOOOO. DNM-142-49 BL-44 58F 5472 OS 6P jq-0432t----O2587O-- --03--fTLLER- PIC---Xti2O)--- ---- VALUE ILFR4 LFRS lLFR6-LFR7--LFR8-L------ DNM-143-OO--BL-44-59S--5478 -DS 120C-- 04322 02588D- .1 VFRq LFRIOLFRIILFR12LFR13LFR14LFR15LFR16LFRt7LFRISLFRIqLFR 04323 0259qo- '20 2 . 43 33 04324-025900--03--f ILL FR-PIC---X f 75 1--- --VALUE SPACES. --- ONM-143-01-BL-44--60D -5598----OS 75C 3. 04325 025913 03 FILLER PIC 9( 101 COMP-3 VALUE 2002000000. ONM=143-02 BL-44 658 5673 OS 6P 36@ 041?6 025q2O 03 FILLER PIC X( 120) VALUE IOC4 OCS DC6 ONM-143-04 BL=44 6SE 5679 DS 120C 47 _04-127--- 025930---03 -FILLER - -PIC -X(TS) --------VALUE SPACES. - DNM-143-05---BL-44 6D6 -5799 - OS 15C 04321 025940 .03 FILLER PIC 9(10) COMP-3 VALUE 2003000000. DNM=143-07 BL-44 721 5874 DS 6P 3,:l 04329 02595-1 03 FILLER PIC X1120) VALUE *TWW501WW511WW52 ON,4=143-08 EL-44 727 5880 DS 120C @-[--04330--025960------03-FILLER----PIC X(?Sl SPACES. --- OIXM-143-09 - BL-44 79F 6000 -DS 75C :,1 04331 025970 03 FILLER PIC 9(tOl COMP-3 VALUE 2101000000. DNM=143-11 BL=44 7EA 6075 DS 6P 42 04332 O?r5980 03 FILLER PIC X( 1201 VALUF 'SR4 SR5 DNM=143-t2 BL-44 7FO 6081 OS 120C Im 43 - 025990 03 FILLER PIC X(75) VALUE SPACES. DNM-143-14 BL-44 668 6201 DS 7SC _j (34334 0 2 6,) of) n3 FILLER PIC 9( 101 COMP-3 VALUF ?101010000. ONM=143-15 BL=44 8B3 6276 DS 6P 04335 n26010 03 FILLER PIC X(120) VALUE 'GC4 DKM=141-16 ' OL-44 8B9 6282 DS IZOC 0 4 3 3 6 ---0 2 60 2 0 0 3 r-ILLFR-'-PIC-X(75) ---- ---VALUE SPACES. -- DNM-143-18 - BL-44 931 6402 DS 75C 04337 026030 03 FILLER PIC 91 101 COMP-3 VALUF Z103000000. ONM-143-19 BL-44@ 97C 6477 DS 6P 04338 026040 03 FILLER PIC X( 1201 VALUE 'SC4 SC5 DKM=143-21 8L=44 982 6483 OS 120C 0433q-.-----02605O-------03- FILLER -PIC X(751 VALUE SPACES. DNM=143*-22 BL=44 9FA 6603 DS 7SC 04140 n26060 n3 FILLER PIC 9(101 COMP-3 VALUE 2104000000. ONM=143-23 BL=44 A45 6676 DS 6P 1 04341 02 6) 70 03 FILLER PIC X(1201 VALUE 'IWW56tWW57IWW58IWW591WW6OI ONM-143-25 BL-44 A48 6684 DS 120C 04342---076f)R0----'---4WW61 04343 O26oqO 03 FILLER PIC X(751 VALUF SPACES (INM-143-26 EL-44 AC3 6804 IDS 75G 04344 026107 03 F ILLOft PIC 4410) COMP-3 VALUE Ml O;fwoo. DNf4v- L43-28 OL,"44 ROE 6879 DS 6P 88 N4100 10.43.12 APR 391984 INT NAME BASE DISP RL01 DEFINITION DNM-143-29--BL-44--814 --6885--DS 120C--- 04346 026120 03 FILLER PIC X(TS) VALUE SPACES. ONM-143-30 BL-44 88C 7005 DS 75C 0434? 026131) 03 FILLER PIC 91101 COMP-3 VALUE 2701010000. ONM-143-32 BL-44 OD? 7080 US 6P loc-_ ---04148-02614G------03- F ILL ER--P lC -X 11201---- VALUE--' f C4- - EC5 ---- ONMOL43-33-OL-4,4- ODD DS 1; DNM-143-35 BL-44 C55 1206 US 7SC 04349 026150 03 FILLER PIC X4751 VALUE SPACES 04350 026t6O 03 FILLER PIC 9(10) COMP-3 VALUE 22020;0000. DKM-143-36 BL-44 CAD 7281 US 6P VALUE-'SBt7 - DNM=143-37- BL=44 CA6 7287 US 120c_ 04352 026180 03 FILLER PIC X(75) VALUE SPACES. DNM=.L43-39 BL=44 DIE 7407 US 75C T 04353 026190 03 FILLER PIC 9(101 COMP-3 VALUE 2203010000. DNM=143-40 BL=44 D69 7482 US 6P 014 354--026203 01-FILLER----PIC -X( 120f- VALUE--@CR4 CR5----- ONM-143-42 BL-44 06F- 7488 US :2 13 043 55 . 0262 10 03 FILLER PIC X1751 VALUE SPACES. ONM=143-43 BL=44 DET 7608 US 75C 141 04356 026?29 03 FILLER PIC 9(10) COMP-3 VALUE 220SO00000. OKM-143-44 BL-44 E32 7683 US 6P .04157--026230-03-1-FILLE-q -- PIC X I 12 VALUE I I W W6 5 1 W W 661 W W671 WW68 I W W69 I-- - ONM-143-46-- BL-44 E38--7689 --DS 120C- :41 04358 026?40- IWW7r)IWW71 S. 0435q 026?50 03 FILLER PYC X(75) VALUE SPACES OKM=t43-47 BL=44 EBO 7809 US 75C 04360 --026260 F ILLER-- -PI C 9(101 COMP-3 VALUE - qo999;9999.. DNM=143-49 -OL-44 EFB- 7884 US 6F 04-361 - 026270 03 FILLER PIC X(t201 VALUE SPACES. DKM=144-00 BL=44 F01 7890 US 120C ,7 04362 026280 03 FILLER PIC X175) VALUE SPACES. DKM-144-01 BLm44 F79 8010 US 75C 04364 02610)* 20; 04165 026310* TA3LE NOW CONTAINS 239 ENTRIES 03/30/84 27 ALL-9 ENTRIES ---- --- 04367 026330* 2.1 04368 026343 01 STATION-TABLE-2-R REDEFINES STATION-TABLE-2. ONM-t44-02* OL-33 030 0001 US OCL48240 31 --04369-026353---03-LOC-WITH-04-42-STATICNS OCCURS 240 TIMES DNM-144-07---BL-33 .030 -000t-- DS OCL401 26 04370 026360 ASCENDING KEY LOCATION-2 04371 n26370 INDEXED BY LOC-2-IX.. PIC 91101-COMP-3.i *-----------DNM-144-11---BL-33-030 --0001---OS 6pi 04373 026391 05 STATION-2 OCCURS 3q TIMES INDEXEn By STA-2-IX ONM*144-16 BL-33 036 000? OS 5C 3 04374 026400 PIC X15). 3. 331 14 35, 53 421 57 3a 50 :62 63 fe 67'. 70 - 56 89 Nmloo tO.43.12 APR 3,1954 INT NAME BASE DISP RLOI DEFINITION 04376 04377 026430* 3F04378 026440 Ot STATION-TABLE-3. OMM-144-18 OL-44 FC8 0001 DS OCL7776 -@-37'k--02645()--03--FILLER---PTC--9f-10)--C-OMP-3-VALUE--0200000000.i--------------------DNM-144-21--BL-44-FCS@OOOt--DS-6P---------!!.- 026460 03 FILLER PIC X(1201 VALUE I* i 04380 DNM-144-23 BL-44 FCE 0007 DS 120C : 7 i____043111 _ _026470 @iL i 04382 026480------------ *9 1 043R3 026490- 043R4 026500 03 FILLER PIC X4120) VALUE SPACES. DNM-144-24 BL-45 046 0127 DS 120C ___043R5--0? 65 F IL L FR-PfC- X f VALUE-- SPACES. - -- ---- --ONM-144-26-BL-45 OBE----OZ47---DS--I2OC- @2 13 04396 02 65 20 63 FILLER PIC X(1201 VALUE SPACES. ONM=t44-2? BL-45 136 '03 '67 DS 120C 114 04387 026533* '10 -04 3 8 8 - 02 65 40 --- -03 --F I LLER P I C - 9 1101 - COMP-3 V AL UE---0202 000000.-- DKM-144-28 --BL-45--IAE,- 04 0 7-;VS 6P 04389 026553 03 FILLER PIC X 1120) VALUE DNM-144-30 OL-45 184 04.93 DS 120C 044q9 02656n *A17 At8 A19 A20 A22 A23 A24 StA 83A Bt7 20 04391--0761)70-@-------@-OEPI-I-EP12-EPt3 EP14-13---24- -- IO--26----2T--- - !21 043q2 026580- 22 21 Is. 043Q3 026590 03 FILLER PIC X(1201 VALUE SPACES. ONM=t4,4-31 OL-45 22C 0613 DS 120C 043q4-- O?f,60')----O3--FILLER---PIC X(120) SPACES. ONM-144-33-81-0 2A4-- 0133 DS 12OC- 04395 n?6610 03 FILLER PIC X(120) VALUE SPACES. ONM-144-34 BL-45 31C 0953 DS 120C n4396 026620* 27 04397-02663()---03-F-ILtER--PIIC---9I 101 CCMP-3- VALUE----- 0205000000i. -ONM-144-3S-- SL-45- 394---C9?3-- DS 6P 04398 026640 03 FILLER PIC X1120) VALUE ONN-144-37. BL-45 39A 0979 DS 120C 04399 026650 136 31 044nl 026671- 271 04402 0@6683 03 FILLER PIC xlt2n) VALUE SPACES. ONM-t44-38' OL-45 412 1099 DS 120C 35 __-044()3--O2669O----O3-F ILtER-- PIC-- X 1 VALUE SPACES. ...... bNM-t44-40- OL-45 48A -1219 -OS 12OC-- 04404 0?6700 03 FILLER PIC X(1201 VALUE SPACES. DNM=144-41 BL-45 502 1339 DS 120C 04405 026TIO* 1 y,@-04406-----026720-----03--FTLLER---PIC-91 tOl--C(1!4P-3-VALIJE----0534100000@--------------- ONH-144-42--BL-4S-STA -1459--DS 6P 32i 04407 026730 03 FILLER PIC X(1201 VALUE ONM-144-44 BL-45 580 1465 DS IZOC 1 04408 0?6740 'An7S A08S A09S AIOS 0612S A13S A14S AISS A16S A17S 43 - --O?675O-_-----*AISS_-AI9S BOIS 002S-803S B045 005S BO6S-BOlS--GO8S------- 311 04409 143 04410 n26760- 0809S BIOS BIIS 812S 04411 026770 03 FILLER PIC X(120) VALUE ONM-144-45 BL-45 5FS 1585 DS 120C ___sB13S: B14S 815S B16S BITS-018S COIS C02S C03S-CO4S------- 04413 026790- IC15S C(N6S C-0-IS COBS C09S CIOS CIIS C12S C13S C14S 04414 076900- IC15S C16S C17S CIBS 1. O3-FILL-ER--PIC--XfI2O) -VALUE------- b7O--I7O5----DS--I2OC------ 41 04416 026820 IDOIS D02S D03S D04S 005S 006S 007S DOSS D09S DIOS A21 04417 026830- IDIIS D12S D13S 014S DISS 016S 017S DL8S D19S 020S C @-,j-----0441 8---- 026940---- 1021S AIIS COt- C2 04419 026150 03 FILLER PIC X(120) VALUE DNM-144-48 BL-45 6EB 1825 VS IZOC 04420 026F)60 OC03 d 04 C05 C06 Cn7 C08 C09 001 002 D03 -044-? 1-02 69 70- 004-- 005-- 006-- 007 008 NBRI --- - 04422 026880- 04423 076Rqo* 41.__04424 -- -07 6901 --- -01- F-I LLER P I C- 91 10 1 - COMP-3 VALUE - 05350003 00. OMM-145-00 BL-45-160-1945--Gs 6P 04475 0? 69 1-1) 0.3 FILLER PIC X11'20) VALUF ONM=145-01 BL-45 766 1951 OS 120C 11@00 :'i 04416 076920 INNR26 87@ to 04428 0?6q43- 70 04429 0269550 03 FILLER PIC X(1201 VALUE SPACES. DNM-145-02 BL-45 TOE 2071 DS 120C .74 r 90 N4100 10.43.12 APR 3#1984 INT NAME BASE DISP RLOI DEFINITION 430 026960--03-F It UEA-P IC- -X f 1201 -- ---VAL OF --SPACE Si, 120C -'45 OCE 23tt 2 04431 0?6q7O 03 FILLER PIC X(t20) VALUE SPACES. ONM-t45-05 BL US 120(; 3 04432 0269AO* 3 4 4433 026990------03--F ILL-ER-- -PI C-94 101 -COPP-3- VAL UE----991999"999o-- ONM- 145-0?- OL-45-q46 -2431 -US 6P 04434 027nOl 03 FILLER PIC X(1201 VALUE ONN-145-08 BL-45 94C 2437 US 12(,c-- 6 04435 027010 9 a 04437 027030 (344313 027041 03 FILLER PIC X41201 VALUE SPACES. DNM=t45-0t4 BL=45 9C4 2557 US 120C 04 4 3 9-- - 02 70 50 03 -F I t L E R--- P I C -X f 12 0) VALUE -SPACES. -DNM-145-I1---6L-4S A3C----267? US 120C 04440 027060 03 FILLER PIC X(120) VALUE SPACES. ONM-145-12 OL-45 A84 2797 US L20C 04441 077070* --'04447--f)77f)80 -03--+ILLER--PIC-,9( 10) f-OM"-vALUE - -9Q99999999F--------- DNM=145-14 --BL-45-BZC--2917 US 6P 13l I A 04443 027n93 03 FILLER PIC X(120) VALUE bNH=145-15 BL-45 B32 2923 US 120C 04444 027100 its I __ .Zo ti 14 44"5--07 Tt 11 f)4446 027120- 04447 027130 03 FILLER PIC X(1201 VALUE SPACES. ONM=145-16 BL-45 SAA 3043 US 120C 123 04 44 Fl -027140-- --03--F ILLER PIC-If f 120)---- VALUE SPACES ONM-145-18- BL-4S C22 3163 US L20C n4449 027150 03 FILLER PIC X(120) VALUE SPACES. ON4=145-19 OL-45 C9A. 3283 US 120C n4450 02 7160* DhM-14S-21---BL-45 012 3403--DS 6P 22@ f)4451--,0?71 711-----03 F ILL-ER---PI" 110) -COMP-3-- VALUE ---999999q999o----- - 1 3409 US 120C 04452 VALUE ONM-145-22 BL=45 018 027180 03 FILLER PIC X1120) 04453 027103 9 M n4455 027210 3529 US 120C i 04456 02 72 20 03 FILLER PIC X1120) VALUE SPACES. DNM=145-23 OL-45 090 27, __04 4 5 T---- 02 72 30 --03- F I L L ER P I C -X 11201 VALUE -SPACES. BL-45 E08-- 3649-- US t200 za 04458 027240 03 FILLFR PIC X(1201 VALUE SPACES. DNM=145-26 BL=45 E80 3769 US 120C 20 04459 027250* .@_0446)---02 7?60@ 03-F ILLFR---PIC-9( 101- COOO.P-3 VALUIF----9;qqq9qq99q_.__ nNM-145-26 -BL-45 EFS 3889 - US 6P 04461 027270 03 FILLER PIC X(1201 VALUE ONM=145-29 BL-45 EFE 3895 US 120C 4.1 2, 143 33 04462 027?80 3' 04464 027100- 04465 027310 03 FILLER PIC X(120) VALUE SPACES. ONN-145-30 OL-45 F76 4015 US lZoc 04466--077320-03-FILLER-- PIC-Xf VALUE -SPACES.-.------ FEE- 4135 US 120C 35 04467 027130 03 FILLER PIC X(1201 VALUE SPACES. DKM=145-33 OL-46 066 3937 US 120C it,) 04468 02734)* --04469-- 4)? 73 5()----03 -F ILL ER---PI C-_9 1 -10) -C-OMP-3 VALUE-- 9999999999o----------------------DNM-145-35---BL-46 OOE- 3817- US 6P 04470 027360 03 F LLER PIC X 4 1201 VALUE ONM-145-36 BL-46 OE4 3811 US 120c 4t a 42 04471 027370 4)4472 --0273PO----- 04473 0? 73 90- 04474 0?7409 03 FILLER PIC X(120) VALU; SPACES. ONM-145-37 BL-46 ISC 3691 US 120C 4_6441"pr-0274 1) -----03- F ILL ER - PI C- X I t 201----- VALUE SPACE S.--- 1.04 3571-- US t20C 04476 077420 03 FILLER PIC X1120) VALUE.SPACESo ONN-145-40 BL-46 24C 3451 US IZOC :7 .1 04 47 7 027430* -()4478---02744t)----03-FILLER-PIC 9110)-CCMP-3 VALlIF--r'999999999- - ---- - --DhM=I45-42-8L=46 2C4 3331- US 6P-- 01 ()4179 027450 03 FILLER PIC X 120) VALUE ONM-.145-43 BL=46 2CA 3325 US 120C ()4440 02 744SO 9 "' 4 30- @@0443 1 44 .12 443 3- 04434 044 -35 7F 443 02-74 70---- - -04 4 9 1- :2 04482 027491- 04493 027490 03 FILLER PIC X(120) VALU; SPACES. ONM-14S-44 BL-46 342 3205 US 120C .7'l 91 W100 10.43. t2 APR 3#1984 TNT NAME BASE DISP RLOI DEFINITION. 023" -3-FIUER-- Pl-C-X+l-")----VALUE 04484-- -------DNM-14S-46---BL*46-38A-3089-OS -1-20C@ 04405 027510 03 FILLER PIC X1120) VALUE SPACES. ONM-145-47 OL-46 432 2965 US 120C 04486 027523* T---G44AT---1D2?53D- 01--F ILL ER-Pff;--9 1-1 0-1-COW-3-- VAL Uf--- 9999999999.-_ ON14-145-49' OL-46- 4AA --2845 DS -6P 0 04488 0?7543 03 FILLER PIC X(120) VALUE ONN-146-00 BL-46 480 2839 US 12 C 044.R9 0?7550 04 4 9 0 0 2 7 5 6f) 04491 02 7570- 044Q2 027580 03 FILLER PIC X(120) VALU; SPACES. ONM=146-01 BL-46 528 2719 US 120C 120) --VALUE -SPACES. D%Mt-146-02--BL=46 SAO 25,99-- US IZOC-- 04494 027601 03 FILLER PIC X(120) VALUE SPACES. DNM-146-04 OL-46 618 2479 OS 120C 04495 027610* @--0449&--n27620---03-.FILLER---PIC--19(-101--COMP-1-VALt)E---9999999999d---------------- DNM-146-05---BL-46-690---23S9---DS 6P -OT US 04497 0?7630 03 FILLER PIC X(1201 VALUE ONM=146 BL=46 696 235@ 120C 044q3 077640 16 04 4 9 9 0 2 76 5 0 17 04500 0276bO- 04501 027671) 03 SPACES. 0 21 I FILLER PIC XWO) VALU ONM-146-08 BL=46 70E 2233 US 12 C s I zOC 24 02 76 83 - ----03 FILLER---PtC X ( 1201 -------VALUE -SPACES. ONk- t46-09-.- OL-46 7 86 2113 0 450' FILLER PIC W(120) VALUE SPACES. ONM=146-11 BL-46 TFE 1993 US 120C 2@ 0 3 n77690 03 27 04504 0:07700* 505--- 0277P) -----Ol F I LL ER--- P I C-9 ( 10)- COMP-3 VALUE-- qq999999"..___-.__..__-__ ONM-146-12-- RL-46 876 -1873-- OS 6P 04506 027720 03 FILLER PIC X11201 VALUE DNM-146-14 BL=46 87C 1867 OS 120C 3c 04507 027730 . ..... ...... 04 Sn8 ID? 774(V 33 04509 027750- So - 2 33 27, 04510 0?7760 03 FILLER PIC X(t20) VALUE SPACES. DNM*146-15 BL=46 8F4 1747 r)S 120C 77 70 -- 03-,F I Lt ER--- PIC -X 11201 VALUE SPACES.- ONH-146-16--BL-46 96C----t627-`-OS 120C-- - - 37 Aul 04-512 0277130 03 FILLER PIC X1120) VALUE SPACES. DNM-146-18 BL-46 9E4 1507 US 120C 04 5 t 3 0277110- j,; 4)4 S14---n? 7800---03-- F ILL ER - - PIC --9f 10)- COMP-3- VAL UE ---9999999999* DKM-146-19 BL=46 A5C--1387- US 6P t 045 1 'i 027810 n3 FILLER PIC X(1201 VALUE ONM=146-2t OL-46 A62 t381 US t20C 04 "S 16 027820 04 1; 17-- 02 78 04518 027940- 04519 027q5O 03 FTLI.ER PIC X(t20) VALUE SPACES. ON14-146-22 BL-46 ADA 1261 US 1.20C 47 04520---- 02 7P6-1 ----03- F ILLER-- -PIC- -X 1 1201 ------VALUE -SPACE So ------- ONM-146-23--,-BL-46-852---1141--DS 12 OC 045?1 027170 03 FILLER PIC XII?D) VALUE SPACES. ONM=146-25 BL-46 BCA 1021 US 120C 04572 027890* -04573----0?7890-----O'I-FILL-ER PI-C--9fI0) COMP-3-VALUE---,99999999".r--------------------- ONN-146-26.-BL-46 C42 0901 --DS 6P 20C 41 04524 027901 03 FILLER PIC X(1201 VALUE ONM-146-28 BL-46 C48 0895 US I 12 04525 027910 se 44 04527 0?7()'10- ta 04529 0?7040 03 FILLER PIC X(120) VALUE SPACES. ONM-146-29 BL-46 CCO 0775 US 120C n4 1) 29----0? 7950----03-f- ILL ER--PT C-- X 1 t20)------ VALUE SPACES. ONM-146-30 BL-46 038-- 0655 -05 120C 04530 02796f) 03 FILLER PIC X1,120) VALUE SPACES. ONM=146-32 BL-46 1300 OS35 US 120C 82 63 04531 02 79 70 4S 1. 04533 02 7999* to 04534 * * * * * * * * * * * * * * * * * * 0 * * * d7 ITION ,OC_ ,OC I'@----04595--f)28()If)*------T-ABLC--NOW--C-ONTAIN"05 ENTRIES----- 03/25/83--* 04536 02R0200 + Oll ALL-q ENTRIES 0 92 W100 10.43.12 APR 391984 INT NAME BASE DISP RLOI DEFINITION DNM-146-33--8Lu44 FCS--0001 -OS-OCL7776 04539 028050 03 LOC-WITH-43-138-STATIONS OCCURS 16 TIMES ONM-146-38 OL-44 FC8 0001 OS-OCL486 3 04540 078060 ASCENDING KEY LOCATION-3 -.04541- 02807f) -----INDFXE9 BY 4 5 64542 028080 05 LOCATION-3 PIC 9(101 COMP-3. DNM=146-42 BL=44 FM 0001 DS 6P a 04543 028090 05 STATION-3 OCCURS 96 TIFES INI)EXED BY STA-3-IX ONMsI46-47 BL*44 FCE 0007 DS 5C 04 544--.02 8100----- P I C X51 7 04545 07 8 113 a 12 zol 21@ Z 231 2 33 33 .411 3.1 3. 40 Z3! 441 :a 9' @,,.,-74 3 4539 52 4! 4 7j 93 NMI DO 10.43.12 APR 391984 HEX ADDRESS OF VERBS ,T--04547--**00992,)-PP.nCFr)URE-DIV,ISIO$i* 09680000 04548 009910 000-CnNTR13L-SECTION. 2 09690000 1 1 04549 00qq40 MOVE 1SORTMSGm TO SORT-MESSAGE. 09700000 027970 -r-04550- 00,995D---SOR T-SIORT-F ILE -ASCEND ING- KEY 4 ()4551 009960 SORT-TYPE 09720000 04552 009970 SORT-ACTION 09730000 r-f)4553---009980----fNPUT PRf1C EDUR E-00S-PRE-SORT-PROCES SING ---09740000---- 041554 00qnqO OUTPUT PROCEDURE 024-P(ISY-SORT-PROCESSTNG. 09750000 04555 o1r)"103 GOBACK. 09760000 02?A32 2 -1-0--04556-0100 Ili 04557 01002D 001-CONTROL-SECTION-EXIT. 09780000 04558 OtO033 EXIT. 09790000 027A60 15 04559----010040*------- 09600000 04560 01005f) 305-PRE-SnRT-PROCESSING SECTION. 09910000 04561 010060 OPEN INPUT ENVIR-PRELOAD-FILE. 09820000 021A60 4-1 --04562---010070-------nPEN OUTPUT- ERROR-RPTo 09830000-- 02?A9A----- 04563 01 008c) MOVE TURN-OFF TO DETAIL-LINF-WRtTTEN--SW. 09840000 027AD4 04564 0100 qo MnVE CURRENT-OATF TO R2-RUN-DATE. 09850000 027ADA 045695 7-010103----- PERFORM 212-WRITE-RPT2-ERR-HEAOING*---------- 09360000-- 02 7AEA----- 04566 010110 SET F-L-IX TO 1. 09970000 a27BOA 04567 010120 PERFnRM (.)OB-READ-14-LOAG-ENVIR-PRELOAD 09800900 027810 @,-,-1)4568 0101 UNT IL -ENT)-OF-ENVIR-PfkEtOAD. -09890000-- - - - ogqooooo 04569 010143 PERFORM n09-INIT-RFST@ENVIR-PRELnAO 027842 2) x! 04570 010t5o VARYING FPL-IX FRCM EPL-IX BY I oq9toooo UNTIL EPL-IX GREATER THAN N8R-OCCURS-ENVIR-PRELOA04--- - 0992 0000 iii . 04.572 010170 CLOSE ENVIR7PPELOAP-FILE. 09930100 027B9O 04573 010180 nPFN INPUT TPANS-FILE. oq940000 027C14 .`r)4574----01n)Q!)--PFRFf)RM 01?-RFAf.)-TRANS-tiNTIL-END-CF-TRANS-i---- -___----------_709950000 02 7C4E i 04575 010200* 09960000 04576 010?10 006-READ SECTION. 099TOO00 09930000 32; 0457A ()10?30 008-RFAn-N-LnAn-ENVfR-PRELOAD. oqq9oooo 0457q OtO?40 READ ENVIR-PRELOAD-FILE INTO WK-FNVIR-PRELOAD@-REC 10030000 027C76 33 1D451,R0---010?5D-------AT FN)- MOVE- HIGH-VALUES-10 WK-ENVIR-PRELCAO-KEY.--------tOOIOOOO ---- 027CAS----' 04581 010?60 IF FND-OF-ENV I R- PR F LOAD 10020,100 027CS2 36'! 04582 010270 NEXT SENTENCE 10030000 -------ELSE- 10040000 71 045P4 010293 IF WK-ENVTR-PRELOAD-KEY GREATER THAN SEARCH-PRELOAD-KEY 10090000 027CCC MOVE WK-ENVIR-PRELOAD-KEY TO SEARCH-PRELOAD-KEY 10060000 04589 oin3ol 027CO6 T@[--04 586 0103 --MOVf-WK-ENV IR-PRELCAD-REC - TO- 1007 0000 027CDC 41 04587 010323 TAB-ENVIR-PRELOAD-ENTRY (EPL-IX) 10080000 04588 010330 SET EPL-IX UP BY 1 10090000 027CF2 4J: 1--- 04 589 -0103413------ ELSE-.---- 10110000 027004 .3 045qO 010350 nISPLAY ISEQUENCE FRROP OR CUPLtCATE ENTRY 1 -10100000 Al 04591 010360 IIIN PRELOAD FILE. 10120000 ENTRY WAS-'- SEARCH-PRELOAD-KEY-- 10130000 04593 010380) CURRENT ENTRY IS I WK-ENVIR-PRELOAD-KEY t0140000 04594 010393 ADD I TO CAUSE-ABENDo 10150000 02704A 045q6 0111410 1)09-INIT-REST-ENVIR-PRELOAr). 10170000 04597 011`1421 MOVE HIGH-VALUES TO TAB-ENVIR-PRELOAn-KEY (EPL-IXI. iotsoooo O27D66 -7 '04 5 9 A 010 4 10 10190000 2 04599 010443 912-READ-TRANS. 10200000 04600 010450 QCAD TRANS-FILE INTO NMIOOREC 10210000 0270ado IJ a 94 NMIO0 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS 04601 04607 010470 MOVE "IGH-VALUES TO NMIOOREC. 027082 10230000 04603 010483 IF ENVIR-RECORD 10240000 027OBC -017 ;_rO46O4-0I-O4919---PFP FORM 3 04605 010501 ELSE 10260000 04606 oln5lo If REPLIC-RECORD 10270000 0270EB PERFORM ----10280000----- 027[)FO----- 7 1 04608 010530 ELSE 10?90000 to 0460q OIn54O IF SPECIES-RECORD 10300000 027EI0 0461 O-@l 0550 -------------PERFORM 020-SPECIES-PRE--FOIT- 0000 - - 027El8-------- 2 0. 13 04611 . 010560 ELSE 10320000 14 i II . I . .5 04612 010570 IF INDIV-PECORD 10330000 027E38 L-04 613-0101, P FR FORM 021-INGIV-PRC--EOIT----------10340000-- --027E40-- 04614 010599 ELSE 10350000 04615 010600 IF ANNULUS-RECORD 10360000 027E60 PERFORM 022-ANNULUS-PRE-C-01-T------------- 10370000-- 027E68 04616 04617 0106?0 ELSE 10380000 7 04618 n10630 IF TAG-RECAPTURE-RECOPD 10390000 027EBC 027E94 04619-- -- --PERFORM- 023-RECAPT-PRE-E-DlT@----- - 10400000 01 o650 IF NOT END-CF-TRANS 10410000 027EB0 201 046?0 i a 2, 04621 01 (3660 IF SEOUFNCE-NUMBER OF KMtOOREC NOT EQUAL SPACES 10420000 027EBC 27 04622--010670-----PERFORM- 013-PRE-EOIT-KEY t0430()OO- 027ECE---.--- le IF DUD-INDTV-RECORD6 10440000 027EE6 23 04623 0106FIO 1 04624 010690 MOVE TR-DAYA TO OUP-RECORD-DESC 10450000 027EF2 __--046?5---0IO7OD------- MOVE LTNE-NUMBER OF-NMICOREC 10460000 027EFB 04626 010713 LINF-NUMBER-CNTR 10470300 N1 04627 010720 MOVE *49 TO RECORD-TYPE Or- N;4100RFC 10480000 027FO2 ;-.r---0462 %1-01()73t) 'SPACES TO INDIV-nETAILS OF NMIOOREC--.------ 10490000 027F06 if it 0 04629 010740 PERFORM 014-RELEASE-CUP-INDIV-REC6 10500000 027FIO 04610 010750 VARYING WK-SUH FROM I BY 1 10510000 04 611- 0 10 7 60 - UNT It. Wf(- SUB GREATER THAN t4t 10 5 2 0 0 0 0 - - - 046i2 Oln770 OR DUP-INDIV-CNT6 (I-K-SUBI SPACES 10530000 3'1 04633 0107RO ELSE 10540000 A3 )31 ----04634--011)79)-------t-F-DUP-INf)IV-RECf)RD7- 1O5500OD------027F64----- 341 MOVE TR 04635 010,300 -DATA TO DUP-RECORO-DESC 10560000 027FSC 04636 010813 MOVE LINE-NOMBER OF NMIOOREC TO 10570000 027F92 -----LINE-NUMBER-CNTR t,0580000 37i 0463,9 01OR30 MOVE 141 TO PeCORD-TYPE OF hM[OOREC 10590000 027F9C 50 04639 010840 MOVE SPACES TO INOIV-DETAILS OF NMtOOREC 10600000 027FA0 PERFORM 015 -DUP-INDIV -RFLFASE -REC7 10610000 02?FAA 83 04641 010861 VARYING WK-SUR FROM I BY 1 10620000 d 04642 010870 UNTIL WK-SUR GREATER THAN 11 10630000 55 nUP-INDIV-CNT7 4WK-SUBI--- SPACES--- - 10640000 04644 010990 ELSE 10650000 U4 04 010,100 MOVE NMJOORFC TO SORT-REC 10660000 02801E 59 45 60 04646 0109 SORT-REC. 10670000 ---028028--- - 04647 01092 0* 10680000 @62 @_04648 Olng3l) 013-PRE-EDIT-KE-Y. 106qOOOO .63 "@---04649-01094t)-----FXAMINE-SEOUFNCF-NUMBER OF NMIOOREC- 10700000 02801C______ ;9 en i 046';0 010951 PEPLACING ALL SPACES BY ZEROS. 10710000 1 04651 010063 IF NOT ENVIR-RECORD IOT20000 0280SE 5,; all 94 @704 '5()I_ -_ -_ @Z, _I 04602 __()465Z---nj "71 ------- EXAMINE-REPLICAIE-NUMBER OF NMIOOREC 10730000 028066------------ ea 11i 04653 010980 REPLACING ALL SPACES BY ZERCS. IOT40000 701 :431 04654 0141990* 10750000 71 - ---------- 95 N4 too 10.43.12 APR 3vI984 HEX ADDRESS OF VERBS 1 --10760000-- to?? 2 04656 01101) MOVE LINE-NU48FR-CII)TR TO LINt-NUMBER OF NMIOOREC. 0000 02880SE 3 04657 011023 MOVE OUP-[Nr)tV-CNT6 (WK-SUBI TO INDIV-CNT -OF NMtOOREC. tO780000 02 09 4 -i --------10?90000, -- 028004--- 04658--01-103')--MnVE@-f)UP-INDIV-LTH6' (WX-SUB) TO INOIV-tTH OF NMIOOREC.@ 04659 011043 PERFORM 021-INDIV-PRE-Ef)IT. 10800000 028004 6 04660 ott()50* * * * * * * * * * * * * * * * 0 * * * * * * * * * * 10810000 14661-011.061*-THE-OUP REC ASSIGNS THE FIRST LINE-NUMBER---- ---- to920000- 04662 0,11070* ALL SURSEQUENT LINE NUMBERS ARE INCREMENTED BY 1 10830000 0 04663 0 1080* 10840000 :1 @-04664-011091-------Ano -I-TO-tINF-NUMBER-CNTR.----- --t.0850000 -,028OEC-- 13 -REC. 10860000 028102 114 04665 011101 MOVE NMIOOREC TO SORT 04666 01 Ilia RELEASE SORT-REC. 10870000 02810C @7 04668 011130 015-RELEASE-OUP-INOIV-RFC7. 10890030 04669 Oltt4l MOVE LINE-NUMftEP-(NTR TO LINE-NUMBER OF NMIOOREC. 10900000 028124 046 -MnVE--OUP-IN,)IV-CNT7 IWK-SUB) TO INDIV-CNT 70 011150 04671 011163 MOVE DUP-INDIV-LTH7 (WK-SUB) TO INDIV-LTH OF NMIOOREC. 10920000 02814A 04672 011170 MOVE DUP-INDIV-SEX7 (WK-SUB) TO INDIV-SEX OF NMIOOREC. 10930000 02816A 04673---- Of 11 80 ------- MOVE DUP-INDIV-MAT7 (WK-SUB) TO INDIV-MATURE (IF NMlO0RECe-----1094OOOO 02818A------------- 04614 f)l I I fm PFRFnRm 021-INF)IV-PRE-EDIT. 10950000 0281AA 21: 04675 011?0")* * * * * * * s * * * * * * * * * * * * * * * * * * * 10960000 ---04676-- 01121')*--THE DUP RFC-ASSIGNS THE FIRST LINE NUMBER 10970000 04677 01 7 0* ALL SURSEQUFNT LINE NUMBERS ARE INCREMENTED BY 1 10980000 3fl 04678 n11230* 10990000 04679------011241) -------ADD I-Tn LINE-NI)MBER-CNTP.- I 100 00 00 --028Ic2--- 04680 011250 MOVF NMIOOREC'TO SORT-REC. tioloooo O28ID8 26 -REC. 0281E2 35 27 04601 011260 RELEASE SORT 11020000 0468?--OIt27O*-------- 11030000 37 04683 011783 017-ENVIR-PRE-EDIT. 11040000 sa 3JI 04684 OII?QO MOVE PROGRAM-TYPE OF NMIOOREC TO SEARCH-ENVIR-PROGRAN-TYPE. 11050000 0281FA -, @'---04 6 85-- 0113 01 --MOVE -ENV I R-ST AT-NUMBE R OF -NMtOOREC JO SEARCH-ENVIR-STAT-NU4.@- tIO60000 3@i 04686 011113 MOVE IENVIR-START-LOC OF NMJOOREC TO SEARCH-ENVIR-START-LOC. 11070000 028206 42 33! 04687 011321 SEARCH ALL TAR-ENVIR-PRELOAD-FNTRY ttO80000 02,820c 688--011330------WHEN-TAS-ENVIR-PRELOAD-KEY fEPL-IXI-- SEARCH-PRELOAD-KEY---IIQ90000--,, ------- 04699 011140 PERFORM 018-PRELOAD-ENVIR-CATA. 11100000 02825A 04690 011350* ADDED 4/B3 PER EPPERLY BY LRL 11110000 iiF--04691----011365-----tF--ENVIR-GEAR-TYPE-OF NMIOOREC NOT- NUMERIC ---------- 046'12 011370 MOVE TURN-0'4@TO E')IT-FRPOP-SW 11130000 02828C 30! 046n3 011380 MOVE ENVIP-rEAP-TYPU OF NMIOOREC TO INV-GF.AR-caOE t1140000 029292 _O4694-OII19O-------MQVF Nr)N-f11UMER I C-GEAR TO RPT2-FPR-MSG 11150000 OZ8298 04695 011401 MOVE CORR TR-CONTROL TO MSTR-CCNTROL 11160000 02829E 04696 011413 MOVE RECORD-TYPE OF NMIOOPEC TO RECORD-TYPE OF NNtIOREC llt7OOOO 0282C2 0469 - PFR FORM 13 3-MOVF-DAT A-BY- TYPE 04698 011430 PERFORM 179-BU I LO-M ASTER- ERROR Itt9O0OO 0282E4 .51 04699 011440 MOVE TURN-OFF TO DETAIL-LINE-WRITTEN-SW itnoooo 028304. O47O0----OII45D-----M0VE-SPACFS -TO-NMILORFC 112tOOOO 04701 011460 MOVE ZEROS TO ENVIR-GEAR-TYPE OF NM100REC. 11ZZOOOO 028314 52 04702 Olt47O* It230000 04703@ -01 1489 -01 "RFLnAD-FNVTR-r)ATA. 11240000 :01 04704 011490 MOVE TAB-ENVIR-PRFtOAD-FNTRY (EPL-IX) TO W50000 028328 0470c; 011901 WK-ENVIR-PRELOAO-REC. 11260000 -04706-OtI511--if@ ENVIR-(YJRATI0N-OR-AREA OF NMlOOREC-- SPACES 112 70000 o2833E 13 04707 011523 MOVE WK-E-DURATION TO ENVIR-DURATION-OR-AREA OF NMIOOREC.11280000 028350 7. -GEAR-TYPE OF NMIOOREC SPACES 71 ... 41 04708 OtI530 IF FNVTR it290000 028356 Y 2 '74 96 NMIr)O 10.43.12 APR 3,1984 HEX AODRESS OF VERBS -MOV E-WK-E--GE A R-TYPE-TO-ENV I R- GE AR-T YPE---OF -NMI OOREC 130 00 00- - 04710 01, 1559 IF ENVIR-GEAR@-PARMI OF hmlonRFC - SPACES U310000 02836E 04711 01 1960 MOVE WK-E-GEAR-PARMI TO ENVIR-GEAR-PARNt OF NMIOOREC. 11320000 028380 -,@-04-71 2-0115 70-----if -ENV I R-GFAR-PAR MZ - OF- -N4 I O0RFC -- SPACES ---11'330000-- 04713 011590 MOVE WK-E-GEAR-PARM2 TO ENVIR-GEAR-PARM2 OF NMIOOREC. 11340000 028398 5, 04714 011590 IF ENVIR-GFAR-PARM3 OF NM100REC z: SPACES 11350300 02839E 04715-0116M---- MOVE WK-E-GFAR-PARM3 TO ENVIR-GEAR-PAPM3 OF-NMIOOREC. - lt360000- 0283B0----------- 7 i 9 04716 011613 IF E14VIR-RIG OF NMIOOREC = SPACES 11370000 028386 04717 011620 MOVE WK-E-RIG TO ENVIR-Rir OF NMIOORE-C. 11380000 0283BE 04718---011639-------If@-E-NVIR-TYPE-OF-TnW OF NMlOOPEC - SPACES 7@___04719 - 011640 MOVE WK-E-TYPE-OF-TOW TO ENVIR@TYPE-OF-TOW OF NMIOOREC. 11400000 0283CC t4 1 04720 0 11'6 51 IF ENVIR-BOTTOM-TYPE OF NMtOOREC = SPACES 11410000 028302 12 WK-F-anTTOM-TYPE TO ENVIR-LIOTTOM-TYPE-OF NMI00RFC_- 11420000 - 0283E4----- 04772 011670 IF @NVIR-ROTTnM-PROFILE OF NMIO0RFC = SPACES 11430000 0283EA 04723 011681) MOVE WK-E-BOTTOM-PROF TO ENVIR-BOTTO4-PROFILE OF NMtOOREC.11440000 0283F2 -1@-04724-011693----IF ENVIR-DFPTH OF NM10OREC = SPACES t1450000 0283F8 a . 171 04725 - 011700 MOVE WK-E-DEPTH TO ENVIR-OFPTH CF NMIOOREC. 11460000 02840A 04726 011713 IF ENVIR-STATE-ALTER OF NMtOOREC - SPACES 11470000 028410 23 J47?7----O117?f)------- -- MOVE WK-E-STATE-ALTFR TO FNVIR-S7ATE-ALTER-or- NMIOOREC.--- 1148 0000-- 028418 04718 Otl730* 11490000 047?() 011741 019-RFPLIC-PRE-EnIT. 1500000 21f I 1510000 - --- ------ - @)4 710- 01 1750*----FXPL IC I T DEC IMALS PERMITTED 14 THESE TWO F IELDS-SO EDIT--- I 04711 011760* CHANGED TO PERMIT THEM TO PASS HERE - LRL 1/26/83 11520000 04732 (111770 EXAMINE RP-COLLECT-Sl 7E OF. 11MI00RIC REPLACING ALL SPACES 11530000 0284.24 .31 -43 11540000 -- z,; 04f RV ZEROS. 2 04,734 n1179) MOVE RP-Cr7LLFCT-SIZE OF NMIOOREC TO TEST-FIELD. 11550000 028446 114731, 01111011 EXAMINE TEST-FIFLO REPLACI N G ALL 1, 1 Y 90*, 11160000 02 44C B n4736--Ol 180 ------IF--TEST-FIFl.n NOT NUMERIC 11570000 02846E awl 04 7'@ 7 OIIA?O MOV@ ZEROS TO RP-COLLECT-SIZE CF NMIOOREC. 1158cooo .02847C 04738 OlIP30 EXAMINE RP-SAMPLE-SIZE OF NMtOORFC REPLACING ALL SPACES 11590000 029486 BY 7EROS.- 11600000- 04740 011850 MOVE RP-SAMPLE-SIIE OF NMIOOREC TO TEST-FIELD. 116tOOOO 0284AS It 04741 0 960 EXAMINE TEST-FIELD REPLACING ALL 1.1 BY 109. 11620000 0284AE -04742-01 I87,)--IF--TEST-FIFLf)-MOT -NUMERIC 11630000-- - --0284DO--- 04743 OlIA81 MOVE ZEROS TO RP-SAMPLE-SIZE (IF NMIOOREC. 11640000 0284DE 04744 olt991* 11650000 ---011900--020-SPECTES-PRE-EDIT-.-,------ @51_04 74 5 --- ---- 11660000- i7 i (14746 011,113 IF SPF-TnTAL-CNT OF NMIOOREC NOT NUMERIC 11670000 0284EF 391 04747 Ot 19?11 AND SPE-TnTAL-CNT OF NMIOOREC NOT EQUAL SPACES 11680000 04748-011191@0 ---fXAMINF-SPE-TOTAL-CNT OF NMIOOREC 11690000 02850E---- n4749 Ol 9 0 REPLACING LEADING SPACES BY ZEROS. 11700000 .21 04750 nlig5o IF SPE-TOTAL-WGT OF NMICOREC NOT NUMERIC 11710000 028530 55 0111)69- ANO-SPE-TOTAL-WGT OF NMIOORFC NOT EQUAL SPACES--------------- 11720000 - ------ _@e 17 i 04792 01197r) EXAMINE SPE-TnT&L-WGT OF NMIOOREC 11730000 028S50 04 75 3 0114180 REPLACING LEAOING SPACES BY ZEROS. lt740000 -04754--011990--If--SPE-SAMPLE-CNT OF NMIOOREC NOT NUMERIC 11750006- -----028S?2---------------- '71 04755 01?003 AND SPE-SAMPLE-CNT OF NMIOOREC NOT EQUAL SPACES 11760000 04756 n 12,,) 1,) EXAMINE SPE-SAMPLE-CNT OF NMIOOREC 11770000 028592 04 7 5 7- 012 0 2 r@ - - -- RFPLACING LEAOING SPACES BY ZEROS.- 11780000 5W 04758 01?033 IF SPF-SAMPI-F-WGT OF NMIO0RFC NOT NUMERIC 1179000() 0285B4 1---04- 04759 012040 AND SP@-SAmPLE-WCT OF NMIOOPEC NOT EQUAL SPACES 11900000 i-i,,-04760-012050-------EXAMINE SPE-SAMPLE-WCT OF NM100REC IlStOO00- 04761 012n6O REPLACING LEADING SPACES, BY ZEROS. 11820000 70 04762 012070 IF SPF-SURSAMPLE-CNT OF NMIOOPEC NOT NUMERIC 11830000 0285F6 711 i73 17 97 N4100 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS -763 0171)8f)--AND-SPE-SUSSAMPLE-CNT--OF- NMI OOPEC--NOT -EQUAL SPACES------ -1184000a-- 14764 012093 EXAMINE SPE-SUSSAMPLE-CNT OF NMIOOREC 11850000 028616 04765 012100 REPLACING LEADING SPACES BY ZEROS. 11860000 -WGT OF-NMIOOREC NOT NUMERIC- SPF-SUBSAMPLE .04767 01212) AND SPE-SURSAMPLE-WGT OF NMIOORFC NOT EQUAL SPACES 11880000 04768 012130 EXAMINE SPE-SUBSAMPLE-WGT OF NM100REC 11890000 028658 7__f)4769--f)1?I4')---- --------REPLACING LEADING SPACES BY ZEROS.- 04770 017150* FOLLOWING TWO PREEDITS AnDED 4/83 LRL 119io0oo 04771 012163 IF SPE-NRR-TAGGEDI OF NMIOOREC NOT NUMERIC It9?oooo 02867A f)4772-- -012170---- -AND-SPF-NBR-TAGGEDI OF- KM100REC NOT FQUAL- -SPACES I t930000 04773 012180 EXAMINE SPE-NBR-TAGGEDI OF NMtOOREC 11940000 02869A 04774 012lqO REPLACING LEADING SPACES BY ZEROS. 11950000 - '---04775-t)12?00-----IF--SPE-NBR-TAGGEE)2 OF NM100PEC NOT NUMERIC 11960000- ---0286BC :3: 04776 012713 AND SPF-NnR-TAGGED? nF KMIOOREC NCT EOIJAL SPACES 11970000 04777 012220 EXAMINE SPE-N8R-TAGGED2 OF NM10OREC 11980000 0286DC 04778----0 ?733-- REPLACING LEADING SPACES BY 04 779 012240- 12000000 22 1 al 04780 012250 021-INDIV-PRE-EDIT. 12010000 23 ,,-,--04781---012261,)-------Tr--INDIV-CNT OF NMIOOREC NOT NUMFRIC 1202OnO0 028704------ 25 1 04782 017770 AND INDIV-CNT OF NMinOREC NOT EQUAL SPACES 12130000 26. 20 Z,i 04783 C122RI EXAMINE INDIV-CNT OF NMIOOREC 12040000 028724 22 -f)4784--017?90---------------REPLA('ING ALL SPACES-BY ZEROS. -----12050000------. 047893 012100 IF INDIV_ LT14 OF NMIOOREC NOT NUMERIC. 12060000 028746 1 31 04786 01?31,') AND NOIV-LTH OF NMIOOREC NOT EQUAL SPACES t207OOOO 3 2--@----04787- --ill 232) NF, INOI V-LTH OF NM100REC-.-------- 12080000 - ---028772----- 5; . 0479R 012333 REPLACING LEADING SPACES OY.ZEROS. 12090000 27; 04789 012340 IF INDIV-AGE OF NMIOORF.C NOT NUMF:RTC 12100000 028798 2@5iO47qO-f)12359-------AN0 INDIV-AGE OF NMIOOREC NnT EQUAL SPACES 04791 012360 EXAMINE INDIV-AGE OF NMIOORFC 12t2OOOO 028788 35 04792 012370 REPLACING LEADING SPACES BY ZEROS. 12130000 ii!----04793----012380---If:--INDIV-SPAWN-4ARK-CNT OF NMIOOREC NOT NUMERIC----- t2140000 ---02B?DA----- 40 32: 04794 012390 AND INDIV-SPAWN-MARK-CNT OF NM100REC NOT EQUAL SPACES 12150000 33' 04795 0124ni EXAMINE INDIV-SPAWN-MARK-CNT OF NMIOOREC 12160000 0287FA -04706-f)12419-----REPLACING-LEADING-SPACES-eY 04797 012420* 12180000 3'1 04798 012430 0??.-ANNUL1)S-PRE-FDIT. 12190000 17 a -i, r 04799--01?440------]F-ANL-LTH-TO-EDGE OF NMIOOPFC NOT NUMER IC - ------ 12 2 0 0 0 0 0 0 2 8 8 2 2 49 04HOO 01245) AND ANL-LTH-Tn-EDGE OF NMIOORFC NOT EQUAL SPACES 12210000 10 0 1 2469 EXAMINE ANL-LTH _ TO-EDGE OF NMIOOREC 12220000 028842 51 04801 T.F-04802 01?470--- ---REPLACING-LEADING SPACES BY ZEROS#--- -----------12230000-- 52 :3 ()48()3 012480* ADDED 3/83 By LRL 12240000 -14 04804 012490 IF ANL-LTH-TO-EnGE OF NMIOOREC EQUAL SPACES 12250000 028864 515. ZERnS-TO ANL-LTH-TO-EDGF OF _NMtOOREC.--------------12260000--- -028876----- @-3:---04 805 -012 iOJ MOVE 04RO6 012510 IF ANL-AGE OF NM100RFC EQUAL SPACES 12270000 028880 45 048n7 012923 mnvE zrpnS TO ANL-AGE OF NMIOOREC. 12230000 028892 .---04808-012530*'--AODEr)- 4/93 -tRL--- 1229 0060 04809 012540 IF ANL-MARGIN-INCR OF NMtOOREC NOT NUMERIC AND 12300000 02889C 02, 048tO 012551 ANL-MARGIN-INCR OF NMIOOREC NOT EQUAL SPACES 12310000 63 48 EXAMINE ANL-MARGIN-INCR OF N141COREC REPLACING---- 12320000- -- 02688C 04812 012';73 LEAr)[Nr SPACES BY ZEROS. 12330000 04813 012580* 12340000 04814-01-25Q0-1f@AK-91 STANCE nF-NMtOORFC NOT NUMERIC ---------12350000--- -0 2 8 8 D E----- 521 N 1 0 04815 012609 AND A L-DISTANCEI OF NMtO REC NOT EQUAL SPACES 12360000 04816 012610 EXAMINE ANL-OISTANCEI OF NMIOOREC 12370000 0288FE 98 NM 100 10.43.12 APR 391984 HEX ADDRESS OF VERBS 114 t-2625-- ----REPLAC-ING LEADING SPACES-1!Y ZERrjS.-------- --t2380D00---__. -- - ------ 04818 012630 IF ANL-DISTANCE2 OF NMIOORFC NOT NUMERIC 1.2390000 028920 Z. 04819 012640 AND ANL-DISTANCF2 OF NMIOORFC NOT EQUAL SPACES 12400000 3 0482*---OI2651--------FXAMINE ANL-DISTANCE2 OF NMI00REC DODO-- - 028940------ 51 04821 012660 REPLACING LEADING SPACES BY ZEROS. 12420000 04872 01267) IF ANL-OISTANCF3 OF NMIOOREC NOT NUMERIC 12430000 028962 04 8 2 3. Ot2680-----AND-ANL-DISTANCE3 OF NMIOOREC NOT EQUAL SPACES------------- ---12440000- 71 0126qO EXAMINE APJL-DISTANCE3 OF NmlCCREC 12450000 028982 04824 n4875 0127t)O RrPLACING LEADING SPACES VY IEROS. 12460000 -04826---012710---IF--ANL-niSTANCE4 OF NMIO0REC NOT NUMERIC 12470000 0289A4------------------__' 04A77 012720 AND ANL-OISTANCE4 OF NMIOOREC NOT EQUAL SPACES 12480000 048?8 012730 EXAMINE ANL-OISTANCE4 OF NMIOCREC 12490000 O289C4 -.---04829 0 12 7 43 REPLAC I NG L FADING SPACES BY ZEROS.---- 12500000-- 04P3O 012750 If AML-DISTANCE5 OF NMIOOREC NOT NUMERIC 12510000 0289E6 lei 04A31 012760 AND ANL-OISTANCE5 OF KMIOOREC NOT EQUAL SPACES 12520000 --04832'--012770------@-----'FXAMfNE ANL-DISTANCE5 OF NMIOCREC 04833 n12780 REPLACING LEADING SPACES BY ZEROS. 1254.0000 04334 012790 IF ANL-DISTANCE6 OF NMIOOPFC NOT NUMERIC 12550000 02BA28 le 04 835- Of ?ROO- ---AND -ANL-1) I S TANC E6 OF NMIOOPEC NOT FOUAL - SPACES 125@60000 04836 0 12 R 11 FXAM114E ANL-DISTANCF6 OF NMIOCREC 12570000 02BA48 n4 8 3 7 01 ?420 REPLACING LEADING SPACES BY ZEROS. 12580000 2z IZ590000 028A6A@-------- ---012830------IF-ANt-DISTA@ICE7 OF NMIonREC NOT NUMERIC 04839 012849 AND ANL-DISTANCE7 OF NMInOREC NOT EQUAL SPACES 12600000 23 241 04840 012850 EXAMINE ANL-DISTANCE7 OF NM100REC 12610000 028ASA 0484t -12620000-- REPLACING LEADING SPACES BY ZEROS. 04842 012,170 IF ANL-DISTANCE8 OF NM100REC NOT NUMERIC 12630000 028AAC 04843 0 12 8 8 1 AND ANL-DISTANCF8 OF NMIOOREC NOT EQUAL SPACES 12640000 -DISTANCE8 OF NMIOOREC 12650000- 02 8ACC '-04844-0!21@90---- --EXAMfNE-ANL 04845 01,1-03 REPLACING LEADING SPACES BY ZEROS. 126600DO 04846 012910 IF ANL-nISTANCF9 11F NMIOOREC NOT NUMERIC 12670000 028AEE i7--04847---012920----AND-ANL-DISTANCF9 OF NM100REC NOT FQUAL- SPACES---.---------- 04848 012930 EXAMINE ANL-OTSTANCE9 OF N410OREC 12690000 02800E n484Q 012941 REPLACING LEADING SPACES 9Y ZEROS. 12700000 -048'iO----01?950-----TF--A@IL-DISTANCEIO-CF-NMli)OREC NOT NUMERIC AND ANL-DISYANCE10 OF NMIOOREC NOT EQUAL SPACES 12720000 04851 012961 le 0485? (112970 EXAMINE ANL-OISTANCEIO OF NMtQOREC 12730000 028850 LEADING SPACES By I EROS. 1274 0000----- -- 0413-54 0121)93 IF ANL-DISTANCEII OF NMIOOREC NOT NUMERIC 12750000 028072 04955 013103 AND ANL-DISTANCEII OF NM.IOOPEC NOT EQUAL SPACES 12760000 04856----t)1-101()---------EXAMINE-ANL-DISTANCEII OF-NMICOREC 12770000---- 028892 04857 011021 REPLACING LEADING SPACES BY ZEROS. 12780000 04658 013033 IF ANL-DISTANCE12 OF NMIOOREC NOT NUMERIC 12790000 028BB4 04 8 5 9 O13040---AND ANL-DISTANCE12 OF NMIOOPEC NOT EQUAL SPACES------ 12800000 04860 013050 EXAMINE ANL-DISTANCE12 OF NMt(30RFC 12810000 028804 04861 013060 REPLACING LEADING SPACES BY ZEROS. 12820000 - 04862 --ot3fiT,)--f-f@-ANL-nfSTA@fCC13-(7F NMIOOREC NOT NUMERIC 12830000 46 c 04863 013083 AND ANL-nlSTANCE13 OF NMIOOREC NOT EQUAL SPACES 12840000 04964 oisono EXAMINE ANL-DISTANCE13 OF N410OREC 12850000 02SC16 f3l REPLACING L EADING SPACES BY ZEROS.-- 12960000 04R66 013110 IF ANL-DfSTANCE14 OF NMIOOREC NOT NUMERIC 12970000 02BC38 04 867 013123 AND ANL-OISTANCF14 OF NPA00REC. NOT EQUAL SPACES 12880000 04f168---f)1-3130-----EXAMINE-ANL-niSTANCE14 OF NMICOREC 12990000 028CSS----- 04869 013140 REPLACING LEADING SPACES BY ZEROS. 129()r)000 04A70 0131-50 IF ANL-DISTAPJCEI5 OF NMIOOREC NOT NUMERIC 12910000 (128C?A 99 NMIoO 10.43.12 APR 3vI984 HEX ADDRESS OF VERBS 0487-1--Ot-3t-60------AND--ANL-DISTANCEIS -OF-NMI0OREC NOT EQUAL -SPACES ---12920000-- a 0487? 013170 EXAMINE ANL-DISTANCE15 OF NM100REC 12930000 028C9A 31 04A73 013180 REPLACING LEADING SPACES BY ZEROS. 12940000 ---tF-ANt-nISTANCEt6 OF NMIOOPEC NOT NUMERIC ---028C8C--------- 04875 013703 AND ANL-DtSTANCE16 OF NMIOORFC NOTEOUAL SPACES 12960000 04676 013210 EXAMINE ANL-nISTANCE16 OF NMICOREC 12970000 026COC 04 8 77----Ol 32 20 -REPLACING LEADING SPACES BY 12980000-- 7 013230 IF ANL-DISTANCEIT OF NM100REC NOT NUMERIC 12990000 028CFE a 04R78 04879 01 '4?40 AND ANL-r)t',TA,NCE17 OF NMIOOREC NOT EQUAL SPACES 13100000 04880---- 013?51 ------ EXAMINE ANL-DISTANCE17 OF N1*10OREC 13010000 - -- ---- 02BOtE----------- 0488t 01376f) REPLACING LEADING SPACES BY ZEROS. 13020000 t 4 04882 f)13?70 IF ANL-DISTANCE18 OF NMIOOREC NOT NU4ERIC 13030000 02BD40 04A83-011281 ANL-DISTANCF18 OF NMIOOREC NOT EQUAL SPAC ES t3040000 -- ----- 04qR4 013?q3 EXAMINE ANI-f)ISTANCE18 OF NM100REC 13050000 028060 04985 013103 REPLACING LEADING SPACES BY ZEROS. 13060000 _04AF16---01331')- F-ANL-DISTANCEt9 OF NMIOOREC NOT NUMERIC 1) 4 8 A 7 013320 AND ANL-DISTANCE19 OF NMIOOREC NOT EQUAL SPACES 13080000. 04888 013330 EXAMINE ANL-DISTANCE19 OF NMICOREC 13090000 028DAZ A _ ____ __ L % 1.3100000---- 79@ 04899 013 @40 -- - REP ACING LEADING PACES FY ZEROSV-,--- 04890 013150 IF ANL-DISTANCE20 OF NMI()OPE(: NOT NUMERIC 13110000 028DC4 Of* 89 1 013169 AND ANL-DISTAPJCF20 OF NMIOOREC NOT EQUAL SPACES t3120000 04 892---nt'.3-4 EXAMINE ANL-DISTANCE20 OF NMtOOREC 13130000- 048q3 0133AI REPLACING LEADING SPACES BY ZEROS. 13140000 04894 013390 IF ANL-DISTANCF21 OF NMIOOREC NOT NUMERIC 13150000 020E06 0491)5----013443---ANO- ANL-l)ISTANCE2t OF NMtOOREC NOT EQUAL SPACES 13160000 04R96 013410 EXAMINE ANL-DISTANCE21 OF WAICOREC 13170000 028E26 0481)7 013423 RFPLACING LEADING SP4CFS BY ZEROS. 13180000 35 --04998- 37 28 0134'43------IF--ANL-I)ISTANCF.22 OF NMIOOREC NOT NUMERIC 13190000 Of# 899 n13443 AND ANL-DISTANCE22 OF NMIOOREC NOT EQUAL SPACES 13200000 3a 04900 013450 EXAMINE ANL-DISTANCE?2 (IF Nk4lCOREC 132tOOOO 028E68 30 31 REPLACING LEADING SPACES BY ZEROS. t3220000- 4 32 04902 013470 IF ANL-DISTANCF23 OF NMIOOPEC NOT NUMERIC 1323nooo 028E8A .,; 049n3 011480 AND ANL-PISTANCE23 OF NmIOOREC NOT EQUAL SPACES 13240000 43 33 _04q"(@4- 01141911---EXAMINE- ANL-DISTANCE-23 OF--NMIGOREC 35 04905 013503 REPLACING LEADING SPACES BY ZEROS. 13260000 'a 04qo6 013510 IF ANL-DISTAPICE24 OF NMIOORFC NOT NUMERIC -13270000 028ECC i-,I--04qn7-----013520---,----ANn-ANI.-r)TSTANCE24 OF NMIOOREC NOT EQUAL SPACES 04qO8 013530 EXAMINE ANL-nISTAPNICF24 OF NMIOOPEC 13290000 028EEC 04909 013540 REPLACING LEADING SPACES BY ZEROS. 13300000 04910---0135501---fF-ANL-DISTANCE25 OF-NMIOOPEC NnT.NUMER IC 13310000- 04911 0 13 5 6r) AND ANL-DISTANCE2s OF NMIOOREC NOT EQUAL SPACES t3320000 G4912 013570 EXAMINE ANL-DISTANCE2s OF NMIOOREC L3330000 028F2E RPPLACING LFADING SPACES BY ZEROS.-.-------.- Ei A41 04914 013590 IF ANL-DISTANCE26 OF NMIOOREC NOT NUmERIC 13350000 020FSO t3 04915 0136011) AND ANL-DISTANCE26 OF NMIOOREC NOT EQUAL SPACES 13360000 04916-013610- EXAMINE ANL-DISTANCE26 OF-NMIOOREC ---13370000--- -(IZBF70q 04917 013620 REPLACING LEADING SPACES BY ZEROS. 13380000 63 013619 IF ANL-DISTANCE27 OF NMIOOREC NOT NUMERIC 13390000 O28F92 43 04919 04919---- 013640---------AND ANL-DI ST ANC E27 OF NMI OOREC NOT EQUAL SPACES -1340 0000 04920 013650 EXAMINE ANL-DISTANCE27 OF NMICORFC 13410000 02BF82 04 92 1 013660 REPLACING LEADING SPACES FY ZEROS. 13420000 ---04922---011670---[F-ANL-r)[STAN(.F2R OF NMIOORFC NOT NUMERIC .13430000 -028FD4 521 fa 04q23 013,680 AND ANL-DISTANCE2B OF NMIOORFC NOT EQUAL SPACES 13440000 EXAMINE ANL-DTSTANCF2a OF NM100REC 028FF4 04924 011690 13450000 100 NMIO0 10.43.12 APR 391984 HEX ADDRESS OF VERBS 04925 1 1O0-----REPL-AC- I NG--LEADING-SP ACES BY--ZEROS- --------13460000---- -- --- -3 04926 013710 IF ANL-DISTANCE29 OF NMIOOREC.NOT NUMERIC 13470000 029016 04q2T 013720 AND ANL-DISTANCE29 OF NMlOOREC NOT EQUAL SPACES 13480000 04928---0I-373#3------fXAMINE ANL-DISTANICE29 PF NMIOOREC 13490000--- --*29036------- 049?q 013740 REPLACING LEADING SPACES BY ZEROS. 13500600 04930 013750 IF ANL-DISTANCE30 OF NMIOOREC NOT NUMERIC 13510000 029058 -04931--01-3760---AND-ANL-OISTANCE30. (IF NMIOOREC NOT EQUAL SPACES --.--t3S7OOOO- ---- 04932 013770 EXAMINE ANL-DISTANCE30 OF NMI00REC 13530000 029078 ()4933 013790 REPLACING LEADING SPACES BY ZEROS. 13540000 04934--0 13790------1 F -MUM-OF -S PAW N-M ARKS OF NMtOOREC-NOT NUMER!C -.--13550000-- 04939 . 01390) AND MUM-OF-SPAWN-MARKS OF NMIOOREC NOT EQUAL SPACES 13560000 04936 013RI() EXAMINE NUM-OF-SPAWN-MARKS OF NMIOOREC 13570000 02900A :31 ;----04q37--0I3A20 REPLACING LEADING SPA&S-BY- L3580000 04919 013833* 13590000 A i 049'4q Ot3840 023-RECAPT-PRE-EDIT. 13600000 041940--Ol 3A 511 -----lF-OAYs--nuT nF-NMIOOREC .NOT NtIMERIC AND DAYS-OUT- OF NMtOOREC 13610000 - 0290E2-- 04941 n131360 NOT EQUAL SPACES 13620000 04Q42 - 013870 EXAMINE nAYS-OUT OF NMIOOREC REPLACING LEADING SPACES 13630000 029102 .23 -04()4'4-- 013POo)--------------------------BY ZEROS. 13640000- 04944 Oll8qO* 13650000 04Q45 013900 074-POST-SORT-PROCESSING SECTION. 13660000 -041?46--0139 1 9----PFR FORM -0 3D-HOUSE KEEP ING. ---- - ------- 13670000 02912A Z2i 231 04q4T 013920 MOVE SPACES TO NMIOOREC. L3680000 029142 n4948 013931) PERFORM 100-MAINLINE UNTIL END-OF-MASTER 13690000 02914C 31 O4949-0I3q4r)---- -AND 2.; 04q-)O 013950 PERFnPM 060-END-OF-JOB. 13710000 02916A 04q5l 013q6O* 13720000 0495Z --13730000 04953 013Q80 EXIT. 13740000 0291AA 04954____013990* t375OOOO 040 55 Of 4t)00 - 1.)?R-RFPORT-PROCESS ING -SEC T-I ON*------_----------- 13760000 04956 0140 10 * 13770000 049r,? 014020 o3o-HnusEKFEPING. 13780000 n495n 0 140 nPT-R. ETUR N NOT- -EQUAL- 0----- -------13790000 04959 014,140 DISPLAY 'PROGRAM ABFNDED BECAUSE OF SORT RETURN CODE" 13800000 029tCO I TO CAUSE-ABEND. 13810000 029104 0496a 614050 ADD ii7-04%1-014060 --OPEN -INPUT OLD-MAST. 13820000 ---0291EA 0 4 9 6 2 014970 0 PFN OUTPUT NFW-MAST, UPnATE-RPT, 13830000 029224 04()63 0 1 4080 STRUC-FRR-RPT. 13840000 .3 04 96 4 - 0,1409-3-----MOVE CURRENT-DATEETO RI-RUN-OATE# R3-RUN-DATE.--- 13ASOOOO - 0292AA------ 04965 0 4100 MOVE TURN-ON TO R AD-TRAN-Sw, READ-MSTR-Sw. 13860000 0292CA 04966 014110 MOVE TURN-OFF TO WRITE-RPTI-SW, 13870000 029206 15: ----Oto 96 7 - -- 014120 --- - - WR I TF-NFWMST R- SW, DUMMY-Rn-sw 13RSOOOO ------ 11 04968 014131 PERFORM 202-WRITE-RPT1-UPD-HEADING. 13890000 0292E8 -4@ 41@ 04Q69 014143* PEPFnpm 212-WRITF-RPT2-FRR-HEADING. 13900000 ;@___04q7O-Ol4t5O---PFRFnRM-262-WRITE-RPT3-STRUC-HEADINGi------- 13910000-----029304--@--------------- 04q7l 014160* GET FILE OF-CnmMON & LATIN NAMES IN TABLE THEN SORT THEN 13920000 04972 014170 PERFORM 040-READ-LATIN-TABLE. 13930000 029324 04973 Ot4 80 1394 00 00 ... !@i 04.974 014191 040-RFA()-LATIf+-TABLE. 13950000 47 2 5- Ad 3o i-t 32 33 04975 014203 nPFN INPUT LATIN-F LE 13960000 02934A 04q76 014210 MOVF 1 TO ATIN-Stil ---L3970000 029384------ 52! L s SC 1 04977 014220 PERFORM 04t-READ-TABLE UNTIL EOF-LATIN. 13980000 02938A ::1 04978 014Z33 COMPUTE LATIN-TOTAL - LATIN-SUBSCR 13990000 0293AE 72 :74 !75 HEX ADDRESS OF VERBS lot N"100 10.43.12 APR 3#1984 04980 014250 PERFORM 042-SORT-LATIN-FILE. 14010000 02943E 049PI 014260 IF LATIN-TOTAL LESS 427 14020000 02945A 0498?--Ot477)'--- PERFORM -046-AnD-HIGH@VALUES-VARYING L-ATIN-SUBSCR-r-RCM 04983 014?83 LATIN-SUBSCR BY I.UNTIL LATIN-SUBSCR GREATER 427. t404OOOO 61 04984 014790* 14050000 04 9 A 5 -014100 - 9 4 I-R E AD-T A BL E.- 14060000 04986 014311 READ LATIN-FILE INTO LATIN-NAME-TA13LE (LATIN-SUBSCRI 14370000 029486 2 04987 0143 0 AT ENn 1408000,0 I FROM-LATIN-SUBSCR 14090000 029504--------@ -34988 --- 0143 30 SUBTRACT 04qA9 0 1 4A 40 DISPLAY I THERE WERE B LATIN-SUBSCR ENTRIES 14tOOOOO 029510 12. D49 9 0 014150 0LnAOEO INTO THE SPECIES NAME TABLE 14110000 ---- 04 991---0143 61) FROM MFSPP - 04992 014170 MOVE TURN-ON TO EOF-LATIN-SW. 14130000 02954C 04993 014381 EXA'4INE SPECIFS-NUMBER (LATIN-SUBSCRI 14140000 029552 15, REPLACING ALL- By- 401.@- 14150000--- 761 04995 014400 IF SPECIES-NUMBER (LATIN-SUBSCR) NOT NUMERIC OR 14160000 029592 04996 014413 SPECIFS-NUMBER (LATIN-SIJBSCRI EQUAL ZEROS 14170000 a, -1.)41)97.----014420------------, SUBTRAri-i FROM LATIN-SUBSCR.---------- 14180000- -029586--- 211 0490 8 0 144 33 AOD I TO LATTN-SU9SCP. 14190000 .029SC2 art 909 01444f)* TAOLF CAPACITY IS 427 - OUTPUT MSG AND AVOID AREND 14200000 --IF LATIN-S1fBSCR--EOt1AL 427 1421,0000-- 0295CE------- 05001 014463 DISPLAY I TABLE CAPACXITY FOR MFSPP REACHED AT 427 14220000 029SOA @J 05002 014470 'RECnRns - NO FURTHER RECORDS WILL BE INPUT 14230000 ERRORS MAY RESULT 14240000 ()9064 014490 MOVE TURN-ON TO EOF-LATIN-SW. 14250000 029602 05()()5 014500* 14260000 -@-----051)t)6----f)14910-047-SORT-LAT'IN-FIUE.-- 14?704)00- 05007 014520 MOVE LATIN-TnTAL TO ARRANGE-LIMIT. 14280000 02960E 05018 014533 PERFORM 043-ARRANGE-START.THR(I 045-ARRANGE-END. 14290000 0296tg 14300000 15010 014550 043-ARRANCE-S7AQT 14310000 15011 014560 MOVF 0 TO ARR;NGE-LAST, APRANGE-SSI. t4320000 02963A 05 012-- -0145 70 [email protected] --------14330000--------02964A- - 14340000 05013 014580- 05014 014590 044-ARRANGE-LOOP. t43jOOOO 05016 01461() ATM) I Tn ARqNNGE-SS2. 14170000 029660 05017 014S?,) IF APRANGE-SS2 GREATFR THAN ARRANGE-LIMIT 14390000 02966C_____ 4630---------1,0 -Tn-'045-ARRANcE-ENO-. 14390000 029678 13 05019 014640 IF SPECIES-NUMBER-P [ARRANGE-SSI) GREATER t4400000 02967C 014650 SPFCIES-NUMBER-R IARRANGE-SS21 14410000 05020 05 021---- 014661 - -------- MOVE- ARRANGE-SS1 TO APRANGF-LAST- 14420000-- 0296BA----- njf)22 0146TO MOVE LATIN-NAME-TABLE (ARRANGE-SSI) TO ARRANG.E-HOLD-AREA 14430000 0296CO 050213 01468) MOVE LATIN-NAME-TABLE (ARRANGE-SS2) TO 14440000 0296F2 0 5 0 2 4 -- 0 14 6 q 0 L A T I N- N A M E- T A 8 L E I A R R A NG E - S 5 1+ 14 4 5 0 0 0 0 - -- co 47 n5025 n14701 MOVE ARRANGE-HVLD-AREA TO t4460000 029716 62 05026 014710 LATIN-NAME-TABLE IARRANGE-SS21. 14470000 63 40 z -050?7---014720-----(*.O--Ttw 044-ARRANGE-LOOP.-- 14480000- n5n78 014730* 14490000 01029 01 4740 045-ARRAfjrF-ENO. 14500000 -05030--014750--if-- APRA@irE-LAST--NOT--E0UAL-- 0 029742--- 0503t 014760 MOVE ARRANGE-LAST TO ARRANGE-LIMIT 14520000 029752 05032 014770 GO TO 043-ARRANGE-START. 14530000 029758 71 102 N%4 1130 10.43.12 APR 391984 HEX ADDRESS OF VERBS -----14540000- 05014 014790 046-ADO-HIGH-VALUES. 14550000 05 03 5 01 4R Ol MOVE HIGH-VALUES TO SPFCIES-NUMBER [LATIN-SUBSCRI. 14560000 029762 3 I 45TOO00--- 05036 05037 014820 06n-END-CF-JOB. 1458000.0 05038 014933* 14590000 7 ---05039--(.)I4943*--THF TOTAL--NlJMBER--OF---NFW- MA STERF ILE -RECORDS 14610000 05040 014853* (LISTED AT END OF REPORT 1) WILL BE LESS 01 05041 0148(,0* THAN THE NUMBER OF RECORDS PRINTED ON REPORT 1 14620000 11 ..5047-----014970*-WHIC-H-1-@.'CLUDES--ALL-VALID-A()DS, CHANGES AND DELE-TES4---------------14630000----- - --- -- 050,43 014A80* 14640000 05044 014991 MOVE REC-REJECT-TnT TO RPT-RFJECT-TOT. 14650000 02978C 05 04 5 014 1) 01 MOVE NBR-BEFOPE-UPDATE TO RPT-NfiR-SEFORE-UPI)i 14660000 -029 71 O9n46 014913 MnVE NPR-AFTER-UPOATE TO RPT-NBR-AFTER-UPO. 14670000 029780 05047 014920 MOVE NBR-RECS-ADDED TO PPT-NBR-RECS-ADDED. 146FiOOOO 029TC2 -0504R--0I4930-------"OVE NgR@RECS-CHG TO RPT@-NRR-RECS-04(.. t4690000 029704 .05049' 014940 MOVE NBR-RECS-DEL TO RPT-NBR-RECS-OEL. 14700000 0297E6 n5050 014150 IF RI-LINE-CNT GRFATER THAN 46 14710000 0297F8 PEPFnRM 202-WRYTE-RPTI-UPD-HFAI)ING.-- - 14720000-- 029802 14730000 0298tE 2,1 (15052 0141)70 WRITE t)Pr)-PRT-LINF FRCM REPORT 1-TOTAL-L INEI 05053 014980 AFTER POSITIONING 3. 14740000 -TE UPD-PRT-LINE FRCM REPORT t-TOTAL-L INE2--- 14750000 05054----01499f) ------WRI 05055 015009 AFTER POSITIONING 2. 14760000 05056 015010 WRITE UPD-PRT-LINE FROM RFPORTI-TOTAL-LINE3 14770000 0298AE 3 05057 ---O15r)20----------AFTFP POSITIONING 2. 14780000 n5058 015030 WRITE UPD-PPT-LINF FROM REPORTI-TOTAL-LINE4 14790000 029OF4 Zo 27 0505q 015n40 AFTEP POSITIONING 2 . t4800000 05060--0!5050 ---WRITF UPD-PRT-LINE FROM REPCRTI-TOTAL-L INES---- -149tOOOO 02993A------------- 05061 015063 AFTER POSITIONING 2. 14820000 -PRT-LINE FROM REPORTI-TOTAL-LINE6 115062 1119070 WRITF UPO 14830000 029980 05n63 015083 AFT ER PnS I T I ON I NG 2.--- 14840000 05n64 015090 CLOSE nLO-MAST, 14850000 0299C6 05065 Oi5lol NEW-MAST, UPDATF-RPT, ERROR-RPT9 STRUC-ERR-RPT. 14860000 331 ---1487OO0O------029BF6 38 3 4; 'A 42! @41 @, ji 47 03 45 7@ 30:i @ 0' 'a 05014 3 7 tol Nm 100 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS 0- 10 --tOO-MAf NL I - ----- --14690000 14930000 029cto 05069 015140 IF READ-MSTR n5070 015150 PERFORM 110-READ-MSTR. 14910000 029CIS 3 -0507 60 ---1 F-READ-T RAN--- 14920000--- Q29C30----------@----------- '05072 015170 PERFORM 120-RE-AD-TRANS. 14930000 029C3C 05073 015180 IF NOT 1ENf)-OF-MASTER AND E-ND-OF-TRANS) 14940000 029C54 01, FORM 130-MliTCH-MSTR-TO-TRANS-z------------------- 14950000--- 02()C72 ------- 05075 015700 IF WRITE-RPTI 14960000 029C8A. 05076 015213 PERFOR'A 200-WRITE-RPTI-UPD. 14qTOOOO 029C96 05078 015?30 PERFORM 220-wR[TE-NEWMSTR-REC. 14990000 029CRE i 4 055 17 q nt5240* 1,5000000 [email protected] 110-READ-MSTR.- 15010000 05 0 9 1 015261 IF DUMMY-RD-OFF 15020000 029CE4 05082 015270 PERFORM Itt-REAL-READ 15030030 029CEC 17, 05084 0152')0 PERFORM 112-DUMMY-PFAD. 15050000 029DOC 05085 0153 03 MOVE T1JRN-orF TO READ-MSTP-SW. 15060000 029024 ,a, TEMP CHG FOR-OEBUG -- 05047 015320**** IF SFOUENCF-NUMBER OF NMIIOREC - 180085061 1.5080000 2 01: 05088 015330**** PFAOY TRACr 15090000 -050R9--015340*#**---- - 0 IS PL AY- * KEY=$- MSTR-CONTR()L--,Df--NMI IORECi----------- ---15110000- - 05090 TEMP CHG FOR DEBUG 10125182 *******************I5It0000 24! 05091. 015360* tst2oooo 31 ------ 05r)q2--,Dt5370-1-1-1-REAL-REAn. 1513 DODO--- '05093 015380 REAn OLD-MAST INTO NMtIOREC 15140000 029D34 O90q4 015390 AT ENf) t5150000 27 050q5-0I'5403----- MOVE- HIG4-VALUES--TC- NMI I0REC9-OLOMST-RECi---- 15160000 029D60--------- 27 05096 0154 1!) IF NOT END-OF-MASTER 15170000 029D78- 3a 05Oq7 015420 ADD I TO NOR-BEFORE-UPDATE. t5180000 0290SE so (),;Oqq 015440 ii2-nkjmMY-REAO. t5200000 05100 ()154 511 MOVE nLDIAST-REC TO NMIIOREC. 15210000 02909F 331 -1 05101---@01546() -----#AOYE---TURN-OFF-TO-BUMMY-RO-SW@-------------------------15220000-----029OAS 3:1 05102 015470* 15230000 a 05103 015480 120-READ-TRANS. a 15240000 -3ii-05104----015490-----R.ETIJAN-SORT-FIL-F-INTO-NMIOOREC 152 5 0000 33; "5105 0 155 00 AT FNO 15260000 3. 05106 015510 MOVE HIGH-VALUES-TO NMtOOREC. 15270000 0290F2 107--0155 n ----MOVE- TURN-OFF-10--READ-TRAN-SW. - --- ---- 15280000 029DEC- 4 05108 015530 MOVE TURN-OFF TO f)ETAtL-LINE-WRITTEN-SW. 15290000 0290F2 05109 015540* 15300000 42 -OStIO --01555r)-t-30-MATCH-MSTR-TO-TRANS. f 15320000 .4 05111. 01556,)** ***DEBUG***** OSit? 15570* nISPLAY 'MST-' MSTR-CCNTROL 15330000 0 -.-a -05 11-3 0155800---$----TR=*---TR-C()NTROL.@---- 0511.4 015590* 15350000 05t15 015600 IF MSTR-CONTROL GRFATFR THAN TR-CCNTROL 15360000 0290FE a PERFORM 4 13 t-MASTER-HI GH t5370000 029EOS t a. n5117 0196 ?3 ELSE 15380000 05118 015631 IF MSTR-CONTROL EQUAL Tr TR-CCNTPOL 15390000 029EZS --AND RECORf)-TYPE OF NMIIOREC 15400000 53 05120 015650 RECORD-TYPE OF NMIOOREC 154tOOOO 70 05121 015660 PERFORM I..47-MASTER-EQUAL 15420000 @029E3C 104 -NMIOO 10.43.12 APR 391984 14EX ADDRESS OF VERBS 15430000- 0-5123 015680 PERFORM 170-MASTER-LOW. 15440000 O29E5C 31 0512A 015f3qo* 15450000 131-4ASTER-HICH.7----%---------- IS460000-- 05126 015710 MOVE TURN-ON TO REAn-TRAN-SW. 15470000 029E82 0512T 015770 IF TR-ADD IS460000 029ESS 05 128 -015730 PERFORM- 1-32-H IGH-AOO-TRANS-- 154qOC)OO-- 05129 015741 ELSE 15500000 05130 015750 PERFORM 134-HIGH-CHG-nR-DELETE-7RANS. 15510000 029EB8 to! t5520000-- t3 05132 015770 132-HIGH-ADD-TRANS. 15530000 141 1 05131 0157AD MOVE TURN-ON TO MASTER-ACTION-SW. 15540000 029EDA Is -,'-05134--Ol@,7Qn------m(3VF-T4jRN-ON TO 15550000- -- __ - ____ @j 05115 015800 MOVE TORN-ON T 1@560000 029EE6 14i 0 -AD SW. ()5136 5RIII) mnvF SP CFS TO NOUlMtMREC. 15570000 029EEC 05 13 7 -015920 -------MOVE- CORR -TR-CO'4TRnL Tn-MSTR-CONTROLF- -----15580000- - 029EF6-------- 01 5,830 0- 05138 mnvF RECORD-TYPF OF NMIOORFC TO RECOR -TYPE OF NHItOREC. 15590000 029FIA 05139 Ot5843 PERFORM 133- MOVE- DATA -9 Y-TYPE. 15600000 029F20 '24 05 14 f) 0151150---Ar)r) I TO NRR-RFCS-ADnFO. 15610000 - -029F38 05 14 1 ni 5A 6) PERFORM 135-BUILD-RPTI. 15620000 029F42 05142 015970 MOVE REC-ADo In RPTI-MESSAGE. 15630000 029F5E 15640000- 22 ; 131 05144 015890 113-MOVE-OATA-BY-TYPE. 15650000 4 05145 0151103 ------ 05146 -015913 BOG -3 /8 3 L RL-- 15670000 05147 015920* IF TR-CONTROL EQUAL 1790098901883502010200160 15680000 0, 14 F) r)l 5911 niSPLAY ITRANS-9 TR-INOIVIDUAL-DATA I MSTR-l 15690300 '7i - ------ 15700000 ---05I49-0I5q4.l*--------- ----------INDIVIOUAL-CATA. 05150 0 1571000D 05151 015q60 IF ENVIR-RECORD 15720000 029F&E ----05 1 S2 0 t!;1)70 ---------MOVE CORR - TR-ENV I R-STA-DATA- TO ENVI R-STA-DATA- 15 73 00 DO--- 05153 n15981 ELSE 15740000 05 t 5, 4 015qno IF REPLIC-RECnRo 15750000 02A05E -CORR -TR -DATA JO REPL [CATE-DATA 3. 0160 Of) -,REPL-ICATE 05156 016010 ELSE t5770000 05157 016020 IF SPFCIES-RECORD 15780000 02AO82 7 37, -----------MOVE- CORR TR-SPECIES-DATA JO SPECIES-OATA- 15 79 00 00 - 02AO8A-------------- i 05 15 8 -0160 31) 05159 016040 ELSE 15800000 05 1 F., r) 016050 IF TNDTV-RECORD 15810000 02AODO 161-01 6f)6!)----- -- MOVE -CORR TR-INDIVIDUAL-DATA TO INDIVIDUAL-DATA - 15820000 - 02 ADDS--- 05162 016070 ELSE 15830000 .21 05163 016080 IF ANNIPLUS-RECORO 15940000 02AI3C -05164- Ot6O9O------ ---MOVE CORR TR-ANNULUS-DATA TO ANNULUS-DATA 15.950000 021AL44------------ n5165 016101 ELSE 15860000 @ai 1 05166 016110 IF TAG-RFCAPTURE-RECORn 15A70000 02A2t4 'TR-TAG-PECAPTURE-DATA TO 02A21C--@--- ,f--05167--0161 MOVE--CORR- 05168 016130 TAG-RECAPTUR E-LIATA. 15890000 @21 4.1 05169 63 EA -,-g-L-05 170--ol 6150* -----DEBUG- 1/8 3 LRL- - 15910000 05171 016160* IF TP-Cf)NTRDL EQUAL t79009990IRS3502010200166 159,70000 05 1 T 2 0161 7) DISPLAY 'TRANS-' TR-INDivinUAL-DATA f MSTR-6 15930000 L 05173'---016180*------- -----------lNr)TVIDUAL-CATA. 1594 0000 05174 15950000 O5t75 016200* 15960000 ol IDS N4 100 10.43.12 APR 391984 HEX ADDRESS OF VERH 05V76--o 16?. 19--t-34-HtGH-CHG-OR-DELC-TE--@TR AN -159 .roooo-_ 05177 016220 IF NOT VALID-CHANGE-COOE 15980000 OZA25E 05179 016233 mnVE SPACES TO RPT1-MESSAGE 15990000 02A26E --05179 --1316240-- -MOVf- -INVAL-CH G- CODE-- TO- RPT I -ERROR----- osipo 01625) ELSE 16010000 05191 016760 IF TR-CHANGE. 1602 00 00 02A282 7 05 18 2 016? 1) - - --MOVE NOT-CHG TO RPTI-MESSAGE--------,-- -16030000:--- 02A28A ------ - ---- --- 05183 016?80 MOVE NO-REC TO RPTI-EPROR 16040000 02A29A P1 :i 05184 016790 ELSE 16050000 051 85-----Ol 630,')----- 02A2A4------- 05IR6 016319 MOVE NOT-DFL TO RPTt-MESSAGE 16070000 02A2AC 05187 016321 MOVF NO-REC TO APTI-FRROR. t6080000 02A28C 73' ---Or, 19 8 - -0 16110 140 VE TURN-ON TO EDT T-REJFCT-ERROR7-Sloa---- 1609 0000----- 02AZC2 14 05 t .99 016340 PERFORM 177-BUILn7TRANS-ERROR. 16100000 02A2C8 15' 05 1 ql) ()1 6350* 16110000 161? 0000 05192 616371 MOVE RFCORO-TYPE OF NMIIOREC TO RPTI-REC-TYPE. 16130000 02A2EE 05193 n16180 MOVE SEQUENCE-NUMBER OF NMtIOREC TO RPTt-SEQ-N8R. 16140000 02A2F4 05 194 611,3 W) MOVE REPLICATE-NUMBFR OF NM110REC TO RPTI-REP-NBR*- 16150000 .... C2A2FA 05!95 0164 (Y) Mnvr_ SPFcIfS_cQ()E CIF wAlIqpEc TO Rpill-SPECIES-COOE. 16160000 02A300 05196 01641@ MOVE SPECIES-STATUS OF NM110RFC TO RPTI-SPECIES-STATUS. 16170000 02A306 05 19 7 01,54 21 MOV E UINE-NUMBER-OF NMIIOREC-Tn RPTI-LINE-NOR. ----------16180000-- 02 A30C n5lq8 016430 MOVE SPACES TO RPTI-ERROR. 16190000 02A312 231 05199 ()16441 IF MSTR-ANNULUS-REcnRn OR MSTR-INDIV-RECORD OR 16200000 02A3tC. 2@, 05?00 -0164 50 -MSTR-SPECIES-RFCnRO--- 052ni 016460 MOVE DASH TO RPT1-[)ASH 16220000 02A334 26 09202 0 1 (,4 71 ELSE 16230000 052()3--016480-------mnVE-SPACES--TO-RPTI-BASH.;---- 1624 0000- 02A33E 0-52n4 016491* 16250000 05205, 0165 00 137-MASTER-FQUAL. 16260000 ----0 ---MOVE- TUR N-04 @ TO R E AD-TRAN-SWe 16270000 02A348 05706 .16510 05207 016520 IF TP-ADO 16280000 02A34E 32! 331 n5 2n 8 016533 OR NOT VALID-CHANGE-CODE 16290000 05 209-01 654f) -------PER c-n RM--+3 R-EQU AL-A DD-TR AN S--- 163 0 00 00 - 02A36E---- 05210 016550 ELSE 16310000 05711 olos5lo IF TR-CHANGE 16320000 OZA392 05 212 -0165 70 P ERFO R'4- L-39-EOUAL-C HANGF-TA ANS-- 16330000 02A39A 05213 ni 69 8r) ELSE 163400,00 05214 ()1 f,5 9r) PERFORM 160-EQUAL-DELETE-TRANS. 1635-0000 02A38E 16360000 05216 016610 138-E0UAL-ADD-TPANS. 16370000 W 42 05217 016621) IF TP-ADO 16180000 02A3E4 z-,--05 2 t 8--- 01663G------MnVE NOT-ADD.-TO RPTI-MESSAGE ------- t6390000 02A3F8 -i 052lq 016640 MOVE REC-ALREADY TO RPTI-FRROR 16400000 02A408 05220 016650 ELSE 16410000 MOVE- SPACfS--T 0- RPTI.-ME5 SAGE 16420000 02A412 05222 016670 MOVE INVAL-CHG-CODE TO RPTI-ERROR. 16430000 OZA41C 05221 016680 kinVE TURN-ON TO Ff)tT-REJECT-ERROR-SW. 16440000 02A422 -IL--05224---01669')-----PFPF(IRM- 177-BUILD-TRANS-ERROR. 16450000--- 02A428 052?5 ')167 00 16460000 f 052?6 016710 13Q-EOI-IAL-CHANGE-TRANS. 16470000 MnVE-TlJRN--ON TO MASTER-ACTlnN-Sw.- 16480000 -- 02A44E 05228 016730 MOVE TURN-ON TO WRITE-RPTI-SW. 16490000 02A454 5.1 '7: 05229 016740 MOVE CORR TR-CONTROL TO MSTR-CONTROL. 16500000 02A45A 171 106 N4100 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS -05230 016753 --MOVE -RECORD-TYPE- OF -NMIOOREC- TO RECORD- TYPE OF -NMI 10 --1& 1000 4 05711 016760 PERFORM 133-MOVE-DATA-BY-TYPE. 16520000 OZA484 05232 016770 AD9 1 TO NBR-RECS-CHG. 16530000 02A4AO 05733-01678L)-------PLrRFORM--i-35-BUit-f)-RPTI.------- -02A4AA 05234 016790 MOVE RFC-CHG TO RPTI-MESSAGE. 16550000 02A4CA 23 241 24, 33 2 4A 13 Ut 361 47 3: 3 411 A41 70.1 Its t 72 A ol 107 N4130 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS ----t6570000- 0-5237 016q2D IF MSTR-ENVIR-PECORn 16580000 02A4DA 31, 05,238 0 168 31 PERFORM t4l-Ef)TT-ENVIR-REC 16590000 02A4E2 _@t---05 2 39----016940- 7-MOVE-- CURRENT- DATE TO-DATE-MODIFIED-CF-ENVIR-STA-DATA7- 05240 016850 OF NMtIOREC t6610000 05241 016960 ELSE 16620000 _---n5242--()16A70 - - ----- IF-MSTR-REPLIC-RFCORD --16630000--- 02A512 05243 0168810 PERFORM 14q-EOIT-REPLIC-REC t6640000 02A51A 05244 016B90 MOVE CUPRENT-OATE TO DATE-MCOIFIED OF REPLICATE-OATA 16650000 02A536 6900 OF--NMIIOREC --16660000 10 05246 016910 ELSE 16670000 05247 n1692.1 IF MSTR-SPECIES-RECORD 16680000 02A54E 05248---()161)30----------------PFRFnRM -151-EDIT-SPECIE-S-REC---- 16690000 02A556-- 05?49 016940 MOVE CURRENT-DATE TO OATE-MODIFIED 16700000 02A572 0'5250 ot6qso OF SPECIES-DATA OF NMtIOREC 16710000 1.1-09 2 5 t -016960-----'----EtSE 1672 00 00 05252 n 16 Q 70 IF MSTR-INDIV-RECORD 16730000 02A56A n5253 0 1 6q 811 PERFORM t53-EnIT-INDIV-REC 16740000 02A592 05254 ---()! 6490--- ----MOVF CUPRFNT-nATE TC-DATE-MODIFIED 16750000- 02A5AE-- -DATA OF 16760000 05255 01 700@1 OF INDIVIDUAL NMI10REC 05256 017010 ELSE 16770000 MSTR-ANNULUS-RECORD ----- --- -16780000---- -02ASC6- -EDIT-ANNULUS-Rr-C 16190000 02A5CE 23; 05258 017n3O PERFORM 155 2. 05259 nI 7041) MOVE CURRENT-DATE TO DATE-MODIFIED t6800000 02A5EA ,!-.----05260----0I-7r)50- OF ANNULUS70ATA OF -NMtt0REC- ----16810000 i '05261 017060 ELSE 16H?0000 RECORD 16810000 02A602 05262 017070 IF MSTR-TAG-RECAPTURE- 05 263--01-7080---- - ------ PERFORM 158-EDIT-TAG-RECAPT-REC---- ----16840300 02A60A- 05264 017090 MOVE CURRENT-DATE TO DATE-MODIFIED 16850000 02A626 05265 0 7tOO OF TAG-RECAPTURE-DATA 16860000 ---05266---()I71W_____-__ OF NM11OREC. 16870000 32 05767 0171"* 16820000 -3; __ 05?68__017130 141-EDIT-ENVIR-RFC. 16890000 05269 f)17143--t@F-GRIE@-PROG--AND-NnT-(VALID-NUMER-GRIO AND t6900000 02A640-----@ 05270 017150 VALln-ALPHA-GRID) 169t0000 05271 017160 MOVE TURN-ON TO EDIT-FRROR-SW 16920000 02A688 36: ___.052 T2 017170------ -MOVE- ENVIR-GRID -OF NMILnREC TO ERR-MSG-GRID 169 3 00 00 35 31 05 2-@3 017t8O MOVE GRTO-NnT-FnRMATTEO TO RPT2-ERR-MSG 16940000 02A694 05274 017190 @ERFORPI 179-BUILD-MASTER-ERROR. 16950000 02A69A ..r--05275---017?00-----i-F--SFO-YR-OF--NMIIOREC NOT --ENVIR-VY OF NMtIOREC--.--------- 1696 0000 02A06------@ 05276 017210 MOVE TURN-ON TO EnIT-ERROR-SW 16970000 02A6C4 YEAR-DOESNT-MATCH TO RPT2-ERR-MSG 015?77 017220 MOVE 16996000 02A6CA I.3i PERFORM 179-BUTLO-MASTER-FRPOR.- ------- -1 05279 17000000 fal 01290 017259* DERUG 4f83 LRL 17010000 05?81-----f)1-7260*---IF-SEOUENCF-NUMBER OF N?JtIOREC E0UAL--682999964----- ------,--17020000-- 0528? 017270* DISPLAY I DERUG-4 I PROGRAM-TYPE OF NMIIOREC t703OOOO 05283 017?80* ENVIR-START-LOC OF NMIICREC 17040006 t 77 93 ENV I R- S TA T-NIJMBFR t705OOOO 052S4 OF NMI10REC 50i 0528" 017100* ENVIR-GEAR-TYPE OF NM110REC. 17060000 bli 05296 17070000 -52---()5287 ---- 017120 IF I PROGRAM-70G-TO-799 AND NOT START-LOC-26-TO-401 0 2 A6 EC - 05288 017330 OR WROGRA14-000-70-699 OR PROGRAM-800-TO-9991 17090000 05289 017343 AND NOT START-LOC-0-TO-23) 17tOOOOO 108 Nmion 10.43.12 APR 301984 HEX ADDRESS OF VERBS --05790-(Vt735n---------MOVE--TURN-ON TO-EDIT-ERROR-SW -t?tIO0OO- 052ql 017360 MOVE START-LOC-FRROR TO RPT2-ERR-MSG 17120000 02A77E 052q2 017370 PERFORM 179-RUTLO-MASTER-FRROR. 17130000 02A784 -.4--05293-01-73-80-----If;-t4CT-fVAtIO-GEAR-OF-ZERO-OR VAL 10-GEAR-OF-9991-- -OZATAO 05294 017390 IF (PROGRAM-050 AND NOT VALID-GEAR-FOR-PGM0501 1?150000 02ATC8 05295 017409 OR (PROGRAM-05t AND NOT VALID-GEAR-FOR-PGM0511 17160000 7 i,-----052q6,--ql741t)---CR--(PROGRAM-055 -AND NOT VALID-GEAR-FOR-PGMOSSI 17170000 0571)7 017420 OR (PROGRAM-060 AND NOT VALID-CEAR-FOR-PGM0601 17180000 05298 017431 OR (PROGRAM-100 AND NOT VALln-GEAR-FOR-PGM1001 l7t9oooo io 05 79q--f)l 7440 --OR- (PROGRAM-105 AND NOT VALID-CEAR-FOR-PGM105) 17200000 0600 017450 OR (PROGRAM-110 AND NOT VALIO-GEAR-FOR-PGM1101 17210000 43. 05301 017460 OR (PROGRAM-115 ANn NO T- VALID-GEAR-FOR-PGM1151 17220000 -()5302--Ol 74 70-----OR I PROGR AM-1 20 AND NOT VAL 10-GE AR-FOR-PGMI 20) 1. 723 0000-- 053n3 0174 80 OR I PROGRAM-125 AND NOT VALID-GEAR-FOR-PGM125) -17240000 ia 05304 01749.1 OR (PROGRAM-126 AND NOT VALin-GEAR-FOR-PGM126) 17250000 T6_,"O')305-----0I75 (Y) ---- OR I PROGRAM-1 30 AND NOT VALID-GEAR-FOR-PGM130) 17260000--- : 7i 05306 n1751,1 OR ( PRIIGRAM-150 AN 0 NOT VALID-GEAR-FOR-PGM1501 17270000 @221 .1 05307 017520 OR (PRCGRAM-16n AND NOT VAL 10- GEAR-FOR-PGM1601 17280000 -- -05 3 0 4 --- 0175 3-1 --- -OR (PROGRAM-170-10R-t8l) AND NOT VAL ID-GFAR-FOR-PGN170-1801 17290000 20i 05304 017540 OR IPROGRAM-175 ANO NOT VAL In-GEAR-FOR-IRGS1175) 17300000 05310 017550 OR ( PROGRAM-300 AND NOT VAL 10-GEAP-FOR-PG4300) 17310000 27 O531I----0I7560----9R--f PROGR44-320- AND- NOT- VAL I)-GEAR-FOR-PGM3201 1732 0000 2.3 05312 017570 OR IPROGRAM-330 AND NOT VALID-GEAR-FOR-PGM3301 17330000 24 05313 017580 OR I PROGRAM-340 AND NOT VALID-GEAR-FOR-PG43401 17340000 Z51-05 314---- 017591) -----OR -A PROGR A M-3 50 AND NbT.-VAL if)-rEAR-FOR-PGM350) ---------------173rO000- 20 053!5 017600 OR I[PPOGRAM-400 AND NOT VAL If)-GEAP-FOR-PGM4001 17360000 2@ 05316 01 71@ U) OR (PROGRAM-410 AND NOT VALID-CEAR-FOR-PGM410) 17370000 28, 0`5 31 ?-- 111711 OR IPROGRAM-420 AND NOT VAL ID-GEAR-FOR-PGM420) 17380000 3 osiI8 017630 nR (PROGRA%4-421-OR-422 AND NOT VALID-GEAR-FOR-PGM421-4221 17390000 053lq 017640 OR (PROGRAM-430-OR-440 AND NOT VALin-GEAR-FOR-PGM430-4401 17400000 i7@-05 3 > 0- 0176 50,---- OR (PROGRAM-431-01R-441@ANO NOT VALID-GEAR-FOR-PG943L-4411- 174100 00 n5121 0171@60 OR (PROCRAM-432-DR-442 AND NOT VAtin-GEAR-FOR-PGM432-442) 17420000 43 33! 05322 017670 OR (PROGRAM-433-OR-443 AND NOT VALID-GEAR-FOR-PGM433-4431 17430000 34 -05323--017680----OR IPROGRAM-434-np-444 AND NOT VALID-GEAR-FOR-PG?4434-444) 17440000 35. 05324 0175qo OR (PROGRAM-435-OR-445 AND NOT VAL Ir)-GEAR-FOR-PGM435-44S) 1?450000 35 05325 017700 OR (PROGQAM-436@011-446 AND NOT VALID-GEAR-FOR-PGM436-4461 17460000 7 05326- 1,77111 OR IPROGqAM-437-1111-441 AND NOT VI'lln-GEAR-rl)ll-PGM437-4471,1741'0000 11 36! 05327 017720 OR (PPOGRAM-431 AND NO T VAL If)-GEAR-FOR-PG44381 17480000 50 05370 017730 OR (PROGRAM-450 AND NOT VALID-CEAR-FnR-PGM450) 17490000 5, 05 3 2 9-0 177 40 OR - f P R OG R A M -4 6 0 AND NOT VALln-GEAR-FOR-PGM460) 17500000 05 3 3 0 017750 OR (PROGRAM-470 AND NOT VALID-CEAR-FOR-PGM470) 17510000 05331 017760 OR (PROGRAM-500 AND NOT VALID-GEAR-FOR-11IGM500) 17520000 42 0 5 3 -3 2 - 01 7 7 70 OR I PPOGRAM-510 AND NOT VAtIO-GEAR-FOR-PGM510) 17530000 -GEAR-FOR-PGM5301 44 05333 017780 OR ( PROGRAM-530 AND NOT VALID 17540000 05334 0177qD OR 11 PROGRAM-540 ANT) NOT VALID-GEAR-FOR-PGM5401 17550000 .6, 05335--Al 7800- OR- f PRMRAM-550 -AND NOT VALID-GEAR-FOR-PGM5501 17560000 -610 NOT -GEAR-FnR-PGM610) .71 05336 017910 np (PROGRAM AND VAL ID 17570000 62 45 05 33 7 01 7R 21 OR (PROGRAM-615 AND NOT VALID-GEAR-FOR-PGM615) 17580000 63 05 3 3 8@ --0 17$3 3) OR (PPOGRAM-619 AND NOT VAL*lr)-GEAQ-FOR-PGM6I8) 17 59 00 00 - 05319 017840 OR (PROGRAM-62n ANO NOT VAL.10-GEAR-FOR-PrM620) 17600000 05 3 4 ri 01785') rIR (PRCGRAM@6371 AND NOT VALID-GEAR-FOR-PGM6301 17610000 05 3 4 I-Ot 7 4 60 OR IPROGRANI-65n AND NOT VALID-GEAR-FOR-PGM6501 t7620000 05342 017R70 OR I PROGRAM-660 AND NOT VALID-GEAR-FOR-PGM660) 17630000 05343 017880 OR (PROGRAM-670 AND NOT VALID-CEAR-FOR-PGM6?01 17640000 13 74 109 NMIOO 10.43.12 APR 3*1964 HEX ADDRESS OF VERBS A49--NOT VAL f0-GfAR-Ft)R_PGM69O1------ - 05345 017900 OR (PROrRAM-69O AND NOT VALtD-GEAR-FOR-PGM6901 17660000 al 3 05346 0179 V) OR (PROGRAM-700 AND NOT VALID-GEAR-FOR-PGMTOO) 176?0000 _ ,--f)5347 (PROGRAM-705- AND-- NOT VAL ID-CEAR-FOR-PGM7051-- 0000- ZT 05348 017933 OR (PROGRAM-710 AND NOT VALID-GEAR-FOR-PGMTIOI 17690000 n534q 017940 OR IPRCGRAM-715 AND NOT VALID-GEAR-FOR-PGM7t5l 17TOO000 05 3 5 0 017950 -------OR I PpnGRA4-?2o -AND NOT VAL I D-GE AR-FOR-P GM 72 01 1. 77100 00 05351 017760 OR (PPOGRA4-725 AND NOT VALIr.)-rEAR-FnR-PGM725) 11770000 09352 017q7O OP ( PP-OGRAM-730 ANO NOT VALIO-GFAR-FOR-PGM730) 17730000 _15353-017981---nR (PROGPAM-735 AND NOT VAL ft.)-GEAP,-FOR-PGM7351---------------- 17740000 10. 3 11 05354 017990 OR (PROGRAM-740 AND NOT VALID-GEAR-FOR-PGM740) 17750000 05355 .01 Pooo OR I PROGRAM-745 AND NOT VAL 10-GEAR-FOR-PGM745) 17760000 053 56 -01 Ao tG 1PROGRAM-750 AND NOT VAL I D-@GEAR-FOR-PGM75 0)- --1777 0000 -FOR 05357 018023 OR (PROGRAM-755 AND NOT VALID-GEAR -PGM7551 17780000 05 V; 8 0 189 33 OR I PROGRAM-766 AND NO I VALtD-rEAR-FOR-PGMT60) 17790000 05 3 59 -0180 4f.)---- nR (PROGRAM-765 AND NOT VAL tO-GEAR-f:0R-PG4765) t78OOOOO - ----- -05360 018050 OR IPROGRAM-770 AND NOT VALID-GEAR-FOR-PGM770) t78IOOOO 7. '01S060 OR (PRnrRAM-775 AND NOT VALin-GEAR-FOR-PGM7751 17820000 05361 81 - - 0516 ?---0 180 70 M OV F TURN-ON TO INVALTO-GEAR-SW --02COS4- 05363 018080 MOVE TURN-OFF TO INVALID-GEAR-SW 17840000 02CO5A n5364 MOW) tAOVE TORN-ON TO EDIT-ERROP-SW 17850000 02CO60 -TYPF-R OF NMIJOREC 7860000 02C066---- 0 5 3 6 5 f) 18 103 -M (IV I P R n G R A m TO PROG-NUMBRX 05366 018110 MOVE ENVIR-GEAR-TYPF-R OF NMIIOREC TO GEAR-TYPEX 17870000 02COTO 05367 01 fit 20 MOVE TNVALID-GEAR-MSG TO RPTZ-ERR-MSG 17880000 02CO7A PERFORM I 7q-81) I LD-MAST ER- ERROR. - - -t789OOOO 25! 05369 018140 MOVE TURN-OFF TO INVALID-STATION-SWe STATION-FOUND-SWv 17900000 o2co9c 17 05370 019153 FND-nF-LIST-SW. 179toooo i ENV I R-START-@-LOC-R -OF N'MIIOP.EC TO WORK-LOCATION.-@- -----1792 0000 C2CoAE ------ 05372 018170 IF PROGRAM-400-TO-499 OR PROGRAM-700-TO-799 OR 17930000 O2COBE 05373 01 Al 80 17940000 PR06RAM-93o OR PPnGRAM-60O-T()--699 OR 05374----1)19190---ENVIP.-STAT-NLJMBE-R Or- NMII0RFC EQUAL-SPACES - ------ 1795 0000 05375 018209 MOVE TURN-OFF.TO INVALID-STATION-SW 17960000 02C144 3 z 05376 019210 ELSE 17970000 33; 377--Ol 82 20--5FARCH -ALL - L OC-W I-TH-1-3-ST AT I CNS -----17980000 ---- 02Cl52-------------____. 05378 018213) AT ENr) l7q90000 3, 05379 018240 MOVE TURN-ON TO EDIT-EPROR-SW 18000000 02CISA MOVE -WORK-LnCATII?N-TO LnCATION-CODE-- 1.8010000 02CL60---- 053RI 018260 MOVE ENVIR-LOC-NOT-FOUND TO RPT2-ERR-MSG 18020000 02cl7o d 053P2 01827() PFPFORM 179-BUILn-P4ASTFR _ ERROR 1800000 02CI76 ---------WHEN WORK-LOCATION 05384 018290 LOCATION-1 (LOC-I-IXI 18050000 '21 01i 3115 018309 PERFORM 143-SEARCH-FnR-STATION. 18060000 02CIE6 05 3 A 6-0 1, 9; 19-- I-F- -1 W A L 10-- ST A T 10 N 0 2 C 20E Or, 3 8 7 018320 MOVE TURN-ON TO EDIT-FRRnR-SW 18080000 02C216 05 3 ft A 01,833-1 MOVE ENVTR-STAT-NUMBER OF NMIIOREC TO STAT-NMORX t809OO3O 02C21C 05 3 89- -0183 40--Mf JVE--E4VIR-START-LOC OF-NMIIOREC TO START-LOCX---------,---181f)0000---- 02C222- 01)3qO 018153 MOVE INVALTO-STA-MSG TO RPTZ-EPR-MSG L8IiOOOO 02C22a 4 05391 018160 PERFORM 179-BUILD-MASTER-ERROR. 181200W 02C22E 49i -n53g2-.01-8370--------4-F-E-NVIR-DURATION-OR-ARFA OF NMIIOREC NOT NUMERIC-.-------- ---t8t30000 02C24A 05393 n18333 P40VF FNVIR-r)'JRATI()N-OR-AREA OF NMItOREC TO DEC-CHECK-FLD 18140000 02C25C i 053n4 01 1-3qf) MOVE ZEROS TO DEC-CNT 18150000 02C262 Or, 395 --0tP400----PFRF0AM- 142-Cf)UNT-NUMBER-DFCI PALS 18 16 0000 02C268 12, 05 3,, 6 Olq410 IF nFC-CNT GREATER THAN 1 18170000 02C280 n5397 018420 MOVE TURN-ON TO EDIT-ERROR-SW 18180000 02C28E Ito NMIOO 10.43.12 APR 3@1984 14EX ADDRESS OF VERBS -05398--01-94-30 ----MOVE -# OUR AT ION -OR AREA$-TO FLO-NANE-IN-ERR----- ----lRl90000- O2C294--------- I MOVE FLf)-NOT-NUMERIC-FRR TORPTZ-ERR-MSG 18200000 02C2A4 053q9 018440 18210000 02C2AA 3 054nn 0 13450 PERFORM 179-BUILD-MASTER-ERROR. PER- MEM(t--7/14/83-- --18220000- 05402 018470 IF VALID-GEAR-OF-ZERO AND ENVIR-OURATICIN-OR-AREA OF NMILOREC.18230000 02C2C6 ()54n4 01848() NOT EQUAL SPACES 18240000 05404-0113490---MOVE,-TURN-ON-TO EI)IT-EQPOR-SW -18250000- 02C2EC----------- @-05405 019503 MOVE ENVIR-DURATION-nR-AREA OF NMIIOREC TO 18260000 02C2F2 10 05406 01A510 ENVIR-OURAT-ERR 18270000 -2 -09407---Ot 8970 -MOVE - ENVI R-OURATION-ERRCR TO RPT2-ERR-MSG - --- --- -18280000- 3 054n8 OIR530 PERFORM 179-guILD-MASTEk-ERROR. 18290000 02C2FE 05409 OIR540 IF ENVIR-NUMSER-REPLIC OF NMIIORFC EQUAL ZERO AND 18300000 02C31A NOT VAL 10-GEAR.-OF-ZERO 18310000 054 1 018560 MOVE TURN-ON TO EDIT-FRROR-SW 18320000 02C340 05412 018570 MOVE ENYIR-GEAR-TYPE OF NMtIOREC TO ENVIR-NO-GEAR 18330000 02C346 05 413-01 S5 80--MOVE -ENV I R-NON- IERO-G EAR TO RPT2-ERR-MSG------ ---------18340000- ---02C34C------------ 05414 018990 PERFORM 179-BUILD-MASTER-ERROR. 18350000 02C352, 05415 01 136no* 18360000 1837 0000 - -NUMBER-DEC I MALS.---------- 05417 01 81@20 IF DEC-CK-t 18380000 02078 20i all 05418 OIR630 ADD t TO OEC-CNT. 18390030 02C380 192' ---.184'30000- 02C38A-- 05420 018650 Ano I TO DEC NT. 18410000 02C392 018660 IF DFC-CK-3 lol OS421 t8420000 02C39C, '@i--05422--01 9670----- -ADD I- ------ 0')4?3 01 8680 IF DFC-CK-4 18446000 02C3AE -CNT. 3 05424 019690 AnD I rn DEC 16450000 02C386 3 f.)5429-01 1846 0000 7i 05426' 018710 143-SEARCH-FOR-STATION. t8470030 J OS427 0 187 21 PERFORM 144-SEARCH-TAB-1-FOR-STATION 18490000 o2C3C6 -0547 9___ 018730 __----VARYING STA-I-IX FROM-- 1-BY -1--- 1849 0000 - 05429 019740 UNTIL STA-L-IX GREATER THAN 3 18500000 05430 018750 rR STATION-FOUND. 18510000 0543I--019760---IF- STATION-Nr)T-FOUND------- 05432 018770 SEARCH ALL LOC-WITH-04-42-STATIONS 18530000 02C41A -LOCATION = .17 05433 01 F%790 WHEN WORK 18 54 OD 00 LOCATION-2 MCC-2-IXI 18550000 05435 0113,900 PERFORM 145-FOUND-Lr)CATION-IN-TAB-2. 18560000 02C46E 41;6 018810 IF STATION-NOT-FOUND 185TOO00 02C492 I NV AL ID-ST AT ICN-SW. 16580000-------02*CI.9A--------- -0"5 4 0I892O--'--MnVF-TURN-ON TO 53 OS438 018830* 18590000. 54 054lq Ot9q40 144-SEARCH-YAB-I-FOR-STATION. 18600000 42j___ -NUMBER OF UMIlORFC----------- - 05440---018850---IF-ENVIR-STAT .3! 05441 019,360 STATI(IN-1 (LOC-I-[Xs STA-l-IX) 18670000 441 451 05447 0!49TO MOVF TUR@-ON TO STATION-FCUND-SW. 18630000 02C4C4 01 R9 PO*----- ------ - ----- 1864 0000- 05444 0199ql t45-FOUND-LnCATION-IN-TAB-2. 18650000 62 461 05445 018900 PERFORM 146-SEARCH-TAB-2-FOR-STATICN 18660000 02C4DO 63 -05446-01,19 11) -----VARYING STA-271Y FROM I 05447 OIR9 2 0 UNTIL STA-2-IX GREATER THAN 39 18680000 50 05449 0 1817 rR STATION-rOUND OR FND-OF-LIST. 18690000 67 -05444 018940 STATION-NnT-FOUINn 18700000 .02CS20------ 53 0545() ol Aq 5,r) SFARCH ALL LOC-WITH-43-138-STATIONS 187toooo 02C52C 701 05451 Olqq6O WHEN WORK-LOCATION 18720000 III NMII)O 10.43.12 APR 391984 HEX ADDRESS OF VERBS --0'5452---Ol-fl97O---LOCATION-3 ILOC-3-IX) -,---18730000 - -------- 05453 01-4980 PERFORM 148-SEARCH-TAB-1-FOR-STATION 18740000 02C582 2 3 n5454 0 1 8q 91 VARYING STA-3-IX FRCM I BY 1 18750000 ----------UNTIL--STA-3-IX GREATER THAN-96 --- -------------18760000--- 18770000 05456 019010 OR STATION-FOUND OR END-CF-LIST. 0545.7 019023 146-SEARCH-TAB-2-FOR-STATI(IN. 18780000 0545R---CIC)0313---IF-EMVIR-STAT-NUM9FR OF NM110REC -- - --- 18790000--- -02C5E4 ------------- 81-05459 019040 STATION-2 (LOC-2-IX, STA-2-[X) 18900000 05460 019050 MOVE TURN-ON TO STATION-FOUND-SW. 18810000 OZC606 -STATION-2- (LOC-2-IXt STA-2-Ix) w SPACES 8920000 - 02C60C__ 05462 019070 MOVE TURN-ON TO END-OF-LIST-SW. 18830000 02C636 2: 05463 01'1080 148-SFARCH-TAq-3-FOR-STATION. 18840000 05464--- 019090 ------IF- ENV IR-STAT-NUMBER OF NMIIOREC 18850000 02C642-------- 17 05469 nlqloo STATION-3 WIC-3-IX, STA-3-IXI 19860000 05466 olqllo MOVE TURN-ON TO STATInN-FCUND-SW. t8870000 02C664 -0546T-019120- if'-STATION-3'-(-LOC-3-fX# STA-3-IX) 18980000-- --02C66A- 05468 olql39 MOVE TURN-ON TO END-OF-LIST-SW. 18890000 02C694 Z2 nlql40* 18900000 ,@j___0546q 19. 0 5 4 7 0-03 91 50-1-49-E 0 1 T-R E P L I C -R E C . --18qlo()00-----.-. 0c;471 019t60 MOVE RP-SAMPLE-SIZE OF NMIIOREC TO CONVERT-FIELD, 18920000 02C6AO 21: 05472 019170 TEST-FIELD. 18930000 --@-----05473--01<)18f)----PFRFnRM-15nA-fDIT-EXPLICIT-DECIMAL-,i----- 19940000--- -02C6AC----- 05474 0191qo MOVE CONVERTED-DECIMAL - 12 TO RP-SAMPLE_ SIZE-CNVRT 18950000 02C6C4 I 05475 019?01 MOVE RP-COLLECT-SIZE OF NMlIoREC TO CONVERT-F ELD: 18960000 02C6CE 12A, 18970000-- i@ - ------ 05 4 76 ----Ol Q? 19 ----TEST-FIELD. 26! 05477 01 q22O PERFORM 15OA-FDIT-EXPLICIT-f)ECTMAL 18980000 02C6DA 05478 019233 MOVE CONVERTED-DECIMAL-12 TO RP-COLECT-SIZE-CNVRT. 18990000 O2C6F6 2i--05479---Ctq')40-----IF--RP-SAMPLE-SIZE-CNVRT--NnT NUMERIC ----19000000 02C700 05400 019250 MOVE TURN-ON TO EDIT-ERROR-SW 19010000 02C712 05401 019260 MOVE fSAMPLF SIZE I TO FLD-NAME-IN-ERR t9020000 02C718 -MOVE FLD-NOT-NUMFRIC-F'RR TO RPT2-ERR-MSG-------------t903OOOO- 02C728 '7- 321 054P3 019280 PERFORM 179-BUILD-MASTER-FRkOR. 19040000 02C72E 1 0 5 4 F 4 019?90 IF RP-COLLFCT-SIZE-CNvRT NOT NumFRIC 19050000 02C74A 43 33 054P5-019300---MOVE-TURN-ON- TO 6.DIT-ERROR-SW - ----- - IqO600OO-- 02C75C 05486 019310 MOVE 'COLLECT SIZE TO FLn-NAME-IN-ERR 19070000 02C762 05 4 9 7 019121 MOVE FLD-NOT-NUMERIC-ERR TO PPT2-ERR-MSG 19080000 02CT72 17 37 j-054A $1--01-93 11.) ---PERFORM 179-WPILD-MASTER-ERROR. 02C778- 05489 01 ')343 IF RP-SAMPLE-SIZE-CNVRT NUMERIC AND 191000no 02C794 35 054QO 019350 RP-SAMPLE-STIF-CNVRT LESS 999999.999999 AND 19110000 "@-054qt-019360-------RP-COtLECT-SIZE-CNVRT NUMERIC AND- 05492 Olq370 RP-COLLFCT-SIZE-CNVRT LESS 99q999. 999999 AND Iql3oooO V4 I E 05493 019380 RP-SAMPLE-Sl E-CNVRT GREAT R T14AN RP-COLLECT-SIZE-CNVRT 19140000 .-:----05494 ----019'3qO MOVE TURN-ON TO FDIT-FRROR-SW IqI50000 02C7EA----- 05495 01 q403 '40VE RP-SAMPLE-SIZE-CNVRT TO SAMPLE-SIZ 19160000 02CTFO 01 '14 10 MOVF PP-COLLECT-SI7!7-CNVRT TO COLLECT-SIZ' t9170600 02C8t4 05496 OS497- 019420 ---Mf)VE--SAMPLE-EXCEEDS-COLLECTION TO RPT2-ERR-MSG--.--IqISOOOO-----02C838 054'18 019430 PERFORM t79-BUILn-MASTER-ERROR.- 19t9oooo 02C83E 054qq 019440* 19200000 '3 05500'-019450--i-SOA@EDIT-EXPLICIT-nFCI MAL. 19210000 05501 019461 FXAMINE TEST-FIFLD PEPLACING ALL BY '00. 192200(10 02C064 05502 019470 IF TEST-FII:LD NOT NUMERIC 19?30000 02CO86 -055n3- 01948f)----MOVE SPACES TO TARGET-APEA 19240000 02C894----. 05504 019490 MOVE HOLD-CONVERSION TO CONVERTED-DECIMAL-12 19250000 02C89E 10 05505 019500 ELSE lq260000 .75 LY 112 N4100 10.43. t2 APR 3,1984 HEX ADDRESS OF VERBS -t 500-EDIT-EXPLICIT-DECI MAL.- 02C$AC------:---, 35507 01952")* 19280000 05508 nI953) 150B-EDIT-EXPLICIt-DECIMAL. Iq29oooo -05S09-01954)-----MOVE -ZEROS -Tn-NumqER-OF-FIELDS*- HOLD-CONVERSIONE-@-@--------------19300000@ 05510 019550 IF CONVERT-FIELD EQUAL 099q9991 19310000 02CBDB 05511 ()19563 MOVE 19999990 TO NUMBER-UNITS, NUMBER-DECIMAL 19320000 02C8EZ --OS r 19330000- 05513 0195 81 UNSTRING CONVERT-FIELD DELIMITED BY 19340000 02C8F2 05514 0195 ql INTO NUMBER-UNITS COUNT IN COUNT-UNITS 19350000 05 5 15-01 q6 00----------NUM8 ER-DEC I MAL cnUNT--TN COUNT- DEC I MAL 00 00 2 13 05516 019610 TALLYING IN NUMBER-CF-FIELDS. 19370000 t4 135517 12 019620 EXAMINE T4RGET-AREA REPLACING ALL i 4 BY 404. 19300000 02C90E --MOVE--HOLf)-CONVERSI(IN TO C ONVE R I tO-D EC I MAL- t 2. 1090000 --------02C934------ 019631) 14; 05919 01964.)* DISPIAY SFOUENCE-NUMBER OF NMIJOREC 19400000 055?0 Dlq650* CONVERT-FIELO tiOLC-CCNVERSION 19410000 05 S21---0196 60 -------C 13NVE R T ED-DEC I MAL- 12 - ----- 19420000 21 171 055?2 Olq670* 19430000 !221 05523 ' 019681 151-EDIT-SPCCIES-PEC. 19440000 i@,L--055?4--Otq6q')----IF----SPE-SUPSAMPLF-@NT-R-OF N4110REC NOT -NUMERIC 02C944 24 05525 0 1 W 01 MOVE TURN-ON TO EnIT-EPROR-sw lq460000 02C95Z 05526 01()713 MOVE ISURSAMPLE COUNT' TO FLD-NAME-IN-ERR 19,470000 02C958 -MOVE FLO-NOT-NUMFRIC-ERR TO RPT2-ERR-MSG 19480000 02C968 05528, 019730 PERFORM 179-BUILD-MASTER-EPROR. 19490060 02C96E 241 05529 019740 IF SPE-SAMPLE-CNT-P OF KMIIORFC NOT NUMERIC 19500000 02C98A .31 i@L -05 510 -01 9751) -_MOVE -TURN-ON TO EDIT-ERROP.-SW----- I95loOoO______o2c99c_____ 201 0553t 019760 MOVE #SAMPLE COUNT' TO FLO-NAME-TN-ERR 19520000 02C9A2 05517 019770 MOVE FLD-,NOT-NU4FRIC-ERR TO RPT2-ERR-4SG 19530000 02C982 0151;33 19780 PERFORM LD-MASTER-ERRnR. - t9540000 -02C988 1955000 05514 ot9790 IF SPE-,UBSAMPLE-CNT-R OF NMIIOREC NUMERIC 0 02C9O4 05535 019900 AND SPE-SAMPLE-CNT-R OF NM110REC NUMERIC 19560000 @.f ___ 3T@--05536---OtqllI0-----AN0 SPE-SUBSAMPLE-CNT-R OF NMI10REC 19570000 @40 05537 01992-3 GREATER T14AN SPE-SAMPLE-CNT-R OF NMIt0RFC 19580000 :421 331 05538 01 q3 30 MOVE TURN-ON TO FnIT-EKROR-SW 19590000 02CAOA .3 ii 013 53 9-01 M(YVE- SPE- S AMPLE-CNT-R OF NM 110P. EC TO 19600000-- 35 05540 cl 198 5r) S PEC- SA MPL-NM13R X 19610000 MOVE SPE-SUBSAMPLE-CNT-R OF NMIIOREC TO 02CAIA 05541 OIQ860 19620000 147 05542---O1'l670---------- SPEC- SUSSAMP-NMBRX ---19630000 --- --- 40 30, 05543 0199811) MOVE SIIB-SIZE-EXCEEnS-SAMPLE TO RPT2-ERR-MSG 19640000 02CA24 391 05 544_01 98 90 PERFORM 179-BLIILD-MASTER - ERROR. 1,46'.0000 02CA2A Qqol----fF-SPE-TOTAL-CNT-R OF NMItOREC NOT lq660000- 02CA46----- 05546 0199 tl) MOVE TURN-ON TO EDIT-ERROR-SW 19670000 02CA58 S41 i .2i 05547 019920 MOVE ITOTAL COUNT' TO FLD-NAME-IN-ERR 19680000 02CA5E 5, -05 --01993J---MnVE-Fl.[)-NOT-NUMERIC-ERR TO RPT?.-ERR-MSC,------------- -- 19690000- 02CA6E---------------- -S48 44 05549 Olq940 PERFORM 179-BUILO-MASTER-ERROR. 19700000 02CA74 095590 Ol C) r) C;3 IF SPE-SAMPLE-CINT-R OF NM110REC NUMERIC 19710000 02CA90 ,t--05551---019960------ANF)-SPE-TOTAL-CNT-9 OF NMitf)PFC NUMERIC--------------.--- 19720000.- 05552 01997() AND SPE-SAMPLE-ENT-R OF NMI10REC 19730000 05553 01 ')Q8() GRE ATER THAN SPE-TOTAL-CNT-R OF NMIIOREC 19740000 MOVE TURN-13N I[) FOIT-FRROR-SW ------Iq75O000 02CAC6 05555 020000 MOVE SPE-SAMPLE-CNT-R OF NMIIOREC TO 19760000 02CACC 05556 02 Or) 10 SPE-SAMPLE-NMBPX 19770000 0555-7-0?()r)?q------ -MOVE--SPE-Tr)TAL-CNT-R OF NPAI IOREC TO --lq78OOOD- -02CAD6----------------- SPE-TOTAL-NMBRX 055';8 (170030 t9790000 05559 020040 MOVE SAMPLE-SIZE-EXC-COLLECTION TO RPT2-FRR-4SG 19800000 02CAEO ........... N4tOO 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS 05,561 o2On63*** 19820000 05562 020070*** THIS EDIT REMOVED 5/12/82 PER S.FPPERLY'o EDITED AT 0.4.F. 19830000 ;-f,--05'i63--02no8,)* ***IF--SPE-SUBSAMPLE-wGT-R--OF NMIIOREC NOT-,NUMERIC----------- 05564 02f,)090*:*** MOVE TURN-ON TO FnIT-ERPOR-SW 19850000 05565 0?010)***** MOVE ISUBSAMPLE WEIGHT4 TO FLO-NAME-IN-ERR t9860000 -19870000- 05 566---- 020110 MOVE FL O-NOT- NOME R I C-ERR TO RPT 2-ERR-MSG 05567 020120***** PERFORM 179-Billin-MASTER-FkROR. 19980100 05568 020133*** NOTE MAYBF .999q (VALID WITH nECIMAL KEYED) 19890000 05570 020150 MOVE SPE-SAMPLE-WGT OF NMItOREC TO CCNVERT-FIELD, 19910000 02CS02 14. 05571 020160 TEST-FIELD. 199?0000 05572--020170 ----PERFORM - 15nA-EDIT-F -XPLICIT-DECIM L. 19930000 05573 02 0183 MOVE CONVERTED-OFC I MAL- 12 TO SPE-SAMPLE-WGT-CNVRT. 19940000 02CB2A 05574 020190 IF SPE-SAMPI-F-WGT-CNVPY NOT NIIMFRIC 19950000 02C034 -05575---O?0?0e) ------------MOVE -TURN-ON--TO FnIT-ERRnR-SW 19960000 02CS46------ 17 05576 020219 MOVE 'SAMPLE WEIGHT1 TO FLO-NAME-IN-ERR 19970000 02C84C 05577 020?20 MOVE FLn-NOT-NUMERIC-ERR TO RPT2-ERR-MSG 19980300 02C85C 05578--O20?30-------PFRFORM -179-BUILD-MASTER-EPROR.---- 99q 00 00 02C 86 2 05579 1)2074') mnVF SPE-SUBSAMPLF-WGT OF NMII0RFC TO CONVERT-FIELD, 20000000 02C87E 013980 0? 070 50 TEST-FIELD. 20010000 58 t- 020269-- --PERFORM 150A-EDIT-EXPLICIT-DECIMALi -----------20020000--- 02CB8A 05992 020270 MOVE CONVERTED-DECIMAL-12 TO SPE-SUBSAMPLE-WGT-CNVRT. 20030000 02CBA6 241 05583 020280 IF SPE- SUBS AMP LE-WGT-CN VRT NOT NUMERIC 20040000 02COBO MOVE TURN-ON TO EDIT-ERROR-SW - 20050000 02CBC2 2.1 055145 020100 MOVE ISUBSAMP WGHT 4 10 FLO-NA4F-IN-ERR 20060000 02CBCO 05586 0?0313 MOVE FLO-NOT-NUMERIC-ERR TO RPT2-ERR-MSG 20070000 02CBDS 5 e7-02 13 20--------------PER FORM - 179- BIJ I Lf)-MAS TER-E RROR. ------20080000 05588 020330 MOVE SPE-TOTAL-WGT OF NMIIOREC TO cnNVERT-FIELOt 200`40000 02CBFA 05509 07.0340 TEST-FIELO. 20100000 f 50----PEPFnR m -I 5OA-FD I T-EXPL I CI T-DEC I MAL. 20110000 02CCO6 02CC22 05 59 1 0211160 MOVE CONVERTED-DEC I MAL- 12 TO SPE-TOTAL-WGT-CNVRT. 20120000 33 05592 020370 IF SPF-TOTAL-WGT-CNVRT NOT NUMERIC 20130000 02CC2C 05593---02nlgO-----MnVE--TIJR!4-04- TO-Et)IT-EPROR-SW 14 (155q4 020190 MOVE $TOTAL WFIGHT1 TO FLD-NAME-IN-ERR 20t5OOOO 02CC44 05 519 5 020400 MOVE FLn-NOT-kJUMERIC-ERR TO RPT2-ERR-MSG 20160000 02CCS4 ----05596-0?04 PER FORM 17q-B!)ILD-MASTFR-FRRnR. -2olToooo---- 02CC5A 37 36 05597 020420 IF SPF-SOBSAMPtF-wGT-CNVRT NUMERIC AND 20180000 02CC76 3, 055QO 02 04 31 SPE-SIJBSAMPLE-WrT-CNVRT LFSS 999999.999999 20190000 zF055q9----020440--------ANf) SPE-SAMPLF-W(',T-CNVRT NUMERIC - -- -- 20210000 056no 020450 AND SPE-SAMPLE-wGT-CNVRT LESS 999999.999999 20210000 0560t 020460 AND SPE-SUBSAMPLE-WGT-CNVRT 20220000 @y---05602-020470---- --GREATER THAN SPF-SAMPLE-WGT-CNVRT - -- ---- 05603 020480 MOVE TURN-ON TO FDIT-ERROR-SW 20240000 02CCCC 05604 02 04 91 MOVE SPF-SUBSAMPLE-WGT-rNVRY TO SPE-SUB-WGHTX 20250000 02CCO2 45 n205OD-------M(YVE-SPE-SAMPLE-WGT-CNVRT TO--SPE-SAMP-WGHTY --------20260000--- 02CCF6 05605 47 05606 0205to MOVE SUB-WGT-EXCEEDS-SAMPLE TO RPT2-ERP-MSG 20270000 O2CD1A 05607 020520 PERFORM 179-BUILD-MASTER-EPRnR. 20280000 02CD20 48 - -_ - - .- - __ T@t- 05608-----020r,30-----Yf:--SPE-SA14PLF-WGT-CNVRT NU-14ERIC AND --.---.---2029 0000 - 02CD3C-- 05609 020543 SPE-SAMPLE-WGT-CNVRT LESS 9999Sg-999999 20300000 05610 ' 0?0550 AND ',PE-TOTe4L-WGT-CNVRT NUMERIC 20310000 05 611-070560-- AND- S PE-TO TAL -WGT-C NVRT LESS 999999.999999- ----- OS612 020570 AND SPE-SAMPLE-WGT-CNVRT 20330000 05613 020580 GREATER THAN SPE-TOTAL-WGT-CNVRT 20340000 f 114 N4100 10.43. t2 APR 3,1984 HEX ADDRESS OF VERBS --05614 0205-q(J---- ----f4nVF---TURN-ON -TO-FOIT-ERROR-SW---- 2035000O-------O2CO92------- 05615 0206nO MOVE SPE-SAMPLE-WGT-CNVRT TO SPE-SA14PLE-WGHTX 20360000 02CO98 05616 020410 MOVE SPE-TOTAL-WGT--CNVRT TO SPE-TOTL-WG14TX 20370000 02CDBC -@--055617-020620--- MOVE SAMPLF-WGT-EXCE[nS-TOTAL TO RPT2-ERR-MSG 20380000 ---02COEO - ----- 05618 02 06 33 PERFORM t79-BUtLD-MASTER-ERROR. 20390000 02CDE6 05619 02064r) MOVE ZEROS TO WORK-CNT. 20400000 02CE02 7 a 05621 O?Of.60* DEBUG 4/83 LRL 20420000 9 Oc, 62 2 02067()* IF SEQUENCE-NUMBER (JF N?'lIOPFC EQUAL 182999999 AND 20430000 --+--05623--O7f)68D*---- -SPEC IFS-GRnUP (IF NMIIOREC EQUAL *8H35440?0111 n5624 0206qo* DISPLAY I DFFsUG-5 I SPE-TAG-TYPEJ OF NM110REC 20450000 05625 n2f)700* SPE-NBR-TAGGEDI OF N0110REC SPE-TAG-TYPE2 OF NMIIOREC 20460000 .... .. 20470000 -NBR C OREC. 10* SPE -TAGGED2 F KMIl 05 62 7 j. a! 0967j3 o7n730 IF,SPE-TAG-TYPEI nF NM110REC = SPACES 20490000 02CEOS ---0562t)-@02O'f4O----------IF--SPE-@JBP-TAGGEnl-CF N411ORFC SPACES- 20500000 : 056-40 020750 NEXT.SENTENCE 20510000 17 0563t 020760 ELSE 20520000 23 05 6 -3 P --02()77f)-------- --MOVE-TORN-ON rn EDIT-ERRnR-SW 20530000 02Cr-2A-- - ----- 05633 02078f) MOVE TAG-TYPE-NOR-ERR TO RPT2-ERR-MSG 20540000 02C(-30 05634 0? 07 q() PERFORM 179-BUILD-MASTFR-ERROR 20950000 02CE36 05 61 5____ 0? 08 oc)_ 5 E__ 2056 0000 05636 020910 IF SPE-NBR-TAGGEDI OF NM110PEC IS NUMERIC 20570000 02CE5A 02CE68 05617 020923 ADD SPE-NOR-TAGGE01-R OF NMI10REC TO WORK-CNT 20580000 20590000 z s: -05638 -CN TO EDIT-FRROR- .SW 26 05639 020840 MOVE TURN 20690000 02CE7C 2-1 Oj640 07 08 50 MOVE TAG-TYPE-NOR--ERR TO RPT2-ERR-MSG 206tOOOO 02CE82 --.It-05641-020860--------PERFnRM-179-BUiLD-MASTER-EpRnR.: 02CE88 Z9 .05642 020870 IF SPE-TAG-TYPE2 OF NMIIOREC - SPACES 20630000 02CEA4 05643 020880 IF SPE-NBR-TAGGED2 OF NMtlOREC SPACES 20640000 02CEBO -05 644 -02 08 90 -----------NEXT -SENTENCE 05645 020900 ELSE 20660000 32i 05646 020913 MOVE TURN-ON TO EDIT-ERROR-SW 20670000 OMC6 33 34 -TAG-TYPE-HBR-ERR TO RPT?-ERR-NSG 20680000 35 05648 020930 PERFORM 179-BUILD-MASTER-ERROR 20690000 02CEn2 36 n5649 020940 ELSE 20700000 T,--0565c)---024)95f)-------Ir---SPE-NBR-TA@,GFn2 eF NMIIOREC IS NUMERIC-.- - 38 056,;1 020963 ADD SPE-NBR-TAGGE02-R OF NMlt0REC TO WORK-CNT 20720000 02CF04 070970 ELSE 20T30000 05652 Z-05 653----02 MOVE JURN-ON JO -EDI T-FRROR-SW 20740000 02CF18--------- 05654 02nggo mnvE TAG-TYPE-NBR-ERR TO RP72-ERR-MSG 20750000 02CFIE n5655 021000 PERFORM 17q-BUILD-MASTER-ERROR. 20760000 02CF24 411 DEBUG 4/83 LRL 4 056-;7 02 10 23 20780000 05658 0210?0* IF SEQUENCE-NUM9ER nF NmlIOREC EQUAL 182999991 AND 20790000 n5 65CV-021040 *----SPEC I E S-GROUP OF--NMIIOREC EQUAL- 0883544070114 ---- - -- 2040 03 00 05660 0?1050* DISPLAY I DEBUG-10 8 WORK-CNT 20810000 n5661 L0S662----Wln70--lf --- WnRK-CNT GREATER THAN IFR(.)- ----20H300O0------O2 -CNT G -SAMPLE-CNT-R OF MlI0REC 20840000 n5663 0210 W) AND WOPK REATER THAN SPE N E 2561t 05664 021()q3 MOVE TURN-ON TO EDIT-ERROR-SW 20850000 02CF5E .,L-f)S 66 5-02 1100------- MOV F NBR-TAGGED-FPR TO RPT2-ERR-MSG 20860000 -----02CF64---- 13 (J'5 666 02)1130 PERFORM 179-BUILD-MASTER-ERROR. 20870000 02CF6A 4 05667 02 1 120 20880000 711 ---------- _721 J 115 NRIDO 10.43.12 APR 391984 HEX ADDRESS 0 VERBS 05668-0@@-Vt-30"O,I-T-An() ()5669 021140 IF SPE-INDIV-FORMAT-CODE OF NMIIOREC 150 20830000 02CF86 M670 071150 AND REPLICATE-NUMBER OF NMIIOREC NOT - 0004 20840000 All --MOVE-TUPN-ON TO EDIT-FRROR-SW-- ---- 05672 O?t170 MOVE FORM-OF-RECORD-TYPE-IV-ERR TO RPT2-ERR-MSG 20860000 02CFA2 7 05673 021180 PERFORM 179-BUILD-MASTER-ERROR. 20870000 02CFA8 r-05674-O21140*--ENO--OF ADDITfr)','I-EFF--- 5679 021?OD* 20830000 05676 021211 153-FDIT-INDIV-REC. 20890000 :1 0 05677*---0212?0*************************************************************** .---20900000 - - ----- 05678 44 021?30* DFOUG 3/83 LRL 20910000 0567q 021240* IF SEQUENCE-NUMBER OF NM11OREC EQUAL 174999,991 AND 20920000 12 021?50* APEC TES-CnDE OF NM110REC EOUAL -'87470101054 AND -----20930000--------- - ----- 05681 021?6r)* LINE-NUMBER OF P1Mt1OPEC EQUAL 40084 20940000 n56A2 n21770* DISPLAY IDERUG-t I. INOIV-AGE-STATUS OF NMIIOREC 20950000 5 6 8 3--0 2 17 80 * I N n I V - A G E - S TR U C T U R E OF N M t I OR CC - 2096 00 DO---- .05684 02 t 293 * INDIV-ACE OF NMttOREC 20970000 .221 i lei 05685 '021300* 1NOIV-SPAWN-MAPK-CNT OF NM11OREC. 20980000 ;3 n ? 13 10 2 0 9 q 0 0 0 0 - - - -- --- __ .14 056R7 021120 IF INOIV-AGF-R OF NM11OREC NUMERIC 21000000 02CFCE- 05689 0? 13 31 ANn INnIV-SPAWN-MARK-CNT-R OF NmtIOREC NUMERIC 21010000 2, -i--05 6 R9 -----0213 41 --AND--I NO IV-AGE-R_(IF- NM I t OR FC L F S S THAN @1020000 --------- 5 3@ 1 -SPAWN MARK-CNT-R OF NM110REC 21030000 093690 021?50 NnIV 056ql 021360 MOVE TURN-ON TO EDIT-ERROR-SW 21040000 02000C -05692---02 13 70 MOVE A GE-L T-S PAWN-MARK TO RPT 2-ERR-MSG 2 105 0000 056q3 021380 PERFORM 17q-BUILD-MASTER-ERRnR 21060000 020018 n5694 21070000 -056<)5---021400*------AnC)ED-11/82 PER MEMO 11/9/82 --21040000 j 0561)6 021410 IF ITNDIV-AGE-STATUS OF NM1tORFC EQUAL 106 OR 21D90()OO 020034 05697 021420 INDIV-AGE-STATUS OF NMI10REC EQUAL 11 21100000 5-,--05698 -02 14 31V IINOIV-AGE-STRUCTURE (IF NM11OREC NOT EQUAL--'----$ OR 21119000 32 nr,6qq O?t44-9 INnIV-AGE OF NM11OREC NOT EQUAL OR 21120000 33 05700 021450 IMDIV-SPAWN-MARK-CNT (IF KM11OREC NOT EQUAL 21t30000 O57O1---O2146O-----MOVF TURN-ON TO EDIT-ERROR-SW --------- OZDO6E@--__1__________._____- OST02 0?1470 MOVE INOIV-AGF-INCONSIS TO RPT2-ERR-MSG 21156000 020074 05703 021480 PERFORM 179-BUILD-MASTER-ERROR. 21160000 02007A iil--05704-@---0214qO-----@---IF-fi@inIV-AGE-STRIICTURE OF NM11ORFf' EQUAL -1 -AND 21170000 09705 n21503 (f1M()1V-AGE-STNTUS OF NM11OREC NOT EQUAL 401 AND 21130000 05706 021510 INDIV-AGE-STATUS OF N'MIIORFC NOT EQUAL IOR 21190000 f)5707--021520-------fNDIV-AGF-OF NM11OREC NOT EQUAL OR ---- 05708 021530 INGIV-SPAWN-MARK-CNT OF NMI10REC NOT EQUAL 1 4 1 21210000 T.2 05709 021540 MOVE TURN-ON TO EDIT-ERROR-SW 21220000 02DOC6 05710---021550----- -- MnVE-INDIV-AGE-INCONSIS TO RPT2-ERR-MSG- ----------21230000- 441 n5711 021560 PERFORM 179-FI(IILD-MASTER-FRReR. 21240000 020002 05712 021570 IF (INnIV-AGr OF N'411ORFC NOT EQUAL OR 21250000 02DOEE 713--021580---t tin I V-SPAWN-MAR K-CNT OF NM t I OREC - NOT -EQUAL. 2126 0000 05714 0219qO AND ( lNnIV-AGE-STATUS OF NM t LOPEC LESS $ to OR 21270000 05715 021600 INDIV-ArE-STRUCTURE OF NMI10REC LESS @11 1 21280000 T@--05 716--02 16 10---- -_ MOVE - TURN-ON TO FO I T-EP ROR-SW 21296000 - 021)116---- 057t7 02t620 MOVE 1Nn1V-ArE-1NCCNS1S TO RPT2-ERR-MSG 21330000 02OtIC 05718 021630 PERFORM 179-RUILD--MASTER-FRRCR. 21310000 020122 AND 05719--021640--IF-1@ir)TV-AGF-STAT(JS -OF hM110RFC EQUAL 'Is 52. 53 09770 021650 INDIV-AGE-R OF NM11ORFC NOT NUMERIC 21330000 'o 3.11 05721 021660 MOVE TURN-ON TO EDIT-ERROR-Si. 21340000 020158 71 is 116 wtoo 10.43.12 APR 391984 HEX ADDRESS OF VERBS a ---MOVE- INDIV-ArjE-STAT-ERR2 T13 RPT2-ERR-MSG ---------21350000---- 02015F: ------ - 2 05723 021680 PERFORM 17q-BUILD-MASTFR-ERROR. 21360000 020164 3 05724 0216qo IF INOtV-AGE-STATUS OF KMIIOREC EQUAL 026 21370000 020180 3 PERFORM 249-SAVE-AGE-STATtIS 2139 0000 02D18C 05726 0217tO MOVE NMtIOREC TO SAVE-INDIV 213qoooo 0201AS 05727 021720 IF INDIV-AGE OF NmtlOREC NOT NUMERIC 21400000 o2nia a -7, ----05 72 8 @-0217 30 MOVE TURN-ON TO-EOIT-FRROR-S@i 0201CA----- 05729 021741 MOVE INDIV-AGE-STAT-ERRI TO RPT2-ERR-MSG 21420000 02DIDO 05730 021750 PFQFORM 179-SUILD-MASTER-ERROR. 21430000 02DID6 T,-O573U--02I76l-- IF INDIV-AGE-STATUS OF NMIIORFC EQUAL '30-AND- 21440000 0201F2 :3 05732 02t770 I INDIV-AGE OF NMIIOREC NnT-EOUAL SPACES OR 21450000 0'5733 021780 INOIV-SPAWN-MARK-CNT.OF NMIIOREC NOT EQUAL SPACES 1 21460000 -21 --- --- - 214.70000 -----05734--02174()--- --MOVE TuRN-ON TO EOIT-FRROR-SW 0 5 7 1 -1 0?11300 mnvF [Nn[V-AGE-STAT-ERR4 TO RPT?-ERR-MSG 21430000 020228 05736 021910 PFRFORM 179-BUILn-MASTER-FRRCR. 21490000 02022E t)5737--()?1820--ff-INf)fV-TAG-14MOR-ALPHAO NOT ALPHABETIC-OR 2150 0000---- 02024A 17 05738 021830 INDIV-TAG-MMBR-nIGIT NOT NUMERIC AND 21510000 221 05739 021840 INDIV-TAG-NBR OF NMIIOREC NOT EQUAL SPACES 21520000 2 MOVE TURN,-ON TO EDIT-ERROR-SW 05741 02IS60 MOVE 1'4r)IV-TAG-NBP CF NM110RFC TO TAG-NBR-ERROR 21540000 020282 05742 021870 MOVE TAG-NUMBR-ERROR TO RPT2-ERR-MSG 2t550000 020288 21 4 21880 ------------PERFnRm- 179-BUI LO-MASTER- ERROR. ---------21560000--- 02028E--- - 05744 021gqO- 208,40000 05745 02lqOD* EDIT ADnED 2/84 BY EFF 2082oooo _----0S746--02I91O----IF-f INDfV-TAG-NBR OF NMIIOREC NOT ---SPACES) --20830000------ 0202AA 74 7 02 IQ ?1) AND (INnIV-STATuS OF NMIIOREC GREATER THAN 3 20840000 O@748 021q3O OR 27: LI:S.S THAN 11 20940000 ---MOVE-JURN-ON TO EOITiERROR-SW--- ---20810000---- 020200 05750 071950 MOVE STATUS-NSR _ EPR 0 RPT2-ERR-MSG 20860000 020206 05751 OZIQ60 PERFORM 179-BUILD-MASTER-EPROR. 20870000 02020C O5752--02Tq70*-FNO-OF--ADDIT ION EFF----.- 05753 02lqAo* 20380000 05754 @3' 33 --r)S755 'i4 7"1 35 05756 022010 155-EOIT-ANNULUS-RFC. 21590000 4C 05,757 n??n20 MOVE I TO WK-SUR. 21600000 020302 '47 -ij---OS?58---022030------PERFOPM 21610000-- 020308 ------ n575q 022041 UNTIL ANL-OIST (IF NMtIOREC (WK-SUBI NOT NUMERIC 21620000 05760 022050 OR ANL-DIST OF NMIIOREC IWK-SUBI EQUAL ZEROS. 21630000 39 .0 -05 76 1 02 2(16') --IF--WK-SUn NOT EOUAL 1 21640000 02D3SC-------- 05762 022070 COMPUTE WK-SUB WK-SUB 1. 21650000 02036C 05763 21660000 .2 2167 0000 05764-- nEROG 3/83 LRL- 05765 02 2101) IF SEOUENCE-NOMRCR (IF NMI10REC EQUAL 6749qqqqG AND 216%0000 05766 OMI)* SPFCIES-CODE OF NMItOREC EQUAL 187470101651 AND 21690000 @5 - 05767--022120*--LINE-NUMBER-OF -NMttOREC EQUAL-- 0013* - - 21700000 D5768 022t3)* DISPLAY IDEBUG-2 I ANL-MARGIN-INCR OF NMLIOREC 21710000 0576q 022140* ANL-DIST OF NMIIOREC IWK-SUBI 21720000 05770--0?2150*.------ ANL-LTH-TO-FDGE (IF NMIIOREC 'n5771 027 160 WK-SUB 21740000 05772 21750000 " 6 C,S 7 2 Sr 23 05773-02218')*-- --ADDEn PER-MEMO 2/25/83 FROM EPPFRLY BY LRL --21760000---- 05774 022190 IF All-L-MARGIN-INCR-R CF NMItOREC NOT NUMERIC 2070000 02037A 05775 022200 IF ANL-DIST OF NMIIOPFC (WK-SUR) NUMERIC 21780000 020389 ttT N4 tOO 10.43.12 APR 3,1984 HEN ADDRESS OF VERBS 05 7 7 6- 2 2-2 IJ lf@--ANL-DIST-OF NMItOREC--tWK-SUBI--ttOT--GREATER------- ---2t?90000-,- 020300------ 05777 022220 ANL-LTH-TO-EDGE-R OF NMIIOREC 21800000 0577R 022?30 COMPUTE ANL-MARGIN-INCR-R OF NMIIOREC 218tOOOO 0203C6 4 ANL-L TH-TO- EDGE -R OF NP411OREC - ANL-OIST-21820000--- 05790 072250 OF NMIIORFC (WK-SUBI 21830000 05791 022260 ELSE 2t840000 -----------,Ai)nED 4/n3 LRL TO CORRRFCT OMISSICN OF-TEST 21850000-- 05783 022?80 MOVE TURN-ON TO EDIT-EPROR-SW 2t860000 0203F6 Or, 784 02 22c)0 MOVE LNGTH-LAST-ANNL-INCONSIS TO RPT2-ERR-MSG 21870000 0203EC 2 785 ----0221 ----'PFRFORM I 79-BUI L D-MAST FR- ERROR 21880000- 05786 022310 MOVE ZEROS TO ANL-MARGIN-INCR-R OF NMIIOREC 21890000 02D40E@ 12 05787 0?2370 ELSE 21900000 05 7A8 -- 0?23 10 ---MOVE - ANL-LTH-TO-EDGE OF NMtIOREC TO 2 t9l 0000 05799 07234r) ANL-MARGIN-INCR OF NMIIORFC. 21920000 05790 022350* 21930000 4----0579t '022361 --tf-- -A4L-DI-ST--OF-- NMI IOREC IWK-SUBI NUMERIC AND- 2194 0000 020422------ a "1 0579? 022170 ANL-DIST OF NMIIOREC (WK-SUB) NOT EQUAL ZERO 21950000 1 05793 02238) COMPUTE COMP-LEN = ANL-MARGIN-INCR-R OF NMIIOREC + 2t960000 02D45A 05 794 0223 91 ----- -- ---- -----ANL-DIST OF NMIIOPEC (WK-SUB) 21970000 79F 057qs 022400 ELSE 2t98ODOO 2 t 057q6 027410 MOVE ANL-MARGIN-INCR-P. OF NMIIOREC TO COMP-LEN. 2lq9OOOO 02047A -@--057q7----0?242)--------tf--cnmP-LEN NnT---- ANL-LTH-To-EDGE-R,OF NMltOREC 2200 0000 - - M798 022430 MOVE TURN-ON TO FOIT-ERROR-SW 22010000 02049A 0579q 111@440 MOVE ANL-LTH _ Tn-EDGE-ERR TO RPT2-ERR-MSG 22020000 02D4AO 0 0 - 0 2 ? 4 5 1)- P F P F 0 R 14 - 17 9 - B U I L n - m A S T E R - E R R 0 R . - 2203 0000 0204A6 05801 022460 MOVE TURN-nFF TO DECRFASE-SW, MISSING-DISTANCE-SW. 22040000 02C4C2 27 05 802 022470___MOVE Wr_SU8 TO WK-SUB-2. 22050000 0204CE ii@- 05901--0?;1481 SURTRACT-1 FROM 'WK-SUB-2. --22060000 02D4DO 05S04 0224qO* 0 0 0 22370000 05805 022,)nn* WK-SUB HAS INDEX OF LAST NUMERIC DIST TO ANL 22080000 3 301 2 E .10 05on6 02 25 111) WK-SUR I S ONE L SS THAN WK-SUB 22090000 OSR07 0?2520*********** ******* 221r)nooo 3': 05808 0?2533 MOVE I TO WORK-CNT. 22110000 O2D4E6 ,_f)5809-022540--fF--WK-SUR-2 GREATER ZERO--- 0204EC-- 05810 022550 PERFORM 157-TE ST-01 STANCE- INCREASE 22130000 0204FC VARYING WK-SUB FRCM'WK-SU8 BY MINUS-1 3@ 05811 027560 22t40000 _ __ k' 37 5 A 1 2 ---- 02 25 70----- UNTIL WK-SUR LESS THAN 2- 22150000 1 n5 A I --i n22.583* 22160000 38 1 05814 0 2 ') 5'40 * THE FOLLOWTNG CODE CHECKSTHE ONLY DISTANCE 22170000 3@ -r--058t5---()22-%03*--@tIT-CnVERED-IN THE ABOVE-LOOP 1ST DIST.- --- ----- Z 3 05816 022610* 22190000 41 41 051317 022621 IF ANL-DIST OF NMIIOREC (1) NUMERIC AND 22230000 02054A -I--- f15 9 19 022630--------AIiL-f)IST OF N411OREC I I) - ZEROS --22210000 058t9 022640 MOVE TURN-ON TO MISSING-DISTANCE-SW. 22220000 02D56C 41 . OS 142 n 0? 76 51 IF ANL-AGE-R OF NmjIoREC EQUAL ZEROS AND 22730000 020572 .--OSF121-027660------A@IL-LTH-Tfl-EDGE OF NMIIOREC NOT EQUAL ANL-MARGIN-INCR@R: - 22240000 .7 05822 02 70S 70 OF NMIIOREc 22250000 4a 05 R?3 0226AO MOVE TURN-ON TO EnIT-ERROR-SW 22260000 020SOC 03 824----022693 - unvE WNFOUAL-LTH-AND-MARGIN TO RPT2-ERP@MSG- 02DS92.--,.- 05925 0? 27 Or.) PERFnpm 179-BUILO-MASTFR-FRROR. 22290000 020598 05 8?6 n2'710 IF Nn-(,jECPEASF 22290000 02DSB4 --0- )q2?----02272n MOVE T(JRN-ON-Tn EDIT-ERROR-SW -22300000 05828 0?.2730 mnVE ANL-niST-EPROR TO RPT2-ERFk-MSG 223toooo 02OSC6 54 01929 02270 PERFORM 1?9-,8lJTLD-MASTER-FRRnR. 22320000 0205cc 7 5 lip N4100 10.43.12 APR 3,1904 14EN ADDRESS OF VERBS 830- 0?21`5F)--fF- wnRK-C-NT-GR EAT ER- -THAN- ANL-AGE-R -OF N-411OREC -AND 020SES 831 0227bO ANL-AGE-k Of KMIIOPEC GREATER ZERO 812 022770 MOVE TURN-ON TO EDIT-ERROR-SW 22340000 22350000 02060C 833--D??780'------'--MOVe--NSR-ANt-r)lSt-GT-ArE- TO RPT?-ERR-MSG 22360000- 5 05934 027790 PERFORM 179-8UtLD-MAStER-ERROR* 22370000 02061i oil f)5835 't--05A!6 - 0?2AI0*-DF8UG -r.HFCK - 1/83 LRL 22 39 00 00 n5837 027820* IF SEQUFNCE-MUMBER OF NMI10REC EQUAL *7qOO989* OR 22400000 05838 022831* SEQUENCE-NUMRER OF NMI10RFC EQUAL 17900990' 22410000 839--0228410-91 SPLAY- ODEBUG-A-f SPECIES-GROUP CF NMIIOREC 022%35f)* LAST-SPECIES-rPnUP SAVE-INDIV- .AGE-STATUS. 22430000 051340 05841 1-05 70* CHANGE F IRST PART OF IF TEST ASSUMPTION THAT ONLY ONE ANNULU22450000 - 05843 0721so* REC13RD PER INf)IVADUAL IN FILE 22460000 05844 07?AQI IF SAVE-INnIV-AGE-STATuS EQUAL '24 22470000 020634 94 5 -0? 79 00 MOVE SPACES-TO SAVE-INnIV-AGE-STATUS 2 244 0000 -020640---- 05i46 022910 ELSE 22490000 05F147 022920 22500000@ 020648 MOVE TURNI-ON TO EnIT-EPROR-SW .05 849 02 2931 MOVE IND-AGF-STAT-FRR TO RPT2-ERR-HSG, 22510000 -02D64E-------. 0504q 02?q40 PFRFnRA( Z2520(300 02t;654 Id 05850 02?951* AnDEO 5/43 PFR DiSrUSS113N WITH FPPFRLY By LRL 22530000 05851--02296'1 ---- IF-- SAVE- IN1 IV-AGE-R NUMIERIC ANO-ANL-AGE-R OF NMIIOREC NU4ERIC22S40000- 1115955? 0?2970 IF SAVE-INDIV-AGE-R NOT EQUAL ANL-AGE-R OF NMtI0REC 22550000 020690 ul 05853 02 ?983 MOVE TURN-nN TO EDIT-ERRnR-SW 225600uo 0206A6 i;7-05954 -----022991 MOVE AGE-CONFLICT TO PPT2-FRR-MSG 22570000--- 02D6AC --- ---- 05855 o? 3tiol PERFORM 179-9UILD-MASTER-ERPOR. 22580000 020662 Sal SI 27@ 058516 _05 85 T___' 0730200--- DERUG 10/83 LRt 22600600-- 7. m ;31 05858 023030* IF SEOUENCE-NUMBER OF NMIIOREC EQUAL $299995 22610000 1 - f 05 F159 0 2 -41) 4) DISPLAY '.D.CBUG-Y * SAVE-INDIV-SPAWN-MARK.9 22620000 ISO, i @o -05860---02305()*@----@----NU14-OF-SPAWN-MARKS OF NMtt0QEC I I SAVE-INDIV-LINF----- 22b3()O')O .05 86 1 07106')* LINE-NUMBER OF NMIIORFC 22640000 05862 05863--0?3n80*---ADDE0-PER 'MEMO 7/t4/8'3 -- 10- 05864 023090 IF SAVE-INDIV-SPAWN-MARK-R NUMERIC AND 351 22670000 0206CE 05965 023100 NUM-OF-SPAWN-MARKS-R OF NMIIOREC NUMERIC 22610000 0'5e66---n23tI0-------- -IF-SAVE-I1`JDIV-5PAWN-MARK-'-R NOT EOUAL-- --0206EE------- - ----- ; -SPAWN-MARKS-R OF NMI.IOREC 22700000 05867 023120 NUM-OF 0586R 02 3130 MOVF TURN-fN TO EnIT-ERROR-SW 22710000 02DT04 ---MOVE SAVE- [NO IV-SPAWN-MARK TO INOIV-SPWN- --22720000 05870 023150 MOVE NUM-OF-SPAWN-MARKs OF NM110RFC TO ANNL-SPWN 22730000 02D710 54 05871 023160 MOVE SPAWN-CONFLICT TO RPT2-ERR-MSG 22740000 020716 ii@--05872 ------PERFORM t79-BUILD-MASTER-ERROR. 227500GO -02C71C 1 65873 023180* 14 22760000 05874 023190 156-FIND-LAST-DIST-TO-ANL. 227?0000, 22780000 9 7 5 I-TO-WK-SU9.w-- 05876 023;-)Io* 227qoooo G21 :a, 05877 021720 157-TEST-DISTANCE-INCPEASE. 22800000 --'-05878--023233----IF-ANL-DTST OF NMIIOPFC-IWK-SURI--NOT--NUMERIC- --------223L0000- --020756---- 14':" 09871) 023740 OR ANL-01@1` OF NMIIOREC (WK-SUB). - ZEROS 22820000 o5acto 021?50 MOVE TUR4@DN TO MISSING-DISTANCE-SW 27830000 02078F. _05 05 -k--415 ?61 2,2940000@ 05892 023?70 ADD. I TO WORK-CNT 22850000 02D798 058R3 023280 IF ANL-DIST OF NMIIOREC (WK-SUR) 22'360000 02D7AZ lip N4100 10.43.12 APR 391-984 HEX ADDRESS OF-VERBS or) 930-0@72TSO-ff- WORK-CNT- GREATER -THAN- ANL-AGE-R OF-NM1t0REC AND -------22330000-- 02D5ES--- OF NMI10P.EC GREATER ZERO 22340000 09R31 022760 ANL-AGE-R .058-42- 022770 MOVE TURN-ON TO EDIT-ERROR-SW 22350000 02060C 015933----02?780-- MOVE -N8R-ANt-nIST-GT-AfE TO RPY2-ERR-MSG, 22360000-- 020612- 05834 027790 PERFORM 179-BUILD-MASTER-ERROR. 223TOO00 020618 05835 7 05836- 0?2AI0*-DFBUG-CHFCK-I/83-LRL 22390000- nc.837 02700* IF SEQUENCE-NUMBER OF NMIIOREC EQUAL *7900989@ OR 22400000 05838 022830* SEQUENCE-NUM9ER OF N?J110REC EOUAL '79009qOo 22410000 05 839-022840 SPLAY *DEBUG-A-' SPECIES-GROUP OF NMIIOREC 22420000 0584n 022951* LAST-SPECIES-cpnup o 0 SAVE-INDIV-AGE-STATUS. 22430000 05841 iy-05842---02 29 71*--- CHANGE FIRST PART OF IF TEST - ASSUMPTION THAT ONLY ONE ANNULU22450000-- 05843 02213S6* RECORD PER INDIVIDUAL IN FILE 22460000 05844 0?2qq3 IF SAVE- i.Nn TV-AGE-S TATUS EQUAL 121 22470000 020630# i91 7 MOVE SPACES TO SAVE- I NO IV- AG E-STATUS 22450000-----02064&---------- 2 t 05846 022910 ELSE 22490000 22 05847 07?920 MOVE TUPN-ON TO EDIT-ERROR-SW 22500000 020648 'F 22510000 - 02064E----. MOVE IND-Ar. -STAT-FRR TO RPT2-ERR-NSG---.- 077940 PERFORM 179-BUILD-MASTER-ERROR. 225200on 020654 09849 05850 02?950* ADDED 5/83 PER r)ISCUSSION WITH EPPERLY BY LRL 22530000 05851--7--0?2961 SAVE- I NO IV-AGE-R NUMERIC AND ANL-AGC-R OF NM1fOREC NUMERIC22540000- 0206?0------ ------ (15 852 0229TO IF SAVE-INDIV-AGE-9 NOT EQUAL ANL-AGE-R OF kMI10REC 22550300 02D690 05853 07?980 MOVE TURN-nN TO EDIT-FRRnR-SW 22560000 0206A6 MOVE -AGE-CONFL ICT TO R PT2-FPR-MSG 22570000- 0206AC 05855 0?3001 PERFORM 179-BUILD-MASTER-FRRCR. 22580000 0206B2 271 05856 8 5 7-- 07 30 20 DEBUG 10/83 LRL 22600000- - 05859 02333)* IF SEOUFNCE-NU4BER OF NMIIOREC. EQUAL 8299995 22610000 @oj 05859 023043* DISPLAY @ DEBUG-Y I SAVE-INDIV-SPAWN-MARK 22620000 '39 y,-,-0586O--02305r)*-------- NU?4-09:-SPAWN-MARKS C-F NMtIOREC SAVE-INDIV-LINE 22630000- 05861 02-4()b')* LINE-NUMBER OF NMIIORFC 22640000 05862 t--05 863--023f)"*-Af)OEO- PER -MEMO 7/14/03 - 10--- 22660000------- 35 05864 023090 IF SAVE- I Nr) IV-SPAWN-MAR K-R NUMERIC AND 22670000 0206CE 05865 023100 NUM-OF-SPAWN-MARKS-R OF NMIIOREC NUMERIC 22690000 A' --05866 023110 -- -IF- -SAVE- IND I V-SPAWN-MAR K-R NOT EQUAL 2 269 00.00 - - 0206EE------- - 05867 n23120 NUM-OF@SPAWN-MARKS-R OF NMtIOREC 27700000 0586R 0231 3n MOVE TURN@CN TO EDIT-ERROR-SW 22710000 020704 -05869-f)23I4!)------- MOVE SAVE- INOtV-SPAWN-MARK- TO INOIV-SPWN- -----227?0000------02070A---- 0 41 05R70 023150 MOVE NUM-OF-SPAWN-MARKS OF NMIIOREC TO ANNL-SPWN 22?30000 020710 42 05871 023160 MOVE SPAWN-CONFLICT TO RPT2-ERR-MSG 22740000 0207t6 i.--05872 -PERFORM 179-BUILD-MASTER-ERROR.- 227500CO 0207tC - 44i 05873 023180* 22760000 .51 05874 023190 156-FIND-LAST-I)IST-TO-ANL. 22770000 4 ---020742-- 05876 47 023?19* 22790000 4a 1 05877 021720 157-TEST-n[STANCE-INCREASE. 22800000 -.05978-i)23233-------IF-ANL-DIST OF @4MItOPE-C-IWK-SURI-NOT-NUMERIC- 058719 021?40 OR ANL-DIST OF P114tIOREC (WK-SUB) - ZEROS 228?0000 059,10 0?3?50 MOVE TURN-ON TO MISSING-DISTANCE-SW 22830000 a2D78E jj Or) age 021270 ACV) I TO WnRK@rNT 22850000 020798 5.41 -05 88 3 2 52 SO IF APIL-0131 OF NMtl6gef! IWK-SUB) 22960000 9;Mki IIq NMIOO 10.43.12 APR 391984 HEX ADDRESS OF VERBS GREA TER -THAWANL-DIST -Or---NMttOREC IWK-SUB-21- ---22870000-- 05885 023103 MOVE TURN-ON TO BECREASE-SW. 22880000, 02070C 05AR05 023310 SUBTRACT I FROM WK-SUO-2. 22890000 0207EA 05 8 8 7 0 2 3 3 2' ) 2 2 9 0 0 0 0 0 - 058A8 023330 159-EDIT-TAG-RECAPT-REC. 22910000 7 05 8 q 0 0 2 3 3 5.) DEBUG 9/A3 LRL- 7- 2 293 0000-- IF SFQUENCE--NU49ER nF N?'II0REC EQUAL ISZ99991' 22940000 05891 n2336'1* 05692 021373* DISPLAY IDFBUG-U " PECAPTURE-DATE OF NMlLOREC 22950000 05 693--- 0213 80 SAVF-ENV IR-DATE. 22960000- 'I7_05894 14 12i O56qS 02 34 01 EDIT PFCAPT DATE WITH ENVIR DATE 8/83 22980000 ,a I 0`599f---0214t0------IF PECAPTURE-DATE-P NUMERIC AND SAVE-ENVIR-OATE-R NUMERIC 22990000 14! 05 Sq7 023420 AND, RECAPTtJRF-0ATE-R NOT EQUAL ZEROS 23000000 05Aq8 n 2 34 3.1 ANr) SA'JF-ENVIR-I)ATE-R NOT EQUAL ZERnS 23010000 i-'@ 05899--()23440 PERFORM -158f)-COMPARE-DATES. 23020000 - ---02D83E---- 1@ 0@900 0234.50 IF TAr,-NU43FR-0IGfT NOT NUMERIC DR TAG-NU.-49ER-ALPHAB NOT 23030000 02DS56 05qr)l 0734.60 ALPHABETIC 23040000 05 902- -02 34 70 MOVE TUPN-ON TO EDIT-FRROR-SW 23050000 020876 05913 n'348,I) lAOVF. TA5-NUIARER OF NMI t0RFC TO TAG-NOR-ERRUR 23U60100 02DRIC .059n4 023490 MOVE TAG-NUMBR--ERRnR TO RPT2-ERR-14SG 23070000 0208@2 u-105905--- 02 35 ----------PERFORM - t79-BUII-D-MASTER-ERROR. - 23 030006 - 02 D8 9 9 231 .05906 023510 IF TAG-NUMAR-CNTR NOT EQUAL ZERO 23090000 020BA4 'I 05q07 023521 PERFORM 15BC-SFARCH-TAG-NUMBER-TABLE VARYING 23100000 020884 0`5908- TAG-;SUBSCR Fqn4 I By I UNTIL ITAG-wSUBSCR- 23110000 -- 059,19 013541) GREATER TAG-Nt)MBR-CNTR OR TAG-MATCHEDI 1 23120000 26 27 05t)10 0131,51 ELSE 23130000 )qtl----0?3560 - ------ MOVE I- -70--TAG-NUMBR-CNTR - ---- - 23140000 05912 02-3573 mnvE 1 Tn TAG-SUBSCR 23150000 02D90C Joel 05913 n235,80 MOVE TAG-NUMBER OF KMIIORFC TO TAG-RECAPT-TAG-NUMOR (1). 23160000 020qI2 32 059t5 . n?360n MOVE T(JRN-OFF TO TAG-mATCHED-SW 23180000 020924 42: 23190000 Ais@ 33 2 - '4A T, -05917---0236?n**--ABENnS IF-MORE-THAN 600- RECAPTURES---- - - ----- --23200000 05qla n?3633** AIDED 1/94 BY B. CRIDER 23210000 OS919 23220000 17 31--05'9?0-----0?3A50-- -ABFNr)S- IF- MORF THAN 3001) -RECAPTURES---- 23213')000------- 0599'1 0236AQ** CHANGFP 04/03/84 RY EFF 23210000 05q22 232ZOO00 3 ELSE 23210000 05q?4 023691 IF TAG@IIUMBR-CHTR 3000 23240000 32092E 05925 ()? 3100 DISPLAY 'RECAPTURES EXCEED 30001 23250000 02093A Z --05926-0217 ADO I TO CAOSE-AREND 23260000 .-0 2 094E--- - 3 to 059?7 023770 FLSF 23270000 09978 023731 ADD I TO TAG-NOM8R-CNTR 23280000 020968 -05924-023749-- --MOVE-TAG-NUMBER OF-hMII0RFC TO----- 23290000----020974 . . ..... 7 05910 0?3750 TAG-RECAPT-TAG-NIJMBR (TAG-NUMBR-CNTRI 23300000 0"; `43 1, 02371,0* 7/14f83 PARA @7 q/83 23310000 1:_05 9 3 2 ---0:) 3 7 70 7 3 3 2 00 00 05913 023780* nFBuG 9/H3 LRL 23330000 n9934 n?*47qO* IF SEQUENCE-NU14FIER OF, NM110REC EOUAL '829999t@ OR 23340000 SE011ENCE-NUMBER OF N.1411DREC EQUAL *8299994, 23350000 05936 [email protected]* DISPLAY "DElUG-W." SEOUFNCE-NUMBER OF NM110REC 23360000 % 05937 ()21320* SAVE-TAG-RECAPT-TAGI 23370000 7- .120 N4100 10.43.12 APR 391964 HEX ADDRESS OF VERBS -05939 023P,30*---------SAVE-TAG-RECAPT-TAG2--�--O--TACs-TYPE-OF NKILOREC-6 9-, 233-30000-- 0593q 02384')* SAVE-SPF-TAGI 6 1 SAVE-SPE-TAG2 23190000 o5q40 05942 023R70* ADOFD BY.FFF 03/23/84 234.00000 61 05943 023880 IF SPECIES-FOUND 02D99.8 7 05944 023890*-fND-OF-AODITION BY ----2340O000-______ 05945 0?3903* 23400000 05946 0?3qlo IF SAVE-TAG-RFCAPT-TAGI EQUAL SPACES ANf) 23410000 0209AO "2 05 94 7 ---()? 39 21 1 TAG- TY Pr - OF Nm 1 LOR EC - E DUAL SA VE- SPE- TAG t - OR ----2342 0000 -_-__-____- I I i M948 023930 TAG-TYPE OF NMIJOREC EQUAL SAVE-SPE-TAGZ) 23430000 1141 1 05949 0@2945 MOVE TAG-TYPE OF NMIIOREC TO SAVE-TAG-RECAPT-TAGI 23440000 02D9BC Oel ADD I TO SAVF-TAG-FtECAPT-TAGI-CNIR - ---- - ---- 23450000-- 02D9C2- 0595t 023960 ELSE 23460000 05952 023q7O IF SAVE-TAG-RECAPT-TAG1 EQUAL TAG-TYPE OF NMtl0REC 23470000 02D90C --05953- --ADD -I- TO SAVE-TAG-RECAPT-TAGt-CNTR --23480000-.,- --O2D9E6---- 05954 023qq() ELSE 234qOOOO 05959) 024()nl IF SAVE-TAG-RECAPT-TAG2 EQUAL SPACES AND 23500000 02DA00 '23 0 S 9 S 6 --- 0 2 4 0 t 0 -------ITAG-TYPF OF NMI10PEC EQUAL SAVE-SPF-TAG1 OR - 23510000 -TYPE OF 23520000 20 015957 0@4120 TAG NMtl0PEC EQUAL SAVE-SPE-TAG21 059,18 074()3D MOVE TAG-TYPE OF NMIl0RFC TO 23530000 02DAIC 05 95 9 02 40 4) ----23540000 05960 024050 ADD I TO SAVE-TAG-RECAPT-TAGZ-CNTR 23550GOO 02DA22 :4! 05961 024660 ELSE 23560000 i__ ------ ...... 05qN2 --074070 .-----.-------]F--SAVE-TAG-RECAPT-TAG2- EQUAL TAG-TYPE - 23570000- -02DA3C----- 05963 0?4089 OF NMI10REC 13580000 05964 024091 ADO I Tn SAVE-TAG-RECAPt-TAG2-CNTR 23590000 02CA46 23600000 n9966 02411n MOVE TURN-CN TO ECIT-ERROR-SW 2300000 02DA60 05q67 0?4123 MOVE TAG-TYPE OF NMtIOREC TO FRR-TAG-TYPE 23620000 02DA66 __05968@0741 10 ----MOVE TAG-TYPF-ERRCR TO RPT2-ERR-MSG 23630000 02CA6C--- J, 141 05969 024141 PERFORM 179-BUILD-MASTER-EPPOR. 23640000 02DA72 n5970 0241500 20880000 - -0 2 4 160 ED I-T-- A r)OE 0-2-1 f) 4-8 Y-- E F F- 20820000 34 Wl I I L . 14t 3@ o5q72 024170 IF DIST-TRAVELED OF NMIIOREC NOT SPACES 20630000 020ASE 36 05973 024i 8') AND RECAPTURE-LOC OF )YM116;IFC SPACES 20840000 -0',974---07411J0------MnVE JURN-ON TO EOTT-ERROR-SW ,@;j ---- ---- 2Oq5OOOO 34 05q75 024?0r) MOVE nIST-TRAVELEo OF NM110RFC TO ERR-DISTANCE-TRAVELED 20860000 020ABC 05976 024?10 MOVE DIST-TRAVELED-FRR TO RPT.2-ERR-MSG 20860000 02OAC2 _G5q77--0242?0----- PFRFOR4-t79-0!)ILD-MASTER-ERROR.-- 208TOO00- 5 3 05978 024?30* END OF ADDITION EFF 20880000 05979 024?4n* 23650000 23660000 41 05990-@- 02425)* 05981 024260 ISBA-nATE-ROUTTNE. 21670000 4 05qB2 02427,1 MOVE ZEROS TO CNVT-SDN9 CNVT-JULIAN5v CNVT-JULIAN?t 2368onoo 020AFE 3-024?AO-------- CNVT-YMOR, CNVT-ALPHA-ARBRV, 23690000 61 059P4 024291 CNVT-ALPHA-DATE, CNVT-DAY-OF-YHE-WEEK, 23700000 c 21 i 05qss 024300 CNVT-HOY6 23?tOQOO e3. OSgq6--024'413,----mnvF-oOATECNVTI TO DATE-PROGRAM. 23720000 4 059%37 O?f#3?0 CALL DATE-PROGRAM USING DATECALC-LINKAGF. 23730000 02DB3E 05qAR n?4331* 23740000 .1i.--.O!;9A9-07434f.)-15f)B-COMPARE-DATFS,i- 23750000 05qqo 024150 MOVE RECAPTURE-nATE-R TO CNVT-YM06. 23?60000 0208TE 54 05991 024361 PERFORM 158A-DATE-ROUTINE. 23770000 020B84 i 121 mloo 10.43.12 APR 391984 HEX ADDRESS OF VERBS --0594;@---0243-70----MOVE--CNVT-SDN- TC--SON-RECAPT-DATE-.@---------- --23780000- ---02089rw- . ..... 05993 024380 MOVE SAVE-ENVIR-DATE-R TO CNVT-YMD6. 23?90000 02CBA6 05904 024390 PERFORM 15RA-DATE-ROUTINE. 23800000 02DOAC -05q95-f)?440'J--- --MOVE -CNVT-SON TO-SON-ENVIR-DATEi.--------------- -05996 n5q97 n24420* DEBUG 9/83 LRL 23830000 -I----0'5908---t)24430*---TF-SFOUENrE-NUMF3ER VF NMtIOREC FOUAL-'82999911 2384 0000 059,)@ 0 2 4 4 4) DI@PLAY IDEBIJr,-V I RECAPTURE-DATF OF NHtIOREC 23850000 06000 0?4450* 1 1 SAVE-ENVIR-DATF 23860000 SDN-ENIVIR-DATE 9 * -SOM-RECAPT-DATE. 23970000 06002 8s) 23 0000 06003 0244HO IF SON-ENVIR-DATE GREATER SDN-PECAPT-CATE AND 23890000 020802 -06004----02449) SON-RECAPT-OATF NOT EQUAL 9999999 --23qgoooo--,-..------ 06005 024507 MOVE TURN-ON TO EOIT-ERROR@SW 239tOOOO 02DBFC 06006 024510 MOVE RECAPTURE-CATE-P TO ERR-RECAPT-DATE 23920000 020CO2 06 007 --0245 20 ----MOVE SAVE-ENVIR-nATE-P TO FRR-ENVIR-DATE- 23q3OOOO-- -02DCO8---- 06n08 024530 MOVE DATE-RECt-REC9-ERROR TO RPT2-ERR-MSG 23940000 020COE 0 tj 0.0 9 024540 PERFORM 179-BUILD-MASTER-ERROR 1 23950000 02DC14 23, 06010--024550 IF SON-PECAPT-DATE EQUAL 9999999 23960000- 02DC38---- -.-I. I 06nil 024563 MOVE TURN-ON To EDIT-ERROR-SW 239TOO00 020C48 261 27 21; 06012 0?4570 MOVE RECAPTURE-DATE-P TO Z-RECAPT-DATE 23980000 02CC4E -- 06013-024c)8)-------MfWE-SAVE-ENVIR-DATF-R 10 I-ENVIR-DATE 23990000- 06Ot4 0245qD MOVE TAG-OR-SPE-ZERO-FIELD TO RPT2-ERR7-MSG 24000000 02DC5A 3 t 24, 06015 n24601) PERFnR4 179-BUILD-MASTER-ERRnR 24010000 020C60 --@---Of,016--024610----------PERF-ORM tSHD-AOJUST-ZERO-nATE. --------24020000- - 020C7C 06017 0?4620 IF DAYS-OUT OF NMI10REC NUMERIC AND SON-RECAPT-DATF. 24130000 02OC98 21! 06018 02463) NnT EQUAL gq99999 24040000 -,-,@--06019--024640-----SUBTRACT--SDfJ-ENVIR-DATF FROM SDN-P.ECAPT-DATE- GIVING 02CCSA--- '1 06020 024653 SDN-OATE-DIFF ROUNDED 06021 0 2 2 0 2 46 70 DE B UG 9 / 8 3 L RL 2 4 9 8 00 00 321 06()23 024han* IF SEQUENCE-NUMBER_CF,NMIIOREC EQUAL *829q�(;I* 24090QOO 12 33@ D6024 0?4693* DISPLAY 'DE;luG T SON-FNVIR-DATE SON-RECAPT-DATE 24100000 43 3-@----06075--024700*-----*-*--f)AYS-OUT-R f-0-SON-OATF-oIFF 10000- 06026 06n27 024720 IF DAYS-OUT-R OF NMII0RFC, NOT ECUAL SON-DATE-DIFF 24130000 020CO6 .7 06078@0?47 30----- --- --MOVE- TURN-ON- TO FOIT-ERROR-SW- _-2414 0000 060?q 024740 MOVF SON-DATE-DIFF TO ERR-DAYS-DIFF 24150000 020CF2 06030 024750 MOVE nAYS-OoT OF KMIIOREC TV ERR-nAYS-OUT 24160000 020CFC -06 031 -02 476') -----MnVE- REC APT-DAY S-CUT-E RR TO R PT 2-ERR-MSG-- 24170000 020006 41 n6O32 024770 PERFORM 179-BIJILD-MASTER-ERROR. 24180000 02000C 42 06033 024780 IF DAYS-OUT OF NMIJOREC NUMERIC AND SON-RECAPT-DATE 24190000 02D028 EQUAL 9qqq999- 2470 00 00 06015 024,9nn MOVE TURN-Clel TO EnIT-ERROR-SW 24ZI0000 OZO04A 06036 024910 MOVE DAYS-nt)T OF NMIJOREC TO DAY-OUT-CONFLICT 24220000 020DSO ---0fi037--A?4R20--- MnVE-TAr,-RECAPT-DATF-CONFLICT TO RPT2-ERR-MSG 2423 0006 020056 47 06018 074830 PEPFORM IT9-BUILD-MASTER-ERROR. 24240000 02005C 4a 06039 024840,* 24?50000 IC4 T,-0604() -"()24qr-,q-tSFIC-5f.ARCH-TAr.-@IUMBER-TABLF. ----24260000---- n6041 n24q6O IF TAG-RFCAPT-TAG-mum8R (TAG-SURSCR) EQUAL TAG-NUMqER 24270000 020082 024970 :7 06042 OF NMIIOREC 24280000 if :01 - @06043--0?4Ai3O---MOVF-@TI)RM-ON-TO EnIT-FRROR-SW-------- 24290000 020DAA---- 06044 024R93 MOVE TURN-ON TO TAG-MATCHED-SW 24300000 02DDBO 06045 024900 MOVE TAG-NUMBEP OF NMIIOREC TO TAC@-NMRA-ERROR 24310000 020086 - - -------- - ----- - 122 NM 130 10.43.12 APR 3@1984 HEX ADDRESS OF VERBS _06046-024RIO MnYE---TAG-NU48 ER-REPEA TED, TO RPT2-ERR-MSG- 2432OO0W-__ O2OOeC______ '@06047 024920 PERFORM 179-130ILD-MASTER-ERROR. 24330000' 02ODC2 2 06048 02491n* 24340000 06049---024940,-tSflf)-ADJUST-Ir-RO-nATE. 24350000-- VIE RFCAPTURF@DATF-R TO ADJUST-ZERO-OATE. 060,10 024959 mo 24360000 02DOES 06051 024960 IF ZFRII-MM EQUAL ZERO 24370000 020DEE _6J___0605?----024970 mnvE 01 TO ZERO-M4,-- 24380000 02DOFE 06051 0?4980 IF 7ERO-10 EQUAL FERO 24390000 02DE04 06054 024940, MnVE 01 Tn lERO-0D. 24400000 02DE14 06n55-075100 -------Mf)VE ADJUST-?ERO-DATE TO-CNVT-YMD6.-- 020EIA-@-- 10 'i 060,16 n25')10 PFRFnRM 15,gA-DATF-RnUTINE. 24470000 02OE20 114 21 06097 025020 MOVE CNVT-SON TO SON-RECAPT-DATE. 24430000 02DE38 Ti- 06059--325130 ----IF-SnN-FNVIR-F)ATE, GREATER SON-RIECAPY-DATE 24440000 - 0 2 D E 4 2 - 06059 025040 MOVE TIjRN-CN In ED.IT-FRROR-SW 24450000 02DE5C 15@ 0666o 02131150 MnVF RFCAPTI)RE-I)ATE-R TO ERR-RECAPT-DATE 24460000 02DE62 06061---025061) -- ---- --------Mf)Vt-SAVE-EPIVIR-nATE-R TO ERR-ENVIR-DATE- 24470000 02DE68 a, 1711 06062 025070 MOVE DATE-RECt-RFC9-ERROR TO RPT2-ERR-MSG 24480000 02DE6E 06063 6? 5,0 8c) PERFORM 179-BUTID-MASTER-ERROR. 24490000 02DE74 025090 ------ MOVE q .999q99 TO SON-RECAPT-DATE. 02DE90--- :14 2, 06n65, 0325100* 24SJ0000 2 2 1. 06066 025110 160-EQUAL-DELETE-TRANS. 24520000 ----06067--025120*- 24530000 06 f)6 8 02513a* MASTER, NOT TRANS IS SOURCE FOR DELETE LINE IN RPT 1-. 24540000 2 06069 0?5140* 2455OaOO i;7-06070-025150 -------MOVE- RFC-9EL-TO-RPTI-MFSSAGE. 24560000-- 020EAO------------ '06071 025160 za: ADD I TO NBR-RFCS-DFL. 24570006 02DEA6 n,07? 025170 PERFORM 135-BUILD-PPT1. 24560000 02DEBO 3 24590000 -06073-025181) -MOVE TURN-ON-TO-WRITE-RPTI-SW. -02DECC-------- 29 06074 025190 MOVE TURN-ON,TO.RFAD-MSTR-SW. 24600000 02DED2 06075 025?00* 30 24610000 24620000 - -411 1 ---06016----0252 10 -t-70-MASTFP-LOW. - 1 06077 025270 MOVE TURN-ON TO READ--MSTR-SW. 2463111000 02OEE2 32 331 n6078 025130 mnvE TuRN-ON TO WRITE-NEWMSTR-SW. 24640000 02DEES __06079-0?5740*------ 025 -ERROR. 24660000 06090 ? 51.) 177-BUILD-TRANS 36 060AI 025760 MOVE RECORD-TYPE OF NMtOOREC TO RPTI-REC-TYPE. 24670000 02OEF4 06 0 8 2 -02 52 70 ----MOV F SEQUIFNCE-NU4!3ER-eF-NMI00RFC TO-- A PT t-S E O-NO Re- 2468 0')00 02rjEFA-- 31 .! 06083 025283 MOVE REPLICATE-NUMBER OF NMtOOREC TO RPTt-REP-NOR. 24690000 020FOO 39@ n6n84 021,790 MOVE SPECIFS-CODE OF NMIOOREC TO RPTI-SPECIES-CODE. 24700000 02OF06 III 4----7-f)6085---f)25301 ---m()VE SPECIES-STATUS OF NMIOORFC-TO RPTI-SPECIES-STATUS. 24?10000--- 02DFOC' 01 4J 06086 025310 MOVF LINE-NUMBER OF'NMInOREC TO RPTI-LINE-NOR. 24720000 02DFt2 .1 06097 025320 IF T?InIV-PECnRn,nR SPFCIFS-RECORO OR ANNULUS-RECORD 24730000 02DFt8. 4z@---060A8----0?5330----- MOVE nAsH-.TO-RPTI-DASH-- ---24740000- 02DF30---------- - 3 44 06089 025140 ELSE 247riOOOO 06ogn n25350 MOVE SPACES TO RPTI@DASH. 24760000 020F3A I - TO - RF.C-f?.Ei -TOT.' O6nqt___0 2536f)--------AD0 ECT 24770000 06092 025170 PERFORM 2C)O-WRITE-RPTI-UPD. 24780000 020F48 621 4 060Q3 0251AO* 247qO000 ----O6Oq4--02539() 1:79-BUILD-MASTER-IERROR. 24R, 0300--- .06091 0?5401 IF DIFTAIL-ILTNE-WRITTEN 24410000 02DF6A a 060c)6 025410 NEXT SENTENCE 24920000 0ts0qT-f)254?0----FLSF -------7 -------- 24,93 0000 i 060,98 025430 MOVE PFrnRO-TYPE OF NM 67 do F110PEC TO RPT2-REC-TYPE 24840000 02DF76 41 06099 025441 MOVE SEQUENCE-NOMBER 0 NMIIOREC TO RPT2-SEO-NBR 24850000 02OFTC .,z 131 123 mm I ()o 10.43.12 APR 3,1994 HEX ADDRESS OF VERBS -06100--02545) MOVE-REPL I CAT F-NU49fR OF N4tI0REC TO RPT2-REP-N0R 24860000-- -020F82----- 06101 , 025463 MOVE SPECIES-'CODE OF KmttnREC TO RP T2- SPEC I ES-CME 24870000 020F88 3 06102 025,471 MOVE SPFCIES-7STATUS OF NMI10REC TO RPT2-SPECIES-STATUS 24880000 020FBE m' __L__06I 1254 81 ---------MnVE-LINE-NUMiEiER OF NMIIOREC 70 RPTZ-LINE-NOR 24690000- - --02DF94------- 4 06104 025490 IF M@TR-ANNULUS-RECORD OR MSTR-INDIV-RECOPD OR 24900000 020F9A 061135 02550') MSTP-SPEC I ES-PFCORD 24910000 17 i---- 06106--02`551f) MOVE T)ASH TO RPTZ-DASH 24920000 02CF02 .9- ( 6 1 i)T 025520 ELSE 24930000 .01 0)6 10.9 0?5530 MOVE SRACFS TO RPT2-DASH. 24q4OOO3 020FOC 2495 00 00 02 0FC0 1 0q-02 554() -PERFORM- -2 10-W;t I T.E-RPT 2-FRR.- 06110 02 95, 51) 24960000 34 n&tlt 025560 2n0--iWR 24970000 ITE-RPTI-UPD. !is 06 112-----0 2 55, 71 --MOVE TURN-OFF TO WRITf-RPTI-SW.@------------- -02DFE2------- %a 1-7 14' 06tI3 0?5580 IF RI-LINE-CNT GREATER THAN 58 24c)90000 02CFEO 06114 0255go PFR FnRm. 2 92-WR It E@R PT I-UPD-HEA(j ING. 25000000 02OFF2 ------- MOVF TR-PATA Tn RPTI-DATA.- 1,91 f - -25OtOOOO 02EOO A 1,751 061t6 025610 WRITF UPD-PRT-LINE FROM REPORTI-DETAIL-LINE j,;, ! 25020000 02EOIO 2 n61t7 029621 AFTER POSITIONING 2. 25030000 gal 0 6 115 0 2 5 6 3 0 -----Anr) 2-To ru-LINE-CNT. - 02EO5A _'2'I 25050000 06119 0? 5641* 2- 0612 0 0?5651) 702-WRITE-APTI-,JPn-HEADING. 2511@0000 0?`51)60 'Ant) I Tr) Pt-PAGE-CNT. M)70000-- --02EO6A----- 2) 06122 025670 '-4nVF RI-PAGE-CNT TO RI-PAGE-Nn. 25030000 02EO74 241 n6t23 025683 WRITE UPn-PRT-LINE FROM REPORTI-HEADI AFTER POSITIONING 0. 25090000 O2EO6C js----0bI,?4---025600 -------WRITE UPD-PRT-LINE FROM REPURTI-14EA02 AFTER- POSITIONING- 2. 02EOD2---- 06125 1,)? F, 7 0 @1 WRITE UPD-PRT-LINF FROM REPORTI-COL-HEADI 25110000 02FL18 06176 075710 AFTER POSITIONING 2o 25120000 -7 -29130000 06 12 ? --02 5 7 ?) --WRfTE-UPD-PRT-LINE FPOM -REPORT I-COL-HEAD2 06128 025730 AFTER POSITIONING 1. 25140000 06129 025741 MOVE 5 TO RI-LINt-CNT. 25150000 02EIA4 2516 0000 4c -41 3? 06131 02576n 210-WRITE-P.PT2-ERR. 25170000 421 -CNT GRFATER THAN 58 13 06137 0251l7o IF R27@LINE 25t8000O 02EtB0 06133-025780--- - PFRFORM 212@WRITE-RPT2-EAP-HEA01fiG -----25lqOOOO 06134 021)7q) MOVE TURN-ON TO DETAIL-LINE-WRITTEN-SW 25200000 02EtO2 i44 n6 t 35 02,5800 WRITE FRR-PRT-LINE rRCPREPOR72-DETAIL-LINE 25210000 02EID8 06116 0? 5@ A FTER POS I T IONI NG 2 0000 -- -- -- -- - --- ;@a 41 06t37 02 5;k 20 ADD 2 TO P,2-LINE-CNT 25?100110 '12E222 0 06138 025833 ELSE 25?40000 311 53 DETAILi-LINF-WRITTCh--- --------------25250000, -02E230----- 061.40 025850, 11OVE RPT2-ERR-MSG TO LINE2-ERR-MSG 25260000 02E238 0614L n25960 WRITE FRR-PRT-LINE FROM RPT2-DETAIL-LINE2 25270000 02E23E ;if---061 47-----0? -54 70 -AFTER, POS I I IoN I NG I-- ---- -- 06143 025881 ADD 1 TO R2-LINE-CNT 25290000 02E284 ()6144 025q9l ELSE 25100030 --------MOVE-TURN-ON TO -DETAIL@LIN E-WPITTEN-SW ----25310000- --02E292' 06146 62 59 13 WRITE ERR-PRT-LINE FRnm REPORT2-OETAIL-LINE 25320000 02EZ98 'a 06147 02')q2n AFTERPOSITIONING 2 25330000 Gal @;-Ofi 14R----62 rf)30 ---ADD 2 Tf) R2-LINF-CNT. 2534OnOO 02E2DE $01 0614q 01251n40* 25350000 64 06150 n25953 712-WRITE-RPTZ-CRR-1fEAOING. 25360000 -06 151-----025960-- ---ADD I-TO-P2-PAGE-CNT.- 2g;3.70000 --02E2EE 52 ap 06152 025970 MOVE R?-PAGf-CNT TO R2-PACE-NO. 25380000 02E2F8 701 06153 0259AF) WRITE ERR-PRT-LINE. FROM REPORT2-HEACI AFTER POSITIONING 0. 25390000 02F310 29 124 N4100 10.43.12 APR 391984 HEX ADDRESS OF VERBS FRR-PRT-LINE FROM -REPnRT2-HFAD?i AFTER POSIT-IONING Ze- - -25400000 02056 06 155 026000 WRITE EqR-PRT-LINE'FROM REPORT2-COL-HEADI 25410000 02E39C 06156 026010 AFTER POSITIONING 2. 25420000 WR-I-TF ERR-PRT-L INE FROM -REPORT 2-COL-HEAD2 2543 noOo 02EIE6 06158 026o3a AFTER POSITNIONING 1. 25440000 06159 026M4) OVE 5 TO R2-LI E-01T. 25450000 02E42C Jn 02 01,0 220-WRITF-NEWMSTR-REC. 25460000 n6161 25470000 06162 3/63-LRL---- 25490000 06164 026191* IF SFQUENCE-NUMBER nF NMIIOREC EQUAL 1829gq968 AND 25500000 06t65 ()2 61 0') SPECIES-GROUP OF NMI10REC EQUAL 0874702020tOO 25510000 __061 3 --RfA')Y TRACE 255?0000 a 06167 02612')* FLSF 25530000 15L 06168 026133* IF SEQUFNCE-NUMBER OF NMIIOREC EQUAL 082999960 ANO 25540000 06 16q ----07614)* SPECIFS-GROUP-OF NMIIOREC EQUAL 4863544070100--- --- 25550000 06170 026t5')* RESFT TRACE. 25560000 qb 17 2 --026j7Q------PFRFORM 240-RELATInNAL-EDITS.- 25590000 02E436 -------- '06173 026180 PEPFnP.M 258-STRUCTUPAL-TEST. 2551)r)000 02E450 20, 21 06174 0 7 61 01 IF MASTER--;ACTION 25600900 02E470 06 17 S- ---- 02 6? 010- ----uOVF-TURN-OFF TO MASTER-ACTION-SW- 2S6tOOOO 02E47C-- 06176 026?10 PFRFORM 140-EDIT-ROUTINE 256?0006 02E482 06 t77 --f)617A---A26?3')* -----DEHUG CHECK 2/83 LRL .25640000- j 2.@ 06179 02624n* DISPLAY 'DERUG-K I AFCORO-TYPE OF NMIIOREC 25650600 7 0618 0 026)53* SPFCIES-GRntJP OF NMIIORFC 25660000 i 2-L --LINE-NOMBER OF NMItOREC 15670000 06182 06183 026280 IF NOT MSTR-ENVIR-RFcnR0 AND NOT MSTR-REPLIC-RECORD 256q0000 02E49E 0 6 1 A 4 02 6? gn -PERFORM 275-EDIT-SPECIES-GROUP. 25700000 02E482 061RS 026301* PATCH ADDED 3/83 LRL 25710000 '4 2. 06186 ()2611,') IF NOT MASTER-ACTION AND MSTR-ANNULUS-REcnRO ANO 2572 0000 02E4CA FOUAL 02* 3iF- 06187 -SAVE-INDIV"AGE-STATUS, -25 73 0000 06188 026'311 MOVE SPACES TO SAVE-INDIV-AGE-STATUS. 25740000 Q2E4E6 06189 3 190-02 63 5n f)FBU 3/81 LRL 257-SOOOO 061ql 02636n DI SPLA 'OE UG-H LAS Y B ,T-LI.NE-NBR LINE-NUMBER OF NMIIOREC 25770000 06192 026170* LAST-SPFCIES-GROUP SPFCIFS-GROUPOF N411nREC. 25730o00 06 06194 026390 MOVE MSTR-CONTROL .TO LAST-RECORD-KEY. 25800000 02E4EA SAI 12; 06195 026401 MOVE REcnRD-TYPE OF NmII0REC TO LAST-REC-TYPE. 25810000 02E4FO THRN-nFF TO-WRITE-NEWMSTR-SW. 25820000 02E4F6 441 06197 O@ &4 2-3 WRITE F4r-W'4ST-Pr-C FRCM NMIIOREC. 25830000 02E4FC 06lqB 026411 AOD I TO NBR-AFTER-UPDATF.. 25840000 02E53A 06 1 q91- 026440 PERFORM 230-SAVE-MASTER-9Y-TYPE. -- -- --- 25950000--- 02E544----- 47 06200 0264513* 25860000 @5 06201 026460 225-EDIT-SPECIES-GROUP. 25R?0000 83 7. 05202 n6203 n?6480* nFrll,)G CHECK ?/83 LRL 25890000 1724 1,5 4- ()615 5 06204 n?64,i,)* IF SFOUENCE-NOMBER OF NMIIOREC EQUAL 179009894 OR 25900000 e 7 51i -L-@62()5---0265()9*--------SEQUENCE-NtIMF3ER- OF NMIIOREC EQUAL 979009908 2591 000o____ 25923000 06206 0?651D* DISPLAY InFRUG-L I SPECIES-GROUP OF NMILOREC 4i 06201 n?6520* LINE-NUMBER or NmItoRFC. 25930000 71 iiIr- - - - - - - 7 HEX ADDRESS OF VERBS 125 N`4100 10.43.12 APR 3,1984 .-06 2()8-----0265 3c) os***02594 OOOO_' 06209 026540 SEARCH ALL LATIN-NAME-TABLE 25950000 02E566 2 ; 31 06210 026550 AT ENO PERFORM 2277UNMATCHED-SPECIES-GRCUP 25960000 02E56A 3 OF) 211-0765611 WHEW SPEC IES-NUMBER ILATIN-INDEV) EQUAL SPECIES-CODE 25970000 06212 026570 OF NMIIOREC 25980000 06213 026980 'PERFORM 226-VALID-SPFCIE-S-CODE. 25990000 O2E5CE 06 714- - 0 7 6 5 % 26000,100 16215 021,60r) 276-VALin-spEciEs-cnDE. 26010060 n6216 026610* NO TESTS YET (2/83) BUT THEYOLL GO HERE EVENTUALLY 26020000 T0`0621-7 ------ 026620 26030000 O2E5f8 06218 02661()* 26040000 06219 026640 227-tl"IMATCIIED-SPECIES-GRdUP. 26050DOO n6220 --026651 -----MnVF TIJRN-ON TO -EDIT-ERPOR-SW.-- - ------ 26060000 06221 026661 MOVE SPECIES-CnDE OF NMIIOREC TO SPEC-CODE. 26070000 a2E604 062?2 026670 MOVE SPECIES-r.ROUP-NOT-FOUND TO PPT2-ERR-MSG. 26080000 02E60A '06 27 3 ----0? 66 80 - -PEPFORM-t79-BIJILD-MASTFR-ERRnR-i,-- 2609 0000 02E610- 06224 026690* 26100000 n6225 026709 730-SAVE-MASTER-BY-TYPE. 26LID000 21 ------- IF--MSTR-FNVIR-RECORn-------- 26120000 02E632----- kai 06727 .026721) MOVE N'A11ORFC 10 SAVE-ENVIR 26130000 02E63A 06229 0? 67 19 FLSE 26140000 6 2 MSTR-REPLIC-RECORO------ 2615 0000 OZE644 23 06230 02675-1 . MOVE NMIIOREC TO SAVE-REPLIC 26t6OOOO 02E64C 241, 06211 026760 ELSE 26170000 ___-0623?----O26?7f)---------- ---fF MSTR-SPECIES-RECORD---- .2618 00 00 02 E656--- 2Wi 06213 0767 81 MOVE NM11OREC TO SAVE-SPECIES 26190000 02E65E T n6234 026790* ADDITION BY EFF 03/23/84 -MOVE- TURN-ON YO SPECIE S-FOUND-SW 02 E664 lei 06236 02681rl* ENO OF AOnITION BY EFF 06237 026F120 ELSE 26200000 -----IF MSTR@TNDIV-RECORD7______ -26210000--02E66E----------- - 32i 06 2.3 q 02.6fk,40 MOVE NM110REC TO SAVE-INDIV 262200(30 OZE676 33 06240 026953 ELSE 26230000 MSTR-ANMUtUS-RECORf)-,--- 26240000 06242 02687D MOVE N411OREC TO SAVE-ANNULUS 26250000 02E692 06243 026881) FLSE 26260000 MSTR-TAG-RECAPTUPE-RFCORO------------------------- 2627nGOO 02E69C 06245 O@16903 MOVE NMtIORFC TO SAVE-TAG-RECAPT. 26280100 02E6A4 06746 0269 10 26290000 -CHG- FOR -,DE9UG 10/25t82-*o*o***************26300000 06248 026q3O* ** IF SEQUENCE-NUMBER OF NMtIOREC GREATER THAN 180085061 26310000 0624q 026940*:** RESET TRACE 26320060 TO - - 26330000---- - 06251 TEMP CHG FOR DEBUG 10/25/82 *******************26340000 06252 0 ? 6 9 7 1 26350000 06253 26360000-- 06254 026993 nN 1 26370')00 02E6;BO 02 06255 027000 NEXT SENTENCE 26380000 631 40.1 4-0--06256--027010 -EL SE---. 2639 0100 06257 07702f) PFPFnPM .242-TEST-ENVIR-BREAK. 26400100 O?E6CO 06758 02703n MOVE TfJRN-OFF TO r)ETAIL-LINE-WRITTEN-SW. 26410000 02E608 -@06 2 59---02 7040---fF@I4STP-FNV I R-RFC ORD 26420000---02E60E-------------@@ 06260 027050 MOVE ENVTR-NUMBER-REPLIC OF NMIIOREC TO SAVE-NUM-REPS 26430000 02E6EA 34; 062111 027060 FL SE 26440000 ;71 72 126 NMI 00 10.43.12 APR 391,984 HEX ADOR.ESS OF VERBS 6 tF-MSTR@RFPLIC-RFCORD 26450000- 0ZE6FG 06263 027080 MOVE RP-NIJMBER-SPECIES OF NM110REC 26460000 02E?00 264TOO00 06764 0270qg TO'SAVE-NUM-SPECIES [email protected] OF NMIIOREC LAST-SEQ-NBR -26480000- 02ETOA----- 51 06266 1027110 ADD I TO NUMB-REP-RECS 26490000 OZE714 06267 027120 ELSE 26500000 il_____062hA--0?71 3n MOVE- I TO NUMR-REP-RECS- - 265tC1000 02E72E----- i 06269 027140, ELSE 265?0000 0627n 0271511 IF MSTR-SPECIES-RECORO 2653nooo 02E738 - 06 271-07 7160 --MOVE- SPE- SUBS AMPL E-CNT OF--NPNIIOREC TO 06272 . 027170 SAVF-NUM-SUBSAMPLES 26550000 .1,3 A 06273 n27180 MOVE SPE-INDIV-FnRMAT-cnOE OF NMIIOREC TO 26560000 02E74A Is i,1--06?74--027I91 -SAVE- SPFC-COnE 26570000 17 I A 0 6 2 7 5 027701 IF SEOIJENCE-NOMRER OF NMI IOREC LAST-SEQ-NBR 26580000 02E?50 15 06276 02 1? 10 @AND RFPLICATE-NUMRER OF NM110REC LAST-REP-NBR 26590000 -06277--02727f) I TO NUMB-SPEC-RECS- 26600000-- 06278 02 77 30 ELSE 260tOOOO 06279 02 72 413 MOVE I Tn NUMB-SPFC-RECS 26620000 02E77E 123 2A n? 7? 50 -FUS F 26630000 - 0628i 0?7?69 IF MSTR-INDIV-RFCORD 26640000 02EIBB 06287 r)2 77 70 PERFORM 249-SAVE@-AGE-STATUS 26650000 02E790 @,-I-06283--- 027280 ----------PERFORM 25O-SPECIES-CnDE-CHECKS--- 26660000 -02E?AC---- 062P4 02 72c)O MOVE IN0tV-TAG-NBR-R OF NMIIOREC TO SAVE-TAG-NO 26670000 02ETCC TH 26680000 02E706 31 2,1 0621`15 02710,1 MOVE INDIV-LTH-R OF NM11DREC TO SAVE-INOIV-L 2@69oOOo 261. 96287 02?320 IF. MSTR-ANNULUS-RECORn 26700000 02E7ES i 06298 0.?713.') IF SAVE-SPEC-CODE NOT - SPACES 26710000 O2E7F0 NOT SPEC IES-COOE-4-OR-7 26120000-- 02E7F8---------- 05290 027357) MOVE TUPN-ON TO FnIT-ERROR-SW 26730000 02E808 06291 027360 MOVE SAVE-SPEC-COOF TO ERR-MSG-CODE 26740000 C2E80E 0 6 2 q 2 62 7 3 70 ----MOVE INVALin-PEC-FnR-COOF TO RPT2-ERR-MSG --26750000. 02E8t4---- 06293 02 7190 PERFORM 179-BUILD-MASTFR-ERPOR. 26760000 02ESIA 06294 027 390* 26770000 W-O62q5----()27400 -?42-TFST7fNVIR-BREAK. 2679 0000- 06296 027410 IF SFOUENCE-NUMBER OF NMIIOREC NOT LAST-SEQ-NOR 26790000 02E83C 062`17 02742) IF LAST-SEQ-NRR NOT = SPACES 26300000 02EB46 3_7 --.06298-027430 -- --- - --- PERFORM- 243-ENVIR-BRFAK- 26atOO00 E858,---- 0629q (127441 ELSE 2697.0000 06300 n2 74 51) NEXT SENTENCE 26830000 ------- - ----- 26840000 0 41 06302 02 74 70 PERFORM 244-TEST-REPLIC-BREAK. 26950000 02E878 A2@ 06303 027480* 26R60000 Sal W3!-06304--- 02749.'.)-243-C-NVIP-BREAK.------------- 26870000 @71. I 441 061115 027500 PERFORM 245-REPLIC-BREAK. 2@990000 O2E89A so .51 n63n6 027513 IF NUMB-REP-RFCS NOT = SAVE-NUM-RFPS 26`190000 02E882 60 4l--06307--027xi20------ MOVF-TURN-OFF TO DETAIL-LINE-WRITTE-N-sw-- 47 06308 0275-10 MOVE SAVE-NIJM-RFPS TO ERR-MSG-REPS 26910000 02E8D2 a 0630q 027c,40* Alt DEPUG 26920000 63 61 r)ISPLAY-INO.-PEPS.- IN ENVIk. a-$. SAVE-NUM-REPS 26930000- 5-i n6311 02 7563 4 AND NO. CALC. REPS.= NUMB-REP-RECS 26q4OOOO 06312 02757-3* 2h950000 671 51 08 __1063I3-02'F5A0-7----- MOVE-REPS-DONT-mATCKTO RPT2-FRR-MSG 26`460000 02E8D8- 52 53! 06314 02 75 90 MOVE TURN-ON TO EDIT-ERROR-SW 26970000 02E8DE 70, 54' 06315 027600 IF SAVE-ENVIR NOT SPACES 26990000 02EBE4 ;111 127 W100 10.43.12 APR 3,1984 HEX ADDRESS OF VERBS _0631-6-027610- -----MOVE -NMI 1OREC--TO ROLLOUT-AREA 26990000 ---02E6F6--------- 06317 0?7620 MOVE SAVE-ENVIR TO NMIIORFC 27000000 02E8FC, 06318 027630 PERFORM 179-BUILD-MASTER-ERROR 27010000 02E902 MOVE- ROLLOUT-ARFA - TO NMI IOREC . 27020000 -----02E91A 06320 n2765.9 MOVE ZEROS TO NUM4-REP-RECS. SAVE-NUM-REPS. 2700000 02E920 06321 027660 MOVE SPACES TO SAVE-ENVIR. 27040000 02E92C 063?2 -02 76 70 * - ---- - @ - - - - --- _.__ - - - __ . - 1. . ... - - . -- - ..- 2 705 0000 06323 0?7681 244-TFST-RFPLIC-BREAK. 27060000 06324 n2769@ IF REPLICATr-NUMnER OF NM11OREC NOT LAST-REP-NBR. 27070000 02Eq4O 70 LAST-RFP-NIFtR - NOT- - SPACES- ill . 0&326 02771n PERFnRM 245-RFPLIC-HREAK 27090000 02E95C, 06327 02772f) ELSE 27100000 -06328 -02 7730 -NEXT SE-NTFNCE---- T3 2 71100 00 14 Of, 3 7 9 077741 ELSE - 27t2OOOo 16310 027750 PEAFnRM 246-TEST-SPECIES-BREAK. 27130000 02Eq7C -27140000 0633t n6332 077770 245-REPLIC-BREAK. 27tsoooo i221 1 Is 06333 0277PO PFPFORM 247-SPECIES-BREAK. 27160000 02E99E jz@ 24 i.:--O6334--O?77q()---- IF NUMB-SPEC-RECS NOT- --SAVE-NUM-SPECIES --27170000 02E986--- - 20' 06115 07 78 01 MOVE TURN-OFF TO OFTAIL-Ll4E-WRITTEN-SW 27190000 O2E9uo 06316 027310 MOVE SAVE-NUM-SPECIES TO FRR-MSG-SPECS 27t9OOoO 02E906 06 33 7----0? 79 ?0 --- MOVE-- NumB-spr-C-RECS- TO MIM-SPEC-REc- 27200000 ___O2E9OC 06338 n27830 MOVE SPECIES-DONT-MATCH TO RPT2-ERR-MSG 27210000 O2E9E6 n6319 027840* DEBUG 27220000 24 06 340----n2 7850*--- -()1 SPLAY -I NO. SPEC I FS-1 -NUMB-SPFC-RFCS --.---27230000 06341 027P63* 27240000 406342 02787) MOVE TURN-ON TO EDIT-ERPOR-SW 272SO000 O2EqFc 06343--02798J--------IF-SAVE-PEPLIC NOT = SPACES 02EqF2-- 06344 027890 MOVE NMIIORrC TO RCLLOUT-AREA 27270000 02EA04 06345 027909 MOVE SAVE-REPLIC TO NMIIOREC 27280000 02EAOA 4 iT-O6346---O?79 I 79-RU I LQ-MAST ER- ERROR-- - -----27290000 ---02EAIO 32; 06347 02792.1 MOVE ROLLnUT-AREA TC N'411')RFC. 27310000 02EA28 42 331 n6148 027933 MOVE ZEROS TO NUMA-SPEC-RECS, SAVE-NUM-SPECIES. 27310000 a2EA2E 06349--f)27941)- MOV "-PAC- ES- -TO-SAVE-REPL ICa --02EA3A 06350 027950* 27330000 n6351 027q6l 246-TF,T-SPFCIES-BREAK. 27340000 y7 '49 30 06153 027983* DEBUG 1/83 LRL 27360000 39, 0&354 077e)t)O* IF 27370000 21 -06 3 55- 02 8,) 00 -f S EOUE NCE -NU4 B EP, -OF N Mt I OPEC EQUAL- 179003 32 1 -OR 2 7 3 8 0000 __52 Al 06356 O2pnI9* SEOUENCE-NUMBER OF NMIIOREC EQUAL 979003331 1 27390000 .2 063 9 7 02PO20* DISPLAY @DEBUG-O 9 SPECIES-GROUP OF NMItOREC 1 9 27400000 LAST-SPECIFS-GROUP SAVE-INDIV-AGE-STATUS. -----27410000 J 44 n63,19 06360 n29n5) IF SPECIES-GRotip nF NMtIOPEC NnT - LAST-SPECIES-GROUP 27430000 02EA4E 06362 028070 PERFORM 247-SPECIES-BREAK 27450000 02EA6A --0636t--O@8060----IF--LAST-SPECIES-GROUP NOT-SPACFS 27440000 ----O@EA58 06363 024080 ELSE 27460000 631 4-0j--O6364---O280q0----- -----NEXT -SENTENCE ------ ------ ---- 27470000 06365 0214103 ELSE 27490100 ,I 6@6166 02811D PERFORM 248-TFST-INDIV-BREAK. 274900oo OZEASA 21 52 27500000 06368 028t3O 74T-SPECIES-BREAK 27510000 70 06369 n2 1114:) PFRFORM 249-1;0[V-BRFAK. 27520000 02FASO 171 1.28 N!4100 10.43.12 APR It 1984 HEX ADDRESS OF VERBS -06370--07FIl-5f) ----4CVf -TURN-nFF-TD- DETA ft-L INE-WRITTEN-SWa- 2753000(1-- -02EACC--- 06371 028161 IF ISAVE-NUM-SUBSAMPLES NOT - NUMB-INOIV-RECS) 27540000 02EAD2 2 3 06372 028170 AND (SPECIES-fOnF-I-OR-2 OR 27550600 4 0281-81--- ---SPEC I fS-COnF-4-OR-? -27560000-' -06373- 063,74 029IqO MOVE SAVE-NUM-SUBSAMPLES TO ERR-MSG-SUSSAM 27570000 @02EBOC 06375 0?8200 MOVE f4UMB-INDIV-RECS TO NUMBR-INOIV-RECX 27580000 02EB12 -ERR@MSG- - 27590000- 02ESIC SIJBSAMPLFS-OrNT-MATCH TO RPT2 06,377 028?2)* DEBUG 27600030 06378 0?v31* DISPLAY ONO.SURSAM=l SAVE-NUm-SUOSAMPLES 27610000 NUMR-INDIV-RECS 2762 0000 ---------- 06380 029!5n* I INDIV.FORMATz:1 SAVE-SPEC-CODE 27630000 1 4 121 06381 n29?60* It It itul . TO -EnIT-ER ROR-SW S 14i .06383 028780 IF SAVE-SPFCIES NOT PACES 27660000 62EB28 t5, 063q4 02A791) MOVE NMI10REC TO ROLLOUT-ARFA 27670000 a2EB3A its _06385-02F1101 MOVE-- SAVE-SPECIES TO NMIIOREC 27680000 lei @zl n6386 02RIll PERFORM 179-BUILD-MASTER-ERROR 27690000 02ED46 2: 06397 02R320 MOVE ROLLnUT-AREA TO NMIIOREC. 27730000 02EB5E '23 . ...... 029330 SPEC-[ FS-COT)E-4-nR-7 ----27710000 -02FB64----- 063Pq WR14D IF NO-Cr)Dr4-DATA-FOU1k1D 27720000 02EB78 063no 029350 MOVE TURN-ON TO EDIT-ERR.OR-Sw 27730000 02EB80 MISSfNG-INDIV-OATA TO RPT2-ERR-MSG-- -SPECIES NOT = SPACES 06392 028370 IF SAVE 27750000 02E08C !30 0&393 02 83 81 MOVE NMII0RrC TO ROLLOUT-AREA 27760000 02EB9E 31 063Q4----0283 n) - ------ MOV!: SAVF-SPECIES TO KMIIOREC 27770000 02EBA4 06309 0:7 94 03 PFRFORM I 79-BU I LO- MASTER- ERROR 27780000 02ESAA 06396 028410 MOVE ROLLnUT-AREA TO NM110REC 27790000 02EUC2 27800000 0&398 029430 NEXT SENTENCE 27810000 37 27820000 1461 1 06399 0?8449 ELSE 0b400----n29450------MOVF SP4CFS-TO- CnDE4-nATA-FOuND-SW.-- 2 743 0000 02FODO 016 4 n 1 TFMP CHG FOR DERUG 10/25/82 *******************27840000 064`12 0?9470**** IF SFOUENCE-NUMFJER OF NMIIOREC GREATER THAN 98008504* 2TS50000 33@ 3, 06401-()2R4AI:***----DYSPLAY---:SAVE-SPEC-CODE=s SAVE-SPEC-CODE --- -- 27860600 35i 06404 0?f34q9 *** DISPLAY S-NUM-SS=' SAVE-NUM-SUBSAMPLES 27870000 06405 02850f,)**** r)ISPLAY I N-TND-RC-9 NUMB-INDIV-RECS 21880000 ---IF SAVE-SPECIES = -SPACES -,27B90000 ------- ....SAVE-SPFCIES IS 13LANK....@ 27900000 06407 n29'i2l**** DISPLAY 06408 02853f)**** ADD I TO CAUSE-ABEND. 27910000 t -IEMP CHG FOR DERUG LO/25/82 116410 A21 06411 02q56O* DEBUG 9/83 LAL 27940000 SAvr--SPt-SFQ-NM13P EQUAL- 08?999910 - 27950000 06413 0741)811* DISPLAY 0DERUC-X I SAVE- SPE-NUMBR-TAGGEr)I-R 27460000 06414 028590* SAVE-SPE-TAGI SAVE-SPE-NUMDR-TAGGED2-ft 27970000 06415 _O? q6 m * .___ _ __ R SAVE-SPE-TAG2 SAVE-TAG-RECAPT-TAGI-CNT 27980000 06416 02861n* SAVE-TAG-RFCAPT-TAGI 1 0 SAYE-TAG-RECAPT-TAG2-CNTR 27q9000o Cal 06417 0?81)20* SAVE-TAG-RFCAPT-TAG2 28000000 19 06419 1AFMO 7/ t4/83, PAPA 7, PART 2 06419 0786434' 28020000 all. 06420 0? l36 50 IF SAVF-SPF-NUM8R-TAGGF0I-R NIIMF.RTC 28030900 02EB04 51! 47 4 1. 0 Is, ;y---jf)e, / 1-0 ? A6 6.) - ----- -IF- SAVE-TAGG-RECAPT-TAGI EOUAL SAVE-SPE-TAGL AND -28040000---- 06472 02 86 70 SAVE-TAG-RECAPT-TAGt-rNTR GREATER 28050000 06423 028680 SAVE-SPE-NUMBR-TAGGEDI-R 29060000 129 N4100 tO.43.12 APR 391984 HEX ADDRESS OF VERBS _06,424--02m gi. movE-TURN-OW TO EDIT-ERROR-SW----- --280?000o_l____02EcO2__ 06475 0?8701 MOVE SisVF-TAG-RECAPT-TAGt-CNTR TO ERR-TAG-CNTR 2ROB0006 02ECOS 06476 028710 MOVE SAVE-SPE-NUMBR-TAGGEnt TO ERR-SPE-CNTR 28090000 02ECOE MOVE-SAVE-SPE-TAGI TO ER;t-TAG-TYPX 28100000-- - 02EC14 06478 02 87 30 MOVE TAG-ANO-SPE-CNT-ERROP TO RPTZ-ERR-MSG 28110000 02ECIA 06429 02974) MOVE NMIIOPEC TO ROLLCUT-AREA 28120000 02EC20 0(,430---02A75fY------- MOVE SAVE-SPECIFS TO KlMIInREC------ 28130000 02EC26 06431 028760 PERFORM 179-BUILD-MASTER-FRR(IR 28140000 02EC2C 06432 028770 MOVE R()L(.O')T-AREA TO @MltOREC. 28150000 02EC44 -06 411- 0? 87 80 ------ - 1-F---SAVE-SPE-riUM13R-TACGE02-R NUMERIC- ------------2Rl60000 02EC4A-- 06434 029790 IF SAVE-TAG-RECAPT-TAGI EQUAL SAVE-SPE-TAG2 AND 2R[70000 02EC5C 12! 06435 07 69 n() SAVE-TAG-RECAPT-TAGI-CNTR GREATER 28180000 SAVF-SPE-NUMBR-TArGE02-R- 28190000 06437 02 qg 23 MOVE T[IRN-nN TO Er)[T-ERRnP-SW 2R200nOO 02EC84 06438 0298?0 MOVE SA.VE-TAG-RFCAPT.-TAGl-CNTR TO FRR-TAG@CNTR 28210000 02EC8A @06419--,-078!4o)-----mt3VE-SAVE-SPE-NtIMBR-TAGGEDZ TO EPR-SPE-CNTR--- --02EC90--- 06440 029850 MOVE SAVF-SPE-TAG2 TO ERR-TAG-TYPX 28230000 02EC96 06441 028961 MOVE TAr,"APlr)-SPE-CNT-FP.ROR TO RPT2-ERR-MSG 28246030 02EC9C j,13 ,i@-----06442---- 02 84 70 MOVE tIM11OREC TO ROLLOUT-AREA -28250000 __ 02ECA2- 1) 6 4 43, W> A 8 81) )AI)VE SAvF-SDEf_IFS I[,,. NmllnREC 28760000 02FCAB 21i 06444 028890 PERHIRM t79-B(IILD-MASTER-ERROR 28270000 02ECAE 0644 5 02890D MOVE ROLLOUT-As(EA TO NMI10REC. 28290000- 02ECCA 06446 02A9 11 IF SAVE-SPE-NUPABR-TAGGEDI-R NUMERIC 28290000 02ECOO 2.1 0644T 028920 IF SAVE-TAG-RECAPT-TAG2 EQUAL SAVE-SPE-TAGI AND 2RIO0000 02ECE2 3 S,%VF-T&G-RFCAPT-TAG2-CNTq GREATER ZA110000- -32 .3. 2:j - 0644q 07 An 4,) SAVE-SPE-NUMnR-TAGGED17R 26320000 06450 0? RQ 50 MOVE TJRN-ON TO EnIT-FPROR-SW 35 28330000 02ED02 ii--n64-51 ----- 02 8"160 MOVE SAVF-TAG-RECAPT-TAC2-CNTP In ERR-TAG-CNTR--- - -------- _28 34 0000- 02ED08-- 131 06452 028970 MOVE SAVE-SPE-NUMBR-TAGGEnt TO ERR-SPE-CNTR 28350000 02FDOE 06453 .078980 MOVE SAVIF-SPE-TAGI TO ERR-TAG@TYPX 28360000 02ED14 ,,--06 4r,4 -02 9991 MOVE TAG-ANO-SPE@CNT-FPROR TO FtPT2-ERR-MSG-.---------- 28 370000-- 02f0tA----- 06455 . MOVE NMllORFC TO 32 02c)nOJ ROI.LCUT-AREA 28380000 02ED20 3 31! 06496 029013 MOVE SAVE-SPECIES Tn NM110REC 28390000 02ED26 43 i-,@-06497 029020------PERFORM-179-BUILn-MASTER-ERROR 06458 029133 MOVE RnLLOUT-AREA TO KMIl0RFC. 28410000 02ED48 0645q 0?9n4) IF SllVE-SPF-NUM8R-TAGGED2-R NUMERIC 28420000 02!E04F 147 7 06460 0;1 qo 50 f-.SAVE-TAG-RFCAPT-TAG2 EQUAL SAVE-SPE-TAGZ--AND-- ------ 02ED60-------____-______ 36 0646t 02'306,1 SAVE-TAG-PECAPT-TAr.Z-CNTR GREATER 2@440000 3yl 06467 079070 SAVE-SPE-NUMBR-TAGGEO?-R. 28450000 06461---0?908() WIVE T9Rf,)-(JN-TO EOIT-ERROP-SW 28460000 -- 02ED80 06464 02,40913 MOVE SAVE-TAG-RECAPT-TAG2-CNTR TO E-RR-TAG- CNTR 28470000 02ED86 28440000 02EDOC A 2 06465 (12910) MOVE SAVE-SPE-NUMBR-TAGGE02 TO ERR-SPE-CNTR 3' 06466-029111) MOVE SAVE-SPE-TAG2 TO ERR-TAG-TYPX-- 28496000 - --02E092 .41 06467 02nl23 MOVE TAG-ANn-SPE-CNT-FRROR TO RPT2-ERR-MSG 28500000 02En98 064'Sq 02()130 MOVE FIMIIORFC TO RnLLOUT-AREA 28@10000 02EO9E 06469---O24t4')--MOVE-SAVF-SPECIFS-T(I NMIIOREC--------- --28520000------02EOA4- 06470 029153 PERFORM 179-BUTLO-MASTER-ERROR 28530000 02EDAA 0647t 02 0161 MOVE ROLLOIJT-AREA TO NMI10REC. 28540000 02EOC6 63 06 4 7 ?--- 0? Ql 70 04OVE - Z F RO S- TO S A V F- T A G- R E C A P T - T AG I - CN TR -28550100 - 02EDCC----- 06473 02qts!) SAVF-TAG-RECAPT-TAG2-CNTR. 28560000. 06474 02q190 MOVF SPACES TO SAVE-TAG-RECAPT-TArI, 28570000 02ED08 4 S AVE-TAG-REC APT- TAG 2. ---28980000-- 06476 029210 MOVE SPACES TO SAVF.-SPEC-CnnE. 28590000 02EDEO 70 :J 06477 02922) MOVE ZEROS TO SAVE-NUM-SUBSAMPI.F.Se NUMB-INDIV-RECS# 28600000 02EDE4 .71 -7 4 @75 sit 130 NMI00 10.43.12 APR 3,lSe4 HEX ADORESS OF VEROS 478- 0?92-30'-----SA VE- IND I V-L-TH -286toooo 2' 479 029740 MOVr- SPACES In SAVE-SPECIES. 28620000 02EOF6 2 06480 029?50 PERFPRM 2479-PAD-TAG-NUMBER-TA OLE VARYING TAG-SUBSCR FROM 1 28630000 02EEOO _06 4 91--02 q? A-UNTIL TAC,-StOBSCR GREATER TAG-NUMBR-CNTRA 26640000- RY 0648? 02q?70 MOVF ZEROES TO TAG@NUMRR-CNTR. 28650000, 02EE46 06483 _()2q281* ADDITInN SY EFF 03/21/P4 28660000 5.@___n6484 029?90-------MPVE TURN-OFF-TO SPEC TES-FOUND-SW---------- 28660000-- 06469 02q333* 1%0 OF A@)MTION %Y EFF, 28660000 101 06486 O?q3lO* 28660000 28670000- 06497-020320 -Z4JR-PAf@)TAG-NUMMER-T ABLE 06499 02Q333 MOVE SPACES TO TAG-RECAPT-TAG-NUNSR ITAG-SUBSCRI 28680000 02EESS 0648q 02ql4O* 28690000 28 700000 _L_ w? n64ql 029161 24FI-TEST-INDIV-BREAK. 2971001DO 15! n6492 02937,1******************* CHECK-1183 ---tRL-'--- 20 06494 029390* IF 28740000 221 1 17 064q'i 02 q4 03 01 1 SEOUENCE-NUMBER OF NMIIOREC EQUAL $79003324 OR 28750000 @-il----n64q6-----02941n*---------SFQt)E@]CF-NUMBER OF NMtIOREC EQUAL -179003331 28160000 06497 07n421* DISPLAY IOEBUG-8 I LAST-LINE-NFSR LINE-RUMBER OF NMItORFC 28TTOGOO 064qA 029433* SPFCIES-GPOUP,OF NMItOREC L AST- SPECIE S-GROUP 28780000 SAVE-INDIV-AGE-STATUS LAST-REC-TVPE 28790000 F 28900000, 0650f) 029450@ REcnRD-KEY 0 NMtIOREC. 065nt 28820000 --02EE86---- -029470 ------IF-LINE-PlUMBFR OF NMITOPFC NOT - LAST-LINE-NBR 06503 029480 IF LAST-LfNE-KIPR NOT .= SPACES AND 28830000 02EF94 n6'504 029490 SAVE-INnIV-AGE-STATUS NOT EQUAL 429 28-940000 --- 06 505 NEXT- SENTENCE 2885()000 28 06506 029510 FLSE 28A60000 66507 0299320 PERFORM 249-INDIV-SREAK. 28370000 02EE02 069,03 02 95 31 284SO000 06509 0?9940 @4q-TNDIV-BREAK. 28890000 4 01) 510 ()7 g.; 5!) **2 890 00 00 13 0 '5I1----0295h0- OEBUG, 1/93 - 28ql 0000 6 06512 079570* IF 28920000 065,13 ()?958f)* SFQUENCE-NUABER OF NMIIOREC EQUAL 182999960 28930000 1:.71 1 -n I SPt AY -' DEBUG-C- -INOTY-AGE-STATUS-2 28c)4 0000 065 4 02959()* SAVE 06515 079601* SPECIES-GRnuP nF NMtIOREC LAST- SPEC IES-GROuP 28950000 06516 029,61r)* SEQUENCE-NUMBER OF NMItOREC 28960000 06 St-7 SAVE-SPEC-CODE OCCURRENCF-COOF-3 28970000 - 4 06518 4. 42 06 1; 1 q 029641* ADDED 4/83 L.PL - IF A CnnE3 RECORD DOES NOT HAVE TWO 28990000 '5 L 6 FOLLnwING RECORDS - TRAPPFD FFRF & ERROR MSG PRINTED --29000000-- 06521 029663 IF LAST-SPECIFS-GROUP NOT EQUAL SPACES AND SPECIES-CODE-3 29010000 02EED4 30 06572 D2nh7D AND nCClJRRFNCE-CnDE-3 FOUAL I 29n?nooo --06523--0296RO MOVE-TURN-ON-TO EF)IT-ERROP-SW 02EEFE @41 06524 0296qO MOVE MISSINr,-CODE3-NMnRZ TO RPT2-ERR-MSG 29040000 02EF04 0652S 07q7OO MOVE N411OREC I() ROLLOUT-AREA 29050000 02EFOA 06526-029711- MnVq SAVF-INDIV TO NMIIOREC 2906 0000 02EFI0----@--------__* n6527 029720 PERFORM 179-RUTLD-MASTER-ERROR ..2qO7OOOO 02EF16. 65 8 029'?'@o MnVE RQtLnkJT-AREA TO NMI10REC. 29040000 02EF32 6579-' 107974f)* 29090000-- 06530 62q750 IF SAVE-INDIV-AGE-STATUS NOT SPACES 2913-0000 02EF3A 701 41 06531 opq?o MOVE TURN-MFF TO nETAtL-LtNG-WRITtfN-SW .29ttoooo ozep" A 131 N4 100 10.43.12 APR 3PI984 HEX ADDRESS OF VERBS -065 1 ?.'--0297T0----MOVE--TURN-ON- Tf)-EO I T- ERROR -SW-- 02EF4A-- 2 06533 O?q78O MOVE 14ISSING-ANNULUS TO RPT2-ERR-MSG 29130000 02EF50 06934 02f)793 MOVE TURN-UN TO EDIT-EPROR-SW 29t4OOOO 02EF56 3 3 SAVF-I?qD[V-AGE-STATUS----------- 2915 0000 --- 02EF5C 0657@ 02`1410 IF SAVE-INDIV NOT - SPACES 29t6000n 02EF60 at 06537 02 qF1 70 MOVE NMtIOREC TO ROLLOUT-AREA 29t7OOOO 02EF72 ------ SAVE-INDIV TO NMI IOREt --- 2916 0000 02EF78-------- n6539 n2994n PERFORM 17q-BUILD-MASTF-R-ERROR 2qtgoooo 02EF7E n6540 6?9950 MOVE RnLLntJT-APFA TO NMIIORE-C. 29?00000 02EF9A 29210000 02 EF AD 5 4 1-- 0?'114 S P AC FS T 0- S AV E- I NO IV. t 07 9A 70 MOVE ZEROS TO OCCURRENCE-CODE-3. 29220000 02EFAA 06542 - n&941 029900* 2)230000 O?q9q')-249-SAVf-AGE-STATUS.--- 2q240000---- - t4 06546 020,11011, OFBUG 1/83 LRL 29260000 0654 7 *0654A 02qqio* I SEQUENCE-NUMBER OF NM110RFC EQUAL 479003320 OR 29290000 t7 06549 *0?()940* SEOUENCE-NUMBER.OF N)0110REC EQUAL 179003331 1 2q290000 f ------DISPLAY IDEPUG-F-1 SPFCIrS-GROUP OF NMII0REC--1_8-- 293000oo- 06511 O?qt)6n* LAST-SPFC[Es-rROUP LAST-LINE-NOR 29310000 lei lo, al! 06592 02P970* LINE-NUMnER OF NMIIOREC. 293? 0000 ()6;53 - ------------- 06554 0?9993 IF AGF-STATUS-2 2934nOOO 02EFOA t 06555 030000 MOVE INnIV-AGF-STATUS OF N411CREC TO 29350000 02EFCZ 1-1-- --------SAVE- INU I V-AGF-STATOS. 29160000-- - 1 06597 030020* 29170000 a,! 06550 030330 250-SPfCIES-r.ODr-C14FCKS. 2`4380000 --r--06 5919-03 0040 IF- S AV E-S PFIC-COr)E-- NOT- -SPACES 2939 0000 2, 02EFCE- 37 49 06560 030050 IF SPErIF.S-CODE-O OR SPECIES-CODE-5 29400000 02EFD6 06561 030060 MOVE TURN-ON TO EDIT-ERROR-SW 294LOO00 02EFE6 SAVE-SPEC-CODE-TO ERR-MSG-CQOE.---------------------2Q4?0000 06563 030()80 MOVE INVALTO-REC-FOR-CvnF TO RPT2-ERR-MSG 29430000 02EFF2 06564 0300,10 PERFORM 179-B(JILD-MASTER-ERROR 29440000 02EFFO I -06565 --- __._._____----29450000--- 0 6 5 030119 IF SPECIEs-Cnnt-t-OR-2 29460000 02FOIC 06567 030120 ADD I-NDIV-CNT-R OF NMIIOREC TO NUMB-INDIV-RECS 29470000 02FOZC 47 40 06 5 6 8--- -03 0130 --------------IF---IN.')IV-DETAILS OF NMIIOREC NOT EQUAL SPACES- 2948 0000 -a 06569 O!rI4,1 MOVE TORN-ON TO EDIT FRRnR-SW 29490000 02FO5A a WiTO 030150 MOVE INVALID _ INOIV-FORMAT 29500000 02FO60 5. F_f)6;7I-0301 TO RPT?-FRR-MSG 29510000 12 06577 0301TO PERFORM 17q-BUILD-MASTER-EPROR 29520000 02FO66 14 116573 630181 ELSE 29530000 57 43 SENTENCE j 4. n6575 030200 ELSE 29590000 E3 n6571, 030@'10 IF SPECIES-CODE-3 29560000 02FOBA 31)220---- -----PERFORM -251 -EDI T-I NOI V-SC-3--- -------,--295700007-'-- 02FO92 06578 030?33 ELSE .2q58OOOO a 3 0657q n3O?40 IF SPECIES-COOE-4-OR-7 2q5qOOOO 02FO82 --ADD INDIV-CNT-R OF NMtICREC -70 NUMB-INDIV-RECS -- 29600000-- 0 2 F 0 C 2 06'; A I 03n;-)61 IF INnIV-OETAILS OF NMIIOREC NOT - SPACES 29610000 02FODE f 06582 030?70 .40VF TUPN-ON TO COOE4-DATA-FOUNO-SW 29670000 02FOFO me @2 06593-- -2963 0000 06584 030290 NEXT SENTENCE 29640000 41 06585 030303 FLSE 29650000 72 7- .74 137 NM 110 10.43.12 APR 3tI984 HEX ADDRESS OF VERBS ___06 5 p 6 0303-in-- 00 -02FOFA---- - 246600 n65eT. 030320 PERFORM 254-EDIT-INDIM-SC-6. 29610000 02FI02 06SA8 ojD33-)* * 0 Is DEBUG 29680000 --'--()6599--03n34()* -nISPLAY--*CALC.NO.INOIV- I-NUMB-INDIV-RECS.- 29690000 41 06SPO 030350* * * III III Is III 111 29700000 0659t 030363 29710000 !7 0313 7-1 751-FE)IT-INDIV-SC-3. 29 72 0000 __Ap. is n6593 03n38O IF SEQUENCE-NOMBFR OF NM110PEr LAST-SEQ-NBR AND 29130000 02F124 065-14 030191 RFPLICATE-NIIM93FR (IF NMIIOREC - LAST-REP-NOR AND 29740001) 1 t 065"05 010400-- -SPEC I ES-GROUP OF NMI I OPEC = L AST-SPEC I ES-GROUP -AND 2975 0000 RFCORD-TYPE OF NMtIOREC - LAST-RFC-TYPE 06596 031411) 29760000 114 06597 030421 ADD I TO OCCURRENCE-cnf)E-3 29770000 02F14C 115 06 5 9 8 --030430 -----ELSE - 2q7,40000 06599 031441 MnVE I TO. nCCURRENCF-COOE-3. -29790000 02F166 lal i i 06600 29jj@)0000 2qlilOooo DEBUG- 4/81 L RL - - - - 06 60 1--- 03A4 h) Is- 06602 030470* IF SEQUENCE-NUMBER CF NMIIOREC EQUAL 082999961 2`4920000 122 066n3 0304 Al DISPLAY InEPUG-11 I OCCURRENCE-COOF-3 29830000 123 ---06604--03n491* RECORD-KEY OF KMItOREC. 29840000 .95 2R 06605 29 00 0 21 06606 030,13 IF nCC(JRRENCE-C(I1)E--3 WATER THAN 2 2q85o,)oo 02F16C MOVE TURN-ON TO.EDIT-ERPOR-SW 29870000 ---02FI?C------ 23i n66o8 030530 MOVE DUPL [CATE- INDIV-RErS TO RPT2-ERP-MSG 29980000 02Ft82 0660R, 030541 PERFnR*A 179-BI11LD-MASTER-4RROR 29990000 02FISS i3li 06611 010960 IF OCCURRENCE-CnDE-3 2 29910000 02FIAC 06 610-03 09 50 --ELSE------ - 29900000 0570 -EDIT-INDIV-2ND-(ICCUR 29920000 35 2 06612 0- PERFORM 252 02FISC 066 13--- 0301) 89 -- Le j@3 n6614 030591 IF OCCUPRENCE-CnDE-3 I AND 29940000 02FIOC NOT LINEI. 06615 030600 MOVE TURN-ON TO EDIT-FRROR-SW 29950100 02FIF6 OFRUG *- Al * Is Is 2qq6oooo 06617 03 0620 111. DISPLAY #FIRST OCCURENcE OF FORMAT 3 AND 29970000 Of, 619 010630* IND I V.L I NE NBR L I N E-N UMBER OF NMI I OREC 29990000 i43 32, @ I -'--A1661 9----03f@643* III Is -* III- Is 0 * 111 0 111 111 29990000 i n6670 030650 MOVE INOIV-LINE-FAR TO RPT2-FRR-MSG 30000000 02FIFC 030660 PERFORM 179-81)ILD-MASTER--ERPOR. 30010000 02F202 06 6 03.06 70 ---- -1 F NnT- S P Er I r S - C 0 D F 3- 6- C N 1 3092 0000 --02F21[--- 3: Of) k"2 3 03 OF, 8.) MOVE TORN-ON To f_D11_fPRDR_Sw 30r)30noo 02F232 06624 0106 QO MOVE INDIV-COONT-ERR TO RPT2-ERR-MSG 30U40000 02F238 30050000- 02F23E--- 06675---030700 PFRFfIR4-t?9-BUILO-MASTER-FRROR. 41 6626 030710* 30060000 n6627 030720 Z52-POIT-INDIV-2Nn-OCCUR. 30070600 "a i D ;55. i 06629-- 03.n730 I tNf)IV-LTH-R OF N4 I I OPEC- NOT NUMER IC ) OR- 30080000- 02F264- 06629 0307 .4.I (tN()IV-LT4-P. OF N411ORFC NOT GREATER THAN SAVE-INDIV-LTH) 30090000 5EI 066-40 0.10750 MOVE TURj-nM In EbIT-ERROR-SW 30100000 02F288 ---()3076) MOVE SAVE-INDIV-LTH-T(1,EPP-MSG-LTH- 30110000- -02F28E-- eo 06631 161 i 06612 030770 MOVE INDIV-LTH-DISCREP TO RPT2-ERR-MSG 30120000 02F294 62 -BUILD-MASTER-ERROR. 06633 03n78) PERFORM IT9 30t3OOOO 02F29A 06634--0307qo ---IF -NnT. L-INF2.-- 30140000 02F2B6----------------- 06615 (130`100 MOVE TURN-nN TO EDIT-ERPOR-SW 30150000 OiF2,C4 ae 06636 0-3 og 19 MOVE INDIV-LINF-ERR TO'RPT2-ERR-MSG 30160000 02F2CA DEBUG Is --30170000 ._a 06618 0309310 DISPLAY ISEC04D OCCURRFNcr OF FORMAT 3 AND 30t9OOOO 01 S3 @70 141 06639 03 Oq 4) ilt 1INnIV.L1NE.tJ13R.=' LtNE-NUMBER GF NMI10REC 30190000 71 133 NMIOO 10.43.12 APR 391984 HEX ADDRESS OF VERBS 06-640--030950* 30206()00-. 06641 030860 PERFORM t79-BUILD-MASTER-ERROR. 30210000 02FZDO 06642 0?0970* 30?20000 3 4 06643---0101190 254-EDIT-INDIV-SC-6i@------------ L16644 030R90 MOVE TURNON TO EnIT-ERROR-SW. 30240000 02F2F6 06645 03ogno MOVE INVALin-sPEciFs-cnOE-6 TO RPT2-ERR-MSG. 30250000 02F2FC 7 30?60000 -- 9 .71--06646-----03f)c)I3 PERFORM 179-BUILD-MASTER-ERROR. 02F302 06647 8: 'lot .1 06648 0109 T) ENTIRE TEST REMOVED PER EPPERLY 7/qi83 LRL 302.90000 'It 101' 06649 -03 01)40 If SEQUENCE-NUMBFR OF NMIlf3RFC LAST-SEO-NOR AND -30240000 06650 ()309511* PEPLICATE-NUM9EP OF NMIIOREC - LAST-REP-NOR AND 30310000 -SPECIES-GROUP AND to 0665t 030')63* SPECIES-GROUP OF NMIICREC = LAST 30310000 06 6 5 2 0100 71) * PFCORD-TYPF OF NMIl0RFC - LAST-REC-TYPE --303?0000 --- ---- - 15 06653 03 0') Pf.) * ADD I TO OCCURRENCE-CODE-6 30330000 06654 03 0Qc))* ELSE 3 014 Ot) 00 Mt)VF--t-TO-f]CCIJPRFNCE@@CODE-6.- 3 035 0000 !'1 30360000 .06656 031()13* IF 9CCURRENCF-CnDE-6 GREATER THAN 2 :22 a 06657 -()311)20* MOVE TURN-nN TO EOtT-ERROR-SW 30370000 23 24 066SS 03103,1* mnvE DlJPLIrATF-IN0IV-RECS TO RPT2-ERR-MSG 06651) 1 r)4) PERFnR4 179-811ILn-MASTER-FRROR 30390000 06660 oilo5l)* ELSE 30400100 06661 -03 IF-Or-CURRENCE-CODE-6 2-- -------30410000---- 06662 03 071 PERFORM 256-EDIT-INDIV-2NO-CCCUR 304?0000 06663 031080* ELSE 30430000 t3l IF--OCCURqFNCE-COOE-6 -- I ANG- NOT- LINEI, - - ----- ---30440000----------------- 066A9 031100* MOVE TURN-ON Tn FDIT-ERROR-SW 30450000 06666 03111()* MOVF INnIV-LINF-ERR TO RPT2-ERR-MSG 30460000 37 0666A 03113')* DISPLAY 'FIRST OCCURRENCE OF FORMAT 6 AND 4 30480000 34 06669 0311411* llNnIV.LINE.N8R.=' LINE-NUMBER OF NMlt0REC 30490000 3- ------06 67 0 - -0 31150 30500000------- 06671 03110* PERFORM 179-6OTLO-MASTER-ERROR. 30510000 332 06672 031170* IF NOT SPECIES-CODE3-6-CNT 30520130 A3 3) : ' _06671--0111894, ----MOVF-TURN-ON-Tn EDIT-FRROR-SW 34 06674 03 I'l 93 MOVE INDIV-COUNT-ERR TO RPT2-ERA-MSG 30440000 46 3- 36 06679 0312nl* PERFORM 17q_FtUILO-4ASTER-FRROR. 30550000 ]47 ii----06676-031210* 30560000 38, 06677 0312?0* 305TOO00 1 06678 03123r)*?56-EnIT-Itlr)IV-2ND-OCrUR. 30580000 66- 031240* - ----- IF-INDI V-TAG-NBR-fk -nF- NMI I OREC ;3 n6680 031250* NOT GREATER THAN SAVE-TAG-NO 30600000 04 41 4 n6681 n3l260* MOVE TURN-ON TO EDIT-ERROR-SW 30610000 4 06 6 8 2 1 ? 74 0 E 8 U G 30620000- .4 06693 031?P,)* nISPLAY 'TAG Nn=l INDIV-TAG-NSR-R OF NMllOREC 30610000 !s 066R4 0312q3* 30640000 ----06685 -031300*----------mnvf SAVE-TAG-NO TO ERR-MSG-TAG 30650000-- 06ft8ft 031311* MOVE TAG-NBR-LESS TO.PPT2-ERP-MSG 30660000, 62 C3 06697 031320* PERFORM 179-BIJILD-MASTER-ERROR. 30670000 30hi0f)00 - ----- 1 066S9 031140* MOVE TURN-ON TO EDIT-FPROR-SW 30,)90000 45 :0: 066qf) 031351* OFnuG 307,10000 67 sz. n [SPLAY--- SECOND- OCCURRENCE OF FrRMAT -6 AND 53 066`12 031370* 'fNr)IV.LINE.NBR.=l LINE-NUMBER OF NMllOREC 30720000 7. n6693 031380* Alt Alt 30730000 71 73 1371 134 Nm t 0 10.43.12 APR 3#1984 HEX ADDRESS OF VERBS 30740000-- 2 066q5 031400* PERFORM 179-BIJILI)-MASTER-FRROR 30750000 06O5q6 031411* COMPUTE WK-OIF = INDIV-TAG-NBR-R 0; NMllORFC 30760000 --066q7---0314?9*- -- -SAVE-TAG-NO -+ 1. 30770000- 06698 031430* IF WK-DIF NOT = SAVE-NUM-SUDSAMPLES 30790000 k4nVE TURN-ON TO -ERROR-SW n6699 031441* EDIT 30790000 7- 06700--03145)*-- mnyr SAVE-NlJM-SU9S AMP LES TO FRR-MSG-DIF-. - 30BOO000- 8@ 0670i 0'31460* MOVE TAG-NBR-DISCREP TO RPT2-ERR-MSG 30,310000 06702 031470* PFPFORM 179-BIJILD-MASTER-FRR(IR. 30320000 06 7(13 -03 t4 81 so 0 00 so ***so* so** so 3 09, 0000 06704 03 1490 30840000 D 6701, n3150n 258-STRUCTI.IRAL-TFST. 30350000 06 7 n 6 -0115 10 - M n V F T ( I R N-0 F F T 0 S T R U C - E R R - S W 30960O0O------O2F328- :4 06707 n3jq?,j MOVE MSTR-CnNTROL TO WS-CURR-KEY. 30970000 02F32E la 01 ()67()R 011510* ii-n6709-- - - - - 171F ft 7 t 0 031551* CPDF Cf4ANGEO TO TEST FOP STRUCTURAL ERRORS ON TAG RECAPTURE .22 06711 031560: RECORDS. BY EFF ON 03/23/84 23 06717 0311;70 031580 IF (MSTR-INDIV-REcnRo OR MSTR-ANNULUS-RECOPD 30BROOOO 02F334 06713 ()&7t4 0315qo nR MSTR-REPLIC-RECOR.0 OR MSTR-SPECIES-RECORD 30890000 27 06 715--03 WO OR MSTR-TAG-RECAPTURE-RECORDI- 30490000 06716 031610 IF WS-CURR-ENVIR-KEY EQUAL SAVE-ENVIR-KEY 30900000 02F35C 13i 06717 031621 NEXT SENTENCE 309100DO 06 719- 0316 30 ELSE 30920000- 06719 031640 . MOVE TURN-nN To STRUC-ERR-SW 30q3OOOO 02F36A 271 n6 7? 0 031651 MOVE CHK@TO MISSING-ENVIR. 30940000 02F370 06721 -031660 ---- I f- IMSTR-INOIV-REcnRD OR--MSTR-ANNULUS-RECnRD 3095 0000 - --02F3?6-- 06727 031,S70 OR MSTR-SPECIES-RECORD OR MSTR-TAG-RECAPTURE-RFCORD) 30960000 06723 031680 IF WS-CURR-REPLIC-KEY EQUAL SAVE-REPLIC-KEY 30970000 02F396 -----NEXT SENTENCE 30990000 .41 D 0672S 0317011 ELSE 30990000 42 3@1 ()6726 0-41710 MOVE TURN-nN TO STRUC-ERR-SW 31000006 O2F3A4 iL-06777--031720------------MfiVE--CHK- TO-MISSING-REPLIC.--- 0000 - 35 06728 067?q 031740 DE911JG a 3 LRL 31030000 06730--03t750*---IF--SF-Ok)ENCE-NUMBER OF NM110REC EQUAL-' 73000,681 -AND 3104 0000 - M731 031761)* REPLICATE-NUMBER OF 1,411OREC EQUAL 1019 AND 31090000 0& 7-3 2 03177n* SPECIES-GROUP OF NMIIOREC EQUAL 1618901030tOl 310,30000 06 73 3 -0317 80 DISPLAY -&-OFBUG-3--f LINE-NUMOFR OF NMItOREC 321 06 714 0317qO RECnRD-TYPE OF NMIIOREC SAVE-INDIV-KFY 31080000 @,__06735 011800* WS-CUqR@SPECIES-KFY SAVE-INOIV-LINE 31090000 57 06737 (131120 IF fMSTR-IN*f*)l*V-#RECORD np 141*,*TR**-*AII*N*U*L*U*S*-R*ECnRO 11110000 02F380 361 06738 03 1430 nR MSTR-TAr,-RECAPTURE-RECORD) 31116000 .5 -06 719 031940------ IF-WS-C(IRR-SPECIES-KEY EQUAL SAYE-SPECIES-KEY 02F 3C 8- .0000 06740 031950 NEXT SENTENCE 31130000 4 06741 031860 ELSE 31140000 63 ------MnVF TUQN-ON-TO-STRUC-FRR-SW--- 3115 0000 02F306--_------ .06743 0,41:190 MOVE CHK TO MISSING-SPECIES. 31160100 02F3DC 661 06744 031Agr)* 31170000 .67 3 4 06694- 66 f)674'y-03t000#-FNn-OF CHANGE RY-EFF - --- -- -3lt7OOOO----- 06746 31170000 701, 06747 0319,20* 31170000 135 N14130 16.43.12 APR 3,1984 HEX ADDRESS. @OF VERBS _,___0&-74FV- -031939*-- ADDED- 4183 L .RL _311?0000-- 06749, 03 t94) IF 'ASTR-INr)lv-RECnR[) AND WS-CURR- SPEC I ES-KEY 31140000 02F3E2 067r@O 03 1') 51 EQUAL SAVE-INDIV-KEY 31190000 - 4@ PFRFOR4 259A-VF.Rlf-Y-INr)IV-STRUC. 31210000 -02F3F4--------- -'--0675t-03t96') 06752 03tq7D IF MSTR-INDIV-RECORD AND WS-CURR-SPECIES-KEY 3t2I0OO0 OZF40C r)675@ 031qsl.) NOT EQUAL SAVE-INOIV-KFY 31220000 PERFORM-259(-.-VFRIFY-INDIV-LINEI.--- 31230000- 02F422---- 06755 03?,')03*CHANGE MAOE @/,94 BY EFF 06756 0 320 10 IF MSTR-TAG-RFCAPTURE-RECORD AND WS-CURR-SPECIES-KEY 31240000 02F43A SAVE-TAG-RECAPT-KEY ---31?50000 13 06758 03?()30 PERFORM 25()B-VERIFY-TAG-RFCAP-STRUC. 3t260000 02F450 0675q 032040 IF MSTR-TAG-RECAPTURE-RECORD AND WS-CURR-SPECIES-KEY 31240000 02F468 06 760 012051 NOT FQUAL SAVE-TAG-RECAPT-KEY 06761 03206:) PFRFORM 259E-VERIFY-TAG-RUCAP-LINEL. 3t260000 02F47E 06762 037070*FNo OF CHANGE EFF MSTR-AN4UL-US-RrCORr) -AND WS-CURR-SPECIES-KEY NOT E QUA L- 31270000 02F496------ 06764 017090 SAVE- NDIV-KEY 31280000 06765 OS2100 31290000 02F4AC 78 PFPFOR4 259r)-MTSSING-INDIV-REC. 06766 03 71 Il 3 13 0 0 0 00 - - - 06767 032120 IF STRUC-FRP 31310000 C2F4C4 21 06768 (,,A ? 130 PERFORM 260-WRITF-RPT3-STPUC. 31320000 02F400 271 2 06769 03 714')*- 31330000- IFY-INDIV-STRUC. 3t340000' 1:j 06770 032151 ?5qA-VER 06771 03216')* EQUAL LINE NUMBERS NOT nETECTFO BY CODE 4/83 LRL 31350000 31 --06772- --03217()*- ERROR- I NOT ROSS I BLE I EPPERLY 5/81 --- -- 31360000 21,, -NIJ49ER-R OF NMItOREC NUMERIC AND 31370000 02F4F2 q6773 03 ? 181 IF (LTNE 06774 0321W) SAVE lNnIV-LINE NUMERICI 31380000 06775 0 3 ? 7 01 COMPUTE -TFSf-SU-4 SAVE- I N!)[V-LINE-R +-- 1 31390000 -02F SOE----- i n6776 n322110 I F LINE-NUMBrR-A OF NMIIOREC NOT EQUAL TEST-SUM 31400000 02F524 06777 n3222o MOVE TUPN-ON 70 STRUC-ERR-SW 314tOOOO OZF53A MOVE- CHK TO [email protected] ----02F54O--- n6779 n? " 41 31430000 06780 03Z250 ?5qB-VFQIFY-TAG-RECAP-STRUC. 31440000 --'-067FII--03?260*Nf)M-NUMERIC---LINE- NUMFERS.NOT DETECTED BY CODE 4/83 EFF 31350000- 067132 032?71 IF LINE-NUMnFR OF PIM11OPFC EQUAL SAVF-TAG-RECAPT-LINE 31450000 OZF54C 06783 03??80 MOVE TURN-ON TO STP,JC-ERP-SW 31460000 OZF556 i-ii----06 794--032290 -MOVE CHK TO f)UP-TAG-RECAP 1. -314 7 0000 - 02F55C------- 49 3t' 06785 n37300 IF (LINE-NU4BER-R OF NMI10REC NUMERIC AND 314SO000 02F562 n6746 03731) SAVE-TAG-RECAPT-LINE NUMERIC) 31490000 5! 1-0615t 7-03 23?0 --C-OMPUTE--TFST-SUM = SAVE-TAG-RFCAPT-LINE-R +--I .02F57E----- 0678R 032330 IF LINE-NUMBER-R OF W4110REC NOT EQUAL IEST-SUM 31510000 02F594 067,Rq 011340 MOVE TUQN-ON TO SIRlJC-FRR-SW 31520000 02F5AA .2 ------MOVE CHK TO NCN-SEO-TAG-RECAPT. ----31530000- 02F 580 57 06791 037361* 31543000 t! n6792 03237) 259C-VEPIFY-INDIV-LINFI. 311;50000 _nf) 793 NMIIORFC NUMERIC 31560000 02FSBC 06794 01?399 IF LTNF-NUMRER-R OF NMlI0REC NOT EQUAL 1 31570000 02F5CA 06791) 03:14 03 MOVE TURN-ON TO STRUC-ERP-SW 31540000 02FSDA C3 CHK TO NrN-SF.G-INDIV-RFC. --31590000 02F.5EO 06797 03247')* 31600000 Of,'7QR. 031430 259D-41-,SING-lllnfV-PEC. 316tOOOO 67 -067"q---032449*---FfTt4.FR-A-M SSING- INDIV-REC OR A INVAL-ID-LINE- -1 N AN ANNULUS -316? OOoO - 1 62 I'll 068no 037450 MOVE TURN-ON TO STRUC -ERR- S W. 31630000 02F5EC 06;Anj 032461 MOVIE CHK TO MISS I NG-INDIV-REC. 31640000 02F5F2 IU N4100 tO..41.12 APR 3@1984 HEX ADDRESS OF VERBS 31540000 06813 0324snsAnDEO 2/84 BY EFF 3t540000 @@_(16 80 It 032490 259E-VFRIFv-TAG-RECAP-LINEI. 31260000 NMI 10REC -NUMFRIC 31560000 02F51FE-@-- 06806 n3 715 13 IF LINE-NUMBER-P. OF NMtIOREC NOT EQUAL 1 31570000 02F60C 06907 032r)?() MOVE TURN-ON TO STRUC-ERR-SW 31590000 02F61C MOVE CHK TO NON-SEO--TAG-RECAPT.- 31590000--- OZF622 n68O9 03294()*END OF AODITION EFF 31540000 06FktO 03?551)* 31650000 ---06911-----03256f)-?f)O-WP.YTE-RPT3-STPUC.-- 31660000 06812 n32570 MOVE SEQUENCE-NtIMBER OF NMI10REC TO RPT3-SEQ-NBR. 31670000 02F62E 06913 0325SO MOVE REPLtCATF-NfJMBFR OF NMI tOREC TO RPT3-RFP-NBR. 31680000 CZF634 'SPEC IF -OF NMIJORFC GZF63A -'y 06 p 14-- -.03 ?5 Q-1- - --- MOVE S-C 00 E- -TO-PP73-SPECIES-CODE.- 3169 0100 -- 17, i l4nVE SPECIES-STATUS OF KMIIOREC TO RPT3-SPECtES-STATUS. 31700000 02F64O I.i 06815 032600 06816 032619 49VE LINE-NUMBER (.IF N4IIOREC TO RPT3-LINE-NBR, 31710000 02F646 -06917--- 03?620--- ----IF -MSTP-ANNIJLUS-RFCORf) OR MSTR-INDIV-RECORO OR 31720600 02F64C O@ A 1-8 03,2630 MSTR-SPECIES-RFCORD 31711000 22 02F664 06R19 03?640 MOVE DASH TO RPT1-DASH 31740000 23 06 87 0 - 03 26 53 --EL SE 3t7r,0000 2; 068?1 032663 MOVE SPACFS TO RPTI-DASH. '41760-100 02F66E 032670 IF R3-LINF-CN7 GREATER THAN 58 3t?131)00 02F672 06827 -PERFORM 262-WP.ITF-RPT3-STRUr,-t4EADING. 31790000 02F67C 06824 0326qO WRITE STRUC-PPT-LINE FROM REpnRT3-OETAIL-LINE 31790000 OZF694 06875 032700 AFTER. POSITIONING 2. 31800000 --068?6- ---0327t()-- -----MOVE SPACES TO REPnvT3-DETAIL-LtNEj,--- 318100 00 ---- 02F6DE 06827 032720 AnD 2 TO R3-LINI:-CNT. 3t82OOOO 02F6F8 06828 032730* 31930000 -1 06R29---012740-26-Z-WRITF-PPT3-STRt)C-HEADINGii----- 3184 00 00 06830 0112753 ADD I TO R3-PAGE-CNT 31850000 02F6F8 06811 0732760 'InVE 0 P ;3-PAGE-NO. 02F702 -3- AGF-CNT TO 31R60100 06 832- ----()32770-----WRITF STRIJC-PRT-LINE FROM REpnRT3-HEADI -AFTER -POSIT IONI NG -0. 31gIO000 - - 02F71A 3): t ns 813 037781 WRITF STPUC-PRT-L INF FROM RFPORT3-HEAD2 AFTER POSITIONING 2. 31,890000 02F760 06834 0327nO WRITE STPUC-PRT-LINE FROM REPORT3-COL-HEAD1 318q0000 02F7A6 341- ------AFTER POSITIONING-2. 31900000 f)61336 032pil WRITE S TRUC-PRT- L I NE FRCM REPORT3-COL-HEAD2 31910600 02F7EC 06837 n3 28 23 AFTFR POSITIONING 1. 31920000 06 A38- -01 2P 30 WnITF STPLJC-PPT-LINE FROM-REPORT3-COL-HEAO3 3100000-- 02FB32 n6839 n32841 AFTER pnSITInNING 1. 31940000 06840 037859 1111VE 6 TO R3-LINF-CNT. 31950000 02F878 47 _64 136 12 34 137 NMI 00 10.43.12 APR 3,1984 17 26 27 t 271 3a 32 33i 17 3, 7 35i 30 .2i 431 .4 59 .51 61 :81 61 50 61 12' 7. N4.t00 10.43ot2 APR 3,1984 CO NDITIGN* GENERATED AND INDEX NAMES nNM-8-379 86 RFAD-MSTR ONN-8-379 -----f)NM-8-424---e9--READ-TR AN --DNM-S-424- ()NM=A-4 7n 89 WRITF-RPTI DNN-8-470 nN"=9-029 88 WRITE-NFWMSTR 04m-9-029 3 ONM=9_080 - 4 ONM=9-0 RIJ --- 88 [)l)MMY-Rf)-nN-' nNM-()-j0S RR DUMMY-qD-OFF ONM=9-105 ONM=q-154 88 EOIT-ERROR ONN-9-154 -9-17 F - -8 8 NO-EDlT-FRRORS---- - DNM=q-115 nNM 7 nNM=q-233 A8 Ff)IT-RFJEr.T-ERR()R DNM=9-233 of nNM=()-2R6 88 STRUC-EPR DNM=9-296 nN?4=9-403 88 NO-CODF4-DATA-FOUND DNM=9-403 nNm=l)-457 88 NO-DECREASE ONM=9-457 7@:7----nNM-10-nf)O INVALID-GEAR - --- - ONM-10-000 4 nNP4=10-054 88 INVALID-STAT GN DNM= 10-054 DNM=10-112 AB STATION-NOT-FOUND r)Nm-t3-112 )NM=i n- 140 -88 -STATI nN-FoUNn - ONM=10-140 nNM=10-lq4 08 END-OF-LIST DNM=10-194 3 ONM=10-245 88 MASTFR-ACTION f)NM=tO-245 :L---nNM@10-304----FJR -ONM=10-304 qNM=10-35() Aq EOF-LATIN DNM=lQ-'459 nNm=j 0-406 88 TAG-MATCHED D'414= 10-406 2 2 ----nNl*=l 0-457--- R9 -SPIFCIES-FOUPAf) -ON0=10-45Y DNM=11-3r)t 88 SPFCIES-CODE-0 ON M= 11-3 01 nNm=11-326 AA SPECIES-CODF-l-OR-2 ON 4= 11-3 26 ONM= I 1- 39 9---- 8 4 ----SPEC I E S-CnDE- 3---- ON M= t 1- 358 --- ---- DN14=tl-396 89 SPFCIES-CODE-4-OR-7 DNM=11-386 2 DNM=11-418 88 SPECIES-CODE-5 DNM-11-418 nNM=11-446 88, SPECIES-CODE-6 DNM-11-446 30 88 --- fN!)-nF-TRANS --DNM-24-367 NM-24 32 DNPI=?4-392 88 TR-490 ONM=24-392 331 nmm=2 4-408 88 TR-CHA14GE r)NM=24-408 i@@-@@NM=24-43 --TR-DELETC DN M= 24-4 31 3:' nNM=24- 454 88 VALln-CHANGE-CODE DNM-24-454 3 nNM=25-000 98 ENVIR-PECORD nNM-25:-000 f)Nm=? 5-0 @3-88 --R EPL I C-R Er ORD ONM-25-023 noM=25-047 88 SPFC t FS-REC ORD D44-25-047 DK!M-25-072 88 1 ND I V -R E Cn R D nNM=25-072 . 411 nNM=25-095 88 ANNULUS-RECORD DNM=25-095 121 '_._ON4-25-12-3-l34 ---DUP-fNOlV-RFC(JRO6 -n.144-25-123 Ai DNM=25-154 68 DUP-1MDfV-RECORO7 DNM=25-154 nNm=?5-lq5 R4 TAG-RECAPTURE-RFCORD n@jM-25-185 f)NM=33-491--89 --- MSTR-ENVIR-RECnRD----------------- --ONM=33-451 nNM=33-479 88 M ST R-RE PL I C_R FCnR. 0 DNM=33-4?9 nNM=14-090 88 MSTP-SPECIES-RECORD ONM=34-000 .2.-OMM-14-033--89 M STR- I fll) I V-RFCORD ONM-34-033 I ON14=34-064 F R M ST R- ANNUL U S- P E CORD nri m= 34-n 64 51 67 nNM=34-094 8P MSTP-TAG-RECAPTURE-RECORD DIIIM=34-094 n Nm=l 4-16 1-8 A E NO-OF-MAS T E R nN M- 34- t 6 1 DKIM=34-423 88 LINFI DNM=34-423 70 DN',1=34-444 98 LINE2 ONM=34-444 N!4=3 5- 196- - -- 89 GR I D-PROG D'JM= 39-19h DNM.'05-?l8 OR-PRflGPA4-40O-Tn-4" ONM=15-304 84 PROGRAM-6tia-TO-699 Of4m- 35-308 ONM=3 5- 319 88 PROGRA4-700-Tn- 799 ON M. 35-339 oll1 r)N%1=1 5-4?Q an PRnGRAM-050 ON'4=35-4 Zq fllqv=3 5-4!i7 AR PROGR AM-051 DNm@35-457 nmmz36-ono Ft 9 PqnGqA'4-n55 VN14-36-00n n @pi - 3 6- n 7 q 99 PRnGRA4-050 ON M- 3 6- 0 2 A n N kv-'4 6- p @,3 8 9 --- P R nGR A M- 110 - ONm-36-053 t% NIJ =1 I.- nj q p q p Q n rp A!- 10:5 DNM=36-078 N: '1=3 6- 1,16 AS PRnGIA4-110 WJ lq@ 3 6-106 nev,=16- t 14 nit -- PROGRAm- I I q--1---@-_ DM4-36-134 - nvJ =,4 ts- I & 2 all PRnGRAM-120 ON11,36-162 n 0) 16- 19 7 eq pRnGRA4-125 DNN-36-191 nWI-3A- 2t 5 FS- - PPVGRAM- 1 ?6--- ------0NM-36-2j5 n%IM=16-2F.() I? q PQnGRA4-130 DNH=36-240 n @v = 3 1, A13 PROGRAM-1 n44@36-265 INLO-3 293 88 PR@IGRA4-160 293 D144=36 DN14=36-32t 01111=16-31;2 Bq PRrrQAkq-1?5 njM=36-352 I'Wv3 6- 1 PC) Aq PRnGRAM-300 ONM=36-380 nPIksl 6- 4!) Ft 8q PRnGR A4- 320 t)N pq@ 36-408 6-416 SO PROrRAM-330 ONM=36-436 nwj-16-464 OR pRnGRAL4-340 ON'4=36-464 n fl-, =,4 7- 01f) aq - pqnGRA -350 nN$4-37-000 - N 3 7- 119; . 89 , PRnrrt,%4-400 DNM@37-025 I" V 17 - 0 5 0 nq PRn(7QA.M-410 0144=37-050 'i ------- PR0GPA--420- DNM=31-078 n104=3 7-113 pq pRnGPAM-42j-nR-422 04M-3?-103 nw.1=3 If- 134 88 PROGRAM-430-nR-440 0 :24 NM=37-134 PP,()rPQAM-43j-nR-441- 0*1 M-31-1 65 n I- I C01 RS PRPGRA4-432-OR-442 n,4 M= 3 7-1133 D 7- 7 14 Rq PR0G1?AIA-ft33-nR_443 DNM=37-2?4 q,!-37-7-,5 ----qj---PRnGRA"-434-f_IR 444-- DNM=17-755-- nNt'=37-293 FIR PROCRAM-435-OR-445 r)NM*37-2133 I)NAI=37-314 OR PROGRA4-436-UR-446 ONM=37-314 -145---PI4--- PRVGPAm-43?-4)A-44?--- r)NU=l 7 P1111=1 7-176 89 vqnrR 44-418 nN,.,=l T-414 Aq PROr.R 64-450 ONm-37-3?6 r1tj 4z 37-14 04 14%'= 17- 4> 9 ---RO----PRnGPA4-460----- n,jm=j 7-457 99 PRmGRA4-4?0 ONM=3?-457 Fi-n 1) 1) S R PRnGRA4-500 DfIM- 38-900 1,47 .7 npju@i Fj_(rj 9 pq, PROP A4- r, 10- DNM=38-028- r)'& 0 F- (156 q9 PRMIRAM-530 PNII=3P-0 56 9- 011 Sq PgtrGt? A'4-540 DNM=3B-011 6 6 9 p R n r, q AA - 55 0 rW0=18- 114 OR PROGR A.11-610 DNM-39-134 1) Nm =1 A- 15 q An PRnGRAm-615 DNI F4- 3 9 - 15 9 n"LA=j 8-14'*-- FIq- PRIIGR hu-61 8---. ON04- 39-187 n 14 11 A - 15 Rg pRnGq.%m_6?0 Dt4M=38-215 a - 0 pq pQrG" AW-630 010=3R-240 -r-10@3 Fk- 265 PRnr,@ WIM- 38-265 r) PI Is v 3 A - 2@9 3 en P R LI GR A 4 - 6 (% 0 N m = 3 8 - 2 Q I f 100 =3 P - 1 ? I I'l A pRnGRAm-670 ON4=39-321 n N 11 - 3 f?- 3 4 9 -P 8 - p q n Go A M - 6 q 0 ON 14= 38-349- n @1-1 @ 3 p-'A 17 pq Pqnrlpam-690 DNPI=38-37? .64 WIV='8-415 99 PRnrPAIA-700 ONM=39-405 07 so -3 Fi- 410 ---A 9 P RnrIt A4-705 UNM-38-430 r) IV- 3 8- 4 5 5 gg pAnGRA4-110 nN M- 38-%4 5 5 .70 f)Nm*3 A-443 OR PRCGRA"-7t5 DNM-38-4F)3 --DNIM-39-000- 13 n-1%1*39-079 84 PROGRAM-T25 ONMu39-028 vNmujq_053 So PROGRA4-?I* ONMo3q-053 9q---P*0GRA".j9 ON"039-09i DNM=39-109 88 PROGRAM-740 DNM=39-109 DNM=39-137 88 PROGRAM-745 DNM=39-137 DNM=39-165 88 PROGRAM-750 DNM=39-165 DNM=39-190 88 PROGRAM-755 DNM=39-190 DNM=39-218 88 PROGRAM-760 DNM=39-218 DNM=39-246 88 PROGRAM-765 DNM=39-246 DNM=39-271 88 PROGRAM-770 DNM=39-271 DNM=39-296 88 PROGRAM-775 DNM=39-296 DNM=39-321 88 PROGRAM-930 DNM=39-321 DNM=40-084 88 START-LOC-26-TO-40 DNM=40-084 DNM=40-115 88 START-LOC-0-TO-23 DNM=40-115 DNM=40-288 88 VALID-NUMER-GRID DNM=40-288 DNM=40-349 88 VALID-ALPHA-GRID DNM=40-349 DNM=41-033 88 VALID-GEAR-OF-ZERO DNM=41-033 DNM=41-068 88 VALID-GEAR-OF-999 DNM-41-068 DNM=41-102 88 VALID-GEAR-FOR-PGM050 DNM-41-102 DNM=41-102 88 VALID-GEAR-FOR-PGM050 DNM-41-102 DNM=41-133 88 VALID-GEAR-FOR-PGM051 DNM-41-133 DNM=41-167 88 VALID-GEAR-FOR-PGM055 DNM-41-167 DNM=41-201 88 VALID-GEAR-FOR-PGM060 DNM-41-201 DNM=41-235 88 VALID-GEAR-FOR-PGM100 DNM-41-235 DNM=41-266 88 VALID-GEAR-FOR-PGM105 DNM-41-266 DNM=41-301 88 VALID-GEAR-FOR-PGM110 DNM-41-301 DNM=41-335 88 VALID-GEAR-FOR-PGM115 DNM-41-335 DNM=41-369 88 VALID-GEAR-FOR-PGM120 DNM-41-369 DNM=41-403 88 VALID-GEAR-FOR-PGM125 DNM-41-403 DNM=41-438 88 VALID-GEAR-FOR-PGM126 DNM-41-438 DNM=41-476 88 VALID-GEAR-FOR-PGM130 DNM-41-476 DNM=42-000 88 VALID-GEAR-FOR-PGM150 DNM-42-000 DNM=42-034 88 VALID-GEAR-FOR-PGM160 DNM-42-034 DNM=42-065 88 VALID-GEAR-FOR-PGM170-180 DNM-42-065 DNM=42-100 88 VALID-GEAR-FOR-PGM175 DNM-42-100 DNM=42-138 88 VALID-GEAR-FOR-PGM300 DNM-42-138 DNM=42-172 88 VALID-GEAR-FOR-PGM320 DNM-42-172 DNM=42-210 88 VALID-GEAR-FOR-PGM330 DNM-42-210 DNM=42-244 88 VALID-GEAR-FOR-PGM340 DNM-42-244 DNM=42-282 88 VALID-GEAR-FOR-PGM350 DNM-42-282 DNM=42-313 88 VALID-GEAR-FOR-PGM400 DNM-42-313 DNM=42-347 88 VALID-GEAR-FOR-PGM410 DNM-42-347 DNM=42-381 88 VALID-GEAR-FOR-PGM420 DNM-42-381 DNM=42-415 88 VALID-GEAR-FOR-PGM421-422 DNM-42-415 DNM=42-457 88 VALID-GEAR-FOR-PGM430-440 DNM-42-457 DNM=43-000 88 VALID-GEAR-FOR-PGM431-441 DNM-43-000 DNM=43-042 88 VALID-GEAR-FOR-PGM432-442 DNM-43-042 DNM=43-081 88 VALID-GEAR-FOR-PGM433-443 DNM-43-081 DNM=43-119 88 VALID-GEAR-FOR-PGM434-444 DNM-43-119 DNM=43-157 88 VALID-GEAR-FOR-PGM435-445 DNM-43-157 DNM=43-192 88 VALID-GEAR-FOR-PGM436-446 DNM-43-192 DNM=43-234 88 VALID-GEAR-FOR-PGM437-447 DNM-43-234 DNM=43-272 88 VALID-GEAR-FOR-PGM438 DNM-43-272 DNM=43-306 88 VALID-GEAR-FOR-PGM450 DNM-43-306 DNM=43-340 88 VALID-GEAR-FOR-PGM460 DNM-43-340 DNM=43-374 88 VALID-GEAR-FOR-PGM470 DNM-43-374 DNM=43-405 88 VALID-GEAR-FOR-PGM500 DNM-43-405 DNM=43-439 88 VALID-GEAR-FOR-PGM510 DNM-43-439 DNM=43-473 88 VALID-GEAR-FOR-PGM530 DNM-43-473 DNM=44-000 88 VALID-GEAR-FOR-PGM540 DNM-44-000 DNM=44-034 88 VALID-GEAR-FOR-PGM550 DNM-44-034 DNM=44-068 88 VALID-GEAR-FOR-PGM610 DNM-44-068 DNM=44-099 88 VALID-GEAR-FOR-PGM615 DNM-44-099 DNM=44-137 88 VALID-GEAR-FOR-PGM618 DNM-44-137 DNM=44-175 88 VALID-GEAR-FOR-PGM620 DNM-44-175 DNM=44-210 88 VALID-GEAR-FOR-PGM630 DNM-44-210 DNM=44-248 88 VALID-GEAR-FOR-PGM650 DNM-44-248 DNM=44-286 88 VALID-GEAR-FOR-PGM660 DNM-44-286 DNM=44-320 88 VALID-GEAR-FOR-PGM670 DNM-44-320 DNM=44-355 88 VALID-GEAR-FOR-PGM680 DNM-44-355 DNM=44-389 88 VALID-GEAR-FOR-PGM690 DNM-44-389 DNM=44-420 88 VALID-GEAR-FOR-PGM700 DNM-44-420 DNM=44-454 88 VALID-GEAR-FOR-PGM705 DNM-44-454 DNM=45-000 88 VALID-GEAR-FOR-PGM710 DNM-45-000 DNM=45-034 88 VALID-GEAR-FOR-PGM715 DNM-45-034 DNM=45-072 88 VALID-GEAR-FOR-PGM720 DNM-45-072 DNM=45-106 88 VALID-GEAR-FOR-PGM725 DNM-45-106 DNM=45-140 88 VALID-GEAR-FOR-PGM730 DNM-45-140 DNM=45-171 88 VALID-GEAR-FOR-PGM735 DNM-45-171 DNM=45-202 88 VALID-GEAR-FOR-PGM740 DNM-45-202 DNM=45-236 88 VALID-GEAR-FOR-PGM745 DNM-45-236 DNM=45-274 88 VALID-GEAR-FOR-PGM750 DNM-45-274 DNM=45-312 88 VALID-GEAR-FOR-PGM755 DNM-45-312 DNM=45-350 88 VALID-GEAR-FOR-PGM760 DNM-45-350 DNM=45-384 88 VALID-GEAR-FOR-PGM765 DNM-45-384 DNM=45-418 88 VALID-GEAR-FOR-PGM770 DNM-45-418 DNM=45-456 88 VALID-GEAR-FOR-PGM775 DNM-45-456 DNM=49-228 88 SPECIES-CODE3-6-CNT DNM-49-228 DNM=50-266 88 AGE-STATUS-2 DNM-50-266 DNM=54-401 88 CNVT-SDN-IS-ZERO DNM-54-401 DNM=54-461 88 CNVT-JULIAN5-IS-ZERO DNM=54-461 DNM=55-104 88 CNVT-JULIAN7-IS-ZERO DNM=55-104 DNM=55-238 88 CNVT-MDY6-IS-ZERO DNM=55-238 DNM=55-388 88 CNVT-MDY8-IS-ZERO DNM=55-388 DNM=56-060 88 CNVT-YMD6-IS-ZERO DNM=56-060 DNM=56-213 88 CNVT-YMD8-IS-ZERO DNM=56-213 DNM=57-282 88 CVT-SDN-IS-ZERO DNM=57-282 DNM=57-337 88 CVT-JULIAN5-IS-ZERO DNM=57-337 DNM=57-467 88 CVT-JULIAN7-IS-ZERO DNM=57-467 DNM=58-098 88 CVT-MDY6-IS-ZERO DNM=58-098 DNM=58-246 88 CVT-MDY8-IS-ZERO DNM=50-246 DNM=58-419 88 CVT-YMD6-IS-ZERO DNM=50-419 DNM=59-070 88 CVT-YMD8-IS-ZERO DNM=59-070 DNM=60-289 88 END-OF-ENVIR-PRELOAD DNM=60-289 DNM=61-226 EPL-IX DNM=61-226 INDEX-NM DNM=62-401 LATIN-INDEX DNM=62-401 INDEX-NM DNM=63-279 TAG-INDEX DNM=63-279 INDEX-NM DNM=74-386 88 LAST-TYPE-ENVIR DNM=74-386 DNM=74-412 88 LAST-TYPE-REPLIC DNM=74-412 DNM=74-439 88 LAST-TYPE-SPECIES DNM=74-439 DNM=74-470 88 LAST-TYPE-INDIV DNM=74-470 DNM=75-000 88 LAST-TYPE-ANNULUS DNM=75-000 DNM=75-081 88 LAST-TYPE-TAG-RECAPT DNM=75-081 DNM=123-215 LOC-1-TX DNM=123-215 INDEX-NM DNM=123-296 STA-1-TX DNM=123-296 INDEX-NM DNM=144-061 LOC-2-TX DNM=144-061 INDEX-NM DNM=144-144 STA-2-TX DNM=144-144 INDEX-NM DNM=146-369 LOC-3-TX DNM=146-369 INDEX-NM DNM=146-453 STA-3-TX DNM=146-453 INDEX-NM NM100 10.43.12 APR 3, 1984 MEMORY MAP TGT 267A8 SAVE AREA 267F8 SWITCH 267F0 TALLY 267F4 SORT SAVE 267F8 ENTRY-SAVE 267FC SORT CORE SIZE 26800 RET CODE 26804 SORT RFT 26806 WORKING CELLS 26809 SORT FILE SIZE 26938 SORT MODE SIZE 2693C PGT-VN TBL 26940 TGT-VN TBL 26944 RESERVED 26948 LENGTH OF VN TBL 26940 LABEL RET 2694E DBG B145AVE 26950 COBOL INDICATOR 26954 A N 26958 DEBUG TAPLE PTR 26950 SORT-MESSAGE 26964 SYSOUT ODNAME 26960 RESERVED 2696D COROL ID 2696F COMPILED POINTER 26970 COUNT TABLE ADDRESS 26974 RESERVED 26978 DBG RL1SAVE 26980 COUNT CHAIN ADDRESS 26984 PRBLI CELL AIR 26988 RESERVED 26980 TA LENGTH 26991 RESERVED 26994 PCS LIT PTR 26990 DEBUGGING 269A0 CO FOR INITIAL INPUT 26944 OVERFLOW CELLS 26948 BI CELLS 26948 DECRADO CELLS 26460 FIB CELLS 26A60 TEMP STORAGE 26A68 TEMP STORAGE-2 26A78 TEMP STORAGE-3 26A90 TEMP STORAGE-4 26A90 BLL CELLS 26AA0 VLC CELLS 26AAC SBL CELLS 26AAC INDEX CELLS 26AAC SUBADR CELLS 26AD0 ONCTL CELLS 26AE4 PFMCTL CELLS 26AE4 PFMSAV CELLS 26AE4 VN CELLS 26008 SAVE AREA=2 270C0 SAVE AREA=3 270C0 XSASW CELLS 270DB XSA CELLS 270DC PARAM CELLS 270EC RPTSAV AREA 27158 CHECKPT CTR 27158 LITERAL PCOL (HEX) 27528 (LIT+0) 002E1C00 01000001 000E0000 00000007 00080007 00000009 27540 (LIT+24) 01AB01AB 00000049 40202068 20212040 20682020 20682021 27558 (LIT+48) 20046C70 0C799C69 9C800C99 9C050C91 1C200C05 1C531C94 27570 (LIT+72) 0C420005 5C556C55 0C213C30 00500006 00100031 10530053 27588 (LIT+96) 80212013 00535010 50645011 00559011 50245060 50120033 27540 (LIT+120) 00240021 00211055 70558012 50126015 00230022 00250096 27588 (LIT+144) 00380024 70160060 00170018 00350035 20353053 00400022 27500 (LIT+168) 40552092 60950092 50920083 50175032 00340035 00400022 275E8 (LIT+192) 20232074 20421042 20410043 00440011 70415043 10441043 27600 (LIT+216) 20442043 30443051 00534055 30554057 20434044 40435044 27618 (LIT+240) 50436044 60437044 70438042 40412011 80450046 00470011 27630 (LIT+264) 10575074 00560031 00536054 00610075 40830061 50805061 27648 (LIT+288) 80620074 60630076 60650075 80660081 10670068 00690071 PGT 27160 DFBUC LINKAGE AREA 27160 OVERFLOW CELLS 27160 VIRTUAL CELLS 27164 VIRTUAL ERCDIC NAMES 27190 PROCEDURE NAME CELLS 27200 GENERATED NAME CELLS 27200 DCR ADDRESS CELLS 27210 VNI CELLS 27230 LITERALS 27528 DISPLAY LITERALS 272F4 PROCEDURE BLOCK CELLS 2794C REGISTER ASSIGNMENT REG 6 BL = 10 REG 7 BL = 9 REG 8 BL = 28 REG 9 BL = 27 REG 10 BL = 15 WORKING-STORAGE STARTS AT LOCATION 00040 FOR A LENGTH OF 25E28. PROCEDURE BLOCK ASSIGNMENT PBL = REG 11 PBL=1 STARTS AT LOCATION 027970 STATEMENT 4549 PBL=2 STARTS AT LOCATION 028798 STATEMENT 4787 PBL=3 STARTS AT LOCATION 029552 STATEMENT 4992 PBL=4 STARTS AT LOCATION 02A3E4 STATEMENT 5216 PBL=5 STARTS AT LOCATION 02B3A4 STATEMENT 5294 PBL=6 STARTS AT LOCATION 02C19A STATEMENT 5382 PBL=7 STARTS AT LOCATION 02D02E STATEMENT 5693 PBL=8 STARTS AT LOCATION 02DE8A STATEMENT 6063 PBL=9 STARTS AT LOCATION 02ECC4 STATEMENT 6444 N4100 10-43.12 APR 3,1984 LIST OF VERBS GENERATING OUT OF LINE CODE 5513 UNSTRING 02F894 .1 2 23 Z4 211 2,11 3 21 3 2az -if ZS 301 .0 33 :4d 381 38 34 -- -------- es As ell 61 70 15 N4100 10.43.12 APR 1#1984 LI *STATTST[r-,* 1;01JQCE RFCnROS 6840 DATA OIVfSInN STATEMENTS 3906 PROC@DURC DIVISION STATEMENTS 1286 SFQv SOURCE #nPTInNS IN EFFECT* SIZF - 262144 BUF 30720 I.INECNT - 54 SPACE It FLAGWP --CLIST, SUPMAP, NDXREF,-- SXREFv LOAD,-NODECK, APOSTj-NOTRUNC. NOFLOW 4. #OPTIrNS IN EFFECT* NOTFRM# NONUM, NOBATCH, NONAmFt COMPILE-Olt NOSTATEv RESIOENT9 NOOYNAH@ NOLIB# CSYNTAX *nPTjr!NS IN EFFECT* OPTIMIZE, NOSYMDMP. NOTEST, VFRBI ZW89 SYST# NOENDJOBY NOLVL --*OPT I r- NS IN-EFF-E-G-T*-.---NnLS-T-r-Nr)FDC-CK,NOCOECK, LCOL2v- L1209-- DUMP NOAOV.v-NOPRINTv---------- a; *OPTIONS IN EFFECT* NnC()UNTv N9VBSUMv NOVBRFFv LANGLVL(21 "3 -17 10 23 24 28 2' !71 29 '43 49 150 40) R3 J SA Joe 59 le L4 as '70 N4 110 10.43.t2 APR 391984 OATA NAME REFERENCE LIST DATA NAME BFFN REFERENCES DATA NAME OfFN REFERENCES -ADJUST-7fiRn-f) ATE--- 6050--6055- ANL-DISTA4CE29 --0?63 4926 -4928 S164 AGE-ccNrLICT 1624 5854 A NL -0 1 S TA NC E2 9 1168 5164 AGE-LT-SPAWN-MARK 1560 5692 ANL-DISTANCEA 0737 4822 4824 5164 61 6S54 - --- - ANL-DISTANCE3 1142 5164 - A Nt -A GE 0728 4906 480? 5164 ANL-DISTANCE30 0764 4930 4932 5164 'ANL-ArF 1133 5164 ANL-OISTANCE30 1169 5164 5820 5830 -5R91--5852-- - -- ANL-U[StANCE4 0739- 4826 4828 5164 ANL-DIST 1171 5758 5775 57`76 5778 5791 ANL-DISTANCE4 1143 5164 5793 5817 5878 5883 ANL-DISTANCE5 0739 4830 4832 5164 13 _-ANL-@)TST-E-PPIR 1537-- 5428- 0- ANL-DISTANCE5 1144 5164 17 ANL-nISTANCEI 0735 4814 4816 5164 * ANL-DISTA?ICE& 0740 4834 4836 5164 A -DISTANCH * -DISTANCE6 NL 1140 5164 ANL 1145 5164 ANL-DISTANCE7 --0741-- 4838 4840 5164 ANt-DISTAKE10 --`--0744-- 4850 4852 5164 - 71 ANL-nISTANCE10 114q 5164 0 ANL-DISTANCE7. lt46 5t64 ANt-01,TANrFil 0745 4854 4856 5164 * ANL-DISTANCES 0742 4842 4844 5164 1150-- 5164 ---- -- ----- 0- ANL-DISTANCE8 114 7 5164 A N L - 0 IS T A P Ir. F 12 0746 44JO 4860 95164 * A N L - 0 1 S T A N C E9 0743 4846 4 8 ft 8 5164 ANL-niTANCF12 1151 St64 * ANL-DISTANCE9 1148 5164 A NL - r@ I S T A NC E 13 4862-4864--5164--------'- 0- ANL-LIH-TO-FIGE- 47,99 4801 4804 41805-51,44 22.1 ANL-nFSTANCEt3 1152 St64 $ ANL-LTH-TO-EDGE 1135 5164 5788 5820 2@i ANL-OTSTANCF14 0748 4866 4868 5164 * ANI.-LTH-TO-EDGE-ERR 1558 5799 5164----- ANL-LTH-Tn-EoGE-R- 1136 5776 5778 5797 ANL-DISTAKFIS, 0749 4870 4872 5164 0 ANL-14ARGIN-INCR 0732 4809 4811 5164 all A tit. _n 15 T,4 NC Fl 5 1154 5164 0 * A NL -MAP G I N- I NCR 113T 5164 5788 ----A NL -n I S TA NC El 6- ----f) 750-- 4874 -4876---5164 A NL -MARG I N- I N CR-R----- t 38 - 5174 5 7? a 5-186 5793 51r96- ANL-OTSTANCE16 1155 5164 5820 j3ej ANL-r)lrTAKFt7 0751 4q78 4880 5164 ANNL-SPWN 1665 5870 3@ NN A R 4615 5163 6087--- ANL-n I S TANC El 7- t 1 %;6-- 5164 ---- A ULUS- ECO D- ANL-91STANCEIR 0752 4882 4884 5164 ARRANGE-HOLD-AREA t412 5022 5025 42 ANL-n[STANCF18 1157 5164 ARRANGE-LAST t417 5011 502t 5030 5031 33i __ANL-Df5TAljCEll) ------0753---46P 6-40PR-5164--@-- ARRANGE-LIMIT 5007 501? -5031 -- ANL-DISTANfFlO 11138 St64 ARRANGE-SSL t4L4 5011 5015 5019 5021 5022 ANL-nl',TAW@F2 0736 4818 4820 5164 5023 5164,- -- ARRANGE-SS2 5012 50t& 5017 -50191-5023--"s ANL-DTSTANrr?O 0754 4390 4892 5164 5025 ANL-nISTANCE20 1159 5164 CAUSE-ABEND 0110 4594 1960 5926 ANL-njSTANCF?l -----075 5-- 4F394--4896--5164----------- CHK I I 1 6720 6727 6743 6776 6-;84--" ANL-nU;TANC.F21 1160 5164 6790 6796 6801 6808 ANL-nISTA.NrF?2 0756 4898 4900 5164 CPIVT-ALPHA-48BRV 1268 5992 ANL-nlSTANCE22-------1161 - 5164--- - -- CNVT-ALPHA-DATE-- 5982 - -- - -- - ANL-nt',TAPirE?3 0757 4nO2 4904 5164 CNVY-DAY-OF-THE-WEEK 1282 5982 !a ANI.-DI.STANCF23 110@? 5164 CNVT-JULIAN5 1224 5982 5 -ANt_-nl5TAWF?4------07S8-- 4qO6 4908 -5164------- - CNVT-JULFANT 5982 ANL-F)ISTANCF?4 1163 St64 C4VT-Mf)Y6 L236 5982 ANL-DISTANCE29) 0759 4910 4qt2 5164 0 0 CNVT-mnyR 1243 5982 5164 --- --- CNVT-SON- 12 2 2 - 5982 5992-5gq5 6057 ANL-t)lST&Nr.F?6 OT60 49t4 4916 5164 CNVT-Y,4D6 1252 5990 5993 6055 Vll-niSTA@jCr?6 1165 5164 CNVT-YM08 t259 5982 4918 4920-5164- -OATA-FOUND-SW 0154 6582----- ANt. COOE4 6400 e :2, ANL-Vf STAW E? 7 1166 5164 COLLECT-Sil 1463 5496 7" ANL-Ml I TANC F? 8 OT6? 4922 4924 5164 0 OMO-LEN 0212 5793 5196 5191 AN( -DI SIANC F2 9 t 167- 5164 ---- ------- CONVERI -F I EO 1385 5471 S4?5 5510 SM 9STO i7l NMtOO 10.43,12 APR 30984 DATA NAME REFERENCE LIST DATA NAME REFERENCES DATA NAME DEFN REFERENCES 2' QEFN 31 S823 S62?-5832-584?- 50 53-----i- CONVFRTFD-DECIKAL-12 1387 5474 54TS S504 5518 5573 S868 5902 5966 59?4 6005 a, SS82 5591 6011 6028 6035 6043 6059 7 nASH----- S201-6088 606-6819--- - 62 20 6290 6314 6342 6382 - [)ATF-mnDIFTED 1063 523q 6390 6424 6437 6450 6463 '!0 DATE-14nOIFTED 1072 5244 6S23 :532 6534 6561 6569 -'01 DATF-f4nnlF1 En 524q 6607 615 6623 6630 663S OATE-mnDIFIED 1131 5254 6644 DATE- IAOn I F I ED H76 5259 EDIT-REJECT-ERROR-SW 0148 S188 5223 _ - - -------- DA TE-mnf)l F1 E-1 1201 5264----- END-OF-ENV I R-PRELOAD- 1360 456T 4S81 17 r) ATF -PR Or RA M 0128 5996 S987 END-OF-LIST Ot66 5445 5453 DATE-RFCl-PFC9-FPROR 1626 6009 6062 E ND-OF -LI ST-S W Ot65 5369 5462 S468 --9 AT EC At f-L I NK A- V ---1219 59 Fl? -- END-OF-MASTER 0801 4948 5073 5096 0599 4574 4620 4948 5073 DAY-OUT-CfINFL ICT IT02 6036 Alt* ENn-OF-TRANS DAYS-011T 0775 4940 4942 5167 * * ENVIR-AIR-TEMP 0651 slsz 23 DAYS-011T ---1194 5167-6017-6030-6033-6036 - * ENV [R-AIR-TEMP--- ------1043 SIS2 nAYS-(lUT-R 1195 6027 * ENVlR-ALLOWF)-ACT 0668 5152 DFr-CHFCK-FL9 0294 5393 * Alt ENVIR-ALLOWED-ACT 1060 5152 Z7 21, . i Z------ ----0295 S4t7-- ENV IR-.ALPHA-GRID--- --------0638 5152 23 ()EC-r.K-:? 0296 54lq ENVIR-ALPtiA-GRID 0919 5152 DEC-CK-3 0297 5421 ENVIR-BAROMFTER 0661 St52 3t 241 n E(:-(, K-4-- ---0298 5 4 2 3 -- ENVIR-BARnHEtER W-CNT 0293 5394 5396 5418 5420 5422 ENVIR-BOTTOM-00 0658 5152 5424 ENVIR-BOTTOki-00 1050 5152 35 0 ENV I R-BOT TOM- PROFILE-------- 0649 4722 4723- 13152-------__._7 DETAIL-LINF-WRITTFN OIS3 6095 6139 ENVIR-BOTTOM-PROFILE 1041 5t52 3 r)FTAIL-LINE-WRITTEN-SW 0152 4563 46qg 5108 6134 6145 ENVIR-BOTT04-SALIN 0655 SIS2 3 6258-6307-6335---6370 6531- ENVIR-BOTTO14-SALIN ---------1047 5152 3, 321 01ST-TRAVELE0 0776 516T ENVIR-BOTTOM-TEMP 0653 5152 DIST-TRAVELErl 1196 5167 5972 5975 ENVIR-f)nTTnM-TEMP 1045 5152 33 14 -T AV-LEf)-ERR-----1705- 5976--- -- ENV IR-BOTTE)M-TYPE--------:-------0648 -4720 4?21--5152--- ,t-D I S T R 45 r)lJmmY-PD-();:F 0144 5091 ENVIR-BOTTOM-TYPE 1040 5152 3 3 DUMAY-PD-SW 0142 4966 5101 513S ENVIR-CONOUCT 0656 5152 - -()UP-1@l')IV--CNT6---------0303 4629 4657--- ENV IR-CONDUCT 37 ENVIR-CURRENT-DIRECT 0664 5152 3.1. OVP- I N.) I V-C NT 7 0308 4640 4670 91 0 UP - 1 W.) I V-L Tf46 n3n4 4658 ENVIR-CURRENT-OIRECT 1056 5152 011P- I f1f) I V-t-T47 -----0309 4671-------- ENVIR-CURRENT-SPEEO- --066S -5152 41 UP- I Nn I V-M AT 7 0311 4673 ENVIR-CURRENT-SPEED. 1057 5152 4 DUP- I ?JD I V-R FC nR r)6 060 4623 ENVIR-DATE 0629 5152 DUP- I ND I V--Q EC nR07- Oft t 1-- 46-44 ENVIR-DATE ---0898 5152 3 nUP-lF)')fV-SEX7 0310 4672 E4VIR-OEPTH 0650 4724 4725 SIS2 nfJP-PFCnPD-f)FSC 0300 4624 4635 ENVIR-DEPTH 1042 5152 @-.r-DUP-TAG-RFCAPT- - 67 84 --- ---- -- E NV I R -4)UR AT-E RR 1651 -5405 - - - -- - DUPLICATE-TNr)IV-RECS 1520 6608 ENVIR-f)URATION-ERROR 1647 5407 E D I T- ER Rf)R- SW 0145 4692 5271 5276 5290 5364 ENVIR-DURATION-OR-AREA 0641 4706 4?07 5152 4a A I 5379 5387--5397-S404 5411 E NV I R-DUR AT I n N-OR-A RE A- 0923 -5.IS2 5392-S393-S4 02-5405 9 5480 5485 5494 SS25 5530 E NV I R-E ND- T1 .4 E 0640 5152 Cal 553R 5546 5554 5575 5584 E NV I R-E ND- T 14 E 0922 5152 6 7 55q3 S603 5614 5637 5639 ENVlk-GEAR-P4RMl--- 0643 4710 4711 St52- 5646 5653 5664 5671 569t ENVIR-GEArt-PARM1 1035 _51S2 .70t 14 5701 5709 5716 572t 5728 ENVtR-GEAR7PARM2 0644 47t2 47t3 S152 1 7, -5734- 5140 5?4q 5783 5790 0-- ENVIFt-GEAR-PARM2 1036 5152 A NMI00 10.43.12 APR 3tt984 OATA NAME REFERENCE LIST DATA NAME DFFN REFERENCES DATA NAME OEFN REFERENCES '"'tV?-R-CFAR-PA'tMl--------0645'--4714-4715 -E4.)F-LAT1N-__ ENVIR-GFAR-PARM3 t037 5152 EOF-LATIN-SW 0171 4992 5004 ENVIR-GFAR-TYPE 0642 4691 4643 470t 4708 4709 EPL-IX 1377 4566 4569 45e6 4588 4597 17 -51521 --4687 4704 _9 ENVIR-rFAR-TYPE 0924 515? 54t2 ERR-DAYS-DIFF 1639 6029 10 FNVIP.-rFAP-TYPE-R 0925 5366 ERR-DAYS-OUT 1637 6030 @111 E-kR-DISTANCF@TRAVE-LIED--------- 17tO 5975 - . ..... ENVIP7LATITUTE 0632 5152 ERR-ENVIR-DATE t630 6007 6061 E N V I R - L A T I T UT F 0912 5152 ERR-MSG-CODE 15tT 6291 6562 ----ENVIP,-L(Ir.-N(IT-FOUW@--------1608 ERR-MSG-GRIO 1469 5272 - -- ENVIR-LnNrl TUDE 0633 5152 ERR-MSG-LTH IS26 6631 ENVIII-L1111GITUIE 0913 5t52 E.RR-MSG-REPS 1454 6308 10 1-6 -NON-ZERn-Gf AR- - -1653 ERR -MSG -S PECS-------- 6336 - IENVIR 17i . ENVIR-N MIER-REPLIC 0669 5152 ERR-MSG-SURSAN 1536 6374 i ENVIP-N:,,mBFR-RFPLIC 1061 5152 5409 6260 111 ERR-PRT-LINE 0081. 6t35 61.41 6146 6t53 6154 _F9 - - I........ - . 615S ___2A --FNVIR-NU-E.R--4,RIf) ------0637 51S2 ------- -- .6157 FNviP-toj?AFp-1,RIn 0917 5152 111 0 ERR-RFCAPT-DATE 1632 6006 6060 '261 E N V I R - N 0 - GF AR 1657 5412 111 111 ERR-SPF-CNTR 1685 6426 6439 6452 6465 f N V I R -P H E RR -T AG-C NT R ------t683 6425 6438 6451 6464 - _Z2 Z21 ENVIR-Pil 1051 5152 ERR-TAG-TYPF 1677 596? - 23 2 41 FNVIP-PRFLnAf)-FILE 0028 4561 4572 4579 ERR-TAG-TYPX -1687 6427 6440 64S3 6466 ,@-ENVIR-PREL(.)Ar)-RFC-------0046- -4579------- .-.-ERROR-RPT --------0034 4562 S064 613S 614k- 61,46 - ENV I P-OtIAD 0639 515? 6153 6154 6155 6157 ENVIR-011Ar) 0921 51.52 FLD-NAME-IN-ERR 1447 5398 5401 5486 5526 553t .351 27: 2a; -ENVIR-RECORD 0605 -4603 554? 5576 5585 S594 - -- 0646 4716 4717 5152 FLO-NOT-NUMERIC-ERR 1446 5399 5482 5487 5527 5512 ENVIR-R IG 3aq ENVIR-RIG tO38 5t52 5548 5577 5586 5595 3@ ENV I R-S TART-LOC---------- 0631 - 46 86 -- - OR M-OF-RECQR 0- TYPE- I V-ERR----- 17 14 S612 ENVIR-START-LnC 0907 5399 GEAR-TYPEX 1570 5366 '42 3. ENVIR-STAPT-LQC-P. 0914 5371 GRID-NOT-FOR4ATTED 1465 $273 13 EMVIR-S-TA T - t?JM9 EP- --0630- '4695,-5152--- GR I O-PROG 5269 ENVIR-STAT-NJMBFR 0906 5152 5372 5388 1440 5458 0 0 HOLD-CONVERSION 1380 5504 5509 5518 5464 111 111 [NO-AGE-STAT-ERR 1564 5848 @47 36 ----E: NV I R-S bi - __. _13 TATF-ALTF.R-- -----0667 -47 26 111 IN V-AGE- ..---07 20 4789 4791 -51.61 12 S_rZ_l '411 33" FtIVIP-STATF-ALTEP 1059 5152 IN:)IV-AGE 11.24 5161 5696 5704 57 FNVIR-,UFACF-1)r1 0657 5152 5731 31--ENV R-SUFACF-r)n --1049 - -51 S2 I N9 I V-AGE- I NC ONSI 5 87 -5702 5?10-5117 -- ENV, I INDIV-AGE-R 1125 568? 5719 I R-S UR FA CF -S AL IN 0654 5 52 ENV I P-SURFACE-SAL IN 1046 5152 INDIV-AGE-STAT-ERR2 L589 5722 -F NV I P-S UP r A CE-T F MP- ---0 65 2 -- 5152 - I NO I V -AGE -S T & T-ERR3 ------1591 5729 - !7 F NV I P -S UP. FA CE - T E VP 1044 5152 1 NY) I V-AGE - S TA T-ERR4 1593 5735 Sal F NV I P -T YP F- (F - T OW 0647 4718 47t9 5152 INDIV-AGE-STATUS 0718 5161 51 a.] -T YP F- (YF -T nw----tf)3 9- 515 1 NO I V-AGE- STA TU S - 1121 -5161 5696 -5704-5lt2-571 .a ENVIR 9____1 ENVIR-WATEO-LEVEL 0666 5152 5724 ST31 6555 a ENVIR-WATIP-LEVEL 1058 5152 INDIV-AGE-STRUCTURE 6719 5161 FNVIP-WFAT II E2 -0660- 111 111 INDIV-AGE-STRUCTURE 1123 5161 5696 5704 51 ENVIR-WFAT14ER in52 5152 1 ND I V-CNT 0702 4657 4670 4781 47 :,12 3 3 5 FNV IP-14 INn-DI RFCT 0662 5152 IND IY-CNT 1100 5161 67 F-NVfP--WTND-f)I 9@(:-T --10" 5 15 2 INI) IV-CNT-R 6567 6580 E NV I R -W I N n- SP E F D 0663 5152 1 NO IV-CDUtJT-E RR 1550 6624 ?c F Nv I R -w I Pw-,sp Egn 1055 5 1920 1 NO I V -0 V T Al L S 0705 4628 4639 fNVIA_Yv 0 0 INQjV-t)f:fA1t25 1100 4940 6581 174 j7 NMIt.)O 10.43.t2 APR 391984 DATA NAME REFERENCE LIST DATA NAME DEFN REFERENCES DATA NAME DEFN REFERENCES ft-3 -LATIN-RECORD 0104 4986 iNr)IV-FrG-CNT IL12 516t LATIN-SUBSCR 0123 4976 4978 4982 4986 4988 .5 INDIV-FCG-STAGE OTt4 5161 4989 4993 4995 4997 4998 7, I N D I V-F G G - S TA G F - 3 S16t---- 5000 5035 INDIV-L INE-ERP 1552 6620 6636 LAT IN-TOTAL 0126 4978 4S81 5007 INDIV-LTH 0703 4698 467t 4785 4707 S161 LINE-NUMBER 0622 4625 4636 4656 4669 4695 'o, _INDIV-L-TH______ -1103-- 5137 5229 6086 - - t1i INnTV-LTH-nISCREP 1522 6632 LINE-NUMBER @'OSLO 4695 5137 St97 5229 6103 121 INnIV-LTH-R 1104 6285 6628 6502 6782 6816 I Nn 1 0709 4673 5161----- --L INE-NUMBER-CNTR- 18 --4625 4636 4656 4664 4669 I W) I V-1A ATUPE 1108 5161 4679 I Nn I V-P ARMI 0710 SL61 LINE-NUMBER-R 08L3 6773 6776 6785 6768 6793 N) IV-P AR f4l - 109 St6l 6?94 6805 6806 17 TNOIV-PARM? 0711 5161 LINEI 0811 6614 .221 INDIV-PARMP 1110 5161 LINE2 O8t2 6634 23 I NO I V-P AR MA 0 7 12 5161 LINE2-ERR-MSG-------- 0497 6140 INDIV-PARM3 1111 5161 LNGTH-LAST-ANNL-INCONSIS t606 5784 25 1Nf)Tv-PFQRD 0608 4612 5160 60ST L-OC-WITH-04-42-STATIONS 4369 5432 27' 5382 4672-5161 0-0 -LOC-WITH-t-3-STATIONS-----@-3474 I mnlv-@Fx 1107 5161 LOC-WITH-43-138-STATICNS 5450 INDIV-SPAWN-MARK-CNT 0722 47q3 4795 5161 LnC-I-jx 3474 5382 5440 3, 3 --I N0IV-SPAWN-MARK-CNT-------II2& SI&I 5696 ST04-5712--5731-- LOC-2-14 ----.4369 .5432 5458 5461 ItjnjV-SPAW4-mARK-CNT-R i127 5687 LOC-3-IX 4539 S450 5464 5467 I NO I V-S PwN 1663 586q L OC AT I ON-CODE 1613 53eO 3] 271 -1 NDI V-STA-TftS-------07I5- --MASTER-ACTIom 0 t 68 6174 6186 a INnIV-STATUS 1114 5161 5746 MASTER-ACTION-SW OW 5133 5227 617S 30 INnIV-TAG-NBR 0716 5161 MATURITY 0779 5167 !39 40 i,-F--INDIV-TAG-NBR---------tt-15 -5161 5737 5741--S 746---- _MATURITY I 199 5167 - 41 2 1 N r) I V - T A G -N BR - R It16 6284 MINUS-1 0217 5810 1N0IV-TA(,-NM9R-ALPHAB ItI8 5737 MISSINC-ANNULUS t562 6533 MISS[ NG-CODE3-NNOR2 - -----1622 6524 --- 1- 45 J NO I V-Wr T 0707 5161 MISSING-DISTANCE-SW 0169 5801 5819 5800 4C 1471 36] INn[V-wGT 1106 5161 '41SSING-ENVIR 0573 6720 - -INV-r)EAR-COPE- -1620 - MISSING-(NDIV-OATA ---------1554 6391-- 371 INVAL-0iG-Cn!E 1441 5179 5222 MISSING-INOIV-REC 0585 6801 50 I NVAL In-r.FAP-MSG 1566 5367 41 S SI NG-REPLI C 0575 6727 @-f NV AL I n-f. EA R- SW------ -(115 9 -5362-5363--- M 15 S I 11G-S PEC I ES 0 5 77 f z 6743 - ---- - 1NVAL1f)-IN31V-FOPMAT ISt8 6570 MSTR-ANNULUS-RECORD 0793 5199 5257 6104 6186 6241 54, I NvAL I D-F EC -F oR-CnDE 1513 6292 6563 55, 4 6287 67t3 6721 6737 6763 -- - I 4VAL in-sPF-CT FS-Cnf)F-6--1602 6645 - 6817 - -3t JNVALjn-STA-k4SG 1573 5390 MSTR-CONTROL 0800 5115 5118 6194 670? 50 INVALI -STATInN 0161 5386 MSTR-ENVIR-kECORO 0794 5237 6183 6226 6259 52 INVALID-STAT11.1N-SW------0160 5369 -15375- 5437------- 4STR-FND[V-RECORD- --O'r9T 5199 5252 6104 6236-62&1- LAST-LINE-NBR 1732 6501 6503 6?13 672t 6737 6749 6752 LAST-RrC-TYPE 1719 6195 6593 6817 L_-L A@T-PE COWD-K -172 6 -6194 -- -MSTR-REPLIC-RECORD -------0?95- 5242 6183 6229 6262 6713-- - LAST-Pf:P-N!3R 1728 6275 6324 6325 6593 MSTR-SPECIES-RECORD 0796 51q9 5247 6104 6232 6270 t AST-SF'0-W1R 1727 6265 6275 6296 6297 6593 6713 6721 6817 A@,T-SPFC H S-GROUP-------I 729 6360 6361 6521-6593 MSTR-TAG-RECAOTURE-RECORD----0799 5262 6244 6713 6721 -6737-- LAT IN-F ILE 0036 4975 49?q 4986 6756 6759 LAT pi-i tinEx 1404 6210 0 NBR-AFTER-UPDATE 0192 5046 6198 k AT t N-N m@- TA 8L F---------.- 14n4 4986 5022 5023-S024 62to-- 0 .-N8R-ANL-DIST-rT-AG6 --- 1556 5833 N4100 10.43.12 APR 391984 04TA NAME REFERENCE tIST a 2 DATA NAME DEFN REFERENCES DATA NAME DEFN REFERENCES 3 3 --.i, _N P R - B FF OR F- I JPD A T E--- 19t -5045--5097 - ------- PROGRA4-060 N8R-OCCUQS-FNV1R-PRELnA9 1374 4569 PROGRAM-100 0833 S294 NRR-PFCS-AODED n188 5047 5140 PROGRAM-105 0834 5294 -------0189 -5048-5232 - PROGRAM-110 ------083S 5294 NPP-RErS-0FL 0190 5049 6071 PROGRAM-115 0836 5294 N8R-TAGGr,D-FRR 1585 5665 PROGRAM-120 0837 S294 PROGRAM-125 0838 S294-- NEWMST-REC 0067 6197 PROGRAM-126 0839 5294 NmlOOREC 0597 4600 4602 4645 4665 4680 0 PROGRAM-130 0840 S294 -4q4j PROGRAM-150 ---------0841 ---S294 - 3 5104 -160 5294 14i NM11OREC .0792 4700 5093 5095 5100 5136 * PROGRAM 0842 5726 6197 6227 6230 6233 * PROGRAM-170-OR-160 0843 5294 15 i-a _6239 6242 6245 6316 6317- 0 * PROGRAM-175 S294 0 * -300 6319 6344 6345 6347 6384 PROGRAM 0845 5294 6385 6387 6393 6394 6396 * * PROGRAM-320 0846 5294 __6429 6430 6432 6442 6443- * * PROGRAM-330 0847 5294-, 201 6445 6455 6456 6458 6468 * * PROGRAM-340 0848 5294 i 646q 6471 6525 6526 6528 * * PROGRAM-350 21; 084q 5294 --6537-6538 6540 PROGRAM-400 ---------------0650--5294 NO-CnOF4-r)4TA-FnUND 0155 6389 PROGRAM-400-TO-499 0824 5372 No-nrcRFASE 0157 5826 PROGRAM-410 085t 5294 ------14,42 -5183 5187 0 * PROGRAM-420 52 5294 26 NOtl-NUMEPIC-GEAR 1615 4694 * * PROGRAM-421-OR-422 0853 5Z94 NON_SFQ_1tjD IV-RFC 0583 6778 6796 * * PROGRAM-430-OR-440 0854 5294 35 NON-SEO-TAf;-RFCAPT--- ---0581 679f) 6808 PRI)GRA4-431-OR-441 52 94 ;:Ie 2 NONEOUAL-LTH-AlID-MARGIN 1604 5824 At PRO611AM-432-OR-442 0856 5294 NOT-Ann 1431 5218 PROGRAM-433-OR-443 0857 5294 31 NOT-C-HG ------------1432 --PR9GPAM-434-OR-444------ OBS8 32 N()T-nEL 1433 5196 pRnGRAM-435-nR-445 0859 5294 33. Num-nF-SP AWN-MARKS 0767 4q34 4936 5164 PROGRAM-416-OR-446 0860 5294 ;_.@---NUM-OF-SP AWN- MARK S---i 172 5164-5870 --- PROGRA4-437-OR-447 ------0861 -52 94 - Num-nF-SPAWN-MARKS-R 1173 5864 5866 PROGRAM-438 0862 5294 3@ 36 NUM-SPFC-REC 1475 6337 PROGRA4-4SO 0863 5294 NUMB-14nl V-PFCS _O?tO -6371 -63TS 647?-,&S6?-45@0-- PR()GRA4-460 3371 NUW3-R(-P-RECS OtJ96 6266 6268 6306 632 PROGRAH-4 TO 0865 5294 a 0 39' NUMB-SPFr.-kFCS 0 98 6277 627 9 6334 6337 6348 PROGRAM-500 0866 5294 i.@_--NtfMBFR-DFC-1-MAt---1 39t -5511-- PROGRA4-5 10 NUM8FR-nF-F1FLr)S 1394 5509 5513 PROGRAM-530 0868 5294 NU`4f1FR-U'4TTS 1390 5511 PROGRAM-541) 0869 5294 P;knGRAM-550 ------0870 .5294 nCCupRFNCF-COnF-3 n208 6521 6542 6597 65q9 6606 PROGPAM-600-TO-699 0825 5372 6611 6614 PROGRAM-610 0871 5294 - OL'N-MAST- 0029 -4961 5064 5oq3--- PROGRAM-615 -*0872 --5294- 4' 0873 5244 OL r)MS T-REC 0053 5093 5095 5100 PROGRA4-618 PRnG-Numgpx '1572 5365 4a PROGRAM-620 0874 5294 72--P RnrR A4-T YP E ---------062 8 ---4694- 51`52 Ao * PROGRAMI-630 0 8 7 5 5294 50 PROG R AM-TYP F O91q 5152 * PROGRAM-650 0876 5294 PR91; R AIA-T YP F- P 0820 5365 PROGRAM-660 0877 5294 rRfWf;RAM-01,)')-T(1-699-- --0823 - 5287 PROGR AM-670. 0878 5294 PPr)rRA"-050 0429 5294 PROGRA4-680 08?9 5294 0930 OP44 089,11k r 5294 ----------- PR. )GR AM-054---7--0831 .--PROGRAM-?00 08 al 52 9j DATA NAME REFERENCE LIST "100 IOm43.12 APR 3vt984 OATA NAME DEFN REFERENCES DATA NAME DEFN REFERENCES REPORTI-HEAD2 -0331---6124 S, * WGRAM-705 0892 5294 REPORT1-TnTAL-L INEL 0388 5052 P P 0 0 R A M- 7 11) 0883 5294 Ill4 REPORTL-TOTAL-LINE2 0394 5054 pRnGP AAA-7 Is --0 8 84 S2q4 REPORTt-TOTAL-LINE3 0400 5056 PRnGRAM-720 O8R5 5294 REPORTI-TnTAL-LINE4 0406 5058 pRnGPAk4-7?r) 08A6 5294 REPORTI-TOTAL-L INES 0412 5060 -PRf1,(',RA4-73O-- ------088?--5294 REPr)RTI-VOTAL-L INE6--------- 04LS 5062 PRnGPAM-735 0868 5294 Ill REPORT2-C0L-HEAO1 0450 6tSS pRnGRA4-740 0899 5294 REPORT2-COL-HEAD2 0464 6151 i-,.----PROGRAM-74S--------- REPGRT2-DETAI L-LINE ---------0478 - 6135 6146 PROGRAM-750 0891 5794 Ill REPORT2-HEAnt 0430 6153 pRnGRAM-755 Ogg? 52q4 * REPORT2-HEA02 0441 6154 T.-PRnGRA4-76O 0893 52q4 * REPORT3-COL-HEAOI 0525 6834 171 PRnGRAM-765 0894 5294 # REPORT3-COL-HEAD2 0539 6836 ppnr,4tAM-770 0895 5294 * REPORT3-COL-HEAD3 0553 6838 P R 9@15, P. A14-7 89 6 5294-- REPORT3-DETAIL-LINE 056L- 6824 6826 ------ - --- PR,'Ir R A,4- 900-TO-999 OP28 5287 1 REP OR T3-1417- Anl 0505 6832 P RnGR A-4-t) 30 0897 5372 REPORT3-HFAD2 0516 6633 .6313 -RFAO-MSTR--- -5069------ [email protected] t4SO 11AI-111TI-', 0134 4965 5085 6074 6077 ROLLOUT-AREA 0285 6316 6319 6344 6347 6384 READ-TRAN. 0131 50TI 6337 6393 6396 6429 6412 z_,@__-RFAn-TRAN-SW-------0136 4965 5107--SI26--52O6----- 6442 6445 C455 6456 6468 2e PEC-AnD 1436 5L42 All 6471 652S 6528 6537 6540 27 REC.-ALREADY 1443 5219 RP-COLLECT-SIZE 0671 4732 4734 4?37 5 1@5 21 .--R FC-r_Hrj-- 43 ?-- Rp-r(ICLECT-St ZE---- 106S - 5155 C,47S 'RP-COLLECT-SIZE-CNVRT .1398 5478 5484 5489 R FC-DEL 1438 6070 5496 $t E-C-PEJ Fr. T- TOT OIRT 5044 6091 RP-NUMBER-SPECIES 0675 5155 R EC AP-T-OAVS-OUT-ERP 431---- 6031 ---- Ill RP-NUMBER-SPECIES 1069 5155 6263 32 R ECAPTURF-DATE 0772 5167 RP-QUALITY 0676 5155 RFrAPTURF-f)ATF 1184 5167 RP- QUAL ITY 1070 5155 T4-R Ff_- APTURf-DAT E-R- -118 8 5 896 -5990 -6006-6012 - 6050 - 4- R P- SA MPL E-S I I E --------06 13 - 4T38 4740 4743 5L55 6060 $ RP-SAMPLE-SIZE 1067 5155 5471 R Er- AP TUR F -G, FA 11 0774 5167 * RP-SA14PLE-SIZE-CNVRT 1397 54T4 5479 5489 5495 0 Ff A P TURF-G EA P __ ----119 3 RPT-NBR-AFTER-UPO --------042a 5046 -- --- - - - TH 0177 5167 RPT-NBR-BEFORE-UP0 0390 5045 RECAPTURE-LENr RFCAPTU9)E-LENGTH 1197 5167 RPT-N8R-RFCS-AODED 0396 504? 39 RPY-NBR-RECS-CHG So4a 41 RFCAPTIIRF-L OC 1192 5t67 5972 * RPT-NOR-RECS-OEL 0408 5049 R FCAPTURF-WFI GHT 0778 5167 * RPT-REJECT-TOT 0414 5044 ---;tFrAPTURE-WFir,-4T_- 516-1 - ------- - -- * RPT1-nASH 0377 5201 5203 6088 6090 6819----'-' 6821 R FC ORO- TYPE 0604 4627 4638 4696 5118 5138 5230 6081 RPTI-OATA 03-66 6115 431 RKf3P9-TYPr------- --0793-- 4696 5118 5138-5192--5230 RPTI-ERROR -0384 5179 S163 5187 5198 S219 6098 6195 6593 5222 RFPLIC-RfrrPO 0616 4606 5154 $ Ill RPTI-LINE-NBR 0380 5tg7 6086 5186 5218 FPLICATF-NU149FR .-.0618 -4652 4695 5137- 5229- 6083 RPTt-MES.SAGE 0382 5142 SIT8 5182 REPLICATE-NUMBER 0806 46q5 513T 5t94 5229 5669 All* 5221 5234 6070 601 6100 6275 6324 65q3 680 0 * RPTI-REC-TYPE 0370 5192 6081 1@31 _fkFP0QT-1-C-flL-HFAD-t -----0340 - - 6125 RPTt-REP-NOR 0314 5194 6083 e-9 REPOPTt-rOL -HFA02 0353 6t27 RPT I-SEQ-NBR 0372 5193 6082 70; P.EPOPTI-nETAIL-LINF 0368 6116 RPTI-SPEC[ES-COOF 0376 5195 6084 ill AFpnRTj-".EA0j 0320-6123 - RPTI-SPFCIfS-STATUS------O378 5196 6085-_ NM.100 10.43.12 APR 3*1984 DATA NAME REFERENCE LIST DATA NAME DEFN REFERENCES DATA NAME DEFN REFERENCES. 3 3 -6106-6108 SAVE- IND[ V-AG E--!STATUS - - -0219 -5844 -5645 61e6 6188--6503 RPT2-nETAIL-LINE2 0495 6141 6530 6535 6555 RPT2-ERR-MSG. 0492 46q4 5273 5277 5291 536? * 4 SAVE-INDIV-KEY 6749 6752 6163 -S407 54t3- * * SAVE- INDI V-LI NE --------0?60 6773 --5381 5390 5399 5482 5487 S497 5527 5532 * * SAVE-INDIV-LINE-R 026t 6775 5543 5548 5559 5577 55R6 lit* SAVE-INDIV-LTH 0207 6285 6477 6628 6631 5606 5617--5633 5640- * * SAVE- INDI V-SPAWN-MARK-------------0265 -S869 5647 5654 5665 56-r2 56qZ * * SAVE-INDIV-SPAWN-MARK-R 0266 5864 5866 l 2' 5702 5710 STt7 5722 5729 * * SAVE-NUM-RFPS 0195 6260 6306 6308 6320 15 i y 5135 S742 57SO 5784 5799 SAVE-NUM-SPECIES 0197 6263 6334 6336 6348 ! 5824 5828 5833 5848 5854 SAVE-NUM-SUBS AMPLES 0206 6271 6371 6374 6477 5871 5904 5968 51;76 6008 SAVE-REPLIC 0237 6230 6343 6345 6349 lei 6014 6011 6037 6046 6062 * 0 SAVE-REPLIC-KEY- -02 39 67?3 :71 6140 6222 6292 6313 6338 * * SAVE-SPE-NUMBR-TAGGEDI 0249 6426 6452 za 76 63q1 6428 6441 6454 * * SAVE-SPE-NUMBR-TAGGEDI-R 0250 6420 6421 6446 6447 !9 -6467 6524 6533 6563 6570, * * SAVE-SPE-NUMBR-TAGGE02- -------0 2 53 6439 6465 2, 6608 6620 66174 6632 6636 * * SAVE- SPE-NUMB R-TAGGE02-R 0254 6433 6434 6459 6460 20' 6645 * * SAVE-SPE-TAGI 0248 5946 5955 6421 6427 6447 :J' ___-RPT?-UI NE-N RR 6 10 3 6453 12L -SPE-TAG? 0252 5946 5955 6434 6440 6460 23' RPT?-REC-TVPF 0480 6098 SAVE 2. RPT2-REP-Nglk 0484 6100 6466 ____._____oIq9 6273 6288 629t 61 3 j------RPT2-SF0-NRA---- ---.0482 -.60qq SAVE-SPEC-CODE------ 06 6559 RPT2-.SPFCIES-CODE 0486 610t 6562 @l RPT2-SPECIES-STATUS 040R 6102 SAVE-SPECIES 6233 6383 6385 6392 6394 3! 27@ - -RPT3-t:-fNF-N8Q--------057-t ----6 8 t 6 6430 6443 6456 6469 6479-- 28. SAVE-SPECIES-KEY 0243 6739 29@ RPT3-REP-NBR 0565 6813 301 RPT3-SEO-NnR 0563 6R12 SAVE-TAG-Nn 021t 6284 R P T I - S P F C I r: '@- C f) 0 E------ 41567 68 14 SAVE-TAG-RECAPT 0276 6245 - SAVE-TAG-RECAPT-KEY 02?8 6756 6759 RPT3-,qPEC(FS-STATUS 0569 6815 RI-LINF-rNT 0112 5050 61t3 6118 6L29 SAVE-TAG-RECAPT-LINE 0280 6782 6785 R I - P A G F-C 4T- 01-11 SAVE-TAG-RECAPT-LINE-it- ---0281 --6787 - - d R1-RU0-'()ATF 0337 4964 6474 3 RI-PAGE-NO 0328 6122 SAVE-TAG@RECAPT-TAGI 0220 5946 $949 $952 6421 64,44, 0114 -6132 -61-37--614-3-6148--6159- SAVE-TAG-RECAPT-TAGI-CNYR--- 022t -.5950 59S3 6421 64 6438 6472 3 R2-PA(,F-CtIT ()113 6151 6152 25 6434 R2-PAGF.-NO 0438 615Z SAVE-TAG-RECAPT-TAG2 0222 5955 5958 5962 6447 6460 w ___ .. . . ---- -- - -6474 ioj--R,9-R11N-f)ATF- ------0447---45b4-------- R3-LIFIF-CNT 0116 6822 6027 6840 SAVF-TAG-RECAPT-TAG2-CNTR 0223 5960 5964 6447 6451 6460 :541 R3-PAGF-CNT 0115 6830 6831 6464 6472 Z-;--R1-PAGF-NG 0513 6831-- - -- SON-DATE-DIFF --------0216 -6019 6027 6029 R I- R1 IN- U TF 0522 4964 SON-ENVIR-DATE 0215 5995 6003 6019 6058 S A MP 1. r- F X CE En S-c nLL ECT ION 1456 54ql 0 SDN-RECAPT-DATE 0214 5992 6003 6010 6017 6019 i__5AMPLF-S1 -5495 ------- ---- -6033 6057 6058 6064- - --- -- SAMPLF-SIZE-EXC-COLLECTION 1498 5559 SEARCH-ENVIR-PROGRAM-TYPE 1354 4684 -WGT-FXCFEnS-TOTAL 1505 561? SEARCH-ENVIR-START-LOC 1355 4686 SAMPLE -ENVIR-STAT-NUK---- --t356 -4635 AVE-ANNULUS ---0269 -6242----- ----- SEARCH -F -PRELOAD-KEY 1351 4584 4585 4590 468? SAW .14VIR 0224 6?27 6315 6317 6321 SEARCH 5J SAVE-FNVIR-DATF-R 0232 5896 5q93 6007 6013 6061 All SEQ-FILLER 06tT. 469s 5t37 5229 -SAVE-f:NV1R-t(FY-- ---0226 -6716-- -- - --- SEO-FILLER ---0805 4695 5L37 5229 SAVE-IN01V 0257 5726 6239 6526 6536 6538 SEO-YR 0616 4695 5137 5229 6541 SEO-YR 0804 4695 5137 5229 5275 :7! s vE- ju n i V-AGE-R----- 0264 585t-'5852-- SEQUFNCE-NUMBER 0615 --46ZJ 4649 6082 175 IF NMIOO 10.43.12 APR 3vt944 DATA NAME REFERENCE LIST DATA NAME DEFN REFERENCES All DATA NAME DEFN REFERENCES 'a --6275 6296-- fQUFNC-F-NUM8FR--------0803 -5193-6099 6265 - 6210 - 6221--6614 6593 6812 SPECIES-CODE-0 0200 6560 SOOT-ACTICN 0094 4550 SPECIES-cnr)E-1-OR-2 0201. 6371 6566 -3 - 6521 6576 -4550--S104---------- -SPECIFS-CODE SORT-KEY 0096 4550 SPECIES-CODE-4-OR-7 0203 6289 6371 6388 6579 ;10 SORT-REC 0093 4645 4646 4665 4666 4680 SPECIES-CODE-5 0204 6560 ;111 5104 ---- -- SPECIES-CODE-6 0205 6586 --- 2? SnRT-TYPF 0095 4550 SPECIES-CODE3-6-CNT 1102 6622 @14 SPAWN-CONFLICT 1659 5871 SPECIES-DONT-MATCH 1471 6338 S P F - I N r) I V -F flR M A T-C- n 0 F 0 6 9 5 -5158 - - SPEC I ES-FOUND -.----0181 -5943 SPF-1k)DIV-FORMAT-CODE 1090 St'58 5669 6273 SPECIES-FOIJND-SW 0180 6235 6484 SPF-MBR-TAGGFD1 0697 477t 4773 5158 SPECIES-GROUP 0807 6360 6593 ii'----S PF -NAR-T AGCE 01- - - ---- I Oq2 --5158 -S629 S636------ SPECIES-GROUP-NOT-FOUNa-----t595 6222 :7t SPF-N9R-TAGGE0I-R 1093 5637 111 0 SPECIES-NUMUER 1408 4993 4995 5035 S PF-N BR -T Ar. GE D2 0699 4775 4777 5158. SPECIES-NUMBER-R 1409 5019 -----SPr7-NIIR-TArGrn?-----------IogS -5158 56-43 5650 SPECIES-RECORD 060? 4609 5t57 6081 SPECIES-STATUS 0621 4695 513? 5Z29 6085 20@ SPF-NBR-TAGGEr)?-R 1096 5651 SPF-SA'!P-WG1fTX 1503 5605 111 111 SPECIES-STATUS 0809 4695 5137 5196 5229 6tO2 5 AM PL E- CN T- --0683 ---4754--4756- 5158---- 68t5 - SPF-SAMPLF-CNT 1078 5159 STA-L-IX 3478 5427 5440 24' SPE-SAMPLE-C4T-R t079 552q 5534 5539 5550 55SS STA-2-1X 4373 5445 5458 5461 -5662 --STA-3-IX ------.4543 5453 5464 5467 SPE-SAIAPLE-NMBRX 1493 5555 START-LOC-ERROR 158t 5291 SPF-SAMPL E-WC HTX 1509 5615 All III START-LOC-0-TO-23 0910 528.7 __@---SPF-SAMPL E-WGT- 4758-4760 ---START-LOC-26-TO-40---------.-0908 -5287 SPE-SAMPLE-W:-,T 1081 5158 5570 START-LUCX 1579 5389 SPr.-SAMPLE-W-.T-CNVRT 1399 5573 55?4 5597 5605*5608 111 STAT-NMBRX IS77 5388 56 15 -- - STATI()N-FOUND-- 5427 54,45-S453 - 311 3,1 SPF-S11R-WrHTX 1501 5604 STATION-FOUND-SW Ot62 5369 5442 5460 5466 33 SPV-SUPISAMPLE-CNT 0689 4762 4764 5158 STATION-NOT-FOUND Ot63 S43L 5436 5449 3@ SPE-SuRSAMPLE-CNT---1084--5158--6271 - - III --STATION-t- 3478 5440 - 35 SPF-SuRSAMPLE-CNT-R 1085 5524 5534 5541 4 STATION-2 43?3 5458 5461 36 SPF-SIIBSAMPLF-WGT 0692 4T66 4768 5159 111 111 STATION-3 4543 5464 546T @_7 SPF-S,jp SAMPLE-WGT------- 1187 - -5158 5 579 -- --- --,STA TUS@N8R-ERR-----------I7I2 5750 - - - -- - 30 SPE-SIJBSAMPLE-WGT-CNVRT 1400 5582 5583 5597 5604 STRUC-EPR 0151 6767 SPE-TAG-TYP El 0696 5158 STRUC-ERR-RPT 0035 4962 5064 6824 6832 6833 ------SPr-fAr.-TYPEI--------- IoqI -5158 5626- 6836-6838 --- - SPE-TAG-TYPF2 0698 5158 STRUC-ERR-.SW 0150 6706 6719 6726 6742 6777 SPF-TAG-TYPE2 joq4 5158 5642 6783 6789 6795 6800 6807 i-,I---SPF-TnTAL-CNT------------067c) 4746-4749 5tS8------. III --STRUC-PRT-LINE------0088 -6624 6832-6833 6834 6836 SPE-TOT At,-CNT 1074 5158 6838 L sPF-TnTAL-CNT-R 1075 5545 5550 5557 SuB-SIZE-EXCE-EDS-SAMPLE 1479 5543 -SPE-Tf'T AL-NMBRX- ----1495 -555?-- SUB-WGT-EXCEEDS-SAMPLE----- L49? 5606 -- ---- SPE-TOTAL-WGT 0681 4750 4752 5158 SUBSAMPLES-DONT-MATCH 1530 6376 SPF-TOTAL-WGT 1076 5158 5588 111 TAB-ENVIR-PRELOAD-ENTRY 1377 4586 4687 4704 -S PF-TnT AL-WGT-C$4VR-T--- 1401 --55ql- 5592-5b08-S6t6---- TAB-ENVIR-PRELr)[email protected] SPE7TOTL-147,HTX 1511 5616 TAG-AND@@SPF-CN.T-ERRCIR 1679 6428 6441 6454 646@ TAG Ot74 5907 5914 5 SPFC-C,nF 1600 1,221 -MATCHED SPFC-S MP#.-tNBRX 1486 -5539 0 111 -TAG-MATCHEn-sw ---- 0173 S915 6044 SPrC-51,10SA4P-449F..X 14R4 $541 0 0 TAG-NBR-ERROR 1645 5741 5903 SPEC 1(!S-C(lf)E 062t) 469S 9137 5229 6004 111 0 TAOrNMBR-EgROR 1611 604� ii----SPFC 1 --4695 5137 5195 5229-6101----, 111 * TAG-NURBER 0 7 70 5167 ;ldi N4100 10.43. t 2 APR 3,1984 DATA NAME REFERENCE LIS! DATA NAME DFFN REFERENCES DATA NAME DEFN REFERENCES -5903 5411 5929 6041 .... ... 6215 6290 6314 6342 6302 6045 6390 6424 6437 6450 6463 TAG-NUMSER-ALPHAB 1180 5900 6523 6532 6534 6S61 6569 7@--TAry-N94BFR-DI G1 ----1182 59 00 6S82 6607 6615 6623 6630 T AG-NUM B FR_ RF P E AT ED 1667 6046 6635 6644 6719 6726 6742 TAC--NlJM8R-CNTR 0125 5906 5907 5911 5924 5928 6777 6783 6789 6795 6800 S9 2 9 6480 648Z---- TAG-NUM9R-EPRnR 1641 5T42 Sq04 UPO-PRT-LINE 0074 5052 50S4 5056 5056 5060 5062 6116 6123 6124 6125 T Ar,-nk-: s P E- ZE Rl@- F I EL 0 t689 6014 a T AG -R FC A P T- r)A T E -C ONFL I CT---l 69 T -6037 -- -- -6t2? - - - TAG-prCAPT-TAG-NU%!BR 1420 5q13 5929 6041 6488 UPDATE-RPT 0033 4962 5052 5054 50@6 505 e, TAG-PECAPTUPE@RECnRO 0612 4619 5166 5060 5062 5064 6116-.6t23 TAG-SlJBSr.R---- 59OT- 5912- 6041 -6480--6488- 6124 6125 6127 TAG-TYPE 0771 5167 VALID-ALPHA-GRIO 0920 5269 221 TAG-TYPF 1183 5167 5946 5949 5952 5955 VALIO-CHANGF-COOE 0603 5177 520T ;21 5959-5962 5967 - ---- -- -VAL 10-GEAR-FOR-PG14050---,-------0928 5294 VAL 10-GEAR-FOR-PGP4051 0929 5294 TAC,-TYPF-FRRnR 16T3 5969 2!: TAr,-TYPE-N3R-FRR 1583 5633 5640 5647 5654 VALID-GEAR-FtIR-PGM055 .0931 5294 _TAPGFT-ARFA------ --- 5503 5517 VAL 1O-GEAR-FOR-PGM060--------0933 5294 :21 TEST-FIFLn 1386 4714 4735 4136 4740 4741 VALID-GEAR-FOR-PGMIOO 0934 5294 4742 547t 9475 S50t 5502 VALID-GEAR-F()R-PGMt05 0936 5294 131! 5570-5579 5588 --- --VALlD-GEAR-F0R-PGMll0 -- ----:09 37 -'52 94 ,2 TEST-SOM 0127 6775 6776 6787 67A8 VALID-GEAR-Fr)R-PGM115 0938 5294 27: TR-ADD 0600 5127 5207 5217 VALID-GEAR-FOR-PGM120 0939 5294 TR-CHANGF------------0601 5181 5211 O-GEAR-FOR-PGM125-----------0942 5294 - TR-CONTROL 0613 5H5 5118 0 ViLD-GEAR-FOR-PGM126 0943 5294 TR-DATA 0626 4624 4635 6115 * VALID-GEAR-FOR-PGM130 0944 5294 T R - D E LC TE- 0 60 2 5195 -0 --VALID-GEAR-FOR-PGMISO ------094S 5294 TPANS-FILE 0030 4573 4600 * VALID-GEAR-FOR-PGMt6O 0949 5294 TRANS-REC 0060 4600 * VALID-GEAR-FOR-PGM170-180 0950 52q4 -4563 4699 4966 S085-5101-- * 0 VAL ID-GEAR-FOR-PGM1?5 @- ----09.S5 5107 51 5363 5369 537S * * VAL ID-GEAR-Fr)R-PGM300 0956 5294 5801 59 ol : 6112 6175 6196 - - VALID-GFAR-FOR-PGM320 0959 5294 6258 6307 6335-6370 6484--- VAL lD-GEAR7-FnR-PGM330--- 0960 5294 14C 6706 VALID-GEAR-FOR-PGM340 0962 52q4 TURN-ON 0107 46q? 4q65 4992 5004 S126 VALIO-GEAR-FOR-PGM350 5294 ---St33-5 134 5135 S188 5206 VAL 10-GEAR-FOR-PGM400----------096S 5294------------ 5223 5227 5228 5271 5276 VALID-GEAR-FOR-PGM410 0969 5294 5290 5362 5364 5379 5387 VALID-GEAR-FOR-PGM420 0973 5294 43-- 5397 5404 54tl 5431 5442- VALID-GEAR-FOR-PGM421-422--097S 5294 5460 5462 5466 5468 5480 VALIO-GEAR-FOR-PGM430-440 0976 5294 5485 5494 5529 5530 5538 VALID-GEAR-FOR-PGM431-441 0977 5294 ------5546 5554 5575 5584 5593- VALlD-GEAR-FnR-PGM432-442- 0978 -5294 5603 5614 5632 5639 5646 VALID-GEAR-FO'R-PGM433-443 0979 5294 62 5693 5664 567t 56ql 5701 VALID-GEAR-FOR-PGM434-444 0982 5294 5709 5716 5721 5728 5734- VALID-GFAR-FnR-PGM435-445----0984 52q4 5740 5749 5783 57q8 5819 VAL 10-GEAR-FOR-PGM436-446 0985 5294 58?3 5827 5832 5e4T 5H53 * * VALIO-GEAR-FOR-PG4437-447 5244 all. 171.1.11, - . 5869 5880 5995 5qO2 5q66 * * VALID-GEAR-FOP.-PGM438 09 87 5294 5974 600S 6011 6028 6035 * VALID-GEAR-FOR-PrM450 0989 5294 9 6043 6044 605 6073 6074 VALIF)-GEAR-FOR-PGM460 0990 5294 41 -6077 6078 6134 614S 6220 V&Llt)-GEAR-F()R-PGM470 0992 5294 ;74i ad 17@ P, N4130 10.43.12 APR 391984 DATA NAME REFERENCE LIST DATA NAME DEFN REFERENCES DATA NAME DEFN REFERENCES 883 S886 -VAL If)-GFAR-FOR-prm5oo -----0994---5294-- WK-SUB-2- 5802 5803 5809 5 VAtjn-Gr-AR-FGR-PGM5I0 0997 5294 WORK-CNT 0122 .5619 563? 5651 5662 5808 VALIn-GFAR-Fr)R-PrM530 1000 5294 58'30 5882 v--VALff)-GFAR-Fr)P-PGM540 5294-- WORK-LOCATION -------0121 5371, S380 S382 5432 5450---' vAtTn-GFAR-roR-PGM5@0 1002 5294 WRITE-NEWMStR 0141. 5077 VAL ID-GFAR-FOR-PC?46t0 1003 52q4 WRITF-NEWMSTR-SW 0140 4966 6018 6196 _V At I n-GF A Q-FnR -PGM6 15 1004 - 52 94 WRITE-RPTI 0139 5075 io 13 VALIn-GFAR-F0R-PGM6I8 1005 5294 WRITE-RPTI-SW 0138 4966 5L34 5228 6073 6112 ',4 VAt ID-GFA P.-Fr)R-PGM620 1006 S294 WS-CURR-ENVIR-KEY 0289 67t6 12 VALID - TY -GEAR-FnR-PGmf,30-------I0G? 52 94 WS-CURR-KEY ----------0286 6707 14 VAl_ID-GF4R-FrlR-PGM650 1008 52q4 WS-CURR-REPLIC-KEY 0288 6723 ;s VALI0-GFAP-r0R-PGM66!) 1009 5294 WS-CURR-SPECIES-KEY 0287 6739 6749 6752 6756 6759 Cl VAL I D-CEAR-FnR-PGM670--------IOtO 0 0 ------- - 6763 VALIn-GFAR-F0R-PGM.68O 1011 5294 YEAR-DOESNT-MATC" 1529 527? V AL I f)-GF A R- FDR - PC M6qO tf)12 5294 Z-ENVIR-DATE@ 1693 6013 VAI Ir)-GFAR-F0R-PGM?00 -----1013 5294-- Z-RECAPT-OATE- ------1695 6012 V4tj0-GF4R-FrlR-P(',M705 1015 5194 ZERC-00 1427 6053 605* 21@ VAL ID-GFAR-rnR-p(.'.m?jo 10t6 5294 ZERO-MM 1426 605L 6052 22 _--VAt in-GEAR-fr)R-PGMTI5-------I0t7 23 VALID-GEAR-FOR-PGP4720 I0t8 52q4 24 VAL In-GFAR-FOR-PGM725 1023 5294 A L In -GF -FnR-PGMTIO ---- 1024 _AR 52q4 VALID-GFAR-FqR-PGM735 5294 VALIn-GFAR-FGR-PGM740. 1026 5294 --VAtin-rFAR-F0P.-prm_?45 --1027 ': VAL I n-rFAR-F0R-prm_y5f) 1028 5294 30 VALIn-GEAR-F0R-PGM?')5 1029 52q4 VAL1D-GFAR_F0R-PGM76O---I030 5294 321 VALin-rEAQ-Fr)R-PGM765 1032 52q4 142 33 VALIr)-rFAR-FnR-PGM7?0 tn33 5294 3. VAL in-GEAR-Fr)R-PGM775 ----1034 5294 -- -- ---- VAL,D-r,,a,,-nF-7.ERll 0926 5293 5402 $409 VALin-GEAR-nF-99c) 0927 5293 0 .4 --VAL I n-NUk4ER--GP 9 --5269-- -------- WK-E-BnTTn!4-PRnF 1370 4723 WK-F-8- TTCPI-TYPE 1369 4721 --WK-E-nEPTH -----1371 - - ------ WK-E-DUQATION 1362 4707 WK-F-GEAR-PARMI 1364 4711 --WK-E-GFAR@PARM? 365 4713 4 WK- F-GF AR-P AR M3 1366 47tS WK-E-GEAP-TYPE 1363 4709 ---1367 --4717 pir, WK-E-STATE-ALTER 1372 4727 i7 WK-E-TYPF-OF-TOW 1169 4719 03, AS i.,-WK-Ff4VIP-PRFL-OAD-9F* --t359 4580-4584 4585--4590- - 501 WK -F NVI R-PR EL nik n- PEC 1359 4579 4586 4104 '11 WK-SUB OlIq 4629 4640 4657 4658 46TO S71 4671 4672 4673 55757 5758 5761 5762 5775 57?6 5778 * * 10 51ql 5793 5802 5810 5875 0 * 587R, 5893 . ................................. N4100 10.43.12 APR 391984 PROCEDURE NAME REFERENCE LIST PROCEDURE NAME DEFN REFERENCES PRnCEDURE NAME. OEFN REFERENCES 3 005-PRF-SMT-PROCESSING-------4560-- 4550------ -156-FIND-LAST-OIST-TO-Af4L 51374 --5758 15?-TFST-DISTANCE-INCREASE 5877 5810 0OFt-READ-N-t()An-E-NVIR-PRELCAO 4578 4567 009-INIT-RFST-ENVIR-PRELOAD 4596 456q IS8-EDtT-TAG-RECAPT-REC 5888 5263 71 4574-- - 15BA-DATE-ROUTINE 598t 5991 5994 6056 013-PRE-I'DIT-KEY 4648 4622 158B-COMPARF-DATES 5989 5899 n 14-PFL FASE-f)UP-ItIf)IV-RFC6 4655 4629 159C-SEARCH@-TAG-NUMBER-TABLE 6040 5907 015-PFLEASE-r)fJP-INf)IV-REC-T---4668---4640---------------- 0 t5RD-ADJUST-lERO-DATE--- -----6049 6Ot6 017-ENVIR-PRE-FDIT 4603 4604 * 160 -E QU AL -DEL ET E-TR AN S 6066 5214 14 019-PRELnAn-ENVIP-I)ATA 4703 468q * tIO-MASTER-LOW 6076 5123 -,3 019-REPtIC-PRE-EDIT-- -4729 4607--- * 17 7 - 8 U I L D- T R A N S -ER R OR 6080 5189 5224- 17 070 - SPEC I FS -P P 9:-F D I T 4745 4610 * 179-BUILD-lt4ASTER-ERROR 6094 4698 5274 5278 5292 5368 0 2 1 - I Nn I V-P Pr-FD I T 4780 4613 4659 4674 5382, 5391 5400 5408 5414 -072-AWIULt)S-P9.F-EDIT- 4798- 46 16 - - --- 5483 5488 5498 552: '5533 02.3-RFCAPT-PRF-Fr)IT 4939 4619 5544 5549 5560 557 5587 O24-pnST-snRT-PRnCFSSING 4945 4550 5596 5607 5618 5634 5641 -5648 5655 5666 567 :4 4957 4946---------------- 3 5693------;, 04n-RFAD-LATIN-TABLE 4974 4972 5703 5711 5716 5723 5730 25 04t-RFAD-TABLE 4995 4977 5736 5743 575t 5785 5600 7 ..5825 S829 5834 5649 5855----- ZiT 231 043-ARPANGF-START 5010 5008 5032 5872 5905 5969 5977 6009 044-APP AN11F-LOCIP 5014 5027 6015 6032 6038 6047 6063 2@ 04S-ARRAHGF-FNr)- -----------5029 5008 -5018----- 62n 6293 631@ 654@6 6386 --- f)46-Ai))-If tGI+-VALUES 5034 4982 6395 6431 6444 6457 6470 --OF-Jf)B 5037 4q5O 6S27 6539 6564 6572 6609 060-ENn 33 @100-MAfNf.INE 6621 6 62 5 6633 664 1 6646-- -,26 28t 37 1 1(3-R F AD- NIS TR 5080 5070 200-WRITE-�kPTI-UPO fil tt 5076 6092 III-REAL-RFAD 509? 5082 202-WRITE-RPTI-UPD-HEADING 6120 4968 5051 '6114 3.1 -DUMMY-P 5 0 A 4 -210-WRITE-RPT2-ERR - ---------6L3I 6409 112 120-REAO-TRANS 5ln3 5072 212-WRITE-RPT2-ERR-HEADING 6150 4565 6t33 t-30-MATC11-14STR-TO-TRANS 5110 5074 220-WRITE-NFWMSTR-REC 616t 5078 33i S I 16 225-EDI T-SPFC IES-GROUP-------6201 6184 A5 I 3;'-HtrII-A0f)-TItAlIS 5132 5 t'2 8 226-VALIr)-SPFC[ES-CODE 62tS 6213 46 133-!AOVF-nATA-BY-TYPF 51144 4697 5139 S231 0 2 27 -UNk4ATCH E r) -rS P EC I E S-GRCUP 6219 6210 -1 34-H I GH-C l4G-n;k-DPL-F-TF.-T-R AN S -5t76-- -5130 - - - - - -- -230-SAVE-MASTER-BY-TYPE-----6225 -6199 3 '135-RUTI-D-RPTI 5191 514t 5233 6072 * 240-RELATInNAL-EOITS 6253 6172 117-MA@TFR-FOUAL 5205 5121 * 242-TEST-ENVIR-BREAK 6295 6257 'z'l--t3R-EoIIAL@Af)f)-TRANS---------5216- 5209--- * 243-ENVIR-BREAK 6298 3q-FQIJAL-CI;ANGF-TRANS 5226 5212 * 244-TEST-REPLIC-BREAK 6323 6302 4 d 140-FnIT-Rn TINE 5236 6176 * 245-REPLIC-BREAK 6332 6305 6326 _14I-F0IT-FkIV1P-RFC * 246-TEST- SPECIE S-OR EAK 6351 6330 - ---- 142-Cntjf4T-fJIYl8@R-DFCIMALS 5416 5395 * 247-SPECIES-1.3RFAK 6368 6333 6362 44 143-SEARC14-FnP-STATION 5426 5395 2479-PAD-TAG-NOM9FR-TABLE 648? 6480 --144-',EAPCfi-TAS-1-FOR-STA-TION 5439-- 5427 249-TEST-INDIV-DREAK ------6491 6366 - -- ---- 47 145-17nUND-LOCATION-IN-TAB-2 5444 5435 249-INDIV-BREAK 6509 6369 650? 146-SFARCH-TAR-2-rnp.-STATION 5457 5445 249-SAVE-AGE-STATUS 6544 5725 6282 48 @4 ;---I 48-crARCH-TAB-3-FnR-STAT ION---- 5463 5453--------- 250-SPFCIES-CODE-CHECKS--@--6558 6283 - 14')-F'DIT-RrPl IC-PFC 5470 5243 251-Ef)[T-INDtV-SC-3 6592 6577 15CIA-EOIT-EXPLICIT-DECIMAL 5500 5473 547? 5572 5581 5590 252-E0lT-VJDlV-2ND-OCCUR 6627 66t2 I5on-FnIT-FWPt. C T-nFC MAL- 5r)08 5506-- --- - -- 254-EDIT-INDIV-SC-6 ----- -- 6643 6587 151-FI)IT-SPECTES-PEC 5523 52.48 258-STRUCTURAL-TEST 6705 6173 70 :4 153-FnIT-INDIV-REC 5676 5253 259A-VFRIOY-INt)IV-STRUC 6770 6751 72 I 55-F;l T-ANNUt IIS-REC - 5 75 6 5758 259fl-VERlFY-TAG-RFCAP-STRUC--- 6780 6758 10.43*12 APR 391984 PROCEDURE NAME REFERENCE LIST NMIOO PROCEDURE NAME nEFN REFERENCES 0 PROCEDURE NAME DEFN REFERENCES ?591C-VER IFY-1 Nn IV-L-INEI ------- 2S9.)-Ml SS TIJG- p4nlV-REC 6?911 6?6S 25qE-VERIFY-TAG-RECAP-LINE1 6804 6761 -260-WPI TF-R PT3-STPUC 6768 262-WRlTF-RPT3-STRlJC-HEA0lNG 6829 4970 6823 221 23i 24@ 27i 35 32' 4 33@ 4@5 30 3@1 W100 10.43. t2 APR 391984 UNUSED DATA NAME REFERENCE LIST DEFN DATA NAME DEFN DATA NAME OEFN DATA NAME 00109 ABENn-A 01115 CVT-ABORV-MONTH 00402 ENVIR-DATE-R 00594 ACTION-CODE 01336 CVT-ARBRV-PERIno 00901 ENVIR-00 CVT 3 --0I:43(V--AC-TInN-4FSSAfJES --------01340 -ABBRV-VEAR --00905 -ENVIR-00-R 01649 ENVIR-DURATION-ERR R -00729 APIL-ArF-R 01334 CVT-ALPHA-ABBRV 7 f) I S T 01344 CVT-ALPHA-DATE 00636 ENVIR-GRID 00766 ANL 11--00765 ;ANL--DBT-R------ ___01347 CVT-DAY-OF-THE-WEEK'- -01610 ENV IR-LOC-NOT-FOUND-R- 01176 ANL-n I S T-P 01346 CVT-DAYR ooqoO ENVIR-MM on734 NL -0 1 S TA NC FS 01290 CVT-JI.ILIANS 00904 ENVIR-MM-R 139-'-AllL@nIlTANCES----- ----101214 -CVT-JULIAN'l-DAY 011155 ENV I R-NON-lERO-GEAR-R 0073t ANt-LTH-Tn-FnGE-R 01291. CVT-JULIAN5-TS-ZERO OO8t8 ENVIR-STA-OATA 14 00733 ANL-14ARGIN-INCR-R 01293 CVT-JULIAN5-YEAR 00634 ENVIR-START-LOC-R 00903 ENVIR-YY-R 01132--ANNlR(JS-DATA--- CVT-JULIAN7 01413 ARPANGE-BLOCK Ot3OO CVT-JUl. I ANI-DAY 01548 ERR-MSG@DIF -ABBRV-rnmmA 012q7 CVT-J(JLIAN7-IS-ZERO 01543 ERR-MSG-TAG 01273 CNVT ,-,--0I272-'f'NVT-A89Rv-nAY--- ---------01299 CVT-JUL I AN7-- YEAR ERROR-MESSAGES 7 1271 CNVT-ABBRV-DAY-YEAR Ot3O2 CVT-MDY6 01467 GR I D-NOT-w- FORM ATTEO-R :.1 00721 INDIV-AGE-R .29 01276 CPjVT-AQ'A'lV-DAYR 01306 CVT-MDY6-DAY 2. i () 12 6 -9 -CN.VT-ABRPV-MONTH 01303 C VT-MDY6-1 S- ZERO-- OIS24 INDIV-LTH-DISCREP-R .1 01270 CflVT-AfllRV-PFR fOO 01305 CVT-N0Y6-HONTH 00704 INOZY-LTH-R 26 20@ 00723 INDIV-SPAWN-MARK-CNT-R 21 -MOY6-YFAR 01274 CNVT-Ari nR V-YEAR 01307 CVT 280 ---rNVT-[)AYR Cvy-mnyA 00717 INDIV-TAG-NBR-R- 01229 CNVT-JULIAN5-DAY Ot314 CVT-MDYS-DAY 01t19 INDIV-TAG-NMBR-ALPHAN 01225 CNVT-J9LfAN5-IS-ZERO 01310 CVT-mnyB-[S-ZERO 01117 INDIV-TAG-NMBR-R 31 '41 ,'!-01277 --CNVT-JIJLTAN5-YEAR-----------013t2 CYT-mnY8-Mn4TH 01099 INDIVIDUAL-DATA----- 2.; 1 01234 CNVT-JLJI.l AN7-nAY 0 13 16 CVT-MbYR-YEAR 00159 INVALID-GEAR 01231 r. NV T- JUL I A N7-1 S-ZER 0 01287 CVT-SDN 01568 INVALID-GEAR-MSGX 2 7. -"--Ol 2 3 1 ---- CNV T- Jf)L I AN7 -Y E AR- ------01288 CV T- SON- I S-Z ERO 0 15 t 5 INVALID-REC-FOR-CODE-R 240 r.NVT-t4'-)YS-nAY 01318 CVT-Y?AD6 01575 INVALID-STA-MSG7-R M 01237 CNVT-M[)Yt,-[S-IFRn 01323 CVT-YM06-DAY 01718 LAST-CONIROL 40 ,--'--012.39-C-NVT-t#)Y6-M(IOITH----------01319 CVT-YM06-1 S- ZERO- ----------0173 3 LAST-LINE-NBR-R 41 3,1 n1241 CNVT-Mny6-YEAR 01322 CVT-YM06-MnNTH 01730 LAST-SPECIES-CODE 42 33i Ot248 CNVT-flDyR-OAY 01321 CvT-Y,4n6-YEAR Ot731 LAST-SPECIES-STATUS '43 44 --f)1244-----CNVT-K_)Y8-IS-ZER0 --01325 CVT-YMOS LAST-TYPE-ANNULUS------------------ 01246 CNVT-K.)Y9-MONTH 011332 CVT-YMO,8-OAY Ot720 LAST-TYPE-FNVIR 01250 CNVT-M!y8-yFAR 0 326 CVT-YMD -IS-ZERO 01T23. LAST-TYPE-INDIV ids 15 CVT-YM08-Mf)NTH LAST-TYPE-REPLIC . .... . 01257 CNVT-Y'4F)!,-OAY 01328 rVT-YMD8-YFAR 01722 LAST-TYPE-SPECIES so:. 3 i 0 1293 CNVT-ymns-yS-?ERO .,00817 DATA-BY-RECnRO-TYPE Ot725 LAST-TYPE-TAG-RECAPT it --r-01256-'-CMVT-YmDh-Mn@ITH-------------01205 DATE-CNVRT-SUBR 01411 LATIN-NAME E 01255 CNVT-Ym!)'5-YFAR 01628 DATE-RECI-REC9- RR2 01403 LATIN-TABLE-ENTRIES 42 01266 CNVT-Y'108-r)AY 01149 DATFCALC-DIFF 034TI LCCATION-1 260--CNVT-Y4n9-1 S-ZERO- ------01221 OATECALC-SET-A 04372 LCCATION-2 4 01264 CNVT-YM).9-mnNTH 01296 DATECALC-SET-B 04542 LCCATION-3 01262 r?4VT-Y4')9-YFAR 0170T DIl%T-TRAVELED-ERR-R 00783 MAST-REC-FOR --01384- C-ONVFRT-nECIMAL-AREA ____.___O0I43 DUMMY-RD-ON 17 0 MISSI NG-D I STANCE-----------' '5 013n6 CONVFRTFO-nFCIf4AL-HOLO-ARFA 00302 DUP-TNDIV-ENTRY6 00147 NC-EDIT-ERRORS 013q3 COUUT-DrC IkIAL 00307 nup-INDIV-FNTRYT 01.6t? NrN-NUMERIC-GEAR-R r;nUNT-41NI T 0(1301 OUP-INDIV-PEC6-ENTRIES 00209 OCCURRENCE-CODE-6 013?9 CVT-ABIPV-COMMA 00306 DUP- INDI V-RE(,7-ENTRIES 00822 PROGRAM-001-10-999 f a,! 01338 CVT-AB3RV-nAy OOt46 EPIT-ERROR 00827 PROGRAM-799-TO-899 -A gal P V-nAY-VE DOW) EnIT-REJECT-ERROR- 01635 RECAPT-DAYS-OUT-ERR-R 0133 7---C VT 01342 C VT-A B3 PV-DAYR 0140? ENGLISH-NAMF RECAPT-DO 7cl S4 NM 100 10.43.12 APR 391984 UNUSED DATA NAME REFERENCE LIST DEFN@ DATA NAkIE DEFN DATA NAME DEFN DATA NAME 00619 SPECIES-GROUP 01191 ;tFCAPT-f)r)-R OIIA6 RECAPT-M4 01597 SPEC IES-GRnuP-NOT-FOUNf)-R 01-140-RUE-APT-MM-R-----------01749 STAT[ON-TABLE-1 51 01185 PFCAPT-YY 03473 STATInN-TABLE-1-R 01189 RrCAPT-YY-R 03483 STATInN-TABLE-2 --00614--RFCORn-KEY--------------04368 STATION-TABLE-2-R-- 00802 R FrrRD-KrY 04378 STATInN-TABLE-3 00815 RECnRO-KFY-ALPHA 04538 ST A T I V. N- TA BL E- 3-R OORI6--RFrDRD-KF@-" A -----01481 SUR- S I ZE- EXC EEDED-SAMPLE-ft '13 0623 RECORD-VEY-It 01499 SUP-WCHT-GT-SAMP-WGHT 1. 15 -P -DCNT-MATCH-R 12 n0814 RECORD-KEY 01532 SUOSAMPLES Of 06 4- FtFPLICATE-nATA- ----@---00131 SWITCH-FINDER Or)319 R F P rR T- I I NF S 00133 SWITCHES 15i 0042q RFPOPT-LINES2 01381 TAB-ENVIR-PRELOAO-DATA T,'__-OD5O4-REPnRT-LINFS1 TABLE-ENVIR-PRFLOAD 01452 RFPS-Dr)NT-MATCH-P 01681 TAG-AND-SPF-CNT-ERROR-R 00672 RP-COLLECT-SIZE-R 01420 TAG-INDEX '13 T A@-Nr,3R-Df SC REP 0 106 4 R P- Cn L L Er. T- S I I F-R 0 15 44 C0674 R P- SA Klt P- S I I E-R 01546 TAG-NBR-OISCREP-R 0106A RP-SAMPLF-SIZE-R 01539 TAG-NBR-LESS 27 2. 00 5 6 A-R PT I - DA S H 0 115 41 TAG-NBR-LESS-R ------ 015n7 SAMP-WGHT-GT-TOTAL OIt81 TAG-NUMBER-ALPHAN 21i 01499 SAMPLF-EXCFEnS-COLLE-CTION-R 01179 TAG-NUMBER-R '31 0149 0 S A M PL F- S I Z E-GT-COLE ECT-S I I Cr- - 0 t 669 TAG- NUMB ER-R EPEA TED-R- 00271 -NUMBR-ERR -3 S AV F- ANNL-K EY 01643 TAG -R ()0272 SAVE-A'1NL-I_fNF 01691 TAG-OR-SPE-ZERO-FIELD-IR L--@---On;174'---SAVF-A@l@IL-SPAWN-MARit-- -01699 TAG-RECAPT-DATE-CONFLIC T-R 00228 SAVE-EkiVIR-DATF Ot422 TAG-RECAPT-TAG-NUMBER 00?3t S AVE- FNVI R-nD 01419 TAG-RECAPT-TArNBR 3S" 00 3 5 S A V C-- F 4 V I R- D D- R 0 1177 TAG-RFCAPTURE-DATA AVE-E14VIR-44 01675 TAG-TYPE-ERROR-R 00?31) s @43 nn234 SAVE-ENVIR-M4-R 00706 TEMP-FILLER 3-1 00?79--5AVF-FNVfF.-YY -.,--00 186 -TOT-Cf)UNTERS 35i 00233 SAVF-ENVIR-YY-R 00727 TR-ANNULUS-DATA 00104 SAVE-FIEt.nS 0062? TR-ENVIR-STA-nATA 00 2 6 3 - S A V F- 114 n I Y - A G E ---0070t -TR-iNDIVIDIIAL-DATA 311 31 0074-5 SAVF.-SPF-SEQ-NMRR 00670 TR-REPLICATE-DATA 3. 00244 SAVE-SPECTES-KEY-R 00678 TR-SPECIFS-DATA 3 -1-00 2 8 "1 S AVE- TA G-R F C APT-TAGN9R--------O0769 TR-TAG-RECAPTURE-DATA 00624 SF0-N8R-THPu-SPrC-GRP 00588 TRANS-REC-FDR 01661 SPAWN-CONFLICT-R 01440 UPDATE-ERRnR-mESSAGES -SAMPLE-CNT-R ----014 35 UPDATE-MESSAGES _@3 --00684 S P F On6R7 SPF-SAmPLE-WGT-R 0021 -DIF 3 WK 44 PF-SAMPLF-WGT-R. 01361 wK-ENVIR-PRELOAD-DATA 45r - 0069O---SPF-SUP';A MPLE-CNT_R----O [425 ZERO-YY - 46 7 00693 SPF-'.;IJBSA4PLE-WGT-R 01 DAB SPF-SU9SAMPI.F-WGT-R 00680 ---SP;:-TOTAL-CNT-R 006R? SPF-TnTAL-WrT-P 01077 SPE-TnTAj.-WrT-R 31 ;;J of 073-_SPF(', I ES -D AT A 61473 SPECIFS-DONT-MATCH-R ilAl Nil A@QRV,