Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement