parm entry_point = "main" # devcount.xeq - counts spool files by printer name # Tim Ericson - with inspriation from Andreas Schmidt if "!entry_point" = "main" file listspf1;temp;rec=-80,3,f,ascii listspf O@ > *listspf1 reset listspf1 file listspf2;temp echo input listspf1 > sortin echo output *listspf2 >> sortin echo key 1,2;41,8 >> sortin echo end >> sortin sort < sortin > $null reset listspf2 !hpfile notmain < listspf2 deletevar devc_@ purge listspf1,temp purge listspf2,temp purge sortin,temp else setvar devc_spf2_eof, finfo ( "listspf2", "eof" ) setvar devc_loop_num, 0 setvar devc_last_dev, " " setvar devc_num_files, 0 setvar devc_tot_files, 0 echo while devc_loop_num < devc_spf2_eof input devc_spf2_rec if lft ( devc_spf2_rec, 2 ) = "#O" setvar devc_this_dev, str ( devc_spf2_rec, 41, 8 ) if devc_this_dev <> devc_last_dev and & devc_last_dev <> " " echo !devc_last_dev : !devc_num_files setvar devc_num_files, 0 endif setvar devc_last_dev, devc_this_dev setvar devc_num_files, devc_num_files + 1 setvar devc_tot_files, devc_tot_files + 1 endif setvar devc_loop_num, devc_loop_num + 1 endwhile echo !devc_last_dev : !devc_num_files echo -------- ---- echo Total : !devc_tot_files echo endif