01  I            PIC 9   VALUE 0.

01  J            PIC 9   VALUE 0.

01  WK-DATA-AREA.

      05  MARKET OCCURS 2 TIMES.

            10  C-CLASS OCCURS   3 TIMES.

                  15  WK-AMT         PIC 9(14)   VALUE 0.

 

PERFORM VARYING I FORM 1 BY 1 UNTIL I >2

  PERFORM VARYING J FORM 1 BY 1 UNTIL J >3

   IF WK-AMT(I J) NOT = 0

   ...............................

   END-IF

  END-PERFORM

END-PERFORM.

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 jamie0606 的頭像
    jamie0606

    Ching Mood !!

    jamie0606 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄