set device to file &rlist ln = 0 c1 = 10 @ ln, c1 say 'GATE PASS WISE CIRCLE SALES REPORT' ln = ln+2 @ ln, 10 say 'DATE:' @ ln, 16 say f_date1 @ ln, 30 say 'CIRCLE:' @ ln, 38 say cir ln = ln+2 c1 = 0 @ ln, c1 say "-" c1 = c1+1 @ ln, c1 say replicate("-", 06) c1 = c1+6 for b = 2 to j if ar2(1,b)<>9999 @ ln, c1 say "-" @ ln, c1+1 say replicate("-", 06) c1 = c1+7 endif endforPlease help