Table creation/Postal addresses: Difference between revisions

<br>Practically no error checking (for invalid fields, etc.) has been coded.

<br>The fields are for the most part, USA specific, but could be expanded

for other countries.

<br>In addition to "state", fields such as province, municipality, ward,

parish, country, etc) could be added without exclusion.

<br>A logging facility is included which tracks who (by userID) did what update (or change), along with a timestamp.

╔═════════════════════════════════════════════════════════════════════════════════╗

╟───── Format of an entry in the USA address/city/state/zip code structure: ──────╢

║ ║

║ The "structure" name can be any legal variable name, but here the name will be ║

║ shortened to make these comments (and program) easier to read; its name will ║

║ be @USA (in any letter case). In addition, the following variable names ║

║ (stemmed array tails) will need to be kept uninitialized (that is, not used ║

║ for any variable name). To that end, each of these variable names will have an ║

║ underscore in the beginning of each name. Other possibilities are to have a ║

║ trailing underscore (or both leading and trailing), or some other special eye─ ║

║ catching character such as: ! @ # $ ? ║

║ ║

║ Any field not specified will have a value of "null" (which has a length of 0). ║

║ ║

║ Any field can contain any number of characters, this can be limited by the ║

║ restrictions imposed by the standards or the USA legal definitions. ║

║ Any number of fields could be added (with testing for invalid fields). ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.0 the number of entries in the @USA stemmed array. ║

║ ║

║ nnn is some positive integer of any length (no leading zeroes). ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._name is the name of person, business, or a lot description. ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._addr is the 1st street address ║

║ @USA.nnn._addr2 is the 2nd street address ║

║ @USA.nnn._addr3 is the 3rd street address ║

║ @USA.nnn._addrNN ··· (any number, but in sequential order) . ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._state is the USA postal code for the state, territory, etc. ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._city is the official city name, it may include any character. ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._zip is the USA postal zip code (five or ten digit format). ║

╟─────────────────────────────────────────────────────────────────────────────────╢

║ @USA.nnn._upHist is the update history (who, date, and timestamp). ║

╚═════════════════════════════════════════════════════════════════════════════════╝

@usa.=; @usa.0=0 /*initialize stemmed array & 1st value.*/

@usa.0=@usa.0+1 /*bump the unique number for usage. */

call USA '_city' , 'Boston'

call USA '_state' , 'MA'

call USA '_addr' , "51 Franklin Street"

call USA '_name' , "FSF Inc."

call USA '_zip' , '02110-1301'

@usa.0=@usa.0+1 /*bump the unique number for usage. */

call USA '_city' , 'Washington'

call USA '_state' , 'DC'

call USA '_addr' , "The Oval Office"

call USA '_addr2' , "1600 Pennsylvania Avenue NW"

call USA '_name' , "The White House"

call USA '_zip' , 20500

call USA 'list'

exit /*stick a fork in it, we're all done. */

list: call tell '_name'

call tell '_addr'

do j=2 until $==''; call tell "_addr"j; end /*j*/

call tell '_city'

call tell '_state'

call tell '_zip'

say copies('─', 40)

tell: $=value('@USA.'#"."arg(1));if $\='' then say right(translate(arg(1),,'_'),6) "──►" $

return

/*──────────────────────────────────────────────────────────────────────────────────────*/

USA: procedure expose @USA.; parse arg what,txt; arg ?; @='@USA.'

if ?=='LIST' then do #=1 for @usa.0; call list; end /*#*/

else do

call value @ || @usa.0 || . || what , txt

call value @ || @usa.0 || . || 'upHist', userid() date() time()

end

return</lang>

'''output''' &nbsp; (data used is within the REXX program):

name ──► FSF Inc.

addr ──► 51 Franklin Street

city ──► Boston

state ──► MA

zip ──► 02110-1301

────────────────────────────────────────

name ──► The White House

addr ──► The Oval Office

addr2 ──► 1600 Pennsylvania Avenue NW

city ──► Washington

state ──► DC

zip ──► 20500

────────────────────────────────────────