Anonymous user
Table creation/Postal addresses: Difference between revisions
m
→{{header|REXX}}: removed superflous blanks. -- ~~~~
(Add Apache Derby) |
m (→{{header|REXX}}: removed superflous blanks. -- ~~~~) |
||
Line 375:
<br>In addition to "state", fields such as province, municipality, ward,
parish, country, etc) could be added without exclusion.
<lang rexx>/*REXX program to create/build/list a table of US postal addresses. */▼
▲/*REXX program to create/build/list a table of US postal addresses. */
/*┌────────────────────────────────────────────────────────────────────┐
│ Format of an entry in the USA address/city/state/zipcode structure.│
Line 436 ⟶ 435:
call @USA 'list'
exit
/*───────────────────────────────@USA subroutine────────────────────────*/
@USA: procedure expose @USA.; parse arg what,txt; arg ?; nn=@usa.0
Line 447 ⟶ 445:
end
return
/*───────────────────────────────@USA_tell subroutine-------------------*/
@USA_tell: _=value('@USA.'nn"."arg(1));
Line 463 ⟶ 460:
call @USA_tell '_zip'
say copies('-',40)
return</lang>
Output (data used is within the REXX program):
<pre style="height:40ex;overflow:scroll">
| |||