簡單的子過程

uglyneo

先CODE吧.
PF:  ACCTYPE

1. 
   
2.      A          R RACCTYP
   
3.      A            NAME          18A         COLHDG('NAME')
   
4.      A            DESC          12A         COLHDG('DESC')
   
5.      A          K NAME
   

復(fù)制代碼

DSPF: WINDOW2

1. 
   
2.      A                                      DSPSIZ(24 80 *DS3)
   
3.      A                                      CF03
   
4.      A                                      CA12(12)
   
5.      A          R WINDOW1                   OVERLAY
   
6.      A                                      WINDOW(8 20 12 40)
   
7.      A                                      WDWTITLE((*TEXT 'RECORD DETAILS') +
   
8.      A                                      (*DSPATR HI))
   
9.      A                                 10  2'1-SELECT    F12:CANCEL'
   
10.      A                                      DSPATR(HI)
    
11.      A
    
12.      A** BLEOW IS SUBFILE
    
13.      A          R SUBF                      SFL
    
14.      A            SFLOPT         1A  I  2  2VALUES('1')
    
15.      A            SFLNAME       18A  O  2  6
    
16.      A            SFLDESC       12A  O  2 25
    
17.      A          R SUBFC                     SFLCTL(SUBF)
    
18.      A                                      SFLSIZ(9999)
    
19.      A                                      SFLPAG(0005)
    
20.      A                                      WINDOW(WINDOW1)
    
21.      A  32                                  SFLDSP
    
22.      A  32                                  SFLDSPCTL
    
23.      A  40                                  SFLEND(*MORE)
    
24.      A  31                                  SFLCLR
    
25.      A                                  1  2'OPT NAME               DESCRIPTION'
    
26.      A                                      DSPATR(HI)
    
27.      A          R DSP
    
28.      A                                      CF05
    
29.      A                                  6 17'NAME'
    
30.      A                                  6 44'DESC'
    
31.      A            W1NAME        18   O  7 17DSPATR(UL)
    
32.      A                                      COLOR(WHT)
    
33.      A            W1DESC        12   O  7 44DSPATR(UL)
    
34.      A                                      COLOR(WHT)
    

復(fù)制代碼

RPGLE: SUBPRO

1. 
   
2.      FACCTYPE   IF   E           K DISK
   
3.      FWINDOW2   CF   E             WORKSTN
   
4.      F                                     SFILE(SUBF:RRN1)
   
5.      DSELEC            PR            30
   
6.      D*定義子過程
   
7.      DNAME                           18    VALUE
   
8.      C                   Z-ADD     *ZERO         RRN1              4 0
   
9.      C* RRN1 必須在主程序里面定義,在子過程里定義對于主程序不起作用仍會提示RRN1未定義.
   
10.      C                   MOVEL     *BLANK        RESULT           30
    
11.      C*同樣RESULT 也必須定義長度.
    
12.      C                   DOW       NOT(*INKC)
    
13.      C                   EXFMT     DSP
    
14.      C   KE              DO
    
15.      C                   EVAL      RESULT=SELEC(W1NAME)
    
16.      C*調(diào)用子過程
    
17.      C                   MOVEL     RESULT        W1NAME
    
18.      C                   MOVE      RESULT        W1DESC
    
19.      C                   ENDDO
    
20.      C                   ENDDO
    
21.      C                   SETON                                        LR
    
22.      C                   RETURN
    
23.      C*
    
24.      PSELEC            B
    
25.      **子過程開始
    
26.      DSELEC            PI            30
    
27.      DW1NAME                         18    VALUE
    
28.      DRESULT           S             30
    
29.      C                   SETON                                        31
    
30.      C                   WRITE     SUBFC
    
31.      C                   SETOFF                                       31
    
32.      C*                  Z-ADD     *ZERO         RRN1              4 0
    
33.      C*這個很是要說明一下見下面
    
34.      C     *LOVAL        SETLL     RACCTYP
    
35.      C                   READE     RACCTYP                                90
    
36.      C                   DOW       *IN90='0'
    
37.      C                   ADD       1             RRN1
    
38.      C                   EVAL      SFLNAME=NAME
    
39.      C                   EVAL      SFLDESC=DESC
    
40.      C                   WRITE     SUBF
    
41.      C*子過程開始如果執(zhí)行Z-ADD  0       RRN1 到這一步就會報錯。
    
42.      C                   READ      RACCTYP                                90
    
43.      C                   ENDDO
    
44.      C                   SETON                                            40
    
45.      C                   WRITE     WINDOW1
    
46.      C                   SETON                                            32
    
47.      C                   EXFMT     SUBFC
    
48.      C                   SETOFF                                           32
    
49.      C*取得選擇的值
    
50.      C                   READC     SUBF                                   80
    
51.      C  N80              DO
    
52.      C                   MOVEL     SFLNAME       RESULT
    
53.      C                   MOVE      SFLDESC       RESULT
    
54.      C                   ENDDO
    
55.      C                   Z-ADD     0             RRN1
    
56.      C*見下面
    
57.      C                   RETURN    RESULT
    
58.      P                 E
    

復(fù)制代碼

下午一直在研究子過程,根據(jù)dazzling2000 給的程序,寫了這個簡單的。
結(jié)果也遇到了在WRITE  SUBF時報錯.
代碼都改成一樣,一個報錯一個不報錯.
只有將Z-ADD     0              RRN1 放到 子過程的結(jié)束,就不報錯了.
還有種解決方法就是清空子文件放在子過程之外。
至于為什么子過程開始時Z-ADD0     RRN1不行，俺也不知道。
但是dazzling2000的程序卻可以正常運行。程序代碼改成一模一樣還是一個報錯，一個不報錯。
……

不知道在程序里面用子過程有什么好處，感覺子過程就是一個帶入口參數(shù)的CALL。
像這個在子過程中顯示子文件，感覺很是不穩(wěn)定。
到覺得不如子程序方便。

最后再附上dazzling2000大大的源程序。
各位可以看看到底為什么子過程開始時不能設(shè)為0

注：附件程序源自dazzling2000大大

[ 本帖最后由 uglyneo 于 2007-5-10 20:04 編輯 ]

pantierui

怎樣單調(diào)進子過程啊.編譯的時候除了設(shè)置DFTACTGRP和DBGVIEW兩個參數(shù),還需要設(shè)置什么啊.
那位能幫幫忙.