NHD editing tools

codeloop.aml
fixloop.aml
sfd.aml
showdis.aml
showdissconnects.aml

/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/*
/* Codeloop.aml
/* Date: 3/25/2002
/* Author: B.L. Brock
/* Div. of Biology, Kansas State University
/*
/* Description:
/* This program finds loops in National Hydrology Database (NHD) covers and flags
/* selected arcs for ommission when calculating stream orders.  The program finds loops,
/* adds them to a selected set, and then steps through each loop prompting the user to 
/* select the arc(s) for recoding.  All operations are done on a copy of the original
/* cover named
/* <cover>_E.  A new item is created in the <cover>_E.aat name CTYPE.  Arcs with CTYPE = 2 
/* are coded from ommission from stream order calculations.  CTYPE = 1 is the default.
/*
/* Requirements: This program uses a slightly modified version of sfd.aml written by 
/* J. Johnston available in the ESRI Arcscripts library.  sfd.aml must be present in the
/* ATOOL directory.  Note: if you obtain sfd.aml from the arcscripts library, you mus make
/* the following change:
/* Change line 32 (counting blank lines) of routine N from:
/*     &s .sf$currec = 1
/* To:
/*     &s .sf$currec = 0
/*
/* WARNING!!!  This program removes pseudonodes from all arcs in the cover.  Be sure to
/* check for, and repair all eyeball loops in the cover using loopfix.aml before running
/* this program.
/*
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* Fixloop.aml
/* Date: 3/22/2002
/* Author: B.L. Brock
/* Div. of Biology, Kansas State University

/* Description: Fixes eyeball loops in National Hydrology Database covers by deleting
/* a user selected arc creating an erroneous loop.

/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* showdisconnects.aml 
/* Date: 3/11/02
/* Author: Brent L. Brock
/* Div. of Biology, Kansas State University

/* Description: Selects arc segments that are not connected to another user defined arc 
/* network. Designed for identifying disconnected stream segments in the National 
/* Hydrography Database

/* Runs in arcedit
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*sfd.aml                                                    10/25/01
/*---------------------------------------------------GLOBAL VARIABLES
/*
/*   .sf$totrec Total record count
/*   .sf$endrec <Edit Cover># value of last record
/*   .sf$currec Current record index number
/*   .sf$getrec Search Record in read index loop. 
/*   .sf$qryrec Returned Value from Response window
/*   .sf$recidx Active Selection Index File
/*   .sf$selidx Open routine Selection Index File 
/*   .sf$savidx Save routine Selection Index File  
/*-----------------------------------------------------INPUT / OUTPUT
/*              Start with selected set of features
/*-----------------------------------------------------------ROUTINES
/*   F * Forward
/*   R * Reverse
/*   E * Enter
/*   O * Open
/*   S * Save
/*   M * Menu
/*   Q *** Quit
/*   N *** New
/*   Usage * Duh!
/*   OPEN/NEXT/CLOSE  *  File Read Structure
/*   Error * Bailout Routine
/*------------------------------------------------------------CREDITS
/* user: Geotopo Inc. 
/* programmer: J.Johnston
/*             510.763.2239 ext.15
/*--------------------------------------------------------------NOTES
/* This tool creates an index of selected features and allows the 
/* user to step through those features one by one for editing. 
/* All variables are active until sfd q is run!
/*_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_->