简单的子过程

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
   

复制代码

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)
    

复制代码

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*调用子过程
    
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*子过程开始如果执行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
    

复制代码

下午一直在研究子过程,根据dazzling2000 给的程序,写了这个简单的。
结果也遇到了在WRITE  SUBF时报错.
代码都改成一样,一个报错一个不报错.
只有将Z-ADD     0              RRN1 放到 子过程的结束,就不报错了.
还有种解决方法就是清空子文件放在子过程之外。
至于为什么子过程开始时Z-ADD0     RRN1不行，俺也不知道。
但是dazzling2000的程序却可以正常运行。程序代码改成一模一样还是一个报错，一个不报错。
……

不知道在程序里面用子过程有什么好处，感觉子过程就是一个带入口参数的CALL。
像这个在子过程中显示子文件，感觉很是不稳定。
到觉得不如子程序方便。

最后再附上dazzling2000大大的源程序。
各位可以看看到底为什么子过程开始时不能设为0

注：附件程序源自dazzling2000大大

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

pantierui

怎样单调进子过程啊.编译的时候除了设置DFTACTGRP和DBGVIEW两个参数,还需要设置什么啊.
那位能帮帮忙.