DEF VAR v-i AS INTEGER.
   DEF VAR v-nam_pgm_lst AS CHARACTER.
   DEF VAR v-nam_pgm AS CHARACTER.
   v-i = 2.
   DO WHILE PROGRAM-NAME(v-i) <> ?:
      v-nam_pgm = ENTRY(NUM-ENTRIES(PROGRAM-NAME(v-i),' '),PROGRAM-NAME(v-i),' ').

      IF LOOKUP(v-nam_pgm,v-nam_pgm_lst) = 0
      THEN DO:
         IF v-nam_pgm_lst = ''
         THEN v-nam_pgm_lst = v-nam_pgm.
         ELSE v-nam_pgm_lst = v-nam_pgm + ',' + v-nam_pgm_lst.
      END. /* IF LOOKUP(v-nam_pgm,v-nam_pgm_lst) = 0 */
      v-i = v-i + 1.
   END. /* DO WHILE PROGRAM-NAME(v-i) <> ?: */

   MESSAGE "pgm list" + v-nam_pgm_lst
      VIEW-AS ALERT-BOX INFO BUTTONS OK.