rpgle程序如何做帐票例子

KAKUSANN

如题：哪位有关于rpgle作帐票报表的例子，给共享一下。谢谢了
请说详细些，由于是新手。
1。如何画报表文件（PRTF），这个文件会建立了，但是不会写里面的内容。
2。如何编写打印报表程序

ztg2006

兄弟，我帮你顶一个，我也想学习一下，请高手指教。

KAKUSANN

老朱
   谢谢你啊

KAKUSANN

各位没有了解的吗
如果上面的两个文件都做成后，如何调用呢 如何能把帐票显示出来呢

huangxkst

回复 1# KAKUSANN


   假设prtf文件格式如下：
     
   prtf文件名：zppf
          R     head
                 内容
       R    minxi
                 变量字段
       R    foot
                 内容

rpgle 程序名：pgm1
          F..........
          FZPPF      O     E            PRINTER  USROPN OFLIND（25）
          ....................
          C*头信息
          c           OPEN   ZPPF
          C          WRITE   HEAD
          C*明细信息
          C          DOW     1=1
          .............
          C         WRITE   MINXI
          c   25    WRIET   FOOT
          c   25    eval      *in25='0'         
          C          ENDDO
          C*表尾
          c  n25    WRIET   FOOT
....................
          c           close   ZPPF

..其他的您自己在弄弄

KAKUSANN

楼上的回复

谢谢您，我已经写完这两个文件了，已经编译通过了，可是如何调用呢，看看这个结果是什么样的如何做呢

不是很明白还请指教！

huangxkst

回复 6# KAKUSANN


    当你将数据打印出来后，如果没有直接送到打印就就是用wrksplf查看打印结果！

KAKUSANN

可这个wrksplf下面什么内容都没有啊
我把我的程序发到这里，大家帮忙看下。
1。PRTF 文件
A               R HEAD                                         
A                                           SKIPB(002)         
A                                           SPACEA(001)        
A                 H10000        68O  O    83                  
A                                        163                  
A                                           'DATE'            
A                 H10001         6  0    170                  
A                                           TEXT('DAY')        
A                                           EDTWRD('  .  .  ')
A                 H10002         6  0    179                  
A                                           TEXT('TIME')      
A                                           EDTWRD('  :  :  ')
A                                        189                  
A                                           'PAGE-'            
A                 H10003         4  0    194                  
A                                           TEXT('PAGE NO.')   
A                                           EDTCDE(3)   

2。rpgle程序
FLSL_PRTF  O    E             PRINTER           
C                   eval      H10001=090101     
C                   eval      H10002=000000     
C                   WRITE     HEAD              
C                   return

KAKUSANN

上面的程序通过 CALL 命令调用后，
当数据打印出来后，如果没有直接送到打印就就是用wrksplf查看打印结果！
wrksplf 这个进入之后 用5打印也没有什么反应阿

KAKUSANN

上面的程序通过 CALL 命令调用后，
当数据打印出来后，如果没有直接送到打印就就是用wrksplf查看打印结果！ ...
KAKUSANN 发表于 2010-04-13 13:17

    说的好像不是很清楚，我现在的问题是：我不知道如何能把结果打印出来，用什么形式打印我也不清楚。
   查了一些资料说是用 wrksplf 这个命令查看结果，结果我用5进入后，出现了这样的提示：
   File LSL_PRTF_C number 9 cannot be displayed, copied, or sent.



也不知道什么原因.