Chinaunix

标题: 谁有好点的subfile教程 [打印本页]
作者: magic_007    时间: 2005-08-01 15:16
标题: 谁有好点的subfile教程
谁有好点的subfile教程
作者: nhxingliang    时间: 2005-08-01 15:25
标题: 谁有好点的subfile教程
我也想要！！！


我的邮箱nhxingliang@126.COM
作者: nhxingliang    时间: 2005-08-01 15:27
标题: 谁有好点的subfile教程
我也想要！！！


我的邮箱nhxingliang@126.COM
作者: fairyboy    时间: 2005-08-01 15:54
标题: 谁有好点的subfile教程
偶有，不给
作者: 快乐狗    时间: 2005-08-01 16:18
标题: 谁有好点的subfile教程
我也想要哦
作者: majorz    时间: 2005-08-01 17:25
标题: 谁有好点的subfile教程
[quote]原帖由 "fairyboy"]偶有，不给[/quote 发表：


快拿出來,交'槍'不殺!
作者: fairyboy    时间: 2005-08-01 20:13
标题: 谁有好点的subfile教程
看个样本程序，自己再写一个，不就OK了
作者: wildfish    时间: 2005-08-01 20:40
标题: 谁有好点的subfile教程
来人啊，拉出去tjjtds
作者: mamei    时间: 2005-08-01 22:57
标题: 谁有好点的subfile教程
我有个比较好的样板,是我自己写的,看起来很清楚的,适合初学者学习!!!

可惜在这里贴,会乱的!!!

大家想个办法!!
作者: 快乐狗    时间: 2005-08-02 07:53
标题: 谁有好点的subfile教程
弄个图形放上来嘛，就不会乱了
作者: babyggyy    时间: 2005-08-02 08:49
标题: 谁有好点的subfile教程
TT
作者: fairyboy    时间: 2005-08-02 08:50
标题: 谁有好点的subfile教程
原帖由 "mamei" 发表：
我有个比较好的样板,是我自己写的,看起来很清楚的,适合初学者学习!!!

可惜在这里贴,会乱的!!!

大家想个办法!!



来人啊，拉出去tjjtds
作者: mamei    时间: 2005-08-02 13:19
标题: 谁有好点的subfile教程
楼上的：TJJTDS是乜意思？？？
作者: fairyboy    时间: 2005-08-02 21:43
标题: 谁有好点的subfile教程
1：最简单的SUBFILE的应用。
2：带窗口的SUBFILE的应用。
3：指定光标位置显示相应的SUBFILE的应用。
4：3种翻页方式显示多画面的SUBFILE的应用。
我这边有样本代码，附每条语句的详细解释和相应的RPG代码相结合。
就是不给，TJJTDS也不给~~~~
作者: fairyboy    时间: 2005-08-02 21:46
标题: 谁有好点的subfile教程

  2. *************** Beginning of data *************************************
  3.      A                                                 DSPSIZ(24 80 *DS3)         
  4.      A          R HEAD                                                
  5.      A                                           2   1DATE                       
  6.      A                                                  EDTCDE(Y)                  
  7.      A                                           2 69TIME                       
  8.      A                                           2 34'显示文件记录'           
  9.      A*****************************************************************
  10.      A          R SUBF                             SFL                        
  11.      A             FLD001         5A  O  9 16
  12.      A             FLD002       20A  O  9 28                     
  13.      A*****************************************************************
  14.      A          R SUBFC                           SFLCTL(SUBF)               
  15.      A                                                  SFLSIZ(9999)               
  16.      A                                                  SFLPAG(0010)               
  17.      A  30                                            SFLDSP                     
  18.      A  31                                            SFLDSPCTL                  
  19.      A  32                                            SFLCLR                     
  20.      A  33                                            SFLEND(*MORE)              
  21.      A                                                  OVERLAY                    
  22.      A                                                  CA12(12 'EXIT')            
  23.      A                                           7 15'字段1'                 
  24.      A                                                  COLOR(WHT)                 
  25.      A                                           7 27'字段2'                 
  26.      A                                                  COLOR(WHT)                 
  27.      A*****************************************************************
  28.      A          R FOOT                                                
  29.      A                                                  OVERLAY                    
  30.      A                                         24 11'F12=EXIT'                 
  31.      A                                                  COLOR(BLU)                 
  32. ****************** End of data ****************************************
复制代码
作者: fairyboy    时间: 2005-08-02 21:46
标题: 谁有好点的subfile教程
【注】
(1) 第一个画面HEAD注解：
(a) 第一行表明显示尺寸，一般就这么写；
(b) 第二行的R表示接下来是一个记录，记录名是HEAD，有点象PF的定义，不过在DSPF里的记录代表
  一个画面；
(c) 第三行的DATE是系统关键字，表示日期，该句意思是在第2行第1列显示系统日期；
(d) 第四行的EDTCDE表示编辑字，EDTCDE(Y)表示系统日期按照“MM/DD/YY”格式显示；
(e) 第五行的TIME是系统关键字，表示时间，该句意思是在第2行第69列显示系统时间；
(f) 第六行意思是在第2行第34列显示字符窜"显示文件记录"。

(2) 第二个画面SUBF注解：
(a) 第一行的R和上面一样，也代表这是一个画面，名字是SUBF；
  后面的SFL是系统关键字，表示该画面是SUBFILE；
(b) 第二行表示在画面第9行第16列显示长度为5的字段FLD001，5是长度，A表示该字段是字符型，
  O表示该字段只用于输出；
(c) 第三行与上一行类似。

(3) 第三个画面SUBFC注解：
(a) 第一行的R和上面一样，也代表这是一个画面，名字是SUBFC，
  SFLCTL是系统关键字，SFLCTL(SUBF)表示该记录是用来对画面SUBF显示的控制，
  一般定义了SUBFILE之后，都要定义这个记录的；
(b) 第二行的SFLSIZ用来说明SUBF的记录数，这里我把它定义为最大9999；
(c) 第三行的SFLPAG用来说明每页显示的记录条数，这里我把定义为10笔；
(d) 第四、五、六行的SFLDSP是用来显示记录的，SFLDSPCTL用来控制显示的，
  SFLCLR用来清除显示的记录的，一般都需要给他们加上指示器，这里分别是30、31、32；
(e) 第七行的SFLEND用来声明每页下方的提示，这里用*MORE来表示，如果还有下一页的话，下方
  就显示”More……“，否则，就显示”Bottom“，这里也用个指示器33；
(f) 第八行的OVERLAY表示显示该记录之前不要清除上一屏，即保留；
(g) 第九行的CA12表示在这个画面里我可以用键盘按键F12，对应的指示器是12，
  这里你可以根据自己需要使用别的按键，例如CA03；
(h) 第十一行的COLOR是系统关键字，用来给上面显示的字符窜设置显示颜色，
  这里用BLU，表示字符窜”字段1“显示为蓝色；

(4) 第四个画面FOOT注解参考上面三点即可，在此不在累赘。
作者: fairyboy    时间: 2005-08-02 21:47
标题: 谁有好点的subfile教程

  2. *************** Beginning of data *************************************
  3.      FMYPF       IF  E           K        DISK                           
  4.      FMYDSPF  CF  E                    WORKSTN                        
  5.      F                                                                                   RRN   KSFILE SUBF        
  6.      C           *IN12      DOWEQ'0'                                    
  7.      C                          WRITEHEAD                                   
  8.      C                          WRITEFOOT                                   
  9.      C                          EXSR CLRSFL                                 
  10.      C                          EXSR REDRCD                                 
  11.      C                          ENDDO                                       
  12.      C*                                                               
  13.      C                          SETON                               LR               
  14.      C*****************************************************************
  15.      C           CLRSFL    BEGSR                                       
  16.      C*                                                               
  17.      C                          Z-ADD0              RRN     40                  
  18.      C                          MOVEA'0011'    *IN,30                       
  19.      C                          WRITESUBFC                                 
  20.      C*                                                               
  21.      C                          ENDSR                                       
  22.      C*****************************************************************
  23.      C           REDRCD    BEGSR                                       
  24.      C*                                                               
  25.      C           *LOVAL    SETLLFMYPF                                 
  26.      C                           READ FMYPF                    90            
  27.      C           *IN90      DOWEQ'0'                                    
  28.      C                          ADD  1         RRN                          
  29.      C                          WRITESUBF                                   
  30.      C                          READ FMYPF                    90            
  31.      C                          ENDDO                                       
  32.      C*                                                               
  33.      C                          SETON                     30               
  34.      C           RRN         IFEQ 0                                      
  35.      C                          SETOF                     30               
  36.      C                          ENDIF                                       
  37.      C                          MOVEA'10'      *IN,31                       
  38.      C                          EXFMTSUBFC                                 
  39.      C*                                                               
  40.      C                          ENDSR                                       
  41. ****************** End of data ****************************************
复制代码
作者: fairyboy    时间: 2005-08-02 21:52
标题: 谁有好点的subfile教程
只说一下，里面的 MOVEA'0011'    *IN,30，这是数组附值，表示把’0011‘其中的’0‘给*IN30，’0‘给*IN31，’1‘给*IN32，’1‘给*IN33。
还有为什么ADD 1  RRN，再WRITE，因为RRN这里面表示记录号，如果没有加1，就会重复使用，系统会报错。

以上是1：简单的SUBFILE的应用部分。

下面是第2种，带窗口的SUBFILE的应用。
作者: fairyboy    时间: 2005-08-02 21:58
标题: 谁有好点的subfile教程
A                                      DSPSIZ(24 80 *DS3)
     A                                      REF(*LIBL/ALGSYS)
     A                                      CHGINPDFT(CS)
     A                                      MSGLOC(24)
     A                                      PRINT
     A          R SCRN0
     A                                      WINDOW(10 40 12 34)
     A                                      WDWBORDER((*COLOR WHT) (*DSPATR RI)-
     A                                       (*CHAR '        '))
     A          R SCRN2                     SFL
     A                                      KEEP
     A            SVSEL          1A  H
     A            S2SEL          1A  B  3  2COLOR(TRQ)
     A            S2DTA          1   B  3  5
     A            S2PRC          1   B  3  9
     A            DISYS     R        O  3 12COLOR(WHT)
     A            DISYSN    R        O  3 23REFFLD(RALGSYS/DISYSN *LIBL/ALGSYS)
     A                                      COLOR(PNK)
     A          R SCRN1                     SFLCTL(SCRN2)
     A                                      SFLSIZ(0007)
     A                                      SFLPAG(0006)
     A                                      WINDOW(SCRN0)
     A                                      CF01
     A                                      CF07
     A                                      KEEP
     A                                      BLINK
     A                                      OVERLAY
     A N50 51                               SFLDSP
     A N50                                  SFLDSPCTL
     A  50                                  SFLCLR
     A            SFSTRT         4S 0H      SFLRCDNBR
     A                                  1  4'Dta'
     A                                      COLOR(WHT)
     A                                  1  8'Prc'
     A                                      COLOR(WHT)
     A                                  2  2'X Y/N Y/N System     Name      '
     A                                      COLOR(WHT)
     A                                      DSPATR(UL)
     A          R SCRN3
     A*%%TS  SD  19950824  095816  KLUCK       REL-V3R1M0  5763-PW1
     A                                      WINDOW(SCRN0)
     A                                 10  2'F1=Return'
     A                                      COLOR(WHT)
     A                                 10 13'''X''=Select'
     A                                      COLOR(WHT)
     A                                 10 25'F7=Accept'
     A                                      COLOR(WHT)
     A                                 11 23'Roll Active'
     A                                      COLOR(WHT)
     A* ------------------------------------------------------------------------
     A* These records are required for seamless Window activation.
     A* No Program I/O shound ever be done to these records.
     A* ------------------------------------------------------------------------
     A          R SCRN4                     CLRL(*NO)
     A                                      OVERLAY
     A                                      FRCDTA
     A          R SCRN5                     ASSUME
     A                                      OVERLAY
     A                                      PUTOVR
     A                                  1  3' '
作者: fairyboy    时间: 2005-08-02 22:18
标题: 谁有好点的subfile教程
再补充说一句，MOVEA*ALL’0‘ *IN，30可以吧30以后的指示器，一次全部置*OFF。

睡了。
作者: qingzhou    时间: 2005-08-02 23:09
标题: 谁有好点的subfile教程
看来要设为精华鼓励鼓励，很难得~~~
继续写、不要停，也不要这么早就睡觉了。。。
作者: fairyboy    时间: 2005-08-03 08:41
标题: 谁有好点的subfile教程
原帖由 "qingzhou" 发表：
看来要设为精华鼓励鼓励，很难得~~~
继续写、不要停，也不要这么早就睡觉了。。。



啊~精华?好象没偶的份捏，白辛苦咧．
作者: magic_007    时间: 2005-08-03 11:29
标题: 谁有好点的subfile教程
啊~精华?好象没偶的份捏，白辛苦咧．

fairyboy老兄,那个精华是给你的,不白辛苦,大家的眼睛是雪亮的   我只是要更多的知识来充实自己.先谢谢了
作者: majorz    时间: 2005-08-03 14:09
标题: 谁有好点的subfile教程
fairyboy大哥: 很不錯,繼續啊,很是期待啊
作者: 54CatFish    时间: 2005-08-04 09:17
标题: 谁有好点的subfile教程
[quote]原帖由 "magic_007"]谁有好点的subfile教程[/quote 发表：


我有，可惜是纸介质的，没有电子版的
作者: huting974    时间: 2006-01-16 11:01
怎么停了？继续吧
作者: lordlost    时间: 2006-01-16 14:25
原帖由 fairyboy 于 2005-8-2 21:43 发表
我这边有样本代码，附每条语句的详细解释和相应的RPG代码相结合。
就是不给，TJJTDS也不给~~~~

個人對這個簡稱比較感興趣，到底啥意思啊？
作者: pl421    时间: 2006-01-16 14:31
原帖由 lordlost 于 2006-1-16 14:25 发表

個人對這個簡稱比較感興趣，到底啥意思啊？


踢jj踢到死，
作者: huting974    时间: 2006-01-16 14:42
。。。害我白激动一场，以为lz来fairboy来回帖了呢
作者: pl421    时间: 2006-01-16 14:57
原帖由 huting974 于 2006-1-16 14:42 发表
。。。害我白激动一场，以为lz来fairboy来回帖了呢


这也是回答问题阿，这不学了个外来语嘛。
作者: Stealer    时间: 2006-01-16 17:19
提倡资源共享
作者: huting974    时间: 2006-01-16 17:44
原帖由 pl421 于 2006-1-16 14:57 发表


这也是回答问题阿，这不学了个外来语嘛。


可我本来就知道答案
作者: as4002003    时间: 2006-01-17 09:11
标题: 是SDA中的subfile吗？
是不是SDA中的subfile呢？
作者: huting974    时间: 2006-01-17 14:50
http://publib.boulder.ibm.com/cg ... /QB3AUK00/CCONTENTS
Application Display Programming 教程
其中关于subfile讲解的很全面哦
作者: 大肥肥    时间: 2006-01-17 15:06
楼上的自学成才，呵呵~
作者: wnai    时间: 2006-01-17 15:22
huting974 提供的是个好地方~~



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2