Table creation/Postal addresses: Difference between revisions
Content added Content deleted
m (→SQLite3) |
m (→{{header|REXX}}: changed indentation, comments. -- ~~~~) |
||
| Line 523: | Line 523: | ||
│ @USA.nnn._upHist = update History (who, date and timestamp). │ |
│ @USA.nnn._upHist = update History (who, date and timestamp). │ |
||
└────────────────────────────────────────────────────────────────────┘*/ |
└────────────────────────────────────────────────────────────────────┘*/ |
||
@USA.= |
@USA.=; @USA.0=0 |
||
@usa.0=@usa.0+1 /*bump the unique number for use.*/ |
@usa.0=@usa.0+1 /*bump the unique number for use.*/ |
||
| Line 539: | Line 539: | ||
call @USA '_name',"The White House" |
call @USA '_name',"The White House" |
||
call @USA '_zip',20500 |
call @USA '_zip',20500 |
||
call @USA 'list' |
call @USA 'list' |
||
exit /*stick a fork in it, we're done.*/ |
|||
exit |
|||
/*───────────────────────────────@USA subroutine────────────────────────*/ |
/*───────────────────────────────@USA subroutine────────────────────────*/ |
||
@USA: procedure expose @USA.; parse arg what,txt; arg ?; nn=@usa.0 |
@USA: procedure expose @USA.; parse arg what,txt; arg ?; nn=@usa.0 |
||
| Line 548: | Line 547: | ||
call value '@USA.'nn".upHist",userid() date() time() |
call value '@USA.'nn".upHist",userid() date() time() |
||
end |
end |
||
else do nn=1 for @usa.0 |
else do nn=1 for @usa.0 |
||
call @USA_list |
call @USA_list |
||
end |
end /*nn*/ |
||
return |
return |
||
/*───────────────────────────────@USA_tell |
/*───────────────────────────────@USA_tell subroutine───────────────────*/ |
||
@USA_tell: _=value('@USA.'nn"."arg(1)); |
@USA_tell: _=value('@USA.'nn"."arg(1)); |
||
if _\=='' then say right(translate(arg(1),,'_'),6) " |
if _\=='' then say right(translate(arg(1),,'_'),6) "──►" _ |
||
return |
return |
||
/*───────────────────────────────@USA_list |
/*───────────────────────────────@USA_list subroutine───────────────────*/ |
||
@USA_list: |
@USA_list: call @USA_tell '_name' |
||
call @USA_tell ' |
call @USA_tell '_addr' |
||
do j=2 until _=='' |
|||
| ⚫ | |||
| ⚫ | |||
do j=2 until _=='' |
|||
end /*j*/ |
|||
| ⚫ | |||
| ⚫ | |||
end |
|||
call @USA_tell ' |
call @USA_tell '_state' |
||
call @USA_tell ' |
call @USA_tell '_zip' |
||
| ⚫ | |||
call @USA_tell '_zip' |
|||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
──────────────────────────────────────── |
|||
| ⚫ | |||
name ──► The White House |
|||
---------------------------------------- |
|||
addr ──► The Oval Office |
|||
| ⚫ | |||
addr ==> The Oval Office |
|||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
| ⚫ | |||
──────────────────────────────────────── |
|||
| ⚫ | |||
---------------------------------------- |
|||
</pre> |
</pre> |
||