关于CPYSPLF问题

wdz315

想把报表复制成PF然后发送到PC。

发现复制出来的报表里面的空行都没有了，就像在绿屏下看的效果一样，有什么好办法解决么？

[ 本帖最后由 wdz315 于 2009-2-2 09:52 编辑 ]

franliu

回复 1# wdz315


可以这样处理：
1）建一个比你的报告宽度宽5个字节的物理文件。如果你的报告示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个字节是打印机控制信息，后132字节是原来SPOOLFILE的内容。
    如果前三个字节是0XX, 那就是 SKIP TO 行号 XX,
      如果第四个字节是M, 那就是 SPACE M.

你写个程序读W136, 再跟据打印机控制字节插入空行，写入新文件便可以实现你的要求了。

wdz315

回复 2# franliu


    谢谢啊。要是早看见回复我就能解决了。现在用了其他的方法，这个问题已经解决了。

ping222s

谢谢啊，学了一招。。