论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2012-04-22 22:41 |只看该作者 |倒序浏览

1*******************pf文件**************************************
A       R FMYPF
A          FLD001       5A
A          FLD002       20A
A       K FLD001
2******************dspf文件*******************************
A                                     DSPSIZ(24 80 *DS3)
A       R HEAD
A                               2  1DATE
A                                     EDTCDE(Y)
A                               2 34' 显示文件记录 '
A                               2 69TIME
A***********************************************************
A       R SUBF                   SFL
A          FLD001       5A  O  9 16
A          FLD002       20A  O  9 28
A***********************************************************
A       R SUBFC                   SFLCTL(SUBF)
A                                     SFLSIZ(9999)
A                                     SFLPAG(0010)
A  30                               SFLDSP
A  31                               SFLDSPCTL
A  32                               SFLCLR
A  33                               SFLEND(*MORE)
A                                     OVERLAY
A                                     CA12(12 'EXIT')
A                               7 15' 字段１ '
A                                     COLOR(WHT)
A                               7 27' 字段２ '
A                                     COLOR(RED)
A***********************************************************
A       R FOOT
A                                     OVERLAY
A                               24 11'F12= EXIT'
A                                     COLOR(BLU)
3*************************rpgle文件**************************************
FDSP_PF IF E          K DISK
FDSP_DSPF  CF E          WORKSTN SFILE(SUBF : RRN)
F
C    *IN12       DOWEQ    '0'
C                WRITE    HEAD
C                WRITE    FOOT
C                EXSR    CLRSFL
C                EXSR    REDRCD
C                ENDDO
C                SETOFF                                        80
C                READ    FMYPF                               80
C    *IN80       DOWEQ    '0'
C    FLD001       DSPLY
C*                READ    FMYPF                               80
C                ENDDO
C
C                SETON                                     LR
C                RETURN
C******************* CLRSFL ***************************************
C    CLRSFL       BEGSR
C                Z-ADD    0          RRN             4 0
C                MOVE    '1'          *IN31
C                MOVE    '1'          *IN32
C                MOVE    '0'          *IN33
C                WRITE    SUBFC
C                ENDSR
C******************* REDRCD *******************************
C    REDRCD       BEGSR
C    *LOVAL       SETLL    FMYPF
C                READ    FMYPF                               90
C                DOW    *IN90 = '0'
C                ADD    1          RRN
C                EVAL    FLD002='('+%TRIMR(FLD002)+')'
C                WRITE    SUBF
C                READ    FMYPF                               90
C                ENDDO
C
C                SETON                                     30
C                MOVE    '0'          *IN30
C    RRN          IFEQ    0
C                MOVEL    '1'          *IN30
C                ENDIF
C

C
C                MOVE    '1'          *IN30
C                MOVE    '0'          *IN31
C                EXFMT    SUBFC
C
C                ENDSR
C
C
****************** End of data ****************************************

文库|博客

las6688

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2012-04-22 22:47 |只看该作者

问题补充：编译都没问题，PF文件下有数据
但是call rpgle文件不显示数据，只显示界面D:\My Documents\My Pictures\界面.jpg

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

llfgod

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2012-04-23 09:52 |只看该作者

C    RRN          IFEQ    0
C                MOVEL    '1'          *IN30
C                ENDIF
C

C
C                MOVE    '1'          *IN30

*IN30 一直等于‘1’