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

Question

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

Answer 1

回复 9# ztg2006

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

Answer 2

回复 2# huangxkst

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

Answer 3

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赋值呢？

Answer 4

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

Answer 5

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

Answer 6

回复 1# ztg2006

   请查看邮箱

Answer 7

回复 3# huangxkst

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

Answer 8

回复 1# ztg2006

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

Answer 9

回复 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'      
自己看看然后琢磨琢磨！祝你成功