免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12
最近访问板块 发新帖
楼主: KAKUSANN

rpgle程序如何做帐票例子 [复制链接]

论坛徽章:
1
操作系统版块每日发帖之星
日期:2015-08-03 06:20:00
发表于 2010-04-15 13:15 |显示全部楼层
楼主 发给我消息了刚刚看到 提供个人一段代码 可以借鉴下,IBM的 pdf中很多例子的

FXX03      IF   E           K DISK                              
FXX41      IF   E           K DISK                              
FTC_SH_PRT O    E             PRINTER OFLIND(*IN90) USROPN      
F*BOT001PRT O    E             PRINTER OFLIND(*IN8 USROPN     
FBOT001TP  O  A E           K DISK                              
C*                                                              
C     *ENTRY        PLIST                                       
C                   PARM                    LIBL             10
C*                                                              
C                   SELECT                                      
C     LIBL          WHENEQ    'SH'                              
C                   OPEN      TC_SH_PRT                        
C                   OTHER                                       
C*                  OPEN      BOT001PRT                        
C                   ENDSL                                       
C*                                                              
C                   MOVE      *BLANKS       HEAD               
C                   MOVE      LIBL          HEAD               
C                   SELECT                                      
C     LIBL          WHENEQ    'SH'                                    
C                   WRITE     TITILE_SH                                
C                   OTHER                                             
C*                  WRITE     TITILE                                   
C                   ENDSL                                             
C*                                                                     
C     *LOVAL        SETLL     XX03                                    
C                   READ      XX03                                   99
C     *IN99         DOWEQ     *OFF                                    
C     TRANUM        SETLL     XX41                                    
C     TRANUM        READE     XX41                                   98
C                   SETOFF                                       50   
C     *IN98         DOWEQ     *OFF                                    
C* J01+                                                               
C     PRCFLG        IFNE      'RVS'                                    
C     PRCFLG        ANDNE     'RSE'                                    
C* J01+                                                               
C                   SELECT                                             
C     LIBL          WHENEQ    'SH'                                    
C                   WRITE     HEDA01_SH                             
C                   OTHER                                          
C*                  WRITE     HEDA01                                
C                   ENDSL                                          
C* J02+                                                            
C                   WRITE     RBOT001TP                             
C* J01+                                                            
C                   ENDIF                                          
C*                                                                  
C                   SETON                                        50
C     TRANUM        READE     XX41                                   98
C                   ENDDO                                               
C                   READ      XX03                                   99
C                   ENDDO                                               
C*                                                                     
C                   SELECT                                             
C     LIBL          WHENEQ    'SH'                                      
C                   CLOSE     TC_SH_PRT                                 
C                   OTHER                                               
C*                  CLOSE     BOT001PRT                                 
C                   ENDSL                                            
C*                                                                  
C                   SETON                             LR

论坛徽章:
1
操作系统版块每日发帖之星
日期:2015-08-03 06:20:00
发表于 2010-04-15 13:17 |显示全部楼层
PRINT FILE  TC_SH_PRT 定义如下

     A          R TITILE_SH                                                     
     A                                      SPACEB(001)                        
     A            HEAD          10O       10                                    
     A                                    +3'TC STS:     '                     
     A                                      SPACEA(003)                        
     A          R HEDA01_SH                                                     
     A                                      SPACEB(001)                        
     A N50        DAT       R        O     7                                    
     A                                      REFFLD(XX03REC/DAT HZTDB01/XX03)   
     A N50        LOCTYP    R        O    +2                                    
     A                                      REFFLD(XX03REC/LOCTYP HZTDB01/XX03)
     A N50        LOC       R        O    +2                                    
     A                                      REFFLD(XX03REC/LOC HZTDB01/XX03)   
     A            MNEPRCSTA R        O    +2                                    
     A                                      REFFLD(XX03REC/MNEPRCSTA HZTDB01/XX-
     A                                      03)                                 
     A            TARPRCAPP R        O    +2                                    
     A                                      REFFLD(XX41REC/TARPRCAPP HZTDB01/XX-
     A                                      41)                       
     A            TARPRCFUN R        O    +2                                    
     A                                      REFFLD(XX41REC/TARPRCFUN HZTDB01/XX-
     A                                      41)                                 
     A            TARPRCTIM R        O    +2                                    
     A                                      REFFLD(XX41REC/UPDTIM    HZTDB01/XX-
     A                                      41)                                 
     A            INAFLG    R        O    +2                                    
     A                                      REFFLD(XX41REC/INAFLG    HZTDB01/XX-
     A                                      41)                                 
     A            PRCFLG    R        O    +2                                    
      A                                      REFFLD(XX41REC/PRCFLG    HZTDB01/XX-
      A                                      41)
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP