请问如何消除4GL打印后的信息？

寒铃

我用4GL写的程序，执行打印后，在屏幕上留下一行信息 request id is printer-num(standard input), 在程序中我用clear screen、display "" at row,1 等语句都无法清除该行信息，请问该如何做？
在程序中直接输出到打印机，“start report fhzdy_list to printer”

如果输出到文件该如何控制打印？

sdccf

lp file>;/dev/null

寒铃

[quote]原帖由 "sdccf"]lp file>;/dev/null[/quote 发表：
     

lp是在unix下的命令,那么在4gl程序中如何打印一个文件?

寒铃

各位大侠，以下是我写的打印的程序，请帮忙看一下，什么地方有错误，导致执行打印后，在屏幕上留下一行信息 request id is printer-num(standard input), 在程序中我用clear screen、display "" at row,1 等语句都无法清除该行信息，请问该如何做？

###################
#  打印                          #
###################

function fhz_dy_ks()

   define answer char(1)
   options prompt line 13
   options message line 13

   clear screen
   call ring_menu()
   display "" at 4,1
   display "分 户 帐 打 印" at 10, 32
   prompt "                         是否打印 (1:打印, 0:退出):"
       for char answer
   if answer = 1  then
       call fhz_dy()
   end if
end function


function fhz_dy()

   define pr_fhz record
      zh       like gj_fhz_yz.zh,
      hm       like gj_fhz_yz.hm,
      khrq     like gj_fhz_yz.khrq,
      gjzh     like gj_fhz_yz.gjzh,
      ye       decimal(11,2),
      gxzfe    decimal(10,2),
      dzh      like gj_fhz_yz.dzh,
      lbh      like gj_fhz_yz.lbh,
      czyh     like gj_fhz_yz.czyh,
      xxdz     like gj_fhz_yz.xxdz,
      sfz      like gj_fhz_yz.sfz
   end record
   
   select * into gr_hj.* from gj_hj

   start report fhzdy_list to printer
   foreach fhz_ptr into pr_fhz.zh,       pr_fhz.hm,
                        pr_fhz.khrq,     pr_fhz.gjzh,  pr_fhz.ye,
                        pr_fhz.gxzfe,    pr_fhz.dzh,
                        pr_fhz.lbh,      pr_fhz.czyh,
                        pr_fhz.xxdz,     pr_fhz.sfz
      output to report fhzdy_list ( pr_fhz.zh, pr_fhz.hm, pr_fhz.khrq,
                        pr_fhz.gjzh, pr_fhz.ye, pr_fhz.gxzfe, pr_fhz.dzh,
                        pr_fhz.lbh, pr_fhz.xxdz, pr_fhz.sfz)
   end foreach

   finish report fhzdy_list
end function


report fhzdy_list(zh, hm, khrq, gjzh, ye, gxzfe, dzh, lbh, xxdz, sfz)

   define  zh      char(,      
           hm      char(20),
           khrq    date,
           gjzh    char(6),
           ye      decimal(11,2),
           gxzfe   decimal(10,2),
           dzh     char(2),
           lbh     char(2),
           xxdz    char(20),
           sfz     char(1

   output
      left margin 2
      page length 64
      top of page "^L"

   format
      page header
           print column 50, "分 户 帐 明 细 ( 移植 )"
           skip 1 line
           print column 3, "单位:",
                 column 9, gr_hj.sm,
                 column 56, today,
                 column 110, pageno using "第 ## 页"
           print "============================================================================================================================="
           print column 2, "帐  号",
                 column 12, "户   名",
                 column 30, "开户日期",
                 column 41, "股金证号",
                 column 53, "余  额",
                 column 65, "应付股息",
                 column 76, "地址",
                 column 81, "类别",
                 column 88, "详细地址",
                 column 110, "身份证号"
           print "-----------------------------------------------------------------------------------------------------------------------------"
      page trailer
           print "============================================================================================================================="
      on every row
           print column 1, zh,
                 column 10, hm,
                 column 29, khrq,
                 column 42, gjzh,
                 column 49, ye,
                 column 52, gxzfe,
                 column 77, dzh,
                 column 82, lbh,
                 column 85, xxdz,
                 column 106, sfz
      on last row
           print "============================================================================================================================="
           print column 3, "合计:",
                 column 12, count(*) using "共##### 户",
                 column 28, sum(ye) using "余额: #########.##元",
                 column 53, sum(gxzfe) using "应付股息: ########.##元"      
   
end report

xiaoer20

start report fhzdy_list TO PIPE 'lpr -P printer'