免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 大家帮忙来找茬（到底RPG程序错在哪？）
123下一页
最近访问板块 发新帖
查看: 4552 | 回复: 28
打印 上一主题 下一主题

大家帮忙来找茬（到底RPG程序错在哪？） [复制链接]

fairyboy

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2004-04-27 11:13 |只看该作者 |倒序浏览
  1. 下图是维护程序主档文件的DDS。
  2.           *************** Beginning of data *************************************
  3. 0001.00      A* CUSTOMER MASTER FILE--CUSTSTR                                   
  4. 0002.00      A          R CSTMST                                                
  5. 0003.00      A            CUST#          5S 0             TEXT（’CUSTOMER NUMBER‘）                     
  6. 0004.00      A            CSTNAM        20                TEXT（’CUSTOMER NAME’）           
  7. 0005.00      A            CSTAD1        20                TEXT（’CUSTOMER ADDRESS‘）                     
  8. 0006.00      A            CSTAD2        20                TEXT（’CUSTOMER ADDRESS’）                     
  9. 0007.00      A            CSTCTY        20                TEXT（’CUSTOMER CITY‘）                     
  10. 0008.00      A            CSTSTE         2                TEXT（’CUSTOMER STATE’）                     
  11. 0009.00      A            CSTZIP         5S 0             TEXT（’CUSTOMER ZIP CODE‘）                     
  12. 0010.00      A          K CUST#                                                
  13.         ****************** End of data ****************************************   

  15. 下图是客户主档文件查询的显示设备文件的DDS。
  16. SEU==>;                                                                  CSTENT
  17. FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
  18.         *************** Beginning of data *************************************
  19. 0001.00      A                                      REF(CUSTMSTR)               
  20. 0002.00      A                                      CHGINPDFT(CS)               
  21. 0003.00      A                                      PRINT(QSYSPRT)              
  22. 0004.00      A                                      INDARA                     
  23. 0005.00      A          R HDRSCN                                                
  24. 0006.00      A                                      TEXT('PROMPT FOR CUST NUMBE
  25. 0007.00      A                                      CA03(03 'END OF INQUIRY')   
  26. 0008.00      A                                      CA05(05 'ADD MODE')         
  27. 0009.00      A                                      CA06(06 'UPDATE MODE')      
  28. 0010.00      A                                      CA07(07 'DELETE MODE')      
  29. 0011.00      A                                      CA08(08 'DISPLAY MODE')     
  30. 0012.00      A            MODE           8A  O  1 40DSPATR(HI)                  
  31. 0013.00      A                                  1 13'MODE'                     
  32. 0014.00      A                                      DSPATR(HI)                  
  33. 0015.00      A                                  2  4TIME                        
  34. 0016.00      A                                      DSPATR(HI)                  
  35. 0017.00      A                                  2 28'CUSTOMER FILE MAIN'        
  36. 0018.00      A                                      DSPATR(RI)                  
  37. 0019.00      A                                  2 70DATE                        
  38. 0020.00      A                                      EDTCDE(Y) DSPATR(HI)        
  39. 0021.00      A            CUST#     R     Y  I 10 25DSPATR(CS)                  
  40. 0022.00      A                                      CHECK(RZ)                  
  41. 0023.00      A  51                                  ERRMSG('CUSTOMER ON FILE' 5
  42. 0024.00      A  52                                  ERRMSG('NOT ONFILE' 52)     
  43. 0025.00      A                                 10 33'<--ENTER CUSTOMER NUMBER'  
  44. 0026.00      A                                      DSPATR(HI)                  
  45. 0027.00      A                                 23  4'F3 END JOB'               
  46. 0028.00      A                                 23 21'F5 ADD'                    
  47. 0029.00      A                                 23 34'F6 UPDATE'                 
  48. 0030.00      A                                 23 50'F7 DELETE'                 
  49. 0031.00      A                                 23 66'F8 DISPLAY'               
  50. 0032.00      A          R CSTINQ                    TEXT('DISPLAY CUST INFO')   
  51. 0033.00      A                                      CA12(12 'PREVIOUS SCREEN')  
  52. 0034.00      A*                                                               
  53. 0035.00      A            MODE           8   O  1  4DSPATR(HI)  
  54. 0036.00      A                                  1 13'MODE'                     
  55. 0037.00      A                                      DSPATR(HI)                 
  56. 0038.00      A                                  2  4TIME                       
  57. 0039.00      A                                      DSPATR(HI)                 
  58. 0040.00      A                                  2 28'CUSTOMER FILE MAINTENANCE'
  59. 0041.00      A                                      DSPATR(HI RI)              
  60. 0042.00      A                                  2 70DATE EDTCDE(Y) DSPATR(HI)  
  61. 0043.00      A                                  4 14'CUSTOMER'                 
  62. 0044.00      A                                      DSPATR(HI UL)              
  63. 0045.00      A            CUST#     R        O  4 25DSPATR(HI)                 
  64. 0046.00      A            CSTNAM    R        B  6 25DSPATR(CS)                 
  65. 0047.00      A  04                                  DSPATR(PR)                 
  66. 0048.00      A            CSTAD1    R        B  7 25DSPATR(CS)                 
  67. 0049.00      A  04                                  DSPATR(PR)                 
  68. 0050.00      A            CSTAD2    R        B  8 25DSPATR(CS)                 
  69. 0051.00      A  04                                  DSPATR(PR)                 
  70. 0052.00      A            CSTCTY    R        B  9 25DSPATR(CS)                 
  71. 0053.00      A  04                                  DSPATR(PR)                                                                              
  72. 0054.00      A            CSTSTE    R        B 10 25DSPATR(CS)                 
  73. 0055.00      A  04                                  DSPATR(PR)                 
  74. 0056.00      A            CSTZIP    R        B 10 40DSPATR(CS)                 
  75. 0056.01                                             EDTCDE(Z)                  
  76. 0057.00      A  04                                  DSPATR(PR)                 
  77. 0057.01      A                                 23  2'F12 CANCEL'               
  78. 0057.02      A            MODE1          8   O 23 20                           
  79. 0058.00      A          R CSTBLD                    TEXT('ADD CUST RECORD')   
  80. 0059.00      A                                      CA12(12 'PREVIOUS SCREEN')
  81. 0060.00      A            MODE           8   O  1 40DSPATR(HI)                 
  82. 0061.00      A                                  1 13'MODE' DSPATR(HI)         
  83. 0062.00      A                                  2  4TIME DSPATR(HI)            
  84. 0063.00      A                                  2 28'CUSTOMER FILE MAINTENANCE'
  85. 0064.00      A                                      DSPATR(HI)                 
  86. 0065.00      A                                  2 70DATE EDTCDE(Y) DSPATR(HI)  
  87. 0066.00      A                                  4 14'CUSTOMER:' DSPATR(HI UL)  
  88. 0067.00      A            CUST#     R        O  4 25DSPATR(HI)                 
  89. 0068.00      A                                  6 20'NAME' DSPATR(HI)
  90. 0069.00      A            CSTNAM    R        I  6 25                           
  91. 0070.00      A                                  7 17'ADDRESS' DSPATR(HI)        
  92. 0071.00      A            CSTAD1    R        I  7 25                           
  93. 0072.00      A                                  8 17'ADDRESS' DSPATR(HI)        
  94. 0073.00      A            CSTAD2    R        I  8 25                           
  95. 0074.00      A                                  9 20'CITY' DSPATR(HI)           
  96. 0075.00      A            CSTCTY    R        I  9 25                           
  97. 0076.00      A                                 10 19'STATE' DSPATR(HI)         
  98. 0077.00      A            CSTSTE    R        I 10 25                           
  99. 0078.00      A                                 10 36'ZIP' DSPATR(HI)            
  100. 0079.00      A            CSTZIP    R        I 10 40                           
  101. 0080.00      A                                 23  2'CANCEL ADDITION'           
  102.         ****************** End of data ****************************************
  103.                                                                                                                                                                
  104. 这个显示文件的DDS包含3种记录格式：HDRSCN 和CSTINQ 和 CSTBLD。HDRSCN记录格式提示客户和处理方式，CSTINQ记录被用于更新，删除和显示方式。

  106. 下面这个程序维护客户主档文件，具有增加，修改和删除功能，也可以用这个程序进行查询，
  107.   该程序首先设置处理的缺省（显示）方式，且显示客户维护提示屏，工作站可以按功能键3，请求终止作业，否则，用户输入客户号且按ENTER，用户可以通过功能键 5增加   6更新   7删除  8显示。
  108. 为了增加新记录到文件中，程序使用客户号做搜索变元检索主档文件，如果该记录在文件中不存在，程序显示CSTBLD屏幕，允许用户输入一新客户记录。如果该记录已在文件中，则显示错误信息，用户可以按功能键12（它把指示符12为ON）取消增加操作且释放该记录。否则，用户输入新客户信息到输入域且写到主档文件中。
  109.   为更新、删除、或显示一条现存记录，程序用客户号作为搜索变元检索主档文件。如果该客户记录存在于文件中，程序显示客户文件查询屏幕CSTINQ，如果记录不在文件，则显示一个错误信息，如果处理方式是显示或是删除，则输入域是写保护的，否则，用户可输入新信息到输入域中，更新客户记录，用户可按功能键12，它设置指示符12为ON，来取消更新或删除操作，且释放该记录。
  110.                                                                                 
  111.         *************** Beginning of data ***********************************
  112. 0001.00      FCUSTMSTRUF  E           K        DISK                  A        
  113. 0002.00      FCSTENT  CF  E                    WORKSTN                       
  114. 0003.00      C           CSTKEY    KLIST                                    
  115. 0004.00      C                     KFLD           CUST#                     
  116. 0005.00      C                     MOVE 'DISPLAY' MODE                       
  117. 0006.00      C                     EXFMTHDRSCN                              
  118. 0007.00      C           *IN03     DOWEQ'0'                                 
  119. 0008.00      C                     EXSR SETMOD                              
  120. 0009.00      C           CUST#     IFNE *ZERO                                
  121. 0010.00      C           MODE      CASEQ'ADD'     ADDSUB                     
  122. 0011.00      C           MODE      CASEQ'UPDATE'  UPDSUB                     
  123. 0012.00      C           MODE      CASEQ'DELETE'  DELSUB                     
  124. 0013.00      C           MODE      CASEQ'DISPLAY' INQSUB                     
  125. 0014.00      C                     END                                       
  126. 0015.00      C                     END                                       
  127. 0016.00      C                     EXFMTHDRSCN                              
  128. 0017.00      C                     END     
  129. 0018.00      C                     MOVE '1'       *INLR                    
  130. 0019.00      C           ADDSUB    BEGSR                                   
  131. 0020.00      C           CSTKEY    CHAINCSTMST               50            
  132. 0021.00      C           *IN50     IFEQ '0'                                
  133. 0022.00      C                     MOVE '1'       *IN51                    
  134. 0023.00      C                     ELSE                                    
  135. 0024.00      C                     MOVE '0'       *IN51                    
  136. 0025.00      C                     MOVE *BLANK    CSTNAM                  
  137. 0026.00      C                     MOVE *BLANK    CSTAD1                  
  138. 0027.00      C                     MOVE *BLANK    CSTAD2                  
  139. 0028.00      C                     MOVE *BLANK    CSTCTY                  
  140. 0029.00      C                     MOVE *BLANK    CSTSTE                  
  141. 0030.00      C                     MOVE *BLANK    CSTZIP                  
  142. 0031.00      C                     EXFMTCSTBLD                             
  143. 0032.00      C           *IN12     IFEQ '0'                                
  144. 0033.00      C                     WRITECSTMST                             
  145. 0034.00      C                     END                                    
  146. 0035.00      C                     END                                          
  147. 0036.00      C                     ENDSR                                       
  148. 0037.00      C**************************************************                                                                                
  149. 0038.00      C           UPDSUB    BEGSR                                
  150. 0039.00      C                     MOVE '0'       *IN04                 
  151. 0040.00      C           CSTKEY    CHAINCSTMST               52         
  152. 0041.00      C           *IN52     IFEQ '0'                             
  153. 0042.00      C                     EXFMTCSTINQ                          
  154. 0043.00      C           *IN12     IFEQ '0'                             
  155. 0044.00      C                     UPDATCSTMST                          
  156. 0045.00      C                     ELSE                                 
  157. 0046.00      C                     EXCPTRLS                             
  158. 0047.00      C                     END                                 
  159. 0048.00      C                     END                                 
  160. 0049.00      C                     ENDSR                                
  161. 0050.00      C*************************************************         
  162. 0051.00      C           DELSUB    BEGSR                                
  163. 0052.00      C                     MOVE '1'       *IN04                 
  164. 0053.00      C           CSTKEY    CHAINCSTMST               52
  165. 0054.00      C           *IN52     IFEQ '0'                           
  166. 0055.00      C                     EXFMTCSTINQ                        
  167. 0056.00      C           *IN12     IFEQ '0'                           
  168. 0057.00      C                     DELETCSTMST                        
  169. 0058.00      C                     ELSE                                
  170. 0059.00      C                     EXCPTRLS                           
  171. 0060.00      C                     END                                 
  172. 0061.00      C                     END                                 
  173. 0062.00      C                     ENDSR                              
  174. 0063.00      C***************************************************      
  175. 0064.00      C           INQSUB    BEGSR                              
  176. 0065.00      C                     MOVE '1'       *IN04               
  177. 0066.00      C           CSTKEY    CHAINCSTMST               52        
  178. 0067.00      C           *IN52     IFEQ '0'                           
  179. 0068.00      C                     EXFMTCSTINQ                        
  180. 0069.00      C                     EXCPTRLS                           
  181. 0070.00      C                     END                                 
  182. 0071.00      C                     ENDSR  
  183.   0072.00      C**************************************************   
  184. 0073.00      C           SETMOD    BEGSR                           
  185. 0074.00      C           *IN05     IFEQ '1'                        
  186. 0075.00      C                     MOVE 'ADD     'MODE            
  187. 0076.00      C                     MOVE MODE      MODE1            
  188. 0077.00      C                     ELSE                           
  189. 0078.00      C           *IN06     IFEQ '1'                        
  190. 0079.00      C                     MOVE 'UPDATE  'MODE            
  191. 0080.00      C                     MOVE MODE      MODE1            
  192. 0081.00      C           *IN07     IFEQ '1'                        
  193. 0082.00      C                     MOVE 'DELETE  'MODE            
  194. 0083.00      C                     MOVE MODE      MODE1            
  195. 0084.00      C           *IN08     IFEQ '1'                        
  196. 0085.00      C                     MOVE 'DISPLAY' MODE            
  197. 0086.00      C                     MOVE MODE      MODE1            
  198. 0087.00      C                     ELSE                           
  199. 0088.00      C                     END                             
  200. 0089.00      C                     END                                          
  201. 0090.00      C                     END                                          
  202. 0091.00      C                     END                                          
  203. 0092.00      C                     ENDSR                                       
  204. 0093.00      OCSTMST  E                RLS                                      
  205.         ****************** End of data ****************************************
复制代码
fairyboy

论坛徽章:
0
2楼 [报告]
发表于 2004-04-27 11:16 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

以上的程序的功能
F3 END JOB
F5 ADD
F6 UPDATE 可以正常使用

但是F7 和  F8 功能 无法使用

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

论坛徽章:
0
3楼 [报告]
发表于 2004-04-27 11:26 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

这是程序开进去时的画面，此时可以显示DISPLAY MODE 但是 没有DISPLAY 的功能  ，只要你转换到ADD 或UPDATE 显示画面后 ，就无法再转回DISPLAY显示画面。
注意：DELETE画面无法显示。


  1. DISPLAY MODE                                                               
  2.   11:36:37 CUSTOMER FILEMAINTENANCE   04/27/04
  3.                                                                               

  5.                                                                               
  6.                              <--ENTER CUSTOMER NUMBER                       
  7.    
  8.                                                                               
  9.                                                                               
  10.                                                                               
  11.    F3 END JOB      F5 ADD     F6 UPDATE     F7 DELETE    F8 DISPLAY
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
fairyboy

论坛徽章:
0
4楼 [报告]
发表于 2004-04-27 11:29 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

这个是简单的RPG样本程序，有啥看不懂的地方我可以说给大家听。
希望大虾参与讲解给大家学习知识。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yoyoage

论坛徽章:
0
5楼 [报告]
发表于 2004-04-27 14:06 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

check ur 'SETMOD'  subroutine.
make the use of 'if /else/end' relation clear.
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
fairyboy

论坛徽章:
0
6楼 [报告]
发表于 2004-04-28 08:15 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

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

论坛徽章:
0
7楼 [报告]
发表于 2004-04-28 12:47 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

这个小程序我以前玩过。本身就很简单了。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
michael9406

论坛徽章:
0
8楼 [报告]
发表于 2004-04-28 12:57 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

0010.00      A                                      CA07(07 'DELETE MODE')      
0011.00      A                                      CA08(08 'DISPLAY MODE')      

change to:

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

论坛徽章:
0
9楼 [报告]
发表于 2004-04-28 13:11 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

只要在80和81行 之间插入ELSE
          83和84行 之间插入ELSE
就可以了。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
红像

论坛徽章:
0
10楼 [报告]
发表于 2004-04-28 13:51 |只看该作者

大家帮忙来找茬（到底RPG程序错在哪？）

原帖由 "michael9406" 发表：
0010.00      A                                      CA07(07 'DELETE MODE')      
0011.00      A                                      CA08(08 'DISPLAY MODE')      

change to:

0010.00      A     ..........


PS:

  2. Command function
  3.     A record containing changed fields is returned to the program.
  4. Command attention
  5.     A record is returned to the program but the record does not contain the data entered by the user and no field validation is performed.
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP