| 001 | &data ARC INFO |
| 002 | ARC |
| 003 | /* |
| 004 | /* Do some housekeeping. Reused tables, must be |
| 005 | /* empty |
| 006 | /* |
| 007 | SELECT PSUBSET |
| 008 | PURGE |
| 009 | Y |
| 010 | SELECT SUMCTWT |
| 011 | PURGE |
| 012 | Y |
| 013 | /* |
| 014 | /* End of housekeeping |
| 015 | /* |
| 016 | SELECT MANYPOTS |
| 017 | RESELECT PERIOD CN [quote %.value1%] |
| 018 | RELATE PSUBSET BY ID_NO WITH APPEND |
| 019 | CALC $1CNT = $1CNT + CNT |
| 020 | CALC $1WGHT = $1WGHT + WGHT |
| 021 | RUN TOTES |
| 022 | Q STOP |
| 023 | &end |
INFORESEL AML