SUBROUTINE BUILD.LIST(ITEMS)
****
*
* Item last updated: 09:09:24 20 FEB 1987 MIS.SNA.PROG.ATM <D4.3>DEVEL 2
*
*  This program will build a list of "recordnames" from @SENTENCE and
* the default SELECT list, and will return it as a dynamic array in
* RECORDNAMES.
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
*         20JAN87  MCLAUGHLIN INITIAL CODING
*
****

     TRUE        = 1
     FALSE       = 0
     OTHERS      = TRUE

     ITEMS = FIELD(TRIM(@SENTENCE),' ',2,LEN(@SENTENCE))

     CONVERT ' ' TO @FM IN ITEMS

     DONE = FALSE
     LOOP
        READNEXT ITEM ELSE
           DONE = TRUE
        END
     UNTIL DONE
        ITEMS<-1> = ITEM
     REPEAT

     LOWER.CASE = 'abcdefghijklmnopqrstuvwxyz'
     UPPER.CASE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
     CONVERT LOWER.CASE TO UPPER.CASE IN ITEMS

     RETURN
  END