DSNAME = ' '; CALL ISPLINK ('LMDLIST ', ID,'LIST ',DSNAME,'YES '); OR
DSNAME = ' '; BUFFER = 'LMDLIST LISTID(&ID) OPTION(LIST) DATASET(DSNAME) STATS(YES)';
CALL ISPEXEC (BUFLEN, BUFFER);