各位大侠：请看一下subfile中这几行代码的含义！！！

wxn100

0007.70      A***********************************************************      
0007.80      A          R MSGRCD                    TEXT('MSG SFL RECORD')     
0007.90      A                                      SFL                        
0008.00      A                                      SFLMSGRCD(24)              
0008.10      A            MSGKEY                    SFLMSGKEY                  
0008.20      A            PGMID                     SFLPGMQ                    
0008.30      A*****************************************************************
0008.40      A          R MSGCTL                    TEXT('MSG SFL CONTROL')   
0008.50      A                                      SFLCTL(MSGRCD)            
0008.60      A                                      OVERLAY                    
0008.70      A  98                                                            
0008.80      AON98                                  SFLEND                     
0008.90      A                                      PUTOVR                     
0009.00      A                                      SFLDSP                     
0009.10      A                                      SFLINZ                     
0009.20      A                                      SFLSIZ(10)                 
0009.30      A                                      SFLPAG(1)                  
0009.40      A                                      SFLDSPCTL            
0009.50      A            PGMID                     SFLPGMQ               
        ****************** End of data ***********************************


各位高手，关于子文件，还有一些看不太懂，
1。麻烦哪位大侠把红字标注的地方解释一下；
2。这段代码的做用是？？？具体用法是什么呢？？？

谢谢！！！

代码来自“能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??  ”一文
http://bbs.chinaunix.net/viewthr ... &extra=page%3D1

pantierui

http://bbs.chinaunix.net/viewthr ... p;highlight=subfile
这里有本关于SUBFILE的书,有一章专门讲MESSAGE SUBFILE的.

Catal

SFLMSGRCD(24)
SFLMSGKEY
SFLPGMQ
显示子文件的关键字，从24行开始。
PUTOVR对记录中的字段的可以覆盖。再具体的查查手册。刚开始照葫芦画瓢吧。

wxn100

C           @DMSG     BEGSR                 
C*<< SFLINZ>>                              
C                     MOVEL'*'       PGMID
C                     MOVE '1'       *IN98  
C                     WRITEMSGCTL         
C                     MOVE '0'       *IN98
C*<< DISPLAY MESSAGE >>                     
C                     WRITEMSGCTL           
C*                                          
C                     ENDSR                 

另外在RPG程序中对PGMID赋“*”号也不是很明白是怎么回事。
请赐教！！！

李海隽

“*”告诉系统要使用这本程序的信息队列