求助：RPG有关屏幕文件（DSPF）的使用说明

ztg2006

最近刚开始学习AS400 RPG编程，在使用屏幕文件时总是不太理解，请问谁有这方面的经验。
RPG有关屏幕文件（DSPF）的使用说明

huangxkst

回复 1# ztg2006


    DSPF
:
A                                      DSPSIZ(24 80 *DS3)   
A                                      CA03(03 'EXIT')      
A          R D                                               
A            FLD001         1A  I  9 11                     
A                                  9  2' 输入项 '            
A                                      COLOR(PNK)            
A                                 21  2'F3=EXIT'            
A                                      COLOR(BLU)            


RPGLE
FLLL       CF   E             WORKSTN         
C     AGAIN         TAG                       
C                   EXFMT     D               
C                   IF        *IN03='1'      
C                   GOTO      ENDPGM         
C                   ENDIF                     
C                   GOTO      AGAIN           
C     ENDPGM        TAG                       
C                                             
C                                             
C                   EVAL      *inlr='1'      
自己看看然后琢磨琢磨！祝你成功

huangxkst

回复 1# ztg2006


这里有电子书！    http://bbs.chinaunix.net/thread-116366-1-1.html

ztg2006

回复 3# huangxkst


    电子书那个帖子我看过，但里面的链接都失效了。可能是时间太长了吧。{:2_166:}

huangxkst

回复 1# ztg2006


   请查看邮箱

ztg2006

...
A            FLD001         1A  I  9 11                     
A                                  9  2' 输入项 '            
A                                      COLOR(PNK)            
...
请问这三行怎么输入呀，尤其是怎么换行。谢谢！！！

ztg2006

上楼的问题已经解决，但是这个DSPF文件编译后出现错误（非代码错误）
错误信息如下：
Errors in DDS not allowed with specified GENLVL.
不明白为什么？

ztg2006

DSPF文件搞定，接下来RPGLE文件

FLLL       CF   E             WORKSTN         
C     AGAIN         TAG                       
C                   EXFMT     D               
C                   IF        *IN03='1'      
C                   GOTO      ENDPGM         
C                   ENDIF                     
C                   GOTO      AGAIN           
C     ENDPGM        TAG                       
C                                             
C                                             
C                   EVAL      *inlr='1'      

红色的地方不太懂
1，LLL是不是DSPF文件名呀？
2，*IN03='1' 是判断什么呀？
3，*inlr='1' 为什么要给INLR赋值呢？

ztg2006

回复 2# huangxkst


    我终于搞懂了，谢谢你！！！

huangxkst

回复 9# ztg2006


    恭喜您！有问题大家讨论！