请看看这个RPG程序的循环是怎样实现的

weizhengchina

H            Y
     F***********************************************
     F*      LISTE DES DECLARATIONS D'IMPORTATION
     F* CREATION : 06/06/2002
     F* PAR      : DIMITRI JANNET (STE SYLIS)
     F*********************************************
     F* FICHIER DES REPONSES EXP DITION
     FWKDECLL0IPE E           K        DISK
     FDECLIMP1O   E             90     PRINTER
     IDECLFP
     I                                              SLCAT L1
     C           *IN50     IFEQ '0'
     C                     SETON                     50
     C           *ENTRY    PLIST
     C                     PARM           CAMION  3        NUMERO DE CAMION
     C                     SETON                     90
     C                     MOVELCAMION    NCAMIO  3
     C                     Z-ADD1         NMPGE
     C                     MOVEL*ALL'-'   TIRETS
     C                     MOVEL*ALL'-'   TIRET2
     C                     END
      *********************
     C                     ADD  SLVAL     AMOUNT
     C                     ADD  SLVAL     TOTMT
     C                     ADD  SLQTE     QTITY
     CL1                   MOVELSLCAT     WSLCAT 15
     CL1                   MOVELSLENG     LIBENG
     CL1                   MOVELSLCHI     LIBCHI
     CL1                   MOVELSLCAT     REFER
     CL1                   MOVELSLUNI     UNITE
     CL1                   MOVELSLMVT     REFMVT
     CL1 90                WRITEENTETE
     CL1 90                ADD  1         NMPGE
     CL1 90                SETOF                     90
     CL1                   WRITELIGNE1
     CL1                   Z-ADD0         AMOUNT
     CL1                   Z-ADD0         QTITY
     CLR                   WRITETOTGEN

xuguopeng

请用CODE，否则看起来太累了 老大

weizhengchina

怎么用code，请说明白！

xuguopeng

1. H Y
   
2. F***********************************************
   
3. F* LISTE DES DECLARATIONS D'IMPORTATION
   
4. F* CREATION : 06/06/2002
   
5. F* PAR : DIMITRI JANNET (STE SYLIS)
   
6. F*********************************************
   
7. F* FICHIER DES REPONSES EXP DITION
   
8. FWKDECLL0IPE E K DISK
   
9. FDECLIMP1O E 90 PRINTER
   
10. IDECLFP
    
11. I SLCAT L1
    
12. C *IN50 IFEQ '0'
    
13. C SETON 50
    
14. C *ENTRY PLIST
    
15. C PARM CAMION 3 NUMERO DE CAMION
    
16. C SETON 90
    
17. C MOVELCAMION NCAMIO 3
    
18. C Z-ADD1 NMPGE
    
19. C MOVEL*ALL'-' TIRETS
    
20. C MOVEL*ALL'-' TIRET2
    
21. C END
    
22. *********************
    
23. C ADD SLVAL AMOUNT
    
24. C ADD SLVAL TOTMT
    
25. C ADD SLQTE QTITY
    
26. CL1 MOVELSLCAT WSLCAT 15
    
27. CL1 MOVELSLENG LIBENG
    
28. CL1 MOVELSLCHI LIBCHI
    
29. CL1 MOVELSLCAT REFER
    
30. CL1 MOVELSLUNI UNITE
    
31. CL1 MOVELSLMVT REFMVT
    
32. CL1 90 WRITEENTETE
    
33. CL1 90 ADD 1 NMPGE
    
34. CL1 90 SETOF 90
    
35. CL1 WRITELIGNE1
    
36. CL1 Z-ADD0 AMOUNT
    
37. CL1 Z-ADD0 QTITY
    
38. CLR WRITETOTGEN
    

复制代码

xuguopeng

好象是个控制PRTF的程序，你把代码整理一下吧，看起来太累了

raydream

程序打开文件的时候不是用full procudural，
是用primary file，你可以看看，
这样整个程序的流程是每次只处理一条记录，
然后退出，然后在处理一条，循环这样，直到最后一条记录为止。

michael9406

或者你上传一个TXT文件。也好看一些。

XFIVE

原帖由 "raydream" 发表：
程序打开文件的时候不是用full procudural，
是用primary file，你可以看看，
这样整个程序的流程是每次只处理一条记录，
然后退出，然后在处理一条，循环这样，直到最后一条记录为止。

yes

红像

文件说明
H Y
F***********************************************
F* LISTE DES DECLARATIONS D'IMPORTATION
F* CREATION : 06/06/2002
F* PAR : DIMITRI JANNET (STE SYLIS)
F*********************************************
F* FICHIER DES REPONSES EXP DITION
FWKDECLL0IPE E K DISK
FDECLIMP1O E 90 PRINTER
IDECLFP
I SLCAT L1


初始化(因为50开始OFF, 然后ON, 就只有执行一次.
C *IN50 IFEQ '0'
C SETON 50
C *ENTRY PLIST   <---- 这句跟下面的一句PARM是用来获得传入参数的.
C PARM CAMION 3 NUMERO DE CAMION
C SETON 90
C MOVELCAMION NCAMIO 3
C Z-ADD1 NMPGE
C MOVEL*ALL'-' TIRETS
C MOVEL*ALL'-' TIRET2
C END

下面就是做输出了.
*********************
C ADD SLVAL AMOUNT
C ADD SLVAL TOTMT
C ADD SLQTE QTITY
CL1 MOVELSLCAT WSLCAT 15
CL1 MOVELSLENG LIBENG
CL1 MOVELSLCHI LIBCHI
CL1 MOVELSLCAT REFER
CL1 MOVELSLUNI UNITE
CL1 MOVELSLMVT REFMVT
CL1 90 WRITEENTETE   <----写标题
CL1 90 ADD 1 NMPGE
CL1 90 SETOF 90
CL1 WRITELIGNE1        <-- DETAIL
CL1 Z-ADD0 AMOUNT
CL1 Z-ADD0 QTITY
CLR WRITETOTGEN       <---- SUM UP