關(guān)于CPYSPLF問題

wdz315

想把報表復(fù)制成PF然后發(fā)送到PC。

發(fā)現(xiàn)復(fù)制出來的報表里面的空行都沒有了，就像在綠屏下看的效果一樣，有什么好辦法解決么？

[ 本帖最后由 wdz315 于 2009-2-2 09:52 編輯 ]

franliu

回復(fù) 1# wdz315


可以這樣處理：
1）建一個比你的報告寬度寬5個字節(jié)的物理文件。如果你的報告示132列寬度，建一個137列寬的物理文件：
    CRTPF FILE(MY_LIB/W137) RCDLEN(137) IGCDTA(*YES)

2) 拷貝SPOOLFILE過去：
    CPYSPLF FILE(QSYSPRT) TOFILE(MY_LIB/W136) JOB(809059/FRLIU/FRLIU) CTLCHAR(*PRTCTL)      

讀文件，前5個字節(jié)是打印機控制信息，后132字節(jié)是原來SPOOLFILE的內(nèi)容。
    如果前三個字節(jié)是0XX, 那就是 SKIP TO 行號 XX,
      如果第四個字節(jié)是M, 那就是 SPACE M.

你寫個程序讀W136, 再跟據(jù)打印機控制字節(jié)插入空行，寫入新文件便可以實現(xiàn)你的要求了。

wdz315

回復(fù) 2# franliu


    謝謝啊。要是早看見回復(fù)我就能解決了�，F(xiàn)在用了其他的方法，這個問題已經(jīng)解決了。

ping222s

謝謝啊，學(xué)了一招。。