厉害的牛人来看看这个问题

roden

参照4楼和5楼的方法就可以了。
至于最后一条记录的出力，采取这种处理方式（指和前一条数据进行比较），就有这种常见问题，
解决办法也很简单，循环结束后，只要判断到能读到数据，就再执行一次出力。

要是我的话，我会把同一发注NO的记录全部读出，再写入SFL，这样就不会有最后一条记录的问题了。

BTW:标题太夸张了，也许现在的年轻人都爱这样。

jxylh111018

现设定LF文件

TABLE1( tabR)
K ORDERNO   => 发注NO
K DIV             => 区分


然后读取数据部分
（我用COBOL写 错了不要喷我啊~~~）
77  W-ORDERNO.
77  W-DIV.
PROCESS-RTN.
   initialize  tabR.
    START TABLE1  KEY >= EXTERNALLY-DESCRIBED-KEY           
          INVALID    GO TO PROCESS-EXIT
    END-START.                                                
    READ TABLE1 NEXT AT END  ADD 1  TO RRN1
                                                WRITE SUBFILE END WRITE
                                                GO TO PROCESS-RTN
    END-READ.
    MOVE  ORDERNO               TO  W-ORDERNO.
    MOVE   DIV                        TO  W-DIV.
READ-START.   
    IF  W-ORDERNO   = ORDERNO  
         IF W-DIV NOT = DIV
             MOVE  ORDER_DATE            TO  S-EORDDAT
             ADD  1     TO  RRN1
             WRITE SUBFILE  END-WRITE
             MOVE  ORDERNO               TO  W-ORDERNO.
             MOVE   DIV                        TO  W-DIV.
        ELSE
             MOVE  ORDERNO               TO  S-ORDERNO.
             MOVE  DIV                         TO  S-DIV.
             MOVE  ORDER_DATE          TO  S-SORDDAT.  
        END-IF
    ESLE
             MOVE  ORDERNO               TO  S-ORDERNO.
             MOVE  DIV                         TO  S-DIV.
             MOVE  ORDER_DATE          TO  S-SORDDAT.  
    END-IF.

   READ TABLE1 NEXT AT END  ADD 1  TO RRN1
                                                WRITE SUBFILE END WRITE
                                                GO TO PROCESS-RTN
    END-READ.
    GO TO READ-START.                                          
PROCESS-EXIT.   
    EXIT.

junlee1986

用CYCLE
跑IP 用指示器定义需要的字段
对NO不同的在RPG中再控制

坐地还价

楼上的是个不错的注意