/**/
parse arg aNum
if (aNum == '') then do
    say 'Usage: create_many_files.cmd <num>'
    say 'where <num> is the number of files to create int he current dir.'
    exit
end

do i = 1 to aNum
    fn = SysTempFileName("File_"i"_?????.txt")
    if (fn == '') then do
        say 'ERROR: SysTempFileName failed.'
        exit
    end
    str = 'what you are going to find here? '
    str = str || str || str
    call charout fn, left(str, random(33, 101))
    call charout fn
end