next up previous
Next: 特殊命令について Up: PROCEDURE DIVISION Previous: GOBACKの規則

条件式に関する規則

【例】
     1   1   2   2   2   3   3   4   4   4   5   5   6   6   6   7
7----2---6---0---4---8---2---6---0---4---8---2---6---0---4---8---2
 IF      (  A  =  B  )
     MOVE    1           TO  A
   ELSE
     MOVE    2           TO  A
 END-IF.
 IF      (    (  A  =  B  )
         AND  (   (  B  =  1  )
              OR  (  B  =  2  ) ) )
     PERFORM ARE
 END-IF.
 PERFORM
         UNTIL   (  FLG-EOF  =  FLG-FALSE  )
     PERFORM ITEM-SET
     PERFORM REC-WRITE
 END-PERFORM.
 PERFORM VARYING I           FROM    1   BY  1
         UNTIL   (  I  >  10  )
     COMPUTE J = A(I) + J
 END-PERFORM.
 EVALUATE    A
   WHEN      1
     PERFORM A-IS-1
   WHEN      2
     PERFORM A-IS-2
   WHEN      OTHER
     CONTINUE
 END-EVALUATE.
 EVALUATE    TRUE
   WHEN  (   (  A  =  1  )
         AND (  C  =  B  ) )
     PERFORM ACB
   WHEN  (   (  A  =  2  )
         AND (  C  =  D  ) )
     PERFORM ACD
   WHEN      OTHER
     CONTINUE
 END-EVALUATE.



Masami Ogoshi 2001-11-12