免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 能否讲下subfile的建立及在rpg中怎样应用，或能给个例子 ...
12下一页
最近访问板块 发新帖
查看: 3581 | 回复: 10
打印 上一主题 下一主题

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子?? [复制链接]

jxfnew

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2005-03-24 20:14 |只看该作者 |倒序浏览
能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??
  多谢!!!
xuguopeng

论坛徽章:
0
2楼 [报告]
发表于 2005-03-24 22:19 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??


  2. 0037.00 c***************************************************************
  3. 0038.00 c     SRMAIN        BEGSR                                       
  4. 0039.00 C                   EVAL      *IN88 = *on                       
  5. 0040.00 C                   WRITE     xp009C1                           
  6. 0041.00 C                   EVAL      *IN88 = *off                     
  7. 0042.00 c*                                                              
  8. 0043.00 c                   eval      #cstsr = 0                        
  9. 0044.00 c*                                                              
  10. 0045.00 C     *LOVAL        SETLL     CsTR                              
  11. 0046.00 C                   READ      CsTR                              
  12. 0047.00 C                   DOW       NOT %EOF(CsT)                     
  13. 0048.00 C                   EVAL      #Cstsr =  #Cstsr + 1              
  14. 0048.01 c                   eval      #opt = *blank                     
  15. 0049.00 C                   EVAL      #no = cscustno                    
  16. 0050.00 C                   EVAL      #name = cscustname               
  17. 0051.00 C                   EVAL      #crtdate = cscrtdate              
  18. 0052.00 c                   write     xp009s1                           
  19. 0053.00 c                   read      cstr                              
  20. 0054.00 c                   enddo                                       
  21. 0054.01 c*                                                              
  22. 0054.02 c                   if        #cstsr = 0                        
  23. 0054.03 c                   eval      #opt = *blank                     
  24. 0054.04 c                   eval      #no = *blank                     
  25. 0054.05 c                   eval      #name = *blank                    
  26. 0054.06 c                   eval      #crtdate = 0                                
  27. 0054.07 c                   write     xp009s1                                    
  28. 0054.08 c                   endif                                                
  29. 0054.09 c                   exsr      SRwrite                                    
  30. 0056.00 c                   eval      pcstsr = 1                                 
  31. 0057.00 c                   endsr                                                
  32. 0058
复制代码


  2.         *************** Beginning of data ****************************************
  3. 0000.10      A*%%TS  SD  20021029  102427  USER677     REL-V4R2M0  5769-PW1      
  4. 0000.20      A* PROGRAM...............XP007FM                                    
  5. 0000.30      A*CREATION BY...........XU GUOPENG                                   
  6. 0000.40      A***************************************************************     
  7. 0000.50      A*%%EC                                                               
  8. 0000.60      A                                      DSPSIZ(24 80 *DS3)            
  9. 0000.70      A                                      PRINT                        
  10. 0000.80      A                                      CA03(03 'Exit')               
  11. 0000.90      A                                      HELP                          
  12. 0001.00      A************************************************************        
  13. 0001.10      A          R XP009S1                   SFL                           
  14. 0001.20      A*%%TS  SD  20021013  082408  USER677     REL-V4R2M0  5769-PW1      
  15. 0001.30      A                                      SFLNXTCHG                     
  16. 0001.40      A            #CSTSR         4S 0H                                    
  17. 0001.50      A            #OPT           1A  B  9  3TEXT('OPTION')               
  18. 0001.60      A            #NO            8A  B  9  7TEXT('CUSTOMER NUMBER')      
  19. 0001.70      A            #NAME         50A  B  9 17TEXT('CUSTOMER NAME')         
  20. 0001.80      A            #CRTDATE       8Y 0B  9 70TEXT('CREATION DATE')         
  21. 0001.90      A                                      EDTWRD('0   /  /  ')         
  22. 0002.00      A************************************************************        
  23. 0002.10      A          R XP009C1                   SFLCTL(XP009S1)               
  24. 0002.20      A*%%TS  SD  20021027  151111  USER677     REL-V4R2M0  5769-PW1      
  25. 0002.30      A                                      SFLSIZ(0013)                  
  26. 0002.40      A                                      SFLPAG(0010)                        
  27. 0002.50      A                                      ROLLUP(51)                           
  28. 0002.60      A                                      ROLLDOWN(52)                        
  29. 0002.70      A N88                                  SFLDSP                              
  30. 0002.80      A N88                                  SFLDSPCTL                           
  31. 0002.90      A  88                                  SFLCLR                              
  32. 0003.00      A  98                                                                       
  33. 0003.10      AON98                                  SFLEND(*MORE)                        
  34. 0003.20      A                                      OVERLAY                              
  35. 0003.30      A            PCSTSR         4S 0H      SFLRCDNBR(CURSOR)                    
  36. 0003.40      A            CONAME        40A  O  2 15DSPATR(HI)                           
  37. 0003.50      A            WSID          10A  O  3  6COLOR(BLU)                           
  38. 0003.80      A                                  2 69DATE                                 
  39. 0003.90      A                                      EDTCDE(Y)                           
  40. 0004.00      A                                  3 69TIME                                 
  41. 0004.10      A                                  2 56USER                                 
  42. 0004.20      A                                  3 56SYSNAME                              
  43. 0004.30      A                                      COLOR(BLU)                           
  44. 0004.40      A                                  7  1'OPTION'                             
  45. 0004.50      A                                  7  9'CUSTOMER NUMBER'                    
  46. 0004.60      A                                  7 32'CUSTOMER NAME'                     
  47. 0004.70      A                                  7 68'CREATION DATE'                     
  48. 0004.80      A                                  5  2'1 = add one record  4 = delete the-
  49. 0004.90      A                                       record'                             
  50. 0005.00      A            ADDOPT         1A  B  8  3TEXT('ADD FOR OPT')      
  51. 0005.10      A            ADDNO          8A  B  8  7TEXT('ADD FOR NO')        
  52. 0005.20      A***********************************************************     
  53. 0005.30      A          R XP009M                                             
  54. 0005.40      A                                 23  1'F3 = EXIT'               
  55. 0005.50      A                                      COLOR(BLU)               
  56. 0005.60      A****************************************************************
  57. 0005.70      A          R XP009A                                             
  58. 0005.80      A*%%TS  SD  20021029  102427  USER677     REL-V4R2M0  5769-PW1   
  59. 0005.90      A                                      WINDOW(2 2 18 70)         
  60. 0006.00      A                                      OVERLAY                  
  61. 0006.10      A                                      CA12(12 'CANCEL PROGRAM')
  62. 0006.20      A                                  2 24'ADD RECORD FOR CSTR'     
  63. 0006.30      A                                      DSPATR(HI)               
  64. 0006.40      A                                  2 59DATE                     
  65. 0006.50      A                                      EDTCDE(Y)                 
  66. 0006.60      A                                  3 59TIME                     
  67. 0006.70      A                                  2  3SYSNAME                  
  68. 0006.71      A                                      COLOR(BLU)               
  69. 0006.80      A                                  3  3USER                     
  70. 0006.81      A                                      COLOR(BLU)               
  71. 0006.90      A                                  6  3'Customer Number'         
  72. 0007.00      A                                  8  3'Customer Name'           
  73. 0007.10      A                                 10  3'Creation Date'           
  74. 0007.20      A                                 16  3'Enter = Update'           
  75. 0007.21      A                                      COLOR(BLU)                 
  76. 0007.30      A                                 16 52'F12 = Cancel'            
  77. 0007.31      A                                      COLOR(BLU)                 
  78. 0007.40      A            #NO            8A  B  6 20TEXT('CUSTOMER NO')        
  79. 0007.50      A            #CRTDATE       8S 0B 10 20TEXT('CREAT DATE')         
  80. 0007.60      A            #NAME         50A  B  8 20TEXT('CUSTOMER NAME')      
  81. 0007.70      A***********************************************************      
  82. 0007.80      A          R MSGRCD                    TEXT('MSG SFL RECORD')     
  83. 0007.90      A                                      SFL                        
  84. 0008.00      A                                      SFLMSGRCD(24)              
  85. 0008.10      A            MSGKEY                    SFLMSGKEY                  
  86. 0008.20      A            PGMID                     SFLPGMQ                    
  87. 0008.30      A*****************************************************************
  88. 0008.40      A          R MSGCTL                    TEXT('MSG SFL CONTROL')   
  89. 0008.50      A                                      SFLCTL(MSGRCD)            
  90. 0008.60      A                                      OVERLAY                    
  91. 0008.70      A  98                                                            
  92. 0008.80      AON98                                  SFLEND                     
  93. 0008.90      A                                      PUTOVR                     
  94. 0009.00      A                                      SFLDSP                     
  95. 0009.10      A                                      SFLINZ                     
  96. 0009.20      A                                      SFLSIZ(10)                 
  97. 0009.30      A                                      SFLPAG(1)                  
  98. 0009.40      A                                      SFLDSPCTL            
  99. 0009.50      A            PGMID                     SFLPGMQ               
  100.         ****************** End of data ***********************************
  101.                                                                           
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
michael9406

论坛徽章:
0
3楼 [报告]
发表于 2005-03-24 22:52 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

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

论坛徽章:
0
4楼 [报告]
发表于 2005-03-24 22:56 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

那表的结构呢，能不能有注释啊，谢谢前辈，指点
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
USING_AS400

论坛徽章:
0
5楼 [报告]
发表于 2005-03-24 23:09 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

自己先输入试试，自己一边慢慢摸索，等你把这个搞懂了你会发觉自己收获比别人告诉你的大很多倍！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
michael9406

论坛徽章:
0
6楼 [报告]
发表于 2005-03-25 08:41 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

表的内容，你可以根据SOURCE CODE中出现的字段进行设置，主关键字是 customer number.
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
xuguopeng

论坛徽章:
0
7楼 [报告]
发表于 2005-03-25 11:58 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

[quote]原帖由 "michael9406"]好熟悉的代码。。。。忆起好多旧事。[/quote 发表：


是啊      至今我还保留着那些最原始的代码呢 很有纪念意义哦
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
mamei

论坛徽章:
0
8楼 [报告]
发表于 2005-03-25 12:24 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

[quote]原帖由 "xuguopeng"][/quote 发表：


感慨呀!

说白了，SUBFILE就是实现翻页功能!

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

论坛徽章:
0
9楼 [报告]
发表于 2005-03-25 13:15 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

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

论坛徽章:
0
10楼 [报告]
发表于 2005-03-25 13:50 |只看该作者

能否讲下subfile的建立及在rpg中怎样应用，或能给个例子??

原帖由 "mamei" 发表：


感慨呀!

说白了，SUBFILE就是实现翻页功能!

呵呵，不知这样说，正不正确!


是这样吗，呵呵！
我以前一直不明白。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP