/* REXX *** */ PARSE ARG dsn 'NEWSTACK' /* set up a new stack */ mc = READDIR(dsn) /* example of call to READDIR */ SAY mc' members processed' /* members returned */ DO i = 1 to mc PULL mem ttr len alias data /* get an entry from stack */ IF alias = 1 then alias = 'ALIAS' /* an alias */ else alias = ' ' SAY LEFT(mem,8) ttr len alias /* report some info */ IF len > 0 then SAY data /* variable portion present */ END i 'DELSTACK' /* get rid of our new stack */ EXIT 0