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.
Comments