請(qǐng)問如何消除4GL打印后的信息？

寒鈴

我用4GL寫的程序，執(zhí)行打印后，在屏幕上留下一行信息 request id is printer-num(standard input), 在程序中我用clear screen、display "" at row,1 等語句都無法清除該行信息，請(qǐng)問該如何做？
在程序中直接輸出到打印機(jī)，“start report fhzdy_list to printer”

如果輸出到文件該如何控制打��？

sdccf

lp file>;/dev/null

寒鈴

[quote]原帖由 "sdccf"]lp file>;/dev/null[/quote 發(fā)表：
     

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

寒鈴

各位大俠，以下是我寫的打印的程序，請(qǐng)幫忙看一下，什么地方有錯(cuò)誤，導(dǎo)致執(zhí)行打印后，在屏幕上留下一行信息 request id is printer-num(standard input), 在程序中我用clear screen、display "" at row,1 等語句都無法清除該行信息，請(qǐng)問該如何做？

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

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, "分 戶 帳 明 細(xì) ( 移植 )"
           skip 1 line
           print column 3, "單位:",
                 column 9, gr_hj.sm,
                 column 56, today,
                 column 110, pageno using "第 ## 頁"
           print "============================================================================================================================="
           print column 2, "帳  號(hào)",
                 column 12, "戶   名",
                 column 30, "開戶日期",
                 column 41, "股金證號(hào)",
                 column 53, "余  額",
                 column 65, "應(yīng)付股息",
                 column 76, "地址",
                 column 81, "類別",
                 column 88, "詳細(xì)地址",
                 column 110, "身份證號(hào)"
           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, "合計(jì):",
                 column 12, count(*) using "共##### 戶",
                 column 28, sum(ye) using "余額: #########.##元",
                 column 53, sum(gxzfe) using "應(yīng)付股息: ########.##元"      
   
end report

xiaoer20

start report fhzdy_list TO PIPE 'lpr -P printer'