On Nov 2, 2007 9:27 AM, Kris Buelens <[EMAIL PROTECTED]> wrote:

> If LISTDIR wouldn't exist, you should not have tried to use FILELIST, but
> something simple like
>    'LISTDIR' dirid '(LIFO NOSUB'
>    parse pull fm .
>    if fm='-' then do
>       call CSL 'DMSGETFM rc rs fm2list'
>       'ACCESS' dirid fm2list
>   end
>   else fm2list=fm
>    ... LISTFILE .... fm2list '(ALLFILE ....'
>   if fm2list<>fm then 'RELEASE' fm2list

Which is why I suggested Q FILEATTR since that is an easy CMS command
that does not require the directory to be accessed (and I am grateful
CMS Pipelines let me grow up without having to know about CSL calls
;-)

Rob

Reply via email to