请教如何SKIP记录

Vivian-wu

请问，如果REGION没有合适的条件，
怎样不让其往下走， 我用ITER， 可每次都是读第一条记录，
在ENDDO前也有READ FGWH， 怎么回事，请各位请教。

C           IN33A     BEGSR                              
C                     READ FGWH                  30   
C           *IN30     DOWEQ'0'                           
* Region                                                
C   70 91   REGION    COMP @RGN                 91  91   
C  N91                ITER                              
* Warehouse                                             
C           REGION    CHAINFGFWHRB              31      
C   71 91   WHS       COMP @WHS                 91  91   
C  N91                ITER                              
* Transaction Period         

.....

                      READ FGFWH                  30
                      ENDDO
                      ENDSR

Eagle_wolf

iter之前应该read
要不就换一种写法
1   setll    a
     do    *hival
        read   a       90
   90 leave
        if    ***
        iter
        endif
**transaction

       enddo

Vivian-wu

原帖由 "Eagle_wolf" 发表：
iter之前应该read
要不就换一种写法
1   setll    a
     do    *hival
        read   a       90
   90 leave
        if    ***
        iter
        endif
**transaction

       enddo

我先用第一个方法，还挺管用，谢谢